Home » Personal collection » Acorn ADFS disks » Electron » Cheat_finder.ADF » Rep2compr/MW2

Rep2compr/MW2

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron » Cheat_finder.ADF
Filename: Rep2compr/MW2
Read OK:
File size: 24C9 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents
   10REM 'Mecha-Worm'
   20REM By C.Dunkley
   30REM
   40MODE6
   50W%=182580
   60PROCcrtc6845
   70PROCsetup
   80REPEAT
   90PROCinst
  100REPEAT
  110PROCscreen
  120IFU%PROCmove2 ELSEPROCmove
  130IFN%PROCoops ELSEPROCbonus
  140UNTILL%=0
  150IFS%>W%W%=S%:PROCmessage(6,"NEW HI-SCORE")
  160PROCwait
  170PROCoff
  180CLS
  190UNTIL0
  200END
  210:
  220DEFFNf(P%,X%):=RIGHT$("00000"+STR$P%,X%)
  230:
  240DEFPROCmove
  250REPEATFORM%=1TOR%:NEXT:IFINKEY-99PROCpause
  260IFINKEY-17:*FX210 1
  270IFINKEY-82:*FX210
  280IFINKEYC%D%=4
  290IFINKEYB%D%=1
  300IFINKEYJ%D%=3
  310IFINKEYG%D%=2
  320A%=H%:H%=H%+1:IFH%=101H%=1:A%=100
  330X%(H%)=X%(A%)+(D%=2)-(D%=3):Y%(H%)=Y%(A%)+(D%=1)-(D%=4)
  340IFX%(H%)=40X%(H%)=0 ELSEIFX%(H%)<0X%(H%)=39
  350IFY%(H%)=0Y%(H%)=22 ELSEIFY%(H%)=23Y%(H%)=1
  360P%=S%(X%(H%),Y%(H%)):C%(H%)=32:IFP%=32GOTO480
  370IFP%<11PROCname:GOTO480
  380IFP%=225SOUND0,-6,4,1:C%(H%)=226:GOTO480
  390IFP%=224SOUND0,-4,4,1:C%(H%)=225:GOTO480
  400IFP%=244SOUND1,2,10,3:R%=R%DIV2:GOTO480
  410IFP%=247PROCmunch:GOTO480
  420IFP%=245SOUND1,2,20,3:R%=R%+R%DIV12:GOTO480
  430IFP%=246SOUND1,2,30,3:A%=B%:B%=C%:C%=A%:A%=G%:G%=J%:J%=A%:GOTO480
  440IFP%=46SOUND0,3,0,1:PROCscore(50):I%=1:Z%=Z%+1:N%=N%-1:PROCempty(R%(RND(21))):GOTO480
  450IFP%=43SOUND1,3,10,1:PROCscore(100):GOTO480
  460IFP%>225IFP%<231SOUND0,-9,4,2:N%=-1:GOTO500
  470IFP%=248PROCpowerup:IFN%<=0GOTO500
  480IFP%=224PROCput(X%(H%),Y%(H%),P%)ELSEPROCput(X%(H%),Y%(H%),D%+226)
  490IFI%=1I%=0 ELSEPROCput(X%(T%),Y%(T%),C%(T%)):T%=T%+1:IFT%=101T%=1
  500UNTILN%<=0
  510ENDPROC
  520:
  530DEFPROCpowerup
  540FORX%=1TO5
  550PRINTTAB(20,0)"      "
  560SOUND1,-9,X%,1
  570SOUND2,-8,X%*2,1
  580PRINTTAB(20,0)"PWR:30"
  590NEXT
  600PROCput(X%(H%),Y%(H%),D%+226)
  610PROCput(X%(T%),Y%(T%),C%(T%))
  620E%=31:T%=T%+1:IFT%=101T%=1
  630REPEAT
  640E%=E%-1:IFE%=5SOUND1,-15,1,2:SOUND1,-15,4,2:SOUND1,-15,16,2
  650PRINTTAB(24,0)FNf(E%,2)
  660IFINKEYC%D%=4
  670IFINKEYB%D%=1
  680IFINKEYJ%D%=3
  690IFINKEYG%D%=2
  700A%=H%:H%=H%+1:IFH%=101H%=1:A%=100
  710X%(H%)=X%(A%)+(D%=2)-(D%=3)
  720Y%(H%)=Y%(A%)+(D%=1)-(D%=4)
  730IFX%(H%)=40X%(H%)=0 ELSEIFX%(H%)<0X%(H%)=39
  740IFY%(H%)=0Y%(H%)=22 ELSEIFY%(H%)=23Y%(H%)=1
  750P%=S%(X%(H%),Y%(H%)):C%(H%)=32
  760IFP%=46SOUND0,3,0,1:I%=1:Z%=Z%+1:N%=N%-1
  770IFP%>226IFP%<231SOUND0,-9,4,2:N%=-1:GOTO830
  780PROCput(X%(H%),Y%(H%),D%+226)
  790IFI%=1I%=0:GOTO830
  800IFE%=0GOTO830
  810PROCput(X%(T%),Y%(T%),C%(T%))
  820T%=T%+1:IFT%=101T%=1
  830UNTILN%<=0ORE%=0
  840PRINTTAB(20,0)"      "
  850ENDPROC
  860:
  870DEFPROCmove2
  880REPEAT
  890IFINKEYC%D%=4
  900IFINKEYB%D%=1
  910IFINKEYJ%D%=3
  920IFINKEYG%D%=2
  930A%=H%:H%=H%+1:IFH%=101H%=1:A%=100
  940X%(H%)=X%(A%)+(D%=2)-(D%=3)
  950Y%(H%)=Y%(A%)+(D%=1)-(D%=4)
  960IFX%(H%)=40X%(H%)=0 ELSEIFX%(H%)<0X%(H%)=39
  970IFY%(H%)=0Y%(H%)=22 ELSEIFY%(H%)=23Y%(H%)=1
  980P%=S%(X%(H%),Y%(H%)):C%(H%)=32
  990IFP%>225SOUND0,-9,4,2:N%=0:GOTO1060
 1000IFP%=46SOUND0,3,0,1:PROCscore(100):I%=1:Z%=Z%+1:PROCempty(46):PROCempty(226)
 1010PROCput(X%(H%),Y%(H%),D%+226)
 1020IFI%=1I%=0:GOTO1060
 1030PROCput(X%(T%),Y%(T%),C%(T%))
 1040T%=T%+1:IFT%=101T%=1
 1050IFZ%=100N%=0
 1060UNTILN%<=0
 1070ENDPROC
 1080:
 1090DEFPROCname
 1100COLOUR129:COLOUR0
 1110SOUND1,3,100,1
 1120PRINTTAB(14+P%,23)MID$(NAME$,P%,1);
 1130GOT$=LEFT$(GOT$,P%-1)+MID$(NAME$,P%,1)+RIGHT$(GOT$,10-P%)
 1140COLOUR128:COLOUR1
 1150IFGOT$<>NAME$ENDPROC
 1160GOT$="0123456789"
 1170FORM%=1TO5
 1180COLOUR129:COLOUR0
 1190PRINTTAB(15,23)NAME$
 1200SOUND0,-8,2,1
 1210SOUND1,-10,M%*10,1
 1220SOUND2,-11,M%*14,1
 1230COLOUR128:COLOUR1
 1240PROCscore(1000)
 1250PRINTTAB(15,23)NAME$ 
 1260FORX%=1TO25:NEXT
 1270SOUND0,0,0,0
 1280NEXT
 1290ENDPROC
 1300:
 1310DEFPROCmessage(Y%,S$)
 1320PRINTTAB(12,Y%-1)STRING$(16,CHR$224)
 1330PRINTTAB(12,Y%)CHR$224" "S$" "CHR$224
 1340PRINTTAB(12,Y%+1)STRING$(16,CHR$224)
 1350ENDPROC
 1360:
 1370DEFPROCmunch
 1380SOUND1,2,20,3
 1390IFZ%=2ENDPROC
 1400FORX%=3TOZ%
 1410PRINTTAB(X%(T%),Y%(T%))CHR$224
 1420SOUND1,-9,X%,1
 1430FORM%=1TO30:NEXT
 1440PROCput(X%(T%),Y%(T%),C%(T%))
 1450T%=T%+1
 1460IFT%=101T%=1
 1470NEXT
 1480Z%=2
 1490ENDPROC
 1500:
 1510DEFPROCerase(I%)
 1520FORX%=1TOZ%
 1530PROCscore(I%)
 1540PRINTTAB(X%(T%),Y%(T%))CHR$224
 1550SOUND0,-10,2,2
 1560SOUND1,-8,X%,1
 1570FORM%=1TO40:NEXT
 1580PRINTTAB(X%(T%),Y%(T%))CHR$(C%(T%))
 1590SOUND0,0,0,0
 1600FORM%=1TO150:NEXT
 1610T%=T%+1
 1620IFT%=101T%=1
 1630NEXT
 1640ENDPROC
 1650:
 1660DEFPROCscore(V%)
 1670S%=S%+V%
 1680PRINTTAB(3,0);FNf(S%,6)
 1690IFS%>=Q%SOUND1,1,100,4:L%=L%+1:Q%=Q%+50000:IFL%<4PRINTTAB(9+L%,0)CHR$227
 1700ENDPROC
 1710:
 1720DEFPROCbonus
 1730PROCerase(50)
 1740FORM%=1TO1000:NEXT
 1750PROCmessage(12,"BONUS:000000")
 1760FORN%=1TOF%*2
 1770PROCscore(100)
 1780PRINTTAB(20,12)FNf(N%*100,6)
 1790SOUND0,-8,2,1
 1800SOUND1,-8,N%,1
 1810FORM%=1TO150:NEXT
 1820SOUND0,0,0,0
 1830NEXT
 1840F%=F%+1
 1850ENDPROC
 1860:
 1870DEFPROCoops
 1880L%=L%-1
 1890PROCerase(5)
 1900IFL%=0PROCmessage(12," GAME  OVER ") ELSEPROCmessage(12,"   OOPS !   ")
 1910ENDPROC
 1920:
 1930DEFPROCscreen
 1940TIME=0
 1950IFU%<>1PROCzero(1,22):REPEATUNTILTIME>155
 1960PROCoff
 1970U%=FALSE
 1980IFF%MOD5=0U%=TRUE
 1990PRINTTAB(0,1);
 2000FORY%=1TO11
 2010PRINTSPC(80);
 2020NEXT
 2030PRINTTAB(0,0)"SC:"FNf(S%,6)"     FR:"FNf(F%,2)SPC(12)"HI:"FNf(W%,6)
 2040N%=L%:IFL%>3N%=3
 2050FORM%=1TON%
 2060PRINTTAB(9+M%,0)CHR$227
 2070NEXT
 2080IFF%=1PRINTTAB(15,23)NAME$;
 2090PRINTTAB(1,23)STRING$(13,CHR$240)CHR$241TAB(25,23)CHR$242STRING$(13,CHR$240)
 2100PROCput(10,10,229)
 2110PROCput(11,10,229)
 2120T%=1:H%=2
 2130X%(1)=10:Y%(1)=10
 2140X%(2)=11:Y%(2)=10
 2150C%(1)=32:C%(2)=32
 2160D%=3
 2170I%=0
 2180N%=3+F%*3
 2190IFN%>98N%=98
 2200Z%=2
 2210FORM%=1TON%
 2220PROCempty(46)
 2230NEXT
 2240R%=K%-F%*K%/50
 2250IFR%<0R%=0
 2260B%=-66
 2270C%=-98
 2280G%=-103
 2290J%=-104
 2300IFU%PROCmessage(12,"BONUS  ROUND")
 2310PROCon
 2320IFU%PROCflash
 2330PROCwait
 2340ENDPROC
 2350:
 2360DEFPROCflash
 2370FORM%=5TO35
 2380PRINTTAB(14,12)"            "
 2390SOUND0,-8,2,1
 2400SOUND1,2,M%,1
 2410PRINTTAB(14,12)"BONUS  ROUND"
 2420SOUND0,0,0,0
 2430FORY%=1TO20:NEXT
 2440NEXT
 2450FORY%=11TO13
 2460PRINTTAB(12,Y%);
 2470FORX%=12TO27:VDUS%(X%,Y%):NEXT,
 2480ENDPROC
 2490:
 2500DEFPROCpause
 2510PROCmessage(12,"   PAUSED   ")
 2520PROCwait
 2530FORY%=11TO13:PRINTTAB(12,Y%);:FORX%=12TO27:VDUS%(X%,Y%):NEXT,
 2540PRINTTAB(12,Y%);
 2550ENDPROC
 2560:
 2570DEFPROCwait
 2580REPEATUNTILINKEY$0=""
 2590REPEATUNTILINKEY$0<>""
 2600ENDPROC
 2610:
 2620DEFPROCempty(V%)
 2630REPEAT
 2640X%=RND(40)-1:Y%=RND(22)
 2650UNTILS%(X%,Y%)=32
 2660IFV%<>1PROCput(X%,Y%,V%):ENDPROC
 2670V%=RND(10)
 2680COLOUR129:COLOUR0
 2690PRINTTAB(X%,Y%)MID$(NAME$,V%,1)
 2700COLOUR128:COLOUR1
 2710S%(X%,Y%)=V%
 2720ENDPROC
 2730:
 2740DEFPROCput(X%,Y%,V%)
 2750PRINTTAB(X%,Y%)CHR$V%
 2760S%(X%,Y%)=V%
 2770ENDPROC
 2780:
 2790DEFPROCsetup
 2800M%=RND(-TIME)
 2810ENVELOPE1,1,3,-90,1,1,-2,-3,100,0,0,-100,100,100
 2820ENVELOPE2,1,1,-2,1,7,5,12,100,0,0,-100,100,100
 2830ENVELOPE3,1,0,0,0,10,10,10,100,-4,-1,-4,100,0
 2840ENVELOPE4,3,0,0,0,0,0,0,60,-5,-1,-3,75,60
 2850DIMS%(39,22),X%(100),Y%(100),C%(100),R%(21)
 2860VDU23;8202;0;0;0;
 2870VDU23,225,84,170,84,170,84,170,84,170
 2880VDU23,226,254,254,254,254,254,254,254,254
 2890VDU23,224,24,60,126,255,255,126,60,24
 2900VDU23,227,0;0;24,60,126,255
 2910VDU23,229,128,192,224,240,240,224,192,128
 2920VDU23,228,1,3,7,15,15,7,3,1
 2930VDU23,230,255,126,60,24,0;0;
 2940VDU23,231,49,70,152,163,47,73,91,155
 2950VDU23,232,140,98,25,197,244,50,90,89
 2960VDU23,233,155,91,73,47,163,152,70,49
 2970VDU23,234,89,90,50,244,197,25,98,140
 2980VDU23,240,0;0;255,0,0;
 2990VDU23,241,0,4,12,28,252,28,12,4
 3000VDU23,242,0,32,48,56,63,56,48,32
 3010VDU23,244,0,124,124,96,120,96,96,0
 3020VDU23,245,0,124,124,64,124,4,124,0
 3030VDU23,246,0,120,124,100,120,108,100,0
 3040VDU23,247,195,231,66,24,24,66,231,195
 3050VDU23,248,0,124,124,100,124,96,96,0
 3060FORX%=1TO5
 3070R%(X%)=226
 3080NEXT
 3090FORX%=1TO4
 3100R%(X%+5)=225
 3110R%(X%+9)=224
 3120NEXT
 3130R%(14)=43
 3140R%(15)=244
 3150R%(16)=244
 3160R%(17)=246
 3170R%(18)=247
 3180R%(19)=245
 3190R%(20)=1
 3200R%(21)=248
 3210U%=1
 3220C$=CHR$231+CHR$232+CHR$8+CHR$8+CHR$10+CHR$233+CHR$234
 3230*FX200,1
 3240FORN%=1TO108
 3250IFINKEY$0<>""N%=108
 3260IFN%=9PROCtitles("C . D U N K L E Y")
 3270IFN%=42PROCtitles("P R E S E N T S")
 3280IFN%=58PROCtitles("for the BBC microcomputer")
 3290IFN%=76PROCtitles(CHR$228+" M E C H A - W O R M "+CHR$229)
 3300C%=ASC MID$("                                DEEFFAA::55::AAFF55555555555555::::::::????????88888888========66666666<<<< ",N%,1)-32
 3310B%=ASC MID$("HFHDHCHAH@HAHCHDH<H>H@HAH@HAHCHDMKMIMHMFMEMFMHMIMAMCMEMFMEMFMHMIFAFIFAFNKFKKFBFKHDHKHDHMIDIIDADIFBFIFBFHC@C<",N%,1)-32
 3320SOUND1,4,B%*4-30,3
 3330IFC%=0SOUND2,0,1,3 ELSESOUND2,4,C%*4-30,3
 3340NEXT
 3350K%=525
 3360NAME$="Mecha-Worm"
 3370ENDPROC
 3380:
 3390DEFPROCtitles(S$)
 3400K%=(40-LENS$)/2
 3410PROCoff
 3420PRINTTAB(0,12)SPC(120)TAB(K%,12);
 3430A%=10:X%=&70:Y%=0
 3440FORM%=1TOLENS$
 3450?&70=ASC MID$(S$,M%,1)
 3460IF?&70=32VDU32:GOTO3500
 3470CALL&FFF1
 3480VDU23,250,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74,250,8,10
 3490VDU23,250,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78,250,11
 3500NEXT
 3510IFN%=9PRINTTAB(1,1)C$TAB(37,1)C$TAB(1,22)C$TAB(37,22)C$TAB(9,15)"Dip.H.E., B.Sc.(Hons)":GOTO3550
 3520IFN%=42PRINTTAB(9,15)SPC(22)
 3530IFN%<>76PRINTTAB(K%-1,14)STRING$(LENS$+2,"_"):GOTO3550
 3540PRINTTAB(7,17)"the ultimate challenge..."
 3550PROCon
 3560ENDPROC
 3570:
 3580DEFPROCinst
 3590GOT$="0123456789"
 3600S%=0:L%=3:F%=1:U%=1
 3610Q%=50000
 3620PROCoff
 3630CLS
 3640PROCtitle
 3650PRINT
 3660PRINT" Collect the power pills, avoid the ACIDpools & your own tail."
 3670PRINT" You may go through the tunnels and overthe patches of grass."
 3680PRINT
 3690PRINT"SYMBOLS:"TAB(20)"CONTROLS:"
 3700PRINT"Mecha-Worm .... "CHR$229CHR$229CHR$229"  A"
 3710PRINT"Acid Pool ..... "CHR$226"   < > ....... Movement";
 3720PRINT"Tunnel ........ "CHR$224"    Z"
 3730PRINT"Grass ......... "CHR$225
 3740PRINT"100 pt BONUS .. +   SPACE BAR .... Pause";
 3750PRINT"Speed up ...... "CHR$244
 3760PRINT"Slow down ..... "CHR$245"   S/Q ... Sound ON/OFF";
 3770PRINT"Worm Munch .... "CHR$247
 3780PRINT"Reverse Keys .. "CHR$246
 3790PRINT"Power Up ...... "CHR$248
 3800PRINT"Power Pill .... ."
 3810PRINT"5000 pt BONUS . ";
 3820COLOUR129:COLOUR0
 3830PRINT"Mecha-Worm"
 3840COLOUR128:COLOUR1
 3850PROCzero(1,3)
 3860PROCon
 3870REPEATUNTILINKEY-99
 3880PROCzero(4,8)
 3890PROCoff
 3900CLS
 3910PROCtitle
 3920K%=1025-K%
 3930FORM%=1TOK%DIV25
 3940PRINTTAB(M%-1,10)CHR$229
 3950NEXT
 3960FORM%=0TO39
 3970PRINTTAB(M%,9)CHR$224
 3980PRINTTAB(M%,11)CHR$224
 3990NEXT
 4000FORM%=9TO39STEP10
 4010PRINTTAB(M%,11)CHR$227
 4020PRINTTAB(M%,9)CHR$230
 4030NEXT
 4040PRINTTAB(19,8)CHR$230
 4050PRINTTAB(19,12)CHR$227
 4060PRINTTAB(36,8)"Fast"
 4070PRINTTAB(0,8)"Slow"
 4080PRINTTAB(13,6)"Game Speed:"
 4090PRINTTAB(3,14)"Use < and > to adjust game speed."
 4100PRINT''"NOTE:"'
 4110PRINT" i) A Bonus Mecha-Worm is awarded for       every 50,000pts scored."
 4120PRINT"ii) Every fifth frame is a BONUS ROUND."
 4130PROCzero(9,11)
 4140PROCon
 4150REPEAT
 4160FORM%=1TO200:NEXT
 4170IFINKEY-103ANDK%>25PRINTTAB(K%DIV25-1,10)" ":K%=K%-25
 4180IFINKEY-104ANDK%<1000K%=K%+25:PRINTTAB(K%DIV25-1,10)CHR$229
 4190PRINTTAB(24,6)FNf(K%DIV25,2)
 4200UNTILINKEY-99
 4210K%=1025-K%
 4220PROCzero(12,15)
 4230PROCoff
 4240PROCzero(16,22)
 4250CLS
 4260ENDPROC
 4270:
 4280DEFPROCtitle
 4290PRINTTAB(5,24)CHR$224"Press SPACE BAR To Continue"CHR$224;
 4300PROCmessage(1," Mecha-Worm ")
 4310PRINTTAB(1,1)C$TAB(37,1)C$
 4320PRINTTAB(9,3)CHR$228"Written By C.Dunkley"CHR$229
 4330ENDPROC
 4340:
 4350DEFPROCon
 4360IF FNBeeb IFU%PROCvideoULA(1)ELSEPROCvideoULA(4)
 4370FORM%=0TO7
 4380IFM%DIV2=0:*FX19
 4390VDU19,1,M%;0;0;
 4400NEXT
 4410ENDPROC
 4420:
 4430DEFPROCoff
 4440IF FNBeeb PROCvideoULA(0)
 4450FORM%=7TO0STEP-1
 4460IFM%DIV2=0:*FX19
 4470VDU19,1,M%;0;0;
 4480NEXT
 4490ENDPROC
 4500:
 4510DEFPROCvideoULA(X%)
 4520IF NOT FNBeeb ENDPROC
 4530A%=155
 4540*FX19
 4550CALL&FFF4
 4560X%=X%+16:CALL&FFF4
 4570X%=X%+16:CALL&FFF4
 4580*FX19
 4590X%=X%+16:CALL&FFF4
 4600X%=X%+64:CALL&FFF4
 4610ENDPROC
 4620:
 4630DEFPROCcrtc6845
 4640IF NOT FNBeeb ENDPROC
 4650VDU23;4,38;0;0;0;
 4660VDU23;5,32;0;0;0;
 4670VDU23;7,30;0;0;0;
 4680VDU23;9,7;0;0;0;
 4690ENDPROC
 4700:
 4710DEFPROCzero(A%,B%)
 4720FORY%=A%TOB%:FORX%=0TO39:S%(X%,Y%)=32:NEXT,
 4730ENDPROC
 4740:
 4750DEF FNBeeb
 4760REM Add 'IF' statements as necessary to test machine type
 4770REM 1 - ELK
 4780REM 251 - B+
 4790REM ? - ARCH
 4800IFINKEY-256=1 =FALSE
 4810=TRUE

