GAMES2/ELEVATOR

Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF » GAMES2/ELEVATOR

GAMES2/ELEVATOR

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 » Digital_pictures_2.ADF
Filename:	GAMES2/ELEVATOR
Read OK:	✔
File size:	2045 bytes
Load address:	FFFF0E00
Exec address:	FFFF8023

File contents

  100ONERROR GOTO 240
  110MODE6:VDU23,1,0;0;0;0; 
  120PROCFP
  130MODE5:PROCCHAR
  140DIMA$(1),B$(1),C$(1)
  150DIM X%(6),Y%(6),U%(6),L%(6),D%(6),A%(6),B%(6),Z%(6),W%(6),I%(6),P%(6),U$(6),D$(6),L$(1),R$(1),M$(1),A%330
  160PROCS
  170REPEAT:PROCST
  180REPEAT:PROCMA 
  190REPEAT:PROCL:PROCD:PROCM:UNTIL OV%
  200PROCG
  210UNTIL ME%=0:PROCNXG
  220UNTIL FALSE
  230:
  240ON ERROR OFF
  250MODE6:IF ERR=17 END
  260REPORT:PRINT" at line ";ERL
  270END
  280:
 1000DEFPROCMA
 1010CLS:CF%=FALSE:VDU23,1,0;0;0;0;
 1020VDU19,3,6,0,0,0
 1030PROCRM:PROCGM
 1040COLOUR2
 1050FOR I%=3TO27STEP4:PRINTTAB(0,I%)STRING$(20,CHR$240);:NEXT:PRINTTAB(0,31)STRING$(19,CHR$240); 
 1060FOR I%=A%TOA%+287STEP21:$I%=STRING$(20,CHR$7)+CHR$0:NEXT 
 1070A%?166=0:COLOUR1 
 1080FORI%=1TO6:FORJ%=U%(I%)TOL%(I%)
 1090IF (J%+1)MOD4=0COLOUR1:PRINTTAB(X%(I%)-1,J%)CHR$252LB$CHR$253;:COLOUR1 ELSE PRINTTAB(X%(I%),J%)LB$;
 1100K%=((J%+1)DIV4-1)*21+A%+X%(I%)
 1110?K%=I%:NEXT:I%(I%)=0
 1120PRINTTAB(X%(I%),Y%(I%))L$;:NEXT
 1130COLOUR3
 1140FOR I%=1 TO ND%
 1150PROCSA
 1160?H%=8:PRINTTAB(J%,K%*4+2)CHR$246;
 1170A%(I%)=J%:B%(I%)=K%*4+2
 1180Z%(I%)=A%+K%*21:W%(I%)=0
 1190NEXT
 1200FOR I%=1TONM%:PROCSM:NEXT
 1210IF NC%=0 ENDPROC
 1220COLOUR3
 1230FOR I%=1 TO NC%
 1240PROCSA
 1250?H%=10:PRINTTAB(J%,K%*4)CHR$242;
 1260NEXT
 1270ENDPROC
 1280:
 1290DEFPROCSA
 1300J%=RND(18):K%=RND(7):H%=A%+J%+K%*21
 1310IF ?H%<>7 OR ?(H%-21)<>7 OR ?(H%+1)<>7 OR ?(H%-1)<>7 OR ?(H%-20)<>7 OR ?(H%-22)<>7 GOTO1300
 1320ENDPROC
 1330:
 1340DEFPROCSM:PROCSA:?H%=9:COLOUR1:PRINTTAB(J%,K%*4)CHR$242;:COLOUR3:ENDPROC
 1350:
 1360DEFPROCRM
 1370X%=0:Y%=1:M%=1:Z%=A%:W%=FALSE
 1380ENDPROC
 1390:
 1400DEFPROCGM
 1410X%(1)=FNRX:U%(1)=3:L%(1)=U%(1)+4+RND(4)*4
 1420X%(2)=FNRX:IF X%(2)=X%(1) GOTO1420
 1430L%(2)=31:U%(2)=L%(1)-RND(2)*4
 1440FOR I%=3TO6
 1450X%(I%)=FNRX:K%=0
 1460FOR J%=1TOI%-1
 1470IF X%(I%)<>X%(J%)GOTO1490
 1480IF K%=0 K%=J%ELSE K%=-1
 1490NEXT
 1500 IF K%=0PROCNL:GOTO1550 
 1510IF K%=-1 GOTO 1450
 1520U%(I%)=U%(K%)-3:L%(I%)=31-L%(K%)
 1530IF U%(I%)<12 AND L%(I%)<12GOTO1450
 1540IF U%(I%)<L%(I%)PROCNB ELSE PROCNT
 1550NEXT
 1560FOR I%=1TO6:U$(I%)=MD$:D$(I%)=MD$:U$(I%)=LU$:D$(I%)=LD$:D%(I%)=RND(2)-1:Y%(I%)=(U%(I%)+L%(I%))/2:NEXT
 1570ENDPROC
 1580:
 1590DEFPROCNL
 1600U%(I%)=-1+RND(5)*4:L%(I%)=U%(I%)+8+4*RND(3):IFL%(I%)>31L%(I%)=31
 1610ENDPROC
 1620:
 1630 DEFPROCNT
 1640U%(I%)=-1+RND(2)*4:L%(I%)=U%(I%)+4+RND(2)*4  
 1650IFL%(I%)>=U%(K%)GOTO 1640
 1660ENDPROC
 1670:
 1680DEFPROCNB
 1690L%(I%)=35-RND(2)*4:U%(I%)=L%(I%)-4-4*RND(2)
 1700IFU%(I%)<=L%(K%)GOTO1690
 1710ENDPROC
 1720:
 1730DEFFNRX=4*RND(5)-3
 1740:
 1750DEFPROCL
 1760COLOUR1
 1770FORI%=1 TO 6
 1780IFD%(I%)GOTO1810
 1790PRINTTAB(X%(I%),Y%(I%))U$(I%);:Y%(I%)=Y%(I%)-2:IFY%(I%)=U%(I%)D%(I%)=TRUE
 1800NEXT:ENDPROC
 1810PRINTTAB(X%(I%),Y%(I%))D$(I%);:Y%(I%)=Y%(I%)+2:IFY%(I%)=L%(I%)D%(I%)=FALSE
 1820NEXT:ENDPROC
 1830:
 1840DEFPROCCHAR
 1850VDU23,240,255,129,255,129,66,36,24,255
 1860VDU23,241,255,255,255,0,0,0,0,0
 1870VDU23,242,255,255,60,24,24,90,66,66
 1880VDU23,243,60,90,126,60,36,126,255,189
 1890VDU23,244,189,189,60,36,36,36,100,6
 1900VDU23,245,189,189,60,36,36,36,38,96
 1910VDU23,246,195,66,126,219,219,126,66,195
 1920VDU23,247,66,66,231,66,66,231,66,66
 1930VDU23,248,204,51,204,51,204,51,204,51
 1940VDU23,252,255,255,255,224,224,224,224,224
 1950VDU23,253,255,255,255,7,7,7,7,7
 1960VDU23,224,28,48,62,20,28,60,126,189
 1970VDU23,225,189,60,24,24,56,104,200,76
 1980VDU23,226,189,60,24,24,28,23,18,48
 1990VDU23,227,189,60,24,24,28,23,18,48
 2000VDU23,228,189,60,24,24,56,104,200,88
 2010VDU23,229,28,6,62,20,28,60,126,189
 2020VDU23,230,102,66,126,219,219,126,66,102
 2030ENVELOPE1,1,6,0,-6,200,100,200,100,2,0,-1,120,110
 2040ENDPROC
 2050:
 2060DEFPROCS
 2070TE$=CHR$10+CHR$8+CHR$8
 2080ET$=CHR$8+CHR$10:EE$=CHR$8+CHR$11
 2090 EG$=CHR$11+CHR$8:R$=CHR$17+CHR$1 
 2100Y$=CHR$17+CHR$2:W$=CHR$17+CHR$3
 2110B$=CHR$32+CHR$10+CHR$8+CHR$32
 2120L$=CHR$241:LB$=CHR$32
 2130LU$=LB$+CHR$11+EG$+L$
 2140LD$=LB$+CHR$10+CHR$10+CHR$8+L$
 2150MU$=LB$+EG$+LB$+EE$+L$+EE$+R$+CHR$244+Y$+EE$+CHR$243+R$
 2160MD$=LB$+Y$+EE$+CHR$11+LB$+ET$+LB$+ET$+CHR$243+ET$+R$+CHR$244+ET$+R$+L$
 2170TP$=Y$+CHR$8+CHR$229+LB$+TE$+R$:L$(0)=TP$+CHR$227+LB$:L$(1)=TP$+CHR$228+LB$
 2180TP$=Y$+LB$+CHR$224+TE$+LB$+R$:R$(0)=TP$+CHR$225:R$(1)=TP$+CHR$226
 2190TP$=Y$+CHR$243+CHR$10+CHR$8+R$:M$(0)=TP$+CHR$244:M$(1)=TP$+CHR$245
 2200A$(0)=CHR$8+CHR$246+LB$
 2210A$(1)=CHR$8+CHR$230+LB$
 2220B$(0)=LB$+CHR$246
 2230B$(1)=LB$+CHR$230
 2240C$(0)=CHR$246:C$(1)=CHR$230
 2250P$=A$(0):S$=B$(0):C$=C$(0)
 2260DU$=LB$+EG$+LB$+EE$+L$+EE$+W$+CHR$246+R$
 2270DD$=LB$+W$+EE$+LB$+ET$+CHR$10+CHR$246+ET$+R$+L$   
 2280CH$=R$+CHR$42+Y$+CHR$42+W$+CHR$42
 2290CV$=Y$+CHR$42+ET$+R$+CHR$42+ET$+W$+CHR$42+ET$
 2300?A%=0:A%=A%+1 
 2310HSC%=0:N$="JOE ZERO"
 2320ENDPROC
 2330:
 2340DEFPROCM
 2350IF W% GOTO 2440
 2360IF M% M%=0 ELSE M%=1
 2370P%=Z%+X%:IF ?P%>7PROCE2:ENDPROC
 2380IF INKEY-67GOTO2400ELSE IF INKEY-98 GOTO 2420
 2390PRINTTAB(X%,Y%)M$(M%):ENDPROC
 2400IF P%?1>6 PRINTTAB(X%,Y%)R$(M%):X%=X%+1 ELSE L%=P%?1:PROCEN
 2410ENDPROC
 2420IF P%?-1>6PRINTTAB(X%,Y%)L$(M%):X%=X%-1 ELSE L%=P%?-1:PROCEN
 2430ENDPROC
 2440IF W%<0 GOTO2510
 2450IF INKEY-67 TX%=1:PROCEX:ENDPROC
 2460IF INKEY-98 TX%=-1:PROCEX:ENDPROC
 2470Y%=Y%(L%)
 2480IF INKEY-73 D%(L%)=0 ELSE IF INKEY-105 D%(L%)=1 ELSE ENDPROC
 2490IF Y%(L%)=U%(L%) D%(L%)=TRUE ELSE IF Y%(L%)=L%(L%)D%(L%)=FALSE
 2500ENDPROC 
 2510W%=W%+1:IF W%=0:PROCSM
 2520ENDPROC
 2530:
 2540DEFPROCEN
 2550IF L%=0GOTO2620
 2560IF Y%(L%)<>Y%+2ORI%(L%)PRINTTAB(X%,Y%)M$(M%):ENDPROC
 2570SOUND1,1,100,2:PRINTTAB(X%,Y%)B$
 2580U$(L%)=MU$:D$(L%)=MD$:X%=X%(L%)
 2590PRINTTAB(X%,Y%)M$(M%)
 2600W%=1:I%(L%)=9 
 2610ENDPROC
 2620IF X%=0PRINTTAB(0,Y%)B$:X%=19+(Y%=29):PRINTTAB(X%,Y%)M$(M%):ENDPROC
 2630IF X%>17 PRINTTAB(X%,Y%)B$:X%=0:PRINTTAB(X%,Y%)M$(M%):ENDPROC
 2640PRINTTAB(X%,Y%)M$(M%)
 2650ENDPROC
 2660:
 2670DEFPROCEX
 2680IF (Y%(L%)+1)MOD4=0ELSE ENDPROC
 2690SOUND1,1,200,2
 2700U$(L%)=LU$:D$(L%)=LD$:W%=FALSE
 2710I%(L%)=0
 2720Y%=Y%(L%)-2:Z%=((Y%(L%)+1)DIV4-1)*21+A%
 2730 PRINTTAB(X%,Y%)B$:X%=X%+TX%
 2740PRINTTAB(X%,Y%)M$(M%):ENDPROC
 2750:
 2760DEFPROCD
 2770IF E% E%=0 ELSE E%=1
 2780P$=A$(E%):S$=B$(E%):C$=C$(E%)
 2790COLOUR3
 2800FOR D%=1TO5
 2810IF D%>ND%:PROCDT(0):NEXT:ENDPROC
 2820 IF W%(D%)GOTO2900
 2830U%=A%(D%):V%=Z%(D%)+U%:S%=B%(D%)
 2840IF S%=Y%+1 P%(D%)=U%<X%:IF U%=X% NEXT :ENDPROC
 2850IF P%(D%) GOTO 2880
 2860IF V%?-1>6ELSET%=V%?-1:PROCDE:NEXT:ENDPROC
 2870?V%=7:PRINTTAB(U%,S%)P$:A%(D%)=U%-1:IF V%?-1<9V%?-1=8:NEXT:ENDPROC ELSE PROCE1M:NEXT:ENDPROC
 2880IFV%?1>6ELSET%=V%?1:PROCDE:NEXT:ENDPROC
 2890?V%=7:PRINTTAB(U%,S%)S$:A%(D%)=U%+1:IFV%?1<9V%?1=8:NEXT:ENDPROC ELSEPROCE1P:NEXT:ENDPROC
 2900IFW%(D%)<0GOTO2980 
 2910R%=Y%-Y%(W%(D%))+2
 2920IFR%=0PROCDX:NEXT:ENDPROC
 2930IFR%<0GOTO2960
 2940IFNOTD%(W%(D%))PROCDX
 2950NEXT:ENDPROC
 2960IFD%(W%(D%))PROCDX
 2970NEXT:ENDPROC
 2980W%(D%)=W%(D%)+1
 2990IF W%(D%)=0 PROCRE:SOUND3,1,200,10
 3000NEXT:ENDPROC
 3010:
 3020DEFPROCDE
 3030IF S%=Y%(T%)-1ELSE IF T%=0 P%(D%)=NOT P%(D%):ENDPROC ELSEPRINTTAB(U%,S%)C$:ENDPROC
 3040IF S%+1=U%(T%) OR S%+1=L%(T%) GOTO3090
 3050IF Y%<=S%GOTO3080
 3060IF NOTD%(T%) ENDPROC
 3070GOTO3090
 3080 IF D%(T%) ENDPROC
 3090IF I%(T%) ENDPROC 
 3100?V%=7
 3110SOUND1,1,100,2:PRINTTAB(U%,S%)LB$
 3120U$(T%)=DU$:D$(T%)=DD$:A%(D%)=X%(T%)
 3130PRINTTAB(A%(D%),S%)C$
 3140W%(D%)=T%:I%(T%)=D%
 3150ENDPROC
 3160:
 3170DEFPROCDX
 3180IF (Y%(W%(D%))+1)MOD4=0ELSEENDPROC
 3190SOUND1,3,200,2
 3200T%=W%(D%):W%(D%)=0:I%(T%)=0
 3210U$(T%)=LU$:D$(T%)=LD$:B%(D%)=Y%(T%)-1
 3220PRINTTAB(A%(D%),B%(D%))LB$
 3230IF Y%=B%(D%)-1 P%(D%)=A%(D%)<X%
 3240IF P%(D%) A%(D%)=A%(D%)+1 ELSE A%(D%)=A%(D%)-1 
 3250PRINTTAB(A%(D%),B%(D%))C$(E%)
 3260Z%(D%)=((Y%(T%)+1)DIV4-1)*21+A%:?(Z%(D%)+A%(D%))=8
 3270ENDPROC
 3280:
 3290DEFPROCE1M
 3300U%=U%-1:V%=V%-1:GOTO3340
 3310:
 3320DEFPROCE1P
 3330U%=U%+1:V%=V%+1 
 3340 IF ?V%=10 CF%=TRUE
 3350IF ?V%>10 EX%=D%:D%=?V%-10:SOUND1,1,200,10:PROCRE:D%=EX%:A%(D%)=A%(D%)+1:?V%=8:ENDPROC
 3360?V%=10+D%:SOUND1,1,200,10:SOUND1,1,200,10:SOUND2,2,200,30
 3370FOR EX%=1TO36:COLOUREX%MOD4
 3380PRINTTAB(U%,B%(D%));:VDU246,8,11,247,8,11,242
 3390NEXT
 3400IF CF% PROCCL:ENDPROC
 3410COLOUR2:PRINTTAB(U%,B%(D%)-2)CHR$246:COLOUR3:W%(D%)=-50 
 3420ENDPROC
 3430:
 3440DEFPROCEA:IF D%=ND%GOTO3460ELSEA%(D%)=A%(ND%):B%(D%)=B%(ND%):W%(D%)=W%(ND%):Z%(D%)=Z%(ND%)
 3450IF W%(ND%)<0?(Z%(ND%)+A%(ND%))=10+D%
 3460ND%=ND%-1:D%=9:DD%=DD%+1:IF ND%=0OV%=TRUE
 3470ENDPROC
 3480:
 3490DEFPROCRE:PRINTTAB(A%(D%),B%(D%)-2)LB$;:VDU8,10,10,246:W%(D%)=0:PROCSM:ENDPROC
 3500:
 3510DEFPROCER:D%=?P%-10:?P%=7:COLOUR1:PRINTTAB(A%(D%),B%(D%)-2)CHR$246:COLOUR3:PROCEA:SOUND0,1,6,20:ENDPROC
 3520:
 3530DEFPROCE2
 3540IF ?P%>10PROCER:ENDPROC
 3550IF ?P%>8W%=-20:?P%=7:PRINTTAB(X%,Y%-1)LB$:SOUND1,1,200,20:ENDPROC
 3560SOUND1,1,200,20:PROCDT(25)
 3570PRINTTAB(X%,Y%)CHR$248:PRINTTAB(X%,Y%+1)CHR$248:PROCDT(35):PRINTTAB(X%,Y%)B$
 3580ME%=ME%-1:DD%=DD%+1:OV%=TRUE
 3590ENDPROC
 3600:
 3610DEFPROCDT(I%):T=TIME:REPEAT UNTILTIME>T+I%:ENDPROC
 3620:
 3630DEFPROCG
 3640CLS:SC%=SC%+250+200*DD%
 3650IF SC%DIV2000<>BC% ME%=ME%+1
 3660IF ME%=0ENDPROC
 3670VDU19,3,2,0,0,0,0
 3680PRINTTAB(1,1)STRING$(6,CH$)TAB(0,1)STRING$(10,CV$)TAB(19,1)STRING$(10,CV$)TAB(0,30)Y$+CHR$42+STRING$(6,CH$)+Y$+CHR$42;
 3690PRINTTAB(5,2)Y$+"ELEVASION"TAB(4,4)"SCORE BOARD"TAB(4,6)"FOR SHEET ";G%;TAB(1,7)STRING$(6,CH$);
 3700PRINTTAB(2,9)"YOUR SCORE ";SC%
 3710PRINTTAB(2,11)"HIGH SCORE ";HSC%
 3720PRINTTAB(2,14)R$"DROIDS DESTROYED"
 3730X%=DD%:IF X%>8 X%=8
 3740PRINTTAB(2,16)STRING$(X%,CHR$246+CHR$9)
 3750PRINTTAB(2,20)Y$"MEN LEFT"
 3760X%=ME%:IF X%>8X%=8
 3770PRINTTAB(2,22)STRING$(X%,M$(0)+CHR$11+CHR$9);
 3780X%=1
 3790IF SC%DIV2000<>BC%AND X%=1 PRINTTAB(2,25)Y$"BONUS MAN" ELSE PRINTTAB(2,25)SPC(10)
 3800PRINTTAB(1,28)R$"RETURN TO CONTINUE"
 3810IF INKEY-74 GOTO 3830
 3820IF TIME MOD15=0 X%=X%EOR1:GOTO3790 ELSE GOTO 3810
 3830VDU19,3,6,0,0,0:OV%=FALSE
 3840G%=G%+1:DD%=0:BC%=SC%DIV2000
 3850IF G%<=5 GOTO3890
 3860ND%=G%-5:IF ND%>5 ND%=5
 3870NC%=G%-5:IF NC%>8 NC%=8
 3880NM%=2+ND%:ENDPROC
 3890ND%=G%:NM%=2+ND%
 3900ENDPROC
 3910:
 3920DEFPROCST
 3930G%=1:ND%=1:NM%=3:NC%=0:DD%=0:ME%=3:OV%=FALSE:SC%=0:BC%=0
 3940ENDPROC
 3950:
 3960DEFPROCCL
 3970CF%=FALSE:SOUND1,1,200,20
 3980IF ND%=5ENDPROC
 3990ND%=ND%+1:PROCSM
 4000A%(ND%)=A%(D%)+1:B%(ND%)=B%(D%):Z%(ND%)=Z%(D%):W%(ND%)=0
 4010ENDPROC
 4020:
 4030DEFPROCNXG
 4040CLS:VDU19,3,2,0,0,0
 4050 PRINTTAB(1,1)STRING$(6,CH$)TAB(0,1)STRING$(10,CV$)TAB(19,1)STRING$(10,CV$)TAB(0,30)Y$+CHR$42+STRING$(6,CH$)+Y$+CHR$42;
 4060PRINTTAB(5,2)Y$+"ELEVASION"TAB(4,4)"GAME   OVER";TAB(1,5)STRING$(6,CH$);
 4070PRINTTAB(3,7)"THE HISCORE WAS"TAB(8,9);HSC% TAB(3,11)"BY "N$
 4080PRINTTAB(3,14)Y$"YOUR SCORE WAS "TAB(8,16);SC%
 4090IF SC%<=HSC% GOTO4200
 4100PRINTTAB(3,18)"THE NEW HISCORE"
 4110PRINTTAB(3,21)R$"ENTER YOUR NAME"
 4120*FX21,0
 4130PRINTTAB(3,23)"-->"Y$;
 4140N$="":REPEAT IK=GET
 4150IF IK=13 GOTO4180
 4160IF IK=127 AND LENN$<>0 PRINTCHR$IK;:N$=LEFT$(N$,LENN$-1):GOTO4180 ELSE IF IK=127 GOTO4180
 4170N$=N$+CHR$IK:PRINTCHR$IK;
 4180UNTIL IK=13 OR LENN$=12
 4190HSC%=SC%
 4200PRINTTAB(4,26)R$"PRESS RETURN"TAB(2,28)"FOR ANOTHER GAME";:PROCDT(100):REPEAT UNTIL INKEY-74
 4210ENDPROC
 4220:
 4230DEFPROCFP
 4240CLS:PRINTTAB(13,3)"ELEVASION"
 4250PRINTTAB(16,12);"by"
 4260PRINTTAB(12,14)"D.J.Pilling"
 4270PRINTTAB(6,20)"Press any key to start." 
 4280G=GET:CLS
 4290ENDPROC

