[ScreenSaver] v1.2

This commit is contained in:
Tomek Wójcik 2022-10-23 19:27:26 +02:00
parent edf0f9c26a
commit 9459cb0f29
4 changed files with 259 additions and 259 deletions

BIN
ScreenSaver/ScreenSaver.AMOS Normal file → Executable file

Binary file not shown.

6
ScreenSaver/ScreenSaver.AMOS.txt Normal file → Executable file
View File

@ -1,4 +1,4 @@
' Screen Saver v1.1 ' Screen Saver v1.2
' Created By Tomek Wojcik <tomek@bthlabs.pl> ' Created By Tomek Wojcik <tomek@bthlabs.pl>
' Copyright 2020-present by BTHLabs (https://bthlabs.pl) ' Copyright 2020-present by BTHLabs (https://bthlabs.pl)
' Licensed under terms of MIT License ' Licensed under terms of MIT License
@ -43,7 +43,7 @@ Procedure MAIN_DRAW_BORDER
Locate 0,24 Locate 0,24
Centre "By BTHLabs. For teh lulz." Centre "By BTHLabs. For teh lulz."
Locate 35,0 : Pen 13 : Paper 0 Locate 35,0 : Pen 13 : Paper 0
Print "v1.1"; Print "v1.2";
End Proc End Proc
Screen 0 Screen 0
@ -175,7 +175,7 @@ Procedure TXT_INIT
For I=0 To 3 For I=0 To 3
TXT_SPECIAL_STRING$=TXT_SPECIAL_STRINGS$(I) TXT_SPECIAL_STRING$=TXT_SPECIAL_STRINGS$(I)
TXT_SPECIAL_STRING_COORDS(I,0)=1+Rnd(37-Len(TXT_SPECIAL_STRING$)) TXT_SPECIAL_STRING_COORDS(I,0)=1+Rnd(37-Len(TXT_SPECIAL_STRING$))
TXT_SPECIAL_STRING_COORDS(I,1)=1+Rnd(23) TXT_SPECIAL_STRING_COORDS(I,1)=1+Rnd(22)
Next I Next I
End Proc End Proc

BIN
ScreenSaver/ScreenSaver.adf Normal file → Executable file

Binary file not shown.

BIN
ScreenSaver/ScreenSaver.exe Normal file → Executable file

Binary file not shown.