� 'Mecha-Worm'
� By C.Dunkley
�
(�6
2
W%=182580
<
�crtc6845
F
�setup
P�
Z	�inst
d�
n�screen
x�U%�move2 ��move
��N%�oops ��bonus
�	�L%=0
�*�S%>W%W%=S%:�message(6,"NEW HI-SCORE")
�	�wait
��off
��
��0
��
�:
� ݤf(P%,X%):=�"00000"+�P%,X%)
�:
�
��move
���M%=1�R%:�:�-99�pause
�-17:*FX210 1
�-82:*FX210
�C%D%=4
"�B%D%=1
,�J%D%=3
6�G%D%=2
@$A%=H%:H%=H%+1:�H%=101H%=1:A%=100
J;X%(H%)=X%(A%)+(D%=2)-(D%=3):Y%(H%)=Y%(A%)+(D%=1)-(D%=4)
T*�X%(H%)=40X%(H%)=0 ��X%(H%)<0X%(H%)=39
^*�Y%(H%)=0Y%(H%)=22 ��Y%(H%)=23Y%(H%)=1
h.P%=S%(X%(H%),Y%(H%)):C%(H%)=32:�P%=32�d`A
r�P%<11�name:�d`A
|%�P%=225�0,-6,4,1:C%(H%)=226:�d`A
�%�P%=224�0,-4,4,1:C%(H%)=225:�d`A
�"�P%=244�1,2,10,3:R%=R%�2:�d`A
��P%=247�munch:�d`A
�&�P%=245�1,2,20,3:R%=R%+R%�12:�d`A
�>�P%=246�1,2,30,3:A%=B%:B%=C%:C%=A%:A%=G%:G%=J%:J%=A%:�d`A
�J�P%=46�0,3,0,1:�score(50):I%=1:Z%=Z%+1:N%=N%-1:�empty(R%(�(21))):�d`A
�%�P%=43�1,3,10,1:�score(100):�d`A
�'�P%>225�P%<231�0,-9,4,2:N%=-1:�dtA
��P%=248�powerup:�N%<=0�dtA
�<�P%=224�put(X%(H%),Y%(H%),P%)��put(X%(H%),Y%(H%),D%+226)
�=�I%=1I%=0 ��put(X%(T%),Y%(T%),C%(T%)):T%=T%+1:�T%=101T%=1
�
�N%<=0
��
:

��powerup
�X%=1�5
&�20,0)"      "
0�1,-9,X%,1
:�2,-8,X%*2,1
D�20,0)"PWR:30"
N�
X�put(X%(H%),Y%(H%),D%+226)
b�put(X%(T%),Y%(T%),C%(T%))
lE%=31:T%=T%+1:�T%=101T%=1
v�
�2E%=E%-1:�E%=5�1,-15,1,2:�1,-15,4,2:�1,-15,16,2
��24,0)�f(E%,2)
��C%D%=4
��B%D%=1
��J%D%=3
��G%D%=2
�$A%=H%:H%=H%+1:�H%=101H%=1:A%=100
�X%(H%)=X%(A%)+(D%=2)-(D%=3)
�Y%(H%)=Y%(A%)+(D%=1)-(D%=4)
�*�X%(H%)=40X%(H%)=0 ��X%(H%)<0X%(H%)=39
�*�Y%(H%)=0Y%(H%)=22 ��Y%(H%)=23Y%(H%)=1
�"P%=S%(X%(H%),Y%(H%)):C%(H%)=32
�'�P%=46�0,3,0,1:I%=1:Z%=Z%+1:N%=N%-1
'�P%>226�P%<231�0,-9,4,2:N%=-1:�T~C
�put(X%(H%),Y%(H%),D%+226)
�I%=1I%=0:�T~C
 �E%=0�T~C
*�put(X%(T%),Y%(T%),C%(T%))
4T%=T%+1:�T%=101T%=1
>�N%<=0�E%=0
H�20,0)"      "
R�
\:
f��move2
p�
z�C%D%=4
��B%D%=1
��J%D%=3
��G%D%=2
�$A%=H%:H%=H%+1:�H%=101H%=1:A%=100
�X%(H%)=X%(A%)+(D%=2)-(D%=3)
�Y%(H%)=Y%(A%)+(D%=1)-(D%=4)
�*�X%(H%)=40X%(H%)=0 ��X%(H%)<0X%(H%)=39
�*�Y%(H%)=0Y%(H%)=22 ��Y%(H%)=23Y%(H%)=1
�"P%=S%(X%(H%),Y%(H%)):C%(H%)=32
��P%>225�0,-9,4,2:N%=0:�TdD
�B�P%=46�0,3,0,1:�score(100):I%=1:Z%=Z%+1:�empty(46):�empty(226)
��put(X%(H%),Y%(H%),D%+226)
��I%=1I%=0:�TdD
�put(X%(T%),Y%(T%),C%(T%))
T%=T%+1:�T%=101T%=1
�Z%=100N%=0
$
�N%<=0
.�
8:
B
��name
L�129:�0
V�1,3,100,1
`�14+P%,23)�NAME$,P%,1);
j.GOT$=�GOT$,P%-1)+�NAME$,P%,1)+�GOT$,10-P%)
t�128:�1
~�GOT$<>NAME$�
�GOT$="0123456789"
��M%=1�5
��129:�0
��15,23)NAME$
�
�0,-8,2,1
��1,-10,M%*10,1
��2,-11,M%*14,1
��128:�1
��score(1000)
��15,23)NAME$ 
��X%=1�25:�
��0,0,0,0
�

�
:
��message(Y%,S$)
(�12,Y%-1)�16,�224)
2�12,Y%)�224" "S$" "�224
<�12,Y%+1)�16,�224)
F�
P:
Z��munch
d
�1,2,20,3
n
�Z%=2�
x�X%=3�Z%
��X%(T%),Y%(T%))�224
��1,-9,X%,1
��M%=1�30:�
��put(X%(T%),Y%(T%),C%(T%))
�T%=T%+1
��T%=101T%=1
��
�Z%=2
��
�:
���erase(I%)
��X%=1�Z%
��score(I%)
�X%(T%),Y%(T%))�224
�0,-10,2,2
�1,-8,X%,1
"�M%=1�40:�
,�X%(T%),Y%(T%))�(C%(T%))
6�0,0,0,0
@�M%=1�150:�
JT%=T%+1
T�T%=101T%=1
^�
h�
r:
|��score(V%)
�S%=S%+V%
��3,0);�f(S%,6)
�<�S%>=Q%�1,1,100,4:L%=L%+1:Q%=Q%+50000:�L%<4�9+L%,0)�227
��
�:
���bonus
��erase(50)
��M%=1�1000:�
��message(12,"BONUS:000000")
��N%=1�F%*2
��score(100)
��20,12)�f(N%*100,6)
�
�0,-8,2,1
�1,-8,N%,1
�M%=1�150:�
�0,0,0,0
&�
0F%=F%+1
:�
D:
N
��oops
XL%=L%-1
b
�erase(5)
lA�L%=0�message(12," GAME  OVER ") ��message(12,"   OOPS !   ")
v�
�:
���screen
��=0
��U%<>1�zero(1,22):���>155
��off
�U%=�
��F%�5=0U%=�
��0,1);
��Y%=1�11
��(80);
��
�;�0,0)"SC:"�f(S%,6)"     FR:"�f(F%,2)�(12)"HI:"�f(W%,6)
�N%=L%:�L%>3N%=3
�M%=1�N%
�9+M%,0)�227
�
 �F%=1�15,23)NAME$;