d
� � �dp@
n�6:�23,1,0;0;0;0; 
x�FP
��5:�CHAR
��A$(1),B$(1),C$(1)
�k� X%(6),Y%(6),U%(6),L%(6),D%(6),A%(6),B%(6),Z%(6),W%(6),I%(6),P%(6),U$(6),D$(6),L$(1),R$(1),M$(1),A%330
��S
�	�:�ST
�
�:�MA 
��:�L:�D:�M:� OV%
��G
�� ME%=0:�NXG
�� �
�:
�	� � �
��6:� �=17 �
�:�" at line ";�
�
:
���MA
��:CF%=�:�23,1,0;0;0;0;
��19,3,6,0,0,0
�RM:�GM
�2
6� I%=3�27�4:�0,I%)�20,�240);:�:�0,31)�19,�240); 
$'� I%=A%�A%+287�21:$I%=�20,�7)+�0:� 
.A%?166=0:�1 
8�I%=1�6:�J%=U%(I%)�L%(I%)
BC� (J%+1)�4=0�1:�X%(I%)-1,J%)�252LB$�253;:�1 � �X%(I%),J%)LB$;
L K%=((J%+1)�4-1)*21+A%+X%(I%)
V?K%=I%:�:I%(I%)=0
`�X%(I%),Y%(I%))L$;:�
j�3
t� I%=1 � ND%
~�SA
�?H%=8:�J%,K%*4+2)�246;
�A%(I%)=J%:B%(I%)=K%*4+2
�Z%(I%)=A%+K%*21:W%(I%)=0
��
�� I%=1�NM%:�SM:�
�
� NC%=0 �
��3
�� I%=1 � NC%
��SA
�?H%=10:�J%,K%*4)�242;
��
��
:

��SA
#J%=�(18):K%=�(7):H%=A%+J%+K%*21
V� ?H%<>7 � ?(H%-21)<>7 � ?(H%+1)<>7 � ?(H%-1)<>7 � ?(H%-20)<>7 � ?(H%-22)<>7 �TTE
(�
2:
<*��SM:�SA:?H%=9:�1:�J%,K%*4)�242;:�3:�
F:
P��RM
ZX%=0:Y%=1:M%=1:Z%=A%:W%=�
d�
n:
x��GM
�*X%(1)=�RX:U%(1)=3:L%(1)=U%(1)+4+�(4)*4
�!X%(2)=�RX:� X%(2)=X%(1) �tLE
�L%(2)=31:U%(2)=L%(1)-�(2)*4
�� I%=3�6
�X%(I%)=�RX:K%=0
�� J%=1�I%-1
�� X%(I%)<>X%(J%)�dRE
�� K%=0 K%=J%� K%=-1
��
� � K%=0�NL:�TNF 
�� K%=-1 � �tjE
�$U%(I%)=U%(K%)-3:L%(I%)=31-L%(K%)
� � U%(I%)<12 � L%(I%)<12�tjE
� U%(I%)<L%(I%)�NB � �NT
�
a� I%=1�6:U$(I%)=MD$:D$(I%)=MD$:U$(I%)=LU$:D$(I%)=LD$:D%(I%)=�(2)-1:Y%(I%)=(U%(I%)+L%(I%))/2:�
"�
,:
6��NL
@?U%(I%)=-1+�(5)*4:L%(I%)=U%(I%)+8+4*�(3):�L%(I%)>31L%(I%)=31
J�
T:
^	 ��NT
h-U%(I%)=-1+�(2)*4:L%(I%)=U%(I%)+4+�(2)*4  
r�L%(I%)>=U%(K%)� �DhF
|�
�:
���NB
�+L%(I%)=35-�(2)*4:U%(I%)=L%(I%)-4-4*�(2)
��U%(I%)<=L%(K%)�tZF
��
�:
�ݤRX=4*�(5)-3
�:
���L
��1
�
�I%=1 � 6
��D%(I%)�TRG
�B�X%(I%),Y%(I%))U$(I%);:Y%(I%)=Y%(I%)-2:�Y%(I%)=U%(I%)D%(I%)=�
�:�
B�X%(I%),Y%(I%))D$(I%);:Y%(I%)=Y%(I%)+2:�Y%(I%)=L%(I%)D%(I%)=�
�:�
&:
0
��CHAR
:(�23,240,255,129,255,129,66,36,24,255
D!�23,241,255,255,255,0,0,0,0,0
N%�23,242,255,255,60,24,24,90,66,66
X'�23,243,60,90,126,60,36,126,255,189
b%�23,244,189,189,60,36,36,36,100,6
l%�23,245,189,189,60,36,36,36,38,96
v)�23,246,195,66,126,219,219,126,66,195
�%�23,247,66,66,231,66,66,231,66,66
�'�23,248,204,51,204,51,204,51,204,51
�+�23,252,255,255,255,224,224,224,224,224
�!�23,253,255,255,255,7,7,7,7,7
�%�23,224,28,48,62,20,28,60,126,189
�&�23,225,189,60,24,24,56,104,200,76
�$�23,226,189,60,24,24,28,23,18,48
�$�23,227,189,60,24,24,28,23,18,48
�&�23,228,189,60,24,24,56,104,200,88
�$�23,229,28,6,62,20,28,60,126,189
�)�23,230,102,66,126,219,219,126,66,102
�.�1,1,6,0,-6,200,100,200,100,2,0,-1,120,110
��
:
��S
TE$=�10+�8+�8
 ET$=�8+�10:EE$=�8+�11
* EG$=�11+�8:R$=�17+�1 
4Y$=�17+�2:W$=�17+�3
>B$=�32+�10+�8+�32
HL$=�241:LB$=�32
RLU$=LB$+�11+EG$+L$
\LD$=LB$+�10+�10+�8+L$
f5MU$=LB$+EG$+LB$+EE$+L$+EE$+R$+�244+Y$+EE$+�243+R$
pAMD$=LB$+Y$+EE$+�11+LB$+ET$+LB$+ET$+�243+ET$+R$+�244+ET$+R$+L$
zCTP$=Y$+�8+�229+LB$+TE$+R$:L$(0)=TP$+�227+LB$:L$(1)=TP$+�228+LB$
�<TP$=Y$+LB$+�224+TE$+LB$+R$:R$(0)=TP$+�225:R$(1)=TP$+�226
�7TP$=Y$+�243+�10+�8+R$:M$(0)=TP$+�244:M$(1)=TP$+�245
�A$(0)=�8+�246+LB$
�A$(1)=�8+�230+LB$
�B$(0)=LB$+�246
�B$(1)=LB$+�230
�C$(0)=�246:C$(1)=�230
�P$=A$(0):S$=B$(0):C$=C$(0)
�)DU$=LB$+EG$+LB$+EE$+L$+EE$+W$+�246+R$
�0DD$=LB$+W$+EE$+LB$+ET$+�10+�246+ET$+R$+L$   
�CH$=R$+�42+Y$+�42+W$+�42
�(CV$=Y$+�42+ET$+R$+�42+ET$+W$+�42+ET$
�?A%=0:A%=A%+1 
	HSC%=0:N$="JOE ZERO"
	�
	:
	$��M
	.� W% � �tHI
	8� M% M%=0 � M%=1
	BP%=Z%+X%:� ?P%>7�E2:�
	L� �-67�D`I� � �-98 � �DtI
	V�X%,Y%)M$(M%):�
	`1� P%?1>6 �X%,Y%)R$(M%):X%=X%+1 � L%=P%?1:�EN
	j�
	t2� P%?-1>6�X%,Y%)L$(M%):X%=X%-1 � L%=P%?-1:�EN
	~�
	�� W%<0 �dNI
	�� �-67 TX%=1:�EX:�
	�� �-98 TX%=-1:�EX:�
	�
Y%=Y%(L%)
	�*� �-73 D%(L%)=0 � � �-105 D%(L%)=1 � �
	�6� Y%(L%)=U%(L%) D%(L%)=� � � Y%(L%)=L%(L%)D%(L%)=�
	�� 
	�W%=W%+1:� W%=0:�SM
	��
	�:
	���EN
	�� L%=0�T|J
)� Y%(L%)<>Y%+2�I%(L%)�X%,Y%)M$(M%):�

�1,1,100,2:�X%,Y%)B$
#U$(L%)=MU$:D$(L%)=MD$:X%=X%(L%)
�X%,Y%)M$(M%)
(W%=1:I%(L%)=9 
2�
<2� X%=0�0,Y%)B$:X%=19+(Y%=29):�X%,Y%)M$(M%):�
F,� X%>17 �X%,Y%)B$:X%=0:�X%,Y%)M$(M%):�
P�X%,Y%)M$(M%)
Z�
d:
n��EX
x� (Y%(L%)+1)�4=0� �
��1,1,200,2
�U$(L%)=LU$:D$(L%)=LD$:W%=�
�I%(L%)=0
�)Y%=Y%(L%)-2:Z%=((Y%(L%)+1)�4-1)*21+A%
� �X%,Y%)B$:X%=X%+TX%
��X%,Y%)M$(M%):�
�:
���D
�� E% E%=0 � E%=1
�!P$=A$(E%):S$=B$(E%):C$=C$(E%)
��3
�� D%=1�5
�� D%>ND%:�DT(0):�:�
 � W%(D%)�DTK
$U%=A%(D%):V%=Z%(D%)+U%:S%=B%(D%)
'� S%=Y%+1 P%(D%)=U%<X%:� U%=X% � :�
"� P%(D%) � �D@K
,� V%?-1>6�T%=V%?-1:�DE:�:�
6@?V%=7:�U%,S%)P$:A%(D%)=U%-1:� V%?-1<9V%?-1=8:�:� � �E1M:�:�
@�V%?1>6�T%=V%?1:�DE:�:�
J<?V%=7:�U%,S%)S$:A%(D%)=U%+1:�V%?1<9V%?1=8:�:� ��E1P:�:�
T�W%(D%)<0�tdK 
^R%=Y%-Y%(W%(D%))+2
h�R%=0�DX:�:�
r�R%<0�tPK
|�D%(W%(D%))�DX
��:�
��D%(W%(D%))�DX
��:�
�W%(D%)=W%(D%)+1
�� W%(D%)=0 �RE:�3,1,200,10
��:�
�:
���DE
�9� S%=Y%(T%)-1� � T%=0 P%(D%)=� P%(D%):� ��U%,S%)C$:�
�%� S%+1=U%(T%) � S%+1=L%(T%) �TRL
�� Y%<=S%�THL
�� �D%(T%) �
�	�TRL
 � D%(T%) �
� I%(T%) � 
	?V%=7
&�1,1,100,2:�U%,S%)LB$
0'U$(T%)=DU$:D$(T%)=DD$:A%(D%)=X%(T%)
:�A%(D%),S%)C$
DW%(D%)=T%:I%(T%)=D%
N�
X:
b��DX
l� (Y%(W%(D%))+1)�4=0��
v�1,3,200,2
�T%=W%(D%):W%(D%)=0:I%(T%)=0
�)U$(T%)=LU$:D$(T%)=LD$:B%(D%)=Y%(T%)-1
��A%(D%),B%(D%))LB$
�"� Y%=B%(D%)-1 P%(D%)=A%(D%)<X%
�/� P%(D%) A%(D%)=A%(D%)+1 � A%(D%)=A%(D%)-1 
��A%(D%),B%(D%))C$(E%)
�4Z%(D%)=((Y%(T%)+1)�4-1)*21+A%:?(Z%(D%)+A%(D%))=8
��
�:
�	��E1M
�U%=U%-1:V%=V%-1:�TLM
�:
�	��E1P

U%=U%+1:V%=V%+1 

 � ?V%=10 CF%=�

L� ?V%>10 EX%=D%:D%=?V%-10:�1,1,200,10:�RE:D%=EX%:A%(D%)=A%(D%)+1:?V%=8:�

 1?V%=10+D%:�1,1,200,10:�1,1,200,10:�2,2,200,30

*� EX%=1�36:�EX%�4

4(�U%,B%(D%));:�246,8,11,247,8,11,242

>�

H� CF% �CL:�

R(�2:�U%,B%(D%)-2)�246:�3:W%(D%)=-50 

\�

f:

pR��EA:� D%=ND%�tDM�A%(D%)=A%(ND%):B%(D%)=B%(ND%):W%(D%)=W%(ND%):Z%(D%)=Z%(ND%)

z'� W%(ND%)<0?(Z%(ND%)+A%(ND%))=10+D%

�)ND%=ND%-1:D%=9:DD%=DD%+1:� ND%=0OV%=�

��

�:

�;��RE:�A%(D%),B%(D%)-2)LB$;:�8,10,10,246:W%(D%)=0:�SM:�

�:

�E��ER:D%=?P%-10:?P%=7:�1:�A%(D%),B%(D%)-2)�246:�3:�EA:�0,1,6,20:�

�:

���E2

�� ?P%>10�ER:�

�3� ?P%>8W%=-20:?P%=7:�X%,Y%-1)LB$:�1,1,200,20:�

��1,1,200,20:�DT(25)

�2�X%,Y%)�248:�X%,Y%+1)�248:�DT(35):�X%,Y%)B$

�ME%=ME%-1:DD%=DD%+1:OV%=�
�
:
��DT(I%):T=�:� ��>T+I%:�
$:
.��G
8�:SC%=SC%+250+200*DD%
B� SC%�2000<>BC% ME%=ME%+1
L� ME%=0�
V�19,3,2,0,0,0,0
`H�1,1)�6,CH$)�0,1)�10,CV$)�19,1)�10,CV$)�0,30)Y$+�42+�6,CH$)+Y$+�42;
jL�5,2)Y$+"ELEVASION"�4,4)"SCORE BOARD"�4,6)"FOR SHEET ";G%;�1,7)�6,CH$);
t�2,9)"YOUR SCORE ";SC%
~�2,11)"HIGH SCORE ";HSC%
��2,14)R$"DROIDS DESTROYED"
�X%=DD%:� X%>8 X%=8
��2,16)�X%,�246+�9)
��2,20)Y$"MEN LEFT"
�X%=ME%:� X%>8X%=8
��2,22)�X%,M$(0)+�11+�9);
�X%=1
�=� SC%�2000<>BC%� X%=1 �2,25)Y$"BONUS MAN" � �2,25)�(10)
�!�1,28)R$"RETURN TO CONTINUE"
�� �-74 � �dvN
�$� � �15=0 X%=X%�1:�dNN � � �dbN
��19,3,6,0,0,0:OV%=�
G%=G%+1:DD%=0:BC%=SC%�2000

