1 :' Desolator - tape
2 :' by Phil Howard
710 IF y=5003 THEN 810
720 PRINT"Error in key":END
730 :'
740 DATA 14,92,1b,51,b7,b1,a5,8c
750 DATA 41,46,51,a5,73,61,12,a9
760 DATA 49,12,b1,be,5e,da,42,cb
770 DATA c5,18,54,61,42,da,42,cb
780 DATA 25,44,15,5a,51,b8,63,71
790 DATA 4a,34,be,6d,14,41,65,11
800 DATA 40,00
810 :'
820 :'**** CHEAT ****
830 :'
840 y=0:RESTORE 910
850 FOR x=&BE80 TO &BE9A
860 READ a$:a=VAL("&"+a$)
870 POKE x,a:y=y+a:NEXT
880 IF y<>3462 THEN 960
890 PRINT"Error in cheat":END
900 :'
910 DATA 21,ab,94,cd,44,43,c3,d5
920 DATA 42,21,92,be,22,5b,9e,c3
930 DATA d4,9c,cd,03,b9,3e,a7,32
940 DATA ca,06,c9
950 :'
960 MEMORY &1FFF
970 LOAD"DESOLATOR"
980 PRINT"Don't Panic.. This takes forever"
990 CALL &BE80