1 :'Four smash hits
2 :'by Steven Brand
3 :'019
10 MODE 1:MEMORY 12345
20 LOAD "loader",&4000
30 a=16709:BORDER 0
40 IF PEEK(a)=&DD THEN RESTORE 240
50 IF PEEK (a)=&80 THEN RESTORE 260
60 READ m:MODE m
70 x=(15 AND m=0) OR (3 AND m=1)
80 FOR c=0 TO x
90 READ f:INK c,f
100 NEXT
110 TOt=0
120 RESTORE 280
130 FOR a=&80 TO &C3
140 READ b$:b=VAL("&"+b$)
150 POKE a,b:tot=tot+b
160 NEXT
170 IF tot<>5914 THEN PRINT "error"
180 CALL &80
190 DATA 00
200 DATA 00,26,13,16
210 DATA 15,06,03,24
220 DATA 12,09,18,19
230 DATA 20,11,02,01
240 DATA 01
250 DATA 00,06,18,26
260 DATA 01
270 DATA 00,20,26,24
280 DATA 21,00,40,e5
290 DATA 3a,45,41,fe
300 DATA dd,28,13,fe
310 DATA 80,28,26,21
320 DATA 96,00,22,4e
330 DATA 41,c9,3e,c9
340 DATA 32,4e,60,c3
350 DATA 00,90,21,a5
360 DATA 00,22,53,41
370 DATA c9,af,32,59
380 DATA 11,32,7a,1f
390 DATA 32,25,2a,32
400 DATA 25,2b,c3,00
410 DATA 01,21,bc,00
420 DATA 22,4e,41,c9
430 DATA af,32,c2,5e
440 DATA c3,00,40,4a
450 END