� G%<=5 �TrO
ND%=G%-5:� ND%>5 ND%=5
NC%=G%-5:� NC%>8 NC%=8
(NM%=2+ND%:�
2ND%=G%:NM%=2+ND%
<�
F:
P��ST
Z8G%=1:ND%=1:NM%=3:NC%=0:DD%=0:ME%=3:OV%=�:SC%=0:BC%=0
d�
n:
x��CL
�CF%=�:�1,1,200,20
�� ND%=5�
�ND%=ND%+1:�SM
�<A%(ND%)=A%(D%)+1:B%(ND%)=B%(D%):Z%(ND%)=Z%(D%):W%(ND%)=0
��
�:
�	��NXG
��:�19,3,2,0,0,0
�I �1,1)�6,CH$)�0,1)�10,CV$)�19,1)�10,CV$)�0,30)Y$+�42+�6,CH$)+Y$+�42;
�8�5,2)Y$+"ELEVASION"�4,4)"GAME   OVER";�1,5)�6,CH$);
�3�3,7)"THE HISCORE WAS"�8,9);HSC% �3,11)"BY "N$
�(�3,14)Y$"YOUR SCORE WAS "�8,16);SC%
�� SC%<=HSC% �DhP
�3,18)"THE NEW HISCORE"
�3,21)R$"ENTER YOUR NAME"
*FX21,0
"�3,23)"-->"Y$;
,N$="":� IK=�
6� IK=13 �DTP
@@� IK=127 � �N$<>0 �IK;:N$=�N$,�N$-1):�DTP � � IK=127 �DTP
JN$=N$+�IK:�IK;
T� IK=13 � �N$=12
^HSC%=SC%
hF�4,26)R$"PRESS RETURN"�2,28)"FOR ANOTHER GAME";:�DT(100):� � �-74
r�
|:
���FP
��:�13,3)"ELEVASION"
��16,12);"by"
��12,14)"D.J.Pilling"
�%�6,20)"Press any key to start." 
�	G=�:�
��
�

00000000  0d 00 64 0d ee 85 20 e5  20 8d 64 70 40 0d 00 6e  |..d... . .dp@..n|
00000010  16 eb 36 3a ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |..6:.23,1,0;0;0;|
00000020  30 3b 20 0d 00 78 07 f2  46 50 0d 00 82 0c eb 35  |0; ..x..FP.....5|
00000030  3a f2 43 48 41 52 0d 00  8c 16 de 41 24 28 31 29  |:.CHAR.....A$(1)|
00000040  2c 42 24 28 31 29 2c 43  24 28 31 29 0d 00 96 6b  |,B$(1),C$(1)...k|
00000050  de 20 58 25 28 36 29 2c  59 25 28 36 29 2c 55 25  |. X%(6),Y%(6),U%|
00000060  28 36 29 2c 4c 25 28 36  29 2c 44 25 28 36 29 2c  |(6),L%(6),D%(6),|
00000070  41 25 28 36 29 2c 42 25  28 36 29 2c 5a 25 28 36  |A%(6),B%(6),Z%(6|
00000080  29 2c 57 25 28 36 29 2c  49 25 28 36 29 2c 50 25  |),W%(6),I%(6),P%|
00000090  28 36 29 2c 55 24 28 36  29 2c 44 24 28 36 29 2c  |(6),U$(6),D$(6),|
000000a0  4c 24 28 31 29 2c 52 24  28 31 29 2c 4d 24 28 31  |L$(1),R$(1),M$(1|
000000b0  29 2c 41 25 33 33 30 0d  00 a0 06 f2 53 0d 00 aa  |),A%330.....S...|
000000c0  09 f5 3a f2 53 54 0d 00  b4 0a f5 3a f2 4d 41 20  |..:.ST.....:.MA |
000000d0  0d 00 be 14 f5 3a f2 4c  3a f2 44 3a f2 4d 3a fd  |.....:.L:.D:.M:.|
000000e0  20 4f 56 25 0d 00 c8 06  f2 47 0d 00 d2 10 fd 20  | OV%.....G..... |
000000f0  4d 45 25 3d 30 3a f2 4e  58 47 0d 00 dc 07 fd 20  |ME%=0:.NXG..... |
00000100  a3 0d 00 e6 05 3a 0d 00  f0 09 ee 20 85 20 87 0d  |.....:..... . ..|
00000110  00 fa 0f eb 36 3a e7 20  9f 3d 31 37 20 e0 0d 01  |....6:. .=17 ...|
00000120  04 14 f6 3a f1 22 20 61  74 20 6c 69 6e 65 20 22  |...:." at line "|
00000130  3b 9e 0d 01 0e 05 e0 0d  01 18 05 3a 0d 03 e8 08  |;..........:....|
00000140  dd f2 4d 41 0d 03 f2 1a  db 3a 43 46 25 3d a3 3a  |..MA.....:CF%=.:|
00000150  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 03  |.23,1,0;0;0;0;..|
00000160  fc 11 ef 31 39 2c 33 2c  36 2c 30 2c 30 2c 30 0d  |...19,3,6,0,0,0.|
00000170  04 06 0b f2 52 4d 3a f2  47 4d 0d 04 10 06 fb 32  |....RM:.GM.....2|
00000180  0d 04 1a 36 e3 20 49 25  3d 33 b8 32 37 88 34 3a  |...6. I%=3.27.4:|
00000190  f1 8a 30 2c 49 25 29 c4  32 30 2c bd 32 34 30 29  |..0,I%).20,.240)|
000001a0  3b 3a ed 3a f1 8a 30 2c  33 31 29 c4 31 39 2c bd  |;:.:..0,31).19,.|
000001b0  32 34 30 29 3b 20 0d 04  24 27 e3 20 49 25 3d 41  |240); ..$'. I%=A|
000001c0  25 b8 41 25 2b 32 38 37  88 32 31 3a 24 49 25 3d  |%.A%+287.21:$I%=|
000001d0  c4 32 30 2c bd 37 29 2b  bd 30 3a ed 20 0d 04 2e  |.20,.7)+.0:. ...|
000001e0  10 41 25 3f 31 36 36 3d  30 3a fb 31 20 0d 04 38  |.A%?166=0:.1 ..8|
000001f0  1d e3 49 25 3d 31 b8 36  3a e3 4a 25 3d 55 25 28  |..I%=1.6:.J%=U%(|
00000200  49 25 29 b8 4c 25 28 49  25 29 0d 04 42 43 e7 20  |I%).L%(I%)..BC. |
00000210  28 4a 25 2b 31 29 83 34  3d 30 fb 31 3a f1 8a 58  |(J%+1).4=0.1:..X|
00000220  25 28 49 25 29 2d 31 2c  4a 25 29 bd 32 35 32 4c  |%(I%)-1,J%).252L|
00000230  42 24 bd 32 35 33 3b 3a  fb 31 20 8b 20 f1 8a 58  |B$.253;:.1 . ..X|
00000240  25 28 49 25 29 2c 4a 25  29 4c 42 24 3b 0d 04 4c  |%(I%),J%)LB$;..L|
00000250  20 4b 25 3d 28 28 4a 25  2b 31 29 81 34 2d 31 29  | K%=((J%+1).4-1)|
00000260  2a 32 31 2b 41 25 2b 58  25 28 49 25 29 0d 04 56  |*21+A%+X%(I%)..V|
00000270  15 3f 4b 25 3d 49 25 3a  ed 3a 49 25 28 49 25 29  |.?K%=I%:.:I%(I%)|
00000280  3d 30 0d 04 60 19 f1 8a  58 25 28 49 25 29 2c 59  |=0..`...X%(I%),Y|
00000290  25 28 49 25 29 29 4c 24  3b 3a ed 0d 04 6a 06 fb  |%(I%))L$;:...j..|
000002a0  33 0d 04 74 10 e3 20 49  25 3d 31 20 b8 20 4e 44  |3..t.. I%=1 . ND|
000002b0  25 0d 04 7e 07 f2 53 41  0d 04 88 1b 3f 48 25 3d  |%..~..SA....?H%=|
000002c0  38 3a f1 8a 4a 25 2c 4b  25 2a 34 2b 32 29 bd 32  |8:..J%,K%*4+2).2|
000002d0  34 36 3b 0d 04 92 1b 41  25 28 49 25 29 3d 4a 25  |46;....A%(I%)=J%|
000002e0  3a 42 25 28 49 25 29 3d  4b 25 2a 34 2b 32 0d 04  |:B%(I%)=K%*4+2..|
000002f0  9c 1c 5a 25 28 49 25 29  3d 41 25 2b 4b 25 2a 32  |..Z%(I%)=A%+K%*2|
00000300  31 3a 57 25 28 49 25 29  3d 30 0d 04 a6 05 ed 0d  |1:W%(I%)=0......|
00000310  04 b0 14 e3 20 49 25 3d  31 b8 4e 4d 25 3a f2 53  |.... I%=1.NM%:.S|
00000320  4d 3a ed 0d 04 ba 0d e7  20 4e 43 25 3d 30 20 e1  |M:...... NC%=0 .|
00000330  0d 04 c4 06 fb 33 0d 04  ce 10 e3 20 49 25 3d 31  |.....3..... I%=1|
00000340  20 b8 20 4e 43 25 0d 04  d8 07 f2 53 41 0d 04 e2  | . NC%.....SA...|
00000350  1a 3f 48 25 3d 31 30 3a  f1 8a 4a 25 2c 4b 25 2a  |.?H%=10:..J%,K%*|
00000360  34 29 bd 32 34 32 3b 0d  04 ec 05 ed 0d 04 f6 05  |4).242;.........|
00000370  e1 0d 05 00 05 3a 0d 05  0a 08 dd f2 53 41 0d 05  |.....:......SA..|
00000380  14 23 4a 25 3d b3 28 31  38 29 3a 4b 25 3d b3 28  |.#J%=.(18):K%=.(|
00000390  37 29 3a 48 25 3d 41 25  2b 4a 25 2b 4b 25 2a 32  |7):H%=A%+J%+K%*2|
000003a0  31 0d 05 1e 56 e7 20 3f  48 25 3c 3e 37 20 84 20  |1...V. ?H%<>7 . |
000003b0  3f 28 48 25 2d 32 31 29  3c 3e 37 20 84 20 3f 28  |?(H%-21)<>7 . ?(|
000003c0  48 25 2b 31 29 3c 3e 37  20 84 20 3f 28 48 25 2d  |H%+1)<>7 . ?(H%-|
000003d0  31 29 3c 3e 37 20 84 20  3f 28 48 25 2d 32 30 29  |1)<>7 . ?(H%-20)|
000003e0  3c 3e 37 20 84 20 3f 28  48 25 2d 32 32 29 3c 3e  |<>7 . ?(H%-22)<>|
000003f0  37 20 e5 8d 54 54 45 0d  05 28 05 e1 0d 05 32 05  |7 ..TTE..(....2.|
00000400  3a 0d 05 3c 2a dd f2 53  4d 3a f2 53 41 3a 3f 48  |:..<*..SM:.SA:?H|
00000410  25 3d 39 3a fb 31 3a f1  8a 4a 25 2c 4b 25 2a 34  |%=9:.1:..J%,K%*4|
00000420  29 bd 32 34 32 3b 3a fb  33 3a e1 0d 05 46 05 3a  |).242;:.3:...F.:|
00000430  0d 05 50 08 dd f2 52 4d  0d 05 5a 1d 58 25 3d 30  |..P...RM..Z.X%=0|
00000440  3a 59 25 3d 31 3a 4d 25  3d 31 3a 5a 25 3d 41 25  |:Y%=1:M%=1:Z%=A%|
00000450  3a 57 25 3d a3 0d 05 64  05 e1 0d 05 6e 05 3a 0d  |:W%=...d....n.:.|
00000460  05 78 08 dd f2 47 4d 0d  05 82 2a 58 25 28 31 29  |.x...GM...*X%(1)|
00000470  3d a4 52 58 3a 55 25 28  31 29 3d 33 3a 4c 25 28  |=.RX:U%(1)=3:L%(|
00000480  31 29 3d 55 25 28 31 29  2b 34 2b b3 28 34 29 2a  |1)=U%(1)+4+.(4)*|
00000490  34 0d 05 8c 21 58 25 28  32 29 3d a4 52 58 3a e7  |4...!X%(2)=.RX:.|
000004a0  20 58 25 28 32 29 3d 58  25 28 31 29 20 e5 8d 74  | X%(2)=X%(1) ..t|
000004b0  4c 45 0d 05 96 1f 4c 25  28 32 29 3d 33 31 3a 55  |LE....L%(2)=31:U|
000004c0  25 28 32 29 3d 4c 25 28  31 29 2d b3 28 32 29 2a  |%(2)=L%(1)-.(2)*|
000004d0  34 0d 05 a0 0c e3 20 49  25 3d 33 b8 36 0d 05 aa  |4..... I%=3.6...|
000004e0  13 58 25 28 49 25 29 3d  a4 52 58 3a 4b 25 3d 30  |.X%(I%)=.RX:K%=0|
000004f0  0d 05 b4 0f e3 20 4a 25  3d 31 b8 49 25 2d 31 0d  |..... J%=1.I%-1.|
00000500  05 be 19 e7 20 58 25 28  49 25 29 3c 3e 58 25 28  |.... X%(I%)<>X%(|
00000510  4a 25 29 e5 8d 64 52 45  0d 05 c8 17 e7 20 4b 25  |J%)..dRE..... K%|
00000520  3d 30 20 4b 25 3d 4a 25  8b 20 4b 25 3d 2d 31 0d  |=0 K%=J%. K%=-1.|
00000530  05 d2 05 ed 0d 05 dc 15  20 e7 20 4b 25 3d 30 f2  |........ . K%=0.|
00000540  4e 4c 3a e5 8d 54 4e 46  20 0d 05 e6 12 e7 20 4b  |NL:..TNF ..... K|
00000550  25 3d 2d 31 20 e5 20 8d  74 6a 45 0d 05 f0 24 55  |%=-1 . .tjE...$U|
00000560  25 28 49 25 29 3d 55 25  28 4b 25 29 2d 33 3a 4c  |%(I%)=U%(K%)-3:L|
00000570  25 28 49 25 29 3d 33 31  2d 4c 25 28 4b 25 29 0d  |%(I%)=31-L%(K%).|
00000580  05 fa 20 e7 20 55 25 28  49 25 29 3c 31 32 20 80  |.. . U%(I%)<12 .|
00000590  20 4c 25 28 49 25 29 3c  31 32 e5 8d 74 6a 45 0d  | L%(I%)<12..tjE.|
000005a0  06 04 1c e7 20 55 25 28  49 25 29 3c 4c 25 28 49  |.... U%(I%)<L%(I|
000005b0  25 29 f2 4e 42 20 8b 20  f2 4e 54 0d 06 0e 05 ed  |%).NB . .NT.....|
000005c0  0d 06 18 61 e3 20 49 25  3d 31 b8 36 3a 55 24 28  |...a. I%=1.6:U$(|
000005d0  49 25 29 3d 4d 44 24 3a  44 24 28 49 25 29 3d 4d  |I%)=MD$:D$(I%)=M|
000005e0  44 24 3a 55 24 28 49 25  29 3d 4c 55 24 3a 44 24  |D$:U$(I%)=LU$:D$|
000005f0  28 49 25 29 3d 4c 44 24  3a 44 25 28 49 25 29 3d  |(I%)=LD$:D%(I%)=|
00000600  b3 28 32 29 2d 31 3a 59  25 28 49 25 29 3d 28 55  |.(2)-1:Y%(I%)=(U|
00000610  25 28 49 25 29 2b 4c 25  28 49 25 29 29 2f 32 3a  |%(I%)+L%(I%))/2:|
00000620  ed 0d 06 22 05 e1 0d 06  2c 05 3a 0d 06 36 08 dd  |..."....,.:..6..|
00000630  f2 4e 4c 0d 06 40 3f 55  25 28 49 25 29 3d 2d 31  |.NL..@?U%(I%)=-1|
00000640  2b b3 28 35 29 2a 34 3a  4c 25 28 49 25 29 3d 55  |+.(5)*4:L%(I%)=U|
00000650  25 28 49 25 29 2b 38 2b  34 2a b3 28 33 29 3a e7  |%(I%)+8+4*.(3):.|
00000660  4c 25 28 49 25 29 3e 33  31 4c 25 28 49 25 29 3d  |L%(I%)>31L%(I%)=|
00000670  33 31 0d 06 4a 05 e1 0d  06 54 05 3a 0d 06 5e 09  |31..J....T.:..^.|
00000680  20 dd f2 4e 54 0d 06 68  2d 55 25 28 49 25 29 3d  | ..NT..h-U%(I%)=|
00000690  2d 31 2b b3 28 32 29 2a  34 3a 4c 25 28 49 25 29  |-1+.(2)*4:L%(I%)|
000006a0  3d 55 25 28 49 25 29 2b  34 2b b3 28 32 29 2a 34  |=U%(I%)+4+.(2)*4|
000006b0  20 20 0d 06 72 19 e7 4c  25 28 49 25 29 3e 3d 55  |  ..r..L%(I%)>=U|
000006c0  25 28 4b 25 29 e5 20 8d  44 68 46 0d 06 7c 05 e1  |%(K%). .DhF..|..|
000006d0  0d 06 86 05 3a 0d 06 90  08 dd f2 4e 42 0d 06 9a  |....:......NB...|
000006e0  2b 4c 25 28 49 25 29 3d  33 35 2d b3 28 32 29 2a  |+L%(I%)=35-.(2)*|
000006f0  34 3a 55 25 28 49 25 29  3d 4c 25 28 49 25 29 2d  |4:U%(I%)=L%(I%)-|
00000700  34 2d 34 2a b3 28 32 29  0d 06 a4 18 e7 55 25 28  |4-4*.(2).....U%(|
00000710  49 25 29 3c 3d 4c 25 28  4b 25 29 e5 8d 74 5a 46  |I%)<=L%(K%)..tZF|
00000720  0d 06 ae 05 e1 0d 06 b8  05 3a 0d 06 c2 11 dd a4  |.........:......|
00000730  52 58 3d 34 2a b3 28 35  29 2d 33 0d 06 cc 05 3a  |RX=4*.(5)-3....:|
00000740  0d 06 d6 07 dd f2 4c 0d  06 e0 06 fb 31 0d 06 ea  |......L.....1...|
00000750  0d e3 49 25 3d 31 20 b8  20 36 0d 06 f4 10 e7 44  |..I%=1 . 6.....D|
00000760  25 28 49 25 29 e5 8d 54  52 47 0d 06 fe 42 f1 8a  |%(I%)..TRG...B..|
00000770  58 25 28 49 25 29 2c 59  25 28 49 25 29 29 55 24  |X%(I%),Y%(I%))U$|
00000780  28 49 25 29 3b 3a 59 25  28 49 25 29 3d 59 25 28  |(I%);:Y%(I%)=Y%(|
00000790  49 25 29 2d 32 3a e7 59  25 28 49 25 29 3d 55 25  |I%)-2:.Y%(I%)=U%|
000007a0  28 49 25 29 44 25 28 49  25 29 3d b9 0d 07 08 07  |(I%)D%(I%)=.....|
000007b0  ed 3a e1 0d 07 12 42 f1  8a 58 25 28 49 25 29 2c  |.:....B..X%(I%),|
000007c0  59 25 28 49 25 29 29 44  24 28 49 25 29 3b 3a 59  |Y%(I%))D$(I%);:Y|
000007d0  25 28 49 25 29 3d 59 25  28 49 25 29 2b 32 3a e7  |%(I%)=Y%(I%)+2:.|
000007e0  59 25 28 49 25 29 3d 4c  25 28 49 25 29 44 25 28  |Y%(I%)=L%(I%)D%(|
000007f0  49 25 29 3d a3 0d 07 1c  07 ed 3a e1 0d 07 26 05  |I%)=......:...&.|
00000800  3a 0d 07 30 0a dd f2 43  48 41 52 0d 07 3a 28 ef  |:..0...CHAR..:(.|
00000810  32 33 2c 32 34 30 2c 32  35 35 2c 31 32 39 2c 32  |23,240,255,129,2|
00000820  35 35 2c 31 32 39 2c 36  36 2c 33 36 2c 32 34 2c  |55,129,66,36,24,|
00000830  32 35 35 0d 07 44 21 ef  32 33 2c 32 34 31 2c 32  |255..D!.23,241,2|
00000840  35 35 2c 32 35 35 2c 32  35 35 2c 30 2c 30 2c 30  |55,255,255,0,0,0|
00000850  2c 30 2c 30 0d 07 4e 25  ef 32 33 2c 32 34 32 2c  |,0,0..N%.23,242,|
00000860  32 35 35 2c 32 35 35 2c  36 30 2c 32 34 2c 32 34  |255,255,60,24,24|
00000870  2c 39 30 2c 36 36 2c 36  36 0d 07 58 27 ef 32 33  |,90,66,66..X'.23|
00000880  2c 32 34 33 2c 36 30 2c  39 30 2c 31 32 36 2c 36  |,243,60,90,126,6|
00000890  30 2c 33 36 2c 31 32 36  2c 32 35 35 2c 31 38 39  |0,36,126,255,189|
000008a0  0d 07 62 25 ef 32 33 2c  32 34 34 2c 31 38 39 2c  |..b%.23,244,189,|
000008b0  31 38 39 2c 36 30 2c 33  36 2c 33 36 2c 33 36 2c  |189,60,36,36,36,|
000008c0  31 30 30 2c 36 0d 07 6c  25 ef 32 33 2c 32 34 35  |100,6..l%.23,245|
000008d0  2c 31 38 39 2c 31 38 39  2c 36 30 2c 33 36 2c 33  |,189,189,60,36,3|
000008e0  36 2c 33 36 2c 33 38 2c  39 36 0d 07 76 29 ef 32  |6,36,38,96..v).2|
000008f0  33 2c 32 34 36 2c 31 39  35 2c 36 36 2c 31 32 36  |3,246,195,66,126|
00000900  2c 32 31 39 2c 32 31 39  2c 31 32 36 2c 36 36 2c  |,219,219,126,66,|
00000910  31 39 35 0d 07 80 25 ef  32 33 2c 32 34 37 2c 36  |195...%.23,247,6|
00000920  36 2c 36 36 2c 32 33 31  2c 36 36 2c 36 36 2c 32  |6,66,231,66,66,2|
00000930  33 31 2c 36 36 2c 36 36  0d 07 8a 27 ef 32 33 2c  |31,66,66...'.23,|
00000940  32 34 38 2c 32 30 34 2c  35 31 2c 32 30 34 2c 35  |248,204,51,204,5|
00000950  31 2c 32 30 34 2c 35 31  2c 32 30 34 2c 35 31 0d  |1,204,51,204,51.|
00000960  07 94 2b ef 32 33 2c 32  35 32 2c 32 35 35 2c 32  |..+.23,252,255,2|
00000970  35 35 2c 32 35 35 2c 32  32 34 2c 32 32 34 2c 32  |55,255,224,224,2|
00000980  32 34 2c 32 32 34 2c 32  32 34 0d 07 9e 21 ef 32  |24,224,224...!.2|
00000990  33 2c 32 35 33 2c 32 35  35 2c 32 35 35 2c 32 35  |3,253,255,255,25|
000009a0  35 2c 37 2c 37 2c 37 2c  37 2c 37 0d 07 a8 25 ef  |5,7,7,7,7,7...%.|
000009b0  32 33 2c 32 32 34 2c 32  38 2c 34 38 2c 36 32 2c  |23,224,28,48,62,|
000009c0  32 30 2c 32 38 2c 36 30  2c 31 32 36 2c 31 38 39  |20,28,60,126,189|
000009d0  0d 07 b2 26 ef 32 33 2c  32 32 35 2c 31 38 39 2c  |...&.23,225,189,|
000009e0  36 30 2c 32 34 2c 32 34  2c 35 36 2c 31 30 34 2c  |60,24,24,56,104,|
000009f0  32 30 30 2c 37 36 0d 07  bc 24 ef 32 33 2c 32 32  |200,76...$.23,22|
00000a00  36 2c 31 38 39 2c 36 30  2c 32 34 2c 32 34 2c 32  |6,189,60,24,24,2|
00000a10  38 2c 32 33 2c 31 38 2c  34 38 0d 07 c6 24 ef 32  |8,23,18,48...$.2|
00000a20  33 2c 32 32 37 2c 31 38  39 2c 36 30 2c 32 34 2c  |3,227,189,60,24,|
00000a30  32 34 2c 32 38 2c 32 33  2c 31 38 2c 34 38 0d 07  |24,28,23,18,48..|
00000a40  d0 26 ef 32 33 2c 32 32  38 2c 31 38 39 2c 36 30  |.&.23,228,189,60|
00000a50  2c 32 34 2c 32 34 2c 35  36 2c 31 30 34 2c 32 30  |,24,24,56,104,20|
00000a60  30 2c 38 38 0d 07 da 24  ef 32 33 2c 32 32 39 2c  |0,88...$.23,229,|
00000a70  32 38 2c 36 2c 36 32 2c  32 30 2c 32 38 2c 36 30  |28,6,62,20,28,60|
00000a80  2c 31 32 36 2c 31 38 39  0d 07 e4 29 ef 32 33 2c  |,126,189...).23,|
00000a90  32 33 30 2c 31 30 32 2c  36 36 2c 31 32 36 2c 32  |230,102,66,126,2|
00000aa0  31 39 2c 32 31 39 2c 31  32 36 2c 36 36 2c 31 30  |19,219,126,66,10|
00000ab0  32 0d 07 ee 2e e2 31 2c  31 2c 36 2c 30 2c 2d 36  |2.....1,1,6,0,-6|
00000ac0  2c 32 30 30 2c 31 30 30  2c 32 30 30 2c 31 30 30  |,200,100,200,100|
00000ad0  2c 32 2c 30 2c 2d 31 2c  31 32 30 2c 31 31 30 0d  |,2,0,-1,120,110.|
00000ae0  07 f8 05 e1 0d 08 02 05  3a 0d 08 0c 07 dd f2 53  |........:......S|
00000af0  0d 08 16 11 54 45 24 3d  bd 31 30 2b bd 38 2b bd  |....TE$=.10+.8+.|
00000b00  38 0d 08 20 19 45 54 24  3d bd 38 2b bd 31 30 3a  |8.. .ET$=.8+.10:|
00000b10  45 45 24 3d bd 38 2b bd  31 31 0d 08 2a 1a 20 45  |EE$=.8+.11..*. E|
00000b20  47 24 3d bd 31 31 2b bd  38 3a 52 24 3d bd 31 37  |G$=.11+.8:R$=.17|
00000b30  2b bd 31 20 0d 08 34 17  59 24 3d bd 31 37 2b bd  |+.1 ..4.Y$=.17+.|
00000b40  32 3a 57 24 3d bd 31 37  2b bd 33 0d 08 3e 15 42  |2:W$=.17+.3..>.B|
00000b50  24 3d bd 33 32 2b bd 31  30 2b bd 38 2b bd 33 32  |$=.32+.10+.8+.32|
00000b60  0d 08 48 13 4c 24 3d bd  32 34 31 3a 4c 42 24 3d  |..H.L$=.241:LB$=|
00000b70  bd 33 32 0d 08 52 16 4c  55 24 3d 4c 42 24 2b bd  |.32..R.LU$=LB$+.|
00000b80  31 31 2b 45 47 24 2b 4c  24 0d 08 5c 19 4c 44 24  |11+EG$+L$..\.LD$|
00000b90  3d 4c 42 24 2b bd 31 30  2b bd 31 30 2b bd 38 2b  |=LB$+.10+.10+.8+|
00000ba0  4c 24 0d 08 66 35 4d 55  24 3d 4c 42 24 2b 45 47  |L$..f5MU$=LB$+EG|
00000bb0  24 2b 4c 42 24 2b 45 45  24 2b 4c 24 2b 45 45 24  |$+LB$+EE$+L$+EE$|
00000bc0  2b 52 24 2b bd 32 34 34  2b 59 24 2b 45 45 24 2b  |+R$+.244+Y$+EE$+|
00000bd0  bd 32 34 33 2b 52 24 0d  08 70 41 4d 44 24 3d 4c  |.243+R$..pAMD$=L|
00000be0  42 24 2b 59 24 2b 45 45  24 2b bd 31 31 2b 4c 42  |B$+Y$+EE$+.11+LB|
00000bf0  24 2b 45 54 24 2b 4c 42  24 2b 45 54 24 2b bd 32  |$+ET$+LB$+ET$+.2|
00000c00  34 33 2b 45 54 24 2b 52  24 2b bd 32 34 34 2b 45  |43+ET$+R$+.244+E|
00000c10  54 24 2b 52 24 2b 4c 24  0d 08 7a 43 54 50 24 3d  |T$+R$+L$..zCTP$=|
00000c20  59 24 2b bd 38 2b bd 32  32 39 2b 4c 42 24 2b 54  |Y$+.8+.229+LB$+T|
00000c30  45 24 2b 52 24 3a 4c 24  28 30 29 3d 54 50 24 2b  |E$+R$:L$(0)=TP$+|
00000c40  bd 32 32 37 2b 4c 42 24  3a 4c 24 28 31 29 3d 54  |.227+LB$:L$(1)=T|
00000c50  50 24 2b bd 32 32 38 2b  4c 42 24 0d 08 84 3c 54  |P$+.228+LB$...<T|
00000c60  50 24 3d 59 24 2b 4c 42  24 2b bd 32 32 34 2b 54  |P$=Y$+LB$+.224+T|
00000c70  45 24 2b 4c 42 24 2b 52  24 3a 52 24 28 30 29 3d  |E$+LB$+R$:R$(0)=|
00000c80  54 50 24 2b bd 32 32 35  3a 52 24 28 31 29 3d 54  |TP$+.225:R$(1)=T|
00000c90  50 24 2b bd 32 32 36 0d  08 8e 37 54 50 24 3d 59  |P$+.226...7TP$=Y|
00000ca0  24 2b bd 32 34 33 2b bd  31 30 2b bd 38 2b 52 24  |$+.243+.10+.8+R$|
00000cb0  3a 4d 24 28 30 29 3d 54  50 24 2b bd 32 34 34 3a  |:M$(0)=TP$+.244:|
00000cc0  4d 24 28 31 29 3d 54 50  24 2b bd 32 34 35 0d 08  |M$(1)=TP$+.245..|
00000cd0  98 15 41 24 28 30 29 3d  bd 38 2b bd 32 34 36 2b  |..A$(0)=.8+.246+|
00000ce0  4c 42 24 0d 08 a2 15 41  24 28 31 29 3d bd 38 2b  |LB$....A$(1)=.8+|
00000cf0  bd 32 33 30 2b 4c 42 24  0d 08 ac 12 42 24 28 30  |.230+LB$....B$(0|
00000d00  29 3d 4c 42 24 2b bd 32  34 36 0d 08 b6 12 42 24  |)=LB$+.246....B$|
00000d10  28 31 29 3d 4c 42 24 2b  bd 32 33 30 0d 08 c0 19  |(1)=LB$+.230....|
00000d20  43 24 28 30 29 3d bd 32  34 36 3a 43 24 28 31 29  |C$(0)=.246:C$(1)|
00000d30  3d bd 32 33 30 0d 08 ca  1e 50 24 3d 41 24 28 30  |=.230....P$=A$(0|
00000d40  29 3a 53 24 3d 42 24 28  30 29 3a 43 24 3d 43 24  |):S$=B$(0):C$=C$|
00000d50  28 30 29 0d 08 d4 29 44  55 24 3d 4c 42 24 2b 45  |(0)...)DU$=LB$+E|
00000d60  47 24 2b 4c 42 24 2b 45  45 24 2b 4c 24 2b 45 45  |G$+LB$+EE$+L$+EE|
00000d70  24 2b 57 24 2b bd 32 34  36 2b 52 24 0d 08 de 30  |$+W$+.246+R$...0|
00000d80  44 44 24 3d 4c 42 24 2b  57 24 2b 45 45 24 2b 4c  |DD$=LB$+W$+EE$+L|
00000d90  42 24 2b 45 54 24 2b bd  31 30 2b bd 32 34 36 2b  |B$+ET$+.10+.246+|
00000da0  45 54 24 2b 52 24 2b 4c  24 20 20 20 0d 08 e8 1c  |ET$+R$+L$   ....|
00000db0  43 48 24 3d 52 24 2b bd  34 32 2b 59 24 2b bd 34  |CH$=R$+.42+Y$+.4|
00000dc0  32 2b 57 24 2b bd 34 32  0d 08 f2 28 43 56 24 3d  |2+W$+.42...(CV$=|
00000dd0  59 24 2b bd 34 32 2b 45  54 24 2b 52 24 2b bd 34  |Y$+.42+ET$+R$+.4|
00000de0  32 2b 45 54 24 2b 57 24  2b bd 34 32 2b 45 54 24  |2+ET$+W$+.42+ET$|
00000df0  0d 08 fc 12 3f 41 25 3d  30 3a 41 25 3d 41 25 2b  |....?A%=0:A%=A%+|
00000e00  31 20 0d 09 06 18 48 53  43 25 3d 30 3a 4e 24 3d  |1 ....HSC%=0:N$=|
00000e10  22 4a 4f 45 20 5a 45 52  4f 22 0d 09 10 05 e1 0d  |"JOE ZERO"......|
00000e20  09 1a 05 3a 0d 09 24 07  dd f2 4d 0d 09 2e 0f e7  |...:..$...M.....|
00000e30  20 57 25 20 e5 20 8d 74  48 49 0d 09 38 14 e7 20  | W% . .tHI..8.. |
00000e40  4d 25 20 4d 25 3d 30 20  8b 20 4d 25 3d 31 0d 09  |M% M%=0 . M%=1..|
00000e50  42 19 50 25 3d 5a 25 2b  58 25 3a e7 20 3f 50 25  |B.P%=Z%+X%:. ?P%|
00000e60  3e 37 f2 45 32 3a e1 0d  09 4c 1e e7 20 a6 2d 36  |>7.E2:...L.. .-6|
00000e70  37 e5 8d 44 60 49 8b 20  e7 20 a6 2d 39 38 20 e5  |7..D`I. . .-98 .|
00000e80  20 8d 44 74 49 0d 09 56  14 f1 8a 58 25 2c 59 25  | .DtI..V...X%,Y%|
00000e90  29 4d 24 28 4d 25 29 3a  e1 0d 09 60 31 e7 20 50  |)M$(M%):...`1. P|
00000ea0  25 3f 31 3e 36 20 f1 8a  58 25 2c 59 25 29 52 24  |%?1>6 ..X%,Y%)R$|
00000eb0  28 4d 25 29 3a 58 25 3d  58 25 2b 31 20 8b 20 4c  |(M%):X%=X%+1 . L|
00000ec0  25 3d 50 25 3f 31 3a f2  45 4e 0d 09 6a 05 e1 0d  |%=P%?1:.EN..j...|
00000ed0  09 74 32 e7 20 50 25 3f  2d 31 3e 36 f1 8a 58 25  |.t2. P%?-1>6..X%|
00000ee0  2c 59 25 29 4c 24 28 4d  25 29 3a 58 25 3d 58 25  |,Y%)L$(M%):X%=X%|
00000ef0  2d 31 20 8b 20 4c 25 3d  50 25 3f 2d 31 3a f2 45  |-1 . L%=P%?-1:.E|
00000f00  4e 0d 09 7e 05 e1 0d 09  88 10 e7 20 57 25 3c 30  |N..~....... W%<0|
00000f10  20 e5 8d 64 4e 49 0d 09  92 16 e7 20 a6 2d 36 37  | ..dNI..... .-67|
00000f20  20 54 58 25 3d 31 3a f2  45 58 3a e1 0d 09 9c 17  | TX%=1:.EX:.....|
00000f30  e7 20 a6 2d 39 38 20 54  58 25 3d 2d 31 3a f2 45  |. .-98 TX%=-1:.E|
00000f40  58 3a e1 0d 09 a6 0d 59  25 3d 59 25 28 4c 25 29  |X:.....Y%=Y%(L%)|
00000f50  0d 09 b0 2a e7 20 a6 2d  37 33 20 44 25 28 4c 25  |...*. .-73 D%(L%|
00000f60  29 3d 30 20 8b 20 e7 20  a6 2d 31 30 35 20 44 25  |)=0 . . .-105 D%|
00000f70  28 4c 25 29 3d 31 20 8b  20 e1 0d 09 ba 36 e7 20  |(L%)=1 . ....6. |
00000f80  59 25 28 4c 25 29 3d 55  25 28 4c 25 29 20 44 25  |Y%(L%)=U%(L%) D%|
00000f90  28 4c 25 29 3d b9 20 8b  20 e7 20 59 25 28 4c 25  |(L%)=. . . Y%(L%|
00000fa0  29 3d 4c 25 28 4c 25 29  44 25 28 4c 25 29 3d a3  |)=L%(L%)D%(L%)=.|
00000fb0  0d 09 c4 06 e1 20 0d 09  ce 16 57 25 3d 57 25 2b  |..... ....W%=W%+|
00000fc0  31 3a e7 20 57 25 3d 30  3a f2 53 4d 0d 09 d8 05  |1:. W%=0:.SM....|
00000fd0  e1 0d 09 e2 05 3a 0d 09  ec 08 dd f2 45 4e 0d 09  |.....:......EN..|
00000fe0  f6 0f e7 20 4c 25 3d 30  e5 8d 54 7c 4a 0d 0a 00  |... L%=0..T|J...|
00000ff0  29 e7 20 59 25 28 4c 25  29 3c 3e 59 25 2b 32 84  |). Y%(L%)<>Y%+2.|
00001000  49 25 28 4c 25 29 f1 8a  58 25 2c 59 25 29 4d 24  |I%(L%)..X%,Y%)M$|
00001010  28 4d 25 29 3a e1 0d 0a  0a 19 d4 31 2c 31 2c 31  |(M%):......1,1,1|
00001020  30 30 2c 32 3a f1 8a 58  25 2c 59 25 29 42 24 0d  |00,2:..X%,Y%)B$.|
00001030  0a 14 23 55 24 28 4c 25  29 3d 4d 55 24 3a 44 24  |..#U$(L%)=MU$:D$|
00001040  28 4c 25 29 3d 4d 44 24  3a 58 25 3d 58 25 28 4c  |(L%)=MD$:X%=X%(L|
00001050  25 29 0d 0a 1e 12 f1 8a  58 25 2c 59 25 29 4d 24  |%)......X%,Y%)M$|
00001060  28 4d 25 29 0d 0a 28 12  57 25 3d 31 3a 49 25 28  |(M%)..(.W%=1:I%(|
00001070  4c 25 29 3d 39 20 0d 0a  32 05 e1 0d 0a 3c 32 e7  |L%)=9 ..2....<2.|
00001080  20 58 25 3d 30 f1 8a 30  2c 59 25 29 42 24 3a 58  | X%=0..0,Y%)B$:X|
00001090  25 3d 31 39 2b 28 59 25  3d 32 39 29 3a f1 8a 58  |%=19+(Y%=29):..X|
000010a0  25 2c 59 25 29 4d 24 28  4d 25 29 3a e1 0d 0a 46  |%,Y%)M$(M%):...F|
000010b0  2c e7 20 58 25 3e 31 37  20 f1 8a 58 25 2c 59 25  |,. X%>17 ..X%,Y%|
000010c0  29 42 24 3a 58 25 3d 30  3a f1 8a 58 25 2c 59 25  |)B$:X%=0:..X%,Y%|
000010d0  29 4d 24 28 4d 25 29 3a  e1 0d 0a 50 12 f1 8a 58  |)M$(M%):...P...X|
000010e0  25 2c 59 25 29 4d 24 28  4d 25 29 0d 0a 5a 05 e1  |%,Y%)M$(M%)..Z..|
000010f0  0d 0a 64 05 3a 0d 0a 6e  08 dd f2 45 58 0d 0a 78  |..d.:..n...EX..x|
00001100  17 e7 20 28 59 25 28 4c  25 29 2b 31 29 83 34 3d  |.. (Y%(L%)+1).4=|
00001110  30 8b 20 e1 0d 0a 82 0e  d4 31 2c 31 2c 32 30 30  |0. ......1,1,200|
00001120  2c 32 0d 0a 8c 1e 55 24  28 4c 25 29 3d 4c 55 24  |,2....U$(L%)=LU$|
00001130  3a 44 24 28 4c 25 29 3d  4c 44 24 3a 57 25 3d a3  |:D$(L%)=LD$:W%=.|
00001140  0d 0a 96 0c 49 25 28 4c  25 29 3d 30 0d 0a a0 29  |....I%(L%)=0...)|
00001150  59 25 3d 59 25 28 4c 25  29 2d 32 3a 5a 25 3d 28  |Y%=Y%(L%)-2:Z%=(|
00001160  28 59 25 28 4c 25 29 2b  31 29 81 34 2d 31 29 2a  |(Y%(L%)+1).4-1)*|
00001170  32 31 2b 41 25 0d 0a aa  19 20 f1 8a 58 25 2c 59  |21+A%.... ..X%,Y|
00001180  25 29 42 24 3a 58 25 3d  58 25 2b 54 58 25 0d 0a  |%)B$:X%=X%+TX%..|
00001190  b4 14 f1 8a 58 25 2c 59  25 29 4d 24 28 4d 25 29  |....X%,Y%)M$(M%)|
000011a0  3a e1 0d 0a be 05 3a 0d  0a c8 07 dd f2 44 0d 0a  |:.....:......D..|
000011b0  d2 14 e7 20 45 25 20 45  25 3d 30 20 8b 20 45 25  |... E% E%=0 . E%|
000011c0  3d 31 0d 0a dc 21 50 24  3d 41 24 28 45 25 29 3a  |=1...!P$=A$(E%):|
000011d0  53 24 3d 42 24 28 45 25  29 3a 43 24 3d 43 24 28  |S$=B$(E%):C$=C$(|
000011e0  45 25 29 0d 0a e6 06 fb  33 0d 0a f0 0c e3 20 44  |E%).....3..... D|
000011f0  25 3d 31 b8 35 0d 0a fa  17 e7 20 44 25 3e 4e 44  |%=1.5..... D%>ND|
00001200  25 3a f2 44 54 28 30 29  3a ed 3a e1 0d 0b 04 12  |%:.DT(0):.:.....|
00001210  20 e7 20 57 25 28 44 25  29 e5 8d 44 54 4b 0d 0b  | . W%(D%)..DTK..|
00001220  0e 24 55 25 3d 41 25 28  44 25 29 3a 56 25 3d 5a  |.$U%=A%(D%):V%=Z|
00001230  25 28 44 25 29 2b 55 25  3a 53 25 3d 42 25 28 44  |%(D%)+U%:S%=B%(D|
00001240  25 29 0d 0b 18 27 e7 20  53 25 3d 59 25 2b 31 20  |%)...'. S%=Y%+1 |
00001250  50 25 28 44 25 29 3d 55  25 3c 58 25 3a e7 20 55  |P%(D%)=U%<X%:. U|
00001260  25 3d 58 25 20 ed 20 3a  e1 0d 0b 22 13 e7 20 50  |%=X% . :...".. P|
00001270  25 28 44 25 29 20 e5 20  8d 44 40 4b 0d 0b 2c 1e  |%(D%) . .D@K..,.|
00001280  e7 20 56 25 3f 2d 31 3e  36 8b 54 25 3d 56 25 3f  |. V%?-1>6.T%=V%?|
00001290  2d 31 3a f2 44 45 3a ed  3a e1 0d 0b 36 40 3f 56  |-1:.DE:.:...6@?V|
000012a0  25 3d 37 3a f1 8a 55 25  2c 53 25 29 50 24 3a 41  |%=7:..U%,S%)P$:A|
000012b0  25 28 44 25 29 3d 55 25  2d 31 3a e7 20 56 25 3f  |%(D%)=U%-1:. V%?|
000012c0  2d 31 3c 39 56 25 3f 2d  31 3d 38 3a ed 3a e1 20  |-1<9V%?-1=8:.:. |
000012d0  8b 20 f2 45 31 4d 3a ed  3a e1 0d 0b 40 1b e7 56  |. .E1M:.:...@..V|
000012e0  25 3f 31 3e 36 8b 54 25  3d 56 25 3f 31 3a f2 44  |%?1>6.T%=V%?1:.D|
000012f0  45 3a ed 3a e1 0d 0b 4a  3c 3f 56 25 3d 37 3a f1  |E:.:...J<?V%=7:.|
00001300  8a 55 25 2c 53 25 29 53  24 3a 41 25 28 44 25 29  |.U%,S%)S$:A%(D%)|
00001310  3d 55 25 2b 31 3a e7 56  25 3f 31 3c 39 56 25 3f  |=U%+1:.V%?1<9V%?|
00001320  31 3d 38 3a ed 3a e1 20  8b f2 45 31 50 3a ed 3a  |1=8:.:. ..E1P:.:|
00001330  e1 0d 0b 54 13 e7 57 25  28 44 25 29 3c 30 e5 8d  |...T..W%(D%)<0..|
00001340  74 64 4b 20 0d 0b 5e 16  52 25 3d 59 25 2d 59 25  |tdK ..^.R%=Y%-Y%|
00001350  28 57 25 28 44 25 29 29  2b 32 0d 0b 68 10 e7 52  |(W%(D%))+2..h..R|
00001360  25 3d 30 f2 44 58 3a ed  3a e1 0d 0b 72 0e e7 52  |%=0.DX:.:...r..R|
00001370  25 3c 30 e5 8d 74 50 4b  0d 0b 7c 13 e7 ac 44 25  |%<0..tPK..|...D%|
00001380  28 57 25 28 44 25 29 29  f2 44 58 0d 0b 86 07 ed  |(W%(D%)).DX.....|
00001390  3a e1 0d 0b 90 12 e7 44  25 28 57 25 28 44 25 29  |:......D%(W%(D%)|
000013a0  29 f2 44 58 0d 0b 9a 07  ed 3a e1 0d 0b a4 13 57  |).DX.....:.....W|
000013b0  25 28 44 25 29 3d 57 25  28 44 25 29 2b 31 0d 0b  |%(D%)=W%(D%)+1..|
000013c0  ae 1e e7 20 57 25 28 44  25 29 3d 30 20 f2 52 45  |... W%(D%)=0 .RE|
000013d0  3a d4 33 2c 31 2c 32 30  30 2c 31 30 0d 0b b8 07  |:.3,1,200,10....|
000013e0  ed 3a e1 0d 0b c2 05 3a  0d 0b cc 08 dd f2 44 45  |.:.....:......DE|
000013f0  0d 0b d6 39 e7 20 53 25  3d 59 25 28 54 25 29 2d  |...9. S%=Y%(T%)-|
00001400  31 8b 20 e7 20 54 25 3d  30 20 50 25 28 44 25 29  |1. . T%=0 P%(D%)|
00001410  3d ac 20 50 25 28 44 25  29 3a e1 20 8b f1 8a 55  |=. P%(D%):. ...U|
00001420  25 2c 53 25 29 43 24 3a  e1 0d 0b e0 25 e7 20 53  |%,S%)C$:....%. S|
00001430  25 2b 31 3d 55 25 28 54  25 29 20 84 20 53 25 2b  |%+1=U%(T%) . S%+|
00001440  31 3d 4c 25 28 54 25 29  20 e5 8d 54 52 4c 0d 0b  |1=L%(T%) ..TRL..|
00001450  ea 11 e7 20 59 25 3c 3d  53 25 e5 8d 54 48 4c 0d  |... Y%<=S%..THL.|
00001460  0b f4 0f e7 20 ac 44 25  28 54 25 29 20 e1 0d 0b  |.... .D%(T%) ...|
00001470  fe 09 e5 8d 54 52 4c 0d  0c 08 0f 20 e7 20 44 25  |....TRL.... . D%|
00001480  28 54 25 29 20 e1 0d 0c  12 0f e7 20 49 25 28 54  |(T%) ...... I%(T|
00001490  25 29 20 e1 20 0d 0c 1c  09 3f 56 25 3d 37 0d 0c  |%) . ....?V%=7..|
000014a0  26 1a d4 31 2c 31 2c 31  30 30 2c 32 3a f1 8a 55  |&..1,1,100,2:..U|
000014b0  25 2c 53 25 29 4c 42 24  0d 0c 30 27 55 24 28 54  |%,S%)LB$..0'U$(T|
000014c0  25 29 3d 44 55 24 3a 44  24 28 54 25 29 3d 44 44  |%)=DU$:D$(T%)=DD|
000014d0  24 3a 41 25 28 44 25 29  3d 58 25 28 54 25 29 0d  |$:A%(D%)=X%(T%).|
000014e0  0c 3a 12 f1 8a 41 25 28  44 25 29 2c 53 25 29 43  |.:...A%(D%),S%)C|
000014f0  24 0d 0c 44 17 57 25 28  44 25 29 3d 54 25 3a 49  |$..D.W%(D%)=T%:I|
00001500  25 28 54 25 29 3d 44 25  0d 0c 4e 05 e1 0d 0c 58  |%(T%)=D%..N....X|
00001510  05 3a 0d 0c 62 08 dd f2  44 58 0d 0c 6c 1a e7 20  |.:..b...DX..l.. |
00001520  28 59 25 28 57 25 28 44  25 29 29 2b 31 29 83 34  |(Y%(W%(D%))+1).4|
00001530  3d 30 8b e1 0d 0c 76 0e  d4 31 2c 33 2c 32 30 30  |=0....v..1,3,200|
00001540  2c 32 0d 0c 80 1f 54 25  3d 57 25 28 44 25 29 3a  |,2....T%=W%(D%):|
00001550  57 25 28 44 25 29 3d 30  3a 49 25 28 54 25 29 3d  |W%(D%)=0:I%(T%)=|
00001560  30 0d 0c 8a 29 55 24 28  54 25 29 3d 4c 55 24 3a  |0...)U$(T%)=LU$:|
00001570  44 24 28 54 25 29 3d 4c  44 24 3a 42 25 28 44 25  |D$(T%)=LD$:B%(D%|
00001580  29 3d 59 25 28 54 25 29  2d 31 0d 0c 94 17 f1 8a  |)=Y%(T%)-1......|
00001590  41 25 28 44 25 29 2c 42  25 28 44 25 29 29 4c 42  |A%(D%),B%(D%))LB|
000015a0  24 0d 0c 9e 22 e7 20 59  25 3d 42 25 28 44 25 29  |$...". Y%=B%(D%)|
000015b0  2d 31 20 50 25 28 44 25  29 3d 41 25 28 44 25 29  |-1 P%(D%)=A%(D%)|
000015c0  3c 58 25 0d 0c a8 2f e7  20 50 25 28 44 25 29 20  |<X%.../. P%(D%) |
000015d0  41 25 28 44 25 29 3d 41  25 28 44 25 29 2b 31 20  |A%(D%)=A%(D%)+1 |
000015e0  8b 20 41 25 28 44 25 29  3d 41 25 28 44 25 29 2d  |. A%(D%)=A%(D%)-|
000015f0  31 20 0d 0c b2 1a f1 8a  41 25 28 44 25 29 2c 42  |1 ......A%(D%),B|
00001600  25 28 44 25 29 29 43 24  28 45 25 29 0d 0c bc 34  |%(D%))C$(E%)...4|
00001610  5a 25 28 44 25 29 3d 28  28 59 25 28 54 25 29 2b  |Z%(D%)=((Y%(T%)+|
00001620  31 29 81 34 2d 31 29 2a  32 31 2b 41 25 3a 3f 28  |1).4-1)*21+A%:?(|
00001630  5a 25 28 44 25 29 2b 41  25 28 44 25 29 29 3d 38  |Z%(D%)+A%(D%))=8|
00001640  0d 0c c6 05 e1 0d 0c d0  05 3a 0d 0c da 09 dd f2  |.........:......|
00001650  45 31 4d 0d 0c e4 19 55  25 3d 55 25 2d 31 3a 56  |E1M....U%=U%-1:V|
00001660  25 3d 56 25 2d 31 3a e5  8d 54 4c 4d 0d 0c ee 05  |%=V%-1:..TLM....|
00001670  3a 0d 0c f8 09 dd f2 45  31 50 0d 0d 02 14 55 25  |:......E1P....U%|
00001680  3d 55 25 2b 31 3a 56 25  3d 56 25 2b 31 20 0d 0d  |=U%+1:V%=V%+1 ..|
00001690  0c 13 20 e7 20 3f 56 25  3d 31 30 20 43 46 25 3d  |.. . ?V%=10 CF%=|
000016a0  b9 0d 0d 16 4c e7 20 3f  56 25 3e 31 30 20 45 58  |....L. ?V%>10 EX|
000016b0  25 3d 44 25 3a 44 25 3d  3f 56 25 2d 31 30 3a d4  |%=D%:D%=?V%-10:.|
000016c0  31 2c 31 2c 32 30 30 2c  31 30 3a f2 52 45 3a 44  |1,1,200,10:.RE:D|
000016d0  25 3d 45 58 25 3a 41 25  28 44 25 29 3d 41 25 28  |%=EX%:A%(D%)=A%(|
000016e0  44 25 29 2b 31 3a 3f 56  25 3d 38 3a e1 0d 0d 20  |D%)+1:?V%=8:... |
000016f0  31 3f 56 25 3d 31 30 2b  44 25 3a d4 31 2c 31 2c  |1?V%=10+D%:.1,1,|
00001700  32 30 30 2c 31 30 3a d4  31 2c 31 2c 32 30 30 2c  |200,10:.1,1,200,|
00001710  31 30 3a d4 32 2c 32 2c  32 30 30 2c 33 30 0d 0d  |10:.2,2,200,30..|
00001720  2a 15 e3 20 45 58 25 3d  31 b8 33 36 3a fb 45 58  |*.. EX%=1.36:.EX|
00001730  25 83 34 0d 0d 34 28 f1  8a 55 25 2c 42 25 28 44  |%.4..4(..U%,B%(D|
00001740  25 29 29 3b 3a ef 32 34  36 2c 38 2c 31 31 2c 32  |%));:.246,8,11,2|
00001750  34 37 2c 38 2c 31 31 2c  32 34 32 0d 0d 3e 05 ed  |47,8,11,242..>..|
00001760  0d 0d 48 0f e7 20 43 46  25 20 f2 43 4c 3a e1 0d  |..H.. CF% .CL:..|
00001770  0d 52 28 fb 32 3a f1 8a  55 25 2c 42 25 28 44 25  |.R(.2:..U%,B%(D%|
00001780  29 2d 32 29 bd 32 34 36  3a fb 33 3a 57 25 28 44  |)-2).246:.3:W%(D|
00001790  25 29 3d 2d 35 30 20 0d  0d 5c 05 e1 0d 0d 66 05  |%)=-50 ..\....f.|
000017a0  3a 0d 0d 70 52 dd f2 45  41 3a e7 20 44 25 3d 4e  |:..pR..EA:. D%=N|
000017b0  44 25 e5 8d 74 44 4d 8b  41 25 28 44 25 29 3d 41  |D%..tDM.A%(D%)=A|
000017c0  25 28 4e 44 25 29 3a 42  25 28 44 25 29 3d 42 25  |%(ND%):B%(D%)=B%|
000017d0  28 4e 44 25 29 3a 57 25  28 44 25 29 3d 57 25 28  |(ND%):W%(D%)=W%(|
000017e0  4e 44 25 29 3a 5a 25 28  44 25 29 3d 5a 25 28 4e  |ND%):Z%(D%)=Z%(N|
000017f0  44 25 29 0d 0d 7a 27 e7  20 57 25 28 4e 44 25 29  |D%)..z'. W%(ND%)|
00001800  3c 30 3f 28 5a 25 28 4e  44 25 29 2b 41 25 28 4e  |<0?(Z%(ND%)+A%(N|
00001810  44 25 29 29 3d 31 30 2b  44 25 0d 0d 84 29 4e 44  |D%))=10+D%...)ND|
00001820  25 3d 4e 44 25 2d 31 3a  44 25 3d 39 3a 44 44 25  |%=ND%-1:D%=9:DD%|
00001830  3d 44 44 25 2b 31 3a e7  20 4e 44 25 3d 30 4f 56  |=DD%+1:. ND%=0OV|
00001840  25 3d b9 0d 0d 8e 05 e1  0d 0d 98 05 3a 0d 0d a2  |%=..........:...|
00001850  3b dd f2 52 45 3a f1 8a  41 25 28 44 25 29 2c 42  |;..RE:..A%(D%),B|
00001860  25 28 44 25 29 2d 32 29  4c 42 24 3b 3a ef 38 2c  |%(D%)-2)LB$;:.8,|
00001870  31 30 2c 31 30 2c 32 34  36 3a 57 25 28 44 25 29  |10,10,246:W%(D%)|
00001880  3d 30 3a f2 53 4d 3a e1  0d 0d ac 05 3a 0d 0d b6  |=0:.SM:.....:...|
00001890  45 dd f2 45 52 3a 44 25  3d 3f 50 25 2d 31 30 3a  |E..ER:D%=?P%-10:|
000018a0  3f 50 25 3d 37 3a fb 31  3a f1 8a 41 25 28 44 25  |?P%=7:.1:..A%(D%|
000018b0  29 2c 42 25 28 44 25 29  2d 32 29 bd 32 34 36 3a  |),B%(D%)-2).246:|
000018c0  fb 33 3a f2 45 41 3a d4  30 2c 31 2c 36 2c 32 30  |.3:.EA:.0,1,6,20|
000018d0  3a e1 0d 0d c0 05 3a 0d  0d ca 08 dd f2 45 32 0d  |:.....:......E2.|
000018e0  0d d4 11 e7 20 3f 50 25  3e 31 30 f2 45 52 3a e1  |.... ?P%>10.ER:.|
000018f0  0d 0d de 33 e7 20 3f 50  25 3e 38 57 25 3d 2d 32  |...3. ?P%>8W%=-2|
00001900  30 3a 3f 50 25 3d 37 3a  f1 8a 58 25 2c 59 25 2d  |0:?P%=7:..X%,Y%-|
00001910  31 29 4c 42 24 3a d4 31  2c 31 2c 32 30 30 2c 32  |1)LB$:.1,1,200,2|
00001920  30 3a e1 0d 0d e8 17 d4  31 2c 31 2c 32 30 30 2c  |0:......1,1,200,|
00001930  32 30 3a f2 44 54 28 32  35 29 0d 0d f2 32 f1 8a  |20:.DT(25)...2..|
00001940  58 25 2c 59 25 29 bd 32  34 38 3a f1 8a 58 25 2c  |X%,Y%).248:..X%,|
00001950  59 25 2b 31 29 bd 32 34  38 3a f2 44 54 28 33 35  |Y%+1).248:.DT(35|
00001960  29 3a f1 8a 58 25 2c 59  25 29 42 24 0d 0d fc 1d  |):..X%,Y%)B$....|
00001970  4d 45 25 3d 4d 45 25 2d  31 3a 44 44 25 3d 44 44  |ME%=ME%-1:DD%=DD|
00001980  25 2b 31 3a 4f 56 25 3d  b9 0d 0e 06 05 e1 0d 0e  |%+1:OV%=........|
00001990  10 05 3a 0d 0e 1a 1c dd  f2 44 54 28 49 25 29 3a  |..:......DT(I%):|
000019a0  54 3d 91 3a f5 20 fd 91  3e 54 2b 49 25 3a e1 0d  |T=.:. ..>T+I%:..|
000019b0  0e 24 05 3a 0d 0e 2e 07  dd f2 47 0d 0e 38 19 db  |.$.:......G..8..|
000019c0  3a 53 43 25 3d 53 43 25  2b 32 35 30 2b 32 30 30  |:SC%=SC%+250+200|
000019d0  2a 44 44 25 0d 0e 42 1d  e7 20 53 43 25 81 32 30  |*DD%..B.. SC%.20|
000019e0  30 30 3c 3e 42 43 25 20  4d 45 25 3d 4d 45 25 2b  |00<>BC% ME%=ME%+|
000019f0  31 0d 0e 4c 0c e7 20 4d  45 25 3d 30 e1 0d 0e 56  |1..L.. ME%=0...V|
00001a00  13 ef 31 39 2c 33 2c 32  2c 30 2c 30 2c 30 2c 30  |..19,3,2,0,0,0,0|
00001a10  0d 0e 60 48 f1 8a 31 2c  31 29 c4 36 2c 43 48 24  |..`H..1,1).6,CH$|
00001a20  29 8a 30 2c 31 29 c4 31  30 2c 43 56 24 29 8a 31  |).0,1).10,CV$).1|
00001a30  39 2c 31 29 c4 31 30 2c  43 56 24 29 8a 30 2c 33  |9,1).10,CV$).0,3|
00001a40  30 29 59 24 2b bd 34 32  2b c4 36 2c 43 48 24 29  |0)Y$+.42+.6,CH$)|
00001a50  2b 59 24 2b bd 34 32 3b  0d 0e 6a 4c f1 8a 35 2c  |+Y$+.42;..jL..5,|
00001a60  32 29 59 24 2b 22 45 4c  45 56 41 53 49 4f 4e 22  |2)Y$+"ELEVASION"|
00001a70  8a 34 2c 34 29 22 53 43  4f 52 45 20 42 4f 41 52  |.4,4)"SCORE BOAR|
00001a80  44 22 8a 34 2c 36 29 22  46 4f 52 20 53 48 45 45  |D".4,6)"FOR SHEE|
00001a90  54 20 22 3b 47 25 3b 8a  31 2c 37 29 c4 36 2c 43  |T ";G%;.1,7).6,C|
00001aa0  48 24 29 3b 0d 0e 74 1b  f1 8a 32 2c 39 29 22 59  |H$);..t...2,9)"Y|
00001ab0  4f 55 52 20 53 43 4f 52  45 20 22 3b 53 43 25 0d  |OUR SCORE ";SC%.|
00001ac0  0e 7e 1d f1 8a 32 2c 31  31 29 22 48 49 47 48 20  |.~...2,11)"HIGH |
00001ad0  53 43 4f 52 45 20 22 3b  48 53 43 25 0d 0e 88 1f  |SCORE ";HSC%....|
00001ae0  f1 8a 32 2c 31 34 29 52  24 22 44 52 4f 49 44 53  |..2,14)R$"DROIDS|
00001af0  20 44 45 53 54 52 4f 59  45 44 22 0d 0e 92 16 58  | DESTROYED"....X|
00001b00  25 3d 44 44 25 3a e7 20  58 25 3e 38 20 58 25 3d  |%=DD%:. X%>8 X%=|
00001b10  38 0d 0e 9c 17 f1 8a 32  2c 31 36 29 c4 58 25 2c  |8......2,16).X%,|
00001b20  bd 32 34 36 2b bd 39 29  0d 0e a6 17 f1 8a 32 2c  |.246+.9)......2,|
00001b30  32 30 29 59 24 22 4d 45  4e 20 4c 45 46 54 22 0d  |20)Y$"MEN LEFT".|
00001b40  0e b0 15 58 25 3d 4d 45  25 3a e7 20 58 25 3e 38  |...X%=ME%:. X%>8|
00001b50  58 25 3d 38 0d 0e ba 1d  f1 8a 32 2c 32 32 29 c4  |X%=8......2,22).|
00001b60  58 25 2c 4d 24 28 30 29  2b bd 31 31 2b bd 39 29  |X%,M$(0)+.11+.9)|
00001b70  3b 0d 0e c4 08 58 25 3d  31 0d 0e ce 3d e7 20 53  |;....X%=1...=. S|
00001b80  43 25 81 32 30 30 30 3c  3e 42 43 25 80 20 58 25  |C%.2000<>BC%. X%|
00001b90  3d 31 20 f1 8a 32 2c 32  35 29 59 24 22 42 4f 4e  |=1 ..2,25)Y$"BON|
00001ba0  55 53 20 4d 41 4e 22 20  8b 20 f1 8a 32 2c 32 35  |US MAN" . ..2,25|
00001bb0  29 89 28 31 30 29 0d 0e  d8 21 f1 8a 31 2c 32 38  |).(10)...!..1,28|
00001bc0  29 52 24 22 52 45 54 55  52 4e 20 54 4f 20 43 4f  |)R$"RETURN TO CO|
00001bd0  4e 54 49 4e 55 45 22 0d  0e e2 11 e7 20 a6 2d 37  |NTINUE"..... .-7|
00001be0  34 20 e5 20 8d 64 76 4e  0d 0e ec 24 e7 20 91 20  |4 . .dvN...$. . |
00001bf0  83 31 35 3d 30 20 58 25  3d 58 25 82 31 3a e5 8d  |.15=0 X%=X%.1:..|
00001c00  64 4e 4e 20 8b 20 e5 20  8d 64 62 4e 0d 0e f6 17  |dNN . . .dbN....|
00001c10  ef 31 39 2c 33 2c 36 2c  30 2c 30 2c 30 3a 4f 56  |.19,3,6,0,0,0:OV|
00001c20  25 3d a3 0d 0f 00 1e 47  25 3d 47 25 2b 31 3a 44  |%=.....G%=G%+1:D|
00001c30  44 25 3d 30 3a 42 43 25  3d 53 43 25 81 32 30 30  |D%=0:BC%=SC%.200|
00001c40  30 0d 0f 0a 11 e7 20 47  25 3c 3d 35 20 e5 8d 54  |0..... G%<=5 ..T|
00001c50  72 4f 0d 0f 14 1a 4e 44  25 3d 47 25 2d 35 3a e7  |rO....ND%=G%-5:.|
00001c60  20 4e 44 25 3e 35 20 4e  44 25 3d 35 0d 0f 1e 1a  | ND%>5 ND%=5....|
00001c70  4e 43 25 3d 47 25 2d 35  3a e7 20 4e 43 25 3e 38  |NC%=G%-5:. NC%>8|
00001c80  20 4e 43 25 3d 38 0d 0f  28 0f 4e 4d 25 3d 32 2b  | NC%=8..(.NM%=2+|
00001c90  4e 44 25 3a e1 0d 0f 32  14 4e 44 25 3d 47 25 3a  |ND%:...2.ND%=G%:|
00001ca0  4e 4d 25 3d 32 2b 4e 44  25 0d 0f 3c 05 e1 0d 0f  |NM%=2+ND%..<....|
00001cb0  46 05 3a 0d 0f 50 08 dd  f2 53 54 0d 0f 5a 38 47  |F.:..P...ST..Z8G|
00001cc0  25 3d 31 3a 4e 44 25 3d  31 3a 4e 4d 25 3d 33 3a  |%=1:ND%=1:NM%=3:|
00001cd0  4e 43 25 3d 30 3a 44 44  25 3d 30 3a 4d 45 25 3d  |NC%=0:DD%=0:ME%=|
00001ce0  33 3a 4f 56 25 3d a3 3a  53 43 25 3d 30 3a 42 43  |3:OV%=.:SC%=0:BC|
00001cf0  25 3d 30 0d 0f 64 05 e1  0d 0f 6e 05 3a 0d 0f 78  |%=0..d....n.:..x|
00001d00  08 dd f2 43 4c 0d 0f 82  15 43 46 25 3d a3 3a d4  |...CL....CF%=.:.|
00001d10  31 2c 31 2c 32 30 30 2c  32 30 0d 0f 8c 0c e7 20  |1,1,200,20..... |
00001d20  4e 44 25 3d 35 e1 0d 0f  96 11 4e 44 25 3d 4e 44  |ND%=5.....ND%=ND|
00001d30  25 2b 31 3a f2 53 4d 0d  0f a0 3c 41 25 28 4e 44  |%+1:.SM...<A%(ND|
00001d40  25 29 3d 41 25 28 44 25  29 2b 31 3a 42 25 28 4e  |%)=A%(D%)+1:B%(N|
00001d50  44 25 29 3d 42 25 28 44  25 29 3a 5a 25 28 4e 44  |D%)=B%(D%):Z%(ND|
00001d60  25 29 3d 5a 25 28 44 25  29 3a 57 25 28 4e 44 25  |%)=Z%(D%):W%(ND%|
00001d70  29 3d 30 0d 0f aa 05 e1  0d 0f b4 05 3a 0d 0f be  |)=0.........:...|
00001d80  09 dd f2 4e 58 47 0d 0f  c8 13 db 3a ef 31 39 2c  |...NXG.....:.19,|
00001d90  33 2c 32 2c 30 2c 30 2c  30 0d 0f d2 49 20 f1 8a  |3,2,0,0,0...I ..|
00001da0  31 2c 31 29 c4 36 2c 43  48 24 29 8a 30 2c 31 29  |1,1).6,CH$).0,1)|
00001db0  c4 31 30 2c 43 56 24 29  8a 31 39 2c 31 29 c4 31  |.10,CV$).19,1).1|
00001dc0  30 2c 43 56 24 29 8a 30  2c 33 30 29 59 24 2b bd  |0,CV$).0,30)Y$+.|
00001dd0  34 32 2b c4 36 2c 43 48  24 29 2b 59 24 2b bd 34  |42+.6,CH$)+Y$+.4|
00001de0  32 3b 0d 0f dc 38 f1 8a  35 2c 32 29 59 24 2b 22  |2;...8..5,2)Y$+"|
00001df0  45 4c 45 56 41 53 49 4f  4e 22 8a 34 2c 34 29 22  |ELEVASION".4,4)"|
00001e00  47 41 4d 45 20 20 20 4f  56 45 52 22 3b 8a 31 2c  |GAME   OVER";.1,|
00001e10  35 29 c4 36 2c 43 48 24  29 3b 0d 0f e6 33 f1 8a  |5).6,CH$);...3..|
00001e20  33 2c 37 29 22 54 48 45  20 48 49 53 43 4f 52 45  |3,7)"THE HISCORE|
00001e30  20 57 41 53 22 8a 38 2c  39 29 3b 48 53 43 25 20  | WAS".8,9);HSC% |
00001e40  8a 33 2c 31 31 29 22 42  59 20 22 4e 24 0d 0f f0  |.3,11)"BY "N$...|
00001e50  28 f1 8a 33 2c 31 34 29  59 24 22 59 4f 55 52 20  |(..3,14)Y$"YOUR |
00001e60  53 43 4f 52 45 20 57 41  53 20 22 8a 38 2c 31 36  |SCORE WAS ".8,16|
00001e70  29 3b 53 43 25 0d 0f fa  15 e7 20 53 43 25 3c 3d  |);SC%..... SC%<=|
00001e80  48 53 43 25 20 e5 8d 44  68 50 0d 10 04 1c f1 8a  |HSC% ..DhP......|
00001e90  33 2c 31 38 29 22 54 48  45 20 4e 45 57 20 48 49  |3,18)"THE NEW HI|
00001ea0  53 43 4f 52 45 22 0d 10  0e 1e f1 8a 33 2c 32 31  |SCORE"......3,21|
00001eb0  29 52 24 22 45 4e 54 45  52 20 59 4f 55 52 20 4e  |)R$"ENTER YOUR N|
00001ec0  41 4d 45 22 0d 10 18 0b  2a 46 58 32 31 2c 30 0d  |AME"....*FX21,0.|
00001ed0  10 22 13 f1 8a 33 2c 32  33 29 22 2d 2d 3e 22 59  |."...3,23)"-->"Y|
00001ee0  24 3b 0d 10 2c 10 4e 24  3d 22 22 3a f5 20 49 4b  |$;..,.N$="":. IK|
00001ef0  3d a5 0d 10 36 11 e7 20  49 4b 3d 31 33 20 e5 8d  |=...6.. IK=13 ..|
00001f00  44 54 50 0d 10 40 40 e7  20 49 4b 3d 31 32 37 20  |DTP..@@. IK=127 |
00001f10  80 20 a9 4e 24 3c 3e 30  20 f1 bd 49 4b 3b 3a 4e  |. .N$<>0 ..IK;:N|
00001f20  24 3d c0 4e 24 2c a9 4e  24 2d 31 29 3a e5 8d 44  |$=.N$,.N$-1):..D|
00001f30  54 50 20 8b 20 e7 20 49  4b 3d 31 32 37 20 e5 8d  |TP . . IK=127 ..|
00001f40  44 54 50 0d 10 4a 13 4e  24 3d 4e 24 2b bd 49 4b  |DTP..J.N$=N$+.IK|
00001f50  3a f1 bd 49 4b 3b 0d 10  54 14 fd 20 49 4b 3d 31  |:..IK;..T.. IK=1|
00001f60  33 20 84 20 a9 4e 24 3d  31 32 0d 10 5e 0c 48 53  |3 . .N$=12..^.HS|
00001f70  43 25 3d 53 43 25 0d 10  68 46 f1 8a 34 2c 32 36  |C%=SC%..hF..4,26|
00001f80  29 52 24 22 50 52 45 53  53 20 52 45 54 55 52 4e  |)R$"PRESS RETURN|
00001f90  22 8a 32 2c 32 38 29 22  46 4f 52 20 41 4e 4f 54  |".2,28)"FOR ANOT|
00001fa0  48 45 52 20 47 41 4d 45  22 3b 3a f2 44 54 28 31  |HER GAME";:.DT(1|
00001fb0  30 30 29 3a f5 20 fd 20  a6 2d 37 34 0d 10 72 05  |00):. . .-74..r.|
00001fc0  e1 0d 10 7c 05 3a 0d 10  86 08 dd f2 46 50 0d 10  |...|.:......FP..|
00001fd0  90 18 db 3a f1 8a 31 33  2c 33 29 22 45 4c 45 56  |...:..13,3)"ELEV|
00001fe0  41 53 49 4f 4e 22 0d 10  9a 11 f1 8a 31 36 2c 31  |ASION"......16,1|
00001ff0  32 29 3b 22 62 79 22 0d  10 a4 19 f1 8a 31 32 2c  |2);"by"......12,|
00002000  31 34 29 22 44 2e 4a 2e  50 69 6c 6c 69 6e 67 22  |14)"D.J.Pilling"|
00002010  0d 10 ae 25 f1 8a 36 2c  32 30 29 22 50 72 65 73  |...%..6,20)"Pres|
00002020  73 20 61 6e 79 20 6b 65  79 20 74 6f 20 73 74 61  |s any key to sta|
00002030  72 74 2e 22 20 0d 10 b8  09 47 3d a5 3a db 0d 10  |rt." ....G=.:...|
00002040  c2 05 e1 0d ff                                    |.....|
00002045

GAMES2/ELEVATOR.m0

GAMES2/ELEVATOR.m1

GAMES2/ELEVATOR.m2

GAMES2/ELEVATOR.m4

GAMES2/ELEVATOR.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .