1 :' Bedlam - tape
2 :' by Phil Howard
3 :' 215
710 IF y=4454 THEN 810
720 PRINT"Error in key":END
730 :'
740 DATA 15,11,51,43,4d,b2,64,34
750 DATA 74,ad,45,ab,a6,14,25,da
760 DATA 11,15,e1,14,95,c6,73,64
770 DATA 51,29,4a,14,45,15,2c,8a
780 DATA b8,e4,18,19,42,71,1a,61
790 DATA 21,56,4b,16,56,1b,17,bc
800 DATA 1a,e5,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<>3556 THEN 960
890 PRINT"Error in cheat":END
900 :'
910 DATA 21,93,94,cd,44,43,c3,d5
920 DATA 42,21,92,be,22,87,9e,c3
930 DATA cc,9c,cd,b8,9e,3e,a7,32
940 DATA 6d,1b,c9
950 :'
960 MEMORY &1FFF
970 LOAD"BEDLAM"
980 PRINT"Don't Panic.. This takes forever"
990 CALL &BE80