start tok64 d64-XnbhhL
10 REM *****************************
20 REM *  h[ftig intro-effekt!     *
30 REM * ------------------------- *
40 REM *        gjort av t i       *
50 REM * sys 49152/stopp med space *
60 REM *****************************
70 :
100 t=0
110 FOR n=49152 TO 49152+68
120 READ a
130 POKE n,a
140 t=t+a
150 NEXT n
160 IF t<>10006 THEN PRINT"datafel."
170 REMend
180 PRINT"{clear}{down*2}{right}sys pd 1991
190 PRINT"{down*2}{right}intro
200 PRINT"{down}{right}start: sys 49152
210 END
1000 DATA 120,172,32,208,140,67,128
1001 DATA 172,33,208,140,68,128,238
1002 DATA 32,208,238,33,208,169,2,234
1003 DATA 234,234,234,234,141,32,208
1004 DATA 141,33,208,174,1,220,234
1005 DATA 234,234,173,6,220,141,32
1006 DATA 208,141,33,208,234,234,234
1007 DATA 232,240,216,88,172,67,128
1008 DATA 140,32,208,172,68,128,140
1009 DATA 33,208,96,0,0
stop tok64
(bastext 1.0)