Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape09a_acorn_eu_1990_march.wav » SUB

SUB

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 tapes » Electron_User » Electron_User_tape09a_acorn_eu_1990_march.wav
Filename: SUB
Read OK:
File size: 3C25 bytes
Load address: 2000
Exec address: 1900
Duplicates

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

File contents
   10REM Sub Search
   20REM By A & S Weir
   30REM (c) Electron User
   40 
   50IFPAGE>&E00 PROCr
   60MODE5:HIMEM=&4ABF
   70PROCrl
   80PROCi
   90PROCm
  100CLEAR:GOTO80
  110DEFPROCi I%=RND(-TIME)
  120PROCt
  130OSCLI"fx178":OSCLI"fx200,1":OSCLI"fx4,1":OSCLI"fx12,1":OSCLI"fx11,1":OSCLI"fx19":VDU23,254,255,255,255,255,255,255,255,255,23;8202;0;0;0;:ENVELOPE1,2,2,12,12,50,50,50,0,0,0,0,0,0:ENVELOPE2,5,1,-1,0,1,1,0,0,0,0,0,0,0:DIM f%(3):nums=&860
  140PROCsv:ENDPROC
  150DEF PROCn(i%,j%,k%) ?(nums+i%*10+j%)=k%:ENDPROC
  160DEF FNn(i%,j%)=?(nums+i%*10+j%)
  170DATA &5B90,&5F80,&60C0,0,&60A0,&5AA8,&5AB0,&5AB8,&7C70,&7CA8,&7CB0,&7CB8,&6840,&5CE0,&5E20,0,&5BC0,&7C20,&7AE0,0,&7B00,&5B88,&5B90,&5B98
  180DATA &5AF0,&5A88,&5A90,&5A98,&7C50,&5A88,&5A90,&5A98,&7C50,&6BE0,&6D20,0,&7240,&6460,&65A0,0,&6480,&7C88,&7C90,&7C98,&5AD0,&6960,&6820,0
  190DEF PROCm b%=0:PROCf:PROCtp:PROCin:REPEAT ?c=-1:col%=0:ov%=FALSE:REPEAT ?c=?c+1:IF(?c MOD 3)=0 col%=col%+1:PROCsc(col%)
  200IFcol%=1 b%=2 ELSEIFcol%=2 b%=6 ELSEIFcol%=3 b%=5 ELSEIFcol%=4 b%=1
  210PROCf:PROCmaps:PROCsq:!a=n:CALLs:VDU19,1,3;0;19,2,0;0;19,3,4;0;:PROCto:GCOL3,3:FORi%=0TO5:MOVE0,960:MOVE0,1023:PLOT85,1279,1023:MOVE1279,960:MOVE1279,1023:PLOT85,0,960:SOUND1,-10,200,1:FORj%=1TO500:NEXT:NEXT:GCOL0,0:PROCt
  220OSCLI"fx178,255":PROCplay:OSCLI"fx178":IF?c=11 ov%=TRUE
  230IFNOTov% IF s%=1 PROCov:ov%=TRUE:UNTILFALSE
  250UNTILs%=1 OR ?c=11:IF?c=11 AND s%<>1 PROCwin ELSEPROClose
  260ENDPROC
  270DEF PROCwin ?c=12:PROCf:CALLpm:n=&6C00:!a=n:CALLs:COLOUR130:PRINTSTRING$(40," "):VDU19,1,3;0;19,2,0;0;19,3,4;0;19,0,5;0;:OSCLI"fx178,255":tg%=0:f%(1)=&5C18:f%(2)=&5D58:f%(3)=0:PROCplay:PROCc:PROCs("Well Done!",584,932,8):*FX21
  280OSCLI"fx178,255":PROCto:RESTORE1250:PROCmusic(1):PROCt:*fx178
  290PROCto:n=&7380:!a=n:CALLs:FORI%=1TO18:CALLright:SOUND1,-15,100,1:OSCLI"FX19":OSCLI"FX15":NEXT:FORI%=1TO15:CALLmove:SOUND1,-15,112,1:OSCLI"FX19":OSCLI"FX15":NEXT:FORI%=1TO18:CALLright:SOUND1,-15,100,1:OSCLI"FX19":OSCLI"FX15":NEXT
  300X%=4:Y%=24:CALLr:key=INKEY(400):PROCt:ENDPROC
  310DEF PROCbox(a%,b%,c%,d%) w%=24:GCOL0,0:MOVEa%,b%:MOVEa%,d%:PLOT85,c%,d%:MOVEc%,b%:MOVEc%,d%:PLOT85,a%,b%:GCOL0,2:MOVEa%+8,b%+4:MOVEa%+8,d%-4:PLOT85,c%-8,d%-4:MOVEc%-8,b%+4:MOVEc%-8,d%-4:PLOT85,a%+8,b%+4
  320GCOL0,3:MOVEa%+w%,b%+w%:MOVEa%+w%,d%-w%:PLOT85,c%-w%,d%-w%:MOVEc%-w%,b%+w%:MOVEc%-w%,d%-w%:PLOT85,a%+w%,b%+w%:ENDPROC
  330DEFPROClose PROCbox(200,316,1076,900):PROCs("That was the",248,840,1):PROCs("wrong",478,784,9):PROCs("number!",430,692,9):PROCs("You have",380,560,1):PROCs("drowned in",312,500,1):PROCs("Sector "+CHR$(64+col%),384,432,9)
  340OSCLI"fx178,255":OSCLI"fx21"
  350PROCto:RESTORE1240:PROCmusic(2):PROCt:key=INKEY(500):OSCLI"fx178":ENDPROC
  360DEFPROCplay REPEATfin=INT(EVAL(STR$!a)/&10000):y%=(fin-&5800) DIV&140:x%=(fin-&5800) MOD&140 DIV8:OSCLI"fx21":key=INKEY(0)
  370IFkey=138 IF FNw(x%,y%+1)<>2 IF FNw(x%,y%+1)<>8 IF NOT(FNw(x%,y%)=&A AND xm%=0) IF NOT(y%=29ANDym%=0) IF NOT(FNw(x%,y%+1)=&C AND xm%>0) IF NOT(FNw(x%,y%+1)=&C AND xm%=0 AND ym%<>0) CALLdown
  380IFkey=139 IF y%>2 IF NOT ((FNw(x%,y%)=1 OR FNw(x%,y%)=6) AND ym%=1) IF NOT((FNw(x%,y%)=9 OR FNw(x%,y%)=&B) AND ym%=0 AND xm%=0) IF NOT(FNw(x%,y%-2)=4 AND xm%>0) CALLmove
  390IFkey=137 IF FNw(x%+1,y%)<>4 IF FNw(x%+1,y%)<>5 IF FNw(x%,y%)<>&C IF NOT(x%=36ANDxm%=0) IF NOT(FNw(x%,y%)=&B ANDxm%=0ANDym%=0) IF NOT(FNw(x%+1,y%)=&C ANDxm%=0ANDym%>=1) CALLright
  400IFkey=136 IF NOT((FNw(x%,y%)=&6 OR FNw(x%,y%)=&3)ANDxm%=1) IF NOT((FNw(x%,y%)=&A OR FNw(x%,y%)=&9)ANDxm%=0ANDym%=0) IF NOT(FNw(x%,y%)=&A ANDxm%=1ANDym%>=1) IF NOT(x%=0ANDxm%=0) CALLleft
  410s%=0:fin%=-1:IFfin<>f%(1) IFfin<>f%(2) IFfin<>f%(3) fin%=0
  420IFfin% IF tg%>0 THEN fin%=0
  430IF INKEY(-99) s%=FNok(x%,y%):IF s%=2 PROCw
  440UNTILfin%OR(INKEY(-113)ANDINKEY(-2)ANDINKEY(-106))ORs%=1
  450IFs%=1 PROCc
  460ENDPROC
  470DEF PROCw
  480PROCto:SOUND1,-10,150,2:X%=4:Y%=24:CALLr:GCOL0,3:PROCpf(FNn(ax%,ay%),ax%,ay%):X%=4:Y%=24:CALLs:PROCn(ax%,ay%,0):tg%=tg%-1:PROCt 
  490ENDPROC
  500DEF PROCc PROCto:SOUND0,-15,6,10:X%=4:Y%=24:CALLr:FORI%=0TO10:CALLs:X%=4:Y%=24:CALLr:NEXT:key=INKEY(100):OSCLI"fx15":PROCt:ENDPROC
  510DEF FNok(I%,J%) num%=0:K%=-3:REPEATK%=K%+1:w%=FNw(I%+K%,J%):IFax%<=8IFay%<=8 num%=FNn(ax%,ay%):IFnum%<10IFK%<0 num%=0
  520UNTIL K%=1 OR num%>0 OR ax%>8 OR ay%>8
  530IFnum%=0 THEN =3
  540=FNok2(num%)
  550DEF FNok2(num%) IFq%=1IFnum%MOD2=0 =2
  560IFq%=2IFnum%MOD2=1 =2
  570IFq%=3IFnum%<num1% =2
  580IFq%=4IFnum%>num1% =2
  590IFq%=5IFnum1%MODnum%=0 =2
  600IFq%=6IFnum%MODnum2%=0 =2
  610IFq%=7IF FNp(num%) THEN =2 
  620=1
  630DEF FNp(n%) RESTORE640:REPEAT READI%:UNTILI%=100 OR n%=I%:IFn%=I% THEN =-1 ELSE =0
  640DATA 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,100
  650DEF PROCs(A$,x%,y%,c%):LOCALa%,b%:VDU5,18,0,2:IFc%=9 z%=8 ELSEz%=4
  660FORa%=x%-8TOx%+8STEP8:FORb%=y%-z%TOy%+z%STEPz%:MOVEa%,b%:IFc%>5 PROCbig(A$) ELSEPRINTA$
  670NEXT,:MOVEx%,y%:IFc%>5 GCOL0,9-c%:PROCbig(A$) ELSEGCOL0,c%:PRINTA$
  680VDU4:ENDPROC 
  690DEF PROCsce(A$,y%,c%):PROCs(A$,640-(LENA$*32),y%,c%):ENDPROC
  700DEF PROCsc(col%) IFcol%=1 b%=2 ELSEIFcol%=2 b%=6 ELSEIFcol%=3 b%=5 ELSEIFcol%=4 b%=1
  710PROCf:PROCbox(330,432,950,812):PROCs("Entering",384,752,1):PROCs("Pipe",512,692,1):PROCs("Sector",448,632,1):PROCs(CHR$(64+col%),608,548,9):VDU4,19,1,3;0;19,2,0;0;19,3,4;0;:PROCto:SOUND1,1,1,24:OSCLI"fx178,255":OSCLI"fx21"
  720key%=INKEY(400):OSCLI"fx178":PROCt:OSCLI"FX15":ENDPROC
  730DEF FNw(x%,y%) ax%=x%DIV4:ay%=(y%-2)DIV3:wh%=scr0+(?c)*50+ay%*5+ax%DIV2:w%=?wh%:IFx%MOD8>=4 w%=w% AND &F ELSE w%=w% AND &F0:w%=w%DIV&F
  740ym%=(y%-2)MOD3:xm%=x%MOD8MOD4
  750=w%
  760DEF PROCmaps
  770RESTORE170:FORscr%=0TO?c:READn,f%(1),f%(2),f%(3):NEXT
  780?w=0
  790CALLpm:VDU17,3,31,0,0:PRINTSTRING$(40,CHR$254);:GCOL0,2:MOVE0,958:DRAW1280,958:MOVE0,954:ENDPROC
  800DEFPROCf:VDU17,128,12:FORI=0TO3:VDU19,I,b%;0;:NEXT:ENDPROC
  810DEFPROCtp FORJ=1TO3:VDU19,J,0;0;0;:NEXT:b%=2:?c=12:CALLpm:VDU17,2,31,0,0:PRINTSTRING$(40,CHR$254);:PROCs("SUB SEARCH",578,932,8):VDU17,0,17,131,31,1,29:PROCs("By A&S Weir",64,100,1):VDU19,2,0;0;19,3,5;0;
  820VDU19,0,3;0;19,1,3;0;:OSCLI"fx178,255":OSCLI"fx21":RESTORE1210:PROCmusic(1):OSCLI"fx178":ENDPROC
  830DEF PROCin VDU19,0,6;0;17,128,28,12,26,19,11,12,28,0,31,19,26,12,26:PROCs("Keys",908,602,1):!a=&70B0:CALLs:GCOL0,2:MOVE888+32,358
  840PLOT0,-32,0:PLOT81,0,16:PLOT0,32,0:PLOT81,0,-16:PLOT0,-32,-16:PLOT0,-32,24:PLOT81,32,24:PLOT0,-48,16:PLOT1,102,0:PLOT1,0,-80:PLOT1,-102,0:PLOT1,0,80
  850MOVE1132,358
  860PLOT0,32,0:PLOT81,0,16:PLOT0,-32,0:PLOT81,0,-16:PLOT0,32,-16:PLOT0,32,24:PLOT81,-32,24:PLOT0,48,16:PLOT1,-102,0:PLOT1,0,-80:PLOT1,102,0:PLOT1,0,80
  870MOVE984+32,450:PLOT0,0,32:PLOT81,16,0:PLOT0,0,-32:PLOT81,-16,0:PLOT0,-16,32:PLOT0,24,32:PLOT81,24,-32:PLOT0,16,48:PLOT1,0,-102:PLOT1,-80,0:PLOT1,0,102:PLOT1,80,0:MOVE984+32,286
  880PLOT0,0,-32:PLOT81,16,0:PLOT0,0,32:PLOT81,-16,0:PLOT0,-16,-32:PLOT0,24,-32:PLOT81,24,32:PLOT0,16,-48:PLOT1,0,102:PLOT1,-80,0:PLOT1,0,-102:PLOT1,80,0
  890PROCs("Collect",366,148,1)
  900PROCs("Number",382,88,1):VDU5,18,0,2:MOVE868,126:PROCbig("SPACE"):MOVE852,142:DRAW1200,142:DRAW1200,58:DRAW852,58:DRAW852,142
  910VDU4:OSCLI"fx178,255":OSCLI"fx21":key%=INKEY(10000):PROCf:OSCLI"fx178":ENDPROC
  920DEF PROCbig(A$) FORCH%=1TOLENA$:A%=ASCMID$(A$,CH%,1):CALLd:NEXT:ENDPROC
  930DEF PROCt !&58=&60586078:CALL&58:ENDPROC
  940DEF PROCto !&58=&60586078:CALL&5A:ENDPROC 
  950DEF PROCsq q%=RND(col%*2):num1%=RND(col%*20):num2%=RND(10):tg%=0:q%=q%+-7*(col%=4 AND q%=1):q%=q%+-6*(col%=4 AND q%=2):IFq%=8 q%=7
  960IF q%=5 REPEAT num1%=RND(col%*20):UNTIL NOT FNp(num1%) ANDnum1%>2 ANDnum1%<20
  970RESTORE1050:FORI%=1TOq%:READw$:NEXT:IFq%=3ORq%=4ORq%=5 w$=LEFT$(w$,LENw$-2)+STR$num1%
  980IFq%=6 w$=LEFT$(w$,LENw$-2)+STR$num2%
  990PROCs("Find "+w$,((20-(LENw$+5))/2)*64,1006,1):PROCfigures:ENDPROC
 1000DEF PROCov *FX178
 1010IFq%=1s$="an even number"ELSEIFq%=2s$="an odd number"ELSEIFq%=3 s$="less than "+STR$num1%ELSEIFq%=4s$="greater than "+STR$num1%ELSEIFq%=5s$="multiple of "+STR$num1%ELSEIFq%=6s$="factor of "+STR$num2%ELSEs$="a prime number"
 1020t$="No, "+STR$num%+" is not":IFq%=5ORq%=6 t$=t$+" a"
 1030PROCbox(120,400,1140,900):PROCsce(t$,840,9):PROCsce(s$+"!",744,9):PROCsce("But may the ",600,1):PROCsce("wash be with",550,1):PROCsce("you...      ",500,1):*fx178,255
 1040PROCto:OSCLI"FX15":RESTORE1260:PROCmusic(1):PROCt:ENDPROC
 1050DATA"EVEN numbers","ODD numbers","Numbers <   ","Numbers >   ","FACTORS of   ","MULTIPLES of   ","PRIME numbers"
 1060DEF PROCfigures FORtryy%=0TO8:FORtryx%=0TO8:yes%=-1:IF (tryx%+tryy%)MOD2=0 yes%=0
 1070IF yes% x2%=tryx%*4:y2%=tryy%*3+2:t%=FNw(x2%,y2%)
 1080IF yes% IF t%<>3 IF t%<>1 IF t%<>6 IF t%<>&B IF t%<>&A IF t%<>9 yes%=0
 1090IFyes% PROCg ELSE PROCn(tryx%,tryy%,0)
 1100NEXT,:ENDPROC
 1110DEFPROCg c%=RND(col%*20):IFq%=5 c%=RND(10)
 1120GCOL0,1:PROCpf(c%,tryx%,tryy%):PROCn(tryx%,tryy%,c%):IF FNok2(c%)=2 THEN tg%=tg%+1
 1130ENDPROC
 1140DEF PROCpf(fig%,I%,J%) VDU5:MOVE(I%*4+2)*32,1024-(J%*3+5)*32+16:PRINTSTR$fig%:VDU4:ENDPROC
 1150DEF PROCsv code=&4AC0:s=&4AC0:move=&4AF4:down=&4B0F:left=&4B2A:right=&4B68:pm=&4E0B:d=&54D8:scr0=&5572:a=&6E:w=&7E:c=&7F:r=&4BC2:ENDPROC
 1160DEF PROCmusic(m%)
 1170x%=0:REPEAT sam%=0:z%=x%:READx%,y%:IFz%=x% sam%=-1:SOUND1,0,0,1:y%=y%*2-1 ELSEy%=y%*2
 1180IFx%<>-1 IFx%=0 SOUND1,0,0,y%ELSESOUND1,12*(m%=1)+2,x%,y%
 1190UNTILINKEY(-99)ORx%=-1:IFx%=-1 key=INKEY(200) ELSE*fx15
 1200ENDPROC
 1210DATA96,2,100,1,108,8,96,1,88,2,96,1,80,8,0,1,96,2,96,1,88,2,80,1,68,5,68,1,96,2,96,1,88,8,88,1,96,2,100,1,108,8,96,1,88,2,96,1,80,8,0,1,96,2,96,1,88,2,80,1,68,5,68,1,96,2,96,1,88,14,0,1
 1220DATA108,3,108,3,108,3,108,2,116,1,88,2,88,1,88,2,88,1,88,5,88,1,88,2,88,1,88,2,88,1,88,5,88,1,80,2,80,1,80,2,80,1,80,6,108,3,108,3,108,3,108,2,116,1,88,2,88,1,88,2,88,1,88,5,88,1,88,2,88,1,88,2,88,1,88,5,88,1,80,2,80,1,80,2,80,1
 1230DATA80,5,-1,0
 1240DATA80,6,72,2,60,6,52,2,44,6,32,2,48,1,52,7,48,1,52,7,48,1,52,7,48,1,52,7,44,3,32,3,24,3,28,1,32,4,32,12,-1,0
 1250DATA80,2,88,2,96,2,100,2,116,2,128,2,128,4,116,2,100,2,80,2,88,2,100,2,136,2,136,4,120,2,108,2,96,2,80,2,96,2,108,2,128,4,120,2,112,2,116,2,100,2,0,6,148,2,-1,0
 1260DATA 148,8,176,8,168,2,164,2,156,2,164,2,148,8,128,16,136,8,184,8,176,2,172,2,164,2,172,2,156,8,192,16,156,8,208,1,204,1,200,4,180,2,184,2,224,2,28,1,32,1,8,1,160,1,-1,0
 1270DEFPROCr
 1280VDU22,6
 1290*KEY0 *TAPE|MD%=PAGE-&E00:FOR I%=PAGE TO TOP STEP4:!(I%-D%)=!I%:NEXT:?(TOP-D%)=255:PAGE=&E00|MOLD|MRUN|M
 1295OSCLI"fx21":OSCLI"fx138,0,128":END
 1300DEF PROCrl RESTORE1310:FORI%=&4AC0TO&57FCSTEP4:READd$:!I%=EVAL("&"+d$):NEXT:OSCLI"KEY0DEL.1310,4000|M70|MGOTO10|M":OSCLI"FX138,0,128":END
 1310DATA18A004A2,A54C1220,A570856E,2071856F,7CA54B7F,1F003C9,A004A260,856EA518,856FA570,4BC22071,70856EA5,71856FA5,604B3B4C,E96EA538,A56E8540,8501E96F,C97CA56F,2034F003,1A04B7F,18607C84,40696EA5,6FA56E85,6F850169,3C97CA5,7F2019F0
 1320DATA8402A04B,3A0607C,A5387C84,8508E96E,E96FA56E,A26F8500,2018A004,4A24BC2,122018A0,184BA94C,878D6069,694DA94C,4C888D00,18A004A2,A54C6A20,A570856E,6071856F,696EA518,A56E8508,8500696F,4B7F206F,7C8404A0,A9606060,A27E8501,2018A004
 1330DATA4A24BC2,122018A0,8D4BA94C,4DA94C87,A24C888D,2018A004,6EA54C6A,6FA57085,20607185,4A9FFE0,FE002C78,A258FBF0,8802A023,D0CAFDD0,788660FA,A27684,70A500A0,71A57485,76A57585,EBBD7785,E870914C,72970A5,9F007C9,11D070E6,F94C71E6,6970A54B
 1340DATAA5708538,85016971,D077C671,6974A5D9,85708508,6975A574,85718500,D078C675,6EA560C1,6FA57285,78867385,A27684,72A500A0,73A57485,76A57585,72B17785,E84CEB9D,72972A5,9F007C9,11D072E6,514C73E6,6972A54C,A5728538,85016973,D077C673,6974A5D9
 1350DATA85728508,6975A574,85738500,D078C675,6EA560C1,6FA57285,78867385,A27684,72A500A0,73A57485,76A57585,BD7785,A5808530,A51FF07E,857A8580,67A067B,67A067A,4A4A4A7A,57A054A,31FF497B,4C7B0572,80A54CB2,729102F0,2972A5E8,F007C907,D072E609
 1360DATA4C73E611,72A54CD2,72853869,16973A5,77C67385,74A5B0D0,72850869,75A57485,73850069,78C67585,6098D0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,50000000,87A5B4B4,B4B4A587,50,0,30101010,8787C361,F0F0F0F,F0F0F0F,61C38787,30
 1370DATA1E1E1EF0,8080D0F,F0F0808,F0F0F0F,F0F0F0F,E0B4,80000000,2C6848C0,1E1E3424,2C3C1E1E,C048682C,80,10000000,43612130,8787C242,43C38787,30216143,10,878787F0,1010B0F,F0F0101,F0F0F0F,F0F0F0F,70D2,C0808080,1E1E3C68,F0F0F0F,F0F0F0F
 1380DATA683C1E1E,C0,0,A0000000,1E5AD2D2,D2D25A1E,A0,A5000000,B9A80A7F,50854EBC,854EBDB9,8580A951,855AA952,8400A053,840AA056,4853A555,A94852A5,A5548505,A5798552,A47A8553,B156E656,4A4A4850,9A204A4A,6952A54E,A5798520,85006953,F29687A
 1390DATAA54E9A20,85406952,6953A552,C6538500,68C8D054,5285C069,85036968,D055C653,60B0,C00060,1800120,24001E0,30002A0,3C00360,4800420,54004E0,A80A05A0,694E7AB9,4C878DD8,694E7BB9,4C888D4E,18A004A2,6E8579A5,6F857AA5,604C6A20,55A45572
 1400DATA560855D6,566C563A,56D0569E,57345702,57985766,57FC57CA,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,F0F0000,F5F2F00F,FBFEF5FE,FFFBFFFE,FFFFFDFF,FFFFFFF7,F0F0000,F5F2F00F,FBFEF5FE,FFF6FFFE,F7FFFDFF,FFFFFFFF,F0F0000,FAF4F00F
 1410DATAFDF7FAF7,FFF6FFF7,FEFFFBFF,FFFFFFFF,F0F0000,FAF4F00F,FDF7FAF7,FFFDFFF7,FFFFFBFF,FFFFFFFE,F7FFFFFF,FFFDFFFF,FEFFFBFF,FEF5FEFB,FF0F2F5,F0F,FFFFFFFF,FFFDFFF7,FEFFF6FF,FEF5FEFB,FF0F2F5,F0F,FFFFFFFF,FFFBFFFE,F7FFF6FF,F7FAF7FD,FF0F4FA
 1420DATAF0F,FEFFFFFF,FFFBFFFF,F7FFFDFF,F7FAF7FD,FF0F4FA,F0F,16161616,16161616,16161616,16161616,16161616,16161616,F5FBF5FE,F5FBF5FE,F5FBF5FE,F5FBF5FE,F5FBF5FE,F5FBF5FE,FFF7FFFD,FFF7FFFD,FFF6FFFB,FFF7FFFD,FFF6FFFB,FFF7FFFD,FFFFFFFF
 1430DATAFFF7FFFF,FFFFFFFF,F7FFFFFF,FFFFFFFF,FFF7FFFF,FFFFFFFF,FFFEFFFF,FFFFFFFF,FEFFFFFF,FFFFFFFF,FFFEFFFF,FFFEFFFB,FFFEFFFB,FFF6FFFD,FFFEFFFB,FFF6FFFD,FFFEFFFB,FAFDFAF7,FAFDFAF7,FAFDFAF7,FAFDFAF7,FAFDFAF7,FAFDFAF7,86868686,86868686
 1440DATA86868686,86868686,86868686,86868686,F0E0000,F5FAF00F,FFF6FDFE,FFF7FEFB,FFFFFFFD,FFFFFFFF,8000000,E1C30F0E,FDFAF4F8,FFFAFDFA,FEFFFBFE,FFF7FEFF,0,C080000,C3C3860E,F4E9E9E1,FCFAF4FA,FDFAFDFA,0,0,0,C080808,E0C0C0C,86868686,0,0,0
 1450DATA3010101,7030303,16161616,0,3010000,3C3C1607,F2797978,F3F5F2F5,FBF5FBF5,1000000,783C0F07,FBF5F2F1,FFF5FBF5,F7FFFDF7,FFFEF7FF,F070000,FAF5F00F,FFF6FBF7,FFFEF7FD,FFFFFFFB,FFFFFFFF,FFFFFFFF,FDFFFFFF,FBFEF7FF,FEFDF6FF,FF0FAF5,E0F
 1460DATAFFFEF7FF,FEFBFFFE,FAFDFAFF,F8F4FAFD,E0FC3E1,8,FAFDFAFD,FAF4FAFC,E1E9E9F4,E86C3C3,80C,0,86868686,C0C0C0E,808080C,0,0,0,16161616,3030307,1010103,0,0,0,F5FBF5FB,F5F2F5F3,787979F2,7163C3C,103,0,FFF7FEFF,F7FDFFF7,F5FBF5FF,F1F2F5FB
 1470DATA70F3C78,1,FFFFFFFF,FBFFFFFF,FDF7FEFF,F7FBF6FF,FF0F5FA,70F,3C3C1616,FBF5F279,F5FEFBF6,FFFDFFFF,FFFFFFF7,FFFFFFFF,FBF5FBF6,FBF7FAF7,FFFDFFFE,FBFFFFFB,FFFFFFFF,FFFFFFFF,FFF7FDFF,FFFBFFFB,FFFBFFFF,FFFFFBFF,FFFFFFFF,FFFFFFFF,F7FFFFFF
 1480DATAFFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,F7FFFFFF,FFFFFDFF,F6FBFEF5,79F2F5FB,16163C3C,FFFFFFFF,FFFFFFFF,FBFFFFFB,FEFFFDFF,F7FAF7FB,F6FBF5FB,FFFFFFFF,FFFFFFFF,FFFBFFFF,FFFFFBFF,FBFFFBFF,FFFDF7FF,FFFFFFFF,FFFFFFFF
 1490DATAFFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFF7,FEFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFEFBFF,FFFDFFFD,FFFDFFFF,FFFFFDFF,FFFFFFFF,FFFFFFFF,FDFAFDF6,FDFEF5FE,FFFBFFF7,FDFFFFFD,FFFFFFFF,FFFFFFFF,C3C38686,FDFAF4E9,FAF7FDF6
 1500DATAFFFBFFFF,FFFFFFFE,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFE,FFFFFFFF,FFFFFFFF,FFFDFFFF,FFFFFDFF,FDFFFDFF,FFFBFEFF,FFFFFFFF,FFFFFFFF,FDFFFFFD,F7FFFBFF,FEF5FEFD,F6FDFAFD,FFFFFFFF,FEFFFFFF,FFFFFBFF,F6FDF7FA
 1510DATAE9F4FAFD,8686C3C3,11011101,11011101,11011101,11011101,11011101,11011101,77DD76BB,77DD76BB,77DD76BB,77DD76BB,77DD76BB,77DD76BB,F4FAFDFA,F4FAFDFA,F4FAFDFA,F4FAFDFA,F4FAFDFA,F4FAFDFA,80808080,80808080,80808080,80808080,80808080
 1520DATA80808080,0,BBEE55AF,FFFFFFFF,FBFEFFFF,F0F0FAF5,F0F0F0F0,0,BBEE55AF,FFFFFFFF,FBFEFFFF,F0F0FAF5,F0F0F0F0,0,BBEE55AF,FFFFFFFF,FBFEFFFF,F0F0FAF5,F0F0F0F0,0,BBEE55AF,FFFFFFFF,FBFEFFFF,F0F0FAF5,F0F0F0F0,11011101,66EEBB9D,EEEEEAEE
 1530DATAE4EAEEE4,E0E4E0EA,F0F0F0E0,FFDD76BB,FF777700,FFFFFEFF,FFF7FEFF,FFFFFEFF,FF007477,FFFAFDFA,F5EAEE00,F4FAFDFA,F4FAFDFA,F5FBFDFB,F400E0EE,88808080,6677DDAF,75777577,72757277,70727075,F0F0F0F0,A955218D,A021A20A,FFF12055,2A8D00A9
 1540DATA2017A955,2AADFFEE,20E00955,2AADFFEE,AA0A0A55,BDE804A0,EE205521,FFEE20FF,EEF3D088,2AAD552A,D002C955,BD04A2D4,EE20552B,F710CAFF,7360,63C603E,B02007C,E00A08E1,FEFFFF0D,FEFFFFFF,FEFFFFF7,7477FFFF,FDFAFF00,EE00FFFA,FDFAF5EA,FDFAF4FA
 1550DATAFDFBF4FA,E0EEF5FB,8080F400,DDAF8880,75776677,72777577,70757275,F0F07072,D00DF0F0,11340000,34151111,A4222222,11D60D34,D30D3494,D3427C2,340040D3,EE4EF3EF,40D30D34,D30D3400,D9411B1,272222D8,D04003,D64003D0,40031111,322C2D3,D040D340
 1560DATA4EF34EE3,D34003FE,4EE3D040,3FE4EF3,D04019B1,70222208,D00000D0,1106D000,3151111,A42222C2,D00D4003,EF4EE334,400334FE,E334D00D,34FEEF4E,D00D4003,11460334,43039411,32722C2,D04D43,151111D6,22C2D361,4EF33CA4,193434FE,3434D040,34D07022
 1570DATAFEEEFE34,11D63434,D3349411,342722C2,1111B1D3,2222D894,6152722,A4D05011,D040CA03,4E43E334,43E334FE,193BFE4E,82D04043,D0407322,40191161,22223CD0,113BD070,82111111,22222222,D000000,EEEEEE34,34EF,61340D00,94111111,2222223C,3427
 1580DATA113BD00D,82D05D11,D04D2A22,4F191111,222222FE,D334D07D,34000D40,501146D3,CA43D334,43D33440,D3344043,344043B9,407322D8,E3EFFE34,11113B4E,22824019,702222,DD0D0,34,116134D0,3C341511,3BA42222,34156194,A43C2782,34000D34,D3434,61343434
 1590DATA943B9411,8227223C,EEEE3427,1561FEEE,3C5D1106,4FCAE3A4,43E33434,334344F,3B344D43,34B14319,22782282,1111113B,2222825D,11614D2A,3C4D1911,7D222222,11111161,22223C5D,EE344D2A,34B1E3EE,22080000,50113B,402A820D,53110D00,2A5D11B1
 1600DATA4D2A2248,1911B1E3,2222084F,15617D22,3C5D1161,4D2A3CA4,3343494,3434274D,3BEE4D03,4FE394,4D032782,19116100,223C004D,34EE7D22,EFEEEE,D000034,D0003400,153B000D,82000DD0,60DD0A4,11D69411,D327C203,4003C2,4EE34DD3,E34FF3EE,4F1911B1
 1610DATA22222208,7D,15610DD0,3C000000,11116127,223C153B,34A48222,94111561,22A43C34,34343427,34941111,27222234,11113434,22349411,34272222,1966663C

