10 AFTER 1000 GOSUB 190
20 a=39
30 b=1
40 c=1
50 d=32
60 a$=CHR$(d)
70 CLS
80 IF a=0 THEN a=39
90 a$=CHR$(d)  
100 FOR c=1 TO 25
110 LOCATE a,c:PRINT a$
120 NEXT c
130 IF a=b THEN b=b+1 AND a=39
140 a=a-1
150 IF a=39 THEN c=c+1 AND b=1
160 d=d+1
170 IF d=255 THEN d=32
180 GOTO 80
190 CLS:PRINT"Shareware! Please register!"
200 FOR t=1 TO 2500:NEXT t
210 GOTO 10
