1 :' THUNDER BLADE
2 :'by Phil Howard
3 :' INFINITE LIVES
4 :' 349
10 :'**** LOCK ****
20 :'
30 Y=0:RESTORE 100
40 FOR x=&4200 TO &4386
50 READ a$:a=VAL("&"+a$)
60 y=y+a:POKE x,a:NEXT
70 IF y=37465 THEN 590
80 PRINT"Error in Lock":END
90 :'
100 DATA FE,00,20,03,C3,3b,43,FE
110 DATA 01,20,07,DD,36,0F,F6,0E
120 DATA 10,C9,FE,02,20,07,DD,36
130 DATA 0C,F9,0E,0D,C9,FE,03,20
140 DATA 0F,DD,36,1E,E9,DD,7E,0C
150 DATA D6,10,DD,77,0C,0E,1F,C9
160 DATA FE,04,20,07,DD,36,11,F6
170 DATA 0E,12,C9,FE,05,20,07,DD
180 DATA 36,10,F6,0E,11,C9,FE,06
190 DATA 20,07,DD,36,0D,F8,0E,0E
200 DATA C9,FE,07,20,07,DD,36,1B
210 DATA EE,0E,1C,C9,FE,08,20,07
220 DATA DD,36,0E,F7,0E,0F,C9,FE
230 DATA 09,20,07,DD,36,23,C0,0E
240 DATA 24,C9,FE,0A,20,13,DD,E5
250 DATA E1,11,06,00,19,7C,D6,10
260 DATA DD,75,15,DD,77,16,0E,17
270 DATA C9,FE,0B,20,13,DD,E5,E1
280 DATA 11,06,00,19,7C,D6,10,DD
290 DATA 75,14,DD,77,15,0E,16,C9
300 DATA FE,0C,20,13,DD,E5,E1,11
310 DATA 07,00,19,7C,D6,10,DD,75
320 DATA 10,DD,77,11,0E,12,C9,FE
330 DATA 0D,20,0F,DD,7E,03,D6,10
340 DATA DD,77,03,DD,36,1A,E9,0E
350 DATA 1B,C9,DD,36,1D,20,DD,36
360 DATA 1E,EB,0E,1F,C9,F3,21,39
370 DATA 7D,11,39,5D,00,01,00,0D
380 DATA ED,B0,21,36,6D,11,37,6D
390 DATA 01,00,10,36,00,ED,B0,36
400 DATA C3,23,36,34,23,36,43,21
410 DATA D5,42,11,39,6D,01,0D,00
420 DATA ED,B0,21,40,6D,36,EB,21
430 DATA 50,7D,11,50,6D,01,15,00
440 DATA ED,B0,21,FF,40,DD,21,58
450 DATA 7D,23,E5,7E,CD,00,42,DD
460 DATA E5,E1,5D,7C,D6,10,57,06
470 DATA 00,DD,09,ED,B0,ED,73,00
480 DATA 40,C3,39,6D,ED,7B,00,40
490 DATA E1,18,DE,e1,Ed,4b,02,40
500 DATA d9,c3,89,be,22,D7,42,7C
510 DATA D6,10,67,22,FB,42,22,32
520 DATA 43,E5,7C,D6,10,67,22,DA
530 DATA 42,E1,2B,2B,2B,22,E3,42
540 DATA 23,22,E6,42,11,09,00,19
550 DATA 22,03,43,11,10,00,19,22
560 DATA 0B,43,11,00,10,19,22,08
570 DATA 43,11,08,00,19,22,17,43
580 DATA f3,D9,ED,43,02,40,C9
590 :'
600 :'**** KEY ****
610 :'
620 y=0:x=&4100:RESTORE 740
630 WHILE a$<>"00"
640 READ a$:y=y+VAL("&"+a$)
650 POKE x,VAL("&"+LEFT$(a$,1))
660 POKE x+1,VAL("&"+RIGHT$(a$,1))
670 x=x+2:WEND
680 :'
690 :'---------------------------------
700 :'
710 IF y=4613 THEN 810
720 PRINT"Error in Key":END
730 :'
740 DATA 11,7D,14,7B,2A,49,21,75
750 DATA 2A,5B,54,BC,8A,41,91,14
760 DATA 61,41,56,A2,15,51,E6,1B
770 DATA 12,6C,1A,5B,64,31,A1,15
780 DATA 34,78,E9,4D,54,BE,64,B4
790 DATA 83,15,54,6C,25,24,15,1B
800 DATA AA,14,62,5D,14,15,18,00
810 :'
820 :'**** CHEAT ****
830 :'
840 y=0:RESTORE 910
850 FOR x=&BE80 TO &BE9C
860 READ a$:a=VAL("&"+a$)
870 POKE x,a:y=y+a:NEXT
880 IF y=3851 THEN 960
890 PRINT"Error in Cheat":END
900 '
910 DATA 21,e9,93,CD,44,43,C3,D5
920 DATA 42,21,92,be,22,68,9e,c3
930 DATA cc,9c,af,32,a3,11,32,e2
940 DATA 11,cd,8e,9e,c9
950 '
960 MEMORY &1FFF
970 LOAD"thunder blade"
980 MODE 1:PRINT"Dont Panic..this takes FOREVER..."
990 CALL &BE80
1000 END