� Sub Search
� By A & S Weir
� (c) Electron User
( 
2�>&E00 �r
<�5:�=&4ABF
F�rl
P�i
Z�m
d�:�DP@
n��i I%=�(-�)
x�t
��"fx178":�"fx200,1":�"fx4,1":�"fx12,1":�"fx11,1":�"fx19":�23,254,255,255,255,255,255,255,255,255,23;8202;0;0;0;:�1,2,2,12,12,50,50,50,0,0,0,0,0,0:�2,5,1,-1,0,1,1,0,0,0,0,0,0,0:� f%(3):nums=&860
�	�sv:�
�(� �n(i%,j%,k%) ?(nums+i%*10+j%)=k%:�
� � �n(i%,j%)=?(nums+i%*10+j%)
��� &5B90,&5F80,&60C0,0,&60A0,&5AA8,&5AB0,&5AB8,&7C70,&7CA8,&7CB0,&7CB8,&6840,&5CE0,&5E20,0,&5BC0,&7C20,&7AE0,0,&7B00,&5B88,&5B90,&5B98
��� &5AF0,&5A88,&5A90,&5A98,&7C50,&5A88,&5A90,&5A98,&7C50,&6BE0,&6D20,0,&7240,&6460,&65A0,0,&6480,&7C88,&7C90,&7C98,&5AD0,&6960,&6820,0
�Y� �m b%=0:�f:�tp:�in:� ?c=-1:col%=0:ov%=�:� ?c=?c+1:�(?c � 3)=0 col%=col%+1:�sc(col%)
�:�col%=1 b%=2 ��col%=2 b%=6 ��col%=3 b%=5 ��col%=4 b%=1
ҥ�f:�maps:�sq:!a=n:�s:�19,1,3;0;19,2,0;0;19,3,4;0;:�to:�3,3:�i%=0�5:�0,960:�0,1023:�85,1279,1023:�1279,960:�1279,1023:�85,0,960:�1,-10,200,1:�j%=1�500:�:�:�0,0:�t
�,�"fx178,255":�play:�"fx178":�?c=11 ov%=�
��ov% � s%=1 �ov:ov%=�:��
�,�s%=1 � ?c=11:�?c=11 � s%<>1 �win ��lose
�
�� �win ?c=12:�f:�pm:n=&6C00:!a=n:�s:�130:��40," "):�19,1,3;0;19,2,0;0;19,3,4;0;19,0,5;0;:�"fx178,255":tg%=0:f%(1)=&5C18:f%(2)=&5D58:f%(3)=0:�play:�c:�s("Well Done!",584,932,8):*FX21
.�"fx178,255":�to:��dbD:�music(1):�t:*fx178
"��to:n=&7380:!a=n:�s:�I%=1�18:�right:�1,-15,100,1:�"FX19":�"FX15":�:�I%=1�15:�move:�1,-15,112,1:�"FX19":�"FX15":�:�I%=1�18:�right:�1,-15,100,1:�"FX19":�"FX15":�
,!X%=4:Y%=24:�r:key=�(400):�t:�
6�� �box(a%,b%,c%,d%) w%=24:�0,0:�a%,b%:�a%,d%:�85,c%,d%:�c%,b%:�c%,d%:�85,a%,b%:�0,2:�a%+8,b%+4:�a%+8,d%-4:�85,c%-8,d%-4:�c%-8,b%+4:�c%-8,d%-4:�85,a%+8,b%+4
@^�0,3:�a%+w%,b%+w%:�a%+w%,d%-w%:�85,c%-w%,d%-w%:�c%-w%,b%+w%:�c%-w%,d%-w%:�85,a%+w%,b%+w%:�
J���lose �box(200,316,1076,900):�s("That was the",248,840,1):�s("wrong",478,784,9):�s("number!",430,692,9):�s("You have",380,560,1):�s("drowned in",312,500,1):�s("Sector "+�(64+col%),384,432,9)
T�"fx178,255":�"fx21"
^0�to:��dXD:�music(2):�t:key=�(500):�"fx178":�
h^��play �fin=�(�(�!a)/&10000):y%=(fin-&5800) �&140:x%=(fin-&5800) �&140 �8:�"fx21":key=�(0)
r��key=138 � �w(x%,y%+1)<>2 � �w(x%,y%+1)<>8 � �(�w(x%,y%)=&A � xm%=0) � �(y%=29�ym%=0) � �(�w(x%,y%+1)=&C � xm%>0) � �(�w(x%,y%+1)=&C � xm%=0 � ym%<>0) �down
|��key=139 � y%>2 � � ((�w(x%,y%)=1 � �w(x%,y%)=6) � ym%=1) � �((�w(x%,y%)=9 � �w(x%,y%)=&B) � ym%=0 � xm%=0) � �(�w(x%,y%-2)=4 � xm%>0) �move
���key=137 � �w(x%+1,y%)<>4 � �w(x%+1,y%)<>5 � �w(x%,y%)<>&C � �(x%=36�xm%=0) � �(�w(x%,y%)=&B �xm%=0�ym%=0) � �(�w(x%+1,y%)=&C �xm%=0�ym%>=1) �right
���key=136 � �((�w(x%,y%)=&6 � �w(x%,y%)=&3)�xm%=1) � �((�w(x%,y%)=&A � �w(x%,y%)=&9)�xm%=0�ym%=0) � �(�w(x%,y%)=&A �xm%=1�ym%>=1) � �(x%=0�xm%=0) �left
�;s%=0:fin%=-1:�fin<>f%(1) �fin<>f%(2) �fin<>f%(3) fin%=0
��fin% � tg%>0 � fin%=0
�$� �(-99) s%=�ok(x%,y%):� s%=2 �w
�&�fin%�(�(-113)��(-2)��(-106))�s%=1
��s%=1 �c
��
�� �w
�j�to:�1,-10,150,2:X%=4:Y%=24:�r:�0,3:�pf(�n(ax%,ay%),ax%,ay%):X%=4:Y%=24:�s:�n(ax%,ay%,0):tg%=tg%-1:�t 
��
�Z� �c �to:�0,-15,6,10:X%=4:Y%=24:�r:�I%=0�10:�s:X%=4:Y%=24:�r:�:key=�(100):�"fx15":�t:�
�k� �ok(I%,J%) num%=0:K%=-3:�K%=K%+1:w%=�w(I%+K%,J%):�ax%<=8�ay%<=8 num%=�n(ax%,ay%):�num%<10�K%<0 num%=0
#� K%=1 � num%>0 � ax%>8 � ay%>8
�num%=0 � =3
=�ok2(num%)
&"� �ok2(num%) �q%=1�num%�2=0 =2
0�q%=2�num%�2=1 =2
:�q%=3�num%<num1% =2
D�q%=4�num%>num1% =2
N�q%=5�num1%�num%=0 =2
X�q%=6�num%�num2%=0 =2
b�q%=7� �p(num%) � =2 
l=1
v:� �p(n%) ��t@B:� �I%:�I%=100 � n%=I%:�n%=I% � =-1 � =0
�P� 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,100
�7� �s(A$,x%,y%,c%):�a%,b%:�5,18,0,2:�c%=9 z%=8 �z%=4
�A�a%=x%-8�x%+8�8:�b%=y%-z%�y%+z%�z%:�a%,b%:�c%>5 �big(A$) ��A$
�/�,:�x%,y%:�c%>5 �0,9-c%:�big(A$) ��0,c%:�A$
�	�4:� 
�0� �sce(A$,y%,c%):�s(A$,640-(�A$*32),y%,c%):�
�F� �sc(col%) �col%=1 b%=2 ��col%=2 b%=6 ��col%=3 b%=5 ��col%=4 b%=1
Ƽ�f:�box(330,432,950,812):�s("Entering",384,752,1):�s("Pipe",512,692,1):�s("Sector",448,632,1):�s(�(64+col%),608,548,9):�4,19,1,3;0;19,2,0;0;19,3,4;0;:�to:�1,1,1,24:�"fx178,255":�"fx21"
�%key%=�(400):�"fx178":�t:�"FX15":�
�u� �w(x%,y%) ax%=x%�4:ay%=(y%-2)�3:wh%=scr0+(?c)*50+ay%*5+ax%�2:w%=?wh%:�x%�8>=4 w%=w% � &F � w%=w% � &F0:w%=w%�&F
�ym%=(y%-2)�3:xm%=x%�8�4
�=w%
�� �maps
+��tj@:�scr%=0�?c:�n,f%(1),f%(2),f%(3):�
?w=0
?�pm:�17,3,31,0,0:��40,�254);:�0,2:�0,958:�1280,958:�0,954:�
 )��f:�17,128,12:�I=0�3:�19,I,b%;0;:�:�
*���tp �J=1�3:�19,J,0;0;0;:�:b%=2:?c=12:�pm:�17,2,31,0,0:��40,�254);:�s("SUB SEARCH",578,932,8):�17,0,17,131,31,1,29:�s("By A&S Weir",64,100,1):�19,2,0;0;19,3,5;0;
4G�19,0,3;0;19,1,3;0;:�"fx178,255":�"fx21":��tzD:�music(1):�"fx178":�
>r� �in �19,0,6;0;17,128,28,12,26,19,11,12,28,0,31,19,26,12,26:�s("Keys",908,602,1):!a=&70B0:�s:�0,2:�888+32,358
Ht�0,-32,0:�81,0,16:�0,32,0:�81,0,-16:�0,-32,-16:�0,-32,24:�81,32,24:�0,-48,16:�1,102,0:�1,0,-80:�1,-102,0:�1,0,80
R
�1132,358
\r�0,32,0:�81,0,16:�0,-32,0:�81,0,-16:�0,32,-16:�0,32,24:�81,-32,24:�0,48,16:�1,-102,0:�1,0,-80:�1,102,0:�1,0,80
f��984+32,450:�0,0,32:�81,16,0:�0,0,-32:�81,-16,0:�0,-16,32:�0,24,32:�81,24,-32:�0,16,48:�1,0,-102:�1,-80,0:�1,0,102:�1,80,0:�984+32,286
pt�0,0,-32:�81,16,0:�0,0,32:�81,-16,0:�0,-16,-32:�0,24,-32:�81,24,32:�0,16,-48:�1,0,102:�1,-80,0:�1,0,-102:�1,80,0
z�s("Collect",366,148,1)
�g�s("Number",382,88,1):�5,18,0,2:�868,126:�big("SPACE"):�852,142:�1200,142:�1200,58:�852,58:�852,142
�7�4:�"fx178,255":�"fx21":key%=�(10000):�f:�"fx178":�
�/� �big(A$) �CH%=1��A$:A%=��A$,CH%,1):�d:�:�
�� �t !&58=&60586078:�&58:�
� � �to !&58=&60586078:�&5A:� 
�v� �sq q%=�(col%*2):num1%=�(col%*20):num2%=�(10):tg%=0:q%=q%+-7*(col%=4 � q%=1):q%=q%+-6*(col%=4 � q%=2):�q%=8 q%=7
�>� q%=5 � num1%=�(col%*20):� � �p(num1%) �num1%>2 �num1%<20
�=��TZD:�I%=1�q%:�w$:�:�q%=3�q%=4�q%=5 w$=�w$,�w$-2)+�num1%
��q%=6 w$=�w$,�w$-2)+�num2%
�8�s("Find "+w$,((20-(�w$+5))/2)*64,1006,1):�figures:�
�� �ov *FX178
��q%=1s$="an even number"��q%=2s$="an odd number"��q%=3 s$="less than "+�num1%��q%=4s$="greater than "+�num1%��q%=5s$="multiple of "+�num1%��q%=6s$="factor of "+�num2%�s$="a prime number"
�3t$="No, "+�num%+" is not":�q%=5�q%=6 t$=t$+" a"
��box(120,400,1140,900):�sce(t$,840,9):�sce(s$+"!",744,9):�sce("But may the ",600,1):�sce("wash be with",550,1):�sce("you...      ",500,1):*fx178,255
$�to:�"FX15":��dlD:�music(1):�t:�
q�"EVEN numbers","ODD numbers","Numbers <   ","Numbers >   ","FACTORS of   ","MULTIPLES of   ","PRIME numbers"
$G� �figures �tryy%=0�8:�tryx%=0�8:yes%=-1:� (tryx%+tryy%)�2=0 yes%=0
.3� yes% x2%=tryx%*4:y2%=tryy%*3+2:t%=�w(x2%,y2%)
8C� yes% � t%<>3 � t%<>1 � t%<>6 � t%<>&B � t%<>&A � t%<>9 yes%=0
B �yes% �g � �n(tryx%,tryy%,0)
L�,:�
V$��g c%=�(col%*20):�q%=5 c%=�(10)
`H�0,1:�pf(c%,tryx%,tryy%):�n(tryx%,tryy%,c%):� �ok2(c%)=2 � tg%=tg%+1
j�
tE� �pf(fig%,I%,J%) �5:�(I%*4+2)*32,1024-(J%*3+5)*32+16:��fig%:�4:�
~�� �sv code=&4AC0:s=&4AC0:move=&4AF4:down=&4B0F:left=&4B2A:right=&4B68:pm=&4E0B:d=&54D8:scr0=&5572:a=&6E:w=&7E:c=&7F:r=&4BC2:�
�� �music(m%)
�Ix%=0:� sam%=0:z%=x%:�x%,y%:�z%=x% sam%=-1:�1,0,0,1:y%=y%*2-1 �y%=y%*2
�0�x%<>-1 �x%=0 �1,0,0,y%��1,12*(m%=1)+2,x%,y%
�*��(-99)�x%=-1:�x%=-1 key=�(200) �*fx15
��
���96,2,100,1,108,8,96,1,88,2,96,1,80,8,0,1,96,2,96,1,88,2,80,1,68,5,68,1,96,2,96,1,88,8,88,1,96,2,100,1,108,8,96,1,88,2,96,1,80,8,0,1,96,2,96,1,88,2,80,1,68,5,68,1,96,2,96,1,88,14,0,1
���108,3,108,3,108,3,108,2,116,1,88,2,88,1,88,2,88,1,88,5,88,1,88,2,88,1,88,2,88,1,88,5,88,1,80,2,80,1,80,2,80,1,80,6,108,3,108,3,108,3,108,2,116,1,88,2,88,1,88,2,88,1,88,5,88,1,88,2,88,1,88,2,88,1,88,5,88,1,80,2,80,1,80,2,80,1
��80,5,-1,0
�n�80,6,72,2,60,6,52,2,44,6,32,2,48,1,52,7,48,1,52,7,48,1,52,7,48,1,52,7,44,3,32,3,24,3,28,1,32,4,32,12,-1,0
��80,2,88,2,96,2,100,2,116,2,128,2,128,4,116,2,100,2,80,2,88,2,100,2,136,2,136,4,120,2,108,2,96,2,80,2,96,2,108,2,128,4,120,2,112,2,116,2,100,2,0,6,148,2,-1,0
�� 148,8,176,8,168,2,164,2,156,2,164,2,148,8,128,16,136,8,184,8,176,2,172,2,164,2,172,2,156,8,192,16,156,8,208,1,204,1,200,4,180,2,184,2,224,2,28,1,32,1,8,1,160,1,-1,0
���r
	�22,6

l*KEY0 *TAPE|MD%=PAGE-&E00:FOR I%=PAGE TO TOP STEP4:!(I%-D%)=!I%:NEXT:?(TOP-D%)=255:PAGE=&E00|MOLD|MRUN|M
�"fx21":�"fx138,0,128":�
i� �rl ��T^E:�I%=&4AC0�&57FC�4:�d$:!I%=�("&"+d$):�:�"KEY0DEL.1310,4000|M70|MGOTO10|M":�"FX138,0,128":�
��18A004A2,A54C1220,A570856E,2071856F,7CA54B7F,1F003C9,A004A260,856EA518,856FA570,4BC22071,70856EA5,71856FA5,604B3B4C,E96EA538,A56E8540,8501E96F,C97CA56F,2034F003,1A04B7F,18607C84,40696EA5,6FA56E85,6F850169,3C97CA5,7F2019F0
(��8402A04B,3A0607C,A5387C84,8508E96E,E96FA56E,A26F8500,2018A004,4A24BC2,122018A0,184BA94C,878D6069,694DA94C,4C888D00,18A004A2,A54C6A20,A570856E,6071856F,696EA518,A56E8508,8500696F,4B7F206F,7C8404A0,A9606060,A27E8501,2018A004
2��4A24BC2,122018A0,8D4BA94C,4DA94C87,A24C888D,2018A004,6EA54C6A,6FA57085,20607185,4A9FFE0,FE002C78,A258FBF0,8802A023,D0CAFDD0,788660FA,A27684,70A500A0,71A57485,76A57585,EBBD7785,E870914C,72970A5,9F007C9,11D070E6,F94C71E6,6970A54B
<��A5708538,85016971,D077C671,6974A5D9,85708508,6975A574,85718500,D078C675,6EA560C1,6FA57285,78867385,A27684,72A500A0,73A57485,76A57585,72B17785,E84CEB9D,72972A5,9F007C9,11D072E6,514C73E6,6972A54C,A5728538,85016973,D077C673,6974A5D9
F��85728508,6975A574,85738500,D078C675,6EA560C1,6FA57285,78867385,A27684,72A500A0,73A57485,76A57585,BD7785,A5808530,A51FF07E,857A8580,67A067B,67A067A,4A4A4A7A,57A054A,31FF497B,4C7B0572,80A54CB2,729102F0,2972A5E8,F007C907,D072E609
P��4C73E611,72A54CD2,72853869,16973A5,77C67385,74A5B0D0,72850869,75A57485,73850069,78C67585,6098D0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,50000000,87A5B4B4,B4B4A587,50,0,30101010,8787C361,F0F0F0F,F0F0F0F,61C38787,30
Z��1E1E1EF0,8080D0F,F0F0808,F0F0F0F,F0F0F0F,E0B4,80000000,2C6848C0,1E1E3424,2C3C1E1E,C048682C,80,10000000,43612130,8787C242,43C38787,30216143,10,878787F0,1010B0F,F0F0101,F0F0F0F,F0F0F0F,70D2,C0808080,1E1E3C68,F0F0F0F,F0F0F0F
d��683C1E1E,C0,0,A0000000,1E5AD2D2,D2D25A1E,A0,A5000000,B9A80A7F,50854EBC,854EBDB9,8580A951,855AA952,8400A053,840AA056,4853A555,A94852A5,A5548505,A5798552,A47A8553,B156E656,4A4A4850,9A204A4A,6952A54E,A5798520,85006953,F29687A
n��A54E9A20,85406952,6953A552,C6538500,68C8D054,5285C069,85036968,D055C653,60B0,C00060,1800120,24001E0,30002A0,3C00360,4800420,54004E0,A80A05A0,694E7AB9,4C878DD8,694E7BB9,4C888D4E,18A004A2,6E8579A5,6F857AA5,604C6A20,55A45572
x��560855D6,566C563A,56D0569E,57345702,57985766,57FC57CA,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,F0F0000,F5F2F00F,FBFEF5FE,FFFBFFFE,FFFFFDFF,FFFFFFF7,F0F0000,F5F2F00F,FBFEF5FE,FFF6FFFE,F7FFFDFF,FFFFFFFF,F0F0000,FAF4F00F
���FDF7FAF7,FFF6FFF7,FEFFFBFF,FFFFFFFF,F0F0000,FAF4F00F,FDF7FAF7,FFFDFFF7,FFFFFBFF,FFFFFFFE,F7FFFFFF,FFFDFFFF,FEFFFBFF,FEF5FEFB,FF0F2F5,F0F,FFFFFFFF,FFFDFFF7,FEFFF6FF,FEF5FEFB,FF0F2F5,F0F,FFFFFFFF,FFFBFFFE,F7FFF6FF,F7FAF7FD,FF0F4FA
���F0F,FEFFFFFF,FFFBFFFF,F7FFFDFF,F7FAF7FD,FF0F4FA,F0F,16161616,16161616,16161616,16161616,16161616,16161616,F5FBF5FE,F5FBF5FE,F5FBF5FE,F5FBF5FE,F5FBF5FE,F5FBF5FE,FFF7FFFD,FFF7FFFD,FFF6FFFB,FFF7FFFD,FFF6FFFB,FFF7FFFD,FFFFFFFF
���FFF7FFFF,FFFFFFFF,F7FFFFFF,FFFFFFFF,FFF7FFFF,FFFFFFFF,FFFEFFFF,FFFFFFFF,FEFFFFFF,FFFFFFFF,FFFEFFFF,FFFEFFFB,FFFEFFFB,FFF6FFFD,FFFEFFFB,FFF6FFFD,FFFEFFFB,FAFDFAF7,FAFDFAF7,FAFDFAF7,FAFDFAF7,FAFDFAF7,FAFDFAF7,86868686,86868686
���86868686,86868686,86868686,86868686,F0E0000,F5FAF00F,FFF6FDFE,FFF7FEFB,FFFFFFFD,FFFFFFFF,8000000,E1C30F0E,FDFAF4F8,FFFAFDFA,FEFFFBFE,FFF7FEFF,0,C080000,C3C3860E,F4E9E9E1,FCFAF4FA,FDFAFDFA,0,0,0,C080808,E0C0C0C,86868686,0,0,0
���3010101,7030303,16161616,0,3010000,3C3C1607,F2797978,F3F5F2F5,FBF5FBF5,1000000,783C0F07,FBF5F2F1,FFF5FBF5,F7FFFDF7,FFFEF7FF,F070000,FAF5F00F,FFF6FBF7,FFFEF7FD,FFFFFFFB,FFFFFFFF,FFFFFFFF,FDFFFFFF,FBFEF7FF,FEFDF6FF,FF0FAF5,E0F
���FFFEF7FF,FEFBFFFE,FAFDFAFF,F8F4FAFD,E0FC3E1,8,FAFDFAFD,FAF4FAFC,E1E9E9F4,E86C3C3,80C,0,86868686,C0C0C0E,808080C,0,0,0,16161616,3030307,1010103,0,0,0,F5FBF5FB,F5F2F5F3,787979F2,7163C3C,103,0,FFF7FEFF,F7FDFFF7,F5FBF5FF,F1F2F5FB
���70F3C78,1,FFFFFFFF,FBFFFFFF,FDF7FEFF,F7FBF6FF,FF0F5FA,70F,3C3C1616,FBF5F279,F5FEFBF6,FFFDFFFF,FFFFFFF7,FFFFFFFF,FBF5FBF6,FBF7FAF7,FFFDFFFE,FBFFFFFB,FFFFFFFF,FFFFFFFF,FFF7FDFF,FFFBFFFB,FFFBFFFF,FFFFFBFF,FFFFFFFF,FFFFFFFF,F7FFFFFF
���FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,F7FFFFFF,FFFFFDFF,F6FBFEF5,79F2F5FB,16163C3C,FFFFFFFF,FFFFFFFF,FBFFFFFB,FEFFFDFF,F7FAF7FB,F6FBF5FB,FFFFFFFF,FFFFFFFF,FFFBFFFF,FFFFFBFF,FBFFFBFF,FFFDF7FF,FFFFFFFF,FFFFFFFF
���FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFF7,FEFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFEFBFF,FFFDFFFD,FFFDFFFF,FFFFFDFF,FFFFFFFF,FFFFFFFF,FDFAFDF6,FDFEF5FE,FFFBFFF7,FDFFFFFD,FFFFFFFF,FFFFFFFF,C3C38686,FDFAF4E9,FAF7FDF6
���FFFBFFFF,FFFFFFFE,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFF,FFFFFFFE,FFFFFFFF,FFFFFFFF,FFFDFFFF,FFFFFDFF,FDFFFDFF,FFFBFEFF,FFFFFFFF,FFFFFFFF,FDFFFFFD,F7FFFBFF,FEF5FEFD,F6FDFAFD,FFFFFFFF,FEFFFFFF,FFFFFBFF,F6FDF7FA
���E9F4FAFD,8686C3C3,11011101,11011101,11011101,11011101,11011101,11011101,77DD76BB,77DD76BB,77DD76BB,77DD76BB,77DD76BB,77DD76BB,F4FAFDFA,F4FAFDFA,F4FAFDFA,F4FAFDFA,F4FAFDFA,F4FAFDFA,80808080,80808080,80808080,80808080,80808080
���80808080,0,BBEE55AF,FFFFFFFF,FBFEFFFF,F0F0FAF5,F0F0F0F0,0,BBEE55AF,FFFFFFFF,FBFEFFFF,F0F0FAF5,F0F0F0F0,0,BBEE55AF,FFFFFFFF,FBFEFFFF,F0F0FAF5,F0F0F0F0,0,BBEE55AF,FFFFFFFF,FBFEFFFF,F0F0FAF5,F0F0F0F0,11011101,66EEBB9D,EEEEEAEE
���E4EAEEE4,E0E4E0EA,F0F0F0E0,FFDD76BB,FF777700,FFFFFEFF,FFF7FEFF,FFFFFEFF,FF007477,FFFAFDFA,F5EAEE00,F4FAFDFA,F4FAFDFA,F5FBFDFB,F400E0EE,88808080,6677DDAF,75777577,72757277,70727075,F0F0F0F0,A955218D,A021A20A,FFF12055,2A8D00A9
��2017A955,2AADFFEE,20E00955,2AADFFEE,AA0A0A55,BDE804A0,EE205521,FFEE20FF,EEF3D088,2AAD552A,D002C955,BD04A2D4,EE20552B,F710CAFF,7360,63C603E,B02007C,E00A08E1,FEFFFF0D,FEFFFFFF,FEFFFFF7,7477FFFF,FDFAFF00,EE00FFFA,FDFAF5EA,FDFAF4FA
��FDFBF4FA,E0EEF5FB,8080F400,DDAF8880,75776677,72777577,70757275,F0F07072,D00DF0F0,11340000,34151111,A4222222,11D60D34,D30D3494,D3427C2,340040D3,EE4EF3EF,40D30D34,D30D3400,D9411B1,272222D8,D04003,D64003D0,40031111,322C2D3,D040D340
��4EF34EE3,D34003FE,4EE3D040,3FE4EF3,D04019B1,70222208,D00000D0,1106D000,3151111,A42222C2,D00D4003,EF4EE334,400334FE,E334D00D,34FEEF4E,D00D4003,11460334,43039411,32722C2,D04D43,151111D6,22C2D361,4EF33CA4,193434FE,3434D040,34D07022
"��FEEEFE34,11D63434,D3349411,342722C2,1111B1D3,2222D894,6152722,A4D05011,D040CA03,4E43E334,43E334FE,193BFE4E,82D04043,D0407322,40191161,22223CD0,113BD070,82111111,22222222,D000000,EEEEEE34,34EF,61340D00,94111111,2222223C,3427
,��113BD00D,82D05D11,D04D2A22,4F191111,222222FE,D334D07D,34000D40,501146D3,CA43D334,43D33440,D3344043,344043B9,407322D8,E3EFFE34,11113B4E,22824019,702222,DD0D0,34,116134D0,3C341511,3BA42222,34156194,A43C2782,34000D34,D3434,61343434
6��943B9411,8227223C,EEEE3427,1561FEEE,3C5D1106,4FCAE3A4,43E33434,334344F,3B344D43,34B14319,22782282,1111113B,2222825D,11614D2A,3C4D1911,7D222222,11111161,22223C5D,EE344D2A,34B1E3EE,22080000,50113B,402A820D,53110D00,2A5D11B1
@��4D2A2248,1911B1E3,2222084F,15617D22,3C5D1161,4D2A3CA4,3343494,3434274D,3BEE4D03,4FE394,4D032782,19116100,223C004D,34EE7D22,EFEEEE,D000034,D0003400,153B000D,82000DD0,60DD0A4,11D69411,D327C203,4003C2,4EE34DD3,E34FF3EE,4F1911B1
J��22222208,7D,15610DD0,3C000000,11116127,223C153B,34A48222,94111561,22A43C34,34343427,34941111,27222234,11113434,22349411,34272222,1966663C
�
00000000  0d 00 0a 10 f4 20 53 75  62 20 53 65 61 72 63 68  |..... Sub Search|
00000010  0d 00 14 13 f4 20 42 79  20 41 20 26 20 53 20 57  |..... By A & S W|
00000020  65 69 72 0d 00 1e 17 f4  20 28 63 29 20 45 6c 65  |eir..... (c) Ele|
00000030  63 74 72 6f 6e 20 55 73  65 72 0d 00 28 05 20 0d  |ctron User..(. .|
00000040  00 32 0e e7 90 3e 26 45  30 30 20 f2 72 0d 00 3c  |.2...>&E00 .r..<|
00000050  0e eb 35 3a d3 3d 26 34  41 42 46 0d 00 46 07 f2  |..5:.=&4ABF..F..|
00000060  72 6c 0d 00 50 06 f2 69  0d 00 5a 06 f2 6d 0d 00  |rl..P..i..Z..m..|
00000070  64 0b d8 3a e5 8d 44 50  40 0d 00 6e 10 dd f2 69  |d..:..DP@..n...i|
00000080  20 49 25 3d b3 28 2d 91  29 0d 00 78 06 f2 74 0d  | I%=.(-.)..x..t.|
00000090  00 82 c5 ff 22 66 78 31  37 38 22 3a ff 22 66 78  |...."fx178":."fx|
000000a0  32 30 30 2c 31 22 3a ff  22 66 78 34 2c 31 22 3a  |200,1":."fx4,1":|
000000b0  ff 22 66 78 31 32 2c 31  22 3a ff 22 66 78 31 31  |."fx12,1":."fx11|
000000c0  2c 31 22 3a ff 22 66 78  31 39 22 3a ef 32 33 2c  |,1":."fx19":.23,|
000000d0  32 35 34 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |254,255,255,255,|
000000e0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
000000f0  32 35 35 2c 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |255,23;8202;0;0;|
00000100  30 3b 3a e2 31 2c 32 2c  32 2c 31 32 2c 31 32 2c  |0;:.1,2,2,12,12,|
00000110  35 30 2c 35 30 2c 35 30  2c 30 2c 30 2c 30 2c 30  |50,50,50,0,0,0,0|
00000120  2c 30 2c 30 3a e2 32 2c  35 2c 31 2c 2d 31 2c 30  |,0,0:.2,5,1,-1,0|
00000130  2c 31 2c 31 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,1,1,0,0,0,0,0,0|
00000140  2c 30 3a de 20 66 25 28  33 29 3a 6e 75 6d 73 3d  |,0:. f%(3):nums=|
00000150  26 38 36 30 0d 00 8c 09  f2 73 76 3a e1 0d 00 96  |&860.....sv:....|
00000160  28 dd 20 f2 6e 28 69 25  2c 6a 25 2c 6b 25 29 20  |(. .n(i%,j%,k%) |
00000170  3f 28 6e 75 6d 73 2b 69  25 2a 31 30 2b 6a 25 29  |?(nums+i%*10+j%)|
00000180  3d 6b 25 3a e1 0d 00 a0  20 dd 20 a4 6e 28 69 25  |=k%:.... . .n(i%|
00000190  2c 6a 25 29 3d 3f 28 6e  75 6d 73 2b 69 25 2a 31  |,j%)=?(nums+i%*1|
000001a0  30 2b 6a 25 29 0d 00 aa  89 dc 20 26 35 42 39 30  |0+j%)..... &5B90|
000001b0  2c 26 35 46 38 30 2c 26  36 30 43 30 2c 30 2c 26  |,&5F80,&60C0,0,&|
000001c0  36 30 41 30 2c 26 35 41  41 38 2c 26 35 41 42 30  |60A0,&5AA8,&5AB0|
000001d0  2c 26 35 41 42 38 2c 26  37 43 37 30 2c 26 37 43  |,&5AB8,&7C70,&7C|
000001e0  41 38 2c 26 37 43 42 30  2c 26 37 43 42 38 2c 26  |A8,&7CB0,&7CB8,&|
000001f0  36 38 34 30 2c 26 35 43  45 30 2c 26 35 45 32 30  |6840,&5CE0,&5E20|
00000200  2c 30 2c 26 35 42 43 30  2c 26 37 43 32 30 2c 26  |,0,&5BC0,&7C20,&|
00000210  37 41 45 30 2c 30 2c 26  37 42 30 30 2c 26 35 42  |7AE0,0,&7B00,&5B|
00000220  38 38 2c 26 35 42 39 30  2c 26 35 42 39 38 0d 00  |88,&5B90,&5B98..|
00000230  b4 89 dc 20 26 35 41 46  30 2c 26 35 41 38 38 2c  |... &5AF0,&5A88,|
00000240  26 35 41 39 30 2c 26 35  41 39 38 2c 26 37 43 35  |&5A90,&5A98,&7C5|
00000250  30 2c 26 35 41 38 38 2c  26 35 41 39 30 2c 26 35  |0,&5A88,&5A90,&5|
00000260  41 39 38 2c 26 37 43 35  30 2c 26 36 42 45 30 2c  |A98,&7C50,&6BE0,|
00000270  26 36 44 32 30 2c 30 2c  26 37 32 34 30 2c 26 36  |&6D20,0,&7240,&6|
00000280  34 36 30 2c 26 36 35 41  30 2c 30 2c 26 36 34 38  |460,&65A0,0,&648|
00000290  30 2c 26 37 43 38 38 2c  26 37 43 39 30 2c 26 37  |0,&7C88,&7C90,&7|
000002a0  43 39 38 2c 26 35 41 44  30 2c 26 36 39 36 30 2c  |C98,&5AD0,&6960,|
000002b0  26 36 38 32 30 2c 30 0d  00 be 59 dd 20 f2 6d 20  |&6820,0...Y. .m |
000002c0  62 25 3d 30 3a f2 66 3a  f2 74 70 3a f2 69 6e 3a  |b%=0:.f:.tp:.in:|
000002d0  f5 20 3f 63 3d 2d 31 3a  63 6f 6c 25 3d 30 3a 6f  |. ?c=-1:col%=0:o|
000002e0  76 25 3d a3 3a f5 20 3f  63 3d 3f 63 2b 31 3a e7  |v%=.:. ?c=?c+1:.|
000002f0  28 3f 63 20 83 20 33 29  3d 30 20 63 6f 6c 25 3d  |(?c . 3)=0 col%=|
00000300  63 6f 6c 25 2b 31 3a f2  73 63 28 63 6f 6c 25 29  |col%+1:.sc(col%)|
00000310  0d 00 c8 3a e7 63 6f 6c  25 3d 31 20 62 25 3d 32  |...:.col%=1 b%=2|
00000320  20 8b e7 63 6f 6c 25 3d  32 20 62 25 3d 36 20 8b  | ..col%=2 b%=6 .|
00000330  e7 63 6f 6c 25 3d 33 20  62 25 3d 35 20 8b e7 63  |.col%=3 b%=5 ..c|
00000340  6f 6c 25 3d 34 20 62 25  3d 31 0d 00 d2 a5 f2 66  |ol%=4 b%=1.....f|
00000350  3a f2 6d 61 70 73 3a f2  73 71 3a 21 61 3d 6e 3a  |:.maps:.sq:!a=n:|
00000360  d6 73 3a ef 31 39 2c 31  2c 33 3b 30 3b 31 39 2c  |.s:.19,1,3;0;19,|
00000370  32 2c 30 3b 30 3b 31 39  2c 33 2c 34 3b 30 3b 3a  |2,0;0;19,3,4;0;:|
00000380  f2 74 6f 3a e6 33 2c 33  3a e3 69 25 3d 30 b8 35  |.to:.3,3:.i%=0.5|
00000390  3a ec 30 2c 39 36 30 3a  ec 30 2c 31 30 32 33 3a  |:.0,960:.0,1023:|
000003a0  f0 38 35 2c 31 32 37 39  2c 31 30 32 33 3a ec 31  |.85,1279,1023:.1|
000003b0  32 37 39 2c 39 36 30 3a  ec 31 32 37 39 2c 31 30  |279,960:.1279,10|
000003c0  32 33 3a f0 38 35 2c 30  2c 39 36 30 3a d4 31 2c  |23:.85,0,960:.1,|
000003d0  2d 31 30 2c 32 30 30 2c  31 3a e3 6a 25 3d 31 b8  |-10,200,1:.j%=1.|
000003e0  35 30 30 3a ed 3a ed 3a  e6 30 2c 30 3a f2 74 0d  |500:.:.:.0,0:.t.|
000003f0  00 dc 2c ff 22 66 78 31  37 38 2c 32 35 35 22 3a  |..,."fx178,255":|
00000400  f2 70 6c 61 79 3a ff 22  66 78 31 37 38 22 3a e7  |.play:."fx178":.|
00000410  3f 63 3d 31 31 20 6f 76  25 3d b9 0d 00 e6 1d e7  |?c=11 ov%=......|
00000420  ac 6f 76 25 20 e7 20 73  25 3d 31 20 f2 6f 76 3a  |.ov% . s%=1 .ov:|
00000430  6f 76 25 3d b9 3a fd a3  0d 00 fa 2c fd 73 25 3d  |ov%=.:.....,.s%=|
00000440  31 20 84 20 3f 63 3d 31  31 3a e7 3f 63 3d 31 31  |1 . ?c=11:.?c=11|
00000450  20 80 20 73 25 3c 3e 31  20 f2 77 69 6e 20 8b f2  | . s%<>1 .win ..|
00000460  6c 6f 73 65 0d 01 04 05  e1 0d 01 0e b9 dd 20 f2  |lose.......... .|
00000470  77 69 6e 20 3f 63 3d 31  32 3a f2 66 3a d6 70 6d  |win ?c=12:.f:.pm|
00000480  3a 6e 3d 26 36 43 30 30  3a 21 61 3d 6e 3a d6 73  |:n=&6C00:!a=n:.s|
00000490  3a fb 31 33 30 3a f1 c4  34 30 2c 22 20 22 29 3a  |:.130:..40," "):|
000004a0  ef 31 39 2c 31 2c 33 3b  30 3b 31 39 2c 32 2c 30  |.19,1,3;0;19,2,0|
000004b0  3b 30 3b 31 39 2c 33 2c  34 3b 30 3b 31 39 2c 30  |;0;19,3,4;0;19,0|
000004c0  2c 35 3b 30 3b 3a ff 22  66 78 31 37 38 2c 32 35  |,5;0;:."fx178,25|
000004d0  35 22 3a 74 67 25 3d 30  3a 66 25 28 31 29 3d 26  |5":tg%=0:f%(1)=&|
000004e0  35 43 31 38 3a 66 25 28  32 29 3d 26 35 44 35 38  |5C18:f%(2)=&5D58|
000004f0  3a 66 25 28 33 29 3d 30  3a f2 70 6c 61 79 3a f2  |:f%(3)=0:.play:.|
00000500  63 3a f2 73 28 22 57 65  6c 6c 20 44 6f 6e 65 21  |c:.s("Well Done!|
00000510  22 2c 35 38 34 2c 39 33  32 2c 38 29 3a 2a 46 58  |",584,932,8):*FX|
00000520  32 31 0d 01 18 2e ff 22  66 78 31 37 38 2c 32 35  |21....."fx178,25|
00000530  35 22 3a f2 74 6f 3a f7  8d 64 62 44 3a f2 6d 75  |5":.to:..dbD:.mu|
00000540  73 69 63 28 31 29 3a f2  74 3a 2a 66 78 31 37 38  |sic(1):.t:*fx178|
00000550  0d 01 22 a3 f2 74 6f 3a  6e 3d 26 37 33 38 30 3a  |.."..to:n=&7380:|
00000560  21 61 3d 6e 3a d6 73 3a  e3 49 25 3d 31 b8 31 38  |!a=n:.s:.I%=1.18|
00000570  3a d6 72 69 67 68 74 3a  d4 31 2c 2d 31 35 2c 31  |:.right:.1,-15,1|
00000580  30 30 2c 31 3a ff 22 46  58 31 39 22 3a ff 22 46  |00,1:."FX19":."F|
00000590  58 31 35 22 3a ed 3a e3  49 25 3d 31 b8 31 35 3a  |X15":.:.I%=1.15:|
000005a0  d6 6d 6f 76 65 3a d4 31  2c 2d 31 35 2c 31 31 32  |.move:.1,-15,112|
000005b0  2c 31 3a ff 22 46 58 31  39 22 3a ff 22 46 58 31  |,1:."FX19":."FX1|
000005c0  35 22 3a ed 3a e3 49 25  3d 31 b8 31 38 3a d6 72  |5":.:.I%=1.18:.r|
000005d0  69 67 68 74 3a d4 31 2c  2d 31 35 2c 31 30 30 2c  |ight:.1,-15,100,|
000005e0  31 3a ff 22 46 58 31 39  22 3a ff 22 46 58 31 35  |1:."FX19":."FX15|
000005f0  22 3a ed 0d 01 2c 21 58  25 3d 34 3a 59 25 3d 32  |":...,!X%=4:Y%=2|
00000600  34 3a d6 72 3a 6b 65 79  3d a6 28 34 30 30 29 3a  |4:.r:key=.(400):|
00000610  f2 74 3a e1 0d 01 36 9f  dd 20 f2 62 6f 78 28 61  |.t:...6.. .box(a|
00000620  25 2c 62 25 2c 63 25 2c  64 25 29 20 77 25 3d 32  |%,b%,c%,d%) w%=2|
00000630  34 3a e6 30 2c 30 3a ec  61 25 2c 62 25 3a ec 61  |4:.0,0:.a%,b%:.a|
00000640  25 2c 64 25 3a f0 38 35  2c 63 25 2c 64 25 3a ec  |%,d%:.85,c%,d%:.|
00000650  63 25 2c 62 25 3a ec 63  25 2c 64 25 3a f0 38 35  |c%,b%:.c%,d%:.85|
00000660  2c 61 25 2c 62 25 3a e6  30 2c 32 3a ec 61 25 2b  |,a%,b%:.0,2:.a%+|
00000670  38 2c 62 25 2b 34 3a ec  61 25 2b 38 2c 64 25 2d  |8,b%+4:.a%+8,d%-|
00000680  34 3a f0 38 35 2c 63 25  2d 38 2c 64 25 2d 34 3a  |4:.85,c%-8,d%-4:|
00000690  ec 63 25 2d 38 2c 62 25  2b 34 3a ec 63 25 2d 38  |.c%-8,b%+4:.c%-8|
000006a0  2c 64 25 2d 34 3a f0 38  35 2c 61 25 2b 38 2c 62  |,d%-4:.85,a%+8,b|
000006b0  25 2b 34 0d 01 40 5e e6  30 2c 33 3a ec 61 25 2b  |%+4..@^.0,3:.a%+|
000006c0  77 25 2c 62 25 2b 77 25  3a ec 61 25 2b 77 25 2c  |w%,b%+w%:.a%+w%,|
000006d0  64 25 2d 77 25 3a f0 38  35 2c 63 25 2d 77 25 2c  |d%-w%:.85,c%-w%,|
000006e0  64 25 2d 77 25 3a ec 63  25 2d 77 25 2c 62 25 2b  |d%-w%:.c%-w%,b%+|
000006f0  77 25 3a ec 63 25 2d 77  25 2c 64 25 2d 77 25 3a  |w%:.c%-w%,d%-w%:|
00000700  f0 38 35 2c 61 25 2b 77  25 2c 62 25 2b 77 25 3a  |.85,a%+w%,b%+w%:|
00000710  e1 0d 01 4a c3 dd f2 6c  6f 73 65 20 f2 62 6f 78  |...J...lose .box|
00000720  28 32 30 30 2c 33 31 36  2c 31 30 37 36 2c 39 30  |(200,316,1076,90|
00000730  30 29 3a f2 73 28 22 54  68 61 74 20 77 61 73 20  |0):.s("That was |
00000740  74 68 65 22 2c 32 34 38  2c 38 34 30 2c 31 29 3a  |the",248,840,1):|
00000750  f2 73 28 22 77 72 6f 6e  67 22 2c 34 37 38 2c 37  |.s("wrong",478,7|
00000760  38 34 2c 39 29 3a f2 73  28 22 6e 75 6d 62 65 72  |84,9):.s("number|
00000770  21 22 2c 34 33 30 2c 36  39 32 2c 39 29 3a f2 73  |!",430,692,9):.s|
00000780  28 22 59 6f 75 20 68 61  76 65 22 2c 33 38 30 2c  |("You have",380,|
00000790  35 36 30 2c 31 29 3a f2  73 28 22 64 72 6f 77 6e  |560,1):.s("drown|
000007a0  65 64 20 69 6e 22 2c 33  31 32 2c 35 30 30 2c 31  |ed in",312,500,1|
000007b0  29 3a f2 73 28 22 53 65  63 74 6f 72 20 22 2b bd  |):.s("Sector "+.|
000007c0  28 36 34 2b 63 6f 6c 25  29 2c 33 38 34 2c 34 33  |(64+col%),384,43|
000007d0  32 2c 39 29 0d 01 54 18  ff 22 66 78 31 37 38 2c  |2,9)..T.."fx178,|
000007e0  32 35 35 22 3a ff 22 66  78 32 31 22 0d 01 5e 30  |255":."fx21"..^0|
000007f0  f2 74 6f 3a f7 8d 64 58  44 3a f2 6d 75 73 69 63  |.to:..dXD:.music|
00000800  28 32 29 3a f2 74 3a 6b  65 79 3d a6 28 35 30 30  |(2):.t:key=.(500|
00000810  29 3a ff 22 66 78 31 37  38 22 3a e1 0d 01 68 5e  |):."fx178":...h^|
00000820  dd f2 70 6c 61 79 20 f5  66 69 6e 3d a8 28 a0 28  |..play .fin=.(.(|
00000830  c3 21 61 29 2f 26 31 30  30 30 30 29 3a 79 25 3d  |.!a)/&10000):y%=|
00000840  28 66 69 6e 2d 26 35 38  30 30 29 20 81 26 31 34  |(fin-&5800) .&14|
00000850  30 3a 78 25 3d 28 66 69  6e 2d 26 35 38 30 30 29  |0:x%=(fin-&5800)|
00000860  20 83 26 31 34 30 20 81  38 3a ff 22 66 78 32 31  | .&140 .8:."fx21|
00000870  22 3a 6b 65 79 3d a6 28  30 29 0d 01 72 a0 e7 6b  |":key=.(0)..r..k|
00000880  65 79 3d 31 33 38 20 e7  20 a4 77 28 78 25 2c 79  |ey=138 . .w(x%,y|
00000890  25 2b 31 29 3c 3e 32 20  e7 20 a4 77 28 78 25 2c  |%+1)<>2 . .w(x%,|
000008a0  79 25 2b 31 29 3c 3e 38  20 e7 20 ac 28 a4 77 28  |y%+1)<>8 . .(.w(|
000008b0  78 25 2c 79 25 29 3d 26  41 20 80 20 78 6d 25 3d  |x%,y%)=&A . xm%=|
000008c0  30 29 20 e7 20 ac 28 79  25 3d 32 39 80 79 6d 25  |0) . .(y%=29.ym%|
000008d0  3d 30 29 20 e7 20 ac 28  a4 77 28 78 25 2c 79 25  |=0) . .(.w(x%,y%|
000008e0  2b 31 29 3d 26 43 20 80  20 78 6d 25 3e 30 29 20  |+1)=&C . xm%>0) |
000008f0  e7 20 ac 28 a4 77 28 78  25 2c 79 25 2b 31 29 3d  |. .(.w(x%,y%+1)=|
00000900  26 43 20 80 20 78 6d 25  3d 30 20 80 20 79 6d 25  |&C . xm%=0 . ym%|
00000910  3c 3e 30 29 20 d6 64 6f  77 6e 0d 01 7c 90 e7 6b  |<>0) .down..|..k|
00000920  65 79 3d 31 33 39 20 e7  20 79 25 3e 32 20 e7 20  |ey=139 . y%>2 . |
00000930  ac 20 28 28 a4 77 28 78  25 2c 79 25 29 3d 31 20  |. ((.w(x%,y%)=1 |
00000940  84 20 a4 77 28 78 25 2c  79 25 29 3d 36 29 20 80  |. .w(x%,y%)=6) .|
00000950  20 79 6d 25 3d 31 29 20  e7 20 ac 28 28 a4 77 28  | ym%=1) . .((.w(|
00000960  78 25 2c 79 25 29 3d 39  20 84 20 a4 77 28 78 25  |x%,y%)=9 . .w(x%|
00000970  2c 79 25 29 3d 26 42 29  20 80 20 79 6d 25 3d 30  |,y%)=&B) . ym%=0|
00000980  20 80 20 78 6d 25 3d 30  29 20 e7 20 ac 28 a4 77  | . xm%=0) . .(.w|
00000990  28 78 25 2c 79 25 2d 32  29 3d 34 20 80 20 78 6d  |(x%,y%-2)=4 . xm|
000009a0  25 3e 30 29 20 d6 6d 6f  76 65 0d 01 86 97 e7 6b  |%>0) .move.....k|
000009b0  65 79 3d 31 33 37 20 e7  20 a4 77 28 78 25 2b 31  |ey=137 . .w(x%+1|
000009c0  2c 79 25 29 3c 3e 34 20  e7 20 a4 77 28 78 25 2b  |,y%)<>4 . .w(x%+|
000009d0  31 2c 79 25 29 3c 3e 35  20 e7 20 a4 77 28 78 25  |1,y%)<>5 . .w(x%|
000009e0  2c 79 25 29 3c 3e 26 43  20 e7 20 ac 28 78 25 3d  |,y%)<>&C . .(x%=|
000009f0  33 36 80 78 6d 25 3d 30  29 20 e7 20 ac 28 a4 77  |36.xm%=0) . .(.w|
00000a00  28 78 25 2c 79 25 29 3d  26 42 20 80 78 6d 25 3d  |(x%,y%)=&B .xm%=|
00000a10  30 80 79 6d 25 3d 30 29  20 e7 20 ac 28 a4 77 28  |0.ym%=0) . .(.w(|
00000a20  78 25 2b 31 2c 79 25 29  3d 26 43 20 80 78 6d 25  |x%+1,y%)=&C .xm%|
00000a30  3d 30 80 79 6d 25 3e 3d  31 29 20 d6 72 69 67 68  |=0.ym%>=1) .righ|
00000a40  74 0d 01 90 9a e7 6b 65  79 3d 31 33 36 20 e7 20  |t.....key=136 . |
00000a50  ac 28 28 a4 77 28 78 25  2c 79 25 29 3d 26 36 20  |.((.w(x%,y%)=&6 |
00000a60  84 20 a4 77 28 78 25 2c  79 25 29 3d 26 33 29 80  |. .w(x%,y%)=&3).|
00000a70  78 6d 25 3d 31 29 20 e7  20 ac 28 28 a4 77 28 78  |xm%=1) . .((.w(x|
00000a80  25 2c 79 25 29 3d 26 41  20 84 20 a4 77 28 78 25  |%,y%)=&A . .w(x%|
00000a90  2c 79 25 29 3d 26 39 29  80 78 6d 25 3d 30 80 79  |,y%)=&9).xm%=0.y|
00000aa0  6d 25 3d 30 29 20 e7 20  ac 28 a4 77 28 78 25 2c  |m%=0) . .(.w(x%,|
00000ab0  79 25 29 3d 26 41 20 80  78 6d 25 3d 31 80 79 6d  |y%)=&A .xm%=1.ym|
00000ac0  25 3e 3d 31 29 20 e7 20  ac 28 78 25 3d 30 80 78  |%>=1) . .(x%=0.x|
00000ad0  6d 25 3d 30 29 20 d6 6c  65 66 74 0d 01 9a 3b 73  |m%=0) .left...;s|
00000ae0  25 3d 30 3a 66 69 6e 25  3d 2d 31 3a e7 66 69 6e  |%=0:fin%=-1:.fin|
00000af0  3c 3e 66 25 28 31 29 20  e7 66 69 6e 3c 3e 66 25  |<>f%(1) .fin<>f%|
00000b00  28 32 29 20 e7 66 69 6e  3c 3e 66 25 28 33 29 20  |(2) .fin<>f%(3) |
00000b10  66 69 6e 25 3d 30 0d 01  a4 1a e7 66 69 6e 25 20  |fin%=0.....fin% |
00000b20  e7 20 74 67 25 3e 30 20  8c 20 66 69 6e 25 3d 30  |. tg%>0 . fin%=0|
00000b30  0d 01 ae 24 e7 20 a6 28  2d 39 39 29 20 73 25 3d  |...$. .(-99) s%=|
00000b40  a4 6f 6b 28 78 25 2c 79  25 29 3a e7 20 73 25 3d  |.ok(x%,y%):. s%=|
00000b50  32 20 f2 77 0d 01 b8 26  fd 66 69 6e 25 84 28 a6  |2 .w...&.fin%.(.|
00000b60  28 2d 31 31 33 29 80 a6  28 2d 32 29 80 a6 28 2d  |(-113)..(-2)..(-|
00000b70  31 30 36 29 29 84 73 25  3d 31 0d 01 c2 0c e7 73  |106)).s%=1.....s|
00000b80  25 3d 31 20 f2 63 0d 01  cc 05 e1 0d 01 d6 08 dd  |%=1 .c..........|
00000b90  20 f2 77 0d 01 e0 6a f2  74 6f 3a d4 31 2c 2d 31  | .w...j.to:.1,-1|
00000ba0  30 2c 31 35 30 2c 32 3a  58 25 3d 34 3a 59 25 3d  |0,150,2:X%=4:Y%=|
00000bb0  32 34 3a d6 72 3a e6 30  2c 33 3a f2 70 66 28 a4  |24:.r:.0,3:.pf(.|
00000bc0  6e 28 61 78 25 2c 61 79  25 29 2c 61 78 25 2c 61  |n(ax%,ay%),ax%,a|
00000bd0  79 25 29 3a 58 25 3d 34  3a 59 25 3d 32 34 3a d6  |y%):X%=4:Y%=24:.|
00000be0  73 3a f2 6e 28 61 78 25  2c 61 79 25 2c 30 29 3a  |s:.n(ax%,ay%,0):|
00000bf0  74 67 25 3d 74 67 25 2d  31 3a f2 74 20 0d 01 ea  |tg%=tg%-1:.t ...|
00000c00  05 e1 0d 01 f4 5a dd 20  f2 63 20 f2 74 6f 3a d4  |.....Z. .c .to:.|
00000c10  30 2c 2d 31 35 2c 36 2c  31 30 3a 58 25 3d 34 3a  |0,-15,6,10:X%=4:|
00000c20  59 25 3d 32 34 3a d6 72  3a e3 49 25 3d 30 b8 31  |Y%=24:.r:.I%=0.1|
00000c30  30 3a d6 73 3a 58 25 3d  34 3a 59 25 3d 32 34 3a  |0:.s:X%=4:Y%=24:|
00000c40  d6 72 3a ed 3a 6b 65 79  3d a6 28 31 30 30 29 3a  |.r:.:key=.(100):|
00000c50  ff 22 66 78 31 35 22 3a  f2 74 3a e1 0d 01 fe 6b  |."fx15":.t:....k|
00000c60  dd 20 a4 6f 6b 28 49 25  2c 4a 25 29 20 6e 75 6d  |. .ok(I%,J%) num|
00000c70  25 3d 30 3a 4b 25 3d 2d  33 3a f5 4b 25 3d 4b 25  |%=0:K%=-3:.K%=K%|
00000c80  2b 31 3a 77 25 3d a4 77  28 49 25 2b 4b 25 2c 4a  |+1:w%=.w(I%+K%,J|
00000c90  25 29 3a e7 61 78 25 3c  3d 38 e7 61 79 25 3c 3d  |%):.ax%<=8.ay%<=|
00000ca0  38 20 6e 75 6d 25 3d a4  6e 28 61 78 25 2c 61 79  |8 num%=.n(ax%,ay|
00000cb0  25 29 3a e7 6e 75 6d 25  3c 31 30 e7 4b 25 3c 30  |%):.num%<10.K%<0|
00000cc0  20 6e 75 6d 25 3d 30 0d  02 08 23 fd 20 4b 25 3d  | num%=0...#. K%=|
00000cd0  31 20 84 20 6e 75 6d 25  3e 30 20 84 20 61 78 25  |1 . num%>0 . ax%|
00000ce0  3e 38 20 84 20 61 79 25  3e 38 0d 02 12 10 e7 6e  |>8 . ay%>8.....n|
00000cf0  75 6d 25 3d 30 20 8c 20  3d 33 0d 02 1c 0f 3d a4  |um%=0 . =3....=.|
00000d00  6f 6b 32 28 6e 75 6d 25  29 0d 02 26 22 dd 20 a4  |ok2(num%)..&". .|
00000d10  6f 6b 32 28 6e 75 6d 25  29 20 e7 71 25 3d 31 e7  |ok2(num%) .q%=1.|
00000d20  6e 75 6d 25 83 32 3d 30  20 3d 32 0d 02 30 15 e7  |num%.2=0 =2..0..|
00000d30  71 25 3d 32 e7 6e 75 6d  25 83 32 3d 31 20 3d 32  |q%=2.num%.2=1 =2|
00000d40  0d 02 3a 17 e7 71 25 3d  33 e7 6e 75 6d 25 3c 6e  |..:..q%=3.num%<n|
00000d50  75 6d 31 25 20 3d 32 0d  02 44 17 e7 71 25 3d 34  |um1% =2..D..q%=4|
00000d60  e7 6e 75 6d 25 3e 6e 75  6d 31 25 20 3d 32 0d 02  |.num%>num1% =2..|
00000d70  4e 19 e7 71 25 3d 35 e7  6e 75 6d 31 25 83 6e 75  |N..q%=5.num1%.nu|
00000d80  6d 25 3d 30 20 3d 32 0d  02 58 19 e7 71 25 3d 36  |m%=0 =2..X..q%=6|
00000d90  e7 6e 75 6d 25 83 6e 75  6d 32 25 3d 30 20 3d 32  |.num%.num2%=0 =2|
00000da0  0d 02 62 19 e7 71 25 3d  37 e7 20 a4 70 28 6e 75  |..b..q%=7. .p(nu|
00000db0  6d 25 29 20 8c 20 3d 32  20 0d 02 6c 06 3d 31 0d  |m%) . =2 ..l.=1.|
00000dc0  02 76 3a dd 20 a4 70 28  6e 25 29 20 f7 8d 74 40  |.v:. .p(n%) ..t@|
00000dd0  42 3a f5 20 f3 49 25 3a  fd 49 25 3d 31 30 30 20  |B:. .I%:.I%=100 |
00000de0  84 20 6e 25 3d 49 25 3a  e7 6e 25 3d 49 25 20 8c  |. n%=I%:.n%=I% .|
00000df0  20 3d 2d 31 20 8b 20 3d  30 0d 02 80 50 dc 20 32  | =-1 . =0...P. 2|
00000e00  2c 33 2c 35 2c 37 2c 31  31 2c 31 33 2c 31 37 2c  |,3,5,7,11,13,17,|
00000e10  31 39 2c 32 33 2c 32 39  2c 33 31 2c 33 37 2c 34  |19,23,29,31,37,4|
00000e20  31 2c 34 33 2c 34 37 2c  35 33 2c 35 39 2c 36 31  |1,43,47,53,59,61|
00000e30  2c 36 37 2c 37 31 2c 37  33 2c 37 39 2c 38 33 2c  |,67,71,73,79,83,|
00000e40  38 39 2c 39 37 2c 31 30  30 0d 02 8a 37 dd 20 f2  |89,97,100...7. .|
00000e50  73 28 41 24 2c 78 25 2c  79 25 2c 63 25 29 3a ea  |s(A$,x%,y%,c%):.|
00000e60  61 25 2c 62 25 3a ef 35  2c 31 38 2c 30 2c 32 3a  |a%,b%:.5,18,0,2:|
00000e70  e7 63 25 3d 39 20 7a 25  3d 38 20 8b 7a 25 3d 34  |.c%=9 z%=8 .z%=4|
00000e80  0d 02 94 41 e3 61 25 3d  78 25 2d 38 b8 78 25 2b  |...A.a%=x%-8.x%+|
00000e90  38 88 38 3a e3 62 25 3d  79 25 2d 7a 25 b8 79 25  |8.8:.b%=y%-z%.y%|
00000ea0  2b 7a 25 88 7a 25 3a ec  61 25 2c 62 25 3a e7 63  |+z%.z%:.a%,b%:.c|
00000eb0  25 3e 35 20 f2 62 69 67  28 41 24 29 20 8b f1 41  |%>5 .big(A$) ..A|
00000ec0  24 0d 02 9e 2f ed 2c 3a  ec 78 25 2c 79 25 3a e7  |$.../.,:.x%,y%:.|
00000ed0  63 25 3e 35 20 e6 30 2c  39 2d 63 25 3a f2 62 69  |c%>5 .0,9-c%:.bi|
00000ee0  67 28 41 24 29 20 8b e6  30 2c 63 25 3a f1 41 24  |g(A$) ..0,c%:.A$|
00000ef0  0d 02 a8 09 ef 34 3a e1  20 0d 02 b2 30 dd 20 f2  |.....4:. ...0. .|
00000f00  73 63 65 28 41 24 2c 79  25 2c 63 25 29 3a f2 73  |sce(A$,y%,c%):.s|
00000f10  28 41 24 2c 36 34 30 2d  28 a9 41 24 2a 33 32 29  |(A$,640-(.A$*32)|
00000f20  2c 79 25 2c 63 25 29 3a  e1 0d 02 bc 46 dd 20 f2  |,y%,c%):....F. .|
00000f30  73 63 28 63 6f 6c 25 29  20 e7 63 6f 6c 25 3d 31  |sc(col%) .col%=1|
00000f40  20 62 25 3d 32 20 8b e7  63 6f 6c 25 3d 32 20 62  | b%=2 ..col%=2 b|
00000f50  25 3d 36 20 8b e7 63 6f  6c 25 3d 33 20 62 25 3d  |%=6 ..col%=3 b%=|
00000f60  35 20 8b e7 63 6f 6c 25  3d 34 20 62 25 3d 31 0d  |5 ..col%=4 b%=1.|
00000f70  02 c6 bc f2 66 3a f2 62  6f 78 28 33 33 30 2c 34  |....f:.box(330,4|
00000f80  33 32 2c 39 35 30 2c 38  31 32 29 3a f2 73 28 22  |32,950,812):.s("|
00000f90  45 6e 74 65 72 69 6e 67  22 2c 33 38 34 2c 37 35  |Entering",384,75|
00000fa0  32 2c 31 29 3a f2 73 28  22 50 69 70 65 22 2c 35  |2,1):.s("Pipe",5|
00000fb0  31 32 2c 36 39 32 2c 31  29 3a f2 73 28 22 53 65  |12,692,1):.s("Se|
00000fc0  63 74 6f 72 22 2c 34 34  38 2c 36 33 32 2c 31 29  |ctor",448,632,1)|
00000fd0  3a f2 73 28 bd 28 36 34  2b 63 6f 6c 25 29 2c 36  |:.s(.(64+col%),6|
00000fe0  30 38 2c 35 34 38 2c 39  29 3a ef 34 2c 31 39 2c  |08,548,9):.4,19,|
00000ff0  31 2c 33 3b 30 3b 31 39  2c 32 2c 30 3b 30 3b 31  |1,3;0;19,2,0;0;1|
00001000  39 2c 33 2c 34 3b 30 3b  3a f2 74 6f 3a d4 31 2c  |9,3,4;0;:.to:.1,|
00001010  31 2c 31 2c 32 34 3a ff  22 66 78 31 37 38 2c 32  |1,1,24:."fx178,2|
00001020  35 35 22 3a ff 22 66 78  32 31 22 0d 02 d0 25 6b  |55":."fx21"...%k|
00001030  65 79 25 3d a6 28 34 30  30 29 3a ff 22 66 78 31  |ey%=.(400):."fx1|
00001040  37 38 22 3a f2 74 3a ff  22 46 58 31 35 22 3a e1  |78":.t:."FX15":.|
00001050  0d 02 da 75 dd 20 a4 77  28 78 25 2c 79 25 29 20  |...u. .w(x%,y%) |
00001060  61 78 25 3d 78 25 81 34  3a 61 79 25 3d 28 79 25  |ax%=x%.4:ay%=(y%|
00001070  2d 32 29 81 33 3a 77 68  25 3d 73 63 72 30 2b 28  |-2).3:wh%=scr0+(|
00001080  3f 63 29 2a 35 30 2b 61  79 25 2a 35 2b 61 78 25  |?c)*50+ay%*5+ax%|
00001090  81 32 3a 77 25 3d 3f 77  68 25 3a e7 78 25 83 38  |.2:w%=?wh%:.x%.8|
000010a0  3e 3d 34 20 77 25 3d 77  25 20 80 20 26 46 20 8b  |>=4 w%=w% . &F .|
000010b0  20 77 25 3d 77 25 20 80  20 26 46 30 3a 77 25 3d  | w%=w% . &F0:w%=|
000010c0  77 25 81 26 46 0d 02 e4  1b 79 6d 25 3d 28 79 25  |w%.&F....ym%=(y%|
000010d0  2d 32 29 83 33 3a 78 6d  25 3d 78 25 83 38 83 34  |-2).3:xm%=x%.8.4|
000010e0  0d 02 ee 07 3d 77 25 0d  02 f8 0b dd 20 f2 6d 61  |....=w%..... .ma|
000010f0  70 73 0d 03 02 2b f7 8d  74 6a 40 3a e3 73 63 72  |ps...+..tj@:.scr|
00001100  25 3d 30 b8 3f 63 3a f3  6e 2c 66 25 28 31 29 2c  |%=0.?c:.n,f%(1),|
00001110  66 25 28 32 29 2c 66 25  28 33 29 3a ed 0d 03 0c  |f%(2),f%(3):....|
00001120  08 3f 77 3d 30 0d 03 16  3f d6 70 6d 3a ef 31 37  |.?w=0...?.pm:.17|
00001130  2c 33 2c 33 31 2c 30 2c  30 3a f1 c4 34 30 2c bd  |,3,31,0,0:..40,.|
00001140  32 35 34 29 3b 3a e6 30  2c 32 3a ec 30 2c 39 35  |254);:.0,2:.0,95|
00001150  38 3a df 31 32 38 30 2c  39 35 38 3a ec 30 2c 39  |8:.1280,958:.0,9|
00001160  35 34 3a e1 0d 03 20 29  dd f2 66 3a ef 31 37 2c  |54:... )..f:.17,|
00001170  31 32 38 2c 31 32 3a e3  49 3d 30 b8 33 3a ef 31  |128,12:.I=0.3:.1|
00001180  39 2c 49 2c 62 25 3b 30  3b 3a ed 3a e1 0d 03 2a  |9,I,b%;0;:.:...*|
00001190  a5 dd f2 74 70 20 e3 4a  3d 31 b8 33 3a ef 31 39  |...tp .J=1.3:.19|
000011a0  2c 4a 2c 30 3b 30 3b 30  3b 3a ed 3a 62 25 3d 32  |,J,0;0;0;:.:b%=2|
000011b0  3a 3f 63 3d 31 32 3a d6  70 6d 3a ef 31 37 2c 32  |:?c=12:.pm:.17,2|
000011c0  2c 33 31 2c 30 2c 30 3a  f1 c4 34 30 2c bd 32 35  |,31,0,0:..40,.25|
000011d0  34 29 3b 3a f2 73 28 22  53 55 42 20 53 45 41 52  |4);:.s("SUB SEAR|
000011e0  43 48 22 2c 35 37 38 2c  39 33 32 2c 38 29 3a ef  |CH",578,932,8):.|
000011f0  31 37 2c 30 2c 31 37 2c  31 33 31 2c 33 31 2c 31  |17,0,17,131,31,1|
00001200  2c 32 39 3a f2 73 28 22  42 79 20 41 26 53 20 57  |,29:.s("By A&S W|
00001210  65 69 72 22 2c 36 34 2c  31 30 30 2c 31 29 3a ef  |eir",64,100,1):.|
00001220  31 39 2c 32 2c 30 3b 30  3b 31 39 2c 33 2c 35 3b  |19,2,0;0;19,3,5;|
00001230  30 3b 0d 03 34 47 ef 31  39 2c 30 2c 33 3b 30 3b  |0;..4G.19,0,3;0;|
00001240  31 39 2c 31 2c 33 3b 30  3b 3a ff 22 66 78 31 37  |19,1,3;0;:."fx17|
00001250  38 2c 32 35 35 22 3a ff  22 66 78 32 31 22 3a f7  |8,255":."fx21":.|
00001260  8d 74 7a 44 3a f2 6d 75  73 69 63 28 31 29 3a ff  |.tzD:.music(1):.|
00001270  22 66 78 31 37 38 22 3a  e1 0d 03 3e 72 dd 20 f2  |"fx178":...>r. .|
00001280  69 6e 20 ef 31 39 2c 30  2c 36 3b 30 3b 31 37 2c  |in .19,0,6;0;17,|
00001290  31 32 38 2c 32 38 2c 31  32 2c 32 36 2c 31 39 2c  |128,28,12,26,19,|
000012a0  31 31 2c 31 32 2c 32 38  2c 30 2c 33 31 2c 31 39  |11,12,28,0,31,19|
000012b0  2c 32 36 2c 31 32 2c 32  36 3a f2 73 28 22 4b 65  |,26,12,26:.s("Ke|
000012c0  79 73 22 2c 39 30 38 2c  36 30 32 2c 31 29 3a 21  |ys",908,602,1):!|
000012d0  61 3d 26 37 30 42 30 3a  d6 73 3a e6 30 2c 32 3a  |a=&70B0:.s:.0,2:|
000012e0  ec 38 38 38 2b 33 32 2c  33 35 38 0d 03 48 74 f0  |.888+32,358..Ht.|
000012f0  30 2c 2d 33 32 2c 30 3a  f0 38 31 2c 30 2c 31 36  |0,-32,0:.81,0,16|
00001300  3a f0 30 2c 33 32 2c 30  3a f0 38 31 2c 30 2c 2d  |:.0,32,0:.81,0,-|
00001310  31 36 3a f0 30 2c 2d 33  32 2c 2d 31 36 3a f0 30  |16:.0,-32,-16:.0|
00001320  2c 2d 33 32 2c 32 34 3a  f0 38 31 2c 33 32 2c 32  |,-32,24:.81,32,2|
00001330  34 3a f0 30 2c 2d 34 38  2c 31 36 3a f0 31 2c 31  |4:.0,-48,16:.1,1|
00001340  30 32 2c 30 3a f0 31 2c  30 2c 2d 38 30 3a f0 31  |02,0:.1,0,-80:.1|
00001350  2c 2d 31 30 32 2c 30 3a  f0 31 2c 30 2c 38 30 0d  |,-102,0:.1,0,80.|
00001360  03 52 0d ec 31 31 33 32  2c 33 35 38 0d 03 5c 72  |.R..1132,358..\r|
00001370  f0 30 2c 33 32 2c 30 3a  f0 38 31 2c 30 2c 31 36  |.0,32,0:.81,0,16|
00001380  3a f0 30 2c 2d 33 32 2c  30 3a f0 38 31 2c 30 2c  |:.0,-32,0:.81,0,|
00001390  2d 31 36 3a f0 30 2c 33  32 2c 2d 31 36 3a f0 30  |-16:.0,32,-16:.0|
000013a0  2c 33 32 2c 32 34 3a f0  38 31 2c 2d 33 32 2c 32  |,32,24:.81,-32,2|
000013b0  34 3a f0 30 2c 34 38 2c  31 36 3a f0 31 2c 2d 31  |4:.0,48,16:.1,-1|
000013c0  30 32 2c 30 3a f0 31 2c  30 2c 2d 38 30 3a f0 31  |02,0:.1,0,-80:.1|
000013d0  2c 31 30 32 2c 30 3a f0  31 2c 30 2c 38 30 0d 03  |,102,0:.1,0,80..|
000013e0  66 8a ec 39 38 34 2b 33  32 2c 34 35 30 3a f0 30  |f..984+32,450:.0|
000013f0  2c 30 2c 33 32 3a f0 38  31 2c 31 36 2c 30 3a f0  |,0,32:.81,16,0:.|
00001400  30 2c 30 2c 2d 33 32 3a  f0 38 31 2c 2d 31 36 2c  |0,0,-32:.81,-16,|
00001410  30 3a f0 30 2c 2d 31 36  2c 33 32 3a f0 30 2c 32  |0:.0,-16,32:.0,2|
00001420  34 2c 33 32 3a f0 38 31  2c 32 34 2c 2d 33 32 3a  |4,32:.81,24,-32:|
00001430  f0 30 2c 31 36 2c 34 38  3a f0 31 2c 30 2c 2d 31  |.0,16,48:.1,0,-1|
00001440  30 32 3a f0 31 2c 2d 38  30 2c 30 3a f0 31 2c 30  |02:.1,-80,0:.1,0|
00001450  2c 31 30 32 3a f0 31 2c  38 30 2c 30 3a ec 39 38  |,102:.1,80,0:.98|
00001460  34 2b 33 32 2c 32 38 36  0d 03 70 74 f0 30 2c 30  |4+32,286..pt.0,0|
00001470  2c 2d 33 32 3a f0 38 31  2c 31 36 2c 30 3a f0 30  |,-32:.81,16,0:.0|
00001480  2c 30 2c 33 32 3a f0 38  31 2c 2d 31 36 2c 30 3a  |,0,32:.81,-16,0:|
00001490  f0 30 2c 2d 31 36 2c 2d  33 32 3a f0 30 2c 32 34  |.0,-16,-32:.0,24|
000014a0  2c 2d 33 32 3a f0 38 31  2c 32 34 2c 33 32 3a f0  |,-32:.81,24,32:.|
000014b0  30 2c 31 36 2c 2d 34 38  3a f0 31 2c 30 2c 31 30  |0,16,-48:.1,0,10|
000014c0  32 3a f0 31 2c 2d 38 30  2c 30 3a f0 31 2c 30 2c  |2:.1,-80,0:.1,0,|
000014d0  2d 31 30 32 3a f0 31 2c  38 30 2c 30 0d 03 7a 1b  |-102:.1,80,0..z.|
000014e0  f2 73 28 22 43 6f 6c 6c  65 63 74 22 2c 33 36 36  |.s("Collect",366|
000014f0  2c 31 34 38 2c 31 29 0d  03 84 67 f2 73 28 22 4e  |,148,1)...g.s("N|
00001500  75 6d 62 65 72 22 2c 33  38 32 2c 38 38 2c 31 29  |umber",382,88,1)|
00001510  3a ef 35 2c 31 38 2c 30  2c 32 3a ec 38 36 38 2c  |:.5,18,0,2:.868,|
00001520  31 32 36 3a f2 62 69 67  28 22 53 50 41 43 45 22  |126:.big("SPACE"|
00001530  29 3a ec 38 35 32 2c 31  34 32 3a df 31 32 30 30  |):.852,142:.1200|
00001540  2c 31 34 32 3a df 31 32  30 30 2c 35 38 3a df 38  |,142:.1200,58:.8|
00001550  35 32 2c 35 38 3a df 38  35 32 2c 31 34 32 0d 03  |52,58:.852,142..|
00001560  8e 37 ef 34 3a ff 22 66  78 31 37 38 2c 32 35 35  |.7.4:."fx178,255|
00001570  22 3a ff 22 66 78 32 31  22 3a 6b 65 79 25 3d a6  |":."fx21":key%=.|
00001580  28 31 30 30 30 30 29 3a  f2 66 3a ff 22 66 78 31  |(10000):.f:."fx1|
00001590  37 38 22 3a e1 0d 03 98  2f dd 20 f2 62 69 67 28  |78":..../. .big(|
000015a0  41 24 29 20 e3 43 48 25  3d 31 b8 a9 41 24 3a 41  |A$) .CH%=1..A$:A|
000015b0  25 3d 97 c1 41 24 2c 43  48 25 2c 31 29 3a d6 64  |%=..A$,CH%,1):.d|
000015c0  3a ed 3a e1 0d 03 a2 1e  dd 20 f2 74 20 21 26 35  |:.:...... .t !&5|
000015d0  38 3d 26 36 30 35 38 36  30 37 38 3a d6 26 35 38  |8=&60586078:.&58|
000015e0  3a e1 0d 03 ac 20 dd 20  f2 74 6f 20 21 26 35 38  |:.... . .to !&58|
000015f0  3d 26 36 30 35 38 36 30  37 38 3a d6 26 35 41 3a  |=&60586078:.&5A:|
00001600  e1 20 0d 03 b6 76 dd 20  f2 73 71 20 71 25 3d b3  |. ...v. .sq q%=.|
00001610  28 63 6f 6c 25 2a 32 29  3a 6e 75 6d 31 25 3d b3  |(col%*2):num1%=.|
00001620  28 63 6f 6c 25 2a 32 30  29 3a 6e 75 6d 32 25 3d  |(col%*20):num2%=|
00001630  b3 28 31 30 29 3a 74 67  25 3d 30 3a 71 25 3d 71  |.(10):tg%=0:q%=q|
00001640  25 2b 2d 37 2a 28 63 6f  6c 25 3d 34 20 80 20 71  |%+-7*(col%=4 . q|
00001650  25 3d 31 29 3a 71 25 3d  71 25 2b 2d 36 2a 28 63  |%=1):q%=q%+-6*(c|
00001660  6f 6c 25 3d 34 20 80 20  71 25 3d 32 29 3a e7 71  |ol%=4 . q%=2):.q|
00001670  25 3d 38 20 71 25 3d 37  0d 03 c0 3e e7 20 71 25  |%=8 q%=7...>. q%|
00001680  3d 35 20 f5 20 6e 75 6d  31 25 3d b3 28 63 6f 6c  |=5 . num1%=.(col|
00001690  25 2a 32 30 29 3a fd 20  ac 20 a4 70 28 6e 75 6d  |%*20):. . .p(num|
000016a0  31 25 29 20 80 6e 75 6d  31 25 3e 32 20 80 6e 75  |1%) .num1%>2 .nu|
000016b0  6d 31 25 3c 32 30 0d 03  ca 3d f7 8d 54 5a 44 3a  |m1%<20...=..TZD:|
000016c0  e3 49 25 3d 31 b8 71 25  3a f3 77 24 3a ed 3a e7  |.I%=1.q%:.w$:.:.|
000016d0  71 25 3d 33 84 71 25 3d  34 84 71 25 3d 35 20 77  |q%=3.q%=4.q%=5 w|
000016e0  24 3d c0 77 24 2c a9 77  24 2d 32 29 2b c3 6e 75  |$=.w$,.w$-2)+.nu|
000016f0  6d 31 25 0d 03 d4 1e e7  71 25 3d 36 20 77 24 3d  |m1%.....q%=6 w$=|
00001700  c0 77 24 2c a9 77 24 2d  32 29 2b c3 6e 75 6d 32  |.w$,.w$-2)+.num2|
00001710  25 0d 03 de 38 f2 73 28  22 46 69 6e 64 20 22 2b  |%...8.s("Find "+|
00001720  77 24 2c 28 28 32 30 2d  28 a9 77 24 2b 35 29 29  |w$,((20-(.w$+5))|
00001730  2f 32 29 2a 36 34 2c 31  30 30 36 2c 31 29 3a f2  |/2)*64,1006,1):.|
00001740  66 69 67 75 72 65 73 3a  e1 0d 03 e8 10 dd 20 f2  |figures:...... .|
00001750  6f 76 20 2a 46 58 31 37  38 0d 03 f2 be e7 71 25  |ov *FX178.....q%|
00001760  3d 31 73 24 3d 22 61 6e  20 65 76 65 6e 20 6e 75  |=1s$="an even nu|
00001770  6d 62 65 72 22 8b e7 71  25 3d 32 73 24 3d 22 61  |mber"..q%=2s$="a|
00001780  6e 20 6f 64 64 20 6e 75  6d 62 65 72 22 8b e7 71  |n odd number"..q|
00001790  25 3d 33 20 73 24 3d 22  6c 65 73 73 20 74 68 61  |%=3 s$="less tha|
000017a0  6e 20 22 2b c3 6e 75 6d  31 25 8b e7 71 25 3d 34  |n "+.num1%..q%=4|
000017b0  73 24 3d 22 67 72 65 61  74 65 72 20 74 68 61 6e  |s$="greater than|
000017c0  20 22 2b c3 6e 75 6d 31  25 8b e7 71 25 3d 35 73  | "+.num1%..q%=5s|
000017d0  24 3d 22 6d 75 6c 74 69  70 6c 65 20 6f 66 20 22  |$="multiple of "|
000017e0  2b c3 6e 75 6d 31 25 8b  e7 71 25 3d 36 73 24 3d  |+.num1%..q%=6s$=|
000017f0  22 66 61 63 74 6f 72 20  6f 66 20 22 2b c3 6e 75  |"factor of "+.nu|
00001800  6d 32 25 8b 73 24 3d 22  61 20 70 72 69 6d 65 20  |m2%.s$="a prime |
00001810  6e 75 6d 62 65 72 22 0d  03 fc 33 74 24 3d 22 4e  |number"...3t$="N|
00001820  6f 2c 20 22 2b c3 6e 75  6d 25 2b 22 20 69 73 20  |o, "+.num%+" is |
00001830  6e 6f 74 22 3a e7 71 25  3d 35 84 71 25 3d 36 20  |not":.q%=5.q%=6 |
00001840  74 24 3d 74 24 2b 22 20  61 22 0d 04 06 98 f2 62  |t$=t$+" a".....b|
00001850  6f 78 28 31 32 30 2c 34  30 30 2c 31 31 34 30 2c  |ox(120,400,1140,|
00001860  39 30 30 29 3a f2 73 63  65 28 74 24 2c 38 34 30  |900):.sce(t$,840|
00001870  2c 39 29 3a f2 73 63 65  28 73 24 2b 22 21 22 2c  |,9):.sce(s$+"!",|
00001880  37 34 34 2c 39 29 3a f2  73 63 65 28 22 42 75 74  |744,9):.sce("But|
00001890  20 6d 61 79 20 74 68 65  20 22 2c 36 30 30 2c 31  | may the ",600,1|
000018a0  29 3a f2 73 63 65 28 22  77 61 73 68 20 62 65 20  |):.sce("wash be |
000018b0  77 69 74 68 22 2c 35 35  30 2c 31 29 3a f2 73 63  |with",550,1):.sc|
000018c0  65 28 22 79 6f 75 2e 2e  2e 20 20 20 20 20 20 22  |e("you...      "|
000018d0  2c 35 30 30 2c 31 29 3a  2a 66 78 31 37 38 2c 32  |,500,1):*fx178,2|
000018e0  35 35 0d 04 10 24 f2 74  6f 3a ff 22 46 58 31 35  |55...$.to:."FX15|
000018f0  22 3a f7 8d 64 6c 44 3a  f2 6d 75 73 69 63 28 31  |":..dlD:.music(1|
00001900  29 3a f2 74 3a e1 0d 04  1a 71 dc 22 45 56 45 4e  |):.t:....q."EVEN|
00001910  20 6e 75 6d 62 65 72 73  22 2c 22 4f 44 44 20 6e  | numbers","ODD n|
00001920  75 6d 62 65 72 73 22 2c  22 4e 75 6d 62 65 72 73  |umbers","Numbers|
00001930  20 3c 20 20 20 22 2c 22  4e 75 6d 62 65 72 73 20  | <   ","Numbers |
00001940  3e 20 20 20 22 2c 22 46  41 43 54 4f 52 53 20 6f  |>   ","FACTORS o|
00001950  66 20 20 20 22 2c 22 4d  55 4c 54 49 50 4c 45 53  |f   ","MULTIPLES|
00001960  20 6f 66 20 20 20 22 2c  22 50 52 49 4d 45 20 6e  | of   ","PRIME n|
00001970  75 6d 62 65 72 73 22 0d  04 24 47 dd 20 f2 66 69  |umbers"..$G. .fi|
00001980  67 75 72 65 73 20 e3 74  72 79 79 25 3d 30 b8 38  |gures .tryy%=0.8|
00001990  3a e3 74 72 79 78 25 3d  30 b8 38 3a 79 65 73 25  |:.tryx%=0.8:yes%|
000019a0  3d 2d 31 3a e7 20 28 74  72 79 78 25 2b 74 72 79  |=-1:. (tryx%+try|
000019b0  79 25 29 83 32 3d 30 20  79 65 73 25 3d 30 0d 04  |y%).2=0 yes%=0..|
000019c0  2e 33 e7 20 79 65 73 25  20 78 32 25 3d 74 72 79  |.3. yes% x2%=try|
000019d0  78 25 2a 34 3a 79 32 25  3d 74 72 79 79 25 2a 33  |x%*4:y2%=tryy%*3|
000019e0  2b 32 3a 74 25 3d a4 77  28 78 32 25 2c 79 32 25  |+2:t%=.w(x2%,y2%|
000019f0  29 0d 04 38 43 e7 20 79  65 73 25 20 e7 20 74 25  |)..8C. yes% . t%|
00001a00  3c 3e 33 20 e7 20 74 25  3c 3e 31 20 e7 20 74 25  |<>3 . t%<>1 . t%|
00001a10  3c 3e 36 20 e7 20 74 25  3c 3e 26 42 20 e7 20 74  |<>6 . t%<>&B . t|
00001a20  25 3c 3e 26 41 20 e7 20  74 25 3c 3e 39 20 79 65  |%<>&A . t%<>9 ye|
00001a30  73 25 3d 30 0d 04 42 20  e7 79 65 73 25 20 f2 67  |s%=0..B .yes% .g|
00001a40  20 8b 20 f2 6e 28 74 72  79 78 25 2c 74 72 79 79  | . .n(tryx%,tryy|
00001a50  25 2c 30 29 0d 04 4c 08  ed 2c 3a e1 0d 04 56 24  |%,0)..L..,:...V$|
00001a60  dd f2 67 20 63 25 3d b3  28 63 6f 6c 25 2a 32 30  |..g c%=.(col%*20|
00001a70  29 3a e7 71 25 3d 35 20  63 25 3d b3 28 31 30 29  |):.q%=5 c%=.(10)|
00001a80  0d 04 60 48 e6 30 2c 31  3a f2 70 66 28 63 25 2c  |..`H.0,1:.pf(c%,|
00001a90  74 72 79 78 25 2c 74 72  79 79 25 29 3a f2 6e 28  |tryx%,tryy%):.n(|
00001aa0  74 72 79 78 25 2c 74 72  79 79 25 2c 63 25 29 3a  |tryx%,tryy%,c%):|
00001ab0  e7 20 a4 6f 6b 32 28 63  25 29 3d 32 20 8c 20 74  |. .ok2(c%)=2 . t|
00001ac0  67 25 3d 74 67 25 2b 31  0d 04 6a 05 e1 0d 04 74  |g%=tg%+1..j....t|
00001ad0  45 dd 20 f2 70 66 28 66  69 67 25 2c 49 25 2c 4a  |E. .pf(fig%,I%,J|
00001ae0  25 29 20 ef 35 3a ec 28  49 25 2a 34 2b 32 29 2a  |%) .5:.(I%*4+2)*|
00001af0  33 32 2c 31 30 32 34 2d  28 4a 25 2a 33 2b 35 29  |32,1024-(J%*3+5)|
00001b00  2a 33 32 2b 31 36 3a f1  c3 66 69 67 25 3a ef 34  |*32+16:..fig%:.4|
00001b10  3a e1 0d 04 7e 81 dd 20  f2 73 76 20 63 6f 64 65  |:...~.. .sv code|
00001b20  3d 26 34 41 43 30 3a 73  3d 26 34 41 43 30 3a 6d  |=&4AC0:s=&4AC0:m|
00001b30  6f 76 65 3d 26 34 41 46  34 3a 64 6f 77 6e 3d 26  |ove=&4AF4:down=&|
00001b40  34 42 30 46 3a 6c 65 66  74 3d 26 34 42 32 41 3a  |4B0F:left=&4B2A:|
00001b50  72 69 67 68 74 3d 26 34  42 36 38 3a 70 6d 3d 26  |right=&4B68:pm=&|
00001b60  34 45 30 42 3a 64 3d 26  35 34 44 38 3a 73 63 72  |4E0B:d=&54D8:scr|
00001b70  30 3d 26 35 35 37 32 3a  61 3d 26 36 45 3a 77 3d  |0=&5572:a=&6E:w=|
00001b80  26 37 45 3a 63 3d 26 37  46 3a 72 3d 26 34 42 43  |&7E:c=&7F:r=&4BC|
00001b90  32 3a e1 0d 04 88 10 dd  20 f2 6d 75 73 69 63 28  |2:...... .music(|
00001ba0  6d 25 29 0d 04 92 49 78  25 3d 30 3a f5 20 73 61  |m%)...Ix%=0:. sa|
00001bb0  6d 25 3d 30 3a 7a 25 3d  78 25 3a f3 78 25 2c 79  |m%=0:z%=x%:.x%,y|
00001bc0  25 3a e7 7a 25 3d 78 25  20 73 61 6d 25 3d 2d 31  |%:.z%=x% sam%=-1|
00001bd0  3a d4 31 2c 30 2c 30 2c  31 3a 79 25 3d 79 25 2a  |:.1,0,0,1:y%=y%*|
00001be0  32 2d 31 20 8b 79 25 3d  79 25 2a 32 0d 04 9c 30  |2-1 .y%=y%*2...0|
00001bf0  e7 78 25 3c 3e 2d 31 20  e7 78 25 3d 30 20 d4 31  |.x%<>-1 .x%=0 .1|
00001c00  2c 30 2c 30 2c 79 25 8b  d4 31 2c 31 32 2a 28 6d  |,0,0,y%..1,12*(m|
00001c10  25 3d 31 29 2b 32 2c 78  25 2c 79 25 0d 04 a6 2a  |%=1)+2,x%,y%...*|
00001c20  fd a6 28 2d 39 39 29 84  78 25 3d 2d 31 3a e7 78  |..(-99).x%=-1:.x|
00001c30  25 3d 2d 31 20 6b 65 79  3d a6 28 32 30 30 29 20  |%=-1 key=.(200) |
00001c40  8b 2a 66 78 31 35 0d 04  b0 05 e1 0d 04 ba ba dc  |.*fx15..........|
00001c50  39 36 2c 32 2c 31 30 30  2c 31 2c 31 30 38 2c 38  |96,2,100,1,108,8|
00001c60  2c 39 36 2c 31 2c 38 38  2c 32 2c 39 36 2c 31 2c  |,96,1,88,2,96,1,|
00001c70  38 30 2c 38 2c 30 2c 31  2c 39 36 2c 32 2c 39 36  |80,8,0,1,96,2,96|
00001c80  2c 31 2c 38 38 2c 32 2c  38 30 2c 31 2c 36 38 2c  |,1,88,2,80,1,68,|
00001c90  35 2c 36 38 2c 31 2c 39  36 2c 32 2c 39 36 2c 31  |5,68,1,96,2,96,1|
00001ca0  2c 38 38 2c 38 2c 38 38  2c 31 2c 39 36 2c 32 2c  |,88,8,88,1,96,2,|
00001cb0  31 30 30 2c 31 2c 31 30  38 2c 38 2c 39 36 2c 31  |100,1,108,8,96,1|
00001cc0  2c 38 38 2c 32 2c 39 36  2c 31 2c 38 30 2c 38 2c  |,88,2,96,1,80,8,|
00001cd0  30 2c 31 2c 39 36 2c 32  2c 39 36 2c 31 2c 38 38  |0,1,96,2,96,1,88|
00001ce0  2c 32 2c 38 30 2c 31 2c  36 38 2c 35 2c 36 38 2c  |,2,80,1,68,5,68,|
00001cf0  31 2c 39 36 2c 32 2c 39  36 2c 31 2c 38 38 2c 31  |1,96,2,96,1,88,1|
00001d00  34 2c 30 2c 31 0d 04 c4  e5 dc 31 30 38 2c 33 2c  |4,0,1.....108,3,|
00001d10  31 30 38 2c 33 2c 31 30  38 2c 33 2c 31 30 38 2c  |108,3,108,3,108,|
00001d20  32 2c 31 31 36 2c 31 2c  38 38 2c 32 2c 38 38 2c  |2,116,1,88,2,88,|
00001d30  31 2c 38 38 2c 32 2c 38  38 2c 31 2c 38 38 2c 35  |1,88,2,88,1,88,5|
00001d40  2c 38 38 2c 31 2c 38 38  2c 32 2c 38 38 2c 31 2c  |,88,1,88,2,88,1,|
00001d50  38 38 2c 32 2c 38 38 2c  31 2c 38 38 2c 35 2c 38  |88,2,88,1,88,5,8|
00001d60  38 2c 31 2c 38 30 2c 32  2c 38 30 2c 31 2c 38 30  |8,1,80,2,80,1,80|
00001d70  2c 32 2c 38 30 2c 31 2c  38 30 2c 36 2c 31 30 38  |,2,80,1,80,6,108|
00001d80  2c 33 2c 31 30 38 2c 33  2c 31 30 38 2c 33 2c 31  |,3,108,3,108,3,1|
00001d90  30 38 2c 32 2c 31 31 36  2c 31 2c 38 38 2c 32 2c  |08,2,116,1,88,2,|
00001da0  38 38 2c 31 2c 38 38 2c  32 2c 38 38 2c 31 2c 38  |88,1,88,2,88,1,8|
00001db0  38 2c 35 2c 38 38 2c 31  2c 38 38 2c 32 2c 38 38  |8,5,88,1,88,2,88|
00001dc0  2c 31 2c 38 38 2c 32 2c  38 38 2c 31 2c 38 38 2c  |,1,88,2,88,1,88,|
00001dd0  35 2c 38 38 2c 31 2c 38  30 2c 32 2c 38 30 2c 31  |5,88,1,80,2,80,1|
00001de0  2c 38 30 2c 32 2c 38 30  2c 31 0d 04 ce 0e dc 38  |,80,2,80,1.....8|
00001df0  30 2c 35 2c 2d 31 2c 30  0d 04 d8 6e dc 38 30 2c  |0,5,-1,0...n.80,|
00001e00  36 2c 37 32 2c 32 2c 36  30 2c 36 2c 35 32 2c 32  |6,72,2,60,6,52,2|
00001e10  2c 34 34 2c 36 2c 33 32  2c 32 2c 34 38 2c 31 2c  |,44,6,32,2,48,1,|
00001e20  35 32 2c 37 2c 34 38 2c  31 2c 35 32 2c 37 2c 34  |52,7,48,1,52,7,4|
00001e30  38 2c 31 2c 35 32 2c 37  2c 34 38 2c 31 2c 35 32  |8,1,52,7,48,1,52|
00001e40  2c 37 2c 34 34 2c 33 2c  33 32 2c 33 2c 32 34 2c  |,7,44,3,32,3,24,|
00001e50  33 2c 32 38 2c 31 2c 33  32 2c 34 2c 33 32 2c 31  |3,28,1,32,4,32,1|
00001e60  32 2c 2d 31 2c 30 0d 04  e2 a1 dc 38 30 2c 32 2c  |2,-1,0.....80,2,|
00001e70  38 38 2c 32 2c 39 36 2c  32 2c 31 30 30 2c 32 2c  |88,2,96,2,100,2,|
00001e80  31 31 36 2c 32 2c 31 32  38 2c 32 2c 31 32 38 2c  |116,2,128,2,128,|
00001e90  34 2c 31 31 36 2c 32 2c  31 30 30 2c 32 2c 38 30  |4,116,2,100,2,80|
00001ea0  2c 32 2c 38 38 2c 32 2c  31 30 30 2c 32 2c 31 33  |,2,88,2,100,2,13|
00001eb0  36 2c 32 2c 31 33 36 2c  34 2c 31 32 30 2c 32 2c  |6,2,136,4,120,2,|
00001ec0  31 30 38 2c 32 2c 39 36  2c 32 2c 38 30 2c 32 2c  |108,2,96,2,80,2,|
00001ed0  39 36 2c 32 2c 31 30 38  2c 32 2c 31 32 38 2c 34  |96,2,108,2,128,4|
00001ee0  2c 31 32 30 2c 32 2c 31  31 32 2c 32 2c 31 31 36  |,120,2,112,2,116|
00001ef0  2c 32 2c 31 30 30 2c 32  2c 30 2c 36 2c 31 34 38  |,2,100,2,0,6,148|
00001f00  2c 32 2c 2d 31 2c 30 0d  04 ec aa dc 20 31 34 38  |,2,-1,0..... 148|
00001f10  2c 38 2c 31 37 36 2c 38  2c 31 36 38 2c 32 2c 31  |,8,176,8,168,2,1|
00001f20  36 34 2c 32 2c 31 35 36  2c 32 2c 31 36 34 2c 32  |64,2,156,2,164,2|
00001f30  2c 31 34 38 2c 38 2c 31  32 38 2c 31 36 2c 31 33  |,148,8,128,16,13|
00001f40  36 2c 38 2c 31 38 34 2c  38 2c 31 37 36 2c 32 2c  |6,8,184,8,176,2,|
00001f50  31 37 32 2c 32 2c 31 36  34 2c 32 2c 31 37 32 2c  |172,2,164,2,172,|
00001f60  32 2c 31 35 36 2c 38 2c  31 39 32 2c 31 36 2c 31  |2,156,8,192,16,1|
00001f70  35 36 2c 38 2c 32 30 38  2c 31 2c 32 30 34 2c 31  |56,8,208,1,204,1|
00001f80  2c 32 30 30 2c 34 2c 31  38 30 2c 32 2c 31 38 34  |,200,4,180,2,184|
00001f90  2c 32 2c 32 32 34 2c 32  2c 32 38 2c 31 2c 33 32  |,2,224,2,28,1,32|
00001fa0  2c 31 2c 38 2c 31 2c 31  36 30 2c 31 2c 2d 31 2c  |,1,8,1,160,1,-1,|
00001fb0  30 0d 04 f6 07 dd f2 72  0d 05 00 09 ef 32 32 2c  |0......r.....22,|
00001fc0  36 0d 05 0a 6c 2a 4b 45  59 30 20 2a 54 41 50 45  |6...l*KEY0 *TAPE|
00001fd0  7c 4d 44 25 3d 50 41 47  45 2d 26 45 30 30 3a 46  ||MD%=PAGE-&E00:F|
00001fe0  4f 52 20 49 25 3d 50 41  47 45 20 54 4f 20 54 4f  |OR I%=PAGE TO TO|
00001ff0  50 20 53 54 45 50 34 3a  21 28 49 25 2d 44 25 29  |P STEP4:!(I%-D%)|
00002000  3d 21 49 25 3a 4e 45 58  54 3a 3f 28 54 4f 50 2d  |=!I%:NEXT:?(TOP-|
00002010  44 25 29 3d 32 35 35 3a  50 41 47 45 3d 26 45 30  |D%)=255:PAGE=&E0|
00002020  30 7c 4d 4f 4c 44 7c 4d  52 55 4e 7c 4d 0d 05 0f  |0|MOLD|MRUN|M...|
00002030  1c ff 22 66 78 32 31 22  3a ff 22 66 78 31 33 38  |.."fx21":."fx138|
00002040  2c 30 2c 31 32 38 22 3a  e0 0d 05 14 69 dd 20 f2  |,0,128":....i. .|
00002050  72 6c 20 f7 8d 54 5e 45  3a e3 49 25 3d 26 34 41  |rl ..T^E:.I%=&4A|
00002060  43 30 b8 26 35 37 46 43  88 34 3a f3 64 24 3a 21  |C0.&57FC.4:.d$:!|
00002070  49 25 3d a0 28 22 26 22  2b 64 24 29 3a ed 3a ff  |I%=.("&"+d$):.:.|
00002080  22 4b 45 59 30 44 45 4c  2e 31 33 31 30 2c 34 30  |"KEY0DEL.1310,40|
00002090  30 30 7c 4d 37 30 7c 4d  47 4f 54 4f 31 30 7c 4d  |00|M70|MGOTO10|M|
000020a0  22 3a ff 22 46 58 31 33  38 2c 30 2c 31 32 38 22  |":."FX138,0,128"|
000020b0  3a e0 0d 05 1e e2 dc 31  38 41 30 30 34 41 32 2c  |:......18A004A2,|
000020c0  41 35 34 43 31 32 32 30  2c 41 35 37 30 38 35 36  |A54C1220,A570856|
000020d0  45 2c 32 30 37 31 38 35  36 46 2c 37 43 41 35 34  |E,2071856F,7CA54|
000020e0  42 37 46 2c 31 46 30 30  33 43 39 2c 41 30 30 34  |B7F,1F003C9,A004|
000020f0  41 32 36 30 2c 38 35 36  45 41 35 31 38 2c 38 35  |A260,856EA518,85|
00002100  36 46 41 35 37 30 2c 34  42 43 32 32 30 37 31 2c  |6FA570,4BC22071,|
00002110  37 30 38 35 36 45 41 35  2c 37 31 38 35 36 46 41  |70856EA5,71856FA|
00002120  35 2c 36 30 34 42 33 42  34 43 2c 45 39 36 45 41  |5,604B3B4C,E96EA|
00002130  35 33 38 2c 41 35 36 45  38 35 34 30 2c 38 35 30  |538,A56E8540,850|
00002140  31 45 39 36 46 2c 43 39  37 43 41 35 36 46 2c 32  |1E96F,C97CA56F,2|
00002150  30 33 34 46 30 30 33 2c  31 41 30 34 42 37 46 2c  |034F003,1A04B7F,|
00002160  31 38 36 30 37 43 38 34  2c 34 30 36 39 36 45 41  |18607C84,40696EA|
00002170  35 2c 36 46 41 35 36 45  38 35 2c 36 46 38 35 30  |5,6FA56E85,6F850|
00002180  31 36 39 2c 33 43 39 37  43 41 35 2c 37 46 32 30  |169,3C97CA5,7F20|
00002190  31 39 46 30 0d 05 28 e3  dc 38 34 30 32 41 30 34  |19F0..(..8402A04|
000021a0  42 2c 33 41 30 36 30 37  43 2c 41 35 33 38 37 43  |B,3A0607C,A5387C|
000021b0  38 34 2c 38 35 30 38 45  39 36 45 2c 45 39 36 46  |84,8508E96E,E96F|
000021c0  41 35 36 45 2c 41 32 36  46 38 35 30 30 2c 32 30  |A56E,A26F8500,20|
000021d0  31 38 41 30 30 34 2c 34  41 32 34 42 43 32 2c 31  |18A004,4A24BC2,1|
000021e0  32 32 30 31 38 41 30 2c  31 38 34 42 41 39 34 43  |22018A0,184BA94C|
000021f0  2c 38 37 38 44 36 30 36  39 2c 36 39 34 44 41 39  |,878D6069,694DA9|
00002200  34 43 2c 34 43 38 38 38  44 30 30 2c 31 38 41 30  |4C,4C888D00,18A0|
00002210  30 34 41 32 2c 41 35 34  43 36 41 32 30 2c 41 35  |04A2,A54C6A20,A5|
00002220  37 30 38 35 36 45 2c 36  30 37 31 38 35 36 46 2c  |70856E,6071856F,|
00002230  36 39 36 45 41 35 31 38  2c 41 35 36 45 38 35 30  |696EA518,A56E850|
00002240  38 2c 38 35 30 30 36 39  36 46 2c 34 42 37 46 32  |8,8500696F,4B7F2|
00002250  30 36 46 2c 37 43 38 34  30 34 41 30 2c 41 39 36  |06F,7C8404A0,A96|
00002260  30 36 30 36 30 2c 41 32  37 45 38 35 30 31 2c 32  |06060,A27E8501,2|
00002270  30 31 38 41 30 30 34 0d  05 32 e8 dc 34 41 32 34  |018A004..2..4A24|
00002280  42 43 32 2c 31 32 32 30  31 38 41 30 2c 38 44 34  |BC2,122018A0,8D4|
00002290  42 41 39 34 43 2c 34 44  41 39 34 43 38 37 2c 41  |BA94C,4DA94C87,A|
000022a0  32 34 43 38 38 38 44 2c  32 30 31 38 41 30 30 34  |24C888D,2018A004|
000022b0  2c 36 45 41 35 34 43 36  41 2c 36 46 41 35 37 30  |,6EA54C6A,6FA570|
000022c0  38 35 2c 32 30 36 30 37  31 38 35 2c 34 41 39 46  |85,20607185,4A9F|
000022d0  46 45 30 2c 46 45 30 30  32 43 37 38 2c 41 32 35  |FE0,FE002C78,A25|
000022e0  38 46 42 46 30 2c 38 38  30 32 41 30 32 33 2c 44  |8FBF0,8802A023,D|
000022f0  30 43 41 46 44 44 30 2c  37 38 38 36 36 30 46 41  |0CAFDD0,788660FA|
00002300  2c 41 32 37 36 38 34 2c  37 30 41 35 30 30 41 30  |,A27684,70A500A0|
00002310  2c 37 31 41 35 37 34 38  35 2c 37 36 41 35 37 35  |,71A57485,76A575|
00002320  38 35 2c 45 42 42 44 37  37 38 35 2c 45 38 37 30  |85,EBBD7785,E870|
00002330  39 31 34 43 2c 37 32 39  37 30 41 35 2c 39 46 30  |914C,72970A5,9F0|
00002340  30 37 43 39 2c 31 31 44  30 37 30 45 36 2c 46 39  |07C9,11D070E6,F9|
00002350  34 43 37 31 45 36 2c 36  39 37 30 41 35 34 42 0d  |4C71E6,6970A54B.|
00002360  05 3c ea dc 41 35 37 30  38 35 33 38 2c 38 35 30  |.<..A5708538,850|
00002370  31 36 39 37 31 2c 44 30  37 37 43 36 37 31 2c 36  |16971,D077C671,6|
00002380  39 37 34 41 35 44 39 2c  38 35 37 30 38 35 30 38  |974A5D9,85708508|
00002390  2c 36 39 37 35 41 35 37  34 2c 38 35 37 31 38 35  |,6975A574,857185|
000023a0  30 30 2c 44 30 37 38 43  36 37 35 2c 36 45 41 35  |00,D078C675,6EA5|
000023b0  36 30 43 31 2c 36 46 41  35 37 32 38 35 2c 37 38  |60C1,6FA57285,78|
000023c0  38 36 37 33 38 35 2c 41  32 37 36 38 34 2c 37 32  |867385,A27684,72|
000023d0  41 35 30 30 41 30 2c 37  33 41 35 37 34 38 35 2c  |A500A0,73A57485,|
000023e0  37 36 41 35 37 35 38 35  2c 37 32 42 31 37 37 38  |76A57585,72B1778|
000023f0  35 2c 45 38 34 43 45 42  39 44 2c 37 32 39 37 32  |5,E84CEB9D,72972|
00002400  41 35 2c 39 46 30 30 37  43 39 2c 31 31 44 30 37  |A5,9F007C9,11D07|
00002410  32 45 36 2c 35 31 34 43  37 33 45 36 2c 36 39 37  |2E6,514C73E6,697|
00002420  32 41 35 34 43 2c 41 35  37 32 38 35 33 38 2c 38  |2A54C,A5728538,8|
00002430  35 30 31 36 39 37 33 2c  44 30 37 37 43 36 37 33  |5016973,D077C673|
00002440  2c 36 39 37 34 41 35 44  39 0d 05 46 e7 dc 38 35  |,6974A5D9..F..85|
00002450  37 32 38 35 30 38 2c 36  39 37 35 41 35 37 34 2c  |728508,6975A574,|
00002460  38 35 37 33 38 35 30 30  2c 44 30 37 38 43 36 37  |85738500,D078C67|
00002470  35 2c 36 45 41 35 36 30  43 31 2c 36 46 41 35 37  |5,6EA560C1,6FA57|
00002480  32 38 35 2c 37 38 38 36  37 33 38 35 2c 41 32 37  |285,78867385,A27|
00002490  36 38 34 2c 37 32 41 35  30 30 41 30 2c 37 33 41  |684,72A500A0,73A|
000024a0  35 37 34 38 35 2c 37 36  41 35 37 35 38 35 2c 42  |57485,76A57585,B|
000024b0  44 37 37 38 35 2c 41 35  38 30 38 35 33 30 2c 41  |D7785,A5808530,A|
000024c0  35 31 46 46 30 37 45 2c  38 35 37 41 38 35 38 30  |51FF07E,857A8580|
000024d0  2c 36 37 41 30 36 37 42  2c 36 37 41 30 36 37 41  |,67A067B,67A067A|
000024e0  2c 34 41 34 41 34 41 37  41 2c 35 37 41 30 35 34  |,4A4A4A7A,57A054|
000024f0  41 2c 33 31 46 46 34 39  37 42 2c 34 43 37 42 30  |A,31FF497B,4C7B0|
00002500  35 37 32 2c 38 30 41 35  34 43 42 32 2c 37 32 39  |572,80A54CB2,729|
00002510  31 30 32 46 30 2c 32 39  37 32 41 35 45 38 2c 46  |102F0,2972A5E8,F|
00002520  30 30 37 43 39 30 37 2c  44 30 37 32 45 36 30 39  |007C907,D072E609|
00002530  0d 05 50 e4 dc 34 43 37  33 45 36 31 31 2c 37 32  |..P..4C73E611,72|
00002540  41 35 34 43 44 32 2c 37  32 38 35 33 38 36 39 2c  |A54CD2,72853869,|
00002550  31 36 39 37 33 41 35 2c  37 37 43 36 37 33 38 35  |16973A5,77C67385|
00002560  2c 37 34 41 35 42 30 44  30 2c 37 32 38 35 30 38  |,74A5B0D0,728508|
00002570  36 39 2c 37 35 41 35 37  34 38 35 2c 37 33 38 35  |69,75A57485,7385|
00002580  30 30 36 39 2c 37 38 43  36 37 35 38 35 2c 36 30  |0069,78C67585,60|
00002590  39 38 44 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |98D0,0,0,0,0,0,0|
000025a0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
*
000025c0  2c 30 2c 30 2c 30 2c 35  30 30 30 30 30 30 30 2c  |,0,0,0,50000000,|
000025d0  38 37 41 35 42 34 42 34  2c 42 34 42 34 41 35 38  |87A5B4B4,B4B4A58|
000025e0  37 2c 35 30 2c 30 2c 33  30 31 30 31 30 31 30 2c  |7,50,0,30101010,|
000025f0  38 37 38 37 43 33 36 31  2c 46 30 46 30 46 30 46  |8787C361,F0F0F0F|
00002600  2c 46 30 46 30 46 30 46  2c 36 31 43 33 38 37 38  |,F0F0F0F,61C3878|
00002610  37 2c 33 30 0d 05 5a e2  dc 31 45 31 45 31 45 46  |7,30..Z..1E1E1EF|
00002620  30 2c 38 30 38 30 44 30  46 2c 46 30 46 30 38 30  |0,8080D0F,F0F080|
00002630  38 2c 46 30 46 30 46 30  46 2c 46 30 46 30 46 30  |8,F0F0F0F,F0F0F0|
00002640  46 2c 45 30 42 34 2c 38  30 30 30 30 30 30 30 2c  |F,E0B4,80000000,|
00002650  32 43 36 38 34 38 43 30  2c 31 45 31 45 33 34 32  |2C6848C0,1E1E342|
00002660  34 2c 32 43 33 43 31 45  31 45 2c 43 30 34 38 36  |4,2C3C1E1E,C0486|
00002670  38 32 43 2c 38 30 2c 31  30 30 30 30 30 30 30 2c  |82C,80,10000000,|
00002680  34 33 36 31 32 31 33 30  2c 38 37 38 37 43 32 34  |43612130,8787C24|
00002690  32 2c 34 33 43 33 38 37  38 37 2c 33 30 32 31 36  |2,43C38787,30216|
000026a0  31 34 33 2c 31 30 2c 38  37 38 37 38 37 46 30 2c  |143,10,878787F0,|
000026b0  31 30 31 30 42 30 46 2c  46 30 46 30 31 30 31 2c  |1010B0F,F0F0101,|
000026c0  46 30 46 30 46 30 46 2c  46 30 46 30 46 30 46 2c  |F0F0F0F,F0F0F0F,|
000026d0  37 30 44 32 2c 43 30 38  30 38 30 38 30 2c 31 45  |70D2,C0808080,1E|
000026e0  31 45 33 43 36 38 2c 46  30 46 30 46 30 46 2c 46  |1E3C68,F0F0F0F,F|
000026f0  30 46 30 46 30 46 0d 05  64 e3 dc 36 38 33 43 31  |0F0F0F..d..683C1|
00002700  45 31 45 2c 43 30 2c 30  2c 41 30 30 30 30 30 30  |E1E,C0,0,A000000|
00002710  30 2c 31 45 35 41 44 32  44 32 2c 44 32 44 32 35  |0,1E5AD2D2,D2D25|
00002720  41 31 45 2c 41 30 2c 41  35 30 30 30 30 30 30 2c  |A1E,A0,A5000000,|
00002730  42 39 41 38 30 41 37 46  2c 35 30 38 35 34 45 42  |B9A80A7F,50854EB|
00002740  43 2c 38 35 34 45 42 44  42 39 2c 38 35 38 30 41  |C,854EBDB9,8580A|
00002750  39 35 31 2c 38 35 35 41  41 39 35 32 2c 38 34 30  |951,855AA952,840|
00002760  30 41 30 35 33 2c 38 34  30 41 41 30 35 36 2c 34  |0A053,840AA056,4|
00002770  38 35 33 41 35 35 35 2c  41 39 34 38 35 32 41 35  |853A555,A94852A5|
00002780  2c 41 35 35 34 38 35 30  35 2c 41 35 37 39 38 35  |,A5548505,A57985|
00002790  35 32 2c 41 34 37 41 38  35 35 33 2c 42 31 35 36  |52,A47A8553,B156|
000027a0  45 36 35 36 2c 34 41 34  41 34 38 35 30 2c 39 41  |E656,4A4A4850,9A|
000027b0  32 30 34 41 34 41 2c 36  39 35 32 41 35 34 45 2c  |204A4A,6952A54E,|
000027c0  41 35 37 39 38 35 32 30  2c 38 35 30 30 36 39 35  |A5798520,8500695|
000027d0  33 2c 46 32 39 36 38 37  41 0d 05 6e e2 dc 41 35  |3,F29687A..n..A5|
000027e0  34 45 39 41 32 30 2c 38  35 34 30 36 39 35 32 2c  |4E9A20,85406952,|
000027f0  36 39 35 33 41 35 35 32  2c 43 36 35 33 38 35 30  |6953A552,C653850|
00002800  30 2c 36 38 43 38 44 30  35 34 2c 35 32 38 35 43  |0,68C8D054,5285C|
00002810  30 36 39 2c 38 35 30 33  36 39 36 38 2c 44 30 35  |069,85036968,D05|
00002820  35 43 36 35 33 2c 36 30  42 30 2c 43 30 30 30 36  |5C653,60B0,C0006|
00002830  30 2c 31 38 30 30 31 32  30 2c 32 34 30 30 31 45  |0,1800120,24001E|
00002840  30 2c 33 30 30 30 32 41  30 2c 33 43 30 30 33 36  |0,30002A0,3C0036|
00002850  30 2c 34 38 30 30 34 32  30 2c 35 34 30 30 34 45  |0,4800420,54004E|
00002860  30 2c 41 38 30 41 30 35  41 30 2c 36 39 34 45 37  |0,A80A05A0,694E7|
00002870  41 42 39 2c 34 43 38 37  38 44 44 38 2c 36 39 34  |AB9,4C878DD8,694|
00002880  45 37 42 42 39 2c 34 43  38 38 38 44 34 45 2c 31  |E7BB9,4C888D4E,1|
00002890  38 41 30 30 34 41 32 2c  36 45 38 35 37 39 41 35  |8A004A2,6E8579A5|
000028a0  2c 36 46 38 35 37 41 41  35 2c 36 30 34 43 36 41  |,6F857AA5,604C6A|
000028b0  32 30 2c 35 35 41 34 35  35 37 32 0d 05 78 e5 dc  |20,55A45572..x..|
000028c0  35 36 30 38 35 35 44 36  2c 35 36 36 43 35 36 33  |560855D6,566C563|
000028d0  41 2c 35 36 44 30 35 36  39 45 2c 35 37 33 34 35  |A,56D0569E,57345|
000028e0  37 30 32 2c 35 37 39 38  35 37 36 36 2c 35 37 46  |702,57985766,57F|
000028f0  43 35 37 43 41 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |C57CA,0,0,0,0,0,|
00002900  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
*
00002920  30 2c 30 2c 30 2c 46 30  46 30 30 30 30 2c 46 35  |0,0,0,F0F0000,F5|
00002930  46 32 46 30 30 46 2c 46  42 46 45 46 35 46 45 2c  |F2F00F,FBFEF5FE,|
00002940  46 46 46 42 46 46 46 45  2c 46 46 46 46 46 44 46  |FFFBFFFE,FFFFFDF|
00002950  46 2c 46 46 46 46 46 46  46 37 2c 46 30 46 30 30  |F,FFFFFFF7,F0F00|
00002960  30 30 2c 46 35 46 32 46  30 30 46 2c 46 42 46 45  |00,F5F2F00F,FBFE|
00002970  46 35 46 45 2c 46 46 46  36 46 46 46 45 2c 46 37  |F5FE,FFF6FFFE,F7|
00002980  46 46 46 44 46 46 2c 46  46 46 46 46 46 46 46 2c  |FFFDFF,FFFFFFFF,|
00002990  46 30 46 30 30 30 30 2c  46 41 46 34 46 30 30 46  |F0F0000,FAF4F00F|
000029a0  0d 05 82 e9 dc 46 44 46  37 46 41 46 37 2c 46 46  |.....FDF7FAF7,FF|
000029b0  46 36 46 46 46 37 2c 46  45 46 46 46 42 46 46 2c  |F6FFF7,FEFFFBFF,|
000029c0  46 46 46 46 46 46 46 46  2c 46 30 46 30 30 30 30  |FFFFFFFF,F0F0000|
000029d0  2c 46 41 46 34 46 30 30  46 2c 46 44 46 37 46 41  |,FAF4F00F,FDF7FA|
000029e0  46 37 2c 46 46 46 44 46  46 46 37 2c 46 46 46 46  |F7,FFFDFFF7,FFFF|
000029f0  46 42 46 46 2c 46 46 46  46 46 46 46 45 2c 46 37  |FBFF,FFFFFFFE,F7|
00002a00  46 46 46 46 46 46 2c 46  46 46 44 46 46 46 46 2c  |FFFFFF,FFFDFFFF,|
00002a10  46 45 46 46 46 42 46 46  2c 46 45 46 35 46 45 46  |FEFFFBFF,FEF5FEF|
00002a20  42 2c 46 46 30 46 32 46  35 2c 46 30 46 2c 46 46  |B,FF0F2F5,F0F,FF|
00002a30  46 46 46 46 46 46 2c 46  46 46 44 46 46 46 37 2c  |FFFFFF,FFFDFFF7,|
00002a40  46 45 46 46 46 36 46 46  2c 46 45 46 35 46 45 46  |FEFFF6FF,FEF5FEF|
00002a50  42 2c 46 46 30 46 32 46  35 2c 46 30 46 2c 46 46  |B,FF0F2F5,F0F,FF|
00002a60  46 46 46 46 46 46 2c 46  46 46 42 46 46 46 45 2c  |FFFFFF,FFFBFFFE,|
00002a70  46 37 46 46 46 36 46 46  2c 46 37 46 41 46 37 46  |F7FFF6FF,F7FAF7F|
00002a80  44 2c 46 46 30 46 34 46  41 0d 05 8c e3 dc 46 30  |D,FF0F4FA.....F0|
00002a90  46 2c 46 45 46 46 46 46  46 46 2c 46 46 46 42 46  |F,FEFFFFFF,FFFBF|
00002aa0  46 46 46 2c 46 37 46 46  46 44 46 46 2c 46 37 46  |FFF,F7FFFDFF,F7F|
00002ab0  41 46 37 46 44 2c 46 46  30 46 34 46 41 2c 46 30  |AF7FD,FF0F4FA,F0|
00002ac0  46 2c 31 36 31 36 31 36  31 36 2c 31 36 31 36 31  |F,16161616,16161|
00002ad0  36 31 36 2c 31 36 31 36  31 36 31 36 2c 31 36 31  |616,16161616,161|
00002ae0  36 31 36 31 36 2c 31 36  31 36 31 36 31 36 2c 31  |61616,16161616,1|
00002af0  36 31 36 31 36 31 36 2c  46 35 46 42 46 35 46 45  |6161616,F5FBF5FE|
00002b00  2c 46 35 46 42 46 35 46  45 2c 46 35 46 42 46 35  |,F5FBF5FE,F5FBF5|
00002b10  46 45 2c 46 35 46 42 46  35 46 45 2c 46 35 46 42  |FE,F5FBF5FE,F5FB|
00002b20  46 35 46 45 2c 46 35 46  42 46 35 46 45 2c 46 46  |F5FE,F5FBF5FE,FF|
00002b30  46 37 46 46 46 44 2c 46  46 46 37 46 46 46 44 2c  |F7FFFD,FFF7FFFD,|
00002b40  46 46 46 36 46 46 46 42  2c 46 46 46 37 46 46 46  |FFF6FFFB,FFF7FFF|
00002b50  44 2c 46 46 46 36 46 46  46 42 2c 46 46 46 37 46  |D,FFF6FFFB,FFF7F|
00002b60  46 46 44 2c 46 46 46 46  46 46 46 46 0d 05 96 e5  |FFD,FFFFFFFF....|
00002b70  dc 46 46 46 37 46 46 46  46 2c 46 46 46 46 46 46  |.FFF7FFFF,FFFFFF|
00002b80  46 46 2c 46 37 46 46 46  46 46 46 2c 46 46 46 46  |FF,F7FFFFFF,FFFF|
00002b90  46 46 46 46 2c 46 46 46  37 46 46 46 46 2c 46 46  |FFFF,FFF7FFFF,FF|
00002ba0  46 46 46 46 46 46 2c 46  46 46 45 46 46 46 46 2c  |FFFFFF,FFFEFFFF,|
00002bb0  46 46 46 46 46 46 46 46  2c 46 45 46 46 46 46 46  |FFFFFFFF,FEFFFFF|
00002bc0  46 2c 46 46 46 46 46 46  46 46 2c 46 46 46 45 46  |F,FFFFFFFF,FFFEF|
00002bd0  46 46 46 2c 46 46 46 45  46 46 46 42 2c 46 46 46  |FFF,FFFEFFFB,FFF|
00002be0  45 46 46 46 42 2c 46 46  46 36 46 46 46 44 2c 46  |EFFFB,FFF6FFFD,F|
00002bf0  46 46 45 46 46 46 42 2c  46 46 46 36 46 46 46 44  |FFEFFFB,FFF6FFFD|
00002c00  2c 46 46 46 45 46 46 46  42 2c 46 41 46 44 46 41  |,FFFEFFFB,FAFDFA|
00002c10  46 37 2c 46 41 46 44 46  41 46 37 2c 46 41 46 44  |F7,FAFDFAF7,FAFD|
00002c20  46 41 46 37 2c 46 41 46  44 46 41 46 37 2c 46 41  |FAF7,FAFDFAF7,FA|
00002c30  46 44 46 41 46 37 2c 46  41 46 44 46 41 46 37 2c  |FDFAF7,FAFDFAF7,|
00002c40  38 36 38 36 38 36 38 36  2c 38 36 38 36 38 36 38  |86868686,8686868|
00002c50  36 0d 05 a0 e5 dc 38 36  38 36 38 36 38 36 2c 38  |6.....86868686,8|
00002c60  36 38 36 38 36 38 36 2c  38 36 38 36 38 36 38 36  |6868686,86868686|
00002c70  2c 38 36 38 36 38 36 38  36 2c 46 30 45 30 30 30  |,86868686,F0E000|
00002c80  30 2c 46 35 46 41 46 30  30 46 2c 46 46 46 36 46  |0,F5FAF00F,FFF6F|
00002c90  44 46 45 2c 46 46 46 37  46 45 46 42 2c 46 46 46  |DFE,FFF7FEFB,FFF|
00002ca0  46 46 46 46 44 2c 46 46  46 46 46 46 46 46 2c 38  |FFFFD,FFFFFFFF,8|
00002cb0  30 30 30 30 30 30 2c 45  31 43 33 30 46 30 45 2c  |000000,E1C30F0E,|
00002cc0  46 44 46 41 46 34 46 38  2c 46 46 46 41 46 44 46  |FDFAF4F8,FFFAFDF|
00002cd0  41 2c 46 45 46 46 46 42  46 45 2c 46 46 46 37 46  |A,FEFFFBFE,FFF7F|
00002ce0  45 46 46 2c 30 2c 43 30  38 30 30 30 30 2c 43 33  |EFF,0,C080000,C3|
00002cf0  43 33 38 36 30 45 2c 46  34 45 39 45 39 45 31 2c  |C3860E,F4E9E9E1,|
00002d00  46 43 46 41 46 34 46 41  2c 46 44 46 41 46 44 46  |FCFAF4FA,FDFAFDF|
00002d10  41 2c 30 2c 30 2c 30 2c  43 30 38 30 38 30 38 2c  |A,0,0,0,C080808,|
00002d20  45 30 43 30 43 30 43 2c  38 36 38 36 38 36 38 36  |E0C0C0C,86868686|
00002d30  2c 30 2c 30 2c 30 0d 05  aa e5 dc 33 30 31 30 31  |,0,0,0.....30101|
00002d40  30 31 2c 37 30 33 30 33  30 33 2c 31 36 31 36 31  |01,7030303,16161|
00002d50  36 31 36 2c 30 2c 33 30  31 30 30 30 30 2c 33 43  |616,0,3010000,3C|
00002d60  33 43 31 36 30 37 2c 46  32 37 39 37 39 37 38 2c  |3C1607,F2797978,|
00002d70  46 33 46 35 46 32 46 35  2c 46 42 46 35 46 42 46  |F3F5F2F5,FBF5FBF|
00002d80  35 2c 31 30 30 30 30 30  30 2c 37 38 33 43 30 46  |5,1000000,783C0F|
00002d90  30 37 2c 46 42 46 35 46  32 46 31 2c 46 46 46 35  |07,FBF5F2F1,FFF5|
00002da0  46 42 46 35 2c 46 37 46  46 46 44 46 37 2c 46 46  |FBF5,F7FFFDF7,FF|
00002db0  46 45 46 37 46 46 2c 46  30 37 30 30 30 30 2c 46  |FEF7FF,F070000,F|
00002dc0  41 46 35 46 30 30 46 2c  46 46 46 36 46 42 46 37  |AF5F00F,FFF6FBF7|
00002dd0  2c 46 46 46 45 46 37 46  44 2c 46 46 46 46 46 46  |,FFFEF7FD,FFFFFF|
00002de0  46 42 2c 46 46 46 46 46  46 46 46 2c 46 46 46 46  |FB,FFFFFFFF,FFFF|
00002df0  46 46 46 46 2c 46 44 46  46 46 46 46 46 2c 46 42  |FFFF,FDFFFFFF,FB|
00002e00  46 45 46 37 46 46 2c 46  45 46 44 46 36 46 46 2c  |FEF7FF,FEFDF6FF,|
00002e10  46 46 30 46 41 46 35 2c  45 30 46 0d 05 b4 e6 dc  |FF0FAF5,E0F.....|
00002e20  46 46 46 45 46 37 46 46  2c 46 45 46 42 46 46 46  |FFFEF7FF,FEFBFFF|
00002e30  45 2c 46 41 46 44 46 41  46 46 2c 46 38 46 34 46  |E,FAFDFAFF,F8F4F|
00002e40  41 46 44 2c 45 30 46 43  33 45 31 2c 38 2c 46 41  |AFD,E0FC3E1,8,FA|
00002e50  46 44 46 41 46 44 2c 46  41 46 34 46 41 46 43 2c  |FDFAFD,FAF4FAFC,|
00002e60  45 31 45 39 45 39 46 34  2c 45 38 36 43 33 43 33  |E1E9E9F4,E86C3C3|
00002e70  2c 38 30 43 2c 30 2c 38  36 38 36 38 36 38 36 2c  |,80C,0,86868686,|
00002e80  43 30 43 30 43 30 45 2c  38 30 38 30 38 30 43 2c  |C0C0C0E,808080C,|
00002e90  30 2c 30 2c 30 2c 31 36  31 36 31 36 31 36 2c 33  |0,0,0,16161616,3|
00002ea0  30 33 30 33 30 37 2c 31  30 31 30 31 30 33 2c 30  |030307,1010103,0|
00002eb0  2c 30 2c 30 2c 46 35 46  42 46 35 46 42 2c 46 35  |,0,0,F5FBF5FB,F5|
00002ec0  46 32 46 35 46 33 2c 37  38 37 39 37 39 46 32 2c  |F2F5F3,787979F2,|
00002ed0  37 31 36 33 43 33 43 2c  31 30 33 2c 30 2c 46 46  |7163C3C,103,0,FF|
00002ee0  46 37 46 45 46 46 2c 46  37 46 44 46 46 46 37 2c  |F7FEFF,F7FDFFF7,|
00002ef0  46 35 46 42 46 35 46 46  2c 46 31 46 32 46 35 46  |F5FBF5FF,F1F2F5F|
00002f00  42 0d 05 be e9 dc 37 30  46 33 43 37 38 2c 31 2c  |B.....70F3C78,1,|
00002f10  46 46 46 46 46 46 46 46  2c 46 42 46 46 46 46 46  |FFFFFFFF,FBFFFFF|
00002f20  46 2c 46 44 46 37 46 45  46 46 2c 46 37 46 42 46  |F,FDF7FEFF,F7FBF|
00002f30  36 46 46 2c 46 46 30 46  35 46 41 2c 37 30 46 2c  |6FF,FF0F5FA,70F,|
00002f40  33 43 33 43 31 36 31 36  2c 46 42 46 35 46 32 37  |3C3C1616,FBF5F27|
00002f50  39 2c 46 35 46 45 46 42  46 36 2c 46 46 46 44 46  |9,F5FEFBF6,FFFDF|
00002f60  46 46 46 2c 46 46 46 46  46 46 46 37 2c 46 46 46  |FFF,FFFFFFF7,FFF|
00002f70  46 46 46 46 46 2c 46 42  46 35 46 42 46 36 2c 46  |FFFFF,FBF5FBF6,F|
00002f80  42 46 37 46 41 46 37 2c  46 46 46 44 46 46 46 45  |BF7FAF7,FFFDFFFE|
00002f90  2c 46 42 46 46 46 46 46  42 2c 46 46 46 46 46 46  |,FBFFFFFB,FFFFFF|
00002fa0  46 46 2c 46 46 46 46 46  46 46 46 2c 46 46 46 37  |FF,FFFFFFFF,FFF7|
00002fb0  46 44 46 46 2c 46 46 46  42 46 46 46 42 2c 46 46  |FDFF,FFFBFFFB,FF|
00002fc0  46 42 46 46 46 46 2c 46  46 46 46 46 42 46 46 2c  |FBFFFF,FFFFFBFF,|
00002fd0  46 46 46 46 46 46 46 46  2c 46 46 46 46 46 46 46  |FFFFFFFF,FFFFFFF|
00002fe0  46 2c 46 37 46 46 46 46  46 46 0d 05 c8 e5 dc 46  |F,F7FFFFFF.....F|
00002ff0  46 46 46 46 46 46 46 2c  46 46 46 46 46 46 46 46  |FFFFFFF,FFFFFFFF|
00003000  2c 46 46 46 46 46 46 46  46 2c 46 46 46 46 46 46  |,FFFFFFFF,FFFFFF|
00003010  46 46 2c 46 46 46 46 46  46 46 46 2c 46 46 46 46  |FF,FFFFFFFF,FFFF|
00003020  46 46 46 46 2c 46 37 46  46 46 46 46 46 2c 46 46  |FFFF,F7FFFFFF,FF|
00003030  46 46 46 44 46 46 2c 46  36 46 42 46 45 46 35 2c  |FFFDFF,F6FBFEF5,|
00003040  37 39 46 32 46 35 46 42  2c 31 36 31 36 33 43 33  |79F2F5FB,16163C3|
00003050  43 2c 46 46 46 46 46 46  46 46 2c 46 46 46 46 46  |C,FFFFFFFF,FFFFF|
00003060  46 46 46 2c 46 42 46 46  46 46 46 42 2c 46 45 46  |FFF,FBFFFFFB,FEF|
00003070  46 46 44 46 46 2c 46 37  46 41 46 37 46 42 2c 46  |FFDFF,F7FAF7FB,F|
00003080  36 46 42 46 35 46 42 2c  46 46 46 46 46 46 46 46  |6FBF5FB,FFFFFFFF|
00003090  2c 46 46 46 46 46 46 46  46 2c 46 46 46 42 46 46  |,FFFFFFFF,FFFBFF|
000030a0  46 46 2c 46 46 46 46 46  42 46 46 2c 46 42 46 46  |FF,FFFFFBFF,FBFF|
000030b0  46 42 46 46 2c 46 46 46  44 46 37 46 46 2c 46 46  |FBFF,FFFDF7FF,FF|
000030c0  46 46 46 46 46 46 2c 46  46 46 46 46 46 46 46 0d  |FFFFFF,FFFFFFFF.|
000030d0  05 d2 e5 dc 46 46 46 46  46 46 46 46 2c 46 46 46  |....FFFFFFFF,FFF|
000030e0  46 46 46 46 46 2c 46 46  46 46 46 46 46 46 2c 46  |FFFFF,FFFFFFFF,F|
000030f0  46 46 46 46 46 46 37 2c  46 45 46 46 46 46 46 46  |FFFFFF7,FEFFFFFF|
00003100  2c 46 46 46 46 46 46 46  46 2c 46 46 46 46 46 46  |,FFFFFFFF,FFFFFF|
00003110  46 46 2c 46 46 46 46 46  46 46 46 2c 46 46 46 46  |FF,FFFFFFFF,FFFF|
00003120  46 46 46 46 2c 46 46 46  46 46 46 46 46 2c 46 46  |FFFF,FFFFFFFF,FF|
00003130  46 45 46 42 46 46 2c 46  46 46 44 46 46 46 44 2c  |FEFBFF,FFFDFFFD,|
00003140  46 46 46 44 46 46 46 46  2c 46 46 46 46 46 44 46  |FFFDFFFF,FFFFFDF|
00003150  46 2c 46 46 46 46 46 46  46 46 2c 46 46 46 46 46  |F,FFFFFFFF,FFFFF|
00003160  46 46 46 2c 46 44 46 41  46 44 46 36 2c 46 44 46  |FFF,FDFAFDF6,FDF|
00003170  45 46 35 46 45 2c 46 46  46 42 46 46 46 37 2c 46  |EF5FE,FFFBFFF7,F|
00003180  44 46 46 46 46 46 44 2c  46 46 46 46 46 46 46 46  |DFFFFFD,FFFFFFFF|
00003190  2c 46 46 46 46 46 46 46  46 2c 43 33 43 33 38 36  |,FFFFFFFF,C3C386|
000031a0  38 36 2c 46 44 46 41 46  34 45 39 2c 46 41 46 37  |86,FDFAF4E9,FAF7|
000031b0  46 44 46 36 0d 05 dc e5  dc 46 46 46 42 46 46 46  |FDF6.....FFFBFFF|
000031c0  46 2c 46 46 46 46 46 46  46 45 2c 46 46 46 46 46  |F,FFFFFFFE,FFFFF|
000031d0  46 46 46 2c 46 46 46 46  46 46 46 46 2c 46 46 46  |FFF,FFFFFFFF,FFF|
000031e0  46 46 46 46 46 2c 46 46  46 46 46 46 46 46 2c 46  |FFFFF,FFFFFFFF,F|
000031f0  46 46 46 46 46 46 46 2c  46 46 46 46 46 46 46 46  |FFFFFFF,FFFFFFFF|
00003200  2c 46 46 46 46 46 46 46  45 2c 46 46 46 46 46 46  |,FFFFFFFE,FFFFFF|
00003210  46 46 2c 46 46 46 46 46  46 46 46 2c 46 46 46 44  |FF,FFFFFFFF,FFFD|
00003220  46 46 46 46 2c 46 46 46  46 46 44 46 46 2c 46 44  |FFFF,FFFFFDFF,FD|
00003230  46 46 46 44 46 46 2c 46  46 46 42 46 45 46 46 2c  |FFFDFF,FFFBFEFF,|
00003240  46 46 46 46 46 46 46 46  2c 46 46 46 46 46 46 46  |FFFFFFFF,FFFFFFF|
00003250  46 2c 46 44 46 46 46 46  46 44 2c 46 37 46 46 46  |F,FDFFFFFD,F7FFF|
00003260  42 46 46 2c 46 45 46 35  46 45 46 44 2c 46 36 46  |BFF,FEF5FEFD,F6F|
00003270  44 46 41 46 44 2c 46 46  46 46 46 46 46 46 2c 46  |DFAFD,FFFFFFFF,F|
00003280  45 46 46 46 46 46 46 2c  46 46 46 46 46 42 46 46  |EFFFFFF,FFFFFBFF|
00003290  2c 46 36 46 44 46 37 46  41 0d 05 e6 e5 dc 45 39  |,F6FDF7FA.....E9|
000032a0  46 34 46 41 46 44 2c 38  36 38 36 43 33 43 33 2c  |F4FAFD,8686C3C3,|
000032b0  31 31 30 31 31 31 30 31  2c 31 31 30 31 31 31 30  |11011101,1101110|
000032c0  31 2c 31 31 30 31 31 31  30 31 2c 31 31 30 31 31  |1,11011101,11011|
000032d0  31 30 31 2c 31 31 30 31  31 31 30 31 2c 31 31 30  |101,11011101,110|
000032e0  31 31 31 30 31 2c 37 37  44 44 37 36 42 42 2c 37  |11101,77DD76BB,7|
000032f0  37 44 44 37 36 42 42 2c  37 37 44 44 37 36 42 42  |7DD76BB,77DD76BB|
00003300  2c 37 37 44 44 37 36 42  42 2c 37 37 44 44 37 36  |,77DD76BB,77DD76|
00003310  42 42 2c 37 37 44 44 37  36 42 42 2c 46 34 46 41  |BB,77DD76BB,F4FA|
00003320  46 44 46 41 2c 46 34 46  41 46 44 46 41 2c 46 34  |FDFA,F4FAFDFA,F4|
00003330  46 41 46 44 46 41 2c 46  34 46 41 46 44 46 41 2c  |FAFDFA,F4FAFDFA,|
00003340  46 34 46 41 46 44 46 41  2c 46 34 46 41 46 44 46  |F4FAFDFA,F4FAFDF|
00003350  41 2c 38 30 38 30 38 30  38 30 2c 38 30 38 30 38  |A,80808080,80808|
00003360  30 38 30 2c 38 30 38 30  38 30 38 30 2c 38 30 38  |080,80808080,808|
00003370  30 38 30 38 30 2c 38 30  38 30 38 30 38 30 0d 05  |08080,80808080..|
00003380  f0 e4 dc 38 30 38 30 38  30 38 30 2c 30 2c 42 42  |...80808080,0,BB|
00003390  45 45 35 35 41 46 2c 46  46 46 46 46 46 46 46 2c  |EE55AF,FFFFFFFF,|
000033a0  46 42 46 45 46 46 46 46  2c 46 30 46 30 46 41 46  |FBFEFFFF,F0F0FAF|
000033b0  35 2c 46 30 46 30 46 30  46 30 2c 30 2c 42 42 45  |5,F0F0F0F0,0,BBE|
000033c0  45 35 35 41 46 2c 46 46  46 46 46 46 46 46 2c 46  |E55AF,FFFFFFFF,F|
000033d0  42 46 45 46 46 46 46 2c  46 30 46 30 46 41 46 35  |BFEFFFF,F0F0FAF5|
000033e0  2c 46 30 46 30 46 30 46  30 2c 30 2c 42 42 45 45  |,F0F0F0F0,0,BBEE|
000033f0  35 35 41 46 2c 46 46 46  46 46 46 46 46 2c 46 42  |55AF,FFFFFFFF,FB|
00003400  46 45 46 46 46 46 2c 46  30 46 30 46 41 46 35 2c  |FEFFFF,F0F0FAF5,|
00003410  46 30 46 30 46 30 46 30  2c 30 2c 42 42 45 45 35  |F0F0F0F0,0,BBEE5|
00003420  35 41 46 2c 46 46 46 46  46 46 46 46 2c 46 42 46  |5AF,FFFFFFFF,FBF|
00003430  45 46 46 46 46 2c 46 30  46 30 46 41 46 35 2c 46  |EFFFF,F0F0FAF5,F|
00003440  30 46 30 46 30 46 30 2c  31 31 30 31 31 31 30 31  |0F0F0F0,11011101|
00003450  2c 36 36 45 45 42 42 39  44 2c 45 45 45 45 45 41  |,66EEBB9D,EEEEEA|
00003460  45 45 0d 05 fa e5 dc 45  34 45 41 45 45 45 34 2c  |EE.....E4EAEEE4,|
00003470  45 30 45 34 45 30 45 41  2c 46 30 46 30 46 30 45  |E0E4E0EA,F0F0F0E|
00003480  30 2c 46 46 44 44 37 36  42 42 2c 46 46 37 37 37  |0,FFDD76BB,FF777|
00003490  37 30 30 2c 46 46 46 46  46 45 46 46 2c 46 46 46  |700,FFFFFEFF,FFF|
000034a0  37 46 45 46 46 2c 46 46  46 46 46 45 46 46 2c 46  |7FEFF,FFFFFEFF,F|
000034b0  46 30 30 37 34 37 37 2c  46 46 46 41 46 44 46 41  |F007477,FFFAFDFA|
000034c0  2c 46 35 45 41 45 45 30  30 2c 46 34 46 41 46 44  |,F5EAEE00,F4FAFD|
000034d0  46 41 2c 46 34 46 41 46  44 46 41 2c 46 35 46 42  |FA,F4FAFDFA,F5FB|
000034e0  46 44 46 42 2c 46 34 30  30 45 30 45 45 2c 38 38  |FDFB,F400E0EE,88|
000034f0  38 30 38 30 38 30 2c 36  36 37 37 44 44 41 46 2c  |808080,6677DDAF,|
00003500  37 35 37 37 37 35 37 37  2c 37 32 37 35 37 32 37  |75777577,7275727|
00003510  37 2c 37 30 37 32 37 30  37 35 2c 46 30 46 30 46  |7,70727075,F0F0F|
00003520  30 46 30 2c 41 39 35 35  32 31 38 44 2c 41 30 32  |0F0,A955218D,A02|
00003530  31 41 32 30 41 2c 46 46  46 31 32 30 35 35 2c 32  |1A20A,FFF12055,2|
00003540  41 38 44 30 30 41 39 0d  06 04 e8 dc 32 30 31 37  |A8D00A9.....2017|
00003550  41 39 35 35 2c 32 41 41  44 46 46 45 45 2c 32 30  |A955,2AADFFEE,20|
00003560  45 30 30 39 35 35 2c 32  41 41 44 46 46 45 45 2c  |E00955,2AADFFEE,|
00003570  41 41 30 41 30 41 35 35  2c 42 44 45 38 30 34 41  |AA0A0A55,BDE804A|
00003580  30 2c 45 45 32 30 35 35  32 31 2c 46 46 45 45 32  |0,EE205521,FFEE2|
00003590  30 46 46 2c 45 45 46 33  44 30 38 38 2c 32 41 41  |0FF,EEF3D088,2AA|
000035a0  44 35 35 32 41 2c 44 30  30 32 43 39 35 35 2c 42  |D552A,D002C955,B|
000035b0  44 30 34 41 32 44 34 2c  45 45 32 30 35 35 32 42  |D04A2D4,EE20552B|
000035c0  2c 46 37 31 30 43 41 46  46 2c 37 33 36 30 2c 36  |,F710CAFF,7360,6|
000035d0  33 43 36 30 33 45 2c 42  30 32 30 30 37 43 2c 45  |3C603E,B02007C,E|
000035e0  30 30 41 30 38 45 31 2c  46 45 46 46 46 46 30 44  |00A08E1,FEFFFF0D|
000035f0  2c 46 45 46 46 46 46 46  46 2c 46 45 46 46 46 46  |,FEFFFFFF,FEFFFF|
00003600  46 37 2c 37 34 37 37 46  46 46 46 2c 46 44 46 41  |F7,7477FFFF,FDFA|
00003610  46 46 30 30 2c 45 45 30  30 46 46 46 41 2c 46 44  |FF00,EE00FFFA,FD|
00003620  46 41 46 35 45 41 2c 46  44 46 41 46 34 46 41 0d  |FAF5EA,FDFAF4FA.|
00003630  06 0e e9 dc 46 44 46 42  46 34 46 41 2c 45 30 45  |....FDFBF4FA,E0E|
00003640  45 46 35 46 42 2c 38 30  38 30 46 34 30 30 2c 44  |EF5FB,8080F400,D|
00003650  44 41 46 38 38 38 30 2c  37 35 37 37 36 36 37 37  |DAF8880,75776677|
00003660  2c 37 32 37 37 37 35 37  37 2c 37 30 37 35 37 32  |,72777577,707572|
00003670  37 35 2c 46 30 46 30 37  30 37 32 2c 44 30 30 44  |75,F0F07072,D00D|
00003680  46 30 46 30 2c 31 31 33  34 30 30 30 30 2c 33 34  |F0F0,11340000,34|
00003690  31 35 31 31 31 31 2c 41  34 32 32 32 32 32 32 2c  |151111,A4222222,|
000036a0  31 31 44 36 30 44 33 34  2c 44 33 30 44 33 34 39  |11D60D34,D30D349|
000036b0  34 2c 44 33 34 32 37 43  32 2c 33 34 30 30 34 30  |4,D3427C2,340040|
000036c0  44 33 2c 45 45 34 45 46  33 45 46 2c 34 30 44 33  |D3,EE4EF3EF,40D3|
000036d0  30 44 33 34 2c 44 33 30  44 33 34 30 30 2c 44 39  |0D34,D30D3400,D9|
000036e0  34 31 31 42 31 2c 32 37  32 32 32 32 44 38 2c 44  |411B1,272222D8,D|
000036f0  30 34 30 30 33 2c 44 36  34 30 30 33 44 30 2c 34  |04003,D64003D0,4|
00003700  30 30 33 31 31 31 31 2c  33 32 32 43 32 44 33 2c  |0031111,322C2D3,|
00003710  44 30 34 30 44 33 34 30  0d 06 18 e9 dc 34 45 46  |D040D340.....4EF|
00003720  33 34 45 45 33 2c 44 33  34 30 30 33 46 45 2c 34  |34EE3,D34003FE,4|
00003730  45 45 33 44 30 34 30 2c  33 46 45 34 45 46 33 2c  |EE3D040,3FE4EF3,|
00003740  44 30 34 30 31 39 42 31  2c 37 30 32 32 32 32 30  |D04019B1,7022220|
00003750  38 2c 44 30 30 30 30 30  44 30 2c 31 31 30 36 44  |8,D00000D0,1106D|
00003760  30 30 30 2c 33 31 35 31  31 31 31 2c 41 34 32 32  |000,3151111,A422|
00003770  32 32 43 32 2c 44 30 30  44 34 30 30 33 2c 45 46  |22C2,D00D4003,EF|
00003780  34 45 45 33 33 34 2c 34  30 30 33 33 34 46 45 2c  |4EE334,400334FE,|
00003790  45 33 33 34 44 30 30 44  2c 33 34 46 45 45 46 34  |E334D00D,34FEEF4|
000037a0  45 2c 44 30 30 44 34 30  30 33 2c 31 31 34 36 30  |E,D00D4003,11460|
000037b0  33 33 34 2c 34 33 30 33  39 34 31 31 2c 33 32 37  |334,43039411,327|
000037c0  32 32 43 32 2c 44 30 34  44 34 33 2c 31 35 31 31  |22C2,D04D43,1511|
000037d0  31 31 44 36 2c 32 32 43  32 44 33 36 31 2c 34 45  |11D6,22C2D361,4E|
000037e0  46 33 33 43 41 34 2c 31  39 33 34 33 34 46 45 2c  |F33CA4,193434FE,|
000037f0  33 34 33 34 44 30 34 30  2c 33 34 44 30 37 30 32  |3434D040,34D0702|
00003800  32 0d 06 22 e4 dc 46 45  45 45 46 45 33 34 2c 31  |2.."..FEEEFE34,1|
00003810  31 44 36 33 34 33 34 2c  44 33 33 34 39 34 31 31  |1D63434,D3349411|
00003820  2c 33 34 32 37 32 32 43  32 2c 31 31 31 31 42 31  |,342722C2,1111B1|
00003830  44 33 2c 32 32 32 32 44  38 39 34 2c 36 31 35 32  |D3,2222D894,6152|
00003840  37 32 32 2c 41 34 44 30  35 30 31 31 2c 44 30 34  |722,A4D05011,D04|
00003850  30 43 41 30 33 2c 34 45  34 33 45 33 33 34 2c 34  |0CA03,4E43E334,4|
00003860  33 45 33 33 34 46 45 2c  31 39 33 42 46 45 34 45  |3E334FE,193BFE4E|
00003870  2c 38 32 44 30 34 30 34  33 2c 44 30 34 30 37 33  |,82D04043,D04073|
00003880  32 32 2c 34 30 31 39 31  31 36 31 2c 32 32 32 32  |22,40191161,2222|
00003890  33 43 44 30 2c 31 31 33  42 44 30 37 30 2c 38 32  |3CD0,113BD070,82|
000038a0  31 31 31 31 31 31 2c 32  32 32 32 32 32 32 32 2c  |111111,22222222,|
000038b0  44 30 30 30 30 30 30 2c  45 45 45 45 45 45 33 34  |D000000,EEEEEE34|
000038c0  2c 33 34 45 46 2c 36 31  33 34 30 44 30 30 2c 39  |,34EF,61340D00,9|
000038d0  34 31 31 31 31 31 31 2c  32 32 32 32 32 32 33 43  |4111111,2222223C|
000038e0  2c 33 34 32 37 0d 06 2c  e9 dc 31 31 33 42 44 30  |,3427..,..113BD0|
000038f0  30 44 2c 38 32 44 30 35  44 31 31 2c 44 30 34 44  |0D,82D05D11,D04D|
00003900  32 41 32 32 2c 34 46 31  39 31 31 31 31 2c 32 32  |2A22,4F191111,22|
00003910  32 32 32 32 46 45 2c 44  33 33 34 44 30 37 44 2c  |2222FE,D334D07D,|
00003920  33 34 30 30 30 44 34 30  2c 35 30 31 31 34 36 44  |34000D40,501146D|
00003930  33 2c 43 41 34 33 44 33  33 34 2c 34 33 44 33 33  |3,CA43D334,43D33|
00003940  34 34 30 2c 44 33 33 34  34 30 34 33 2c 33 34 34  |440,D3344043,344|
00003950  30 34 33 42 39 2c 34 30  37 33 32 32 44 38 2c 45  |043B9,407322D8,E|
00003960  33 45 46 46 45 33 34 2c  31 31 31 31 33 42 34 45  |3EFFE34,11113B4E|
00003970  2c 32 32 38 32 34 30 31  39 2c 37 30 32 32 32 32  |,22824019,702222|
00003980  2c 44 44 30 44 30 2c 33  34 2c 31 31 36 31 33 34  |,DD0D0,34,116134|
00003990  44 30 2c 33 43 33 34 31  35 31 31 2c 33 42 41 34  |D0,3C341511,3BA4|
000039a0  32 32 32 32 2c 33 34 31  35 36 31 39 34 2c 41 34  |2222,34156194,A4|
000039b0  33 43 32 37 38 32 2c 33  34 30 30 30 44 33 34 2c  |3C2782,34000D34,|
000039c0  44 33 34 33 34 2c 36 31  33 34 33 34 33 34 0d 06  |D3434,61343434..|
000039d0  36 e2 dc 39 34 33 42 39  34 31 31 2c 38 32 32 37  |6..943B9411,8227|
000039e0  32 32 33 43 2c 45 45 45  45 33 34 32 37 2c 31 35  |223C,EEEE3427,15|
000039f0  36 31 46 45 45 45 2c 33  43 35 44 31 31 30 36 2c  |61FEEE,3C5D1106,|
00003a00  34 46 43 41 45 33 41 34  2c 34 33 45 33 33 34 33  |4FCAE3A4,43E3343|
00003a10  34 2c 33 33 34 33 34 34  46 2c 33 42 33 34 34 44  |4,334344F,3B344D|
00003a20  34 33 2c 33 34 42 31 34  33 31 39 2c 32 32 37 38  |43,34B14319,2278|
00003a30  32 32 38 32 2c 31 31 31  31 31 31 33 42 2c 32 32  |2282,1111113B,22|
00003a40  32 32 38 32 35 44 2c 31  31 36 31 34 44 32 41 2c  |22825D,11614D2A,|
00003a50  33 43 34 44 31 39 31 31  2c 37 44 32 32 32 32 32  |3C4D1911,7D22222|
00003a60  32 2c 31 31 31 31 31 31  36 31 2c 32 32 32 32 33  |2,11111161,22223|
00003a70  43 35 44 2c 45 45 33 34  34 44 32 41 2c 33 34 42  |C5D,EE344D2A,34B|
00003a80  31 45 33 45 45 2c 32 32  30 38 30 30 30 30 2c 35  |1E3EE,22080000,5|
00003a90  30 31 31 33 42 2c 34 30  32 41 38 32 30 44 2c 35  |0113B,402A820D,5|
00003aa0  33 31 31 30 44 30 30 2c  32 41 35 44 31 31 42 31  |3110D00,2A5D11B1|
00003ab0  0d 06 40 e5 dc 34 44 32  41 32 32 34 38 2c 31 39  |..@..4D2A2248,19|
00003ac0  31 31 42 31 45 33 2c 32  32 32 32 30 38 34 46 2c  |11B1E3,2222084F,|
00003ad0  31 35 36 31 37 44 32 32  2c 33 43 35 44 31 31 36  |15617D22,3C5D116|
00003ae0  31 2c 34 44 32 41 33 43  41 34 2c 33 33 34 33 34  |1,4D2A3CA4,33434|
00003af0  39 34 2c 33 34 33 34 32  37 34 44 2c 33 42 45 45  |94,3434274D,3BEE|
00003b00  34 44 30 33 2c 34 46 45  33 39 34 2c 34 44 30 33  |4D03,4FE394,4D03|
00003b10  32 37 38 32 2c 31 39 31  31 36 31 30 30 2c 32 32  |2782,19116100,22|
00003b20  33 43 30 30 34 44 2c 33  34 45 45 37 44 32 32 2c  |3C004D,34EE7D22,|
00003b30  45 46 45 45 45 45 2c 44  30 30 30 30 33 34 2c 44  |EFEEEE,D000034,D|
00003b40  30 30 30 33 34 30 30 2c  31 35 33 42 30 30 30 44  |0003400,153B000D|
00003b50  2c 38 32 30 30 30 44 44  30 2c 36 30 44 44 30 41  |,82000DD0,60DD0A|
00003b60  34 2c 31 31 44 36 39 34  31 31 2c 44 33 32 37 43  |4,11D69411,D327C|
00003b70  32 30 33 2c 34 30 30 33  43 32 2c 34 45 45 33 34  |203,4003C2,4EE34|
00003b80  44 44 33 2c 45 33 34 46  46 33 45 45 2c 34 46 31  |DD3,E34FF3EE,4F1|
00003b90  39 31 31 42 31 0d 06 4a  8e dc 32 32 32 32 32 32  |911B1..J..222222|
00003ba0  30 38 2c 37 44 2c 31 35  36 31 30 44 44 30 2c 33  |08,7D,15610DD0,3|
00003bb0  43 30 30 30 30 30 30 2c  31 31 31 31 36 31 32 37  |C000000,11116127|
00003bc0  2c 32 32 33 43 31 35 33  42 2c 33 34 41 34 38 32  |,223C153B,34A482|
00003bd0  32 32 2c 39 34 31 31 31  35 36 31 2c 32 32 41 34  |22,94111561,22A4|
00003be0  33 43 33 34 2c 33 34 33  34 33 34 32 37 2c 33 34  |3C34,34343427,34|
00003bf0  39 34 31 31 31 31 2c 32  37 32 32 32 32 33 34 2c  |941111,27222234,|
00003c00  31 31 31 31 33 34 33 34  2c 32 32 33 34 39 34 31  |11113434,2234941|
00003c10  31 2c 33 34 32 37 32 32  32 32 2c 31 39 36 36 36  |1,34272222,19666|
00003c20  36 33 43 0d ff                                    |63C..|
00003c25
SUB.m0
SUB.m1
SUB.m2
SUB.m4
SUB.m5