start tok64 d64-CK9XKU
10 REM close-screen effect
20 REM adr. 51033 contains the screen-
30 REM close color. start=sys 50944
90 :
100 t=0
110 FOR n=50944 TO 51028
120 READ a
130 POKE n,a
140 t=t+a
150 NEXT n
160 IF t<>12883 THEN PRINT "checksum error.":END
200 PRINT"{clear}{white}"
210 POKE 51033,0:POKE53280,15:POKE53281,15:PRINT"{clear}{down*3}{right}{black}sys pd 1991{white}
220 SYS 50944
230 PRINT"{down*10}{space*14}game over!"
1000 DATA 120,172,32,208,140,87,199
1001 DATA 172,33,208,140,88,199,160
1002 DATA 32,140,85,199,160,32,140
1003 DATA 86,199,174,87,199,172,88
1004 DATA 199,173,85,199,205,18,208
1005 DATA 208,251,205,18,208,240,251
1006 DATA 142,32,208,140,33,208,172
1007 DATA 89,199,173,86,199,205,18
1008 DATA 208,208,251,205,18,208,240
1009 DATA 251,140,32,208,140,33,208
1010 DATA 238,85,199,206,86,199,172
1011 DATA 86,199,192,160,208,196,88,96
stop tok64
(bastext 1.0)