Home » CEEFAX disks » telesoftware5.adl » 04-03-88/DOOMRUN

04-03-88/DOOMRUN

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 » CEEFAX disks » telesoftware5.adl
Filename: 04-03-88/DOOMRUN
Read OK:
File size: 1D6B bytes
Load address: 0E00
Exec address: 801F
Duplicates

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

File contents
    1REM line 280&300=sum%=2(7)
    2REM line 540&460=dim%=2(15)
    3REM line 700&350=sum%=2(15)
    4REM line 820&1380=sum%=1(5)
    5REM Allan Morris. (C) Micro User 1984
    6ON ERROR GOTO2400
  100PROCdi
  110VDU23,240,0,0,0,0,0,0,0,24:VDU23,241,0,0,0,0,0,0,60,24:VDU23,242,0,0,0,0,0,126,60,24:VDU23,243,0,0,0,0,231,126,60,24:VDU23,250,255,255,255,255,255,255,255,255
  120VDU23,244,0,0,0,195,231,126,60,24:VDU23,245,0,0,195,195,231,126,60,24:VDU23,246,0,129,195,195,231,126,60,24:VDU23,247,129,129,195,195,231,126,60,24:VDU23,248,0,0,0,16,56,124,56,16:VDU23,249,0,129,195,255,36,255,195,129
  130MODE2:VDU23;8202;0;0;0;
  140VDU19,9,1;0;19,8,6;0;19,10,4;0;19,11,2;0;19,12,6;0;:ENVELOPE1,1,4,-4,50,10,20,0,127,0,0,-5,126,126
  150PROCpic:VDU4:COLOUR12:PRINTTAB(3,0)"range    score":VDU5:GCOL3,7:game%=0:H%=0
  160VDU5:GCOL3,7:game%=0:H%=0
  170PROCva:PROCsh
  180PROCst
  190REPEAT
  200PROCfl
  210PROCsi
  220T1%=c%-RND(4)*d%
  230PROCsp
  240VDU4:COLOUR12:PRINTTAB(3,1);T%DIVe%;" Km ":VDU5
  250PROCse
  260IFJ<a%J%=4
  270IFJ<b%J%=1
  280UNTILJ<0ORsum%=7
  290IFJ<0VDU4:GOTO360
  300IFsum%=7phase%=phase%+1:VDU4:COLOUR14:PRINTTAB(3,7);phase%" Phase Beaten":FORI%=1TO10000:NEXT:PRINTTAB(3,7)"              ":VDU5:sum%=0:IFphase%<3GOTO180
  310IFJ%=2H%=H%+2000
  320IFJ%=4H%=H%+1000
  330IFJ%=1H%=H%+500
  340CLG:VDU4:COLOUR12:PRINTTAB(2,0)"Prepare Yourself":PROC2nd:H%=H%+1500:FORI%=1TO5000:NEXT:CLG
  350IFP%>1PROC3rd:IFsum%=15PROC4th:PROCend
  360FORI%=1TO9000:NEXT:CLG:VDU4:COLOUR12:PRINTTAB(0,10)"Your score was ";H%:FORI=1TO9000:NEXT
  370COLOUR13:PRINTTAB(2,15)"Press Space  for      another game"
  380REPEAT
  390UNTILINKEY(-99)
  400CLG:CLEAR:GOTO100
  410DEFPROC2nd:LOCALI%,O%,Q%
  420VDU19,8,7;0;19,9,7;0;19,10,7;0;19,12,6;0;
  430PROCva:J%=4:PROC2sh:t%=32:PROC2sc:PROCti:PROCscr:PROCscr:O%=100:Q%=101
  440VDU4:COLOUR12:PRINTTAB(2,0)" range    score "TAB(12,1);H%:VDU5
  450FORI%=0TO14:PLOT69,A(0,I%),A(1,I%):NEXT:U=249:dim%=0:P%=1279
  460IFP%<1ORdim%=15ENDPROCELSE:PROCfl:PROCfl:rnd%=RND(3000):FORI%=1TO500+RND(2000):NEXT:PROCmo:PROCst
  470VDU4:IFx%>0PRINTTAB(4,1);"  >"ELSEPRINTTAB(4,1);"<  "
  480VDU5
  490REPEAT
  500PROCfl:PROC2sp
  510IFINKEY(-O%)PROCscr
  520IFINKEY(-Q%)PROCscl
  530PROCsi:PROCx:GCOL0,7:MOVEP%,64:VDU250:GCOL3,7
  540UNTILsum%=1ORP%<1ORdim%=15
  550IFsum%=1sum%=0:dim%=dim%+1
  560GOTO460
  570DEFPROC3rd
  580VDU4:COLOUR12:PRINTTAB(2,0)"Prepare Yourself":VDU5
  590PROC2sh:GCOL3,7
  600PROCva:sum%=0:T1%=768:P1%=1280:J%=4:x%=10:Z=0:PROC2sc:Y3=732:PROC3ti:Y2=1024:Y3=748:PROC2ti
  610VDU19,15,1;0;19,8,7;0;19,12,6;0;:VDU4:COLOUR12:PRINTTAB(2,0)" range    score "TAB(12,1);H%:VDU5
  620REPEAT
  630PROC3sp
  640PROCfl
  650PROCsi
  660PROC3sp
  670VDU4:COLOUR12:PRINTTAB(3,1);T%DIVe%;" Km ":VDU5
  680PROCfl
  690PROCx:GCOL0,7:MOVEP1%,64:VDU250:GCOL3,7
  700UNTILsum%=15ORP1%<10:MOVES%+S2%,T%:VDUU:ENDPROC
  710DEFPROC4th:LOCALI%,J1%:MOVEA%,A2%:VDU62:MOVEA1%,A2%:VDU60:MOVEA%,128:VDU62:MOVEA1%,128:VDU60
  720PROC2sh:GCOL3,7:tar%=1:@%=1
  730FORJ1%=1TO50+RND(100):PROCfl:FORI%=1TO200:NEXTI%,J1%
  740PROC2ch:PROCva:tar%=1:sum%=0:J%=4:J=1280:VDU19,0,15;0;:x%=RND(6)*100+300:t%=32
  750REPEAT
  760PROCfl
  770PROCsi
  780PROC2sp
  790PROC2she:J=J-8
  800PROC2sp
  810IF@%=1H%=H%+J:VDU4:PRINTTAB(12,1);H%:VDU5:@%=0
  820UNTILJ<0ORsum%=5:ENDPROC
  830DEFPROClg
  840IFL%=n%VDU19,8,0;0;19,9,7;0;19,10,7;0;:ENDPROC
  850IFL%=o%VDU19,8,7;0;19,9,7;0;19,10,0;0;:ENDPROC
  860IFL%=q%VDU19,8,7;0;19,9,0;0;19,10,7;0;
  870ENDPROC
  880DEFPROCva:T%=0:S%=0:S2%=0:U=32:G%=384:G1%=243:J%=2:X%=64:XR%=1200:Y1%=120:Z%=24:K%=160:K1%=1024:U%=240:S3%=0:S=640:V=247:Z=0:L%=13:sum%=0:a%=855:b%=423:c%=1120:d%=64:e%=100:f%=32:g%=58:h%=64:i%=193:j%=1279:C%=1:A%=0:A1%=1212:A2%=128
  890r%=1280:x%=10:p%=248:u%=8:t1%=249:w%=0:y%=0:z%=0:v%=616:A3%=0:n%=13:o%=14:q%=15:Y2=160:Y3=740:tar%=0:xx%=46:X=0
  900ENDPROC
  910DEFPROC2sc:LOCALI%
  920VDU19,1,0;0;19,2,0;0;19,3,0;0;
  930VDU19,4,7;0;19,5,7;0;19,6,7;0;
  940X%=0:Y%=735:X3%=1279:F%=4:M%=0:N%=0
  950REPEAT
  960FORI%=1TOM%DIV8
  970GCOL0,C%
  980MOVEX%,Y%:DRAWX3%,Y%
  990Y%=Y%-F%
 1000M%=M%+1:N%=N%+1:NEXT
 1010C%=C%+1:IFC%>3C%=1
 1020Z=Z+1:UNTILZ=36:ENDPROC
 1030DEFPROCti:LOCALI%
 1040VDU19,15,0;0;19,14,0;0;19,13,0;0;
 1050L=13:X=56
 1060FORI%=-6280TO15508STEP96:L=L+1:IFL>15L=13
 1070GCOL0,L:MOVEX,Y3:DRAWI%,Y2:X=X+8:NEXT:GCOL3,7:VDU19,13,J%;0;19,15,J%;0;:X%=64:ENDPROC
 1080DEFPROC2ti
 1090VDU19,15;0;0;:L=15:X=56
 1100FORI=-6280TO15508STEP144
 1110GCOL0,L:MOVEX,Y3:DRAWI,Y2:X=X+12:NEXT:GCOL3,7:VDU19,13,J%;0;19,15,J%;0;:X%=64:ENDPROC
 1120DEFPROC3ti:LOCALI%
 1130L=0:X=56
 1140FORI%=-6280TO15508STEP144
 1150GCOL0,L:MOVEX,Y3:DRAWI%,Y2:X=X+12:NEXT:X%=64:ENDPROC
 1160DEFPROCscr
 1170L%=L%+1:IFL%>15L%=13
 1180PROClg:z%=+h%
 1190IFL%=n%VDU19,L%,0;0;19,L%+1,4;0;19,L%+2,1;0;:ENDPROC
 1200IFL%=o%VDU19,L%,0;0;19,L%+1,4;0;19,L%-1,1;0;:ENDPROC
 1210IFL%=q%VDU19,L%,0;0;19,L%-2,4;0;19,L%-1,1;0;
 1220ENDPROC
 1230DEFPROCscl
 1240L%=L%-1:IFL%<13L%=15
 1250PROClg:z%=-h%
 1260IFL%=n%VDU19,L%,0;0;19,L%+1,4;0;19,L%+2,1;0;:ENDPROC
 1270IFL%=o%VDU19,L%,0;0;19,L%+1,4;0;19,L%-1,1;0;:ENDPROC
 1280IFL%=q%VDU19,L%,0;0;19,L%-2,4;0;19,L%-1,1;0;
 1290ENDPROC
 1300DEFPROC2sp
 1310MOVEx%-w%,v%-y%:VDUt%:x%=x%+z%:t%=t1%
 1320PROCfl:w%=RND(u%)*u%:y%=RND(u%)*u%
 1330MOVEx%-w%,v%-y%:VDUt%
 1340z%=0:S%=x%-w%:S2%=0:T%=v%-y%:ENDPROC
 1350DEFPROC2ch
 1360VDU23,249,195,129,189,36,36,189,129,195:VDU23,240,0,1,3,7,7,7,15,15:VDU23,241,224,248,248,248,252,252,254,254,254:VDU23,242,15,15,31,31,31,31,15,15
 1370VDU23,243,254,255,255,255,255,255,255,254:VDU23,244,15,15,7,7,3,1,0,0:VDU23,245,254,254,254,252,252,248,224,0:ENDPROC
 1380DEFPROCend:IFsum%<>5VDU4:COLOUR11:PRINTTAB(3,19)"MISSION FAILED":FORI=1TO9000:NEXT:VDU19,0,0;0;:VDU5:CLG:ENDPROC
 1390VDU19,0,0;0;19,4,4;0;:Y%=900
 1400VDU4:PRINTTAB(5,28)"           ";TAB(3,29)"               "
 1410COLOUR12:PRINTTAB(2,0)"                ";TAB(12,1);"     ";TAB(3,1)"       "
 1420REPEAT
 1430*FX19
 1440VDU30,11:scr%=scr%+1
 1450VDU5:GCOL0,7:REPEAT:X%=RND(r%):Y%=Y%+1:PLOT69,X%,Y%:UNTILY%=905:Y%=900:VDU4
 1460PRINTTAB(0,29)"                    ":VDU30
 1470UNTILscr%=50
 1480scr%=0:Y%=60
 1490REPEAT
 1500*FX19
 1510VDU31,0,31,10:scr%=scr%+1
 1520VDU5:GCOL0,7:REPEAT:X%=RND(r%):Y%=Y%+1:PLOT69,X%,Y%:UNTILY%=65:Y%=60:VDU4
 1530IFscr%=34:VDU5:X=630:GCOL3,4:MOVEX,96:VDU240,241:MOVEX,64:VDU242,243:MOVEX,32:VDU244,245:VDU4
 1540UNTILscr%=50
 1550col%=1:REPEAT:VDU19,4,col%;0;:col%=col%+1:FORI=1TO900:NEXT:UNTILcol%=15
 1560VDU5:GCOL3,4:MOVEX,608:VDU240:VDU241:MOVEX,576:VDU242:VDU243:MOVEX,544:VDU244:VDU245
 1570VDU23,242,32,4,76,81,206,32,102,6:xx%=242:tar%=0:S2%=0:S%=X:T%=576:PROCht:VDU4:COLOUR3:PRINTTAB(1,19)"MISSION SUCCESSFUL":FORI=1TO5000:NEXT:ENDPROC
 1580DEFPROCsp
 1590MOVES%+S2%,T%:VDUU
 1600IFT%<i%T%=T1%:U=U%:S2%=S3%:S%=RND(j%)
 1610IFT%=T1%ANDS%<S S1%=RND(Z%)
 1620PROCfl
 1630IFT%=T1%ANDS%>S S1%=-RND(Z%)
 1640U=U+.5:T%=T%-f%:S2%=S2%+S1%
 1650IFU>V U=V
 1660MOVES%+S2%,T%:VDUU
 1670IFU>G1%PROCx
 1680ENDPROC
 1690DEFPROCx
 1700X=RND(4):IFX<>3ENDPROC
 1710D%=S%+S2%:E%=T%-d%:P%=P%-8:P1%=P1%-20
 1720VDU19,0,3;0;:MOVED%,E%:VDUp%:SOUND1,1,22,4:PROCsi:X=0:MOVED%,E%:VDUp%:J=J-16:VDU19,0,0;0;:ENDPROC
 1730DEFPROCse:GCOL0,7:MOVEJ,64:VDU250:GCOL3,7:ENDPROC
 1740DEFPROC2she:GCOL0,12:MOVEJ,32:DRAWJ,64:GCOL3,7:ENDPROC
 1750DEFPROC3sp
 1760MOVES%+S2%,T%:VDUU
 1770IFT%<i%T%=T1%:U=U%:S2%=S3%:S%=RND(j%)
 1780IFT%=T1%ANDS%<S S1%=RND(Z%)
 1790PROCfl
 1800IFT%=T1%ANDS%>S S1%=-RND(Z%)
 1810U=U+.5:T%=T%-f%:S2%=S2%+S1%
 1820IFU>V U=V
 1830MOVES%+S2%,T%:VDUU
 1840IFU>G1%PROCx
 1850ENDPROC
 1860DEFPROCpic:LOCALI%
 1870VDU19,1,0;0;19,2,0;0;19,3,0;0;
 1880VDU19,4,7;0;19,5,7;0;19,6,7;0;
 1890X%=0:Y%=735:X1%=623:X2%=655:X3%=1279:Y1%=12:Y2%=12:F%=4:F2%=8:C%=1:M%=0
 1900REPEAT
 1910FORI%=1TOM%DIV7
 1920GCOL0,C%
 1930MOVEX%,Y%:DRAWX1%,Y%:DRAWX1%,Y%-Y1%:DRAWX2%,Y%-Y2%:DRAWX2%,Y%:DRAWX3%,Y%
 1940Y%=Y%-F%:X1%=X1%-F2%:Y1%=Y1%+F%:X2%=X2%+F2%:Y2%=Y2%+F%
 1950M%=M%+1:N%=N%+1:NEXT
 1960C%=C%+1:IFC%>3C%=1
 1970Z=Z+1
 1980UNTILZ=28
 1990ENDPROC
 2000DEFPROCsh
 2010GCOL0,9:MOVE0,36:MOVE426,36:PLOT85,426,68:MOVE0,68:PLOT85,0,36:GCOL0,10:MOVE426,36:MOVE852,36:PLOT85,852,68:MOVE426,68:PLOT85,426,36:GCOL0,11:MOVE852,36:MOVE1279,36:PLOT85,1279,68:MOVE852,68:PLOT85,852,36:J=1279:GCOL3,7:ENDPROC
 2020DEFPROC2sh
 2030GCOL0,11:MOVE0,36:MOVE1279,36:PLOT85,1279,64:MOVE0,64:PLOT85,0,36:ENDPROC
 2040DEFPROCfl
 2050*FX19
 2060VDU19,C%,0;0;:IFC%=1VDU19,3,J%;0;ELSEVDU19,C%-1,J%;0;
 2070C%=C%+1:IFC%>3C%=1
 2080ENDPROC
 2090DEFPROCdi:LOCALI%
 2100DIMA(1,15)
 2110FORI%=0TO14:A(0,I%)=RND(100)*10+100:NEXT
 2120FORI%=0TO14:A(1,I%)=RND(100)+800:NEXT
 2130ENDPROC
 2140DEFPROCmo
 2150B1%=A(0,A3%):C1%=A(1,A3%)
 2160k%=RND(2):IFk%=1D1%=RND(4)*8ELSED1%=-(RND(4)*8)
 2170REPEAT:PLOT69,B1%,C1%:B1%=B1%+D1%:C1%=C1%-2:PLOT69,B1%,C1%:UNTILB1%<0ORB1%>1279:A3%=A3%+1:IFk%=1x%=2280+RND(1000)ELSEx%=-1000-RND(1000):ENDPROC
 2180DEFPROCsi
 2190MOVEA%,A2%:VDU62:MOVEA1%,A2%:VDU60
 2200A2%=A2%-f%-h%*(INKEY(-g%))
 2210IFA2%<K%A2%=K%
 2220IFA2%>K1%A2%=K1%
 2230IFINKEY(-99)PROCfr
 2240MOVEA%,A2%:VDU62:MOVEA1%,A2%:VDU60
 2250ENDPROC
 2260DEFPROCfr
 2270IFX=3ORx%<0ORx%>r%ENDPROC
 2280SOUND1,1,10,4
 2290MOVEX%,Y1%:DRAWS%+S2%+Z%,A2%:DRAWXR%,Y1%:PROCfl:MOVEX%,Y1%:DRAWS%+S2%+Z%,A2%:DRAWXR%,Y1%:IFA2%=T%ORA2%=v%-y%sum%=sum%+1:PROCht
 2300ENDPROC
 2310DEFPROCht
 2320l%=0:MOVES%+S2%,T%:VDUU:SOUND0,-15,95,15:m%=RND(6)*8
 2330IFtar%=1S%=0:S2%=0:T%=-10:PROCfl:@%=1:ENDPROC
 2340REPEAT:MOVES%+S2%+l%,T%-l%:VDUxx%:MOVES%+S2%-l%,T%-l%:VDUxx%:MOVES%+S2%,T%+(l%*3):VDUxx%:MOVES%+S2%-(l%*2)-12,T%+l%:VDUxx%:MOVES%+S2%+(l%*2)+12,T%+l%:VDUxx%:PROCfl:MOVES%+S2%+l%,T%-l%:VDUxx%:MOVES%+S2%-l%,T%-l%:VDUxx%
 2350MOVES%+S2%,T%+(l%*3):VDUxx%:MOVES%+S2%-(l%*2)-12,T%+l%:VDUxx%:MOVES%+S2%+(l%*2)+12,T%+l%:VDUxx%:l%=l%+m%:UNTILl%>200
 2360S%=0:S2%=0:T%=-10:PROCfl:H%=H%+A2%DIV6:GCOL3,7:VDU4:PRINTTAB(12,1);H%:VDU5:ENDPROC
 2370DEFPROCst:LOCALS%,I%
 2380S%=800
 2390REPEAT:PROCfl:FORI%=1TOS%:NEXTI%:S%=S%-100:UNTILS%<0:ENDPROC
 2400CLG:MODE7:REPORT:PRINT" at line ";ERL
� line 280&300=sum%=2(7)
� line 540&460=dim%=2(15)
� line 700&350=sum%=2(15)
� line 820&1380=sum%=1(5)
'� Allan Morris. (C) Micro User 1984

� � �D`I
d�di
n��23,240,0,0,0,0,0,0,0,24:�23,241,0,0,0,0,0,0,60,24:�23,242,0,0,0,0,0,126,60,24:�23,243,0,0,0,0,231,126,60,24:�23,250,255,255,255,255,255,255,255,255
x��23,244,0,0,0,195,231,126,60,24:�23,245,0,0,195,195,231,126,60,24:�23,246,0,129,195,195,231,126,60,24:�23,247,129,129,195,195,231,126,60,24:�23,248,0,0,0,16,56,124,56,16:�23,249,0,129,195,255,36,255,195,129
��2:�23;8202;0;0;0;
�]�19,9,1;0;19,8,6;0;19,10,4;0;19,11,2;0;19,12,6;0;:�1,1,4,-4,50,10,20,0,127,0,0,-5,126,126
�;�pic:�4:�12:�3,0)"range    score":�5:�3,7:game%=0:H%=0
��5:�3,7:game%=0:H%=0
��va:�sh
��st
��
��fl
��si
�T1%=c%-�(4)*d%
��sp
�!�4:�12:�3,1);T%�e%;" Km ":�5
��se

�J<a%J%=4

�J<b%J%=1
�J<0�sum%=7
"�J<0�4:�DhA
,|�sum%=7phase%=phase%+1:�4:�14:�3,7);phase%" Phase Beaten":�I%=1�10000:�:�3,7)"              ":�5:sum%=0:�phase%<3�tt@
6�J%=2H%=H%+2000
@�J%=4H%=H%+1000
J�J%=1H%=H%+500
TD�:�4:�12:�2,0)"Prepare Yourself":�2nd:H%=H%+1500:�I%=1�5000:�:�
^�P%>1�3rd:�sum%=15�4th:�end
hA�I%=1�9000:�:�:�4:�12:�0,10)"Your score was ";H%:�I=1�9000:�
r3�13:�2,15)"Press Space  for      another game"
|�
���(-99)
�
�:�:�Dd@
���2nd:�I%,O%,Q%
�+�19,8,7;0;19,9,7;0;19,10,7;0;19,12,6;0;
�8�va:J%=4:�2sh:t%=32:�2sc:�ti:�scr:�scr:O%=100:Q%=101
�/�4:�12:�2,0)" range    score "�12,1);H%:�5
�7�I%=0�14:�69,A(0,I%),A(1,I%):�:U=249:dim%=0:P%=1279
�D�P%<1�dim%=15�:�fl:�fl:rnd%=�(3000):�I%=1�500+�(2000):�:�mo:�st
�%�4:�x%>0�4,1);"  >"��4,1);"<  "
��5
��
��fl:�2sp
��(-O%)�scr
�(-Q%)�scl
 �si:�x:�0,7:�P%,64:�250:�3,7
�sum%=1�P%<1�dim%=15
&�sum%=1sum%=0:dim%=dim%+1
0	�dLA
:	��3rd
D&�4:�12:�2,0)"Prepare Yourself":�5
N
�2sh:�3,7
XS�va:sum%=0:T1%=768:P1%=1280:J%=4:x%=10:Z=0:�2sc:Y3=732:�3ti:Y2=1024:Y3=748:�2ti
bN�19,15,1;0;19,8,7;0;19,12,6;0;:�4:�12:�2,0)" range    score "�12,1);H%:�5
l�
v�3sp
��fl
��si
��3sp
�!�4:�12:�3,1);T%�e%;" Km ":�5
��fl
��x:�0,7:�P1%,64:�250:�3,7
�#�sum%=15�P1%<10:�S%+S2%,T%:�U:�
�C��4th:�I%,J1%:�A%,A2%:�62:�A1%,A2%:�60:�A%,128:�62:�A1%,128:�60
��2sh:�3,7:tar%=1:@%=1
�*�J1%=1�50+�(100):�fl:�I%=1�200:�I%,J1%
�H�2ch:�va:tar%=1:sum%=0:J%=4:J=1280:�19,0,15;0;:x%=�(6)*100+300:t%=32
��
��fl
�si
�2sp
�2she:J=J-8
 �2sp
*&�@%=1H%=H%+J:�4:�12,1);H%:�5:@%=0
4�J<0�sum%=5:�
>��lg
H)�L%=n%�19,8,0;0;19,9,7;0;19,10,7;0;:�
R)�L%=o%�19,8,7;0;19,9,7;0;19,10,0;0;:�
\'�L%=q%�19,8,7;0;19,9,0;0;19,10,7;0;
f�
p���va:T%=0:S%=0:S2%=0:U=32:G%=384:G1%=243:J%=2:X%=64:XR%=1200:Y1%=120:Z%=24:K%=160:K1%=1024:U%=240:S3%=0:S=640:V=247:Z=0:L%=13:sum%=0:a%=855:b%=423:c%=1120:d%=64:e%=100:f%=32:g%=58:h%=64:i%=193:j%=1279:C%=1:A%=0:A1%=1212:A2%=128
zsr%=1280:x%=10:p%=248:u%=8:t1%=249:w%=0:y%=0:z%=0:v%=616:A3%=0:n%=13:o%=14:q%=15:Y2=160:Y3=740:tar%=0:xx%=46:X=0
��
�
��2sc:�I%
� �19,1,0;0;19,2,0;0;19,3,0;0;
� �19,4,7;0;19,5,7;0;19,6,7;0;
�'X%=0:Y%=735:X3%=1279:F%=4:M%=0:N%=0
��
��I%=1�M%�8
�	�0,C%
��X%,Y%:�X3%,Y%
�Y%=Y%-F%
�M%=M%+1:N%=N%+1:�
�C%=C%+1:�C%>3C%=1
�Z=Z+1:�Z=36:�
��ti:�I%
#�19,15,0;0;19,14,0;0;19,13,0;0;

L=13:X=56
$&�I%=-6280�15508�96:L=L+1:�L>15L=13
.B�0,L:�X,Y3:�I%,Y2:X=X+8:�:�3,7:�19,13,J%;0;19,15,J%;0;:X%=64:�
8	��2ti
B�19,15;0;0;:L=15:X=56
L�I=-6280�15508�144
VB�0,L:�X,Y3:�I,Y2:X=X+12:�:�3,7:�19,13,J%;0;19,15,J%;0;:X%=64:�
`
��3ti:�I%
jL=0:X=56
t�I%=-6280�15508�144
~&�0,L:�X,Y3:�I%,Y2:X=X+12:�:X%=64:�
�	��scr
�L%=L%+1:�L%>15L%=13
��lg:z%=+h%
�/�L%=n%�19,L%,0;0;19,L%+1,4;0;19,L%+2,1;0;:�
�/�L%=o%�19,L%,0;0;19,L%+1,4;0;19,L%-1,1;0;:�
�-�L%=q%�19,L%,0;0;19,L%-2,4;0;19,L%-1,1;0;
��
�	��scl
�L%=L%-1:�L%<13L%=15
��lg:z%=-h%
�/�L%=n%�19,L%,0;0;19,L%+1,4;0;19,L%+2,1;0;:�
�/�L%=o%�19,L%,0;0;19,L%+1,4;0;19,L%-1,1;0;:�
-�L%=q%�19,L%,0;0;19,L%-2,4;0;19,L%-1,1;0;

�
	��2sp
$�x%-w%,v%-y%:�t%:x%=x%+z%:t%=t1%
(�fl:w%=�(u%)*u%:y%=�(u%)*u%
2�x%-w%,v%-y%:�t%
<"z%=0:S%=x%-w%:S2%=0:T%=v%-y%:�
F	��2ch
P��23,249,195,129,189,36,36,189,129,195:�23,240,0,1,3,7,7,7,15,15:�23,241,224,248,248,248,252,252,254,254,254:�23,242,15,15,31,31,31,31,15,15
Zm�23,243,254,255,255,255,255,255,255,254:�23,244,15,15,7,7,3,1,0,0:�23,245,254,254,254,252,252,248,224,0:�
dN��end:�sum%<>5�4:�11:�3,19)"MISSION FAILED":�I=1�9000:�:�19,0,0;0;:�5:�:�
n�19,0,0;0;19,4,4;0;:Y%=900
x3�4:�5,28)"           ";�3,29)"               "
�>�12:�2,0)"                ";�12,1);"     ";�3,1)"       "
��
�	*FX19
��30,11:scr%=scr%+1
�:�5:�0,7:�:X%=�(r%):Y%=Y%+1:�69,X%,Y%:�Y%=905:Y%=900:�4
�%�0,29)"                    ":�30
��scr%=50
�scr%=0:Y%=60
��
�	*FX19
��31,0,31,10:scr%=scr%+1
�8�5:�0,7:�:X%=�(r%):Y%=Y%+1:�69,X%,Y%:�Y%=65:Y%=60:�4
�J�scr%=34:�5:X=630:�3,4:�X,96:�240,241:�X,64:�242,243:�X,32:�244,245:�4
�scr%=50
:col%=1:�:�19,4,col%;0;:col%=col%+1:�I=1�900:�:�col%=15
>�5:�3,4:�X,608:�240:�241:�X,576:�242:�243:�X,544:�244:�245
"x�23,242,32,4,76,81,206,32,102,6:xx%=242:tar%=0:S2%=0:S%=X:T%=576:�ht:�4:�3:�1,19)"MISSION SUCCESSFUL":�I=1�5000:�:�
,��sp
6�S%+S2%,T%:�U
@&�T%<i%T%=T1%:U=U%:S2%=S3%:S%=�(j%)
J�T%=T1%�S%<S S1%=�(Z%)
T�fl
^�T%=T1%�S%>S S1%=-�(Z%)
hU=U+.5:T%=T%-f%:S2%=S2%+S1%
r�U>V U=V
|�S%+S2%,T%:�U
��U>G1%�x
��
���x
�X=�(4):�X<>3�
�)D%=S%+S2%:E%=T%-d%:P%=P%-8:P1%=P1%-20
�J�19,0,3;0;:�D%,E%:�p%:�1,1,22,4:�si:X=0:�D%,E%:�p%:J=J-16:�19,0,0;0;:�
���se:�0,7:�J,64:�250:�3,7:�
�#��2she:�0,12:�J,32:�J,64:�3,7:�
�	��3sp
��S%+S2%,T%:�U
�&�T%<i%T%=T1%:U=U%:S2%=S3%:S%=�(j%)
��T%=T1%�S%<S S1%=�(Z%)
��fl
�T%=T1%�S%>S S1%=-�(Z%)
U=U+.5:T%=T%-f%:S2%=S2%+S1%
�U>V U=V
&�S%+S2%,T%:�U
0�U>G1%�x
:�
D
��pic:�I%
N �19,1,0;0;19,2,0;0;19,3,0;0;
X �19,4,7;0;19,5,7;0;19,6,7;0;
bKX%=0:Y%=735:X1%=623:X2%=655:X3%=1279:Y1%=12:Y2%=12:F%=4:F2%=8:C%=1:M%=0
l�
v�I%=1�M%�7
�	�0,C%
�:�X%,Y%:�X1%,Y%:�X1%,Y%-Y1%:�X2%,Y%-Y2%:�X2%,Y%:�X3%,Y%
�:Y%=Y%-F%:X1%=X1%-F2%:Y1%=Y1%+F%:X2%=X2%+F2%:Y2%=Y2%+F%
�M%=M%+1:N%=N%+1:�
�C%=C%+1:�C%>3C%=1
�	Z=Z+1
�	�Z=28
��
���sh
ڨ�0,9:�0,36:�426,36:�85,426,68:�0,68:�85,0,36:�0,10:�426,36:�852,36:�85,852,68:�426,68:�85,426,36:�0,11:�852,36:�1279,36:�85,1279,68:�852,68:�85,852,36:J=1279:�3,7:�
�	��2sh
�5�0,11:�0,36:�1279,36:�85,1279,64:�0,64:�85,0,36:�
���fl
	*FX19
/�19,C%,0;0;:�C%=1�19,3,J%;0;��19,C%-1,J%;0;
C%=C%+1:�C%>3C%=1
 �
*��di:�I%
4�A(1,15)
>$�I%=0�14:A(0,I%)=�(100)*10+100:�
H!�I%=0�14:A(1,I%)=�(100)+800:�
R�
\��mo
fB1%=A(0,A3%):C1%=A(1,A3%)
p)k%=�(2):�k%=1D1%=�(4)*8�D1%=-(�(4)*8)
zu�:�69,B1%,C1%:B1%=B1%+D1%:C1%=C1%-2:�69,B1%,C1%:�B1%<0�B1%>1279:A3%=A3%+1:�k%=1x%=2280+�(1000)�x%=-1000-�(1000):�
���si
��A%,A2%:�62:�A1%,A2%:�60
�A2%=A2%-f%-h%*(�(-g%))
��A2%<K%A2%=K%
��A2%>K1%A2%=K1%
��(-99)�fr
��A%,A2%:�62:�A1%,A2%:�60
��
���fr
��X=3�x%<0�x%>r%�
�
�1,1,10,4
�h�X%,Y1%:�S%+S2%+Z%,A2%:�XR%,Y1%:�fl:�X%,Y1%:�S%+S2%+Z%,A2%:�XR%,Y1%:�A2%=T%�A2%=v%-y%sum%=sum%+1:�ht
��
	��ht
	-l%=0:�S%+S2%,T%:�U:�0,-15,95,15:m%=�(6)*8
	'�tar%=1S%=0:S2%=0:T%=-10:�fl:@%=1:�
	$��:�S%+S2%+l%,T%-l%:�xx%:�S%+S2%-l%,T%-l%:�xx%:�S%+S2%,T%+(l%*3):�xx%:�S%+S2%-(l%*2)-12,T%+l%:�xx%:�S%+S2%+(l%*2)+12,T%+l%:�xx%:�fl:�S%+S2%+l%,T%-l%:�xx%:�S%+S2%-l%,T%-l%:�xx%
	.e�S%+S2%,T%+(l%*3):�xx%:�S%+S2%-(l%*2)-12,T%+l%:�xx%:�S%+S2%+(l%*2)+12,T%+l%:�xx%:l%=l%+m%:�l%>200
	8=S%=0:S2%=0:T%=-10:�fl:H%=H%+A2%�6:�3,7:�4:�12,1);H%:�5:�
	B��st:�S%,I%
	L
