MOG MOG BAS. D+:'"**********************************"+:'"* *"+:'"* MOG MOG *"+:'"* *"+:'"* P: K.O *"+:'"* *"+:'"* C (C) 1984 B-SOFT *"+:'"* *"+ :'"**********************************"* :::`:"V15":"CRT:M1"8 [@] ,H,"N L",,8 []p, ,"MOG MOG ",@,@n [] , ,,f:[]H,(:',,b:p,,,j=[@]*,,"(C) B-SOFT 1984",,/CMT: "MOG.OBJ": ̦,:: ͦ,': af ,: ,: ,: @,p:Ip:I,@:G PE(),RL(),GL(),GH(),Z(),CC( )NO: @ Z() :Z() Z(@)>:Z()| Z( )H:Z(@)"Z(`)#Z()w$Z()!2I:PE(I):N3PE(`):PE(@) :PE()PE(`):PE()PE(@)"4RL()p:RL()"5GH():GH()"6GL()`:GL()"7CC()P:CC()"8CC(@)@:CC( )"9CC():CC(@) : p;X:Y`:MA :NA:MB :NB :MC@:NC`:PP:OK:GG<NU@:NO A ' D: X F n:'MAIN RUTINEIA(Z):X1X:Y1Y:GAMA:HANA:GBMB:HBNB:GCMC:HCNC:A CX0X:Y0Y: N:A AAZ()YY: + X1,Y1:" ";:X0X:Y0Y:CHPE(A): R;B(()@):B X, : *: b: : :'*MOGMOG*&A A A@4XX(A`)(A)(A)(A@)YY(A)XX(X)(X)XX(X)(X)Y X  Y Y:YY(Y8)(Y8)8X0X:Y0Y: N:AAZ(`) N:“AAZ() >!A AAZ() ,:,:N:'*WARPMOG*{OX1,Y1:" ";:X0X:Y0Y:CHPE(): R: :"S8M1L0O6A1BCDE":Y0Y:X0X:CHCC(): R:H:X,Y:" ";cPX(()p):Y(()p):X0X:Y0Y: N:AAZ() P@QX0X:Y0Y:CHCC(): R:"ABCDE":p:X,Y:" ";RX:'*RED LEG*]W1(()):bMAX NAY 1dW1 XMAMAMA:R: 1gW1@ XMAMAMA:R: "vNANA(W1)(W1)X0MA:Y0NA: N:AAZ(@) AAZ() AAZ( ) AAZ(@) AAZ()MAGA:NAHA:W1(())GA,HA:" ";"MAMA(MA)(MA)"MAMA(MA)(MA)"NANA(NA)(NA)"NANA(NA8)(NA8)MAX NAY X0MA:Y0NA:CHRL(R): R:'*GREEN LEG*W2(()):MBX NBY L(W2 NBYNBNB: (W2@ NBYNBNB: *W2MBMB:G: %W2MBMB:GX0MB:Y0NB: N:AAZ() AAZ() AAZ(@) AAZ() AAZ()MBGB:NBHB:W2(())GB,HB:" ";"MBMB(MB)(MB)"MBMB(MB)(MB)"NBNB(NB)(NB)"NBNB(NB8)(NB8) MBX NBY L X0MB:Y0NB:CHGL(G): R  :'*GHOST* *MCXMCMC:O /MCXMCMC:Ot0X0MC:Y0NC: N:AAZ() AAZ() AAZ( ) AAZ(@) AAZ() AAZ()MCGC4NCNC(NCY)(NCY)t;X0MC:Y0NC: N:AAZ() AAZ() AAZ( ) AAZ(@) AAZ() AAZ()NCHCmMCX NCY ,oGC,HC:" ";:X0MC:Y0NC:CHGH(O): Rp:'*PRESENT*PPPPX1,Y1:" ";X,Y:" ";"O5S8M1C2D";"O6S8M1E2D"PPNOOKSCSCNOpCSC$(SC):SC$("0000"SC$"0",@):(,:SC$;SCz GG 5GG:NUNU:"S8M1O5C2D";"S8M1O6C2D"  p:'*EXPLOSIONGREENLEG**X0MA:Y0NA:CH: U"O6S0M1L0EFCE7" pI@%CH: U )H*CH : U.H: 8 L:'*EXPLOSIONGREENLEG**VX0MB:Y0NB:CH: Ul"O6S0M1L0EFCE7" t@~I@CH: U  CH : U :  :'*GOTOHEAVEN*8X1,Y1:" ";:Y0Y:X0X:CHPE(): R: !X0X:Y0Y:CHCC( ): R\"S8M1O5G3R0G3R0G3R0O4B3R0B3R0B3R0O5D3R0C6";"S8M1O4G3R0G3R0G3R0O3B3R0B3R0B3R0O4D3R0C6"X,Y:" "; C2CC(@):C3CC(@)X0X:Y0Y: NwAAZ()C1RL():“AAZ()C1RL():“AAZ(@)C1GH():“AAZ()C1GH()wAAZ( )C1GL():“AAZ(@)C1GL():“AAZ(`)C1CC():“AAZ()C1CC(@)=AAZ()C1CC(@):“AAZ()C1CC()LX0X:Y0Y:CHCC(): R:X0X:Y0Y:CHCC( ): R+X0X:Y0Y:CHC3: R:"O5C1D";"O4C1D"IYY:Y@ :C3C2:C2C1:X0GC:Y0HC:CHGH(O): R: 8X0X:Y0:CHC2: R:Y0 :CHC1: R: :'*DEATH* NUNU:NU  : D:'*GAMEOVER*?CHCC(@):Y0`p:X0@: R::/I`:`,I:(H);:6[] ,*,"GAME OVER",,6[]",,,"GAME OVER",,.$,.,"GAME OVER",,"O4C3DE";"O5C3DE"z: OK X1,Y1:" ";#NUNU: p:NUNU"S8M1O5A5R0G2R0A5R0G2R0A5R0G2R0A2R0B2R0+C2R0D2R0E5R5C2R0-G2R0+C5R5-G2R0E2R0G5R5D2R0E2R0C5";"S8M1O3A5R0G2R0A5R0G2R0A5R0G2R0A2R0B2R0+C2R0D2R0E5R5C2R0-G2R0+C5R5-G2R0E2R0G5R5D2R0E2R0C5"I NO PSCSC :SC$(SC):SC$("0000"SC$"0",@):(,:SC$;"O6E0";"O4E0": SCz 4NONO:: D :'*ENDING1* SCHSHSSC:  s I8:,I:( );::,@:();:X0:Y0@:CHCC(@): R CHCC(@):Y0:X0: R::Y0 8:X0: R:X0: R::Y0@:X0: R:  ,H,"TRY AGAIN ?",,:,H,"TRY AGAIN ?",,:[]\,,"[Y/N]",,:[]X,,"[Y/N]",,X S$:S$"Y" S$"" :“S$"N" S$"":,:"THE END ";:::€ , SC:NO:GG:NU@ D :'*HISCORE*s! I8:,I:( );::,@:();:X0:Y0@:CHCC(@): R& Y0:CHPE():X0: R::Y0 8:X0: R:X0: R::Y0@:X0: R:5+ ,:,:,:,:()P0 HS$("0000"(HS)"0",@): ,: HS$;:"O6C3DE";"O4C3DE" : N D I`: A$: I, ,A$,,:"O5A3";"O6A2R5";"O4A2":I:[]P,","CONGRATULATION",,: "N C,O,N,G,R,A,T,U,L,A,T,I,O,NBX X0`:Y0:CH: Y:X0: Y:X0@: Y1Z []H, ,\,>,b "O4D2E";"O3D2E":HBc X0`:Y0:CH: Y:X0: Y:X0@: Y(l "O3G5R1E4R1F2R1";"O5G5R1E4R1F2R1"Bm X0`:Y0:CH@: Y:X0: Y:X0@: Yv "G5R0C3R1";"G5R0C3R1"Bw X0`:Y0:CH: Y:X0: Y:X0@: Y "D3EFGR0";"D3EFGR0"B X0`:Y0:CH: Y:X0: Y:X0@: Y "F4R0E4R0D4";"F4R0E4R0D4"B X0`:Y0:CH@: Y:X0: Y:X0@: Y< "O2G2R0A2R0G2R0F2R0E2R0D2";"O4G2R0A2R0G2R0F2R0E2R0D2"B X0`:Y0:CH: Y:X0: Y:X0@: Y@ "O5E2R0F2R0G2R0A3R0G5R0G5R0";"O3E2R0F2R0G2R0A3R0G5R0G5R0"B X0`:Y0:CH: Y:X0: Y:X0@: Y$ "O6C7R0O5G7R0";"O4C7R0O3G7R0"B X0`:Y0:CH@: Y:X0: Y:X0@: Y$ "F5R0E5R0D6R2";"F5R0E5R0D6R0"B X0`:Y0:CH: Y:X0: Y:X0@: Y "C3R0C7";"C3R0C7"B X0`:Y0:CH: Y:X0: Y:X0@: Yz::'*TITLE* : X6 ,:,:,@:,:() ()+X0:Y0@:CHCC(): R$X0:Y0@:CH: R :X:Y  : h0CHPE():Q:Q`X0X1:Y0Y1: R+X1X:Y1Y:X0X:Y0Y:CHPE(): R-Q LE:“Q@LE"XX(Q)(Q)6YY(Q@)(Q)XJX1,Y1:LE" ";: ,:“LEX0X1:Y0Y1:CHCC(): R T #h Ip :I,:r"O6E2R4E2R1D1R0C2R4C4R2D1R4D3R3E2R2D1R0C1R4G2R4G2R1F2R0E1R4E4R0D2R0C2R1D1R1E0R1C4";"O4E2R4E2R1D1R0C2R4C4R2D1R4D3R3E2R2D1R0C1R4G2R4G2R1F2R0E1R4E4R0D2R0C2R1D1R1E0R1C4":Z :  : @,:[@]" C";:`,:[]"1984";:H, :" B-SOFT";:"O6D1EF";"O4D1EF":  +X0:Y0:CHCC(): R/X0:Y0@:CH: R:"O4C1D1"Kz::'SYMBOL45,128,"JOYSTICK PLAY ",1,2::'SYMBOL72,152,"[Y/N]",1,2C:'SYMBOL46,128,"JOYSTICK PLAY ",1,2::'SYMBOL73,152,"[Y/N]",1,2:'"GETS$:'IFS$=""THEN4290"E:'IFS$="Y" OR S$=""THENZ=1ELSEIFS$="N" OR S$=""THENZ=0ELSE4290H: ;6,4,4,4,4,1,5,1,1,1,4,4,4,4,2,2,2,3,3,1,1,6,1,5,1,6,3,3,1,5,1,1,1,4,4,4,4,2,2,2,3,3,3,3,1,1,1,1,6,1,4,5,4,4,4,1,6,1,5,3,3,3,3,2,1,1,1,4,4,4,4,1,6,1,1,3,3,3,35,1,1,1,4,4,4,4,2,2,2,3,3,1,1,6,1,5,1,6,3,3,1,5,1,1,1,4,4,4,4,2,2,2,3,3,3,3,1,1,1,1,6,1,4,5,4,4,4,1,6,1,5,3,3,3,3,2,1,1,1,4,4,4,4,4,75,3,4,6,4,4,4,4,4,4,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,5,2,2,2,2,2,2,2,2,2,2,2,3,1,1,1,1,1,1,1,1,1,1,1,3,2,2,2,2,2,2,2,2,2,2,2,2,6,7%3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,7:'*OPENNINGfX:Y`:MA :NA:MB :NB :MC@:NC`:PP:OK  @ ()!@,`:();!8,`:(P);!,:( );" , :( );(I 8:X,I:" ";:I DC1(()):C2(())%Y0C2:X0C1:CHCC(): R:PINOyZC1(()):C2(()):(C1MA C2NA)(C1MB C2NB)(C1MC C2NC) Z']X0C1:Y0C2: N:AAZ() Z*_"S0M5O6C3A";"S0M5O5C3A";"S0M5O6F3A"%dX0C1:Y0C2:CHCC(@): R:5|,:,:,@:,:()5, :,:,0:,:()DSC$(SC):SC$("0000"SC$"0",@): (,:SC$;5,:,:,:,:()DHS$(HS):HS$("0000"HS$"0",@):  ,:HS$;5,`:,:,0:,:()>NO$(NO):NO$("00"NO$,): p,:NO$;$NUNU: p:NUNU1 p:X0:Y0:CHPE(): R3X0:CHPE():Y0`: R "O5G1",Y0:" ";:Y0`: RlD"S8M1O5G2R0E2R0C2R3C2R3C2R0D1R0E2R0F2R0G2R3G2R3G5";"S8M1O3G2R0E2R0C2R3C2R3C2R0D1R0E2R0F2R0G2R3G2R3G5"z:p:'*PUTMOGNUMBER9zNUY0@:CH:X0 : R:ONU@Y0@:CH:X0 : R::X0:CH: RONUY0@:CH:X0: R::X0 :CH: R9NUY0@:CH:X0 : R:X:'*LINEBOX2b [],,,p,+l [@],x,,x:vI@:[@]I,`,I,x:2 [] ,X,,p,@:'*BLOCKPATTERNXJTI(NO `):TI , , , , , , , , , ,  ,  ,  , & &CC()0:Z()U: ]&CC():Z(): ]&CC()@:Z()*: ]&CC()P:Z()T: ]&CC()`:Z()*: ]&CC()p:Z(): ]&CC():Z()3: ]&CC():Z(): ]&CC():Z()U: ]&CC():Z()*: ]& CC():Z()U: ]& CC():Z()U: ]& CC() :Z(): ]&& CC():Z()3: ]':'*EXPLANATION*''[] ,p,"MOG MOG", ,:(,x,"MOG MOG", ,:[]0,,"MOG MOG", ,4' []>, ,"[Y/N]",@,@w' [],,,G:[] , ,,B:[@] , ,,=b' ,*,"D ",,:p,R," ?",,K ' A$:A$"" ' : A$"Y" A$"" $' : A$"N" A$"" D !' '$':CH:Y0:X0: R::Y08:X0: R:X0: R::Y0@: X0: R:$.'X0 :Y0@:CH: Y8'X0: Y7=',:[]"E "2B'`,@:"T MOGMOG,"7G',`:" , "4L' ,:" PRESENT")Q'0,:" ."V'H,0:" ";`'H,@:" ^";j'H,P:" ";"t'H,`:" ";"~'H,p:"_ ";"'H,:" ";X'`,`:[@]"[ KEY FUNCTION ]";:X0h:Y0p:CHPE(): R8',:[]"MOGMOG "4' ,:[]" .""'p,(:"H S";'"O4": *':CHGH():Y0: X0: R::Y08:X0: R:X0: R::Y0@:X0: R:>'X0 :Y0:CH: Y:,`:"GHOST";H'X0 :Y0 :CH: Y:@,P:[]"RED LEG";I(X0 :Y0:CH: Y:,:[]"BLUE LEG";/ (p,:"GHOST "-(`, :" "(`,@:"MOGMOG."7(p,:[@]"GHOST "8(`,:[@]" , "4(`, :[@]" "'((`,0:[@]"MOGMOG."4-(p,P:[@]"LEG -"72(`,`:[@]" "77(`,p:[@]" . W"8<(`,:[@]" MOGMOG "5A(`,:[@]" "/F(`,:[@]" MOGMOG.""Z(,(:"H S";n("O2": *(:CHCC(@):Y0:X0: R::Y08:X0: R:X0: R::Y0@:X0: R:E(@,:[]"MOGMOG ";:" "?(, :" ";:[]"WARP STONE."8(@,`:"I ")(,:[]"PRESENT.";(@, :"E ,"N(,0:" ";:[]"PRESENT ";:" ."K(@,P:"W ";:[]"5,000 ";:"">(,`:" ";:[]"MOGMOG ";:" ."N(X0@:Y0:CHCC(): R:P,:"... WARP STONE";K(X0@:Y0:CHCC(@): R:P,:"... PRESENT";R(X0 :Y0(:CHRL(): R:X0p:Y0(:CHGL(): RF(:'"X0=26:Y0=5:CH=CC(0):GOSUB21000:X0=13:Y0=8:CH=CC(3):GOSUB21000""(,(:"H S";)"O3": *R6)I :I, ::p,@:t,:x, h) D*:'*EXPLANTION* + 2 +A$:A$"Q" 2: +4+t,:x,:|,+A$"V15"A$: A$ +S$:S$" "*+ : +52F2,F2,D2,C2,F2,C2,D2,E2,F2,F2,D2,C2,F2,C2,D2,E272G2,G2,E2,D2,G2,D2,E2,F2,G2,G2,E2,D2,G2,D2,E2,F2,Q N:'*CHRCUTERCHECK*N,Y0:,X0 4N()>NAA():R:'*CHRCUTERPUTR ,Y0: ,X0CRCC$(CH):C6("$"(CC$,)):C5("$"(CC$,))R,C6:,C5 &R()0RU:'*CHR3*3PUTU,Y0:,X0CUCC$(CH):C6("$"(CC$,)):C5("$"(CC$,))V,C6:,C5 V()VY:'*CHR2*2PUTY,Y0:,X0CYCC$(CH):C6("$"(CC$,)):C5("$"(CC$,))Y,C6:,C5 Y( )Z]:'*PUTTILEADDK]CC$(CC()):C6("$"(CC$,)):C5("$"(CC$,))] L,C6: M,C5]a a BREAK a