start tok64 d64-51kEx8
10 REM *****************
20 REM *               *
30 REM * screen shaker *
40 REM *               *
50 REM *****************
60 REM
70 REM ob. computer 4/1988
80 REM
100 FORa=49152TO49205:READx:POKEa,x:NEXT
110 DATA120,189,32,192,141,22,208,202,16,2,162,15,160,14,136,208,253,169,255,140
120 DATA0,220,205,1,220,240,230,141,0,220,88,96,0,1,2,3,4,5,6,7,7,6,5,4,3,2,1,0
130 DATA0,0,0,0,0,0
140 POKE53280,.:POKE53281,.
150 PRINT"{white}{clear}{down*2}{right}screen shaker
160 PRINT"{down*2}{right}{green}sys pd 1991
170 PRINT"{down}{right}{down}{yellow}stoppa med: stop+restore
180 PRINT"{down*2}
190 FORi=1TO10:PRINT"{cm q}{sh +*37}{cm w} ";:NEXT
200 SYS49152
stop tok64
(bastext 1.0)