1 :' Ramparts - tape
2 :' by Phil Howard
710 IF y=4690 THEN 810
720 PRINT"ERROR IN KEY":END
730 :'
740 DATA 11,21,EA,17
745 DATA 42,65,2E,45
750 DATA B4,61,B2,39
755 DATA 55,2E,54,61
760 DATA 51,89,B1,56
765 DATA 5B,D4,94,8C
770 DATA 13,21,81,17
775 DATA 45,14,5B,17
780 DATA 3A,14,DA,61
785 DATA 41,65,65,C1
790 DATA A2,11,7A,41
795 DATA AC,41,21,BD
800 DATA 64,14,00
810 :'
820 :'**** CHEAT ****
830 :'
840 y=0:RESTORE 910
850 FOR x=&BE80 TO &BE9D
860 READ a$:a=VAL("&"+a$)
870 POKE x,a:y=y+a:NEXT
880 IF y=3770 THEN 960
890 PRINT"ERROR IN CHEAT":END
900 :'
910 DATA 21,A9,94,CD
915 DATA 44,43,C3,D5
920 DATA 42,21,92,BE
925 DATA 22,62,9E,C3
930 DATA CC,9C,CD,66
935 DATA 9E,3E,00,32
940 DATA 83,68,32,E1
945 DATA 68,C9
950 :'
960 MEMORY &1FFF
970 LOAD"RAMPARTS"
980 MODE 1:PRINT"Don't Panic..this takes FOREVER..."
990 CALL &BE80
1000 END