*,�1,23)�13,�240)�241�25,23)�242�13,�240)
4�put(10,10,229)
>�put(11,10,229)
H
T%=1:H%=2
RX%(1)=10:Y%(1)=10
\X%(2)=11:Y%(2)=10
fC%(1)=32:C%(2)=32
pD%=3
zI%=0
�
N%=3+F%*3
��N%>98N%=98
�Z%=2
��M%=1�N%
��empty(46)
��
�R%=K%-F%*K%/50
�
�R%<0R%=0
�
B%=-66
�
C%=-98
�G%=-103
�J%=-104
�"�U%�message(12,"BONUS  ROUND")
	�on
	
�U%�flash
		�wait
	$�
	.:
	8��flash
	B�M%=5�35
	L�14,12)"            "
	V
�0,-8,2,1
	`
�1,2,M%,1
	j�14,12)"BONUS  ROUND"
	t�0,0,0,0
	~�Y%=1�20:�
	��
	�
�Y%=11�13
	�
�12,Y%);
	��X%=12�27:�S%(X%,Y%):�,
	��
	�:
	���pause
	��message(12,"   PAUSED   ")
	�	�wait
	�/�Y%=11�13:�12,Y%);:�X%=12�27:�S%(X%,Y%):�,
	�
�12,Y%);
	��
:


��wait
���0=""
���0<>""
(�
2:
<��empty(V%)
F�
PX%=�(40)-1:Y%=�(22)
Z�S%(X%,Y%)=32
d�V%<>1�put(X%,Y%,V%):�
nV%=�(10)
x�129:�0
��X%,Y%)�NAME$,V%,1)
��128:�1
�S%(X%,Y%)=V%
��
�:
���put(X%,Y%,V%)
��X%,Y%)�V%
�S%(X%,Y%)=V%
��
�:
���setup
�M%=�(-�)
�-�1,1,3,-90,1,1,-2,-3,100,0,0,-100,100,100
+�2,1,1,-2,1,7,5,12,100,0,0,-100,100,100
*�3,1,0,0,0,10,10,10,100,-4,-1,-4,100,0
&�4,3,0,0,0,0,0,0,60,-5,-1,-3,75,60
"-�S%(39,22),X%(100),Y%(100),C%(100),R%(21)
,�23;8202;0;0;0;
6'�23,225,84,170,84,170,84,170,84,170
@+�23,226,254,254,254,254,254,254,254,254
J'�23,224,24,60,126,255,255,126,60,24
T�23,227,0;0;24,60,126,255
^+�23,229,128,192,224,240,240,224,192,128
h�23,228,1,3,7,15,15,7,3,1
r�23,230,255,126,60,24,0;0;
|&�23,231,49,70,152,163,47,73,91,155
�&�23,232,140,98,25,197,244,50,90,89
�&�23,233,155,91,73,47,163,152,70,49
�&�23,234,89,90,50,244,197,25,98,140
��23,240,0;0;255,0,0;
�!�23,241,0,4,12,28,252,28,12,4
�"�23,242,0,32,48,56,63,56,48,32
�$�23,244,0,124,124,96,120,96,96,0
�$�23,245,0,124,124,64,124,4,124,0
�'�23,246,0,120,124,100,120,108,100,0
�'�23,247,195,231,66,24,24,66,231,195
�%�23,248,0,124,124,100,124,96,96,0
��X%=1�5
�R%(X%)=226
�
�X%=1�4
R%(X%+5)=225
&R%(X%+9)=224
0�
:
R%(14)=43
DR%(15)=244
NR%(16)=244
XR%(17)=246
bR%(18)=247
lR%(19)=245
vR%(20)=1
�R%(21)=248
�U%=1
�$C$=�231+�232+�8+�8+�10+�233+�234
�*FX200,1
�
�N%=1�108
��0<>""N%=108
�%�N%=9�titles("C . D U N K L E Y")
�$�N%=42�titles("P R E S E N T S")
�.�N%=58�titles("for the BBC microcomputer")
�4�N%=76�titles(�228+" M E C H A - W O R M "+�229)
�C%=� �"                                DEEFFAA::55::AAFF55555555555555::::::::????????88888888========66666666<<<< ",N%,1)-32
�B%=� �"HFHDHCHAH@HAHCHDH<H>H@HAH@HAHCHDMKMIMHMFMEMFMHMIMAMCMEMFMEMFMHMIFAFIFAFNKFKKFBFKHDHKHDHMIDIIDADIFBFIFBFHC@C<",N%,1)-32
��1,4,B%*4-30,3

!�C%=0�2,0,1,3 ��2,4,C%*4-30,3

�


K%=525

 NAME$="Mecha-Worm"

*�

4:

>��titles(S$)

HK%=(40-�S$)/2

R�off

\�0,12)�(120)�K%,12);

fA%=10:X%=&70:Y%=0

p
�M%=1��S$

z?&70=� �S$,M%,1)

��?&70=32�32:�tlM

�
�&FFF1

�<�23,250,?&71,?&71,?&72,?&72,?&73,?&73,?&74,?&74,250,8,10

�:�23,250,?&75,?&75,?&76,?&76,?&77,?&77,?&78,?&78,250,11

��

�M�N%=9�1,1)C$�37,1)C$�1,22)C$�37,22)C$�9,15)"Dip.H.E., B.Sc.(Hons)":�d^M

��N%=42�9,15)�(22)

�&�N%<>76�K%-1,14)ĩS$+2,"_"):�d^M

�&�7,17)"the ultimate challenge..."

��on

��

�:

�
��inst
GOT$="0123456789"
S%=0:L%=3:F%=1:U%=1
Q%=50000
$�off
.�
8
�title
B�
LE�" Collect the power pills, avoid the ACIDpools & your own tail."
VD�" You may go through the tunnels and overthe patches of grass."
`�
j�"SYMBOLS:"�20)"CONTROLS:"
t(�"Mecha-Worm .... "�229�229�229"  A"
~5�"Acid Pool ..... "�226"   < > ....... Movement";
�"�"Tunnel ........ "�224"    Z"
��"Grass ......... "�225
�0�"100 pt BONUS .. +   SPACE BAR .... Pause";
��"Speed up ...... "�244
�5�"Slow down ..... "�245"   S/Q ... Sound ON/OFF";
��"Worm Munch .... "�247
��"Reverse Keys .. "�246
��"Power Up ...... "�248
��"Power Pill .... ."
��"5000 pt BONUS . ";
��129:�0
��"Mecha-Worm"
�128:�1

�zero(1,3)
�on

���-99
(�zero(4,8)
2�off
<�
F
�title
PK%=1025-K%
Z�M%=1�K%�25
d�M%-1,10)�229
n�
x�M%=0�39
��M%,9)�224
��M%,11)�224
��
��M%=9�39�10
��M%,11)�227
��M%,9)�230
��
��19,8)�230
��19,12)�227
��36,8)"Fast"
��0,8)"Slow"
��13,6)"Game Speed:"
�.�3,14)"Use < and > to adjust game speed."
�''"NOTE:"'
J�" i) A Bonus Mecha-Worm is awarded for       every 50,000pts scored."
.�"ii) Every fifth frame is a BONUS ROUND."
"�zero(9,11)
,�on
6�
@�M%=1�200:�
J)�-103�K%>25�K%�25-1,10)" ":K%=K%-25
T,�-104�K%<1000K%=K%+25:�K%�25-1,10)�229
^�24,6)�f(K%�25,2)
h	��-99
rK%=1025-K%
|�zero(12,15)
��off
��zero(16,22)
��
��
�:
���title
�1�5,24)�224"Press SPACE BAR To Continue"�224;
��message(1," Mecha-Worm ")
��1,1)C$�37,1)C$
�(�9,3)�228"Written By C.Dunkley"�229
��
�:
���on
(� �Beeb �U%�videoULA(1)��videoULA(4)
�M%=0�7
�M%�2=0:*FX19
&�19,1,M%;0;0;
0�
:�
D:
N	��off
X� �Beeb �videoULA(0)
b�M%=7�0�-1
l�M%�2=0:*FX19
v�19,1,M%;0;0;
��
��
�:
���videoULA(X%)
�� � �Beeb �
�
A%=155
�	*FX19
�
�&FFF4
�X%=X%+16:�&FFF4
�X%=X%+16:�&FFF4
�	*FX19
�X%=X%+16:�&FFF4
�X%=X%+64:�&FFF4
�
:
��crtc6845
 � � �Beeb �
*�23;4,38;0;0;0;
4�23;5,32;0;0;0;
>�23;7,30;0;0;0;
H�23;9,7;0;0;0;
R�
\:
f��zero(A%,B%)
p&�Y%=A%�B%:�X%=0�39:S%(X%,Y%)=32:�,
z�
�:
�� �Beeb
�;� Add 'IF' statements as necessary to test machine type
�
� 1 - ELK
�� 251 - B+
�� ? - ARCH
��-256=1 =�
�=�
�
00000000  0d 00 0a 12 f4 20 27 4d  65 63 68 61 2d 57 6f 72  |..... 'Mecha-Wor|
00000010  6d 27 0d 00 14 12 f4 20  42 79 20 43 2e 44 75 6e  |m'..... By C.Dun|
00000020  6b 6c 65 79 0d 00 1e 05  f4 0d 00 28 06 eb 36 0d  |kley.......(..6.|
00000030  00 32 0d 57 25 3d 31 38  32 35 38 30 0d 00 3c 0d  |.2.W%=182580..<.|
00000040  f2 63 72 74 63 36 38 34  35 0d 00 46 0a f2 73 65  |.crtc6845..F..se|
00000050  74 75 70 0d 00 50 05 f5  0d 00 5a 09 f2 69 6e 73  |tup..P....Z..ins|
00000060  74 0d 00 64 05 f5 0d 00  6e 0b f2 73 63 72 65 65  |t..d....n..scree|
00000070  6e 0d 00 78 14 e7 55 25  f2 6d 6f 76 65 32 20 8b  |n..x..U%.move2 .|
00000080  f2 6d 6f 76 65 0d 00 82  14 e7 4e 25 f2 6f 6f 70  |.move.....N%.oop|
00000090  73 20 8b f2 62 6f 6e 75  73 0d 00 8c 09 fd 4c 25  |s ..bonus.....L%|
000000a0  3d 30 0d 00 96 2a e7 53  25 3e 57 25 57 25 3d 53  |=0...*.S%>W%W%=S|
000000b0  25 3a f2 6d 65 73 73 61  67 65 28 36 2c 22 4e 45  |%:.message(6,"NE|
000000c0  57 20 48 49 2d 53 43 4f  52 45 22 29 0d 00 a0 09  |W HI-SCORE")....|
000000d0  f2 77 61 69 74 0d 00 aa  08 f2 6f 66 66 0d 00 b4  |.wait.....off...|
000000e0  05 db 0d 00 be 06 fd 30  0d 00 c8 05 e0 0d 00 d2  |.......0........|
000000f0  05 3a 0d 00 dc 20 dd a4  66 28 50 25 2c 58 25 29  |.:... ..f(P%,X%)|
00000100  3a 3d c2 22 30 30 30 30  30 22 2b c3 50 25 2c 58  |:=."00000"+.P%,X|
00000110  25 29 0d 00 e6 05 3a 0d  00 f0 0a dd f2 6d 6f 76  |%)....:......mov|
00000120  65 0d 00 fa 1b f5 e3 4d  25 3d 31 b8 52 25 3a ed  |e......M%=1.R%:.|
00000130  3a e7 a6 2d 39 39 f2 70  61 75 73 65 0d 01 04 12  |:..-99.pause....|
00000140  e7 a6 2d 31 37 3a 2a 46  58 32 31 30 20 31 0d 01  |..-17:*FX210 1..|
00000150  0e 10 e7 a6 2d 38 32 3a  2a 46 58 32 31 30 0d 01  |....-82:*FX210..|
00000160  18 0c e7 a6 43 25 44 25  3d 34 0d 01 22 0c e7 a6  |....C%D%=4.."...|
00000170  42 25 44 25 3d 31 0d 01  2c 0c e7 a6 4a 25 44 25  |B%D%=1..,...J%D%|
00000180  3d 33 0d 01 36 0c e7 a6  47 25 44 25 3d 32 0d 01  |=3..6...G%D%=2..|
00000190  40 24 41 25 3d 48 25 3a  48 25 3d 48 25 2b 31 3a  |@$A%=H%:H%=H%+1:|
000001a0  e7 48 25 3d 31 30 31 48  25 3d 31 3a 41 25 3d 31  |.H%=101H%=1:A%=1|
000001b0  30 30 0d 01 4a 3b 58 25  28 48 25 29 3d 58 25 28  |00..J;X%(H%)=X%(|
000001c0  41 25 29 2b 28 44 25 3d  32 29 2d 28 44 25 3d 33  |A%)+(D%=2)-(D%=3|
000001d0  29 3a 59 25 28 48 25 29  3d 59 25 28 41 25 29 2b  |):Y%(H%)=Y%(A%)+|
000001e0  28 44 25 3d 31 29 2d 28  44 25 3d 34 29 0d 01 54  |(D%=1)-(D%=4)..T|
000001f0  2a e7 58 25 28 48 25 29  3d 34 30 58 25 28 48 25  |*.X%(H%)=40X%(H%|
00000200  29 3d 30 20 8b e7 58 25  28 48 25 29 3c 30 58 25  |)=0 ..X%(H%)<0X%|
00000210  28 48 25 29 3d 33 39 0d  01 5e 2a e7 59 25 28 48  |(H%)=39..^*.Y%(H|
00000220  25 29 3d 30 59 25 28 48  25 29 3d 32 32 20 8b e7  |%)=0Y%(H%)=22 ..|
00000230  59 25 28 48 25 29 3d 32  33 59 25 28 48 25 29 3d  |Y%(H%)=23Y%(H%)=|
00000240  31 0d 01 68 2e 50 25 3d  53 25 28 58 25 28 48 25  |1..h.P%=S%(X%(H%|
00000250  29 2c 59 25 28 48 25 29  29 3a 43 25 28 48 25 29  |),Y%(H%)):C%(H%)|
00000260  3d 33 32 3a e7 50 25 3d  33 32 e5 8d 64 60 41 0d  |=32:.P%=32..d`A.|
00000270  01 72 15 e7 50 25 3c 31  31 f2 6e 61 6d 65 3a e5  |.r..P%<11.name:.|
00000280  8d 64 60 41 0d 01 7c 25  e7 50 25 3d 32 32 35 d4  |.d`A..|%.P%=225.|
00000290  30 2c 2d 36 2c 34 2c 31  3a 43 25 28 48 25 29 3d  |0,-6,4,1:C%(H%)=|
000002a0  32 32 36 3a e5 8d 64 60  41 0d 01 86 25 e7 50 25  |226:..d`A...%.P%|
000002b0  3d 32 32 34 d4 30 2c 2d  34 2c 34 2c 31 3a 43 25  |=224.0,-4,4,1:C%|
000002c0  28 48 25 29 3d 32 32 35  3a e5 8d 64 60 41 0d 01  |(H%)=225:..d`A..|
000002d0  90 22 e7 50 25 3d 32 34  34 d4 31 2c 32 2c 31 30  |.".P%=244.1,2,10|
000002e0  2c 33 3a 52 25 3d 52 25  81 32 3a e5 8d 64 60 41  |,3:R%=R%.2:..d`A|
000002f0  0d 01 9a 17 e7 50 25 3d  32 34 37 f2 6d 75 6e 63  |.....P%=247.munc|
00000300  68 3a e5 8d 64 60 41 0d  01 a4 26 e7 50 25 3d 32  |h:..d`A...&.P%=2|
00000310  34 35 d4 31 2c 32 2c 32  30 2c 33 3a 52 25 3d 52  |45.1,2,20,3:R%=R|
00000320  25 2b 52 25 81 31 32 3a  e5 8d 64 60 41 0d 01 ae  |%+R%.12:..d`A...|
00000330  3e e7 50 25 3d 32 34 36  d4 31 2c 32 2c 33 30 2c  |>.P%=246.1,2,30,|
00000340  33 3a 41 25 3d 42 25 3a  42 25 3d 43 25 3a 43 25  |3:A%=B%:B%=C%:C%|
00000350  3d 41 25 3a 41 25 3d 47  25 3a 47 25 3d 4a 25 3a  |=A%:A%=G%:G%=J%:|
00000360  4a 25 3d 41 25 3a e5 8d  64 60 41 0d 01 b8 4a e7  |J%=A%:..d`A...J.|
00000370  50 25 3d 34 36 d4 30 2c  33 2c 30 2c 31 3a f2 73  |P%=46.0,3,0,1:.s|
00000380  63 6f 72 65 28 35 30 29  3a 49 25 3d 31 3a 5a 25  |core(50):I%=1:Z%|
00000390  3d 5a 25 2b 31 3a 4e 25  3d 4e 25 2d 31 3a f2 65  |=Z%+1:N%=N%-1:.e|
000003a0  6d 70 74 79 28 52 25 28  b3 28 32 31 29 29 29 3a  |mpty(R%(.(21))):|
000003b0  e5 8d 64 60 41 0d 01 c2  25 e7 50 25 3d 34 33 d4  |..d`A...%.P%=43.|
000003c0  31 2c 33 2c 31 30 2c 31  3a f2 73 63 6f 72 65 28  |1,3,10,1:.score(|
000003d0  31 30 30 29 3a e5 8d 64  60 41 0d 01 cc 27 e7 50  |100):..d`A...'.P|
000003e0  25 3e 32 32 35 e7 50 25  3c 32 33 31 d4 30 2c 2d  |%>225.P%<231.0,-|
000003f0  39 2c 34 2c 32 3a 4e 25  3d 2d 31 3a e5 8d 64 74  |9,4,2:N%=-1:..dt|
00000400  41 0d 01 d6 1f e7 50 25  3d 32 34 38 f2 70 6f 77  |A.....P%=248.pow|
00000410  65 72 75 70 3a e7 4e 25  3c 3d 30 e5 8d 64 74 41  |erup:.N%<=0..dtA|
00000420  0d 01 e0 3c e7 50 25 3d  32 32 34 f2 70 75 74 28  |...<.P%=224.put(|
00000430  58 25 28 48 25 29 2c 59  25 28 48 25 29 2c 50 25  |X%(H%),Y%(H%),P%|
00000440  29 8b f2 70 75 74 28 58  25 28 48 25 29 2c 59 25  |)..put(X%(H%),Y%|
00000450  28 48 25 29 2c 44 25 2b  32 32 36 29 0d 01 ea 3d  |(H%),D%+226)...=|
00000460  e7 49 25 3d 31 49 25 3d  30 20 8b f2 70 75 74 28  |.I%=1I%=0 ..put(|
00000470  58 25 28 54 25 29 2c 59  25 28 54 25 29 2c 43 25  |X%(T%),Y%(T%),C%|
00000480  28 54 25 29 29 3a 54 25  3d 54 25 2b 31 3a e7 54  |(T%)):T%=T%+1:.T|
00000490  25 3d 31 30 31 54 25 3d  31 0d 01 f4 0a fd 4e 25  |%=101T%=1.....N%|
000004a0  3c 3d 30 0d 01 fe 05 e1  0d 02 08 05 3a 0d 02 12  |<=0.........:...|
000004b0  0d dd f2 70 6f 77 65 72  75 70 0d 02 1c 0b e3 58  |...powerup.....X|
000004c0  25 3d 31 b8 35 0d 02 26  13 f1 8a 32 30 2c 30 29  |%=1.5..&...20,0)|
000004d0  22 20 20 20 20 20 20 22  0d 02 30 0e d4 31 2c 2d  |"      "..0..1,-|
000004e0  39 2c 58 25 2c 31 0d 02  3a 10 d4 32 2c 2d 38 2c  |9,X%,1..:..2,-8,|
000004f0  58 25 2a 32 2c 31 0d 02  44 13 f1 8a 32 30 2c 30  |X%*2,1..D...20,0|
00000500  29 22 50 57 52 3a 33 30  22 0d 02 4e 05 ed 0d 02  |)"PWR:30"..N....|
00000510  58 1e f2 70 75 74 28 58  25 28 48 25 29 2c 59 25  |X..put(X%(H%),Y%|
00000520  28 48 25 29 2c 44 25 2b  32 32 36 29 0d 02 62 1e  |(H%),D%+226)..b.|
00000530  f2 70 75 74 28 58 25 28  54 25 29 2c 59 25 28 54  |.put(X%(T%),Y%(T|
00000540  25 29 2c 43 25 28 54 25  29 29 0d 02 6c 1d 45 25  |%),C%(T%))..l.E%|
00000550  3d 33 31 3a 54 25 3d 54  25 2b 31 3a e7 54 25 3d  |=31:T%=T%+1:.T%=|
00000560  31 30 31 54 25 3d 31 0d  02 76 05 f5 0d 02 80 32  |101T%=1..v.....2|
00000570  45 25 3d 45 25 2d 31 3a  e7 45 25 3d 35 d4 31 2c  |E%=E%-1:.E%=5.1,|
00000580  2d 31 35 2c 31 2c 32 3a  d4 31 2c 2d 31 35 2c 34  |-15,1,2:.1,-15,4|
00000590  2c 32 3a d4 31 2c 2d 31  35 2c 31 36 2c 32 0d 02  |,2:.1,-15,16,2..|
000005a0  8a 13 f1 8a 32 34 2c 30  29 a4 66 28 45 25 2c 32  |....24,0).f(E%,2|
000005b0  29 0d 02 94 0c e7 a6 43  25 44 25 3d 34 0d 02 9e  |)......C%D%=4...|
000005c0  0c e7 a6 42 25 44 25 3d  31 0d 02 a8 0c e7 a6 4a  |...B%D%=1......J|
000005d0  25 44 25 3d 33 0d 02 b2  0c e7 a6 47 25 44 25 3d  |%D%=3......G%D%=|
000005e0  32 0d 02 bc 24 41 25 3d  48 25 3a 48 25 3d 48 25  |2...$A%=H%:H%=H%|
000005f0  2b 31 3a e7 48 25 3d 31  30 31 48 25 3d 31 3a 41  |+1:.H%=101H%=1:A|
00000600  25 3d 31 30 30 0d 02 c6  1f 58 25 28 48 25 29 3d  |%=100....X%(H%)=|
00000610  58 25 28 41 25 29 2b 28  44 25 3d 32 29 2d 28 44  |X%(A%)+(D%=2)-(D|
00000620  25 3d 33 29 0d 02 d0 1f  59 25 28 48 25 29 3d 59  |%=3)....Y%(H%)=Y|
00000630  25 28 41 25 29 2b 28 44  25 3d 31 29 2d 28 44 25  |%(A%)+(D%=1)-(D%|
00000640  3d 34 29 0d 02 da 2a e7  58 25 28 48 25 29 3d 34  |=4)...*.X%(H%)=4|
00000650  30 58 25 28 48 25 29 3d  30 20 8b e7 58 25 28 48  |0X%(H%)=0 ..X%(H|
00000660  25 29 3c 30 58 25 28 48  25 29 3d 33 39 0d 02 e4  |%)<0X%(H%)=39...|
00000670  2a e7 59 25 28 48 25 29  3d 30 59 25 28 48 25 29  |*.Y%(H%)=0Y%(H%)|
00000680  3d 32 32 20 8b e7 59 25  28 48 25 29 3d 32 33 59  |=22 ..Y%(H%)=23Y|
00000690  25 28 48 25 29 3d 31 0d  02 ee 22 50 25 3d 53 25  |%(H%)=1..."P%=S%|
000006a0  28 58 25 28 48 25 29 2c  59 25 28 48 25 29 29 3a  |(X%(H%),Y%(H%)):|
000006b0  43 25 28 48 25 29 3d 33  32 0d 02 f8 27 e7 50 25  |C%(H%)=32...'.P%|
000006c0  3d 34 36 d4 30 2c 33 2c  30 2c 31 3a 49 25 3d 31  |=46.0,3,0,1:I%=1|
000006d0  3a 5a 25 3d 5a 25 2b 31  3a 4e 25 3d 4e 25 2d 31  |:Z%=Z%+1:N%=N%-1|
000006e0  0d 03 02 27 e7 50 25 3e  32 32 36 e7 50 25 3c 32  |...'.P%>226.P%<2|
000006f0  33 31 d4 30 2c 2d 39 2c  34 2c 32 3a 4e 25 3d 2d  |31.0,-9,4,2:N%=-|
00000700  31 3a e5 8d 54 7e 43 0d  03 0c 1e f2 70 75 74 28  |1:..T~C.....put(|
00000710  58 25 28 48 25 29 2c 59  25 28 48 25 29 2c 44 25  |X%(H%),Y%(H%),D%|
00000720  2b 32 32 36 29 0d 03 16  13 e7 49 25 3d 31 49 25  |+226).....I%=1I%|
00000730  3d 30 3a e5 8d 54 7e 43  0d 03 20 0e e7 45 25 3d  |=0:..T~C.. ..E%=|
00000740  30 e5 8d 54 7e 43 0d 03  2a 1e f2 70 75 74 28 58  |0..T~C..*..put(X|
00000750  25 28 54 25 29 2c 59 25  28 54 25 29 2c 43 25 28  |%(T%),Y%(T%),C%(|
00000760  54 25 29 29 0d 03 34 17  54 25 3d 54 25 2b 31 3a  |T%))..4.T%=T%+1:|
00000770  e7 54 25 3d 31 30 31 54  25 3d 31 0d 03 3e 0f fd  |.T%=101T%=1..>..|
00000780  4e 25 3c 3d 30 84 45 25  3d 30 0d 03 48 13 f1 8a  |N%<=0.E%=0..H...|
00000790  32 30 2c 30 29 22 20 20  20 20 20 20 22 0d 03 52  |20,0)"      "..R|
000007a0  05 e1 0d 03 5c 05 3a 0d  03 66 0b dd f2 6d 6f 76  |....\.:..f...mov|
000007b0  65 32 0d 03 70 05 f5 0d  03 7a 0c e7 a6 43 25 44  |e2..p....z...C%D|
000007c0  25 3d 34 0d 03 84 0c e7  a6 42 25 44 25 3d 31 0d  |%=4......B%D%=1.|
000007d0  03 8e 0c e7 a6 4a 25 44  25 3d 33 0d 03 98 0c e7  |.....J%D%=3.....|
000007e0  a6 47 25 44 25 3d 32 0d  03 a2 24 41 25 3d 48 25  |.G%D%=2...$A%=H%|
000007f0  3a 48 25 3d 48 25 2b 31  3a e7 48 25 3d 31 30 31  |:H%=H%+1:.H%=101|
00000800  48 25 3d 31 3a 41 25 3d  31 30 30 0d 03 ac 1f 58  |H%=1:A%=100....X|
00000810  25 28 48 25 29 3d 58 25  28 41 25 29 2b 28 44 25  |%(H%)=X%(A%)+(D%|
00000820  3d 32 29 2d 28 44 25 3d  33 29 0d 03 b6 1f 59 25  |=2)-(D%=3)....Y%|
00000830  28 48 25 29 3d 59 25 28  41 25 29 2b 28 44 25 3d  |(H%)=Y%(A%)+(D%=|
00000840  31 29 2d 28 44 25 3d 34  29 0d 03 c0 2a e7 58 25  |1)-(D%=4)...*.X%|
00000850  28 48 25 29 3d 34 30 58  25 28 48 25 29 3d 30 20  |(H%)=40X%(H%)=0 |
00000860  8b e7 58 25 28 48 25 29  3c 30 58 25 28 48 25 29  |..X%(H%)<0X%(H%)|
00000870  3d 33 39 0d 03 ca 2a e7  59 25 28 48 25 29 3d 30  |=39...*.Y%(H%)=0|
00000880  59 25 28 48 25 29 3d 32  32 20 8b e7 59 25 28 48  |Y%(H%)=22 ..Y%(H|
00000890  25 29 3d 32 33 59 25 28  48 25 29 3d 31 0d 03 d4  |%)=23Y%(H%)=1...|
000008a0  22 50 25 3d 53 25 28 58  25 28 48 25 29 2c 59 25  |"P%=S%(X%(H%),Y%|
000008b0  28 48 25 29 29 3a 43 25  28 48 25 29 3d 33 32 0d  |(H%)):C%(H%)=32.|
000008c0  03 de 1f e7 50 25 3e 32  32 35 d4 30 2c 2d 39 2c  |....P%>225.0,-9,|
000008d0  34 2c 32 3a 4e 25 3d 30  3a e5 8d 54 64 44 0d 03  |4,2:N%=0:..TdD..|
000008e0  e8 42 e7 50 25 3d 34 36  d4 30 2c 33 2c 30 2c 31  |.B.P%=46.0,3,0,1|
000008f0  3a f2 73 63 6f 72 65 28  31 30 30 29 3a 49 25 3d  |:.score(100):I%=|
00000900  31 3a 5a 25 3d 5a 25 2b  31 3a f2 65 6d 70 74 79  |1:Z%=Z%+1:.empty|
00000910  28 34 36 29 3a f2 65 6d  70 74 79 28 32 32 36 29  |(46):.empty(226)|
00000920  0d 03 f2 1e f2 70 75 74  28 58 25 28 48 25 29 2c  |.....put(X%(H%),|
00000930  59 25 28 48 25 29 2c 44  25 2b 32 32 36 29 0d 03  |Y%(H%),D%+226)..|
00000940  fc 13 e7 49 25 3d 31 49  25 3d 30 3a e5 8d 54 64  |...I%=1I%=0:..Td|
00000950  44 0d 04 06 1e f2 70 75  74 28 58 25 28 54 25 29  |D.....put(X%(T%)|
00000960  2c 59 25 28 54 25 29 2c  43 25 28 54 25 29 29 0d  |,Y%(T%),C%(T%)).|
00000970  04 10 17 54 25 3d 54 25  2b 31 3a e7 54 25 3d 31  |...T%=T%+1:.T%=1|
00000980  30 31 54 25 3d 31 0d 04  1a 0f e7 5a 25 3d 31 30  |01T%=1.....Z%=10|
00000990  30 4e 25 3d 30 0d 04 24  0a fd 4e 25 3c 3d 30 0d  |0N%=0..$..N%<=0.|
000009a0  04 2e 05 e1 0d 04 38 05  3a 0d 04 42 0a dd f2 6e  |......8.:..B...n|
000009b0  61 6d 65 0d 04 4c 0b fb  31 32 39 3a fb 30 0d 04  |ame..L..129:.0..|
000009c0  56 0e d4 31 2c 33 2c 31  30 30 2c 31 0d 04 60 1c  |V..1,3,100,1..`.|
000009d0  f1 8a 31 34 2b 50 25 2c  32 33 29 c1 4e 41 4d 45  |..14+P%,23).NAME|
000009e0  24 2c 50 25 2c 31 29 3b  0d 04 6a 2e 47 4f 54 24  |$,P%,1);..j.GOT$|
000009f0  3d c0 47 4f 54 24 2c 50  25 2d 31 29 2b c1 4e 41  |=.GOT$,P%-1)+.NA|
00000a00  4d 45 24 2c 50 25 2c 31  29 2b c2 47 4f 54 24 2c  |ME$,P%,1)+.GOT$,|
00000a10  31 30 2d 50 25 29 0d 04  74 0b fb 31 32 38 3a fb  |10-P%)..t..128:.|
00000a20  31 0d 04 7e 11 e7 47 4f  54 24 3c 3e 4e 41 4d 45  |1..~..GOT$<>NAME|
00000a30  24 e1 0d 04 88 15 47 4f  54 24 3d 22 30 31 32 33  |$.....GOT$="0123|
00000a40  34 35 36 37 38 39 22 0d  04 92 0b e3 4d 25 3d 31  |456789".....M%=1|
00000a50  b8 35 0d 04 9c 0b fb 31  32 39 3a fb 30 0d 04 a6  |.5.....129:.0...|
00000a60  11 f1 8a 31 35 2c 32 33  29 4e 41 4d 45 24 0d 04  |...15,23)NAME$..|
00000a70  b0 0d d4 30 2c 2d 38 2c  32 2c 31 0d 04 ba 12 d4  |...0,-8,2,1.....|
00000a80  31 2c 2d 31 30 2c 4d 25  2a 31 30 2c 31 0d 04 c4  |1,-10,M%*10,1...|
00000a90  12 d4 32 2c 2d 31 31 2c  4d 25 2a 31 34 2c 31 0d  |..2,-11,M%*14,1.|
00000aa0  04 ce 0b fb 31 32 38 3a  fb 31 0d 04 d8 10 f2 73  |....128:.1.....s|
00000ab0  63 6f 72 65 28 31 30 30  30 29 0d 04 e2 12 f1 8a  |core(1000)......|
00000ac0  31 35 2c 32 33 29 4e 41  4d 45 24 20 0d 04 ec 0e  |15,23)NAME$ ....|
00000ad0  e3 58 25 3d 31 b8 32 35  3a ed 0d 04 f6 0c d4 30  |.X%=1.25:......0|
00000ae0  2c 30 2c 30 2c 30 0d 05  00 05 ed 0d 05 0a 05 e1  |,0,0,0..........|
00000af0  0d 05 14 05 3a 0d 05 1e  14 dd f2 6d 65 73 73 61  |....:......messa|
00000b00  67 65 28 59 25 2c 53 24  29 0d 05 28 17 f1 8a 31  |ge(Y%,S$)..(...1|
00000b10  32 2c 59 25 2d 31 29 c4  31 36 2c bd 32 32 34 29  |2,Y%-1).16,.224)|
00000b20  0d 05 32 1c f1 8a 31 32  2c 59 25 29 bd 32 32 34  |..2...12,Y%).224|
00000b30  22 20 22 53 24 22 20 22  bd 32 32 34 0d 05 3c 17  |" "S$" ".224..<.|
00000b40  f1 8a 31 32 2c 59 25 2b  31 29 c4 31 36 2c bd 32  |..12,Y%+1).16,.2|
00000b50  32 34 29 0d 05 46 05 e1  0d 05 50 05 3a 0d 05 5a  |24)..F....P.:..Z|
00000b60  0b dd f2 6d 75 6e 63 68  0d 05 64 0d d4 31 2c 32  |...munch..d..1,2|
00000b70  2c 32 30 2c 33 0d 05 6e  0a e7 5a 25 3d 32 e1 0d  |,20,3..n..Z%=2..|
00000b80  05 78 0c e3 58 25 3d 33  b8 5a 25 0d 05 82 18 f1  |.x..X%=3.Z%.....|
00000b90  8a 58 25 28 54 25 29 2c  59 25 28 54 25 29 29 bd  |.X%(T%),Y%(T%)).|
00000ba0  32 32 34 0d 05 8c 0e d4  31 2c 2d 39 2c 58 25 2c  |224.....1,-9,X%,|
00000bb0  31 0d 05 96 0e e3 4d 25  3d 31 b8 33 30 3a ed 0d  |1.....M%=1.30:..|
00000bc0  05 a0 1e f2 70 75 74 28  58 25 28 54 25 29 2c 59  |....put(X%(T%),Y|
00000bd0  25 28 54 25 29 2c 43 25  28 54 25 29 29 0d 05 aa  |%(T%),C%(T%))...|
00000be0  0b 54 25 3d 54 25 2b 31  0d 05 b4 0f e7 54 25 3d  |.T%=T%+1.....T%=|
00000bf0  31 30 31 54 25 3d 31 0d  05 be 05 ed 0d 05 c8 08  |101T%=1.........|
00000c00  5a 25 3d 32 0d 05 d2 05  e1 0d 05 dc 05 3a 0d 05  |Z%=2.........:..|
00000c10  e6 0f dd f2 65 72 61 73  65 28 49 25 29 0d 05 f0  |....erase(I%)...|
00000c20  0c e3 58 25 3d 31 b8 5a  25 0d 05 fa 0e f2 73 63  |..X%=1.Z%.....sc|
00000c30  6f 72 65 28 49 25 29 0d  06 04 18 f1 8a 58 25 28  |ore(I%)......X%(|
00000c40  54 25 29 2c 59 25 28 54  25 29 29 bd 32 32 34 0d  |T%),Y%(T%)).224.|
00000c50  06 0e 0e d4 30 2c 2d 31  30 2c 32 2c 32 0d 06 18  |....0,-10,2,2...|
00000c60  0e d4 31 2c 2d 38 2c 58  25 2c 31 0d 06 22 0e e3  |..1,-8,X%,1.."..|
00000c70  4d 25 3d 31 b8 34 30 3a  ed 0d 06 2c 1d f1 8a 58  |M%=1.40:...,...X|
00000c80  25 28 54 25 29 2c 59 25  28 54 25 29 29 bd 28 43  |%(T%),Y%(T%)).(C|
00000c90  25 28 54 25 29 29 0d 06  36 0c d4 30 2c 30 2c 30  |%(T%))..6..0,0,0|
00000ca0  2c 30 0d 06 40 0f e3 4d  25 3d 31 b8 31 35 30 3a  |,0..@..M%=1.150:|
00000cb0  ed 0d 06 4a 0b 54 25 3d  54 25 2b 31 0d 06 54 0f  |...J.T%=T%+1..T.|
00000cc0  e7 54 25 3d 31 30 31 54  25 3d 31 0d 06 5e 05 ed  |.T%=101T%=1..^..|
00000cd0  0d 06 68 05 e1 0d 06 72  05 3a 0d 06 7c 0f dd f2  |..h....r.:..|...|
00000ce0  73 63 6f 72 65 28 56 25  29 0d 06 86 0c 53 25 3d  |score(V%)....S%=|
00000cf0  53 25 2b 56 25 0d 06 90  13 f1 8a 33 2c 30 29 3b  |S%+V%......3,0);|
00000d00  a4 66 28 53 25 2c 36 29  0d 06 9a 3c e7 53 25 3e  |.f(S%,6)...<.S%>|
00000d10  3d 51 25 d4 31 2c 31 2c  31 30 30 2c 34 3a 4c 25  |=Q%.1,1,100,4:L%|
00000d20  3d 4c 25 2b 31 3a 51 25  3d 51 25 2b 35 30 30 30  |=L%+1:Q%=Q%+5000|
00000d30  30 3a e7 4c 25 3c 34 f1  8a 39 2b 4c 25 2c 30 29  |0:.L%<4..9+L%,0)|
00000d40  bd 32 32 37 0d 06 a4 05  e1 0d 06 ae 05 3a 0d 06  |.227.........:..|
00000d50  b8 0b dd f2 62 6f 6e 75  73 0d 06 c2 0e f2 65 72  |....bonus.....er|
00000d60  61 73 65 28 35 30 29 0d  06 cc 10 e3 4d 25 3d 31  |ase(50).....M%=1|
00000d70  b8 31 30 30 30 3a ed 0d  06 d6 1f f2 6d 65 73 73  |.1000:......mess|
00000d80  61 67 65 28 31 32 2c 22  42 4f 4e 55 53 3a 30 30  |age(12,"BONUS:00|
00000d90  30 30 30 30 22 29 0d 06  e0 0e e3 4e 25 3d 31 b8  |0000").....N%=1.|
00000da0  46 25 2a 32 0d 06 ea 0f  f2 73 63 6f 72 65 28 31  |F%*2.....score(1|
00000db0  30 30 29 0d 06 f4 18 f1  8a 32 30 2c 31 32 29 a4  |00)......20,12).|
00000dc0  66 28 4e 25 2a 31 30 30  2c 36 29 0d 06 fe 0d d4  |f(N%*100,6).....|
00000dd0  30 2c 2d 38 2c 32 2c 31  0d 07 08 0e d4 31 2c 2d  |0,-8,2,1.....1,-|
00000de0  38 2c 4e 25 2c 31 0d 07  12 0f e3 4d 25 3d 31 b8  |8,N%,1.....M%=1.|
00000df0  31 35 30 3a ed 0d 07 1c  0c d4 30 2c 30 2c 30 2c  |150:......0,0,0,|
00000e00  30 0d 07 26 05 ed 0d 07  30 0b 46 25 3d 46 25 2b  |0..&....0.F%=F%+|
00000e10  31 0d 07 3a 05 e1 0d 07  44 05 3a 0d 07 4e 0a dd  |1..:....D.:..N..|
00000e20  f2 6f 6f 70 73 0d 07 58  0b 4c 25 3d 4c 25 2d 31  |.oops..X.L%=L%-1|
00000e30  0d 07 62 0d f2 65 72 61  73 65 28 35 29 0d 07 6c  |..b..erase(5)..l|
00000e40  41 e7 4c 25 3d 30 f2 6d  65 73 73 61 67 65 28 31  |A.L%=0.message(1|
00000e50  32 2c 22 20 47 41 4d 45  20 20 4f 56 45 52 20 22  |2," GAME  OVER "|
00000e60  29 20 8b f2 6d 65 73 73  61 67 65 28 31 32 2c 22  |) ..message(12,"|
00000e70  20 20 20 4f 4f 50 53 20  21 20 20 20 22 29 0d 07  |   OOPS !   ")..|
00000e80  76 05 e1 0d 07 80 05 3a  0d 07 8a 0c dd f2 73 63  |v......:......sc|
00000e90  72 65 65 6e 0d 07 94 07  d1 3d 30 0d 07 9e 1d e7  |reen.....=0.....|
00000ea0  55 25 3c 3e 31 f2 7a 65  72 6f 28 31 2c 32 32 29  |U%<>1.zero(1,22)|
00000eb0  3a f5 fd 91 3e 31 35 35  0d 07 a8 08 f2 6f 66 66  |:...>155.....off|
00000ec0  0d 07 b2 08 55 25 3d a3  0d 07 bc 0f e7 46 25 83  |....U%=......F%.|
00000ed0  35 3d 30 55 25 3d b9 0d  07 c6 0b f1 8a 30 2c 31  |5=0U%=.......0,1|
00000ee0  29 3b 0d 07 d0 0c e3 59  25 3d 31 b8 31 31 0d 07  |);.....Y%=1.11..|
00000ef0  da 0b f1 89 28 38 30 29  3b 0d 07 e4 05 ed 0d 07  |....(80);.......|
00000f00  ee 3b f1 8a 30 2c 30 29  22 53 43 3a 22 a4 66 28  |.;..0,0)"SC:".f(|
00000f10  53 25 2c 36 29 22 20 20  20 20 20 46 52 3a 22 a4  |S%,6)"     FR:".|
00000f20  66 28 46 25 2c 32 29 89  28 31 32 29 22 48 49 3a  |f(F%,2).(12)"HI:|
00000f30  22 a4 66 28 57 25 2c 36  29 0d 07 f8 13 4e 25 3d  |".f(W%,6)....N%=|
00000f40  4c 25 3a e7 4c 25 3e 33  4e 25 3d 33 0d 08 02 0c  |L%:.L%>3N%=3....|
00000f50  e3 4d 25 3d 31 b8 4e 25  0d 08 0c 11 f1 8a 39 2b  |.M%=1.N%......9+|
00000f60  4d 25 2c 30 29 bd 32 32  37 0d 08 16 05 ed 0d 08  |M%,0).227.......|
00000f70  20 17 e7 46 25 3d 31 f1  8a 31 35 2c 32 33 29 4e  | ..F%=1..15,23)N|
00000f80  41 4d 45 24 3b 0d 08 2a  2c f1 8a 31 2c 32 33 29  |AME$;..*,..1,23)|
00000f90  c4 31 33 2c bd 32 34 30  29 bd 32 34 31 8a 32 35  |.13,.240).241.25|
00000fa0  2c 32 33 29 bd 32 34 32  c4 31 33 2c bd 32 34 30  |,23).242.13,.240|
00000fb0  29 0d 08 34 13 f2 70 75  74 28 31 30 2c 31 30 2c  |)..4..put(10,10,|
00000fc0  32 32 39 29 0d 08 3e 13  f2 70 75 74 28 31 31 2c  |229)..>..put(11,|
00000fd0  31 30 2c 32 32 39 29 0d  08 48 0d 54 25 3d 31 3a  |10,229)..H.T%=1:|
00000fe0  48 25 3d 32 0d 08 52 15  58 25 28 31 29 3d 31 30  |H%=2..R.X%(1)=10|
00000ff0  3a 59 25 28 31 29 3d 31  30 0d 08 5c 15 58 25 28  |:Y%(1)=10..\.X%(|
00001000  32 29 3d 31 31 3a 59 25  28 32 29 3d 31 30 0d 08  |2)=11:Y%(2)=10..|
00001010  66 15 43 25 28 31 29 3d  33 32 3a 43 25 28 32 29  |f.C%(1)=32:C%(2)|
00001020  3d 33 32 0d 08 70 08 44  25 3d 33 0d 08 7a 08 49  |=32..p.D%=3..z.I|
00001030  25 3d 30 0d 08 84 0d 4e  25 3d 33 2b 46 25 2a 33  |%=0....N%=3+F%*3|
00001040  0d 08 8e 0f e7 4e 25 3e  39 38 4e 25 3d 39 38 0d  |.....N%>98N%=98.|
00001050  08 98 08 5a 25 3d 32 0d  08 a2 0c e3 4d 25 3d 31  |...Z%=2.....M%=1|
00001060  b8 4e 25 0d 08 ac 0e f2  65 6d 70 74 79 28 34 36  |.N%.....empty(46|
00001070  29 0d 08 b6 05 ed 0d 08  c0 12 52 25 3d 4b 25 2d  |).........R%=K%-|
00001080  46 25 2a 4b 25 2f 35 30  0d 08 ca 0d e7 52 25 3c  |F%*K%/50.....R%<|
00001090  30 52 25 3d 30 0d 08 d4  0a 42 25 3d 2d 36 36 0d  |0R%=0....B%=-66.|
000010a0  08 de 0a 43 25 3d 2d 39  38 0d 08 e8 0b 47 25 3d  |...C%=-98....G%=|
000010b0  2d 31 30 33 0d 08 f2 0b  4a 25 3d 2d 31 30 34 0d  |-103....J%=-104.|
000010c0  08 fc 22 e7 55 25 f2 6d  65 73 73 61 67 65 28 31  |..".U%.message(1|
000010d0  32 2c 22 42 4f 4e 55 53  20 20 52 4f 55 4e 44 22  |2,"BONUS  ROUND"|
000010e0  29 0d 09 06 07 f2 6f 6e  0d 09 10 0d e7 55 25 f2  |).....on.....U%.|
000010f0  66 6c 61 73 68 0d 09 1a  09 f2 77 61 69 74 0d 09  |flash.....wait..|
00001100  24 05 e1 0d 09 2e 05 3a  0d 09 38 0b dd f2 66 6c  |$......:..8...fl|
00001110  61 73 68 0d 09 42 0c e3  4d 25 3d 35 b8 33 35 0d  |ash..B..M%=5.35.|
00001120  09 4c 1a f1 8a 31 34 2c  31 32 29 22 20 20 20 20  |.L...14,12)"    |
00001130  20 20 20 20 20 20 20 20  22 0d 09 56 0d d4 30 2c  |        "..V..0,|
00001140  2d 38 2c 32 2c 31 0d 09  60 0d d4 31 2c 32 2c 4d  |-8,2,1..`..1,2,M|
00001150  25 2c 31 0d 09 6a 1a f1  8a 31 34 2c 31 32 29 22  |%,1..j...14,12)"|
00001160  42 4f 4e 55 53 20 20 52  4f 55 4e 44 22 0d 09 74  |BONUS  ROUND"..t|
00001170  0c d4 30 2c 30 2c 30 2c  30 0d 09 7e 0e e3 59 25  |..0,0,0,0..~..Y%|
00001180  3d 31 b8 32 30 3a ed 0d  09 88 05 ed 0d 09 92 0d  |=1.20:..........|
00001190  e3 59 25 3d 31 31 b8 31  33 0d 09 9c 0d f1 8a 31  |.Y%=11.13......1|
000011a0  32 2c 59 25 29 3b 0d 09  a6 1b e3 58 25 3d 31 32  |2,Y%);.....X%=12|
000011b0  b8 32 37 3a ef 53 25 28  58 25 2c 59 25 29 3a ed  |.27:.S%(X%,Y%):.|
000011c0  2c 0d 09 b0 05 e1 0d 09  ba 05 3a 0d 09 c4 0b dd  |,.........:.....|
000011d0  f2 70 61 75 73 65 0d 09  ce 1f f2 6d 65 73 73 61  |.pause.....messa|
000011e0  67 65 28 31 32 2c 22 20  20 20 50 41 55 53 45 44  |ge(12,"   PAUSED|
000011f0  20 20 20 22 29 0d 09 d8  09 f2 77 61 69 74 0d 09  |   ").....wait..|
00001200  e2 2f e3 59 25 3d 31 31  b8 31 33 3a f1 8a 31 32  |./.Y%=11.13:..12|
00001210  2c 59 25 29 3b 3a e3 58  25 3d 31 32 b8 32 37 3a  |,Y%);:.X%=12.27:|
00001220  ef 53 25 28 58 25 2c 59  25 29 3a ed 2c 0d 09 ec  |.S%(X%,Y%):.,...|
00001230  0d f1 8a 31 32 2c 59 25  29 3b 0d 09 f6 05 e1 0d  |...12,Y%);......|
00001240  0a 00 05 3a 0d 0a 0a 0a  dd f2 77 61 69 74 0d 0a  |...:......wait..|
00001250  14 0b f5 fd bf 30 3d 22  22 0d 0a 1e 0c f5 fd bf  |.....0="".......|
00001260  30 3c 3e 22 22 0d 0a 28  05 e1 0d 0a 32 05 3a 0d  |0<>""..(....2.:.|
00001270  0a 3c 0f dd f2 65 6d 70  74 79 28 56 25 29 0d 0a  |.<...empty(V%)..|
00001280  46 05 f5 0d 0a 50 17 58  25 3d b3 28 34 30 29 2d  |F....P.X%=.(40)-|
00001290  31 3a 59 25 3d b3 28 32  32 29 0d 0a 5a 11 fd 53  |1:Y%=.(22)..Z..S|
000012a0  25 28 58 25 2c 59 25 29  3d 33 32 0d 0a 64 1a e7  |%(X%,Y%)=32..d..|
000012b0  56 25 3c 3e 31 f2 70 75  74 28 58 25 2c 59 25 2c  |V%<>1.put(X%,Y%,|
000012c0  56 25 29 3a e1 0d 0a 6e  0c 56 25 3d b3 28 31 30  |V%):...n.V%=.(10|
000012d0  29 0d 0a 78 0b fb 31 32  39 3a fb 30 0d 0a 82 18  |)..x..129:.0....|
000012e0  f1 8a 58 25 2c 59 25 29  c1 4e 41 4d 45 24 2c 56  |..X%,Y%).NAME$,V|
000012f0  25 2c 31 29 0d 0a 8c 0b  fb 31 32 38 3a fb 31 0d  |%,1).....128:.1.|
00001300  0a 96 10 53 25 28 58 25  2c 59 25 29 3d 56 25 0d  |...S%(X%,Y%)=V%.|
00001310  0a a0 05 e1 0d 0a aa 05  3a 0d 0a b4 13 dd f2 70  |........:......p|
00001320  75 74 28 58 25 2c 59 25  2c 56 25 29 0d 0a be 0f  |ut(X%,Y%,V%)....|
00001330  f1 8a 58 25 2c 59 25 29  bd 56 25 0d 0a c8 10 53  |..X%,Y%).V%....S|
00001340  25 28 58 25 2c 59 25 29  3d 56 25 0d 0a d2 05 e1  |%(X%,Y%)=V%.....|
00001350  0d 0a dc 05 3a 0d 0a e6  0b dd f2 73 65 74 75 70  |....:......setup|
00001360  0d 0a f0 0c 4d 25 3d b3  28 2d 91 29 0d 0a fa 2d  |....M%=.(-.)...-|
00001370  e2 31 2c 31 2c 33 2c 2d  39 30 2c 31 2c 31 2c 2d  |.1,1,3,-90,1,1,-|
00001380  32 2c 2d 33 2c 31 30 30  2c 30 2c 30 2c 2d 31 30  |2,-3,100,0,0,-10|
00001390  30 2c 31 30 30 2c 31 30  30 0d 0b 04 2b e2 32 2c  |0,100,100...+.2,|
000013a0  31 2c 31 2c 2d 32 2c 31  2c 37 2c 35 2c 31 32 2c  |1,1,-2,1,7,5,12,|
000013b0  31 30 30 2c 30 2c 30 2c  2d 31 30 30 2c 31 30 30  |100,0,0,-100,100|
000013c0  2c 31 30 30 0d 0b 0e 2a  e2 33 2c 31 2c 30 2c 30  |,100...*.3,1,0,0|
000013d0  2c 30 2c 31 30 2c 31 30  2c 31 30 2c 31 30 30 2c  |,0,10,10,10,100,|
000013e0  2d 34 2c 2d 31 2c 2d 34  2c 31 30 30 2c 30 0d 0b  |-4,-1,-4,100,0..|
000013f0  18 26 e2 34 2c 33 2c 30  2c 30 2c 30 2c 30 2c 30  |.&.4,3,0,0,0,0,0|
00001400  2c 30 2c 36 30 2c 2d 35  2c 2d 31 2c 2d 33 2c 37  |,0,60,-5,-1,-3,7|
00001410  35 2c 36 30 0d 0b 22 2d  de 53 25 28 33 39 2c 32  |5,60.."-.S%(39,2|
00001420  32 29 2c 58 25 28 31 30  30 29 2c 59 25 28 31 30  |2),X%(100),Y%(10|
00001430  30 29 2c 43 25 28 31 30  30 29 2c 52 25 28 32 31  |0),C%(100),R%(21|
00001440  29 0d 0b 2c 13 ef 32 33  3b 38 32 30 32 3b 30 3b  |)..,..23;8202;0;|
00001450  30 3b 30 3b 0d 0b 36 27  ef 32 33 2c 32 32 35 2c  |0;0;..6'.23,225,|
00001460  38 34 2c 31 37 30 2c 38  34 2c 31 37 30 2c 38 34  |84,170,84,170,84|
00001470  2c 31 37 30 2c 38 34 2c  31 37 30 0d 0b 40 2b ef  |,170,84,170..@+.|
00001480  32 33 2c 32 32 36 2c 32  35 34 2c 32 35 34 2c 32  |23,226,254,254,2|
00001490  35 34 2c 32 35 34 2c 32  35 34 2c 32 35 34 2c 32  |54,254,254,254,2|
000014a0  35 34 2c 32 35 34 0d 0b  4a 27 ef 32 33 2c 32 32  |54,254..J'.23,22|
000014b0  34 2c 32 34 2c 36 30 2c  31 32 36 2c 32 35 35 2c  |4,24,60,126,255,|
000014c0  32 35 35 2c 31 32 36 2c  36 30 2c 32 34 0d 0b 54  |255,126,60,24..T|
000014d0  1d ef 32 33 2c 32 32 37  2c 30 3b 30 3b 32 34 2c  |..23,227,0;0;24,|
000014e0  36 30 2c 31 32 36 2c 32  35 35 0d 0b 5e 2b ef 32  |60,126,255..^+.2|
000014f0  33 2c 32 32 39 2c 31 32  38 2c 31 39 32 2c 32 32  |3,229,128,192,22|
00001500  34 2c 32 34 30 2c 32 34  30 2c 32 32 34 2c 31 39  |4,240,240,224,19|
00001510  32 2c 31 32 38 0d 0b 68  1d ef 32 33 2c 32 32 38  |2,128..h..23,228|
00001520  2c 31 2c 33 2c 37 2c 31  35 2c 31 35 2c 37 2c 33  |,1,3,7,15,15,7,3|
00001530  2c 31 0d 0b 72 1e ef 32  33 2c 32 33 30 2c 32 35  |,1..r..23,230,25|
00001540  35 2c 31 32 36 2c 36 30  2c 32 34 2c 30 3b 30 3b  |5,126,60,24,0;0;|
00001550  0d 0b 7c 26 ef 32 33 2c  32 33 31 2c 34 39 2c 37  |..|&.23,231,49,7|
00001560  30 2c 31 35 32 2c 31 36  33 2c 34 37 2c 37 33 2c  |0,152,163,47,73,|
00001570  39 31 2c 31 35 35 0d 0b  86 26 ef 32 33 2c 32 33  |91,155...&.23,23|
00001580  32 2c 31 34 30 2c 39 38  2c 32 35 2c 31 39 37 2c  |2,140,98,25,197,|
00001590  32 34 34 2c 35 30 2c 39  30 2c 38 39 0d 0b 90 26  |244,50,90,89...&|
000015a0  ef 32 33 2c 32 33 33 2c  31 35 35 2c 39 31 2c 37  |.23,233,155,91,7|
000015b0  33 2c 34 37 2c 31 36 33  2c 31 35 32 2c 37 30 2c  |3,47,163,152,70,|
000015c0  34 39 0d 0b 9a 26 ef 32  33 2c 32 33 34 2c 38 39  |49...&.23,234,89|
000015d0  2c 39 30 2c 35 30 2c 32  34 34 2c 31 39 37 2c 32  |,90,50,244,197,2|
000015e0  35 2c 39 38 2c 31 34 30  0d 0b a4 18 ef 32 33 2c  |5,98,140.....23,|
000015f0  32 34 30 2c 30 3b 30 3b  32 35 35 2c 30 2c 30 3b  |240,0;0;255,0,0;|
00001600  0d 0b ae 21 ef 32 33 2c  32 34 31 2c 30 2c 34 2c  |...!.23,241,0,4,|
00001610  31 32 2c 32 38 2c 32 35  32 2c 32 38 2c 31 32 2c  |12,28,252,28,12,|
00001620  34 0d 0b b8 22 ef 32 33  2c 32 34 32 2c 30 2c 33  |4...".23,242,0,3|
00001630  32 2c 34 38 2c 35 36 2c  36 33 2c 35 36 2c 34 38  |2,48,56,63,56,48|
00001640  2c 33 32 0d 0b c2 24 ef  32 33 2c 32 34 34 2c 30  |,32...$.23,244,0|
00001650  2c 31 32 34 2c 31 32 34  2c 39 36 2c 31 32 30 2c  |,124,124,96,120,|
00001660  39 36 2c 39 36 2c 30 0d  0b cc 24 ef 32 33 2c 32  |96,96,0...$.23,2|
00001670  34 35 2c 30 2c 31 32 34  2c 31 32 34 2c 36 34 2c  |45,0,124,124,64,|
00001680  31 32 34 2c 34 2c 31 32  34 2c 30 0d 0b d6 27 ef  |124,4,124,0...'.|
00001690  32 33 2c 32 34 36 2c 30  2c 31 32 30 2c 31 32 34  |23,246,0,120,124|
000016a0  2c 31 30 30 2c 31 32 30  2c 31 30 38 2c 31 30 30  |,100,120,108,100|
000016b0  2c 30 0d 0b e0 27 ef 32  33 2c 32 34 37 2c 31 39  |,0...'.23,247,19|
000016c0  35 2c 32 33 31 2c 36 36  2c 32 34 2c 32 34 2c 36  |5,231,66,24,24,6|
000016d0  36 2c 32 33 31 2c 31 39  35 0d 0b ea 25 ef 32 33  |6,231,195...%.23|
000016e0  2c 32 34 38 2c 30 2c 31  32 34 2c 31 32 34 2c 31  |,248,0,124,124,1|
000016f0  30 30 2c 31 32 34 2c 39  36 2c 39 36 2c 30 0d 0b  |00,124,96,96,0..|
00001700  f4 0b e3 58 25 3d 31 b8  35 0d 0b fe 0e 52 25 28  |...X%=1.5....R%(|
00001710  58 25 29 3d 32 32 36 0d  0c 08 05 ed 0d 0c 12 0b  |X%)=226.........|
00001720  e3 58 25 3d 31 b8 34 0d  0c 1c 10 52 25 28 58 25  |.X%=1.4....R%(X%|
00001730  2b 35 29 3d 32 32 35 0d  0c 26 10 52 25 28 58 25  |+5)=225..&.R%(X%|
00001740  2b 39 29 3d 32 32 34 0d  0c 30 05 ed 0d 0c 3a 0d  |+9)=224..0....:.|
00001750  52 25 28 31 34 29 3d 34  33 0d 0c 44 0e 52 25 28  |R%(14)=43..D.R%(|
00001760  31 35 29 3d 32 34 34 0d  0c 4e 0e 52 25 28 31 36  |15)=244..N.R%(16|
00001770  29 3d 32 34 34 0d 0c 58  0e 52 25 28 31 37 29 3d  |)=244..X.R%(17)=|
00001780  32 34 36 0d 0c 62 0e 52  25 28 31 38 29 3d 32 34  |246..b.R%(18)=24|
00001790  37 0d 0c 6c 0e 52 25 28  31 39 29 3d 32 34 35 0d  |7..l.R%(19)=245.|
000017a0  0c 76 0c 52 25 28 32 30  29 3d 31 0d 0c 80 0e 52  |.v.R%(20)=1....R|
000017b0  25 28 32 31 29 3d 32 34  38 0d 0c 8a 08 55 25 3d  |%(21)=248....U%=|
000017c0  31 0d 0c 94 24 43 24 3d  bd 32 33 31 2b bd 32 33  |1...$C$=.231+.23|
000017d0  32 2b bd 38 2b bd 38 2b  bd 31 30 2b bd 32 33 33  |2+.8+.8+.10+.233|
000017e0  2b bd 32 33 34 0d 0c 9e  0c 2a 46 58 32 30 30 2c  |+.234....*FX200,|
000017f0  31 0d 0c a8 0d e3 4e 25  3d 31 b8 31 30 38 0d 0c  |1.....N%=1.108..|
00001800  b2 11 e7 bf 30 3c 3e 22  22 4e 25 3d 31 30 38 0d  |....0<>""N%=108.|
00001810  0c bc 25 e7 4e 25 3d 39  f2 74 69 74 6c 65 73 28  |..%.N%=9.titles(|
00001820  22 43 20 2e 20 44 20 55  20 4e 20 4b 20 4c 20 45  |"C . D U N K L E|
00001830  20 59 22 29 0d 0c c6 24  e7 4e 25 3d 34 32 f2 74  | Y")...$.N%=42.t|
00001840  69 74 6c 65 73 28 22 50  20 52 20 45 20 53 20 45  |itles("P R E S E|
00001850  20 4e 20 54 20 53 22 29  0d 0c d0 2e e7 4e 25 3d  | N T S").....N%=|
00001860  35 38 f2 74 69 74 6c 65  73 28 22 66 6f 72 20 74  |58.titles("for t|
00001870  68 65 20 42 42 43 20 6d  69 63 72 6f 63 6f 6d 70  |he BBC microcomp|
00001880  75 74 65 72 22 29 0d 0c  da 34 e7 4e 25 3d 37 36  |uter")...4.N%=76|
00001890  f2 74 69 74 6c 65 73 28  bd 32 32 38 2b 22 20 4d  |.titles(.228+" M|
000018a0  20 45 20 43 20 48 20 41  20 2d 20 57 20 4f 20 52  | E C H A - W O R|
000018b0  20 4d 20 22 2b bd 32 32  39 29 0d 0c e4 81 43 25  | M "+.229)....C%|
000018c0  3d 97 20 c1 22 20 20 20  20 20 20 20 20 20 20 20  |=. ."           |
000018d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000018e0  20 20 20 20 20 44 45 45  46 46 41 41 3a 3a 35 35  |     DEEFFAA::55|
000018f0  3a 3a 41 41 46 46 35 35  35 35 35 35 35 35 35 35  |::AAFF5555555555|
00001900  35 35 35 35 3a 3a 3a 3a  3a 3a 3a 3a 3f 3f 3f 3f  |5555::::::::????|
00001910  3f 3f 3f 3f 38 38 38 38  38 38 38 38 3d 3d 3d 3d  |????88888888====|
00001920  3d 3d 3d 3d 36 36 36 36  36 36 36 36 3c 3c 3c 3c  |====66666666<<<<|
00001930  20 22 2c 4e 25 2c 31 29  2d 33 32 0d 0c ee 81 42  | ",N%,1)-32....B|
00001940  25 3d 97 20 c1 22 48 46  48 44 48 43 48 41 48 40  |%=. ."HFHDHCHAH@|
00001950  48 41 48 43 48 44 48 3c  48 3e 48 40 48 41 48 40  |HAHCHDH<H>H@HAH@|
00001960  48 41 48 43 48 44 4d 4b  4d 49 4d 48 4d 46 4d 45  |HAHCHDMKMIMHMFME|
00001970  4d 46 4d 48 4d 49 4d 41  4d 43 4d 45 4d 46 4d 45  |MFMHMIMAMCMEMFME|
00001980  4d 46 4d 48 4d 49 46 41  46 49 46 41 46 4e 4b 46  |MFMHMIFAFIFAFNKF|
00001990  4b 4b 46 42 46 4b 48 44  48 4b 48 44 48 4d 49 44  |KKFBFKHDHKHDHMID|
000019a0  49 49 44 41 44 49 46 42  46 49 46 42 46 48 43 40  |IIDADIFBFIFBFHC@|
000019b0  43 3c 22 2c 4e 25 2c 31  29 2d 33 32 0d 0c f8 12  |C<",N%,1)-32....|
000019c0  d4 31 2c 34 2c 42 25 2a  34 2d 33 30 2c 33 0d 0d  |.1,4,B%*4-30,3..|
000019d0  02 21 e7 43 25 3d 30 d4  32 2c 30 2c 31 2c 33 20  |.!.C%=0.2,0,1,3 |
000019e0  8b d4 32 2c 34 2c 43 25  2a 34 2d 33 30 2c 33 0d  |..2,4,C%*4-30,3.|
000019f0  0d 0c 05 ed 0d 0d 16 0a  4b 25 3d 35 32 35 0d 0d  |........K%=525..|
00001a00  20 16 4e 41 4d 45 24 3d  22 4d 65 63 68 61 2d 57  | .NAME$="Mecha-W|
00001a10  6f 72 6d 22 0d 0d 2a 05  e1 0d 0d 34 05 3a 0d 0d  |orm"..*....4.:..|
00001a20  3e 10 dd f2 74 69 74 6c  65 73 28 53 24 29 0d 0d  |>...titles(S$)..|
00001a30  48 11 4b 25 3d 28 34 30  2d a9 53 24 29 2f 32 0d  |H.K%=(40-.S$)/2.|
00001a40  0d 52 08 f2 6f 66 66 0d  0d 5c 19 f1 8a 30 2c 31  |.R..off..\...0,1|
00001a50  32 29 89 28 31 32 30 29  8a 4b 25 2c 31 32 29 3b  |2).(120).K%,12);|
00001a60  0d 0d 66 15 41 25 3d 31  30 3a 58 25 3d 26 37 30  |..f.A%=10:X%=&70|
00001a70  3a 59 25 3d 30 0d 0d 70  0d e3 4d 25 3d 31 b8 a9  |:Y%=0..p..M%=1..|
00001a80  53 24 0d 0d 7a 14 3f 26  37 30 3d 97 20 c1 53 24  |S$..z.?&70=. .S$|
00001a90  2c 4d 25 2c 31 29 0d 0d  84 15 e7 3f 26 37 30 3d  |,M%,1).....?&70=|
00001aa0  33 32 ef 33 32 3a e5 8d  74 6c 4d 0d 0d 8e 0a d6  |32.32:..tlM.....|
00001ab0  26 46 46 46 31 0d 0d 98  3c ef 32 33 2c 32 35 30  |&FFF1...<.23,250|
00001ac0  2c 3f 26 37 31 2c 3f 26  37 31 2c 3f 26 37 32 2c  |,?&71,?&71,?&72,|
00001ad0  3f 26 37 32 2c 3f 26 37  33 2c 3f 26 37 33 2c 3f  |?&72,?&73,?&73,?|
00001ae0  26 37 34 2c 3f 26 37 34  2c 32 35 30 2c 38 2c 31  |&74,?&74,250,8,1|
00001af0  30 0d 0d a2 3a ef 32 33  2c 32 35 30 2c 3f 26 37  |0...:.23,250,?&7|
00001b00  35 2c 3f 26 37 35 2c 3f  26 37 36 2c 3f 26 37 36  |5,?&75,?&76,?&76|
00001b10  2c 3f 26 37 37 2c 3f 26  37 37 2c 3f 26 37 38 2c  |,?&77,?&77,?&78,|
00001b20  3f 26 37 38 2c 32 35 30  2c 31 31 0d 0d ac 05 ed  |?&78,250,11.....|
00001b30  0d 0d b6 4d e7 4e 25 3d  39 f1 8a 31 2c 31 29 43  |...M.N%=9..1,1)C|
00001b40  24 8a 33 37 2c 31 29 43  24 8a 31 2c 32 32 29 43  |$.37,1)C$.1,22)C|
00001b50  24 8a 33 37 2c 32 32 29  43 24 8a 39 2c 31 35 29  |$.37,22)C$.9,15)|
00001b60  22 44 69 70 2e 48 2e 45  2e 2c 20 42 2e 53 63 2e  |"Dip.H.E., B.Sc.|
00001b70  28 48 6f 6e 73 29 22 3a  e5 8d 64 5e 4d 0d 0d c0  |(Hons)":..d^M...|
00001b80  16 e7 4e 25 3d 34 32 f1  8a 39 2c 31 35 29 89 28  |..N%=42..9,15).(|
00001b90  32 32 29 0d 0d ca 26 e7  4e 25 3c 3e 37 36 f1 8a  |22)...&.N%<>76..|
00001ba0  4b 25 2d 31 2c 31 34 29  c4 a9 53 24 2b 32 2c 22  |K%-1,14)..S$+2,"|
00001bb0  5f 22 29 3a e5 8d 64 5e  4d 0d 0d d4 26 f1 8a 37  |_"):..d^M...&..7|
00001bc0  2c 31 37 29 22 74 68 65  20 75 6c 74 69 6d 61 74  |,17)"the ultimat|
00001bd0  65 20 63 68 61 6c 6c 65  6e 67 65 2e 2e 2e 22 0d  |e challenge...".|
00001be0  0d de 07 f2 6f 6e 0d 0d  e8 05 e1 0d 0d f2 05 3a  |....on.........:|
00001bf0  0d 0d fc 0a dd f2 69 6e  73 74 0d 0e 06 15 47 4f  |......inst....GO|
00001c00  54 24 3d 22 30 31 32 33  34 35 36 37 38 39 22 0d  |T$="0123456789".|
00001c10  0e 10 17 53 25 3d 30 3a  4c 25 3d 33 3a 46 25 3d  |...S%=0:L%=3:F%=|
00001c20  31 3a 55 25 3d 31 0d 0e  1a 0c 51 25 3d 35 30 30  |1:U%=1....Q%=500|
00001c30  30 30 0d 0e 24 08 f2 6f  66 66 0d 0e 2e 05 db 0d  |00..$..off......|
00001c40  0e 38 0a f2 74 69 74 6c  65 0d 0e 42 05 f1 0d 0e  |.8..title..B....|
00001c50  4c 45 f1 22 20 43 6f 6c  6c 65 63 74 20 74 68 65  |LE." Collect the|
00001c60  20 70 6f 77 65 72 20 70  69 6c 6c 73 2c 20 61 76  | power pills, av|
00001c70  6f 69 64 20 74 68 65 20  41 43 49 44 70 6f 6f 6c  |oid the ACIDpool|
00001c80  73 20 26 20 79 6f 75 72  20 6f 77 6e 20 74 61 69  |s & your own tai|
00001c90  6c 2e 22 0d 0e 56 44 f1  22 20 59 6f 75 20 6d 61  |l."..VD." You ma|
00001ca0  79 20 67 6f 20 74 68 72  6f 75 67 68 20 74 68 65  |y go through the|
00001cb0  20 74 75 6e 6e 65 6c 73  20 61 6e 64 20 6f 76 65  | tunnels and ove|
00001cc0  72 74 68 65 20 70 61 74  63 68 65 73 20 6f 66 20  |rthe patches of |
00001cd0  67 72 61 73 73 2e 22 0d  0e 60 05 f1 0d 0e 6a 1e  |grass."..`....j.|
00001ce0  f1 22 53 59 4d 42 4f 4c  53 3a 22 8a 32 30 29 22  |."SYMBOLS:".20)"|
00001cf0  43 4f 4e 54 52 4f 4c 53  3a 22 0d 0e 74 28 f1 22  |CONTROLS:"..t(."|
00001d00  4d 65 63 68 61 2d 57 6f  72 6d 20 2e 2e 2e 2e 20  |Mecha-Worm .... |
00001d10  22 bd 32 32 39 bd 32 32  39 bd 32 32 39 22 20 20  |".229.229.229"  |
00001d20  41 22 0d 0e 7e 35 f1 22  41 63 69 64 20 50 6f 6f  |A"..~5."Acid Poo|
00001d30  6c 20 2e 2e 2e 2e 2e 20  22 bd 32 32 36 22 20 20  |l ..... ".226"  |
00001d40  20 3c 20 3e 20 2e 2e 2e  2e 2e 2e 2e 20 4d 6f 76  | < > ....... Mov|
00001d50  65 6d 65 6e 74 22 3b 0d  0e 88 22 f1 22 54 75 6e  |ement";..."."Tun|
00001d60  6e 65 6c 20 2e 2e 2e 2e  2e 2e 2e 2e 20 22 bd 32  |nel ........ ".2|
00001d70  32 34 22 20 20 20 20 5a  22 0d 0e 92 1b f1 22 47  |24"    Z"....."G|
00001d80  72 61 73 73 20 2e 2e 2e  2e 2e 2e 2e 2e 2e 20 22  |rass ......... "|
00001d90  bd 32 32 35 0d 0e 9c 30  f1 22 31 30 30 20 70 74  |.225...0."100 pt|
00001da0  20 42 4f 4e 55 53 20 2e  2e 20 2b 20 20 20 53 50  | BONUS .. +   SP|
00001db0  41 43 45 20 42 41 52 20  2e 2e 2e 2e 20 50 61 75  |ACE BAR .... Pau|
00001dc0  73 65 22 3b 0d 0e a6 1b  f1 22 53 70 65 65 64 20  |se";....."Speed |
00001dd0  75 70 20 2e 2e 2e 2e 2e  2e 20 22 bd 32 34 34 0d  |up ...... ".244.|
00001de0  0e b0 35 f1 22 53 6c 6f  77 20 64 6f 77 6e 20 2e  |..5."Slow down .|
00001df0  2e 2e 2e 2e 20 22 bd 32  34 35 22 20 20 20 53 2f  |.... ".245"   S/|
00001e00  51 20 2e 2e 2e 20 53 6f  75 6e 64 20 4f 4e 2f 4f  |Q ... Sound ON/O|
00001e10  46 46 22 3b 0d 0e ba 1b  f1 22 57 6f 72 6d 20 4d  |FF";....."Worm M|
00001e20  75 6e 63 68 20 2e 2e 2e  2e 20 22 bd 32 34 37 0d  |unch .... ".247.|
00001e30  0e c4 1b f1 22 52 65 76  65 72 73 65 20 4b 65 79  |...."Reverse Key|
00001e40  73 20 2e 2e 20 22 bd 32  34 36 0d 0e ce 1b f1 22  |s .. ".246....."|
00001e50  50 6f 77 65 72 20 55 70  20 2e 2e 2e 2e 2e 2e 20  |Power Up ...... |
00001e60  22 bd 32 34 38 0d 0e d8  18 f1 22 50 6f 77 65 72  |".248....."Power|
00001e70  20 50 69 6c 6c 20 2e 2e  2e 2e 20 2e 22 0d 0e e2  | Pill .... ."...|
00001e80  18 f1 22 35 30 30 30 20  70 74 20 42 4f 4e 55 53  |.."5000 pt BONUS|
00001e90  20 2e 20 22 3b 0d 0e ec  0b fb 31 32 39 3a fb 30  | . ";.....129:.0|
00001ea0  0d 0e f6 11 f1 22 4d 65  63 68 61 2d 57 6f 72 6d  |....."Mecha-Worm|
00001eb0  22 0d 0f 00 0b fb 31 32  38 3a fb 31 0d 0f 0a 0e  |".....128:.1....|
00001ec0  f2 7a 65 72 6f 28 31 2c  33 29 0d 0f 14 07 f2 6f  |.zero(1,3).....o|
00001ed0  6e 0d 0f 1e 0a f5 fd a6  2d 39 39 0d 0f 28 0e f2  |n.......-99..(..|
00001ee0  7a 65 72 6f 28 34 2c 38  29 0d 0f 32 08 f2 6f 66  |zero(4,8)..2..of|
00001ef0  66 0d 0f 3c 05 db 0d 0f  46 0a f2 74 69 74 6c 65  |f..<....F..title|
00001f00  0d 0f 50 0e 4b 25 3d 31  30 32 35 2d 4b 25 0d 0f  |..P.K%=1025-K%..|
00001f10  5a 0f e3 4d 25 3d 31 b8  4b 25 81 32 35 0d 0f 64  |Z..M%=1.K%.25..d|
00001f20  12 f1 8a 4d 25 2d 31 2c  31 30 29 bd 32 32 39 0d  |...M%-1,10).229.|
00001f30  0f 6e 05 ed 0d 0f 78 0c  e3 4d 25 3d 30 b8 33 39  |.n....x..M%=0.39|
00001f40  0d 0f 82 0f f1 8a 4d 25  2c 39 29 bd 32 32 34 0d  |......M%,9).224.|
00001f50  0f 8c 10 f1 8a 4d 25 2c  31 31 29 bd 32 32 34 0d  |.....M%,11).224.|
00001f60  0f 96 05 ed 0d 0f a0 0f  e3 4d 25 3d 39 b8 33 39  |.........M%=9.39|
00001f70  88 31 30 0d 0f aa 10 f1  8a 4d 25 2c 31 31 29 bd  |.10......M%,11).|
00001f80  32 32 37 0d 0f b4 0f f1  8a 4d 25 2c 39 29 bd 32  |227......M%,9).2|
00001f90  33 30 0d 0f be 05 ed 0d  0f c8 0f f1 8a 31 39 2c  |30...........19,|
00001fa0  38 29 bd 32 33 30 0d 0f  d2 10 f1 8a 31 39 2c 31  |8).230......19,1|
00001fb0  32 29 bd 32 32 37 0d 0f  dc 11 f1 8a 33 36 2c 38  |2).227......36,8|
00001fc0  29 22 46 61 73 74 22 0d  0f e6 10 f1 8a 30 2c 38  |)"Fast"......0,8|
00001fd0  29 22 53 6c 6f 77 22 0d  0f f0 18 f1 8a 31 33 2c  |)"Slow"......13,|
00001fe0  36 29 22 47 61 6d 65 20  53 70 65 65 64 3a 22 0d  |6)"Game Speed:".|
00001ff0  0f fa 2e f1 8a 33 2c 31  34 29 22 55 73 65 20 3c  |.....3,14)"Use <|
00002000  20 61 6e 64 20 3e 20 74  6f 20 61 64 6a 75 73 74  | and > to adjust|
00002010  20 67 61 6d 65 20 73 70  65 65 64 2e 22 0d 10 04  | game speed."...|
00002020  0f f1 27 27 22 4e 4f 54  45 3a 22 27 0d 10 0e 4a  |..''"NOTE:"'...J|
00002030  f1 22 20 69 29 20 41 20  42 6f 6e 75 73 20 4d 65  |." i) A Bonus Me|
00002040  63 68 61 2d 57 6f 72 6d  20 69 73 20 61 77 61 72  |cha-Worm is awar|
00002050  64 65 64 20 66 6f 72 20  20 20 20 20 20 20 65 76  |ded for       ev|
00002060  65 72 79 20 35 30 2c 30  30 30 70 74 73 20 73 63  |ery 50,000pts sc|
00002070  6f 72 65 64 2e 22 0d 10  18 2e f1 22 69 69 29 20  |ored."....."ii) |
00002080  45 76 65 72 79 20 66 69  66 74 68 20 66 72 61 6d  |Every fifth fram|
00002090  65 20 69 73 20 61 20 42  4f 4e 55 53 20 52 4f 55  |e is a BONUS ROU|
000020a0  4e 44 2e 22 0d 10 22 0f  f2 7a 65 72 6f 28 39 2c  |ND.".."..zero(9,|
000020b0  31 31 29 0d 10 2c 07 f2  6f 6e 0d 10 36 05 f5 0d  |11)..,..on..6...|
000020c0  10 40 0f e3 4d 25 3d 31  b8 32 30 30 3a ed 0d 10  |.@..M%=1.200:...|
000020d0  4a 29 e7 a6 2d 31 30 33  80 4b 25 3e 32 35 f1 8a  |J)..-103.K%>25..|
000020e0  4b 25 81 32 35 2d 31 2c  31 30 29 22 20 22 3a 4b  |K%.25-1,10)" ":K|
000020f0  25 3d 4b 25 2d 32 35 0d  10 54 2c e7 a6 2d 31 30  |%=K%-25..T,..-10|
00002100  34 80 4b 25 3c 31 30 30  30 4b 25 3d 4b 25 2b 32  |4.K%<1000K%=K%+2|
00002110  35 3a f1 8a 4b 25 81 32  35 2d 31 2c 31 30 29 bd  |5:..K%.25-1,10).|
00002120  32 32 39 0d 10 5e 16 f1  8a 32 34 2c 36 29 a4 66  |229..^...24,6).f|
00002130  28 4b 25 81 32 35 2c 32  29 0d 10 68 09 fd a6 2d  |(K%.25,2)..h...-|
00002140  39 39 0d 10 72 0e 4b 25  3d 31 30 32 35 2d 4b 25  |99..r.K%=1025-K%|
00002150  0d 10 7c 10 f2 7a 65 72  6f 28 31 32 2c 31 35 29  |..|..zero(12,15)|
00002160  0d 10 86 08 f2 6f 66 66  0d 10 90 10 f2 7a 65 72  |.....off.....zer|
00002170  6f 28 31 36 2c 32 32 29  0d 10 9a 05 db 0d 10 a4  |o(16,22)........|
00002180  05 e1 0d 10 ae 05 3a 0d  10 b8 0b dd f2 74 69 74  |......:......tit|
00002190  6c 65 0d 10 c2 31 f1 8a  35 2c 32 34 29 bd 32 32  |le...1..5,24).22|
000021a0  34 22 50 72 65 73 73 20  53 50 41 43 45 20 42 41  |4"Press SPACE BA|
000021b0  52 20 54 6f 20 43 6f 6e  74 69 6e 75 65 22 bd 32  |R To Continue".2|
000021c0  32 34 3b 0d 10 cc 1e f2  6d 65 73 73 61 67 65 28  |24;.....message(|
000021d0  31 2c 22 20 4d 65 63 68  61 2d 57 6f 72 6d 20 22  |1," Mecha-Worm "|
000021e0  29 0d 10 d6 14 f1 8a 31  2c 31 29 43 24 8a 33 37  |)......1,1)C$.37|
000021f0  2c 31 29 43 24 0d 10 e0  28 f1 8a 39 2c 33 29 bd  |,1)C$...(..9,3).|
00002200  32 32 38 22 57 72 69 74  74 65 6e 20 42 79 20 43  |228"Written By C|
00002210  2e 44 75 6e 6b 6c 65 79  22 bd 32 32 39 0d 10 ea  |.Dunkley".229...|
00002220  05 e1 0d 10 f4 05 3a 0d  10 fe 08 dd f2 6f 6e 0d  |......:......on.|
00002230  11 08 28 e7 20 a4 42 65  65 62 20 e7 55 25 f2 76  |..(. .Beeb .U%.v|
00002240  69 64 65 6f 55 4c 41 28  31 29 8b f2 76 69 64 65  |ideoULA(1)..vide|
00002250  6f 55 4c 41 28 34 29 0d  11 12 0b e3 4d 25 3d 30  |oULA(4).....M%=0|
00002260  b8 37 0d 11 1c 11 e7 4d  25 81 32 3d 30 3a 2a 46  |.7.....M%.2=0:*F|
00002270  58 31 39 0d 11 26 11 ef  31 39 2c 31 2c 4d 25 3b  |X19..&..19,1,M%;|
00002280  30 3b 30 3b 0d 11 30 05  ed 0d 11 3a 05 e1 0d 11  |0;0;..0....:....|
00002290  44 05 3a 0d 11 4e 09 dd  f2 6f 66 66 0d 11 58 18  |D.:..N...off..X.|
000022a0  e7 20 a4 42 65 65 62 20  f2 76 69 64 65 6f 55 4c  |. .Beeb .videoUL|
000022b0  41 28 30 29 0d 11 62 0e  e3 4d 25 3d 37 b8 30 88  |A(0)..b..M%=7.0.|
000022c0  2d 31 0d 11 6c 11 e7 4d  25 81 32 3d 30 3a 2a 46  |-1..l..M%.2=0:*F|
000022d0  58 31 39 0d 11 76 11 ef  31 39 2c 31 2c 4d 25 3b  |X19..v..19,1,M%;|
000022e0  30 3b 30 3b 0d 11 80 05  ed 0d 11 8a 05 e1 0d 11  |0;0;............|
000022f0  94 05 3a 0d 11 9e 12 dd  f2 76 69 64 65 6f 55 4c  |..:......videoUL|
00002300  41 28 58 25 29 0d 11 a8  0f e7 20 ac 20 a4 42 65  |A(X%)..... . .Be|
00002310  65 62 20 e1 0d 11 b2 0a  41 25 3d 31 35 35 0d 11  |eb .....A%=155..|
00002320  bc 09 2a 46 58 31 39 0d  11 c6 0a d6 26 46 46 46  |..*FX19.....&FFF|
00002330  34 0d 11 d0 13 58 25 3d  58 25 2b 31 36 3a d6 26  |4....X%=X%+16:.&|
00002340  46 46 46 34 0d 11 da 13  58 25 3d 58 25 2b 31 36  |FFF4....X%=X%+16|
00002350  3a d6 26 46 46 46 34 0d  11 e4 09 2a 46 58 31 39  |:.&FFF4....*FX19|
00002360  0d 11 ee 13 58 25 3d 58  25 2b 31 36 3a d6 26 46  |....X%=X%+16:.&F|
00002370  46 46 34 0d 11 f8 13 58  25 3d 58 25 2b 36 34 3a  |FF4....X%=X%+64:|
00002380  d6 26 46 46 46 34 0d 12  02 05 e1 0d 12 0c 05 3a  |.&FFF4.........:|
00002390  0d 12 16 0e dd f2 63 72  74 63 36 38 34 35 0d 12  |......crtc6845..|
000023a0  20 0f e7 20 ac 20 a4 42  65 65 62 20 e1 0d 12 2a  | .. . .Beeb ...*|
000023b0  13 ef 32 33 3b 34 2c 33  38 3b 30 3b 30 3b 30 3b  |..23;4,38;0;0;0;|
000023c0  0d 12 34 13 ef 32 33 3b  35 2c 33 32 3b 30 3b 30  |..4..23;5,32;0;0|
000023d0  3b 30 3b 0d 12 3e 13 ef  32 33 3b 37 2c 33 30 3b  |;0;..>..23;7,30;|
000023e0  30 3b 30 3b 30 3b 0d 12  48 12 ef 32 33 3b 39 2c  |0;0;0;..H..23;9,|
000023f0  37 3b 30 3b 30 3b 30 3b  0d 12 52 05 e1 0d 12 5c  |7;0;0;0;..R....\|
00002400  05 3a 0d 12 66 11 dd f2  7a 65 72 6f 28 41 25 2c  |.:..f...zero(A%,|
00002410  42 25 29 0d 12 70 26 e3  59 25 3d 41 25 b8 42 25  |B%)..p&.Y%=A%.B%|
00002420  3a e3 58 25 3d 30 b8 33  39 3a 53 25 28 58 25 2c  |:.X%=0.39:S%(X%,|
00002430  59 25 29 3d 33 32 3a ed  2c 0d 12 7a 05 e1 0d 12  |Y%)=32:.,..z....|
00002440  84 05 3a 0d 12 8e 0b dd  20 a4 42 65 65 62 0d 12  |..:..... .Beeb..|
00002450  98 3b f4 20 41 64 64 20  27 49 46 27 20 73 74 61  |.;. Add 'IF' sta|
00002460  74 65 6d 65 6e 74 73 20  61 73 20 6e 65 63 65 73  |tements as neces|
00002470  73 61 72 79 20 74 6f 20  74 65 73 74 20 6d 61 63  |sary to test mac|
00002480  68 69 6e 65 20 74 79 70  65 0d 12 a2 0d f4 20 31  |hine type..... 1|
00002490  20 2d 20 45 4c 4b 0d 12  ac 0e f4 20 32 35 31 20  | - ELK..... 251 |
000024a0  2d 20 42 2b 0d 12 b6 0e  f4 20 3f 20 2d 20 41 52  |- B+..... ? - AR|
000024b0  43 48 0d 12 c0 0f e7 a6  2d 32 35 36 3d 31 20 3d  |CH......-256=1 =|
000024c0  a3 0d 12 ca 06 3d b9 0d  ff                       |.....=...|
000024c9
Rep2compr/MW2.m0
Rep2compr/MW2.m1
Rep2compr/MW2.m2
Rep2compr/MW2.m4
Rep2compr/MW2.m5