10 ' Star Trooper Cheat Mode
20 '(C) 1989 1st Choice Software
30 MEMORY &3FFF:CALL &BC02:CALL &BBFF:BORDER 0:INK 0,0:INK 1,25:PAPER 0:PEN 1:MODE 1
40 PAPER 3:PEN 1
50 RESTORE 310:GOSUB 100:PAPER 0:PEN 2:PRINT:PRINT:GOSUB 100
60 GOSUB 400:RESTORE 380:PEN 3:PRINT:GOSUB 100
70 a$=INKEY$:IF a$<>" " THEN 70
80 PEN 1:MODE 1:a$="O.k. Here We Go...":GOSUB 130:CALL &BD37:LOAD"!":CALL &BC6B,1:CALL &9000
90 END
100 ' Messages
110 READ a$:IF a$="XX" THEN RETURN
120 GOSUB 130:GOTO 110
130 ' Print Routine For Mode 1 - Rather Long Winded N'est Pas ?
140 t=1:b$="":ma=40
150 IF LEN(a$)<ma+1 THEN c$=a$:GOTO 300
160 c$=""
170 mat=1
180 b$=""
190 WHILE MID$(a$,t,1)<>" " AND t<>LEN(a$)+1
200 b$=b$+MID$(a$,t,1)
210 t=t+1:WEND
220 IF MID$(a$,t,1)=" " THEN b$=b$+" ":t=t+1
230 mat=mat+LEN(b$)
240 IF mat>ma THEN 270
250 IF mat<ma+1 THEN c$=c$+b$:IF t<LEN(a$)+1 THEN 180
260 IF t=LEN(a$) OR t>LEN(a$) THEN GOSUB 300:PRINT:RETURN
270 t=t-LEN(b$)
280 GOSUB 300:PRINT
290 c$="":GOTO 170
300 FOR x=1 TO LEN(c$):PRINT MID$(c$,x,1);CHR$(24);" ";CHR$(24);CHR$(8);:SOUND 1,ASC(MID$(c$,x,1))+100,1:SOUND 2,ASC(MID$(c$,x,1))+200,1:NEXT:PAPER 0:PRINT" ":RETURN
310 ' Place Instruction Data
320 DATA "STAR TROOPER - Cheat Mode"
330 DATA "(C) 1989 1st Choice Software."
340 DATA XX
350 DATA "This Cheat For Players STAR TROOPER Gives You Infinite Lives."
360 DATA "Please Wait Whilst I Set Up The Cheat"
370 DATA XX
380 DATA "Hello Again, Sorry For The Delay. Please Insert Your STAR TROOPER Tape And Press Play.","When You Are Ready Press Space."
390 DATA XX
400 ln=170:RESTORE 500
410 FOR adr=&9000 TO &9072 STEP 13
420 READ byte$:chk=0
430 FOR i=0 TO 12
440 v=VAL("&"+MID$(byte$,i*2+1,2))
450 POKE adr+i,v:chk=chk+v
460 NEXT
470 IF chk<>VAL("&"+RIGHT$(byte$,3)) THEN PRINT"ERROR in LINE";ln:END
480 ln=ln+10:NEXT
490 RETURN
500 DATA 3EC32127903280BE2281BE3E8F577
510 DATA 327F413EB332CC413EF9322C424F9
520 DATA 3E02322B422105400EFFC316BD3E8
530 DATA 216A901180BE01A000EDB02A014D3
540 DATA AC7E23224590FE1C20F77EFE045F5
550 DATA 20F2AF320000237E225D90FEC4565
560 DATA 20F7237EFE1420F1237EFEAC20646
570 DATA EB21000036C32336802336BEC34B8
580 DATA 00ACAF327519C314AC0000000039E
