40R$=CHR$131+CHR$157+CHR$129:E$=CHR$156
50MODE7
60FORL=1TO2:PRINTTAB(0);:VDU132,157,131,141:PRINT"U.I.M. Cheat by C.J.Richardson   ";:VDU156:PRINT:NEXT
70PRINTTAB(9,4)R$+"PLEASE CHOOSE  "+E$
80PRINTTAB(7,6)R$+"1. B.B.C.  Version  "+E$TAB(7,8)R$+"2. MASTER  Version  "+E$:REPEATa$=GET$:UNTILa$="1"ORa$="2"
90IF a$="1"PRINTTAB(5,10)R$+"B.B.C.  Version chosen  "+E$:a%=&3FC8:b%=&3FC7:c%=&20:d%=&1B32:e%=&1B61:f%=&16D3 ELSE PRINTTAB(5,10)R$+"Master  Version chosen "+E$:a%=&3FB3:b%=&3FB2:c%=&10:d%=&1B2C:e%=&1B5B:f%=&16D0
100PRINTTAB(0,12)R$+"Insert UIM disc then press space  "+E$
110REPEAT:UNTILGET
120PRINTTAB(1,14)R$+"1. Short flight between ports  "+E$
130PRINTTAB(0,16)R$+"2. Above + all objects near you  "+E$TAB(0,18)R$+"( Includes port ) No submarines  "+E$TAB(13,20)R$+"1/2 ?  "+E$:REPEAT:b$=GET$:UNTIL b$="1" OR b$="2"
140loc=&100:r=&2000:?&5000=0
150FORI%=0TO2STEP2
160P%=r
170[:OPTI%
180LDA#inter MOD256:STA&220
190LDA#inter DIV256:STA&221
200LDA#14:LDX#4:JSR&FFF4
210RTS:]:P%=loc:[:OPT I%
220.inter:PHP:PHA:TXA:PHA:TXA:PHA:LDAa%:CMP#&86:BNE scnd
230LDAa%:CMP#&86:BNEout:LDA#&FF:STAb%:BNE out \All objects on top of you
240.scnd:LDA&5000:CMP#c%:BNEout
250LDY#0:.n:LDA#&EA:STAd%,Y:INY:TYA:CMP#27:BNEn:LDY#0:.o:LDA#&EA:STAe%,Y:INY:TYA:CMP#12:BNEo \ Short flight
260LDA#&60:STAf% \ No aliens
270LDA#13:LDX#4:JSR&FFF4
280.out:PLA:TAY:PLA:TAX:PLA:PLP:RTS
290]:NEXT:CALLr
300IF b$="1":?&115=0:FORL=&13CTO&140:?L=&EA:NEXT
310IF a$="2" CHAIN"$.UIM-1"
320OSCLI"*K.0LO.""UIM-1""|M150T%=1|MRUN|M":OSCLI"FX138,0,128":END:REM This is to run BBC on Master