1 :' The Fear - tape
2 :' by Phil Howard
3 :' 116
10 DATA 06,05,af,4e,23,32
20 DATA 0a,be,dd,71,00,c6
30 DATA 04,10,f4,c9,4a,4b
40 DATA 48,49,4c,08,01,00
50 DATA 02,12,32,33,30,31
60 DATA 34,06,00,11,40,00
70 DATA d5,cd,77,bc,e1,cd
80 DATA 83,bc,18,00,dd,21
90 DATA 9e,10,21,15,be,cd
100 DATA 00,be,dd,21,fa,0f
110 DATA 21,10,be,cd,00,be
120 DATA 21,4b,be,22,92,0f
130 DATA c3,40,00,f5,3e,06
140 DATA cd,1e,bb,28,06,cd
150 DATA 8d,23,cd,ff,1f,f1
160 DATA cd,1e,bb,c9
170 CLS:y=0:MEMORY &2000
180 PRINT"1) Joy/original"
190 PRINT"2) Joy/joy"
200 INPUT "3) Joy/Cursor";t
210 IF t<1 OR t>3 THEN 170
220 FOR x=&BE00 TO &BE5D
230 READ a$:a=VAL("&"+a$)
240 POKE x,a:y=y+a:NEXT
250 IF y<>&2435 THEN 300
260 IF t=1 THEN POKE &BE2D,&A
270 IF t=2 THEN POKE &BE33,&1A
280 PRINT:PRINT"Loading"
290 LOAD"!data.bin":CALL &BE1F
300 PRINT"Data Error"