10 ' By Fair Means Or Foul Cheat Mode
11 '(C) 1989 1st Choice Software
12 MEMORY &3FFF:CALL &BC02:CALL &BBFF:BORDER 0:INK 0,0:INK 1,25:PAPER 0:PEN 1:MODE 1
13 PAPER 3:PEN 1
14 RESTORE 40:GOSUB 19:PAPER 0:PEN 2:PRINT:PRINT:GOSUB 19
15 GOSUB 48:MODE 1:RESTORE 46:PEN 3:GOSUB 19
16 a$=INKEY$:IF a$<>" " THEN 16
17 PEN 1:MODE 1:a$="O.k. Here We Go...":GOSUB 22:CALL &BD37:CALL &BC6B,1:POKE &BEEF,&E2:CALL &BEA8
18 END
19 ' Messages
20 READ a$:IF a$="XX" THEN RETURN
21 GOSUB 22:GOTO 20
22 ' Print Routine For Mode 1 - Rather Long Winded N'est Pas ?
23 t=1:b$="":ma=39
24 IF LEN(a$)<ma+1 THEN c$=a$:GOTO 39
25 c$=""
26 mat=1
27 b$=""
28 WHILE MID$(a$,t,1)<>" " AND t<>LEN(a$)+1
29 b$=b$+MID$(a$,t,1)
30 t=t+1:WEND
31 IF MID$(a$,t,1)=" " THEN b$=b$+" ":t=t+1
32 mat=mat+LEN(b$)
33 IF mat>ma THEN 36
34 IF mat<ma+1 THEN c$=c$+b$:IF t<LEN(a$)+1 THEN 27
35 IF t=LEN(a$) OR t>LEN(a$) THEN GOSUB 39:PRINT:RETURN
36 t=t-LEN(b$)
37 GOSUB 39:PRINT
38 c$="":GOTO 26
39 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
40 ' Place Instruction Data
41 DATA "BY FAIR MEANS OR FOUL - Cheat Mode"
42 DATA "(C) 1989 1st Choice Software."
43 DATA XX
44 DATA "This Cheat For Superior's","By Fair Means Or Foul Will Allow You To Choose The Number Of Fouls For Each Player And To Move On To The Next Championship When You've Run Out Of Fouls."
45 DATA XX
46 DATA "Thank You. Please Insert Your","By Fair Means Or Foul Cassette And Press Play","Hit Space When You Are Ready."
47 DATA XX
48 GOSUB 100:RESTORE 61
49 FOR i=&BE80 TO &BEFA:READ a$:a=VAL("&"+a$):POKE i,a:NEXT
50 RESTORE 67
51 PAPER 0:PEN 1:MODE 2:BORDER 0:INK 0,0:INK 1,26
52 i=&BE80:ask$="How Many Fouls For Player 1 ":cheat$="3E05322915":GOSUB 58:GOSUB 60:INPUT a:IF a<256 AND a>0 THEN POKE &BE81,a ELSE GOTO 52
53 i=&BE85:ask$="How Many Fouls For Player 2 ":cheat$="3E05322A15":GOSUB 58:GOSUB 60:INPUT a:IF a<256 AND a>0 THEN POKE &BE86,a ELSE GOTO 53
54 ask$="Do You Wish To Move Onto The Next Championship When You've Used Up Your Fouls":cheat$="21000022741522E51522CE2A":GOSUB 60:INPUT a$:IF LEFT$(UPPER$(a$),1)="Y" THEN GOSUB 58
55 cheat$="C32202":GOSUB 58:RETURN
56 GOSUB 58
57 RETURN
58 L=LEN(cheat$):FOR t=1 TO L STEP 2:t$=MID$(cheat$,t,2):p=VAL("&"+t$)
59 POKE i,p:i=i+1:NEXT:RETURN
60 FOR x=1 TO LEN(ask$):PRINT MID$(ask$,x,1);" ";:SOUND 1,ASC(MID$(ask$,x,1))+100,1:SOUND 2,ASC(MID$(ask$,x,1))+200,1:NEXT:PRINT" ";:RETURN
61 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
62 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,F3,31,00,C0
63 DATA 01,C0,7F,ED,49,CD,37,BD,06,00,11,00,10,CD,77,BC,EB,CD,83,BC,E5,CD
64 DATA 7A,BC,3E,C3,21,D0,BE,32,16,BD,22,17,BD,C9,F3,01,00,F6,ED,49,3E,C9
65 DATA 32,33,A5,CD,0C,A5,DD,21,AB,A7,11,00,01,CD,BC,A5,21,F1,BE,22,54,A8
66 DATA C3,E8,A7,F3,21,80,BE,22,6B,AC,C3,00,AC
67 DATA "How Many Fouls For Player 1 ",3E05322915
68 DATA "How Many Fouls For Player 2 ",3E05322A15
69 DATA "Do You Wish To Move Onto The Next Championship When You've Used Up Your Fouls",21000022741522E51522CE2A
70 DATA 54321,C32202
100 i=TIME+450:WHILE i>TIME:WEND
110 PAPER 1:PEN 3:LOCATE 10,24:PRINT "HIT SPACE TO PROCEED"
120 WHILE INKEY$<>" ":WEND
130 RETURN