S%=800
	V(�:�fl:�I%=1�S%:�I%:S%=S%-100:�S%<0:�
	`�:�7:�:�" at line ";�
�
00000000  0d 00 01 1c f4 20 6c 69  6e 65 20 32 38 30 26 33  |..... line 280&3|
00000010  30 30 3d 73 75 6d 25 3d  32 28 37 29 0d 00 02 1d  |00=sum%=2(7)....|
00000020  f4 20 6c 69 6e 65 20 35  34 30 26 34 36 30 3d 64  |. line 540&460=d|
00000030  69 6d 25 3d 32 28 31 35  29 0d 00 03 1d f4 20 6c  |im%=2(15)..... l|
00000040  69 6e 65 20 37 30 30 26  33 35 30 3d 73 75 6d 25  |ine 700&350=sum%|
00000050  3d 32 28 31 35 29 0d 00  04 1d f4 20 6c 69 6e 65  |=2(15)..... line|
00000060  20 38 32 30 26 31 33 38  30 3d 73 75 6d 25 3d 31  | 820&1380=sum%=1|
00000070  28 35 29 0d 00 05 27 f4  20 41 6c 6c 61 6e 20 4d  |(5)...'. Allan M|
00000080  6f 72 72 69 73 2e 20 28  43 29 20 4d 69 63 72 6f  |orris. (C) Micro|
00000090  20 55 73 65 72 20 31 39  38 34 0d 00 06 0d ee 20  | User 1984..... |
000000a0  85 20 e5 8d 44 60 49 0d  00 64 07 f2 64 69 0d 00  |. ..D`I..d..di..|
000000b0  6e 98 ef 32 33 2c 32 34  30 2c 30 2c 30 2c 30 2c  |n..23,240,0,0,0,|
000000c0  30 2c 30 2c 30 2c 30 2c  32 34 3a ef 32 33 2c 32  |0,0,0,0,24:.23,2|
000000d0  34 31 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 36  |41,0,0,0,0,0,0,6|
000000e0  30 2c 32 34 3a ef 32 33  2c 32 34 32 2c 30 2c 30  |0,24:.23,242,0,0|
000000f0  2c 30 2c 30 2c 30 2c 31  32 36 2c 36 30 2c 32 34  |,0,0,0,126,60,24|
00000100  3a ef 32 33 2c 32 34 33  2c 30 2c 30 2c 30 2c 30  |:.23,243,0,0,0,0|
00000110  2c 32 33 31 2c 31 32 36  2c 36 30 2c 32 34 3a ef  |,231,126,60,24:.|
00000120  32 33 2c 32 35 30 2c 32  35 35 2c 32 35 35 2c 32  |23,250,255,255,2|
00000130  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
00000140  35 35 2c 32 35 35 0d 00  78 d2 ef 32 33 2c 32 34  |55,255..x..23,24|
00000150  34 2c 30 2c 30 2c 30 2c  31 39 35 2c 32 33 31 2c  |4,0,0,0,195,231,|
00000160  31 32 36 2c 36 30 2c 32  34 3a ef 32 33 2c 32 34  |126,60,24:.23,24|
00000170  35 2c 30 2c 30 2c 31 39  35 2c 31 39 35 2c 32 33  |5,0,0,195,195,23|
00000180  31 2c 31 32 36 2c 36 30  2c 32 34 3a ef 32 33 2c  |1,126,60,24:.23,|
00000190  32 34 36 2c 30 2c 31 32  39 2c 31 39 35 2c 31 39  |246,0,129,195,19|
000001a0  35 2c 32 33 31 2c 31 32  36 2c 36 30 2c 32 34 3a  |5,231,126,60,24:|
000001b0  ef 32 33 2c 32 34 37 2c  31 32 39 2c 31 32 39 2c  |.23,247,129,129,|
000001c0  31 39 35 2c 31 39 35 2c  32 33 31 2c 31 32 36 2c  |195,195,231,126,|
000001d0  36 30 2c 32 34 3a ef 32  33 2c 32 34 38 2c 30 2c  |60,24:.23,248,0,|
000001e0  30 2c 30 2c 31 36 2c 35  36 2c 31 32 34 2c 35 36  |0,0,16,56,124,56|
000001f0  2c 31 36 3a ef 32 33 2c  32 34 39 2c 30 2c 31 32  |,16:.23,249,0,12|
00000200  39 2c 31 39 35 2c 32 35  35 2c 33 36 2c 32 35 35  |9,195,255,36,255|
00000210  2c 31 39 35 2c 31 32 39  0d 00 82 16 eb 32 3a ef  |,195,129.....2:.|
00000220  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 00  |23;8202;0;0;0;..|
00000230  8c 5d ef 31 39 2c 39 2c  31 3b 30 3b 31 39 2c 38  |.].19,9,1;0;19,8|
00000240  2c 36 3b 30 3b 31 39 2c  31 30 2c 34 3b 30 3b 31  |,6;0;19,10,4;0;1|
00000250  39 2c 31 31 2c 32 3b 30  3b 31 39 2c 31 32 2c 36  |9,11,2;0;19,12,6|
00000260  3b 30 3b 3a e2 31 2c 31  2c 34 2c 2d 34 2c 35 30  |;0;:.1,1,4,-4,50|
00000270  2c 31 30 2c 32 30 2c 30  2c 31 32 37 2c 30 2c 30  |,10,20,0,127,0,0|
00000280  2c 2d 35 2c 31 32 36 2c  31 32 36 0d 00 96 3b f2  |,-5,126,126...;.|
00000290  70 69 63 3a ef 34 3a fb  31 32 3a f1 8a 33 2c 30  |pic:.4:.12:..3,0|
000002a0  29 22 72 61 6e 67 65 20  20 20 20 73 63 6f 72 65  |)"range    score|
000002b0  22 3a ef 35 3a e6 33 2c  37 3a 67 61 6d 65 25 3d  |":.5:.3,7:game%=|
000002c0  30 3a 48 25 3d 30 0d 00  a0 18 ef 35 3a e6 33 2c  |0:H%=0.....5:.3,|
000002d0  37 3a 67 61 6d 65 25 3d  30 3a 48 25 3d 30 0d 00  |7:game%=0:H%=0..|
000002e0  aa 0b f2 76 61 3a f2 73  68 0d 00 b4 07 f2 73 74  |...va:.sh.....st|
000002f0  0d 00 be 05 f5 0d 00 c8  07 f2 66 6c 0d 00 d2 07  |..........fl....|
00000300  f2 73 69 0d 00 dc 12 54  31 25 3d 63 25 2d b3 28  |.si....T1%=c%-.(|
00000310  34 29 2a 64 25 0d 00 e6  07 f2 73 70 0d 00 f0 21  |4)*d%.....sp...!|
00000320  ef 34 3a fb 31 32 3a f1  8a 33 2c 31 29 3b 54 25  |.4:.12:..3,1);T%|
00000330  81 65 25 3b 22 20 4b 6d  20 22 3a ef 35 0d 00 fa  |.e%;" Km ":.5...|
00000340  07 f2 73 65 0d 01 04 0d  e7 4a 3c 61 25 4a 25 3d  |..se.....J<a%J%=|
00000350  34 0d 01 0e 0d e7 4a 3c  62 25 4a 25 3d 31 0d 01  |4.....J<b%J%=1..|
00000360  18 0f fd 4a 3c 30 84 73  75 6d 25 3d 37 0d 01 22  |...J<0.sum%=7.."|
00000370  10 e7 4a 3c 30 ef 34 3a  e5 8d 44 68 41 0d 01 2c  |..J<0.4:..DhA..,|
00000380  7c e7 73 75 6d 25 3d 37  70 68 61 73 65 25 3d 70  ||.sum%=7phase%=p|
00000390  68 61 73 65 25 2b 31 3a  ef 34 3a fb 31 34 3a f1  |hase%+1:.4:.14:.|
000003a0  8a 33 2c 37 29 3b 70 68  61 73 65 25 22 20 50 68  |.3,7);phase%" Ph|
000003b0  61 73 65 20 42 65 61 74  65 6e 22 3a e3 49 25 3d  |ase Beaten":.I%=|
000003c0  31 b8 31 30 30 30 30 3a  ed 3a f1 8a 33 2c 37 29  |1.10000:.:..3,7)|
000003d0  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |"              "|
000003e0  3a ef 35 3a 73 75 6d 25  3d 30 3a e7 70 68 61 73  |:.5:sum%=0:.phas|
000003f0  65 25 3c 33 e5 8d 74 74  40 0d 01 36 13 e7 4a 25  |e%<3..tt@..6..J%|
00000400  3d 32 48 25 3d 48 25 2b  32 30 30 30 0d 01 40 13  |=2H%=H%+2000..@.|
00000410  e7 4a 25 3d 34 48 25 3d  48 25 2b 31 30 30 30 0d  |.J%=4H%=H%+1000.|
00000420  01 4a 12 e7 4a 25 3d 31  48 25 3d 48 25 2b 35 30  |.J..J%=1H%=H%+50|
00000430  30 0d 01 54 44 da 3a ef  34 3a fb 31 32 3a f1 8a  |0..TD.:.4:.12:..|
00000440  32 2c 30 29 22 50 72 65  70 61 72 65 20 59 6f 75  |2,0)"Prepare You|
00000450  72 73 65 6c 66 22 3a f2  32 6e 64 3a 48 25 3d 48  |rself":.2nd:H%=H|
00000460  25 2b 31 35 30 30 3a e3  49 25 3d 31 b8 35 30 30  |%+1500:.I%=1.500|
00000470  30 3a ed 3a da 0d 01 5e  1f e7 50 25 3e 31 f2 33  |0:.:...^..P%>1.3|
00000480  72 64 3a e7 73 75 6d 25  3d 31 35 f2 34 74 68 3a  |rd:.sum%=15.4th:|
00000490  f2 65 6e 64 0d 01 68 41  e3 49 25 3d 31 b8 39 30  |.end..hA.I%=1.90|
000004a0  30 30 3a ed 3a da 3a ef  34 3a fb 31 32 3a f1 8a  |00:.:.:.4:.12:..|
000004b0  30 2c 31 30 29 22 59 6f  75 72 20 73 63 6f 72 65  |0,10)"Your score|
000004c0  20 77 61 73 20 22 3b 48  25 3a e3 49 3d 31 b8 39  | was ";H%:.I=1.9|
000004d0  30 30 30 3a ed 0d 01 72  33 fb 31 33 3a f1 8a 32  |000:...r3.13:..2|
000004e0  2c 31 35 29 22 50 72 65  73 73 20 53 70 61 63 65  |,15)"Press Space|
000004f0  20 20 66 6f 72 20 20 20  20 20 20 61 6e 6f 74 68  |  for      anoth|
00000500  65 72 20 67 61 6d 65 22  0d 01 7c 05 f5 0d 01 86  |er game"..|.....|
00000510  0b fd a6 28 2d 39 39 29  0d 01 90 0d da 3a d8 3a  |...(-99).....:.:|
00000520  e5 8d 44 64 40 0d 01 9a  13 dd f2 32 6e 64 3a ea  |..Dd@......2nd:.|
00000530  49 25 2c 4f 25 2c 51 25  0d 01 a4 2b ef 31 39 2c  |I%,O%,Q%...+.19,|
00000540  38 2c 37 3b 30 3b 31 39  2c 39 2c 37 3b 30 3b 31  |8,7;0;19,9,7;0;1|
00000550  39 2c 31 30 2c 37 3b 30  3b 31 39 2c 31 32 2c 36  |9,10,7;0;19,12,6|
00000560  3b 30 3b 0d 01 ae 38 f2  76 61 3a 4a 25 3d 34 3a  |;0;...8.va:J%=4:|
00000570  f2 32 73 68 3a 74 25 3d  33 32 3a f2 32 73 63 3a  |.2sh:t%=32:.2sc:|
00000580  f2 74 69 3a f2 73 63 72  3a f2 73 63 72 3a 4f 25  |.ti:.scr:.scr:O%|
00000590  3d 31 30 30 3a 51 25 3d  31 30 31 0d 01 b8 2f ef  |=100:Q%=101.../.|
000005a0  34 3a fb 31 32 3a f1 8a  32 2c 30 29 22 20 72 61  |4:.12:..2,0)" ra|
000005b0  6e 67 65 20 20 20 20 73  63 6f 72 65 20 22 8a 31  |nge    score ".1|
000005c0  32 2c 31 29 3b 48 25 3a  ef 35 0d 01 c2 37 e3 49  |2,1);H%:.5...7.I|
000005d0  25 3d 30 b8 31 34 3a f0  36 39 2c 41 28 30 2c 49  |%=0.14:.69,A(0,I|
000005e0  25 29 2c 41 28 31 2c 49  25 29 3a ed 3a 55 3d 32  |%),A(1,I%):.:U=2|
000005f0  34 39 3a 64 69 6d 25 3d  30 3a 50 25 3d 31 32 37  |49:dim%=0:P%=127|
00000600  39 0d 01 cc 44 e7 50 25  3c 31 84 64 69 6d 25 3d  |9...D.P%<1.dim%=|
00000610  31 35 e1 8b 3a f2 66 6c  3a f2 66 6c 3a 72 6e 64  |15..:.fl:.fl:rnd|
00000620  25 3d b3 28 33 30 30 30  29 3a e3 49 25 3d 31 b8  |%=.(3000):.I%=1.|
00000630  35 30 30 2b b3 28 32 30  30 30 29 3a ed 3a f2 6d  |500+.(2000):.:.m|
00000640  6f 3a f2 73 74 0d 01 d6  25 ef 34 3a e7 78 25 3e  |o:.st...%.4:.x%>|
00000650  30 f1 8a 34 2c 31 29 3b  22 20 20 3e 22 8b f1 8a  |0..4,1);"  >"...|
00000660  34 2c 31 29 3b 22 3c 20  20 22 0d 01 e0 06 ef 35  |4,1);"<  ".....5|
00000670  0d 01 ea 05 f5 0d 01 f4  0c f2 66 6c 3a f2 32 73  |..........fl:.2s|
00000680  70 0d 01 fe 0f e7 a6 28  2d 4f 25 29 f2 73 63 72  |p......(-O%).scr|
00000690  0d 02 08 0f e7 a6 28 2d  51 25 29 f2 73 63 6c 0d  |......(-Q%).scl.|
000006a0  02 12 20 f2 73 69 3a f2  78 3a e6 30 2c 37 3a ec  |.. .si:.x:.0,7:.|
000006b0  50 25 2c 36 34 3a ef 32  35 30 3a e6 33 2c 37 0d  |P%,64:.250:.3,7.|
000006c0  02 1c 18 fd 73 75 6d 25  3d 31 84 50 25 3c 31 84  |....sum%=1.P%<1.|
000006d0  64 69 6d 25 3d 31 35 0d  02 26 1d e7 73 75 6d 25  |dim%=15..&..sum%|
000006e0  3d 31 73 75 6d 25 3d 30  3a 64 69 6d 25 3d 64 69  |=1sum%=0:dim%=di|
000006f0  6d 25 2b 31 0d 02 30 09  e5 8d 64 4c 41 0d 02 3a  |m%+1..0...dLA..:|
00000700  09 dd f2 33 72 64 0d 02  44 26 ef 34 3a fb 31 32  |...3rd..D&.4:.12|
00000710  3a f1 8a 32 2c 30 29 22  50 72 65 70 61 72 65 20  |:..2,0)"Prepare |
00000720  59 6f 75 72 73 65 6c 66  22 3a ef 35 0d 02 4e 0d  |Yourself":.5..N.|
00000730  f2 32 73 68 3a e6 33 2c  37 0d 02 58 53 f2 76 61  |.2sh:.3,7..XS.va|
00000740  3a 73 75 6d 25 3d 30 3a  54 31 25 3d 37 36 38 3a  |:sum%=0:T1%=768:|
00000750  50 31 25 3d 31 32 38 30  3a 4a 25 3d 34 3a 78 25  |P1%=1280:J%=4:x%|
00000760  3d 31 30 3a 5a 3d 30 3a  f2 32 73 63 3a 59 33 3d  |=10:Z=0:.2sc:Y3=|
00000770  37 33 32 3a f2 33 74 69  3a 59 32 3d 31 30 32 34  |732:.3ti:Y2=1024|
00000780  3a 59 33 3d 37 34 38 3a  f2 32 74 69 0d 02 62 4e  |:Y3=748:.2ti..bN|
00000790  ef 31 39 2c 31 35 2c 31  3b 30 3b 31 39 2c 38 2c  |.19,15,1;0;19,8,|
000007a0  37 3b 30 3b 31 39 2c 31  32 2c 36 3b 30 3b 3a ef  |7;0;19,12,6;0;:.|
000007b0  34 3a fb 31 32 3a f1 8a  32 2c 30 29 22 20 72 61  |4:.12:..2,0)" ra|
000007c0  6e 67 65 20 20 20 20 73  63 6f 72 65 20 22 8a 31  |nge    score ".1|
000007d0  32 2c 31 29 3b 48 25 3a  ef 35 0d 02 6c 05 f5 0d  |2,1);H%:.5..l...|
000007e0  02 76 08 f2 33 73 70 0d  02 80 07 f2 66 6c 0d 02  |.v..3sp.....fl..|
000007f0  8a 07 f2 73 69 0d 02 94  08 f2 33 73 70 0d 02 9e  |...si.....3sp...|
00000800  21 ef 34 3a fb 31 32 3a  f1 8a 33 2c 31 29 3b 54  |!.4:.12:..3,1);T|
00000810  25 81 65 25 3b 22 20 4b  6d 20 22 3a ef 35 0d 02  |%.e%;" Km ":.5..|
00000820  a8 07 f2 66 6c 0d 02 b2  1d f2 78 3a e6 30 2c 37  |...fl.....x:.0,7|
00000830  3a ec 50 31 25 2c 36 34  3a ef 32 35 30 3a e6 33  |:.P1%,64:.250:.3|
00000840  2c 37 0d 02 bc 23 fd 73  75 6d 25 3d 31 35 84 50  |,7...#.sum%=15.P|
00000850  31 25 3c 31 30 3a ec 53  25 2b 53 32 25 2c 54 25  |1%<10:.S%+S2%,T%|
00000860  3a ef 55 3a e1 0d 02 c6  43 dd f2 34 74 68 3a ea  |:.U:....C..4th:.|
00000870  49 25 2c 4a 31 25 3a ec  41 25 2c 41 32 25 3a ef  |I%,J1%:.A%,A2%:.|
00000880  36 32 3a ec 41 31 25 2c  41 32 25 3a ef 36 30 3a  |62:.A1%,A2%:.60:|
00000890  ec 41 25 2c 31 32 38 3a  ef 36 32 3a ec 41 31 25  |.A%,128:.62:.A1%|
000008a0  2c 31 32 38 3a ef 36 30  0d 02 d0 19 f2 32 73 68  |,128:.60.....2sh|
000008b0  3a e6 33 2c 37 3a 74 61  72 25 3d 31 3a 40 25 3d  |:.3,7:tar%=1:@%=|
000008c0  31 0d 02 da 2a e3 4a 31  25 3d 31 b8 35 30 2b b3  |1...*.J1%=1.50+.|
000008d0  28 31 30 30 29 3a f2 66  6c 3a e3 49 25 3d 31 b8  |(100):.fl:.I%=1.|
000008e0  32 30 30 3a ed 49 25 2c  4a 31 25 0d 02 e4 48 f2  |200:.I%,J1%...H.|
000008f0  32 63 68 3a f2 76 61 3a  74 61 72 25 3d 31 3a 73  |2ch:.va:tar%=1:s|
00000900  75 6d 25 3d 30 3a 4a 25  3d 34 3a 4a 3d 31 32 38  |um%=0:J%=4:J=128|
00000910  30 3a ef 31 39 2c 30 2c  31 35 3b 30 3b 3a 78 25  |0:.19,0,15;0;:x%|
00000920  3d b3 28 36 29 2a 31 30  30 2b 33 30 30 3a 74 25  |=.(6)*100+300:t%|
00000930  3d 33 32 0d 02 ee 05 f5  0d 02 f8 07 f2 66 6c 0d  |=32..........fl.|
00000940  03 02 07 f2 73 69 0d 03  0c 08 f2 32 73 70 0d 03  |....si.....2sp..|
00000950  16 0f f2 32 73 68 65 3a  4a 3d 4a 2d 38 0d 03 20  |...2she:J=J-8.. |
00000960  08 f2 32 73 70 0d 03 2a  26 e7 40 25 3d 31 48 25  |..2sp..*&.@%=1H%|
00000970  3d 48 25 2b 4a 3a ef 34  3a f1 8a 31 32 2c 31 29  |=H%+J:.4:..12,1)|
00000980  3b 48 25 3a ef 35 3a 40  25 3d 30 0d 03 34 11 fd  |;H%:.5:@%=0..4..|
00000990  4a 3c 30 84 73 75 6d 25  3d 35 3a e1 0d 03 3e 08  |J<0.sum%=5:...>.|
000009a0  dd f2 6c 67 0d 03 48 29  e7 4c 25 3d 6e 25 ef 31  |..lg..H).L%=n%.1|
000009b0  39 2c 38 2c 30 3b 30 3b  31 39 2c 39 2c 37 3b 30  |9,8,0;0;19,9,7;0|
000009c0  3b 31 39 2c 31 30 2c 37  3b 30 3b 3a e1 0d 03 52  |;19,10,7;0;:...R|
000009d0  29 e7 4c 25 3d 6f 25 ef  31 39 2c 38 2c 37 3b 30  |).L%=o%.19,8,7;0|
000009e0  3b 31 39 2c 39 2c 37 3b  30 3b 31 39 2c 31 30 2c  |;19,9,7;0;19,10,|
000009f0  30 3b 30 3b 3a e1 0d 03  5c 27 e7 4c 25 3d 71 25  |0;0;:...\'.L%=q%|
00000a00  ef 31 39 2c 38 2c 37 3b  30 3b 31 39 2c 39 2c 30  |.19,8,7;0;19,9,0|
00000a10  3b 30 3b 31 39 2c 31 30  2c 37 3b 30 3b 0d 03 66  |;0;19,10,7;0;..f|
00000a20  05 e1 0d 03 70 e7 dd f2  76 61 3a 54 25 3d 30 3a  |....p...va:T%=0:|
00000a30  53 25 3d 30 3a 53 32 25  3d 30 3a 55 3d 33 32 3a  |S%=0:S2%=0:U=32:|
00000a40  47 25 3d 33 38 34 3a 47  31 25 3d 32 34 33 3a 4a  |G%=384:G1%=243:J|
00000a50  25 3d 32 3a 58 25 3d 36  34 3a 58 52 25 3d 31 32  |%=2:X%=64:XR%=12|
00000a60  30 30 3a 59 31 25 3d 31  32 30 3a 5a 25 3d 32 34  |00:Y1%=120:Z%=24|
00000a70  3a 4b 25 3d 31 36 30 3a  4b 31 25 3d 31 30 32 34  |:K%=160:K1%=1024|
00000a80  3a 55 25 3d 32 34 30 3a  53 33 25 3d 30 3a 53 3d  |:U%=240:S3%=0:S=|
00000a90  36 34 30 3a 56 3d 32 34  37 3a 5a 3d 30 3a 4c 25  |640:V=247:Z=0:L%|
00000aa0  3d 31 33 3a 73 75 6d 25  3d 30 3a 61 25 3d 38 35  |=13:sum%=0:a%=85|
00000ab0  35 3a 62 25 3d 34 32 33  3a 63 25 3d 31 31 32 30  |5:b%=423:c%=1120|
00000ac0  3a 64 25 3d 36 34 3a 65  25 3d 31 30 30 3a 66 25  |:d%=64:e%=100:f%|
00000ad0  3d 33 32 3a 67 25 3d 35  38 3a 68 25 3d 36 34 3a  |=32:g%=58:h%=64:|
00000ae0  69 25 3d 31 39 33 3a 6a  25 3d 31 32 37 39 3a 43  |i%=193:j%=1279:C|
00000af0  25 3d 31 3a 41 25 3d 30  3a 41 31 25 3d 31 32 31  |%=1:A%=0:A1%=121|
00000b00  32 3a 41 32 25 3d 31 32  38 0d 03 7a 73 72 25 3d  |2:A2%=128..zsr%=|
00000b10  31 32 38 30 3a 78 25 3d  31 30 3a 70 25 3d 32 34  |1280:x%=10:p%=24|
00000b20  38 3a 75 25 3d 38 3a 74  31 25 3d 32 34 39 3a 77  |8:u%=8:t1%=249:w|
00000b30  25 3d 30 3a 79 25 3d 30  3a 7a 25 3d 30 3a 76 25  |%=0:y%=0:z%=0:v%|
00000b40  3d 36 31 36 3a 41 33 25  3d 30 3a 6e 25 3d 31 33  |=616:A3%=0:n%=13|
00000b50  3a 6f 25 3d 31 34 3a 71  25 3d 31 35 3a 59 32 3d  |:o%=14:q%=15:Y2=|
00000b60  31 36 30 3a 59 33 3d 37  34 30 3a 74 61 72 25 3d  |160:Y3=740:tar%=|
00000b70  30 3a 78 78 25 3d 34 36  3a 58 3d 30 0d 03 84 05  |0:xx%=46:X=0....|
00000b80  e1 0d 03 8e 0d dd f2 32  73 63 3a ea 49 25 0d 03  |.......2sc:.I%..|
00000b90  98 20 ef 31 39 2c 31 2c  30 3b 30 3b 31 39 2c 32  |. .19,1,0;0;19,2|
00000ba0  2c 30 3b 30 3b 31 39 2c  33 2c 30 3b 30 3b 0d 03  |,0;0;19,3,0;0;..|
00000bb0  a2 20 ef 31 39 2c 34 2c  37 3b 30 3b 31 39 2c 35  |. .19,4,7;0;19,5|
00000bc0  2c 37 3b 30 3b 31 39 2c  36 2c 37 3b 30 3b 0d 03  |,7;0;19,6,7;0;..|
00000bd0  ac 27 58 25 3d 30 3a 59  25 3d 37 33 35 3a 58 33  |.'X%=0:Y%=735:X3|
00000be0  25 3d 31 32 37 39 3a 46  25 3d 34 3a 4d 25 3d 30  |%=1279:F%=4:M%=0|
00000bf0  3a 4e 25 3d 30 0d 03 b6  05 f5 0d 03 c0 0e e3 49  |:N%=0..........I|
00000c00  25 3d 31 b8 4d 25 81 38  0d 03 ca 09 e6 30 2c 43  |%=1.M%.8.....0,C|
00000c10  25 0d 03 d4 12 ec 58 25  2c 59 25 3a df 58 33 25  |%.....X%,Y%:.X3%|
00000c20  2c 59 25 0d 03 de 0c 59  25 3d 59 25 2d 46 25 0d  |,Y%....Y%=Y%-F%.|
00000c30  03 e8 15 4d 25 3d 4d 25  2b 31 3a 4e 25 3d 4e 25  |...M%=M%+1:N%=N%|
00000c40  2b 31 3a ed 0d 03 f2 15  43 25 3d 43 25 2b 31 3a  |+1:.....C%=C%+1:|
00000c50  e7 43 25 3e 33 43 25 3d  31 0d 03 fc 11 5a 3d 5a  |.C%>3C%=1....Z=Z|
00000c60  2b 31 3a fd 5a 3d 33 36  3a e1 0d 04 06 0c dd f2  |+1:.Z=36:.......|
00000c70  74 69 3a ea 49 25 0d 04  10 23 ef 31 39 2c 31 35  |ti:.I%...#.19,15|
00000c80  2c 30 3b 30 3b 31 39 2c  31 34 2c 30 3b 30 3b 31  |,0;0;19,14,0;0;1|
00000c90  39 2c 31 33 2c 30 3b 30  3b 0d 04 1a 0d 4c 3d 31  |9,13,0;0;....L=1|
00000ca0  33 3a 58 3d 35 36 0d 04  24 26 e3 49 25 3d 2d 36  |3:X=56..$&.I%=-6|
00000cb0  32 38 30 b8 31 35 35 30  38 88 39 36 3a 4c 3d 4c  |280.15508.96:L=L|
00000cc0  2b 31 3a e7 4c 3e 31 35  4c 3d 31 33 0d 04 2e 42  |+1:.L>15L=13...B|
00000cd0  e6 30 2c 4c 3a ec 58 2c  59 33 3a df 49 25 2c 59  |.0,L:.X,Y3:.I%,Y|
00000ce0  32 3a 58 3d 58 2b 38 3a  ed 3a e6 33 2c 37 3a ef  |2:X=X+8:.:.3,7:.|
00000cf0  31 39 2c 31 33 2c 4a 25  3b 30 3b 31 39 2c 31 35  |19,13,J%;0;19,15|
00000d00  2c 4a 25 3b 30 3b 3a 58  25 3d 36 34 3a e1 0d 04  |,J%;0;:X%=64:...|
00000d10  38 09 dd f2 32 74 69 0d  04 42 19 ef 31 39 2c 31  |8...2ti..B..19,1|
00000d20  35 3b 30 3b 30 3b 3a 4c  3d 31 35 3a 58 3d 35 36  |5;0;0;:L=15:X=56|
00000d30  0d 04 4c 16 e3 49 3d 2d  36 32 38 30 b8 31 35 35  |..L..I=-6280.155|
00000d40  30 38 88 31 34 34 0d 04  56 42 e6 30 2c 4c 3a ec  |08.144..VB.0,L:.|
00000d50  58 2c 59 33 3a df 49 2c  59 32 3a 58 3d 58 2b 31  |X,Y3:.I,Y2:X=X+1|
00000d60  32 3a ed 3a e6 33 2c 37  3a ef 31 39 2c 31 33 2c  |2:.:.3,7:.19,13,|
00000d70  4a 25 3b 30 3b 31 39 2c  31 35 2c 4a 25 3b 30 3b  |J%;0;19,15,J%;0;|
00000d80  3a 58 25 3d 36 34 3a e1  0d 04 60 0d dd f2 33 74  |:X%=64:...`...3t|
00000d90  69 3a ea 49 25 0d 04 6a  0c 4c 3d 30 3a 58 3d 35  |i:.I%..j.L=0:X=5|
00000da0  36 0d 04 74 17 e3 49 25  3d 2d 36 32 38 30 b8 31  |6..t..I%=-6280.1|
00000db0  35 35 30 38 88 31 34 34  0d 04 7e 26 e6 30 2c 4c  |5508.144..~&.0,L|
00000dc0  3a ec 58 2c 59 33 3a df  49 25 2c 59 32 3a 58 3d  |:.X,Y3:.I%,Y2:X=|
00000dd0  58 2b 31 32 3a ed 3a 58  25 3d 36 34 3a e1 0d 04  |X+12:.:X%=64:...|
00000de0  88 09 dd f2 73 63 72 0d  04 92 17 4c 25 3d 4c 25  |....scr....L%=L%|
00000df0  2b 31 3a e7 4c 25 3e 31  35 4c 25 3d 31 33 0d 04  |+1:.L%>15L%=13..|
00000e00  9c 0e f2 6c 67 3a 7a 25  3d 2b 68 25 0d 04 a6 2f  |...lg:z%=+h%.../|
00000e10  e7 4c 25 3d 6e 25 ef 31  39 2c 4c 25 2c 30 3b 30  |.L%=n%.19,L%,0;0|
00000e20  3b 31 39 2c 4c 25 2b 31  2c 34 3b 30 3b 31 39 2c  |;19,L%+1,4;0;19,|
00000e30  4c 25 2b 32 2c 31 3b 30  3b 3a e1 0d 04 b0 2f e7  |L%+2,1;0;:..../.|
00000e40  4c 25 3d 6f 25 ef 31 39  2c 4c 25 2c 30 3b 30 3b  |L%=o%.19,L%,0;0;|
00000e50  31 39 2c 4c 25 2b 31 2c  34 3b 30 3b 31 39 2c 4c  |19,L%+1,4;0;19,L|
00000e60  25 2d 31 2c 31 3b 30 3b  3a e1 0d 04 ba 2d e7 4c  |%-1,1;0;:....-.L|
00000e70  25 3d 71 25 ef 31 39 2c  4c 25 2c 30 3b 30 3b 31  |%=q%.19,L%,0;0;1|
00000e80  39 2c 4c 25 2d 32 2c 34  3b 30 3b 31 39 2c 4c 25  |9,L%-2,4;0;19,L%|
00000e90  2d 31 2c 31 3b 30 3b 0d  04 c4 05 e1 0d 04 ce 09  |-1,1;0;.........|
00000ea0  dd f2 73 63 6c 0d 04 d8  17 4c 25 3d 4c 25 2d 31  |..scl....L%=L%-1|
00000eb0  3a e7 4c 25 3c 31 33 4c  25 3d 31 35 0d 04 e2 0e  |:.L%<13L%=15....|
00000ec0  f2 6c 67 3a 7a 25 3d 2d  68 25 0d 04 ec 2f e7 4c  |.lg:z%=-h%.../.L|
00000ed0  25 3d 6e 25 ef 31 39 2c  4c 25 2c 30 3b 30 3b 31  |%=n%.19,L%,0;0;1|
00000ee0  39 2c 4c 25 2b 31 2c 34  3b 30 3b 31 39 2c 4c 25  |9,L%+1,4;0;19,L%|
00000ef0  2b 32 2c 31 3b 30 3b 3a  e1 0d 04 f6 2f e7 4c 25  |+2,1;0;:..../.L%|
00000f00  3d 6f 25 ef 31 39 2c 4c  25 2c 30 3b 30 3b 31 39  |=o%.19,L%,0;0;19|
00000f10  2c 4c 25 2b 31 2c 34 3b  30 3b 31 39 2c 4c 25 2d  |,L%+1,4;0;19,L%-|
00000f20  31 2c 31 3b 30 3b 3a e1  0d 05 00 2d e7 4c 25 3d  |1,1;0;:....-.L%=|
00000f30  71 25 ef 31 39 2c 4c 25  2c 30 3b 30 3b 31 39 2c  |q%.19,L%,0;0;19,|
00000f40  4c 25 2d 32 2c 34 3b 30  3b 31 39 2c 4c 25 2d 31  |L%-2,4;0;19,L%-1|
00000f50  2c 31 3b 30 3b 0d 05 0a  05 e1 0d 05 14 09 dd f2  |,1;0;...........|
00000f60  32 73 70 0d 05 1e 24 ec  78 25 2d 77 25 2c 76 25  |2sp...$.x%-w%,v%|
00000f70  2d 79 25 3a ef 74 25 3a  78 25 3d 78 25 2b 7a 25  |-y%:.t%:x%=x%+z%|
00000f80  3a 74 25 3d 74 31 25 0d  05 28 1f f2 66 6c 3a 77  |:t%=t1%..(..fl:w|
00000f90  25 3d b3 28 75 25 29 2a  75 25 3a 79 25 3d b3 28  |%=.(u%)*u%:y%=.(|
00000fa0  75 25 29 2a 75 25 0d 05  32 14 ec 78 25 2d 77 25  |u%)*u%..2..x%-w%|
00000fb0  2c 76 25 2d 79 25 3a ef  74 25 0d 05 3c 22 7a 25  |,v%-y%:.t%..<"z%|
00000fc0  3d 30 3a 53 25 3d 78 25  2d 77 25 3a 53 32 25 3d  |=0:S%=x%-w%:S2%=|
00000fd0  30 3a 54 25 3d 76 25 2d  79 25 3a e1 0d 05 46 09  |0:T%=v%-y%:...F.|
00000fe0  dd f2 32 63 68 0d 05 50  8f ef 32 33 2c 32 34 39  |..2ch..P..23,249|
00000ff0  2c 31 39 35 2c 31 32 39  2c 31 38 39 2c 33 36 2c  |,195,129,189,36,|
00001000  33 36 2c 31 38 39 2c 31  32 39 2c 31 39 35 3a ef  |36,189,129,195:.|
00001010  32 33 2c 32 34 30 2c 30  2c 31 2c 33 2c 37 2c 37  |23,240,0,1,3,7,7|
00001020  2c 37 2c 31 35 2c 31 35  3a ef 32 33 2c 32 34 31  |,7,15,15:.23,241|
00001030  2c 32 32 34 2c 32 34 38  2c 32 34 38 2c 32 34 38  |,224,248,248,248|
00001040  2c 32 35 32 2c 32 35 32  2c 32 35 34 2c 32 35 34  |,252,252,254,254|
00001050  2c 32 35 34 3a ef 32 33  2c 32 34 32 2c 31 35 2c  |,254:.23,242,15,|
00001060  31 35 2c 33 31 2c 33 31  2c 33 31 2c 33 31 2c 31  |15,31,31,31,31,1|
00001070  35 2c 31 35 0d 05 5a 6d  ef 32 33 2c 32 34 33 2c  |5,15..Zm.23,243,|
00001080  32 35 34 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |254,255,255,255,|
00001090  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 34 3a  |255,255,255,254:|
000010a0  ef 32 33 2c 32 34 34 2c  31 35 2c 31 35 2c 37 2c  |.23,244,15,15,7,|
000010b0  37 2c 33 2c 31 2c 30 2c  30 3a ef 32 33 2c 32 34  |7,3,1,0,0:.23,24|
000010c0  35 2c 32 35 34 2c 32 35  34 2c 32 35 34 2c 32 35  |5,254,254,254,25|
000010d0  32 2c 32 35 32 2c 32 34  38 2c 32 32 34 2c 30 3a  |2,252,248,224,0:|
000010e0  e1 0d 05 64 4e dd f2 65  6e 64 3a e7 73 75 6d 25  |...dN..end:.sum%|
000010f0  3c 3e 35 ef 34 3a fb 31  31 3a f1 8a 33 2c 31 39  |<>5.4:.11:..3,19|
00001100  29 22 4d 49 53 53 49 4f  4e 20 46 41 49 4c 45 44  |)"MISSION FAILED|
00001110  22 3a e3 49 3d 31 b8 39  30 30 30 3a ed 3a ef 31  |":.I=1.9000:.:.1|
00001120  39 2c 30 2c 30 3b 30 3b  3a ef 35 3a da 3a e1 0d  |9,0,0;0;:.5:.:..|
00001130  05 6e 1e ef 31 39 2c 30  2c 30 3b 30 3b 31 39 2c  |.n..19,0,0;0;19,|
00001140  34 2c 34 3b 30 3b 3a 59  25 3d 39 30 30 0d 05 78  |4,4;0;:Y%=900..x|
00001150  33 ef 34 3a f1 8a 35 2c  32 38 29 22 20 20 20 20  |3.4:..5,28)"    |
00001160  20 20 20 20 20 20 20 22  3b 8a 33 2c 32 39 29 22  |       ";.3,29)"|
00001170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
00001180  0d 05 82 3e fb 31 32 3a  f1 8a 32 2c 30 29 22 20  |...>.12:..2,0)" |
00001190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 22  |               "|
000011a0  3b 8a 31 32 2c 31 29 3b  22 20 20 20 20 20 22 3b  |;.12,1);"     ";|
000011b0  8a 33 2c 31 29 22 20 20  20 20 20 20 20 22 0d 05  |.3,1)"       "..|
000011c0  8c 05 f5 0d 05 96 09 2a  46 58 31 39 0d 05 a0 16  |.......*FX19....|
000011d0  ef 33 30 2c 31 31 3a 73  63 72 25 3d 73 63 72 25  |.30,11:scr%=scr%|
000011e0  2b 31 0d 05 aa 3a ef 35  3a e6 30 2c 37 3a f5 3a  |+1...:.5:.0,7:.:|
000011f0  58 25 3d b3 28 72 25 29  3a 59 25 3d 59 25 2b 31  |X%=.(r%):Y%=Y%+1|
00001200  3a f0 36 39 2c 58 25 2c  59 25 3a fd 59 25 3d 39  |:.69,X%,Y%:.Y%=9|
00001210  30 35 3a 59 25 3d 39 30  30 3a ef 34 0d 05 b4 25  |05:Y%=900:.4...%|
00001220  f1 8a 30 2c 32 39 29 22  20 20 20 20 20 20 20 20  |..0,29)"        |
00001230  20 20 20 20 20 20 20 20  20 20 20 20 22 3a ef 33  |            ":.3|
00001240  30 0d 05 be 0c fd 73 63  72 25 3d 35 30 0d 05 c8  |0.....scr%=50...|
00001250  10 73 63 72 25 3d 30 3a  59 25 3d 36 30 0d 05 d2  |.scr%=0:Y%=60...|
00001260  05 f5 0d 05 dc 09 2a 46  58 31 39 0d 05 e6 1b ef  |......*FX19.....|
00001270  33 31 2c 30 2c 33 31 2c  31 30 3a 73 63 72 25 3d  |31,0,31,10:scr%=|
00001280  73 63 72 25 2b 31 0d 05  f0 38 ef 35 3a e6 30 2c  |scr%+1...8.5:.0,|
00001290  37 3a f5 3a 58 25 3d b3  28 72 25 29 3a 59 25 3d  |7:.:X%=.(r%):Y%=|
000012a0  59 25 2b 31 3a f0 36 39  2c 58 25 2c 59 25 3a fd  |Y%+1:.69,X%,Y%:.|
000012b0  59 25 3d 36 35 3a 59 25  3d 36 30 3a ef 34 0d 05  |Y%=65:Y%=60:.4..|
000012c0  fa 4a e7 73 63 72 25 3d  33 34 3a ef 35 3a 58 3d  |.J.scr%=34:.5:X=|
000012d0  36 33 30 3a e6 33 2c 34  3a ec 58 2c 39 36 3a ef  |630:.3,4:.X,96:.|
000012e0  32 34 30 2c 32 34 31 3a  ec 58 2c 36 34 3a ef 32  |240,241:.X,64:.2|
000012f0  34 32 2c 32 34 33 3a ec  58 2c 33 32 3a ef 32 34  |42,243:.X,32:.24|
00001300  34 2c 32 34 35 3a ef 34  0d 06 04 0c fd 73 63 72  |4,245:.4.....scr|
00001310  25 3d 35 30 0d 06 0e 3a  63 6f 6c 25 3d 31 3a f5  |%=50...:col%=1:.|
00001320  3a ef 31 39 2c 34 2c 63  6f 6c 25 3b 30 3b 3a 63  |:.19,4,col%;0;:c|
00001330  6f 6c 25 3d 63 6f 6c 25  2b 31 3a e3 49 3d 31 b8  |ol%=col%+1:.I=1.|
00001340  39 30 30 3a ed 3a fd 63  6f 6c 25 3d 31 35 0d 06  |900:.:.col%=15..|
00001350  18 3e ef 35 3a e6 33 2c  34 3a ec 58 2c 36 30 38  |.>.5:.3,4:.X,608|
00001360  3a ef 32 34 30 3a ef 32  34 31 3a ec 58 2c 35 37  |:.240:.241:.X,57|
00001370  36 3a ef 32 34 32 3a ef  32 34 33 3a ec 58 2c 35  |6:.242:.243:.X,5|
00001380  34 34 3a ef 32 34 34 3a  ef 32 34 35 0d 06 22 78  |44:.244:.245.."x|
00001390  ef 32 33 2c 32 34 32 2c  33 32 2c 34 2c 37 36 2c  |.23,242,32,4,76,|
000013a0  38 31 2c 32 30 36 2c 33  32 2c 31 30 32 2c 36 3a  |81,206,32,102,6:|
000013b0  78 78 25 3d 32 34 32 3a  74 61 72 25 3d 30 3a 53  |xx%=242:tar%=0:S|
000013c0  32 25 3d 30 3a 53 25 3d  58 3a 54 25 3d 35 37 36  |2%=0:S%=X:T%=576|
000013d0  3a f2 68 74 3a ef 34 3a  fb 33 3a f1 8a 31 2c 31  |:.ht:.4:.3:..1,1|
000013e0  39 29 22 4d 49 53 53 49  4f 4e 20 53 55 43 43 45  |9)"MISSION SUCCE|
000013f0  53 53 46 55 4c 22 3a e3  49 3d 31 b8 35 30 30 30  |SSFUL":.I=1.5000|
00001400  3a ed 3a e1 0d 06 2c 08  dd f2 73 70 0d 06 36 11  |:.:...,...sp..6.|
00001410  ec 53 25 2b 53 32 25 2c  54 25 3a ef 55 0d 06 40  |.S%+S2%,T%:.U..@|
00001420  26 e7 54 25 3c 69 25 54  25 3d 54 31 25 3a 55 3d  |&.T%<i%T%=T1%:U=|
00001430  55 25 3a 53 32 25 3d 53  33 25 3a 53 25 3d b3 28  |U%:S2%=S3%:S%=.(|
00001440  6a 25 29 0d 06 4a 1a e7  54 25 3d 54 31 25 80 53  |j%)..J..T%=T1%.S|
00001450  25 3c 53 20 53 31 25 3d  b3 28 5a 25 29 0d 06 54  |%<S S1%=.(Z%)..T|
00001460  07 f2 66 6c 0d 06 5e 1b  e7 54 25 3d 54 31 25 80  |..fl..^..T%=T1%.|
00001470  53 25 3e 53 20 53 31 25  3d 2d b3 28 5a 25 29 0d  |S%>S S1%=-.(Z%).|
00001480  06 68 1f 55 3d 55 2b 2e  35 3a 54 25 3d 54 25 2d  |.h.U=U+.5:T%=T%-|
00001490  66 25 3a 53 32 25 3d 53  32 25 2b 53 31 25 0d 06  |f%:S2%=S2%+S1%..|
000014a0  72 0c e7 55 3e 56 20 55  3d 56 0d 06 7c 11 ec 53  |r..U>V U=V..|..S|
000014b0  25 2b 53 32 25 2c 54 25  3a ef 55 0d 06 86 0c e7  |%+S2%,T%:.U.....|
000014c0  55 3e 47 31 25 f2 78 0d  06 90 05 e1 0d 06 9a 07  |U>G1%.x.........|
000014d0  dd f2 78 0d 06 a4 11 58  3d b3 28 34 29 3a e7 58  |..x....X=.(4):.X|
000014e0  3c 3e 33 e1 0d 06 ae 29  44 25 3d 53 25 2b 53 32  |<>3....)D%=S%+S2|
000014f0  25 3a 45 25 3d 54 25 2d  64 25 3a 50 25 3d 50 25  |%:E%=T%-d%:P%=P%|
00001500  2d 38 3a 50 31 25 3d 50  31 25 2d 32 30 0d 06 b8  |-8:P1%=P1%-20...|
00001510  4a ef 31 39 2c 30 2c 33  3b 30 3b 3a ec 44 25 2c  |J.19,0,3;0;:.D%,|
00001520  45 25 3a ef 70 25 3a d4  31 2c 31 2c 32 32 2c 34  |E%:.p%:.1,1,22,4|
00001530  3a f2 73 69 3a 58 3d 30  3a ec 44 25 2c 45 25 3a  |:.si:X=0:.D%,E%:|
00001540  ef 70 25 3a 4a 3d 4a 2d  31 36 3a ef 31 39 2c 30  |.p%:J=J-16:.19,0|
00001550  2c 30 3b 30 3b 3a e1 0d  06 c2 1f dd f2 73 65 3a  |,0;0;:.......se:|
00001560  e6 30 2c 37 3a ec 4a 2c  36 34 3a ef 32 35 30 3a  |.0,7:.J,64:.250:|
00001570  e6 33 2c 37 3a e1 0d 06  cc 23 dd f2 32 73 68 65  |.3,7:....#..2she|
00001580  3a e6 30 2c 31 32 3a ec  4a 2c 33 32 3a df 4a 2c  |:.0,12:.J,32:.J,|
00001590  36 34 3a e6 33 2c 37 3a  e1 0d 06 d6 09 dd f2 33  |64:.3,7:.......3|
000015a0  73 70 0d 06 e0 11 ec 53  25 2b 53 32 25 2c 54 25  |sp.....S%+S2%,T%|
000015b0  3a ef 55 0d 06 ea 26 e7  54 25 3c 69 25 54 25 3d  |:.U...&.T%<i%T%=|
000015c0  54 31 25 3a 55 3d 55 25  3a 53 32 25 3d 53 33 25  |T1%:U=U%:S2%=S3%|
000015d0  3a 53 25 3d b3 28 6a 25  29 0d 06 f4 1a e7 54 25  |:S%=.(j%).....T%|
000015e0  3d 54 31 25 80 53 25 3c  53 20 53 31 25 3d b3 28  |=T1%.S%<S S1%=.(|
000015f0  5a 25 29 0d 06 fe 07 f2  66 6c 0d 07 08 1b e7 54  |Z%).....fl.....T|
00001600  25 3d 54 31 25 80 53 25  3e 53 20 53 31 25 3d 2d  |%=T1%.S%>S S1%=-|
00001610  b3 28 5a 25 29 0d 07 12  1f 55 3d 55 2b 2e 35 3a  |.(Z%)....U=U+.5:|
00001620  54 25 3d 54 25 2d 66 25  3a 53 32 25 3d 53 32 25  |T%=T%-f%:S2%=S2%|
00001630  2b 53 31 25 0d 07 1c 0c  e7 55 3e 56 20 55 3d 56  |+S1%.....U>V U=V|
00001640  0d 07 26 11 ec 53 25 2b  53 32 25 2c 54 25 3a ef  |..&..S%+S2%,T%:.|
00001650  55 0d 07 30 0c e7 55 3e  47 31 25 f2 78 0d 07 3a  |U..0..U>G1%.x..:|
00001660  05 e1 0d 07 44 0d dd f2  70 69 63 3a ea 49 25 0d  |....D...pic:.I%.|
00001670  07 4e 20 ef 31 39 2c 31  2c 30 3b 30 3b 31 39 2c  |.N .19,1,0;0;19,|
00001680  32 2c 30 3b 30 3b 31 39  2c 33 2c 30 3b 30 3b 0d  |2,0;0;19,3,0;0;.|
00001690  07 58 20 ef 31 39 2c 34  2c 37 3b 30 3b 31 39 2c  |.X .19,4,7;0;19,|
000016a0  35 2c 37 3b 30 3b 31 39  2c 36 2c 37 3b 30 3b 0d  |5,7;0;19,6,7;0;.|
000016b0  07 62 4b 58 25 3d 30 3a  59 25 3d 37 33 35 3a 58  |.bKX%=0:Y%=735:X|
000016c0  31 25 3d 36 32 33 3a 58  32 25 3d 36 35 35 3a 58  |1%=623:X2%=655:X|
000016d0  33 25 3d 31 32 37 39 3a  59 31 25 3d 31 32 3a 59  |3%=1279:Y1%=12:Y|
000016e0  32 25 3d 31 32 3a 46 25  3d 34 3a 46 32 25 3d 38  |2%=12:F%=4:F2%=8|
000016f0  3a 43 25 3d 31 3a 4d 25  3d 30 0d 07 6c 05 f5 0d  |:C%=1:M%=0..l...|
00001700  07 76 0e e3 49 25 3d 31  b8 4d 25 81 37 0d 07 80  |.v..I%=1.M%.7...|
00001710  09 e6 30 2c 43 25 0d 07  8a 3a ec 58 25 2c 59 25  |..0,C%...:.X%,Y%|
00001720  3a df 58 31 25 2c 59 25  3a df 58 31 25 2c 59 25  |:.X1%,Y%:.X1%,Y%|
00001730  2d 59 31 25 3a df 58 32  25 2c 59 25 2d 59 32 25  |-Y1%:.X2%,Y%-Y2%|
00001740  3a df 58 32 25 2c 59 25  3a df 58 33 25 2c 59 25  |:.X2%,Y%:.X3%,Y%|
00001750  0d 07 94 3a 59 25 3d 59  25 2d 46 25 3a 58 31 25  |...:Y%=Y%-F%:X1%|
00001760  3d 58 31 25 2d 46 32 25  3a 59 31 25 3d 59 31 25  |=X1%-F2%:Y1%=Y1%|
00001770  2b 46 25 3a 58 32 25 3d  58 32 25 2b 46 32 25 3a  |+F%:X2%=X2%+F2%:|
00001780  59 32 25 3d 59 32 25 2b  46 25 0d 07 9e 15 4d 25  |Y2%=Y2%+F%....M%|
00001790  3d 4d 25 2b 31 3a 4e 25  3d 4e 25 2b 31 3a ed 0d  |=M%+1:N%=N%+1:..|
000017a0  07 a8 15 43 25 3d 43 25  2b 31 3a e7 43 25 3e 33  |...C%=C%+1:.C%>3|
000017b0  43 25 3d 31 0d 07 b2 09  5a 3d 5a 2b 31 0d 07 bc  |C%=1....Z=Z+1...|
000017c0  09 fd 5a 3d 32 38 0d 07  c6 05 e1 0d 07 d0 08 dd  |..Z=28..........|
000017d0  f2 73 68 0d 07 da a8 e6  30 2c 39 3a ec 30 2c 33  |.sh.....0,9:.0,3|
000017e0  36 3a ec 34 32 36 2c 33  36 3a f0 38 35 2c 34 32  |6:.426,36:.85,42|
000017f0  36 2c 36 38 3a ec 30 2c  36 38 3a f0 38 35 2c 30  |6,68:.0,68:.85,0|
00001800  2c 33 36 3a e6 30 2c 31  30 3a ec 34 32 36 2c 33  |,36:.0,10:.426,3|
00001810  36 3a ec 38 35 32 2c 33  36 3a f0 38 35 2c 38 35  |6:.852,36:.85,85|
00001820  32 2c 36 38 3a ec 34 32  36 2c 36 38 3a f0 38 35  |2,68:.426,68:.85|
00001830  2c 34 32 36 2c 33 36 3a  e6 30 2c 31 31 3a ec 38  |,426,36:.0,11:.8|
00001840  35 32 2c 33 36 3a ec 31  32 37 39 2c 33 36 3a f0  |52,36:.1279,36:.|
00001850  38 35 2c 31 32 37 39 2c  36 38 3a ec 38 35 32 2c  |85,1279,68:.852,|
00001860  36 38 3a f0 38 35 2c 38  35 32 2c 33 36 3a 4a 3d  |68:.85,852,36:J=|
00001870  31 32 37 39 3a e6 33 2c  37 3a e1 0d 07 e4 09 dd  |1279:.3,7:......|
00001880  f2 32 73 68 0d 07 ee 35  e6 30 2c 31 31 3a ec 30  |.2sh...5.0,11:.0|
00001890  2c 33 36 3a ec 31 32 37  39 2c 33 36 3a f0 38 35  |,36:.1279,36:.85|
000018a0  2c 31 32 37 39 2c 36 34  3a ec 30 2c 36 34 3a f0  |,1279,64:.0,64:.|
000018b0  38 35 2c 30 2c 33 36 3a  e1 0d 07 f8 08 dd f2 66  |85,0,36:.......f|
000018c0  6c 0d 08 02 09 2a 46 58  31 39 0d 08 0c 2f ef 31  |l....*FX19.../.1|
000018d0  39 2c 43 25 2c 30 3b 30  3b 3a e7 43 25 3d 31 ef  |9,C%,0;0;:.C%=1.|
000018e0  31 39 2c 33 2c 4a 25 3b  30 3b 8b ef 31 39 2c 43  |19,3,J%;0;..19,C|
000018f0  25 2d 31 2c 4a 25 3b 30  3b 0d 08 16 15 43 25 3d  |%-1,J%;0;....C%=|
00001900  43 25 2b 31 3a e7 43 25  3e 33 43 25 3d 31 0d 08  |C%+1:.C%>3C%=1..|
00001910  20 05 e1 0d 08 2a 0c dd  f2 64 69 3a ea 49 25 0d  | ....*...di:.I%.|
00001920  08 34 0c de 41 28 31 2c  31 35 29 0d 08 3e 24 e3  |.4..A(1,15)..>$.|
00001930  49 25 3d 30 b8 31 34 3a  41 28 30 2c 49 25 29 3d  |I%=0.14:A(0,I%)=|
00001940  b3 28 31 30 30 29 2a 31  30 2b 31 30 30 3a ed 0d  |.(100)*10+100:..|
00001950  08 48 21 e3 49 25 3d 30  b8 31 34 3a 41 28 31 2c  |.H!.I%=0.14:A(1,|
00001960  49 25 29 3d b3 28 31 30  30 29 2b 38 30 30 3a ed  |I%)=.(100)+800:.|
00001970  0d 08 52 05 e1 0d 08 5c  08 dd f2 6d 6f 0d 08 66  |..R....\...mo..f|
00001980  1d 42 31 25 3d 41 28 30  2c 41 33 25 29 3a 43 31  |.B1%=A(0,A3%):C1|
00001990  25 3d 41 28 31 2c 41 33  25 29 0d 08 70 29 6b 25  |%=A(1,A3%)..p)k%|
000019a0  3d b3 28 32 29 3a e7 6b  25 3d 31 44 31 25 3d b3  |=.(2):.k%=1D1%=.|
000019b0  28 34 29 2a 38 8b 44 31  25 3d 2d 28 b3 28 34 29  |(4)*8.D1%=-(.(4)|
000019c0  2a 38 29 0d 08 7a 75 f5  3a f0 36 39 2c 42 31 25  |*8)..zu.:.69,B1%|
000019d0  2c 43 31 25 3a 42 31 25  3d 42 31 25 2b 44 31 25  |,C1%:B1%=B1%+D1%|
000019e0  3a 43 31 25 3d 43 31 25  2d 32 3a f0 36 39 2c 42  |:C1%=C1%-2:.69,B|
000019f0  31 25 2c 43 31 25 3a fd  42 31 25 3c 30 84 42 31  |1%,C1%:.B1%<0.B1|
00001a00  25 3e 31 32 37 39 3a 41  33 25 3d 41 33 25 2b 31  |%>1279:A3%=A3%+1|
00001a10  3a e7 6b 25 3d 31 78 25  3d 32 32 38 30 2b b3 28  |:.k%=1x%=2280+.(|
00001a20  31 30 30 30 29 8b 78 25  3d 2d 31 30 30 30 2d b3  |1000).x%=-1000-.|
00001a30  28 31 30 30 30 29 3a e1  0d 08 84 08 dd f2 73 69  |(1000):.......si|
00001a40  0d 08 8e 1c ec 41 25 2c  41 32 25 3a ef 36 32 3a  |.....A%,A2%:.62:|
00001a50  ec 41 31 25 2c 41 32 25  3a ef 36 30 0d 08 98 1a  |.A1%,A2%:.60....|
00001a60  41 32 25 3d 41 32 25 2d  66 25 2d 68 25 2a 28 a6  |A2%=A2%-f%-h%*(.|
00001a70  28 2d 67 25 29 29 0d 08  a2 11 e7 41 32 25 3c 4b  |(-g%)).....A2%<K|
00001a80  25 41 32 25 3d 4b 25 0d  08 ac 13 e7 41 32 25 3e  |%A2%=K%.....A2%>|
00001a90  4b 31 25 41 32 25 3d 4b  31 25 0d 08 b6 0e e7 a6  |K1%A2%=K1%......|
00001aa0  28 2d 39 39 29 f2 66 72  0d 08 c0 1c ec 41 25 2c  |(-99).fr.....A%,|
00001ab0  41 32 25 3a ef 36 32 3a  ec 41 31 25 2c 41 32 25  |A2%:.62:.A1%,A2%|
00001ac0  3a ef 36 30 0d 08 ca 05  e1 0d 08 d4 08 dd f2 66  |:.60...........f|
00001ad0  72 0d 08 de 14 e7 58 3d  33 84 78 25 3c 30 84 78  |r.....X=3.x%<0.x|
00001ae0  25 3e 72 25 e1 0d 08 e8  0d d4 31 2c 31 2c 31 30  |%>r%......1,1,10|
00001af0  2c 34 0d 08 f2 68 ec 58  25 2c 59 31 25 3a df 53  |,4...h.X%,Y1%:.S|
00001b00  25 2b 53 32 25 2b 5a 25  2c 41 32 25 3a df 58 52  |%+S2%+Z%,A2%:.XR|
00001b10  25 2c 59 31 25 3a f2 66  6c 3a ec 58 25 2c 59 31  |%,Y1%:.fl:.X%,Y1|
00001b20  25 3a df 53 25 2b 53 32  25 2b 5a 25 2c 41 32 25  |%:.S%+S2%+Z%,A2%|
00001b30  3a df 58 52 25 2c 59 31  25 3a e7 41 32 25 3d 54  |:.XR%,Y1%:.A2%=T|
00001b40  25 84 41 32 25 3d 76 25  2d 79 25 73 75 6d 25 3d  |%.A2%=v%-y%sum%=|
00001b50  73 75 6d 25 2b 31 3a f2  68 74 0d 08 fc 05 e1 0d  |sum%+1:.ht......|
00001b60  09 06 08 dd f2 68 74 0d  09 10 2d 6c 25 3d 30 3a  |.....ht...-l%=0:|
00001b70  ec 53 25 2b 53 32 25 2c  54 25 3a ef 55 3a d4 30  |.S%+S2%,T%:.U:.0|
00001b80  2c 2d 31 35 2c 39 35 2c  31 35 3a 6d 25 3d b3 28  |,-15,95,15:m%=.(|
00001b90  36 29 2a 38 0d 09 1a 27  e7 74 61 72 25 3d 31 53  |6)*8...'.tar%=1S|
00001ba0  25 3d 30 3a 53 32 25 3d  30 3a 54 25 3d 2d 31 30  |%=0:S2%=0:T%=-10|
00001bb0  3a f2 66 6c 3a 40 25 3d  31 3a e1 0d 09 24 b2 f5  |:.fl:@%=1:...$..|
00001bc0  3a ec 53 25 2b 53 32 25  2b 6c 25 2c 54 25 2d 6c  |:.S%+S2%+l%,T%-l|
00001bd0  25 3a ef 78 78 25 3a ec  53 25 2b 53 32 25 2d 6c  |%:.xx%:.S%+S2%-l|
00001be0  25 2c 54 25 2d 6c 25 3a  ef 78 78 25 3a ec 53 25  |%,T%-l%:.xx%:.S%|
00001bf0  2b 53 32 25 2c 54 25 2b  28 6c 25 2a 33 29 3a ef  |+S2%,T%+(l%*3):.|
00001c00  78 78 25 3a ec 53 25 2b  53 32 25 2d 28 6c 25 2a  |xx%:.S%+S2%-(l%*|
00001c10  32 29 2d 31 32 2c 54 25  2b 6c 25 3a ef 78 78 25  |2)-12,T%+l%:.xx%|
00001c20  3a ec 53 25 2b 53 32 25  2b 28 6c 25 2a 32 29 2b  |:.S%+S2%+(l%*2)+|
00001c30  31 32 2c 54 25 2b 6c 25  3a ef 78 78 25 3a f2 66  |12,T%+l%:.xx%:.f|
00001c40  6c 3a ec 53 25 2b 53 32  25 2b 6c 25 2c 54 25 2d  |l:.S%+S2%+l%,T%-|
00001c50  6c 25 3a ef 78 78 25 3a  ec 53 25 2b 53 32 25 2d  |l%:.xx%:.S%+S2%-|
00001c60  6c 25 2c 54 25 2d 6c 25  3a ef 78 78 25 0d 09 2e  |l%,T%-l%:.xx%...|
00001c70  65 ec 53 25 2b 53 32 25  2c 54 25 2b 28 6c 25 2a  |e.S%+S2%,T%+(l%*|
00001c80  33 29 3a ef 78 78 25 3a  ec 53 25 2b 53 32 25 2d  |3):.xx%:.S%+S2%-|
00001c90  28 6c 25 2a 32 29 2d 31  32 2c 54 25 2b 6c 25 3a  |(l%*2)-12,T%+l%:|
00001ca0  ef 78 78 25 3a ec 53 25  2b 53 32 25 2b 28 6c 25  |.xx%:.S%+S2%+(l%|
00001cb0  2a 32 29 2b 31 32 2c 54  25 2b 6c 25 3a ef 78 78  |*2)+12,T%+l%:.xx|
00001cc0  25 3a 6c 25 3d 6c 25 2b  6d 25 3a fd 6c 25 3e 32  |%:l%=l%+m%:.l%>2|
00001cd0  30 30 0d 09 38 3d 53 25  3d 30 3a 53 32 25 3d 30  |00..8=S%=0:S2%=0|
00001ce0  3a 54 25 3d 2d 31 30 3a  f2 66 6c 3a 48 25 3d 48  |:T%=-10:.fl:H%=H|
00001cf0  25 2b 41 32 25 81 36 3a  e6 33 2c 37 3a ef 34 3a  |%+A2%.6:.3,7:.4:|
00001d00  f1 8a 31 32 2c 31 29 3b  48 25 3a ef 35 3a e1 0d  |..12,1);H%:.5:..|
00001d10  09 42 0f dd f2 73 74 3a  ea 53 25 2c 49 25 0d 09  |.B...st:.S%,I%..|
00001d20  4c 0a 53 25 3d 38 30 30  0d 09 56 28 f5 3a f2 66  |L.S%=800..V(.:.f|
00001d30  6c 3a e3 49 25 3d 31 b8  53 25 3a ed 49 25 3a 53  |l:.I%=1.S%:.I%:S|
00001d40  25 3d 53 25 2d 31 30 30  3a fd 53 25 3c 30 3a e1  |%=S%-100:.S%<0:.|
00001d50  0d 09 60 19 da 3a eb 37  3a f6 3a f1 22 20 61 74  |..`..:.7:.:." at|
00001d60  20 6c 69 6e 65 20 22 3b  9e 0d ff                 | line ";...|
00001d6b
04-03-88/DOOMRUN.m0
04-03-88/DOOMRUN.m1
04-03-88/DOOMRUN.m2
04-03-88/DOOMRUN.m4
04-03-88/DOOMRUN.m5