[ScreenSaver] v1.1

ScreenSaver/ScreenSaver.AMOS.txt

@@ -1,4 +1,4 @@
-' Screen Saver v1.0
+' Screen Saver v1.1
 ' Created By Tomek Wojcik <tomek@bthlabs.pl> 
 ' Copyright 2020-present by BTHLabs (https://bthlabs.pl) 
 ' Licensed under terms of MIT License
@@ -43,7 +43,7 @@ Procedure MAIN_DRAW_BORDER
    Locate 0,24
    Centre "By BTHLabs. For teh lulz."
    Locate 35,0 : Pen 13 : Paper 0
-   Print "v1.0";
+   Print "v1.1";
 End Proc
 
 Screen 0
@@ -153,12 +153,13 @@ End Proc
 TXT_PEN_BASE=13
 TXT_PEN_SPECIAL=1
 
-Dim TXT_SPECIAL_STRINGS$(3)
+Dim TXT_SPECIAL_STRINGS$(4)
 TXT_SPECIAL_STRINGS$(0)="Basia"
 TXT_SPECIAL_STRINGS$(1)="Ziomek"
 TXT_SPECIAL_STRINGS$(2)="Tomek"
+TXT_SPECIAL_STRINGS$(3)="Pecia"
 
-Dim TXT_SPECIAL_STRING_COORDS(3,2)
+Dim TXT_SPECIAL_STRING_COORDS(4,2)
 
 Global TXT_PEN_BASE,TXT_PEN_SPECIAL,TXT_SPECIAL_STRINGS$(),TXT_SPECIAL_STRING_COORDS()
 
@@ -171,7 +172,7 @@ Procedure TXT_INIT
       Next X
    Next Y
 
-   For I=0 To 2
+   For I=0 To 3
       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,1)=1+Rnd(23)
@@ -191,7 +192,7 @@ Procedure TXT_TICK
       Print Chr$(32+Rnd(64));
    Next I
 
-   For I=0 To 2
+   For I=0 To 3
       Pen TXT_PEN_SPECIAL : Paper 0
       Locate TXT_SPECIAL_STRING_COORDS(I,0),TXT_SPECIAL_STRING_COORDS(I,1)
       Print TXT_SPECIAL_STRINGS$(I);