5 REM *****TON - DEMO*****
10 !NEW
15 :
20 !DEF A=:SI=54272:POKESI+24,15:POKESI+5,24:POKESI+6,68:POKESI+1,ASC(A$):_
25 :
30 !DEF B=:A:POKESI,INT(256*RND(1)):POKESI+4,17:FORT=1TO100:NEXT:_
35 :
40 !DEF C=:B:POKESI+4,0:POKESI+5,0:POKESI+6,0:_
45 :
50 GETA$:IFA$=""THEN50
55 :
60 C
65 :
70 GOTO50
100 OPEN1,8,15
110 PRINT#1,"S:TON-DEMO"
120 CLOSE1