Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape03a_acorn_workshop.wav » WSHOP4

WSHOP4

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 » Commercial_Releases » boxed_acornsoft_tape03a_acorn_workshop.wav
Filename: WSHOP4
Read OK: ✔
File size: 27EC bytes
Load address: FFFF1B00
Exec address: FFFF8023
Duplicates

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

File contents
    1REM       ...Workshop...
    2 
    3REM ..BBC and Electron Version 1..
    4 
    5REM        Copyright (c) 
    6REM   Acornsoft Limited 1984  
    7 
   10IFPAGE>&E00GOTO2530
   20CLEAR:?&E04=244
   30ONERRORGOTO1790
   40MODE5:VDU23;8202;0;0;0;5,19,3,2;0;:DIMst(32),key% 660
   50*FX4,1
   55IFINKEY-256=0 GOTO60 ELSE *FX225 1
   56*FX226 1
   57HIMEM=&402F:CALL&4050:s%=TRUE
   60L$=STRING$(67," "):L$="":D%=0:p%=0:Q%=0:CO%=1:BO%=3:prc=1:arr=1:llk=660:look=0:full=0:PROCcs:PROCN:shf=TRUE
   70IFlook=0 L$=CHR$(1)
   75PROCsh
   80EI=0:REPEAT:PROCp:UNTILFALSE:END
   90DEFPROCcs:FORI=1TO31STEP2:st(I)=223+I:st(I+1)=223+(I+1):NEXT:ENDPROC
  110DEFPROCc(X%,Y%,Z%):VDU18;CO%,25,4,X%;Y%+32;Z%+223,25,4,X%;Y%;Z%+224,18;BO%,25,4,X%-20;Y%-37;25,5,X%-20;Y%+45;25,5,X%+72;Y%+45;25,5,X%+72;Y%-37;25,5,X%-20;Y%-37;:ENDPROC
  130DEFPROCp:PROCcl:PROCE(1):PROCc1:PROCc(110,110,28):PROCc(360,110,30):PROCc(610,110,19):PROCc2:PROCc(860,110,28):PROCc(1110,110,30):PROCD
  150PROCc(1110,384,15):PROCc(1110,658,13):PROCc(1110,932,11):PROCc(860,932,17):PROCc(610,932,9):PROCc(360,932,7):PROCc(110,932,5):PROCc(110,658,3):PROCc(110,384,1):CALL&45A6:GCOL0,1:PROCM(1):PROCd(EI):ENDPROC
  170DEFPROCd(EI):C%=0
  180IFEI=10THEN200
  190IF NOT(look=0 ANDNOTfull) ELSEIFLENL$<66 L$=L$+CHR$(EI) ELSEllk=prc-1
  200ONEIGOTO210,220,230,240,250,260,270,280,300,290
  210PROCsh:GOTO300
  220PROCdp(10,641,538):GOTO300
  230PROCpa:GOTO300
  240PROCn:GOTO300
  250PROCsp:GOTO300
  260PROCC(588,982):GOTO300
  270I%=18:PROCS:GOTO300
  280PROCg:GOTO300
  290D%=10:PROCL
  300ENDPROC
  310DEFPROCM(R%)
  320REPEAT:*FX15,1
  350IFEI=136 PROCl(344):IFP%<>1 CALL&46EA:GOTO400
  360IFEI=137 PROCl(928):IFP%<>1 CALL&46FE:GOTO400
  370IFEI=138 PROCu(248):IFP%<>1 CALL&47A0:GOTO400
  385IFEI=139 PROCu(836):IFP%<>1 CALL&4767:GOTO400
  390GOTO410
  400PROCs(&11,-15,50,2)
  410P%=0:IFlook PROCA ELSE EI=GET:PROCA
  420IFEI=155THEN ERROR
  430PROCs(&11,-15,250,2)
  440UNTILEI>47ANDEI<58
  450EI=EI-47
  460IFR%ANDEI=9 PROCs(&11,8,50,20):CALL&49C6:GOTO320
  470CALL&4590:ENDPROC
  471DEFPROCl(A%)
  472FORI%=224TO860STEP4:IF POINT(A%,I%)<>0 THEN P%=1
  473NEXT:ENDPROC
  474DEFPROCu(A%)
  475FORI%=320TO952STEP8:IF POINT(I%,A%)<>0 THEN P%=1
  476NEXT:ENDPROC
  477DEFPROCs(C%,A%,P%,D%):IFs%SOUNDC%,A%,P%,D%:ENDPROC ELSEENDPROC 
  498DEFPROCE(COL):LOCALX:GCOL0,COL:IFp%=1X=304 ELSEX=312
  500MOVEX,220:DRAW960,220:DRAW960,864:DRAWX,864:DRAWX,220
  507IFshf MOVE644,220:DRAW644,196:MOVE960,538:DRAW984,538:MOVE644,864:DRAW644,888:MOVEX,538:DRAW280,538
  508ENDPROC
  509DEFPROCP(X,Y,P%,size,sd):IFsd=3GOTO515
  510IFP%=1 MOVEX,Y:MOVEX+size,Y:PLOT85,X,Y+size:PLOT85,X+size,Y+size:ENDPROC ELSEMOVEX,Y:DRAWX+size,Y:DRAWX+size,Y+size:DRAWX,Y+size:DRAWX,Y:ENDPROC
  515IFP%=1 MOVEX,Y:MOVEX+size,Y:PLOT85,X+size/2,Y+.866*size:ENDPROC ELSEMOVEX,Y:DRAWX+size,Y:DRAWX+size/2,Y+.866*size:DRAWX,Y:ENDPROC
  530DEFPROCr(A%,X%,Y%,W%,H%):MOVEX%,Y%:IFA%THEN550
  540DRAWX%+W%,Y%:DRAWX%+W%,Y%+H%:DRAWX%,Y%+H%:DRAWX%,Y%:ENDPROC
  550MOVEX%+W%,Y%:PLOT85,X%,Y%+H%:PLOT85,X%+W%,Y%+H%
  560ENDPROC
  570DEFPROCsh
  580PROCcl:PROCc(80,940,1):shf=0:PROCE(3):shf=TRUE:GCOL0,2:PROCP(63,288,2,256,4):PROCP(63,544,2,256,4):PROCP(961,288,2,256,4):PROCP(961,544,2,256,4)
  590CALL&4075:GCOL0,2:PROCci(100,192,400):GCOL0,3
  600PROCP(990,307,1,212,3):GCOL0,1:PROCP(1022,576,1,150,4)
  605CALL&45A6:PROCcr(64,768,49):PROCcr(64,512,50):PROCcr(964,512,52):PROCcr(964,768,51)
  610PROCe(64,100):FORN%=1TO5:PROCcr(226+(N%*100),100,N%+48+5*(N%=5)):NEXT:PROCB
  620EI=0:REPEAT:*FX15,1
  630IFlook PROCA ELSE EI=GET:PROCA
  635IF(EI OR32)=115+2*s%t%=NOTs%:s%=TRUE:PROCs(&11,10+t%*3,10,2):s%=t%:UNTILTRUE:GOTO610
  640IFEI=155THEN ERROR
  650PROCs(&11,-15,250,2):IFEI<>32 EI=EI OR16
  655UNTILEI>47ANDEI<53
  660EI=EI-47:GCOL0,0:PROCP(321,224,1,638,4):OE=EI
  670ONEI GOTO720,680,690,700,710
  680CALL&466B:CALL&45D9:CALL&4075:PROCcr(64,768,49):GOTO720
  690GCOL0,2:R%=256*256:FORQ%=1 TO256 STEP8:K%=SQR(R%-Q%*Q%):MOVE640-Q%,544-K%:DRAW640-Q%,544+K%:MOVE640+Q%,544-K%:DRAW640+Q%,544+K%:NEXT:GOTO720
  700GCOL0,1:MOVE376,284:MOVE900,284:PLOT85,376,808:PLOT85,900,808:GOTO720
  710GCOL0,3:PROCP(355,256,1,580,3)
  720PROCcb:PROCpd:PROCR(600,100):IFOE=2PROCPY
  725IFlook PROCA ELSE shf=0:EI=FNd:shf=TRUE:PROCA
  730IFEI=155THEN ERROR
  735IFEI=135ANDOE=2CALL&4590:CALL&466B:OE=10:GOTO720
  736IFEI=135GOTO725
  737IF(EI OR32)=115+2*s%t%=NOTs%:s%=TRUE:PROCs(&11,10+t%*3,10,2):s%=t%:PROCB:GOTO725
  738IF(EI OR32)=113 OR(EI OR32)=115GOTO725
  740IFEI=13THENCALL&4590:PROCcb:GOTO605
  745IFOE=2CALL&4590:CALL&466B:CALL&45D9:CALL&4075:CALL&4590:PROCcr(64,768,49)
  747IFOE=10CALL&45A6:OE=2:GOTO720
  750PROCcb:IFOE<>2GCOL0,0:PROCP(321,224,1,638,4)
  755GOTO605
  760CALL&4590:PROCcr(64,768,49):A=INKEY(100):ENDPROC
  770DEFPROCR(X%,Y%):GCOL0,1:MOVEX%,Y%:PRINTCHR$(246);CHR$(247);CHR$(248):GCOL0,3:PROCr(0,X%-5,Y%-43,206,60):ENDPROC
  780DEFPROCcl
  800VDU4,28;31,19,25,12,28;24,4;12,28,15,24,19;12,28,5,4,14;12,26,5,18;0:ENDPROC
  810DEFPROCcr(X%,Y%,NUM):VDU18;1,25,4,X%;Y%+15;NUM,18;3:PROCP(X%-4,Y%-36,2,66,4):ENDPROC
  820DEFPROCdd(X%,Y%):VDU18;1,25,4,X%;Y%;252,253,254,18;3:PROCr(0,X%-7,Y%-43,206,60):ENDPROC
  830DEFPROCe(X%,Y%):VDU18;1,25,4,X%;Y%;249,250,251,18;3:PROCr(0,X%-7,Y%-43,206,60):ENDPROC
  840DEFPROCdp(U%,A%,B%)
  845di=10
  850PROCcl:PROCc(100,900,3):PROCE(1):PROCe(64,100):PROCR(334,100)
  860REPEAT:IFC%=1PROCdd(604,100)
  870IFlook PROCA ELSE EI=FNd:PROCA
  880IFEI=155THEN ERROR
  890IFEI=13 PROCdr
  900UNTILEI=127ANDC%=1
  910CALL&45A6:U%=10:C%=0:GCOL0,0:PROCr(1,590,0,690,120):GOTO860
  920ENDPROC
  930DEFPROCdr:C%=1
  940PROCs(&10,10,60,5):GCOL0,0:PROCci(U%,A%,B%):IFU%+di>=300 ENDPROC
  950U%=U%+di
  960ENDPROC
  970DEFPROCci(U%,Z%,W%):FORX%=1TOU%STEP8:Y%=SQR((U%*U%)-(X%*X%)):MOVEZ%+X%,W%+Y%:DRAWZ%+X%,W%-Y%:MOVEZ%-X%,W%+Y%:DRAWZ%-X%,W%-Y%:NEXT:ENDPROC
  980DEFPROCpd:PROCe(64,100):PROCdd(334,100):ENDPROC
 1000DEFFNd:REPEAT:*FX15,1
 1020E%=GET:PROCs(&11,-15,250,2):UNTILE%=13ORE%=127ORE%=8OR(shf=0AND(E%=135ORE%=83ORE%=81ORE%=113ORE%=115)):=E%
 1050DEFPROCpa
 1060PROCcl:CALL&45A6:PROCE(2):GCOL0,3:PROCc(100,900,5):PROCe(64,100):RESTORE1070:FORI%=1TO7:READA:PROCcr(502+(102*I%),100,A):NEXT
 1070DATA 82,71,89,66,80,76,87
 1080EI=0:REPEAT
 1090IFEI=71I%=3
 1100IFEI=82I%=1
 1110IFEI=89VDU19,2,3;0;:I%=2
 1120IFEI=66VDU19,2,4;0;:I%=2
 1130IFEI=80VDU19,2,5;0;:I%=2
 1140IFEI=76VDU19,2,6;0;:I%=2
 1150IFEI=87VDU19,2,7;0;:I%=2
 1160IFEI PROCs(&11,9,EI,10):C%=1:PROCdd(334,100):?&77=I%:CALL&4A96
 1170REPEAT:*FX15,1
 1180IFlook PROCA ELSE EI=GET:PROCA
 1190IFEI=155THEN ERROR
 1200PROCs(&11,-15,250,2):IFEI<>127 EI=(EI OR32)-32
 1205UNTIL(EI=127ANDC%=1)OREI=71OREI=89OREI=82OREI=66OREI=80OREI=76OREI=87
 1210UNTILEI=127
 1220CALL&45A6:VDU19,2,3;0;:GOTO1080
 1230ENDPROC
 1240DEFPROCn
 1250PROCcl:PROCc(100,900,7):PROCE(3):PROCe(64,100):PROCR(334,100)
 1260REPEAT:IFC%=1PROCdd(604,100)
 1270IFlook PROCA ELSE EI=FNd:PROCA
 1280IFEI=155THEN ERROR
 1290IFEI=13 PROCs(&11,4,50,20):CALL&4B1C:C%=1
 1300UNTILEI=127ANDC%=1
 1310CALL&45A6:C%=0:GCOL0,0:PROCr(1,590,0,690,120):GOTO1260
 1320ENDPROC
 1330DEFPROCS:C%=0
 1340PROCcl:CALL&45A6:PROCc(100,900,11):PROCe(64,100):PROCc2:PROCc(334,100,28):PROCc(437,100,30):PROCD:GCOL3,2:PROCa(18):PROCh(18)
 1350REPEAT:I%=18:IFC%=1PROCdd(734,100)
 1360IFlook PROCA ELSE EI=FNc:PROCA
 1370IFEI=155THEN ERROR
 1380IFEI=138Q%=1:C%=1:CALL&456E:GCOL0,0:PROCr(1,200,224,880,170):PROCr(1,200,696,880,164):GCOL3,2:I%=I%+14:PROCh(I%-14):PROCa(I%-14):PROCh(I%):PROCa(I%-28):PROCdi:GCOL3,2:PROCh(I%):PROCa(I%-28):PROCh(I%-14):PROCa(I%-14):Q%=0
 1390IFEI=139Q%=1:C%=1:GCOL0,0:PROCr(1,200,224,880,170):PROCr(1,200,696,880,164):GCOL3,2:I%=I%+14:PROCh(I%-14):PROCa(I%-14):PROCh(I%):PROCa(I%-28):PROCs(&11,6,50,20):GCOL3,2:PROCh(I%):PROCa(I%-28):PROCh(I%-14):PROCa(I%-14):CALL&4575:Q%=0
 1400UNTILEI=127ANDC%=1
 1410C%=0:CALL&45A6:GCOL0,0:PROCr(1,724,0,550,120):GOTO1350
 1420ENDPROC
 1430DEFPROCh(V%):Y%=V%*12:MOVE320,Y%:MOVE591,Y%-64:PLOT85,591,Y%:MOVE592,Y%:MOVE592,Y%-160:PLOT85,688,Y%-160:MOVE697,Y%-160:MOVE697,Y%:PLOT85,601,Y%:MOVE704,Y%:MOVE704,Y%-64:PLOT85,960,Y%:ENDPROC
 1440DEFPROCa(V%):Y%=648+(V%*12):MOVE320,Y%:MOVE320,Y%+64:PLOT85,958,Y%:MOVE324,Y%:MOVE324,Y%+64:PLOT85,960,Y%+64:ENDPROC
 1450DEFPROCdi:M%=1:PROCs(&11,5,50,15):PROCs(0,5,50,12):VDU4:FORX%=1TO10:VDU31;31*M%,11-M%:M%=1-M%
 1460FORJ=1TO50:NEXT,:VDU5:ENDPROC
 1470DEFPROCC(A%,B%)
 1475ci=8
 1480PROCcl:PROCc(100,900,17):PROCE(1):PROCe(64,100):PROCR(304,100):PROCc1:PROCc(604,100,28):PROCc(704,100,30):PROCblad:GCOL3,1
 1490REPEAT:PROCE(1):EI=0:REPEAT:IFC%=1PROCD:PROCdd(820,100):PROCblad
 1500IFEI=136ANDA%-ci<=231THEN1540
 1510IFEI=137ANDA%+ci>=893THEN1540
 1520IFEI=136A%=A%-ci
 1530IFEI=137A%=A%+ci
 1540PROCmo(A%,B%):IFlook PROCA ELSE EI=FNc:PROCA
 1550IFEI=155THEN ERROR
 1560PROCmo(A%,B%):UNTILEI=13OREI=127
 1570IFEI=13 Q%=1:PROCC2:Q%=0
 1580EJ=EI:UNTILC%=1ANDEJ=127
 1590CALL&45A6:C%=0:GCOL0,0:PROCr(1,810,0,470,120):GOTO1490
 1600ENDPROC
 1610DEFPROCC2
 1620PROCE(0):C%=1:PROCs(0,1,50,70)
 1630FORB%=950TO200STEP-16:PROCmo(A%,B%):PROCmo(A%,B%)
 1640GCOL0,0:MOVEA%+55,940:DRAWA%+55,B%-20:GCOL3,1:NEXT
 1650GCOL0,0:PROCr(1,A%+55,B%+20,960-A%+55,850):B%=982
 1660ENDPROC
 1670DEFPROCmo(A%,B%):GCOL3,1:MOVEA%,B%:PRINTCHR$(251);CHR$(252):GCOL3,3:MOVEA%,B%-40:PRINTCHR$(253);CHR$(254):ENDPROC
 1680DEFFNc
 1690REPEAT
 1700*FX15,1
 1710E%=GET:PROCs(&11,-15,250,2)
 1720UNTILE%=127ORE%=56OR(E%>135ANDE%<140)ORE%=13
 1780=E%
 1790shf=TRUE:IFERR=17 ANDQ%=1 VDU4,12,5:CALL&45A6:EI=127:PROCA:Q%=0
 1795IFD%=10ANDERR=17THEN1850
 1800IFG%=1ANDERR=17 G%=0:PROCN:EI=155:PROCA:GOTO80
 1802IFG%=1ANDERR=16 G%=0:PROCN:GOTO80
 1810IFG%=2ANDERR=16G%=0:CALL&4590:PROCN:GOTO80
 1815IFD%=10 ANDERR=16 AND(arr>=659 ORarr>=llk) look=0:D%=0:CALL&4590:PROCN:PROCD:GOTO80
 1820IFD%=10ANDERR=16 CALL&4590:PROCN:GOTO80
 1830IFERR=17 EI=155:PROCA:CALL&4590:GOTO80 ELSEGOTO60
 1850prc=prc-1:look=0:D%=0:PROCN:GOTO80
 1860DEFPROCL
 1870PROCN:VDU19,2,3;0;:PROCc(100,950,15):GCOL0,2:FORJ%=1TO7:FORI%=1TO12STEP4:MOVE0,1000-((J%*110)-I%):DRAW1280,1000-((J%*110)-I%):NEXT,:I%=1:ex%=50:why%=830
 1880FORI%=1TO LEN(L$):W$=MID$(L$,I%,1):A%=ASC(W$):PROCmp(ex%,why%+4,A%):PROCi(ex%,why%):NEXT
 1890PROCpd:PROCR(640,100):REPEAT:*FX15,1
 1900EI=GET:PROCs(&11,-15,250,2):UNTILEI=13OREI=127
 1910IFEI=127 D%=0:GOTO60
 1920look=1:arr=1:PROCN:GOTO70
 1930DEFPROCmp(X%,Y%,J%)
 1940IFJ%=6 PROCc(X%,Y%,17):ENDPROC
 1950IFJ%=7 PROCc(X%,Y%,11):ENDPROC
 1960IFJ%=8 PROCc(X%,Y%,13):ENDPROC
 1970IFJ%=9 PROCc(X%,Y%,19):ENDPROC
 1980IFJ%=10 PROCc(X%,Y%,15):ENDPROC
 1990J%=J%*2-1
 2000PROCc(X%,Y%,J%)
 2010ENDPROC
 2020DEFPROCi(X%,Y%)
 2030IFX%+102>=1100 X%=50:Y%=Y%-110:GOTO2050
 2040X%=X%+102
 2050ex%=X%:why%=Y%
 2060ENDPROC
 2070DEFPROCsp
 2080PROCcl:PROCE(1):CALL&45A6:PROCc(100,910,9):PROCe(64,100):PROCc2:PROCc(334,100,28):PROCc(450,100,30):PROCD
 2090REPEAT
 2100IFEI=138 PROCE(0):C%=1:PROCs(&11,2,50,20):CALL&4586:PROCr(1,200,696,880,164):PROCr(1,200,224,880,162):PROCE(1)
 2110IFEI=139 PROCE(0):C%=1:PROCs(&11,3,50,20):CALL&457C:PROCr(1,0,191,319,674):PROCr(1,319,865,642,163):PROCr(1,961,191,319,674):PROCE(1)
 2115IFC%=1PROCdd(600,100)
 2120IFlook PROCA ELSE EI=FNc:PROCA
 2130IFEI=155THEN ERROR
 2140UNTILEI=127ANDC%=1
 2150CALL&45A6:C%=0:GCOL0,0:PROCr(1,590,0,690,120):GOTO2090
 2160ENDPROC
 2170DEFPROCg
 2180VDU4,12,5:p%=1:PROCE(3):p%=0
 2190G%=1:GCOL0,0:PROCr(1,320,224,632,636):CALL&4126
 2210PROCc(100,932,13):GCOL0,0:PROCr(1,597,57,206,60):PROCe(64,100):PROCR(334,100):EI=0:REPEAT
 2220*FX15,1
 2250P%=0:IFlook PROCA ELSE EI=FNc:PROCA
 2260IFEI=155THENERROR
 2270UNTILEI=13:G%=2:PROCs(&11,7,50,-1):CALL&4158:PROCs(&11,5,50,5):GCOL0,0:PROCr(1,327,57,206,60):PROCdd(604,100)
 2340IFlookPROCAELSEEI=FNd:PROCA
 2350IFEI=155THENERROR
 2360IFEI=127THEN2190
 2370GOTO2340
 2380ENDPROC
 2381DEFPROCU(A%)
 2382FORI%=0TO640STEP8:IF POINT(I%,A%)<>0 THEN P%=1
 2383NEXT:ENDPROC
 2390DEFPROCm(M%):PROCe(600-M%,100):PROCc(850-M%,100,19):PROCc2:PROCc(940-M%,100,28):PROCc(1042-M%,100,30):PROCD:PROCR(1146-M%,100):ENDPROC
 2400DEFPROCD:VDU23,251,&67,&54,&54,&54,&66,&44,&44,&47,23,252,&67,&54,&54,&56,&54,&54,&54,&67,23,253,&47,&44,&44,&46,&44,&44,&44,&77,23,254,&77,&24,&24,&26,&24,&24,&24,&27:ENDPROC
 2405DEFPROCPY VDU23,251,3,4,4,4,4,4,4,3,23,252,&26,&55,&55,&55,&56,&54,&54,&24,23,253,&50,&50,&50,&50,&20,&20,&20,&20,18;1,25,4,870;100;5,251,252,253,18;3:PROCr(0,863,57,206,60):PROCD:ENDPROC
 2410DEFPROCblad:VDU23,251,0;31,31,31,15,7,3,23,252,0;&F8,&F8,&F8,&F0,&E0,&C0,23,253,3,1,1,1,1,1,1;23,254,&C0,&80,&80,&80,&80,&80,0;:ENDPROC
 2420DEFPROCc1:VDU23,251,16,16,48,48,112,112,255,255,23,252,255,255,112,112,48,48,16,16,23,253,8,8,12,12,14,14,255,255,23,254,255,255,14,14,12,12,8,8:ENDPROC
 2430DEFPROCc2:VDU23,251,&18,&18,&3C,&3C,&7E,&7E,&FF,&FF,23,252,&18,&18,&18,&18,&18,&18,&18,&18,23,253,&18,&18,&18,&18,&18,&18,&18,&18,23,254,&FF,&FF,&7E,&7E,&3C,&3C,&18,&18:ENDPROC
 2435DEFPROCB:VDU23,252,&18,&18;&18,&3C,&3C,&3C,&3C,23,253,&3C,&3C,&7E,&FF,0;0;23,254,&19,&19,2,&1A,&3C,&3C,&3C,&3C,23,255,&3C,&3C,&7E,&FF,&40,&40,&80,&80,4,17,1,31,19,1,254+2*s%,8,10,255+2*s%,5:PROCD:ENDPROC
 2440DEFPROCA:LOCALt%
 2450IFlook EI=FNA:ENDPROC
 2460IFprc>=660 ORllk<660 THEN2481
 2470key%?prc=EI:prc=prc+1
 2480ENDPROC
 2481key%?660=155:key%?llk=155
 2482IFfull ENDPROC
 2483full=TRUE
 2485FORlfl=1TO20:CO%=1+(lfl MOD2)*2:BO%=3-(lfl MOD2)*2:PROCc(1110,384,15):t%=s%:s%=TRUE:PROCs(&11,1,100,3):s%=t%
 2486FORJ=0TO200:NEXT,
 2488ENDPROC
 2490DEFFNA
 2500IFarr>prc THEN2520
 2510EJ=key%?arr:arr=arr+1
 2520=EJ
 2525DEFPROCN VDU4,12,5:ENDPROC
 2530*TAPE
 2540FORI%=0TOTOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT
 2550?&13=?&13-(PAGE-&E00)DIV256:PAGE=&E00
 2560RUN
 2570DEFPROCcb
 2580VDU4,28;31,19,27,12,26,5:ENDPROC

�       ...Workshop...
 
$� ..BBC and Electron Version 1..
 
�        Copyright (c) 
 �   Acornsoft Limited 1984  
 

�>&E00�dbI
�:?&E04=244
��d~F
(2�5:�23;8202;0;0;0;5,19,3,2;0;:�st(32),key% 660
2
*FX4,1
7�-256=0 �T|@ � *FX225 1
8*FX226 1
9�=&402F:�&4050:s%=�
<_L$=�67," "):L$="":D%=0:p%=0:Q%=0:CO%=1:BO%=3:prc=1:arr=1:llk=660:look=0:full=0:�cs:�N:shf=�
F�look=0 L$=�(1)
K�sh
PEI=0:�:�p:��:�
Z4��cs:�I=1�31�2:st(I)=223+I:st(I+1)=223+(I+1):�:�
n���c(X%,Y%,Z%):�18;CO%,25,4,X%;Y%+32;Z%+223,25,4,X%;Y%;Z%+224,18;BO%,25,4,X%-20;Y%-37;25,5,X%-20;Y%+45;25,5,X%+72;Y%+45;25,5,X%+72;Y%-37;25,5,X%-20;Y%-37;:�
�h��p:�cl:�E(1):�c1:�c(110,110,28):�c(360,110,30):�c(610,110,19):�c2:�c(860,110,28):�c(1110,110,30):�D
���c(1110,384,15):�c(1110,658,13):�c(1110,932,11):�c(860,932,17):�c(610,932,9):�c(360,932,7):�c(110,932,5):�c(110,658,3):�c(110,384,1):�&45A6:�0,1:�M(1):�d(EI):�
���d(EI):C%=0
��EI=10��dH@
�6� �(look=0 ��full) ��L$<66 L$=L$+�(EI) �llk=prc-1
�9�EI�dR@,�d\@,�df@,�dp@,�dz@,�TDA,�TNA,�TXA,�TlA,�TbA
�
�sh:�TlA
��dp(10,641,538):�TlA
�
�pa:�TlA
��n:�TlA
�
�sp:�TlA
�C(588,982):�TlA
I%=18:�S:�TlA
�g:�TlA
"D%=10:�L
,�
6��M(R%)
@
�:*FX15,1
^'�EI=136 �l(344):�P%<>1 �&46EA:�tPA
h'�EI=137 �l(928):�P%<>1 �&46FE:�tPA
r'�EI=138 �u(248):�P%<>1 �&47A0:�tPA
�'�EI=139 �u(836):�P%<>1 �&4767:�tPA
�	�tZA
��s(&11,-15,50,2)
�P%=0:�look �A � EI=�:�A
��EI=155� �
��s(&11,-15,250,2)
��EI>47�EI<58
�EI=EI-47
�)�R%�EI=9 �s(&11,8,50,20):�&49C6:�D@A
��&4590:�
���l(A%)
�%�I%=224�860�4:� �A%,I%)<>0 � P%=1
��:�
���u(A%)
�%�I%=320�952�8:� �I%,A%)<>0 � P%=1
��:�
�*��s(C%,A%,P%,D%):�s%�C%,A%,P%,D%:� �� 
�(��E(COL):�X:�0,COL:�p%=1X=304 �X=312
�*�X,220:�960,220:�960,864:�X,864:�X,220
�N�shf �644,220:�644,196:�960,538:�984,538:�644,864:�644,888:�X,538:�280,538
��
�"��P(X,Y,P%,size,sd):�sd=3�TCB
�i�P%=1 �X,Y:�X+size,Y:�85,X,Y+size:�85,X+size,Y+size:� ��X,Y:�X+size,Y:�X+size,Y+size:�X,Y+size:�X,Y:�
`�P%=1 �X,Y:�X+size,Y:�85,X+size/2,Y+.866*size:� ��X,Y:�X+size,Y:�X+size/2,Y+.866*size:�X,Y:�
'��r(A%,X%,Y%,W%,H%):�X%,Y%:�A%��TfB
-�X%+W%,Y%:�X%+W%,Y%+H%:�X%,Y%+H%:�X%,Y%:�
&*�X%+W%,Y%:�85,X%,Y%+H%:�85,X%+W%,Y%+H%
0�
:��sh
Dy�cl:�c(80,940,1):shf=0:�E(3):shf=�:�0,2:�P(63,288,2,256,4):�P(63,544,2,256,4):�P(961,288,2,256,4):�P(961,544,2,256,4)
N%�&4075:�0,2:�ci(100,192,400):�0,3
X1�P(990,307,1,212,3):�0,1:�P(1022,576,1,150,4)
]H�&45A6:�cr(64,768,49):�cr(64,512,50):�cr(964,512,52):�cr(964,768,51)
b@�e(64,100):�N%=1�5:�cr(226+(N%*100),100,N%+48+5*(N%=5)):�:�B
lEI=0:�:*FX15,1
v�look �A � EI=�:�A
{E�(EI �32)=115+2*s%t%=�s%:s%=�:�s(&11,10+t%*3,10,2):s%=t%:��:�DbB
��EI=155� �
�'�s(&11,-15,250,2):�EI<>32 EI=EI �16
��EI>47�EI<53
�+EI=EI-47:�0,0:�P(321,224,1,638,4):OE=EI
�!�EI �dPB,�thB,�trB,�t|B,�dFB
�-�&466B:�&45D9:�&4075:�cr(64,768,49):�dPB
�t�0,2:R%=256*256:�Q%=1 �256 �8:K%=�(R%-Q%*Q%):�640-Q%,544-K%:�640-Q%,544+K%:�640+Q%,544-K%:�640+Q%,544+K%:�:�dPB
�8�0,1:�376,284:�900,284:�85,376,808:�85,900,808:�dPB
��0,3:�P(355,256,1,580,3)
� �cb:�pd:�R(600,100):�OE=2�PY
�#�look �A � shf=0:EI=�d:shf=�:�A
��EI=155� �
�)�EI=135�OE=2�&4590:�&466B:OE=10:�dPB
��EI=135�dUB
�E�(EI �32)=115+2*s%t%=�s%:s%=�:�s(&11,10+t%*3,10,2):s%=t%:�B:�dUB
�$�(EI �32)=113 �(EI �32)=115�dUB
��EI=13��&4590:�cb:�D]B
�:�OE=2�&4590:�&466B:�&45D9:�&4075:�&4590:�cr(64,768,49)
��OE=10�&45A6:OE=2:�dPB
�&�cb:�OE<>2�0,0:�P(321,224,1,638,4)
�	�D]B
�$�&4590:�cr(64,768,49):A=�(100):�
O��R(X%,Y%):�0,1:�X%,Y%:�(246);�(247);�(248):�0,3:�r(0,X%-5,Y%-43,206,60):�
��cl
 H�4,28;31,19,25,12,28;24,4;12,28,15,24,19;12,28,5,4,14;12,26,5,18;0:�
*H��cr(X%,Y%,NUM):�18;1,25,4,X%;Y%+15;NUM,18;3:�P(X%-4,Y%-36,2,66,4):�
4K��dd(X%,Y%):�18;1,25,4,X%;Y%;252,253,254,18;3:�r(0,X%-7,Y%-43,206,60):�
>J��e(X%,Y%):�18;1,25,4,X%;Y%;249,250,251,18;3:�r(0,X%-7,Y%-43,206,60):�
H��dp(U%,A%,B%)
M	di=10
R2�cl:�c(100,900,3):�E(1):�e(64,100):�R(334,100)
\�:�C%=1�dd(604,100)
f�look �A � EI=�d:�A
p�EI=155� �
z�EI=13 �dr
��EI=127�C%=1
�4�&45A6:U%=10:C%=0:�0,0:�r(1,590,0,690,120):�D\C
��
�
��dr:C%=1
�4�s(&10,10,60,5):�0,0:�ci(U%,A%,B%):�U%+di>=300 �
�U%=U%+di
��
�k��ci(U%,Z%,W%):�X%=1�U%�8:Y%=�((U%*U%)-(X%*X%)):�Z%+X%,W%+Y%:�Z%+X%,W%-Y%:�Z%-X%,W%+Y%:�Z%-X%,W%-Y%:�:�
�"��pd:�e(64,100):�dd(334,100):�
�ݤd:�:*FX15,1
�\E%=�:�s(&11,-15,250,2):�E%=13�E%=127�E%=8�(shf=0�(E%=135�E%=83�E%=81�E%=113�E%=115)):=E%
��pa
$]�cl:�&45A6:�E(2):�0,3:�c(100,900,5):�e(64,100):��TnD:�I%=1�7:�A:�cr(502+(102*I%),100,A):�
.� 82,71,89,66,80,76,87
8
EI=0:�
B�EI=71I%=3
L�EI=82I%=1
V�EI=89�19,2,3;0;:I%=2
`�EI=66�19,2,4;0;:I%=2
j�EI=80�19,2,5;0;:I%=2
t�EI=76�19,2,6;0;:I%=2
~�EI=87�19,2,7;0;:I%=2
�8�EI �s(&11,9,EI,10):C%=1:�dd(334,100):?&77=I%:�&4A96
�
�:*FX15,1
��look �A � EI=�:�A
��EI=155� �
�-�s(&11,-15,250,2):�EI<>127 EI=(EI �32)-32
�<�(EI=127�C%=1)�EI=71�EI=89�EI=82�EI=66�EI=80�EI=76�EI=87
��EI=127
��&45A6:�19,2,3;0;:�TxD
��
���n
�2�cl:�c(100,900,7):�E(3):�e(64,100):�R(334,100)
��:�C%=1�dd(604,100)
��look �A � EI=�d:�A
�EI=155� �

&�EI=13 �s(&11,4,50,20):�&4B1C:C%=1
�EI=127�C%=1
.�&45A6:C%=0:�0,0:�r(1,590,0,690,120):�dlD
(�
2��S:C%=0
<`�cl:�&45A6:�c(100,900,11):�e(64,100):�c2:�c(334,100,28):�c(437,100,30):�D:�3,2:�a(18):�h(18)
F�:I%=18:�C%=1�dd(734,100)
P�look �A � EI=�c:�A
Z�EI=155� �
d��EI=138Q%=1:C%=1:�&456E:�0,0:�r(1,200,224,880,170):�r(1,200,696,880,164):�3,2:I%=I%+14:�h(I%-14):�a(I%-14):�h(I%):�a(I%-28):�di:�3,2:�h(I%):�a(I%-28):�h(I%-14):�a(I%-14):Q%=0
n��EI=139Q%=1:C%=1:�0,0:�r(1,200,224,880,170):�r(1,200,696,880,164):�3,2:I%=I%+14:�h(I%-14):�a(I%-14):�h(I%):�a(I%-28):�s(&11,6,50,20):�3,2:�h(I%):�a(I%-28):�h(I%-14):�a(I%-14):�&4575:Q%=0
x�EI=127�C%=1
�.C%=0:�&45A6:�0,0:�r(1,724,0,550,120):�DFE
��
����h(V%):Y%=V%*12:�320,Y%:�591,Y%-64:�85,591,Y%:�592,Y%:�592,Y%-160:�85,688,Y%-160:�697,Y%-160:�697,Y%:�85,601,Y%:�704,Y%:�704,Y%-64:�85,960,Y%:�
�[��a(V%):Y%=648+(V%*12):�320,Y%:�320,Y%+64:�85,958,Y%:�324,Y%:�324,Y%+64:�85,960,Y%+64:�
�O��di:M%=1:�s(&11,5,50,15):�s(0,5,50,12):�4:�X%=1�10:�31;31*M%,11-M%:M%=1-M%
��J=1�50:�,:�5:�
���C(A%,B%)
�ci=8
�`�cl:�c(100,900,17):�E(1):�e(64,100):�R(304,100):�c1:�c(604,100,28):�c(704,100,30):�blad:�3,1
�-�:�E(1):EI=0:�:�C%=1�D:�dd(820,100):�blad
��EI=136�A%-ci<=231��TDF
��EI=137�A%+ci>=893��TDF
��EI=136A%=A%-ci
��EI=137A%=A%+ci
"�mo(A%,B%):�look �A � EI=�c:�A
�EI=155� �
�mo(A%,B%):�EI=13�EI=127
"�EI=13 Q%=1:�C2:Q%=0
,EJ=EI:�C%=1�EJ=127
6.�&45A6:C%=0:�0,0:�r(1,810,0,470,120):�dRE
@�
J��C2
T�E(0):C%=1:�s(0,1,50,70)
^)�B%=950�200�-16:�mo(A%,B%):�mo(A%,B%)
h'�0,0:�A%+55,940:�A%+55,B%-20:�3,1:�
r/�0,0:�r(1,A%+55,B%+20,960-A%+55,850):B%=982
|�
�J��mo(A%,B%):�3,1:�A%,B%:�(251);�(252):�3,3:�A%,B%-40:�(253);�(254):�
�ݤc
��
�*FX15,1
�E%=�:�s(&11,-15,250,2)
�'�E%=127�E%=56�(E%>135�E%<140)�E%=13
�=E%
�3shf=�:�=17 �Q%=1 �4,12,5:�&45A6:EI=127:�A:Q%=0
�D%=10��=17��TzG
&�G%=1��=17 G%=0:�N:EI=155:�A:�DP@

�G%=1��=16 G%=0:�N:�DP@
"�G%=2��=16G%=0:�&4590:�N:�DP@
E�D%=10 ��=16 �(arr>=659 �arr>=llk) look=0:D%=0:�&4590:�N:�D:�DP@
�D%=10��=16 �&4590:�N:�DP@
&'�=17 EI=155:�A:�&4590:�DP@ ��T|@
:"prc=prc-1:look=0:D%=0:�N:�DP@
D��L
N�N:�19,2,3;0;:�c(100,950,15):�0,2:�J%=1�7:�I%=1�12�4:�0,1000-((J%*110)-I%):�1280,1000-((J%*110)-I%):�,:I%=1:ex%=50:why%=830
XH�I%=1� �(L$):W$=�L$,I%,1):A%=�(W$):�mp(ex%,why%+4,A%):�i(ex%,why%):�
b�pd:�R(640,100):�:*FX15,1
l(EI=�:�s(&11,-15,250,2):�EI=13�EI=127
v�EI=127 D%=0:�T|@
�look=1:arr=1:�N:�DF@
���mp(X%,Y%,J%)
��J%=6 �c(X%,Y%,17):�
��J%=7 �c(X%,Y%,11):�
��J%=8 �c(X%,Y%,13):�
��J%=9 �c(X%,Y%,19):�
��J%=10 �c(X%,Y%,15):�
�
J%=J%*2-1
��c(X%,Y%,J%)
��
���i(X%,Y%)
�'�X%+102>=1100 X%=50:Y%=Y%-110:�TBH
�
X%=X%+102
ex%=X%:why%=Y%
�
��sp
 R�cl:�E(1):�&45A6:�c(100,910,9):�e(64,100):�c2:�c(334,100,28):�c(450,100,30):�D
*�
4_�EI=138 �E(0):C%=1:�s(&11,2,50,20):�&4586:�r(1,200,696,880,164):�r(1,200,224,880,162):�E(1)
>s�EI=139 �E(0):C%=1:�s(&11,3,50,20):�&457C:�r(1,0,191,319,674):�r(1,319,865,642,163):�r(1,961,191,319,674):�E(1)
C�C%=1�dd(600,100)
H�look �A � EI=�c:�A
R�EI=155� �
\�EI=127�C%=1
f.�&45A6:C%=0:�0,0:�r(1,590,0,690,120):�TjH
p�
z��g
��4,12,5:p%=1:�E(3):p%=0
�*G%=1:�0,0:�r(1,320,224,632,636):�&4126
�I�c(100,932,13):�0,0:�r(1,597,57,206,60):�e(64,100):�R(334,100):EI=0:�
�*FX15,1
�P%=0:�look �A � EI=�c:�A
�
�EI=155��
�[�EI=13:G%=2:�s(&11,7,50,-1):�&4158:�s(&11,5,50,5):�0,0:�r(1,327,57,206,60):�dd(604,100)
	$�look�A�EI=�d:�A
	.
�EI=155��
	8�EI=127��tNH
	B	�TdI
	L�
	M��U(A%)
	N#�I%=0�640�8:� �I%,A%)<>0 � P%=1
	O�:�
	Vj��m(M%):�e(600-M%,100):�c(850-M%,100,19):�c2:�c(940-M%,100,28):�c(1042-M%,100,30):�D:�R(1146-M%,100):�
	`���D:�23,251,&67,&54,&54,&54,&66,&44,&44,&47,23,252,&67,&54,&54,&56,&54,&54,&54,&67,23,253,&47,&44,&44,&46,&44,&44,&44,&77,23,254,&77,&24,&24,&26,&24,&24,&24,&27:�
	e���PY �23,251,3,4,4,4,4,4,4,3,23,252,&26,&55,&55,&55,&56,&54,&54,&24,23,253,&50,&50,&50,&50,&20,&20,&20,&20,18;1,25,4,870;100;5,251,252,253,18;3:�r(0,863,57,206,60):�D:�
	j~��blad:�23,251,0;31,31,31,15,7,3,23,252,0;&F8,&F8,&F8,&F0,&E0,&C0,23,253,3,1,1,1,1,1,1;23,254,&C0,&80,&80,&80,&80,&80,0;:�
	t���c1:�23,251,16,16,48,48,112,112,255,255,23,252,255,255,112,112,48,48,16,16,23,253,8,8,12,12,14,14,255,255,23,254,255,255,14,14,12,12,8,8:�
	~���c2:�23,251,&18,&18,&3C,&3C,&7E,&7E,&FF,&FF,23,252,&18,&18,&18,&18,&18,&18,&18,&18,23,253,&18,&18,&18,&18,&18,&18,&18,&18,23,254,&FF,&FF,&7E,&7E,&3C,&3C,&18,&18:�
	����B:�23,252,&18,&18;&18,&3C,&3C,&3C,&3C,23,253,&3C,&3C,&7E,&FF,0;0;23,254,&19,&19,2,&1A,&3C,&3C,&3C,&3C,23,255,&3C,&3C,&7E,&FF,&40,&40,&80,&80,4,17,1,31,19,1,254+2*s%,8,10,255+2*s%,5:�D:�
	���A:�t%
	��look EI=�A:�
	��prc>=660 �llk<660 ��tqI
	�key%?prc=EI:prc=prc+1
	��
	�key%?660=155:key%?llk=155
	��full �
	�
full=�
	�`�lfl=1�20:CO%=1+(lfl �2)*2:BO%=3-(lfl �2)*2:�c(1110,384,15):t%=s%:s%=�:�s(&11,1,100,3):s%=t%
	��J=0�200:�,
	��
	�ݤA
	��arr>prc ��dXI
	�EJ=key%?arr:arr=arr+1
	�=EJ
	���N �4,12,5:�
	�	*TAPE
	� �I%=0��P-� �4:I%!&E00=I%!�:�
	�!?&13=?&13-(�-&E00)�256:�=&E00
�

��cb
�4,28;31,19,27,12,26,5:�
�
00000000  0d 00 01 1a f4 20 20 20  20 20 20 20 2e 2e 2e 57  |.....       ...W|
00000010  6f 72 6b 73 68 6f 70 2e  2e 2e 0d 00 02 05 20 0d  |orkshop....... .|
00000020  00 03 24 f4 20 2e 2e 42  42 43 20 61 6e 64 20 45  |..$. ..BBC and E|
00000030  6c 65 63 74 72 6f 6e 20  56 65 72 73 69 6f 6e 20  |lectron Version |
00000040  31 2e 2e 0d 00 04 05 20  0d 00 05 1b f4 20 20 20  |1...... .....   |
00000050  20 20 20 20 20 43 6f 70  79 72 69 67 68 74 20 28  |     Copyright (|
00000060  63 29 20 0d 00 06 20 f4  20 20 20 41 63 6f 72 6e  |c) ... .   Acorn|
00000070  73 6f 66 74 20 4c 69 6d  69 74 65 64 20 31 39 38  |soft Limited 198|
00000080  34 20 20 0d 00 07 05 20  0d 00 0a 10 e7 90 3e 26  |4  .... ......>&|
00000090  45 30 30 e5 8d 64 62 49  0d 00 14 0f d8 3a 3f 26  |E00..dbI.....:?&|
000000a0  45 30 34 3d 32 34 34 0d  00 1e 0b ee 85 e5 8d 64  |E04=244........d|
000000b0  7e 46 0d 00 28 32 eb 35  3a ef 32 33 3b 38 32 30  |~F..(2.5:.23;820|
000000c0  32 3b 30 3b 30 3b 30 3b  35 2c 31 39 2c 33 2c 32  |2;0;0;0;5,19,3,2|
000000d0  3b 30 3b 3a de 73 74 28  33 32 29 2c 6b 65 79 25  |;0;:.st(32),key%|
000000e0  20 36 36 30 0d 00 32 0a  2a 46 58 34 2c 31 0d 00  | 660..2.*FX4,1..|
000000f0  37 1d e7 a6 2d 32 35 36  3d 30 20 e5 8d 54 7c 40  |7...-256=0 ..T|@|
00000100  20 8b 20 2a 46 58 32 32  35 20 31 0d 00 38 0c 2a  | . *FX225 1..8.*|
00000110  46 58 32 32 36 20 31 0d  00 39 17 d3 3d 26 34 30  |FX226 1..9..=&40|
00000120  32 46 3a d6 26 34 30 35  30 3a 73 25 3d b9 0d 00  |2F:.&4050:s%=...|
00000130  3c 5f 4c 24 3d c4 36 37  2c 22 20 22 29 3a 4c 24  |<_L$=.67," "):L$|
00000140  3d 22 22 3a 44 25 3d 30  3a 70 25 3d 30 3a 51 25  |="":D%=0:p%=0:Q%|
00000150  3d 30 3a 43 4f 25 3d 31  3a 42 4f 25 3d 33 3a 70  |=0:CO%=1:BO%=3:p|
00000160  72 63 3d 31 3a 61 72 72  3d 31 3a 6c 6c 6b 3d 36  |rc=1:arr=1:llk=6|
00000170  36 30 3a 6c 6f 6f 6b 3d  30 3a 66 75 6c 6c 3d 30  |60:look=0:full=0|
00000180  3a f2 63 73 3a f2 4e 3a  73 68 66 3d b9 0d 00 46  |:.cs:.N:shf=...F|
00000190  13 e7 6c 6f 6f 6b 3d 30  20 4c 24 3d bd 28 31 29  |..look=0 L$=.(1)|
000001a0  0d 00 4b 07 f2 73 68 0d  00 50 12 45 49 3d 30 3a  |..K..sh..P.EI=0:|
000001b0  f5 3a f2 70 3a fd a3 3a  e0 0d 00 5a 34 dd f2 63  |.:.p:..:...Z4..c|
000001c0  73 3a e3 49 3d 31 b8 33  31 88 32 3a 73 74 28 49  |s:.I=1.31.2:st(I|
000001d0  29 3d 32 32 33 2b 49 3a  73 74 28 49 2b 31 29 3d  |)=223+I:st(I+1)=|
000001e0  32 32 33 2b 28 49 2b 31  29 3a ed 3a e1 0d 00 6e  |223+(I+1):.:...n|
000001f0  9f dd f2 63 28 58 25 2c  59 25 2c 5a 25 29 3a ef  |...c(X%,Y%,Z%):.|
00000200  31 38 3b 43 4f 25 2c 32  35 2c 34 2c 58 25 3b 59  |18;CO%,25,4,X%;Y|
00000210  25 2b 33 32 3b 5a 25 2b  32 32 33 2c 32 35 2c 34  |%+32;Z%+223,25,4|
00000220  2c 58 25 3b 59 25 3b 5a  25 2b 32 32 34 2c 31 38  |,X%;Y%;Z%+224,18|
00000230  3b 42 4f 25 2c 32 35 2c  34 2c 58 25 2d 32 30 3b  |;BO%,25,4,X%-20;|
00000240  59 25 2d 33 37 3b 32 35  2c 35 2c 58 25 2d 32 30  |Y%-37;25,5,X%-20|
00000250  3b 59 25 2b 34 35 3b 32  35 2c 35 2c 58 25 2b 37  |;Y%+45;25,5,X%+7|
00000260  32 3b 59 25 2b 34 35 3b  32 35 2c 35 2c 58 25 2b  |2;Y%+45;25,5,X%+|
00000270  37 32 3b 59 25 2d 33 37  3b 32 35 2c 35 2c 58 25  |72;Y%-37;25,5,X%|
00000280  2d 32 30 3b 59 25 2d 33  37 3b 3a e1 0d 00 82 68  |-20;Y%-37;:....h|
00000290  dd f2 70 3a f2 63 6c 3a  f2 45 28 31 29 3a f2 63  |..p:.cl:.E(1):.c|
000002a0  31 3a f2 63 28 31 31 30  2c 31 31 30 2c 32 38 29  |1:.c(110,110,28)|
000002b0  3a f2 63 28 33 36 30 2c  31 31 30 2c 33 30 29 3a  |:.c(360,110,30):|
000002c0  f2 63 28 36 31 30 2c 31  31 30 2c 31 39 29 3a f2  |.c(610,110,19):.|
000002d0  63 32 3a f2 63 28 38 36  30 2c 31 31 30 2c 32 38  |c2:.c(860,110,28|
000002e0  29 3a f2 63 28 31 31 31  30 2c 31 31 30 2c 33 30  |):.c(1110,110,30|
000002f0  29 3a f2 44 0d 00 96 a3  f2 63 28 31 31 31 30 2c  |):.D.....c(1110,|
00000300  33 38 34 2c 31 35 29 3a  f2 63 28 31 31 31 30 2c  |384,15):.c(1110,|
00000310  36 35 38 2c 31 33 29 3a  f2 63 28 31 31 31 30 2c  |658,13):.c(1110,|
00000320  39 33 32 2c 31 31 29 3a  f2 63 28 38 36 30 2c 39  |932,11):.c(860,9|
00000330  33 32 2c 31 37 29 3a f2  63 28 36 31 30 2c 39 33  |32,17):.c(610,93|
00000340  32 2c 39 29 3a f2 63 28  33 36 30 2c 39 33 32 2c  |2,9):.c(360,932,|
00000350  37 29 3a f2 63 28 31 31  30 2c 39 33 32 2c 35 29  |7):.c(110,932,5)|
00000360  3a f2 63 28 31 31 30 2c  36 35 38 2c 33 29 3a f2  |:.c(110,658,3):.|
00000370  63 28 31 31 30 2c 33 38  34 2c 31 29 3a d6 26 34  |c(110,384,1):.&4|
00000380  35 41 36 3a e6 30 2c 31  3a f2 4d 28 31 29 3a f2  |5A6:.0,1:.M(1):.|
00000390  64 28 45 49 29 3a e1 0d  00 aa 10 dd f2 64 28 45  |d(EI):.......d(E|
000003a0  49 29 3a 43 25 3d 30 0d  00 b4 0f e7 45 49 3d 31  |I):C%=0.....EI=1|
000003b0  30 8c 8d 64 48 40 0d 00  be 36 e7 20 ac 28 6c 6f  |0..dH@...6. .(lo|
000003c0  6f 6b 3d 30 20 80 ac 66  75 6c 6c 29 20 8b e7 a9  |ok=0 ..full) ...|
000003d0  4c 24 3c 36 36 20 4c 24  3d 4c 24 2b bd 28 45 49  |L$<66 L$=L$+.(EI|
000003e0  29 20 8b 6c 6c 6b 3d 70  72 63 2d 31 0d 00 c8 39  |) .llk=prc-1...9|
000003f0  ee 45 49 e5 8d 64 52 40  2c 8d 64 5c 40 2c 8d 64  |.EI..dR@,.d\@,.d|
00000400  66 40 2c 8d 64 70 40 2c  8d 64 7a 40 2c 8d 54 44  |f@,.dp@,.dz@,.TD|
00000410  41 2c 8d 54 4e 41 2c 8d  54 58 41 2c 8d 54 6c 41  |A,.TNA,.TXA,.TlA|
00000420  2c 8d 54 62 41 0d 00 d2  0d f2 73 68 3a e5 8d 54  |,.TbA.....sh:..T|
00000430  6c 41 0d 00 dc 19 f2 64  70 28 31 30 2c 36 34 31  |lA.....dp(10,641|
00000440  2c 35 33 38 29 3a e5 8d  54 6c 41 0d 00 e6 0d f2  |,538):..TlA.....|
00000450  70 61 3a e5 8d 54 6c 41  0d 00 f0 0c f2 6e 3a e5  |pa:..TlA.....n:.|
00000460  8d 54 6c 41 0d 00 fa 0d  f2 73 70 3a e5 8d 54 6c  |.TlA.....sp:..Tl|
00000470  41 0d 01 04 15 f2 43 28  35 38 38 2c 39 38 32 29  |A.....C(588,982)|
00000480  3a e5 8d 54 6c 41 0d 01  0e 12 49 25 3d 31 38 3a  |:..TlA....I%=18:|
00000490  f2 53 3a e5 8d 54 6c 41  0d 01 18 0c f2 67 3a e5  |.S:..TlA.....g:.|
000004a0  8d 54 6c 41 0d 01 22 0c  44 25 3d 31 30 3a f2 4c  |.TlA..".D%=10:.L|
000004b0  0d 01 2c 05 e1 0d 01 36  0b dd f2 4d 28 52 25 29  |..,....6...M(R%)|
000004c0  0d 01 40 0d f5 3a 2a 46  58 31 35 2c 31 0d 01 5e  |..@..:*FX15,1..^|
000004d0  27 e7 45 49 3d 31 33 36  20 f2 6c 28 33 34 34 29  |'.EI=136 .l(344)|
000004e0  3a e7 50 25 3c 3e 31 20  d6 26 34 36 45 41 3a e5  |:.P%<>1 .&46EA:.|
000004f0  8d 74 50 41 0d 01 68 27  e7 45 49 3d 31 33 37 20  |.tPA..h'.EI=137 |
00000500  f2 6c 28 39 32 38 29 3a  e7 50 25 3c 3e 31 20 d6  |.l(928):.P%<>1 .|
00000510  26 34 36 46 45 3a e5 8d  74 50 41 0d 01 72 27 e7  |&46FE:..tPA..r'.|
00000520  45 49 3d 31 33 38 20 f2  75 28 32 34 38 29 3a e7  |EI=138 .u(248):.|
00000530  50 25 3c 3e 31 20 d6 26  34 37 41 30 3a e5 8d 74  |P%<>1 .&47A0:..t|
00000540  50 41 0d 01 81 27 e7 45  49 3d 31 33 39 20 f2 75  |PA...'.EI=139 .u|
00000550  28 38 33 36 29 3a e7 50  25 3c 3e 31 20 d6 26 34  |(836):.P%<>1 .&4|
00000560  37 36 37 3a e5 8d 74 50  41 0d 01 86 09 e5 8d 74  |767:..tPA......t|
00000570  5a 41 0d 01 90 14 f2 73  28 26 31 31 2c 2d 31 35  |ZA.....s(&11,-15|
00000580  2c 35 30 2c 32 29 0d 01  9a 1b 50 25 3d 30 3a e7  |,50,2)....P%=0:.|
00000590  6c 6f 6f 6b 20 f2 41 20  8b 20 45 49 3d a5 3a f2  |look .A . EI=.:.|
000005a0  41 0d 01 a4 0e e7 45 49  3d 31 35 35 8c 20 85 0d  |A.....EI=155. ..|
000005b0  01 ae 15 f2 73 28 26 31  31 2c 2d 31 35 2c 32 35  |....s(&11,-15,25|
000005c0  30 2c 32 29 0d 01 b8 10  fd 45 49 3e 34 37 80 45  |0,2).....EI>47.E|
000005d0  49 3c 35 38 0d 01 c2 0c  45 49 3d 45 49 2d 34 37  |I<58....EI=EI-47|
000005e0  0d 01 cc 29 e7 52 25 80  45 49 3d 39 20 f2 73 28  |...).R%.EI=9 .s(|
000005f0  26 31 31 2c 38 2c 35 30  2c 32 30 29 3a d6 26 34  |&11,8,50,20):.&4|
00000600  39 43 36 3a e5 8d 44 40  41 0d 01 d6 0c d6 26 34  |9C6:..D@A.....&4|
00000610  35 39 30 3a e1 0d 01 d7  0b dd f2 6c 28 41 25 29  |590:.......l(A%)|
00000620  0d 01 d8 25 e3 49 25 3d  32 32 34 b8 38 36 30 88  |...%.I%=224.860.|
00000630  34 3a e7 20 b0 41 25 2c  49 25 29 3c 3e 30 20 8c  |4:. .A%,I%)<>0 .|
00000640  20 50 25 3d 31 0d 01 d9  07 ed 3a e1 0d 01 da 0b  | P%=1.....:.....|
00000650  dd f2 75 28 41 25 29 0d  01 db 25 e3 49 25 3d 33  |..u(A%)...%.I%=3|
00000660  32 30 b8 39 35 32 88 38  3a e7 20 b0 49 25 2c 41  |20.952.8:. .I%,A|
00000670  25 29 3c 3e 30 20 8c 20  50 25 3d 31 0d 01 dc 07  |%)<>0 . P%=1....|
00000680  ed 3a e1 0d 01 dd 2a dd  f2 73 28 43 25 2c 41 25  |.:....*..s(C%,A%|
00000690  2c 50 25 2c 44 25 29 3a  e7 73 25 d4 43 25 2c 41  |,P%,D%):.s%.C%,A|
000006a0  25 2c 50 25 2c 44 25 3a  e1 20 8b e1 20 0d 01 f2  |%,P%,D%:. .. ...|
000006b0  28 dd f2 45 28 43 4f 4c  29 3a ea 58 3a e6 30 2c  |(..E(COL):.X:.0,|
000006c0  43 4f 4c 3a e7 70 25 3d  31 58 3d 33 30 34 20 8b  |COL:.p%=1X=304 .|
000006d0  58 3d 33 31 32 0d 01 f4  2a ec 58 2c 32 32 30 3a  |X=312...*.X,220:|
000006e0  df 39 36 30 2c 32 32 30  3a df 39 36 30 2c 38 36  |.960,220:.960,86|
000006f0  34 3a df 58 2c 38 36 34  3a df 58 2c 32 32 30 0d  |4:.X,864:.X,220.|
00000700  01 fb 4e e7 73 68 66 20  ec 36 34 34 2c 32 32 30  |..N.shf .644,220|
00000710  3a df 36 34 34 2c 31 39  36 3a ec 39 36 30 2c 35  |:.644,196:.960,5|
00000720  33 38 3a df 39 38 34 2c  35 33 38 3a ec 36 34 34  |38:.984,538:.644|
00000730  2c 38 36 34 3a df 36 34  34 2c 38 38 38 3a ec 58  |,864:.644,888:.X|
00000740  2c 35 33 38 3a df 32 38  30 2c 35 33 38 0d 01 fc  |,538:.280,538...|
00000750  05 e1 0d 01 fd 22 dd f2  50 28 58 2c 59 2c 50 25  |....."..P(X,Y,P%|
00000760  2c 73 69 7a 65 2c 73 64  29 3a e7 73 64 3d 33 e5  |,size,sd):.sd=3.|
00000770  8d 54 43 42 0d 01 fe 69  e7 50 25 3d 31 20 ec 58  |.TCB...i.P%=1 .X|
00000780  2c 59 3a ec 58 2b 73 69  7a 65 2c 59 3a f0 38 35  |,Y:.X+size,Y:.85|
00000790  2c 58 2c 59 2b 73 69 7a  65 3a f0 38 35 2c 58 2b  |,X,Y+size:.85,X+|
000007a0  73 69 7a 65 2c 59 2b 73  69 7a 65 3a e1 20 8b ec  |size,Y+size:. ..|
000007b0  58 2c 59 3a df 58 2b 73  69 7a 65 2c 59 3a df 58  |X,Y:.X+size,Y:.X|
000007c0  2b 73 69 7a 65 2c 59 2b  73 69 7a 65 3a df 58 2c  |+size,Y+size:.X,|
000007d0  59 2b 73 69 7a 65 3a df  58 2c 59 3a e1 0d 02 03  |Y+size:.X,Y:....|
000007e0  60 e7 50 25 3d 31 20 ec  58 2c 59 3a ec 58 2b 73  |`.P%=1 .X,Y:.X+s|
000007f0  69 7a 65 2c 59 3a f0 38  35 2c 58 2b 73 69 7a 65  |ize,Y:.85,X+size|
00000800  2f 32 2c 59 2b 2e 38 36  36 2a 73 69 7a 65 3a e1  |/2,Y+.866*size:.|
00000810  20 8b ec 58 2c 59 3a df  58 2b 73 69 7a 65 2c 59  | ..X,Y:.X+size,Y|
00000820  3a df 58 2b 73 69 7a 65  2f 32 2c 59 2b 2e 38 36  |:.X+size/2,Y+.86|
00000830  36 2a 73 69 7a 65 3a df  58 2c 59 3a e1 0d 02 12  |6*size:.X,Y:....|
00000840  27 dd f2 72 28 41 25 2c  58 25 2c 59 25 2c 57 25  |'..r(A%,X%,Y%,W%|
00000850  2c 48 25 29 3a ec 58 25  2c 59 25 3a e7 41 25 8c  |,H%):.X%,Y%:.A%.|
00000860  8d 54 66 42 0d 02 1c 2d  df 58 25 2b 57 25 2c 59  |.TfB...-.X%+W%,Y|
00000870  25 3a df 58 25 2b 57 25  2c 59 25 2b 48 25 3a df  |%:.X%+W%,Y%+H%:.|
00000880  58 25 2c 59 25 2b 48 25  3a df 58 25 2c 59 25 3a  |X%,Y%+H%:.X%,Y%:|
00000890  e1 0d 02 26 2a ec 58 25  2b 57 25 2c 59 25 3a f0  |...&*.X%+W%,Y%:.|
000008a0  38 35 2c 58 25 2c 59 25  2b 48 25 3a f0 38 35 2c  |85,X%,Y%+H%:.85,|
000008b0  58 25 2b 57 25 2c 59 25  2b 48 25 0d 02 30 05 e1  |X%+W%,Y%+H%..0..|
000008c0  0d 02 3a 08 dd f2 73 68  0d 02 44 79 f2 63 6c 3a  |..:...sh..Dy.cl:|
000008d0  f2 63 28 38 30 2c 39 34  30 2c 31 29 3a 73 68 66  |.c(80,940,1):shf|
000008e0  3d 30 3a f2 45 28 33 29  3a 73 68 66 3d b9 3a e6  |=0:.E(3):shf=.:.|
000008f0  30 2c 32 3a f2 50 28 36  33 2c 32 38 38 2c 32 2c  |0,2:.P(63,288,2,|
00000900  32 35 36 2c 34 29 3a f2  50 28 36 33 2c 35 34 34  |256,4):.P(63,544|
00000910  2c 32 2c 32 35 36 2c 34  29 3a f2 50 28 39 36 31  |,2,256,4):.P(961|
00000920  2c 32 38 38 2c 32 2c 32  35 36 2c 34 29 3a f2 50  |,288,2,256,4):.P|
00000930  28 39 36 31 2c 35 34 34  2c 32 2c 32 35 36 2c 34  |(961,544,2,256,4|
00000940  29 0d 02 4e 25 d6 26 34  30 37 35 3a e6 30 2c 32  |)..N%.&4075:.0,2|
00000950  3a f2 63 69 28 31 30 30  2c 31 39 32 2c 34 30 30  |:.ci(100,192,400|
00000960  29 3a e6 30 2c 33 0d 02  58 31 f2 50 28 39 39 30  |):.0,3..X1.P(990|
00000970  2c 33 30 37 2c 31 2c 32  31 32 2c 33 29 3a e6 30  |,307,1,212,3):.0|
00000980  2c 31 3a f2 50 28 31 30  32 32 2c 35 37 36 2c 31  |,1:.P(1022,576,1|
00000990  2c 31 35 30 2c 34 29 0d  02 5d 48 d6 26 34 35 41  |,150,4)..]H.&45A|
000009a0  36 3a f2 63 72 28 36 34  2c 37 36 38 2c 34 39 29  |6:.cr(64,768,49)|
000009b0  3a f2 63 72 28 36 34 2c  35 31 32 2c 35 30 29 3a  |:.cr(64,512,50):|
000009c0  f2 63 72 28 39 36 34 2c  35 31 32 2c 35 32 29 3a  |.cr(964,512,52):|
000009d0  f2 63 72 28 39 36 34 2c  37 36 38 2c 35 31 29 0d  |.cr(964,768,51).|
000009e0  02 62 40 f2 65 28 36 34  2c 31 30 30 29 3a e3 4e  |.b@.e(64,100):.N|
000009f0  25 3d 31 b8 35 3a f2 63  72 28 32 32 36 2b 28 4e  |%=1.5:.cr(226+(N|
00000a00  25 2a 31 30 30 29 2c 31  30 30 2c 4e 25 2b 34 38  |%*100),100,N%+48|
00000a10  2b 35 2a 28 4e 25 3d 35  29 29 3a ed 3a f2 42 0d  |+5*(N%=5)):.:.B.|
00000a20  02 6c 12 45 49 3d 30 3a  f5 3a 2a 46 58 31 35 2c  |.l.EI=0:.:*FX15,|
00000a30  31 0d 02 76 16 e7 6c 6f  6f 6b 20 f2 41 20 8b 20  |1..v..look .A . |
00000a40  45 49 3d a5 3a f2 41 0d  02 7b 45 e7 28 45 49 20  |EI=.:.A..{E.(EI |
00000a50  84 33 32 29 3d 31 31 35  2b 32 2a 73 25 74 25 3d  |.32)=115+2*s%t%=|
00000a60  ac 73 25 3a 73 25 3d b9  3a f2 73 28 26 31 31 2c  |.s%:s%=.:.s(&11,|
00000a70  31 30 2b 74 25 2a 33 2c  31 30 2c 32 29 3a 73 25  |10+t%*3,10,2):s%|
00000a80  3d 74 25 3a fd b9 3a e5  8d 44 62 42 0d 02 80 0e  |=t%:..:..DbB....|
00000a90  e7 45 49 3d 31 35 35 8c  20 85 0d 02 8a 27 f2 73  |.EI=155. ....'.s|
00000aa0  28 26 31 31 2c 2d 31 35  2c 32 35 30 2c 32 29 3a  |(&11,-15,250,2):|
00000ab0  e7 45 49 3c 3e 33 32 20  45 49 3d 45 49 20 84 31  |.EI<>32 EI=EI .1|
00000ac0  36 0d 02 8f 10 fd 45 49  3e 34 37 80 45 49 3c 35  |6.....EI>47.EI<5|
00000ad0  33 0d 02 94 2b 45 49 3d  45 49 2d 34 37 3a e6 30  |3...+EI=EI-47:.0|
00000ae0  2c 30 3a f2 50 28 33 32  31 2c 32 32 34 2c 31 2c  |,0:.P(321,224,1,|
00000af0  36 33 38 2c 34 29 3a 4f  45 3d 45 49 0d 02 9e 21  |638,4):OE=EI...!|
00000b00  ee 45 49 20 e5 8d 64 50  42 2c 8d 74 68 42 2c 8d  |.EI ..dPB,.thB,.|
00000b10  74 72 42 2c 8d 74 7c 42  2c 8d 64 46 42 0d 02 a8  |trB,.t|B,.dFB...|
00000b20  2d d6 26 34 36 36 42 3a  d6 26 34 35 44 39 3a d6  |-.&466B:.&45D9:.|
00000b30  26 34 30 37 35 3a f2 63  72 28 36 34 2c 37 36 38  |&4075:.cr(64,768|
00000b40  2c 34 39 29 3a e5 8d 64  50 42 0d 02 b2 74 e6 30  |,49):..dPB...t.0|
00000b50  2c 32 3a 52 25 3d 32 35  36 2a 32 35 36 3a e3 51  |,2:R%=256*256:.Q|
00000b60  25 3d 31 20 b8 32 35 36  20 88 38 3a 4b 25 3d b6  |%=1 .256 .8:K%=.|
00000b70  28 52 25 2d 51 25 2a 51  25 29 3a ec 36 34 30 2d  |(R%-Q%*Q%):.640-|
00000b80  51 25 2c 35 34 34 2d 4b  25 3a df 36 34 30 2d 51  |Q%,544-K%:.640-Q|
00000b90  25 2c 35 34 34 2b 4b 25  3a ec 36 34 30 2b 51 25  |%,544+K%:.640+Q%|
00000ba0  2c 35 34 34 2d 4b 25 3a  df 36 34 30 2b 51 25 2c  |,544-K%:.640+Q%,|
00000bb0  35 34 34 2b 4b 25 3a ed  3a e5 8d 64 50 42 0d 02  |544+K%:.:..dPB..|
00000bc0  bc 38 e6 30 2c 31 3a ec  33 37 36 2c 32 38 34 3a  |.8.0,1:.376,284:|
00000bd0  ec 39 30 30 2c 32 38 34  3a f0 38 35 2c 33 37 36  |.900,284:.85,376|
00000be0  2c 38 30 38 3a f0 38 35  2c 39 30 30 2c 38 30 38  |,808:.85,900,808|
00000bf0  3a e5 8d 64 50 42 0d 02  c6 1c e6 30 2c 33 3a f2  |:..dPB.....0,3:.|
00000c00  50 28 33 35 35 2c 32 35  36 2c 31 2c 35 38 30 2c  |P(355,256,1,580,|
00000c10  33 29 0d 02 d0 20 f2 63  62 3a f2 70 64 3a f2 52  |3)... .cb:.pd:.R|
00000c20  28 36 30 30 2c 31 30 30  29 3a e7 4f 45 3d 32 f2  |(600,100):.OE=2.|
00000c30  50 59 0d 02 d5 23 e7 6c  6f 6f 6b 20 f2 41 20 8b  |PY...#.look .A .|
00000c40  20 73 68 66 3d 30 3a 45  49 3d a4 64 3a 73 68 66  | shf=0:EI=.d:shf|
00000c50  3d b9 3a f2 41 0d 02 da  0e e7 45 49 3d 31 35 35  |=.:.A.....EI=155|
00000c60  8c 20 85 0d 02 df 29 e7  45 49 3d 31 33 35 80 4f  |. ....).EI=135.O|
00000c70  45 3d 32 d6 26 34 35 39  30 3a d6 26 34 36 36 42  |E=2.&4590:.&466B|
00000c80  3a 4f 45 3d 31 30 3a e5  8d 64 50 42 0d 02 e0 10  |:OE=10:..dPB....|
00000c90  e7 45 49 3d 31 33 35 e5  8d 64 55 42 0d 02 e1 45  |.EI=135..dUB...E|
00000ca0  e7 28 45 49 20 84 33 32  29 3d 31 31 35 2b 32 2a  |.(EI .32)=115+2*|
00000cb0  73 25 74 25 3d ac 73 25  3a 73 25 3d b9 3a f2 73  |s%t%=.s%:s%=.:.s|
00000cc0  28 26 31 31 2c 31 30 2b  74 25 2a 33 2c 31 30 2c  |(&11,10+t%*3,10,|
00000cd0  32 29 3a 73 25 3d 74 25  3a f2 42 3a e5 8d 64 55  |2):s%=t%:.B:..dU|
00000ce0  42 0d 02 e2 24 e7 28 45  49 20 84 33 32 29 3d 31  |B...$.(EI .32)=1|
00000cf0  31 33 20 84 28 45 49 20  84 33 32 29 3d 31 31 35  |13 .(EI .32)=115|
00000d00  e5 8d 64 55 42 0d 02 e4  1b e7 45 49 3d 31 33 8c  |..dUB.....EI=13.|
00000d10  d6 26 34 35 39 30 3a f2  63 62 3a e5 8d 44 5d 42  |.&4590:.cb:..D]B|
00000d20  0d 02 e9 3a e7 4f 45 3d  32 d6 26 34 35 39 30 3a  |...:.OE=2.&4590:|
00000d30  d6 26 34 36 36 42 3a d6  26 34 35 44 39 3a d6 26  |.&466B:.&45D9:.&|
00000d40  34 30 37 35 3a d6 26 34  35 39 30 3a f2 63 72 28  |4075:.&4590:.cr(|
00000d50  36 34 2c 37 36 38 2c 34  39 29 0d 02 eb 1b e7 4f  |64,768,49).....O|
00000d60  45 3d 31 30 d6 26 34 35  41 36 3a 4f 45 3d 32 3a  |E=10.&45A6:OE=2:|
00000d70  e5 8d 64 50 42 0d 02 ee  26 f2 63 62 3a e7 4f 45  |..dPB...&.cb:.OE|
00000d80  3c 3e 32 e6 30 2c 30 3a  f2 50 28 33 32 31 2c 32  |<>2.0,0:.P(321,2|
00000d90  32 34 2c 31 2c 36 33 38  2c 34 29 0d 02 f3 09 e5  |24,1,638,4).....|
00000da0  8d 44 5d 42 0d 02 f8 24  d6 26 34 35 39 30 3a f2  |.D]B...$.&4590:.|
00000db0  63 72 28 36 34 2c 37 36  38 2c 34 39 29 3a 41 3d  |cr(64,768,49):A=|
00000dc0  a6 28 31 30 30 29 3a e1  0d 03 02 4f dd f2 52 28  |.(100):....O..R(|
00000dd0  58 25 2c 59 25 29 3a e6  30 2c 31 3a ec 58 25 2c  |X%,Y%):.0,1:.X%,|
00000de0  59 25 3a f1 bd 28 32 34  36 29 3b bd 28 32 34 37  |Y%:..(246);.(247|
00000df0  29 3b bd 28 32 34 38 29  3a e6 30 2c 33 3a f2 72  |);.(248):.0,3:.r|
00000e00  28 30 2c 58 25 2d 35 2c  59 25 2d 34 33 2c 32 30  |(0,X%-5,Y%-43,20|
00000e10  36 2c 36 30 29 3a e1 0d  03 0c 08 dd f2 63 6c 0d  |6,60):.......cl.|
00000e20  03 20 48 ef 34 2c 32 38  3b 33 31 2c 31 39 2c 32  |. H.4,28;31,19,2|
00000e30  35 2c 31 32 2c 32 38 3b  32 34 2c 34 3b 31 32 2c  |5,12,28;24,4;12,|
00000e40  32 38 2c 31 35 2c 32 34  2c 31 39 3b 31 32 2c 32  |28,15,24,19;12,2|
00000e50  38 2c 35 2c 34 2c 31 34  3b 31 32 2c 32 36 2c 35  |8,5,4,14;12,26,5|
00000e60  2c 31 38 3b 30 3a e1 0d  03 2a 48 dd f2 63 72 28  |,18;0:...*H..cr(|
00000e70  58 25 2c 59 25 2c 4e 55  4d 29 3a ef 31 38 3b 31  |X%,Y%,NUM):.18;1|
00000e80  2c 32 35 2c 34 2c 58 25  3b 59 25 2b 31 35 3b 4e  |,25,4,X%;Y%+15;N|
00000e90  55 4d 2c 31 38 3b 33 3a  f2 50 28 58 25 2d 34 2c  |UM,18;3:.P(X%-4,|
00000ea0  59 25 2d 33 36 2c 32 2c  36 36 2c 34 29 3a e1 0d  |Y%-36,2,66,4):..|
00000eb0  03 34 4b dd f2 64 64 28  58 25 2c 59 25 29 3a ef  |.4K..dd(X%,Y%):.|
00000ec0  31 38 3b 31 2c 32 35 2c  34 2c 58 25 3b 59 25 3b  |18;1,25,4,X%;Y%;|
00000ed0  32 35 32 2c 32 35 33 2c  32 35 34 2c 31 38 3b 33  |252,253,254,18;3|
00000ee0  3a f2 72 28 30 2c 58 25  2d 37 2c 59 25 2d 34 33  |:.r(0,X%-7,Y%-43|
00000ef0  2c 32 30 36 2c 36 30 29  3a e1 0d 03 3e 4a dd f2  |,206,60):...>J..|
00000f00  65 28 58 25 2c 59 25 29  3a ef 31 38 3b 31 2c 32  |e(X%,Y%):.18;1,2|
00000f10  35 2c 34 2c 58 25 3b 59  25 3b 32 34 39 2c 32 35  |5,4,X%;Y%;249,25|
00000f20  30 2c 32 35 31 2c 31 38  3b 33 3a f2 72 28 30 2c  |0,251,18;3:.r(0,|
00000f30  58 25 2d 37 2c 59 25 2d  34 33 2c 32 30 36 2c 36  |X%-7,Y%-43,206,6|
00000f40  30 29 3a e1 0d 03 48 12  dd f2 64 70 28 55 25 2c  |0):...H...dp(U%,|
00000f50  41 25 2c 42 25 29 0d 03  4d 09 64 69 3d 31 30 0d  |A%,B%)..M.di=10.|
00000f60  03 52 32 f2 63 6c 3a f2  63 28 31 30 30 2c 39 30  |.R2.cl:.c(100,90|
00000f70  30 2c 33 29 3a f2 45 28  31 29 3a f2 65 28 36 34  |0,3):.E(1):.e(64|
00000f80  2c 31 30 30 29 3a f2 52  28 33 33 34 2c 31 30 30  |,100):.R(334,100|
00000f90  29 0d 03 5c 17 f5 3a e7  43 25 3d 31 f2 64 64 28  |)..\..:.C%=1.dd(|
00000fa0  36 30 34 2c 31 30 30 29  0d 03 66 17 e7 6c 6f 6f  |604,100)..f..loo|
00000fb0  6b 20 f2 41 20 8b 20 45  49 3d a4 64 3a f2 41 0d  |k .A . EI=.d:.A.|
00000fc0  03 70 0e e7 45 49 3d 31  35 35 8c 20 85 0d 03 7a  |.p..EI=155. ...z|
00000fd0  0e e7 45 49 3d 31 33 20  f2 64 72 0d 03 84 10 fd  |..EI=13 .dr.....|
00000fe0  45 49 3d 31 32 37 80 43  25 3d 31 0d 03 8e 34 d6  |EI=127.C%=1...4.|
00000ff0  26 34 35 41 36 3a 55 25  3d 31 30 3a 43 25 3d 30  |&45A6:U%=10:C%=0|
00001000  3a e6 30 2c 30 3a f2 72  28 31 2c 35 39 30 2c 30  |:.0,0:.r(1,590,0|
00001010  2c 36 39 30 2c 31 32 30  29 3a e5 8d 44 5c 43 0d  |,690,120):..D\C.|
00001020  03 98 05 e1 0d 03 a2 0d  dd f2 64 72 3a 43 25 3d  |..........dr:C%=|
00001030  31 0d 03 ac 34 f2 73 28  26 31 30 2c 31 30 2c 36  |1...4.s(&10,10,6|
00001040  30 2c 35 29 3a e6 30 2c  30 3a f2 63 69 28 55 25  |0,5):.0,0:.ci(U%|
00001050  2c 41 25 2c 42 25 29 3a  e7 55 25 2b 64 69 3e 3d  |,A%,B%):.U%+di>=|
00001060  33 30 30 20 e1 0d 03 b6  0c 55 25 3d 55 25 2b 64  |300 .....U%=U%+d|
00001070  69 0d 03 c0 05 e1 0d 03  ca 6b dd f2 63 69 28 55  |i........k..ci(U|
00001080  25 2c 5a 25 2c 57 25 29  3a e3 58 25 3d 31 b8 55  |%,Z%,W%):.X%=1.U|
00001090  25 88 38 3a 59 25 3d b6  28 28 55 25 2a 55 25 29  |%.8:Y%=.((U%*U%)|
000010a0  2d 28 58 25 2a 58 25 29  29 3a ec 5a 25 2b 58 25  |-(X%*X%)):.Z%+X%|
000010b0  2c 57 25 2b 59 25 3a df  5a 25 2b 58 25 2c 57 25  |,W%+Y%:.Z%+X%,W%|
000010c0  2d 59 25 3a ec 5a 25 2d  58 25 2c 57 25 2b 59 25  |-Y%:.Z%-X%,W%+Y%|
000010d0  3a df 5a 25 2d 58 25 2c  57 25 2d 59 25 3a ed 3a  |:.Z%-X%,W%-Y%:.:|
000010e0  e1 0d 03 d4 22 dd f2 70  64 3a f2 65 28 36 34 2c  |...."..pd:.e(64,|
000010f0  31 30 30 29 3a f2 64 64  28 33 33 34 2c 31 30 30  |100):.dd(334,100|
00001100  29 3a e1 0d 03 e8 11 dd  a4 64 3a f5 3a 2a 46 58  |):.......d:.:*FX|
00001110  31 35 2c 31 0d 03 fc 5c  45 25 3d a5 3a f2 73 28  |15,1...\E%=.:.s(|
00001120  26 31 31 2c 2d 31 35 2c  32 35 30 2c 32 29 3a fd  |&11,-15,250,2):.|
00001130  45 25 3d 31 33 84 45 25  3d 31 32 37 84 45 25 3d  |E%=13.E%=127.E%=|
00001140  38 84 28 73 68 66 3d 30  80 28 45 25 3d 31 33 35  |8.(shf=0.(E%=135|
00001150  84 45 25 3d 38 33 84 45  25 3d 38 31 84 45 25 3d  |.E%=83.E%=81.E%=|
00001160  31 31 33 84 45 25 3d 31  31 35 29 29 3a 3d 45 25  |113.E%=115)):=E%|
00001170  0d 04 1a 08 dd f2 70 61  0d 04 24 5d f2 63 6c 3a  |......pa..$].cl:|
00001180  d6 26 34 35 41 36 3a f2  45 28 32 29 3a e6 30 2c  |.&45A6:.E(2):.0,|
00001190  33 3a f2 63 28 31 30 30  2c 39 30 30 2c 35 29 3a  |3:.c(100,900,5):|
000011a0  f2 65 28 36 34 2c 31 30  30 29 3a f7 8d 54 6e 44  |.e(64,100):..TnD|
000011b0  3a e3 49 25 3d 31 b8 37  3a f3 41 3a f2 63 72 28  |:.I%=1.7:.A:.cr(|
000011c0  35 30 32 2b 28 31 30 32  2a 49 25 29 2c 31 30 30  |502+(102*I%),100|
000011d0  2c 41 29 3a ed 0d 04 2e  1a dc 20 38 32 2c 37 31  |,A):...... 82,71|
000011e0  2c 38 39 2c 36 36 2c 38  30 2c 37 36 2c 38 37 0d  |,89,66,80,76,87.|
000011f0  04 38 0a 45 49 3d 30 3a  f5 0d 04 42 0e e7 45 49  |.8.EI=0:...B..EI|
00001200  3d 37 31 49 25 3d 33 0d  04 4c 0e e7 45 49 3d 38  |=71I%=3..L..EI=8|
00001210  32 49 25 3d 31 0d 04 56  19 e7 45 49 3d 38 39 ef  |2I%=1..V..EI=89.|
00001220  31 39 2c 32 2c 33 3b 30  3b 3a 49 25 3d 32 0d 04  |19,2,3;0;:I%=2..|
00001230  60 19 e7 45 49 3d 36 36  ef 31 39 2c 32 2c 34 3b  |`..EI=66.19,2,4;|
00001240  30 3b 3a 49 25 3d 32 0d  04 6a 19 e7 45 49 3d 38  |0;:I%=2..j..EI=8|
00001250  30 ef 31 39 2c 32 2c 35  3b 30 3b 3a 49 25 3d 32  |0.19,2,5;0;:I%=2|
00001260  0d 04 74 19 e7 45 49 3d  37 36 ef 31 39 2c 32 2c  |..t..EI=76.19,2,|
00001270  36 3b 30 3b 3a 49 25 3d  32 0d 04 7e 19 e7 45 49  |6;0;:I%=2..~..EI|
00001280  3d 38 37 ef 31 39 2c 32  2c 37 3b 30 3b 3a 49 25  |=87.19,2,7;0;:I%|
00001290  3d 32 0d 04 88 38 e7 45  49 20 f2 73 28 26 31 31  |=2...8.EI .s(&11|
000012a0  2c 39 2c 45 49 2c 31 30  29 3a 43 25 3d 31 3a f2  |,9,EI,10):C%=1:.|
000012b0  64 64 28 33 33 34 2c 31  30 30 29 3a 3f 26 37 37  |dd(334,100):?&77|
000012c0  3d 49 25 3a d6 26 34 41  39 36 0d 04 92 0d f5 3a  |=I%:.&4A96.....:|
000012d0  2a 46 58 31 35 2c 31 0d  04 9c 16 e7 6c 6f 6f 6b  |*FX15,1.....look|
000012e0  20 f2 41 20 8b 20 45 49  3d a5 3a f2 41 0d 04 a6  | .A . EI=.:.A...|
000012f0  0e e7 45 49 3d 31 35 35  8c 20 85 0d 04 b0 2d f2  |..EI=155. ....-.|
00001300  73 28 26 31 31 2c 2d 31  35 2c 32 35 30 2c 32 29  |s(&11,-15,250,2)|
00001310  3a e7 45 49 3c 3e 31 32  37 20 45 49 3d 28 45 49  |:.EI<>127 EI=(EI|
00001320  20 84 33 32 29 2d 33 32  0d 04 b5 3c fd 28 45 49  | .32)-32...<.(EI|
00001330  3d 31 32 37 80 43 25 3d  31 29 84 45 49 3d 37 31  |=127.C%=1).EI=71|
00001340  84 45 49 3d 38 39 84 45  49 3d 38 32 84 45 49 3d  |.EI=89.EI=82.EI=|
00001350  36 36 84 45 49 3d 38 30  84 45 49 3d 37 36 84 45  |66.EI=80.EI=76.E|
00001360  49 3d 38 37 0d 04 ba 0b  fd 45 49 3d 31 32 37 0d  |I=87.....EI=127.|
00001370  04 c4 1b d6 26 34 35 41  36 3a ef 31 39 2c 32 2c  |....&45A6:.19,2,|
00001380  33 3b 30 3b 3a e5 8d 54  78 44 0d 04 ce 05 e1 0d  |3;0;:..TxD......|
00001390  04 d8 07 dd f2 6e 0d 04  e2 32 f2 63 6c 3a f2 63  |.....n...2.cl:.c|
000013a0  28 31 30 30 2c 39 30 30  2c 37 29 3a f2 45 28 33  |(100,900,7):.E(3|
000013b0  29 3a f2 65 28 36 34 2c  31 30 30 29 3a f2 52 28  |):.e(64,100):.R(|
000013c0  33 33 34 2c 31 30 30 29  0d 04 ec 17 f5 3a e7 43  |334,100).....:.C|
000013d0  25 3d 31 f2 64 64 28 36  30 34 2c 31 30 30 29 0d  |%=1.dd(604,100).|
000013e0  04 f6 17 e7 6c 6f 6f 6b  20 f2 41 20 8b 20 45 49  |....look .A . EI|
000013f0  3d a4 64 3a f2 41 0d 05  00 0e e7 45 49 3d 31 35  |=.d:.A.....EI=15|
00001400  35 8c 20 85 0d 05 0a 26  e7 45 49 3d 31 33 20 f2  |5. ....&.EI=13 .|
00001410  73 28 26 31 31 2c 34 2c  35 30 2c 32 30 29 3a d6  |s(&11,4,50,20):.|
00001420  26 34 42 31 43 3a 43 25  3d 31 0d 05 14 10 fd 45  |&4B1C:C%=1.....E|
00001430  49 3d 31 32 37 80 43 25  3d 31 0d 05 1e 2e d6 26  |I=127.C%=1.....&|
00001440  34 35 41 36 3a 43 25 3d  30 3a e6 30 2c 30 3a f2  |45A6:C%=0:.0,0:.|
00001450  72 28 31 2c 35 39 30 2c  30 2c 36 39 30 2c 31 32  |r(1,590,0,690,12|
00001460  30 29 3a e5 8d 64 6c 44  0d 05 28 05 e1 0d 05 32  |0):..dlD..(....2|
00001470  0c dd f2 53 3a 43 25 3d  30 0d 05 3c 60 f2 63 6c  |...S:C%=0..<`.cl|
00001480  3a d6 26 34 35 41 36 3a  f2 63 28 31 30 30 2c 39  |:.&45A6:.c(100,9|
00001490  30 30 2c 31 31 29 3a f2  65 28 36 34 2c 31 30 30  |00,11):.e(64,100|
000014a0  29 3a f2 63 32 3a f2 63  28 33 33 34 2c 31 30 30  |):.c2:.c(334,100|
000014b0  2c 32 38 29 3a f2 63 28  34 33 37 2c 31 30 30 2c  |,28):.c(437,100,|
000014c0  33 30 29 3a f2 44 3a e6  33 2c 32 3a f2 61 28 31  |30):.D:.3,2:.a(1|
000014d0  38 29 3a f2 68 28 31 38  29 0d 05 46 1d f5 3a 49  |8):.h(18)..F..:I|
000014e0  25 3d 31 38 3a e7 43 25  3d 31 f2 64 64 28 37 33  |%=18:.C%=1.dd(73|
000014f0  34 2c 31 30 30 29 0d 05  50 17 e7 6c 6f 6f 6b 20  |4,100)..P..look |
00001500  f2 41 20 8b 20 45 49 3d  a4 63 3a f2 41 0d 05 5a  |.A . EI=.c:.A..Z|
00001510  0e e7 45 49 3d 31 35 35  8c 20 85 0d 05 64 b2 e7  |..EI=155. ...d..|
00001520  45 49 3d 31 33 38 51 25  3d 31 3a 43 25 3d 31 3a  |EI=138Q%=1:C%=1:|
00001530  d6 26 34 35 36 45 3a e6  30 2c 30 3a f2 72 28 31  |.&456E:.0,0:.r(1|
00001540  2c 32 30 30 2c 32 32 34  2c 38 38 30 2c 31 37 30  |,200,224,880,170|
00001550  29 3a f2 72 28 31 2c 32  30 30 2c 36 39 36 2c 38  |):.r(1,200,696,8|
00001560  38 30 2c 31 36 34 29 3a  e6 33 2c 32 3a 49 25 3d  |80,164):.3,2:I%=|
00001570  49 25 2b 31 34 3a f2 68  28 49 25 2d 31 34 29 3a  |I%+14:.h(I%-14):|
00001580  f2 61 28 49 25 2d 31 34  29 3a f2 68 28 49 25 29  |.a(I%-14):.h(I%)|
00001590  3a f2 61 28 49 25 2d 32  38 29 3a f2 64 69 3a e6  |:.a(I%-28):.di:.|
000015a0  33 2c 32 3a f2 68 28 49  25 29 3a f2 61 28 49 25  |3,2:.h(I%):.a(I%|
000015b0  2d 32 38 29 3a f2 68 28  49 25 2d 31 34 29 3a f2  |-28):.h(I%-14):.|
000015c0  61 28 49 25 2d 31 34 29  3a 51 25 3d 30 0d 05 6e  |a(I%-14):Q%=0..n|
000015d0  be e7 45 49 3d 31 33 39  51 25 3d 31 3a 43 25 3d  |..EI=139Q%=1:C%=|
000015e0  31 3a e6 30 2c 30 3a f2  72 28 31 2c 32 30 30 2c  |1:.0,0:.r(1,200,|
000015f0  32 32 34 2c 38 38 30 2c  31 37 30 29 3a f2 72 28  |224,880,170):.r(|
00001600  31 2c 32 30 30 2c 36 39  36 2c 38 38 30 2c 31 36  |1,200,696,880,16|
00001610  34 29 3a e6 33 2c 32 3a  49 25 3d 49 25 2b 31 34  |4):.3,2:I%=I%+14|
00001620  3a f2 68 28 49 25 2d 31  34 29 3a f2 61 28 49 25  |:.h(I%-14):.a(I%|
00001630  2d 31 34 29 3a f2 68 28  49 25 29 3a f2 61 28 49  |-14):.h(I%):.a(I|
00001640  25 2d 32 38 29 3a f2 73  28 26 31 31 2c 36 2c 35  |%-28):.s(&11,6,5|
00001650  30 2c 32 30 29 3a e6 33  2c 32 3a f2 68 28 49 25  |0,20):.3,2:.h(I%|
00001660  29 3a f2 61 28 49 25 2d  32 38 29 3a f2 68 28 49  |):.a(I%-28):.h(I|
00001670  25 2d 31 34 29 3a f2 61  28 49 25 2d 31 34 29 3a  |%-14):.a(I%-14):|
00001680  d6 26 34 35 37 35 3a 51  25 3d 30 0d 05 78 10 fd  |.&4575:Q%=0..x..|
00001690  45 49 3d 31 32 37 80 43  25 3d 31 0d 05 82 2e 43  |EI=127.C%=1....C|
000016a0  25 3d 30 3a d6 26 34 35  41 36 3a e6 30 2c 30 3a  |%=0:.&45A6:.0,0:|
000016b0  f2 72 28 31 2c 37 32 34  2c 30 2c 35 35 30 2c 31  |.r(1,724,0,550,1|
000016c0  32 30 29 3a e5 8d 44 46  45 0d 05 8c 05 e1 0d 05  |20):..DFE.......|
000016d0  96 94 dd f2 68 28 56 25  29 3a 59 25 3d 56 25 2a  |....h(V%):Y%=V%*|
000016e0  31 32 3a ec 33 32 30 2c  59 25 3a ec 35 39 31 2c  |12:.320,Y%:.591,|
000016f0  59 25 2d 36 34 3a f0 38  35 2c 35 39 31 2c 59 25  |Y%-64:.85,591,Y%|
00001700  3a ec 35 39 32 2c 59 25  3a ec 35 39 32 2c 59 25  |:.592,Y%:.592,Y%|
00001710  2d 31 36 30 3a f0 38 35  2c 36 38 38 2c 59 25 2d  |-160:.85,688,Y%-|
00001720  31 36 30 3a ec 36 39 37  2c 59 25 2d 31 36 30 3a  |160:.697,Y%-160:|
00001730  ec 36 39 37 2c 59 25 3a  f0 38 35 2c 36 30 31 2c  |.697,Y%:.85,601,|
00001740  59 25 3a ec 37 30 34 2c  59 25 3a ec 37 30 34 2c  |Y%:.704,Y%:.704,|
00001750  59 25 2d 36 34 3a f0 38  35 2c 39 36 30 2c 59 25  |Y%-64:.85,960,Y%|
00001760  3a e1 0d 05 a0 5b dd f2  61 28 56 25 29 3a 59 25  |:....[..a(V%):Y%|
00001770  3d 36 34 38 2b 28 56 25  2a 31 32 29 3a ec 33 32  |=648+(V%*12):.32|
00001780  30 2c 59 25 3a ec 33 32  30 2c 59 25 2b 36 34 3a  |0,Y%:.320,Y%+64:|
00001790  f0 38 35 2c 39 35 38 2c  59 25 3a ec 33 32 34 2c  |.85,958,Y%:.324,|
000017a0  59 25 3a ec 33 32 34 2c  59 25 2b 36 34 3a f0 38  |Y%:.324,Y%+64:.8|
000017b0  35 2c 39 36 30 2c 59 25  2b 36 34 3a e1 0d 05 aa  |5,960,Y%+64:....|
000017c0  4f dd f2 64 69 3a 4d 25  3d 31 3a f2 73 28 26 31  |O..di:M%=1:.s(&1|
000017d0  31 2c 35 2c 35 30 2c 31  35 29 3a f2 73 28 30 2c  |1,5,50,15):.s(0,|
000017e0  35 2c 35 30 2c 31 32 29  3a ef 34 3a e3 58 25 3d  |5,50,12):.4:.X%=|
000017f0  31 b8 31 30 3a ef 33 31  3b 33 31 2a 4d 25 2c 31  |1.10:.31;31*M%,1|
00001800  31 2d 4d 25 3a 4d 25 3d  31 2d 4d 25 0d 05 b4 13  |1-M%:M%=1-M%....|
00001810  e3 4a 3d 31 b8 35 30 3a  ed 2c 3a ef 35 3a e1 0d  |.J=1.50:.,:.5:..|
00001820  05 be 0e dd f2 43 28 41  25 2c 42 25 29 0d 05 c3  |.....C(A%,B%)...|
00001830  08 63 69 3d 38 0d 05 c8  60 f2 63 6c 3a f2 63 28  |.ci=8...`.cl:.c(|
00001840  31 30 30 2c 39 30 30 2c  31 37 29 3a f2 45 28 31  |100,900,17):.E(1|
00001850  29 3a f2 65 28 36 34 2c  31 30 30 29 3a f2 52 28  |):.e(64,100):.R(|
00001860  33 30 34 2c 31 30 30 29  3a f2 63 31 3a f2 63 28  |304,100):.c1:.c(|
00001870  36 30 34 2c 31 30 30 2c  32 38 29 3a f2 63 28 37  |604,100,28):.c(7|
00001880  30 34 2c 31 30 30 2c 33  30 29 3a f2 62 6c 61 64  |04,100,30):.blad|
00001890  3a e6 33 2c 31 0d 05 d2  2d f5 3a f2 45 28 31 29  |:.3,1...-.:.E(1)|
000018a0  3a 45 49 3d 30 3a f5 3a  e7 43 25 3d 31 f2 44 3a  |:EI=0:.:.C%=1.D:|
000018b0  f2 64 64 28 38 32 30 2c  31 30 30 29 3a f2 62 6c  |.dd(820,100):.bl|
000018c0  61 64 0d 05 dc 1b e7 45  49 3d 31 33 36 80 41 25  |ad.....EI=136.A%|
000018d0  2d 63 69 3c 3d 32 33 31  8c 8d 54 44 46 0d 05 e6  |-ci<=231..TDF...|
000018e0  1b e7 45 49 3d 31 33 37  80 41 25 2b 63 69 3e 3d  |..EI=137.A%+ci>=|
000018f0  38 39 33 8c 8d 54 44 46  0d 05 f0 13 e7 45 49 3d  |893..TDF.....EI=|
00001900  31 33 36 41 25 3d 41 25  2d 63 69 0d 05 fa 13 e7  |136A%=A%-ci.....|
00001910  45 49 3d 31 33 37 41 25  3d 41 25 2b 63 69 0d 06  |EI=137A%=A%+ci..|
00001920  04 22 f2 6d 6f 28 41 25  2c 42 25 29 3a e7 6c 6f  |.".mo(A%,B%):.lo|
00001930  6f 6b 20 f2 41 20 8b 20  45 49 3d a4 63 3a f2 41  |ok .A . EI=.c:.A|
00001940  0d 06 0e 0e e7 45 49 3d  31 35 35 8c 20 85 0d 06  |.....EI=155. ...|
00001950  18 1c f2 6d 6f 28 41 25  2c 42 25 29 3a fd 45 49  |...mo(A%,B%):.EI|
00001960  3d 31 33 84 45 49 3d 31  32 37 0d 06 22 18 e7 45  |=13.EI=127.."..E|
00001970  49 3d 31 33 20 51 25 3d  31 3a f2 43 32 3a 51 25  |I=13 Q%=1:.C2:Q%|
00001980  3d 30 0d 06 2c 16 45 4a  3d 45 49 3a fd 43 25 3d  |=0..,.EJ=EI:.C%=|
00001990  31 80 45 4a 3d 31 32 37  0d 06 36 2e d6 26 34 35  |1.EJ=127..6..&45|
000019a0  41 36 3a 43 25 3d 30 3a  e6 30 2c 30 3a f2 72 28  |A6:C%=0:.0,0:.r(|
000019b0  31 2c 38 31 30 2c 30 2c  34 37 30 2c 31 32 30 29  |1,810,0,470,120)|
000019c0  3a e5 8d 64 52 45 0d 06  40 05 e1 0d 06 4a 08 dd  |:..dRE..@....J..|
000019d0  f2 43 32 0d 06 54 1c f2  45 28 30 29 3a 43 25 3d  |.C2..T..E(0):C%=|
000019e0  31 3a f2 73 28 30 2c 31  2c 35 30 2c 37 30 29 0d  |1:.s(0,1,50,70).|
000019f0  06 5e 29 e3 42 25 3d 39  35 30 b8 32 30 30 88 2d  |.^).B%=950.200.-|
00001a00  31 36 3a f2 6d 6f 28 41  25 2c 42 25 29 3a f2 6d  |16:.mo(A%,B%):.m|
00001a10  6f 28 41 25 2c 42 25 29  0d 06 68 27 e6 30 2c 30  |o(A%,B%)..h'.0,0|
00001a20  3a ec 41 25 2b 35 35 2c  39 34 30 3a df 41 25 2b  |:.A%+55,940:.A%+|
00001a30  35 35 2c 42 25 2d 32 30  3a e6 33 2c 31 3a ed 0d  |55,B%-20:.3,1:..|
00001a40  06 72 2f e6 30 2c 30 3a  f2 72 28 31 2c 41 25 2b  |.r/.0,0:.r(1,A%+|
00001a50  35 35 2c 42 25 2b 32 30  2c 39 36 30 2d 41 25 2b  |55,B%+20,960-A%+|
00001a60  35 35 2c 38 35 30 29 3a  42 25 3d 39 38 32 0d 06  |55,850):B%=982..|
00001a70  7c 05 e1 0d 06 86 4a dd  f2 6d 6f 28 41 25 2c 42  ||.....J..mo(A%,B|
00001a80  25 29 3a e6 33 2c 31 3a  ec 41 25 2c 42 25 3a f1  |%):.3,1:.A%,B%:.|
00001a90  bd 28 32 35 31 29 3b bd  28 32 35 32 29 3a e6 33  |.(251);.(252):.3|
00001aa0  2c 33 3a ec 41 25 2c 42  25 2d 34 30 3a f1 bd 28  |,3:.A%,B%-40:..(|
00001ab0  32 35 33 29 3b bd 28 32  35 34 29 3a e1 0d 06 90  |253);.(254):....|
00001ac0  07 dd a4 63 0d 06 9a 05  f5 0d 06 a4 0b 2a 46 58  |...c.........*FX|
00001ad0  31 35 2c 31 0d 06 ae 1a  45 25 3d a5 3a f2 73 28  |15,1....E%=.:.s(|
00001ae0  26 31 31 2c 2d 31 35 2c  32 35 30 2c 32 29 0d 06  |&11,-15,250,2)..|
00001af0  b8 27 fd 45 25 3d 31 32  37 84 45 25 3d 35 36 84  |.'.E%=127.E%=56.|
00001b00  28 45 25 3e 31 33 35 80  45 25 3c 31 34 30 29 84  |(E%>135.E%<140).|
00001b10  45 25 3d 31 33 0d 06 f4  07 3d 45 25 0d 06 fe 33  |E%=13....=E%...3|
00001b20  73 68 66 3d b9 3a e7 9f  3d 31 37 20 80 51 25 3d  |shf=.:..=17 .Q%=|
00001b30  31 20 ef 34 2c 31 32 2c  35 3a d6 26 34 35 41 36  |1 .4,12,5:.&45A6|
00001b40  3a 45 49 3d 31 32 37 3a  f2 41 3a 51 25 3d 30 0d  |:EI=127:.A:Q%=0.|
00001b50  07 03 14 e7 44 25 3d 31  30 80 9f 3d 31 37 8c 8d  |....D%=10..=17..|
00001b60  54 7a 47 0d 07 08 26 e7  47 25 3d 31 80 9f 3d 31  |TzG...&.G%=1..=1|
00001b70  37 20 47 25 3d 30 3a f2  4e 3a 45 49 3d 31 35 35  |7 G%=0:.N:EI=155|
00001b80  3a f2 41 3a e5 8d 44 50  40 0d 07 0a 1c e7 47 25  |:.A:..DP@.....G%|
00001b90  3d 31 80 9f 3d 31 36 20  47 25 3d 30 3a f2 4e 3a  |=1..=16 G%=0:.N:|
00001ba0  e5 8d 44 50 40 0d 07 12  22 e7 47 25 3d 32 80 9f  |..DP@...".G%=2..|
00001bb0  3d 31 36 47 25 3d 30 3a  d6 26 34 35 39 30 3a f2  |=16G%=0:.&4590:.|
00001bc0  4e 3a e5 8d 44 50 40 0d  07 17 45 e7 44 25 3d 31  |N:..DP@...E.D%=1|
00001bd0  30 20 80 9f 3d 31 36 20  80 28 61 72 72 3e 3d 36  |0 ..=16 .(arr>=6|
00001be0  35 39 20 84 61 72 72 3e  3d 6c 6c 6b 29 20 6c 6f  |59 .arr>=llk) lo|
00001bf0  6f 6b 3d 30 3a 44 25 3d  30 3a d6 26 34 35 39 30  |ok=0:D%=0:.&4590|
00001c00  3a f2 4e 3a f2 44 3a e5  8d 44 50 40 0d 07 1c 1f  |:.N:.D:..DP@....|
00001c10  e7 44 25 3d 31 30 80 9f  3d 31 36 20 d6 26 34 35  |.D%=10..=16 .&45|
00001c20  39 30 3a f2 4e 3a e5 8d  44 50 40 0d 07 26 27 e7  |90:.N:..DP@..&'.|
00001c30  9f 3d 31 37 20 45 49 3d  31 35 35 3a f2 41 3a d6  |.=17 EI=155:.A:.|
00001c40  26 34 35 39 30 3a e5 8d  44 50 40 20 8b e5 8d 54  |&4590:..DP@ ...T|
00001c50  7c 40 0d 07 3a 22 70 72  63 3d 70 72 63 2d 31 3a  ||@..:"prc=prc-1:|
00001c60  6c 6f 6f 6b 3d 30 3a 44  25 3d 30 3a f2 4e 3a e5  |look=0:D%=0:.N:.|
00001c70  8d 44 50 40 0d 07 44 07  dd f2 4c 0d 07 4e 7f f2  |.DP@..D...L..N..|
00001c80  4e 3a ef 31 39 2c 32 2c  33 3b 30 3b 3a f2 63 28  |N:.19,2,3;0;:.c(|
00001c90  31 30 30 2c 39 35 30 2c  31 35 29 3a e6 30 2c 32  |100,950,15):.0,2|
00001ca0  3a e3 4a 25 3d 31 b8 37  3a e3 49 25 3d 31 b8 31  |:.J%=1.7:.I%=1.1|
00001cb0  32 88 34 3a ec 30 2c 31  30 30 30 2d 28 28 4a 25  |2.4:.0,1000-((J%|
00001cc0  2a 31 31 30 29 2d 49 25  29 3a df 31 32 38 30 2c  |*110)-I%):.1280,|
00001cd0  31 30 30 30 2d 28 28 4a  25 2a 31 31 30 29 2d 49  |1000-((J%*110)-I|
00001ce0  25 29 3a ed 2c 3a 49 25  3d 31 3a 65 78 25 3d 35  |%):.,:I%=1:ex%=5|
00001cf0  30 3a 77 68 79 25 3d 38  33 30 0d 07 58 48 e3 49  |0:why%=830..XH.I|
00001d00  25 3d 31 b8 20 a9 28 4c  24 29 3a 57 24 3d c1 4c  |%=1. .(L$):W$=.L|
00001d10  24 2c 49 25 2c 31 29 3a  41 25 3d 97 28 57 24 29  |$,I%,1):A%=.(W$)|
00001d20  3a f2 6d 70 28 65 78 25  2c 77 68 79 25 2b 34 2c  |:.mp(ex%,why%+4,|
00001d30  41 25 29 3a f2 69 28 65  78 25 2c 77 68 79 25 29  |A%):.i(ex%,why%)|
00001d40  3a ed 0d 07 62 1d f2 70  64 3a f2 52 28 36 34 30  |:...b..pd:.R(640|
00001d50  2c 31 30 30 29 3a f5 3a  2a 46 58 31 35 2c 31 0d  |,100):.:*FX15,1.|
00001d60  07 6c 28 45 49 3d a5 3a  f2 73 28 26 31 31 2c 2d  |.l(EI=.:.s(&11,-|
00001d70  31 35 2c 32 35 30 2c 32  29 3a fd 45 49 3d 31 33  |15,250,2):.EI=13|
00001d80  84 45 49 3d 31 32 37 0d  07 76 16 e7 45 49 3d 31  |.EI=127..v..EI=1|
00001d90  32 37 20 44 25 3d 30 3a  e5 8d 54 7c 40 0d 07 80  |27 D%=0:..T|@...|
00001da0  19 6c 6f 6f 6b 3d 31 3a  61 72 72 3d 31 3a f2 4e  |.look=1:arr=1:.N|
00001db0  3a e5 8d 44 46 40 0d 07  8a 12 dd f2 6d 70 28 58  |:..DF@......mp(X|
00001dc0  25 2c 59 25 2c 4a 25 29  0d 07 94 18 e7 4a 25 3d  |%,Y%,J%).....J%=|
00001dd0  36 20 f2 63 28 58 25 2c  59 25 2c 31 37 29 3a e1  |6 .c(X%,Y%,17):.|
00001de0  0d 07 9e 18 e7 4a 25 3d  37 20 f2 63 28 58 25 2c  |.....J%=7 .c(X%,|
00001df0  59 25 2c 31 31 29 3a e1  0d 07 a8 18 e7 4a 25 3d  |Y%,11):......J%=|
00001e00  38 20 f2 63 28 58 25 2c  59 25 2c 31 33 29 3a e1  |8 .c(X%,Y%,13):.|
00001e10  0d 07 b2 18 e7 4a 25 3d  39 20 f2 63 28 58 25 2c  |.....J%=9 .c(X%,|
00001e20  59 25 2c 31 39 29 3a e1  0d 07 bc 19 e7 4a 25 3d  |Y%,19):......J%=|
00001e30  31 30 20 f2 63 28 58 25  2c 59 25 2c 31 35 29 3a  |10 .c(X%,Y%,15):|
00001e40  e1 0d 07 c6 0d 4a 25 3d  4a 25 2a 32 2d 31 0d 07  |.....J%=J%*2-1..|
00001e50  d0 10 f2 63 28 58 25 2c  59 25 2c 4a 25 29 0d 07  |...c(X%,Y%,J%)..|
00001e60  da 05 e1 0d 07 e4 0e dd  f2 69 28 58 25 2c 59 25  |.........i(X%,Y%|
00001e70  29 0d 07 ee 27 e7 58 25  2b 31 30 32 3e 3d 31 31  |)...'.X%+102>=11|
00001e80  30 30 20 58 25 3d 35 30  3a 59 25 3d 59 25 2d 31  |00 X%=50:Y%=Y%-1|
00001e90  31 30 3a e5 8d 54 42 48  0d 07 f8 0d 58 25 3d 58  |10:..TBH....X%=X|
00001ea0  25 2b 31 30 32 0d 08 02  12 65 78 25 3d 58 25 3a  |%+102....ex%=X%:|
00001eb0  77 68 79 25 3d 59 25 0d  08 0c 05 e1 0d 08 16 08  |why%=Y%.........|
00001ec0  dd f2 73 70 0d 08 20 52  f2 63 6c 3a f2 45 28 31  |..sp.. R.cl:.E(1|
00001ed0  29 3a d6 26 34 35 41 36  3a f2 63 28 31 30 30 2c  |):.&45A6:.c(100,|
00001ee0  39 31 30 2c 39 29 3a f2  65 28 36 34 2c 31 30 30  |910,9):.e(64,100|
00001ef0  29 3a f2 63 32 3a f2 63  28 33 33 34 2c 31 30 30  |):.c2:.c(334,100|
00001f00  2c 32 38 29 3a f2 63 28  34 35 30 2c 31 30 30 2c  |,28):.c(450,100,|
00001f10  33 30 29 3a f2 44 0d 08  2a 05 f5 0d 08 34 5f e7  |30):.D..*....4_.|
00001f20  45 49 3d 31 33 38 20 f2  45 28 30 29 3a 43 25 3d  |EI=138 .E(0):C%=|
00001f30  31 3a f2 73 28 26 31 31  2c 32 2c 35 30 2c 32 30  |1:.s(&11,2,50,20|
00001f40  29 3a d6 26 34 35 38 36  3a f2 72 28 31 2c 32 30  |):.&4586:.r(1,20|
00001f50  30 2c 36 39 36 2c 38 38  30 2c 31 36 34 29 3a f2  |0,696,880,164):.|
00001f60  72 28 31 2c 32 30 30 2c  32 32 34 2c 38 38 30 2c  |r(1,200,224,880,|
00001f70  31 36 32 29 3a f2 45 28  31 29 0d 08 3e 73 e7 45  |162):.E(1)..>s.E|
00001f80  49 3d 31 33 39 20 f2 45  28 30 29 3a 43 25 3d 31  |I=139 .E(0):C%=1|
00001f90  3a f2 73 28 26 31 31 2c  33 2c 35 30 2c 32 30 29  |:.s(&11,3,50,20)|
00001fa0  3a d6 26 34 35 37 43 3a  f2 72 28 31 2c 30 2c 31  |:.&457C:.r(1,0,1|
00001fb0  39 31 2c 33 31 39 2c 36  37 34 29 3a f2 72 28 31  |91,319,674):.r(1|
00001fc0  2c 33 31 39 2c 38 36 35  2c 36 34 32 2c 31 36 33  |,319,865,642,163|
00001fd0  29 3a f2 72 28 31 2c 39  36 31 2c 31 39 31 2c 33  |):.r(1,961,191,3|
00001fe0  31 39 2c 36 37 34 29 3a  f2 45 28 31 29 0d 08 43  |19,674):.E(1)..C|
00001ff0  15 e7 43 25 3d 31 f2 64  64 28 36 30 30 2c 31 30  |..C%=1.dd(600,10|
00002000  30 29 0d 08 48 17 e7 6c  6f 6f 6b 20 f2 41 20 8b  |0)..H..look .A .|
00002010  20 45 49 3d a4 63 3a f2  41 0d 08 52 0e e7 45 49  | EI=.c:.A..R..EI|
00002020  3d 31 35 35 8c 20 85 0d  08 5c 10 fd 45 49 3d 31  |=155. ...\..EI=1|
00002030  32 37 80 43 25 3d 31 0d  08 66 2e d6 26 34 35 41  |27.C%=1..f..&45A|
00002040  36 3a 43 25 3d 30 3a e6  30 2c 30 3a f2 72 28 31  |6:C%=0:.0,0:.r(1|
00002050  2c 35 39 30 2c 30 2c 36  39 30 2c 31 32 30 29 3a  |,590,0,690,120):|
00002060  e5 8d 54 6a 48 0d 08 70  05 e1 0d 08 7a 07 dd f2  |..TjH..p....z...|
00002070  67 0d 08 84 1b ef 34 2c  31 32 2c 35 3a 70 25 3d  |g.....4,12,5:p%=|
00002080  31 3a f2 45 28 33 29 3a  70 25 3d 30 0d 08 8e 2a  |1:.E(3):p%=0...*|
00002090  47 25 3d 31 3a e6 30 2c  30 3a f2 72 28 31 2c 33  |G%=1:.0,0:.r(1,3|
000020a0  32 30 2c 32 32 34 2c 36  33 32 2c 36 33 36 29 3a  |20,224,632,636):|
000020b0  d6 26 34 31 32 36 0d 08  a2 49 f2 63 28 31 30 30  |.&4126...I.c(100|
000020c0  2c 39 33 32 2c 31 33 29  3a e6 30 2c 30 3a f2 72  |,932,13):.0,0:.r|
000020d0  28 31 2c 35 39 37 2c 35  37 2c 32 30 36 2c 36 30  |(1,597,57,206,60|
000020e0  29 3a f2 65 28 36 34 2c  31 30 30 29 3a f2 52 28  |):.e(64,100):.R(|
000020f0  33 33 34 2c 31 30 30 29  3a 45 49 3d 30 3a f5 0d  |334,100):EI=0:..|
00002100  08 ac 0b 2a 46 58 31 35  2c 31 0d 08 ca 1c 50 25  |...*FX15,1....P%|
00002110  3d 30 3a e7 6c 6f 6f 6b  20 f2 41 20 8b 20 45 49  |=0:.look .A . EI|
00002120  3d a4 63 3a f2 41 0d 08  d4 0d e7 45 49 3d 31 35  |=.c:.A.....EI=15|
00002130  35 8c 85 0d 08 de 5b fd  45 49 3d 31 33 3a 47 25  |5.....[.EI=13:G%|
00002140  3d 32 3a f2 73 28 26 31  31 2c 37 2c 35 30 2c 2d  |=2:.s(&11,7,50,-|
00002150  31 29 3a d6 26 34 31 35  38 3a f2 73 28 26 31 31  |1):.&4158:.s(&11|
00002160  2c 35 2c 35 30 2c 35 29  3a e6 30 2c 30 3a f2 72  |,5,50,5):.0,0:.r|
00002170  28 31 2c 33 32 37 2c 35  37 2c 32 30 36 2c 36 30  |(1,327,57,206,60|
00002180  29 3a f2 64 64 28 36 30  34 2c 31 30 30 29 0d 09  |):.dd(604,100)..|
00002190  24 14 e7 6c 6f 6f 6b f2  41 8b 45 49 3d a4 64 3a  |$..look.A.EI=.d:|
000021a0  f2 41 0d 09 2e 0d e7 45  49 3d 31 35 35 8c 85 0d  |.A.....EI=155...|
000021b0  09 38 10 e7 45 49 3d 31  32 37 8c 8d 74 4e 48 0d  |.8..EI=127..tNH.|
000021c0  09 42 09 e5 8d 54 64 49  0d 09 4c 05 e1 0d 09 4d  |.B...TdI..L....M|
000021d0  0b dd f2 55 28 41 25 29  0d 09 4e 23 e3 49 25 3d  |...U(A%)..N#.I%=|
000021e0  30 b8 36 34 30 88 38 3a  e7 20 b0 49 25 2c 41 25  |0.640.8:. .I%,A%|
000021f0  29 3c 3e 30 20 8c 20 50  25 3d 31 0d 09 4f 07 ed  |)<>0 . P%=1..O..|
00002200  3a e1 0d 09 56 6a dd f2  6d 28 4d 25 29 3a f2 65  |:...Vj..m(M%):.e|
00002210  28 36 30 30 2d 4d 25 2c  31 30 30 29 3a f2 63 28  |(600-M%,100):.c(|
00002220  38 35 30 2d 4d 25 2c 31  30 30 2c 31 39 29 3a f2  |850-M%,100,19):.|
00002230  63 32 3a f2 63 28 39 34  30 2d 4d 25 2c 31 30 30  |c2:.c(940-M%,100|
00002240  2c 32 38 29 3a f2 63 28  31 30 34 32 2d 4d 25 2c  |,28):.c(1042-M%,|
00002250  31 30 30 2c 33 30 29 3a  f2 44 3a f2 52 28 31 31  |100,30):.D:.R(11|
00002260  34 36 2d 4d 25 2c 31 30  30 29 3a e1 0d 09 60 a6  |46-M%,100):...`.|
00002270  dd f2 44 3a ef 32 33 2c  32 35 31 2c 26 36 37 2c  |..D:.23,251,&67,|
00002280  26 35 34 2c 26 35 34 2c  26 35 34 2c 26 36 36 2c  |&54,&54,&54,&66,|
00002290  26 34 34 2c 26 34 34 2c  26 34 37 2c 32 33 2c 32  |&44,&44,&47,23,2|
000022a0  35 32 2c 26 36 37 2c 26  35 34 2c 26 35 34 2c 26  |52,&67,&54,&54,&|
000022b0  35 36 2c 26 35 34 2c 26  35 34 2c 26 35 34 2c 26  |56,&54,&54,&54,&|
000022c0  36 37 2c 32 33 2c 32 35  33 2c 26 34 37 2c 26 34  |67,23,253,&47,&4|
000022d0  34 2c 26 34 34 2c 26 34  36 2c 26 34 34 2c 26 34  |4,&44,&46,&44,&4|
000022e0  34 2c 26 34 34 2c 26 37  37 2c 32 33 2c 32 35 34  |4,&44,&77,23,254|
000022f0  2c 26 37 37 2c 26 32 34  2c 26 32 34 2c 26 32 36  |,&77,&24,&24,&26|
00002300  2c 26 32 34 2c 26 32 34  2c 26 32 34 2c 26 32 37  |,&24,&24,&24,&27|
00002310  3a e1 0d 09 65 ac dd f2  50 59 20 ef 32 33 2c 32  |:...e...PY .23,2|
00002320  35 31 2c 33 2c 34 2c 34  2c 34 2c 34 2c 34 2c 34  |51,3,4,4,4,4,4,4|
00002330  2c 33 2c 32 33 2c 32 35  32 2c 26 32 36 2c 26 35  |,3,23,252,&26,&5|
00002340  35 2c 26 35 35 2c 26 35  35 2c 26 35 36 2c 26 35  |5,&55,&55,&56,&5|
00002350  34 2c 26 35 34 2c 26 32  34 2c 32 33 2c 32 35 33  |4,&54,&24,23,253|
00002360  2c 26 35 30 2c 26 35 30  2c 26 35 30 2c 26 35 30  |,&50,&50,&50,&50|
00002370  2c 26 32 30 2c 26 32 30  2c 26 32 30 2c 26 32 30  |,&20,&20,&20,&20|
00002380  2c 31 38 3b 31 2c 32 35  2c 34 2c 38 37 30 3b 31  |,18;1,25,4,870;1|
00002390  30 30 3b 35 2c 32 35 31  2c 32 35 32 2c 32 35 33  |00;5,251,252,253|
000023a0  2c 31 38 3b 33 3a f2 72  28 30 2c 38 36 33 2c 35  |,18;3:.r(0,863,5|
000023b0  37 2c 32 30 36 2c 36 30  29 3a f2 44 3a e1 0d 09  |7,206,60):.D:...|
000023c0  6a 7e dd f2 62 6c 61 64  3a ef 32 33 2c 32 35 31  |j~..blad:.23,251|
000023d0  2c 30 3b 33 31 2c 33 31  2c 33 31 2c 31 35 2c 37  |,0;31,31,31,15,7|
000023e0  2c 33 2c 32 33 2c 32 35  32 2c 30 3b 26 46 38 2c  |,3,23,252,0;&F8,|
000023f0  26 46 38 2c 26 46 38 2c  26 46 30 2c 26 45 30 2c  |&F8,&F8,&F0,&E0,|
00002400  26 43 30 2c 32 33 2c 32  35 33 2c 33 2c 31 2c 31  |&C0,23,253,3,1,1|
00002410  2c 31 2c 31 2c 31 2c 31  3b 32 33 2c 32 35 34 2c  |,1,1,1,1;23,254,|
00002420  26 43 30 2c 26 38 30 2c  26 38 30 2c 26 38 30 2c  |&C0,&80,&80,&80,|
00002430  26 38 30 2c 26 38 30 2c  30 3b 3a e1 0d 09 74 8f  |&80,&80,0;:...t.|
00002440  dd f2 63 31 3a ef 32 33  2c 32 35 31 2c 31 36 2c  |..c1:.23,251,16,|
00002450  31 36 2c 34 38 2c 34 38  2c 31 31 32 2c 31 31 32  |16,48,48,112,112|
00002460  2c 32 35 35 2c 32 35 35  2c 32 33 2c 32 35 32 2c  |,255,255,23,252,|
00002470  32 35 35 2c 32 35 35 2c  31 31 32 2c 31 31 32 2c  |255,255,112,112,|
00002480  34 38 2c 34 38 2c 31 36  2c 31 36 2c 32 33 2c 32  |48,48,16,16,23,2|
00002490  35 33 2c 38 2c 38 2c 31  32 2c 31 32 2c 31 34 2c  |53,8,8,12,12,14,|
000024a0  31 34 2c 32 35 35 2c 32  35 35 2c 32 33 2c 32 35  |14,255,255,23,25|
000024b0  34 2c 32 35 35 2c 32 35  35 2c 31 34 2c 31 34 2c  |4,255,255,14,14,|
000024c0  31 32 2c 31 32 2c 38 2c  38 3a e1 0d 09 7e a7 dd  |12,12,8,8:...~..|
000024d0  f2 63 32 3a ef 32 33 2c  32 35 31 2c 26 31 38 2c  |.c2:.23,251,&18,|
000024e0  26 31 38 2c 26 33 43 2c  26 33 43 2c 26 37 45 2c  |&18,&3C,&3C,&7E,|
000024f0  26 37 45 2c 26 46 46 2c  26 46 46 2c 32 33 2c 32  |&7E,&FF,&FF,23,2|
00002500  35 32 2c 26 31 38 2c 26  31 38 2c 26 31 38 2c 26  |52,&18,&18,&18,&|
00002510  31 38 2c 26 31 38 2c 26  31 38 2c 26 31 38 2c 26  |18,&18,&18,&18,&|
00002520  31 38 2c 32 33 2c 32 35  33 2c 26 31 38 2c 26 31  |18,23,253,&18,&1|
00002530  38 2c 26 31 38 2c 26 31  38 2c 26 31 38 2c 26 31  |8,&18,&18,&18,&1|
00002540  38 2c 26 31 38 2c 26 31  38 2c 32 33 2c 32 35 34  |8,&18,&18,23,254|
00002550  2c 26 46 46 2c 26 46 46  2c 26 37 45 2c 26 37 45  |,&FF,&FF,&7E,&7E|
00002560  2c 26 33 43 2c 26 33 43  2c 26 31 38 2c 26 31 38  |,&3C,&3C,&18,&18|
00002570  3a e1 0d 09 83 bf dd f2  42 3a ef 32 33 2c 32 35  |:.......B:.23,25|
00002580  32 2c 26 31 38 2c 26 31  38 3b 26 31 38 2c 26 33  |2,&18,&18;&18,&3|
00002590  43 2c 26 33 43 2c 26 33  43 2c 26 33 43 2c 32 33  |C,&3C,&3C,&3C,23|
000025a0  2c 32 35 33 2c 26 33 43  2c 26 33 43 2c 26 37 45  |,253,&3C,&3C,&7E|
000025b0  2c 26 46 46 2c 30 3b 30  3b 32 33 2c 32 35 34 2c  |,&FF,0;0;23,254,|
000025c0  26 31 39 2c 26 31 39 2c  32 2c 26 31 41 2c 26 33  |&19,&19,2,&1A,&3|
000025d0  43 2c 26 33 43 2c 26 33  43 2c 26 33 43 2c 32 33  |C,&3C,&3C,&3C,23|
000025e0  2c 32 35 35 2c 26 33 43  2c 26 33 43 2c 26 37 45  |,255,&3C,&3C,&7E|
000025f0  2c 26 46 46 2c 26 34 30  2c 26 34 30 2c 26 38 30  |,&FF,&40,&40,&80|
00002600  2c 26 38 30 2c 34 2c 31  37 2c 31 2c 33 31 2c 31  |,&80,4,17,1,31,1|
00002610  39 2c 31 2c 32 35 34 2b  32 2a 73 25 2c 38 2c 31  |9,1,254+2*s%,8,1|
00002620  30 2c 32 35 35 2b 32 2a  73 25 2c 35 3a f2 44 3a  |0,255+2*s%,5:.D:|
00002630  e1 0d 09 88 0b dd f2 41  3a ea 74 25 0d 09 92 11  |.......A:.t%....|
00002640  e7 6c 6f 6f 6b 20 45 49  3d a4 41 3a e1 0d 09 9c  |.look EI=.A:....|
00002650  1c e7 70 72 63 3e 3d 36  36 30 20 84 6c 6c 6b 3c  |..prc>=660 .llk<|
00002660  36 36 30 20 8c 8d 74 71  49 0d 09 a6 19 6b 65 79  |660 ..tqI....key|
00002670  25 3f 70 72 63 3d 45 49  3a 70 72 63 3d 70 72 63  |%?prc=EI:prc=prc|
00002680  2b 31 0d 09 b0 05 e1 0d  09 b1 1d 6b 65 79 25 3f  |+1.........key%?|
00002690  36 36 30 3d 31 35 35 3a  6b 65 79 25 3f 6c 6c 6b  |660=155:key%?llk|
000026a0  3d 31 35 35 0d 09 b2 0b  e7 66 75 6c 6c 20 e1 0d  |=155.....full ..|
000026b0  09 b3 0a 66 75 6c 6c 3d  b9 0d 09 b5 60 e3 6c 66  |...full=....`.lf|
000026c0  6c 3d 31 b8 32 30 3a 43  4f 25 3d 31 2b 28 6c 66  |l=1.20:CO%=1+(lf|
000026d0  6c 20 83 32 29 2a 32 3a  42 4f 25 3d 33 2d 28 6c  |l .2)*2:BO%=3-(l|
000026e0  66 6c 20 83 32 29 2a 32  3a f2 63 28 31 31 31 30  |fl .2)*2:.c(1110|
000026f0  2c 33 38 34 2c 31 35 29  3a 74 25 3d 73 25 3a 73  |,384,15):t%=s%:s|
00002700  25 3d b9 3a f2 73 28 26  31 31 2c 31 2c 31 30 30  |%=.:.s(&11,1,100|
00002710  2c 33 29 3a 73 25 3d 74  25 0d 09 b6 0f e3 4a 3d  |,3):s%=t%.....J=|
00002720  30 b8 32 30 30 3a ed 2c  0d 09 b8 05 e1 0d 09 ba  |0.200:.,........|
00002730  07 dd a4 41 0d 09 c4 12  e7 61 72 72 3e 70 72 63  |...A.....arr>prc|
00002740  20 8c 8d 64 58 49 0d 09  ce 19 45 4a 3d 6b 65 79  | ..dXI....EJ=key|
00002750  25 3f 61 72 72 3a 61 72  72 3d 61 72 72 2b 31 0d  |%?arr:arr=arr+1.|
00002760  09 d8 07 3d 45 4a 0d 09  dd 11 dd f2 4e 20 ef 34  |...=EJ......N .4|
00002770  2c 31 32 2c 35 3a e1 0d  09 e2 09 2a 54 41 50 45  |,12,5:.....*TAPE|
00002780  0d 09 ec 20 e3 49 25 3d  30 b8 b8 50 2d 90 20 88  |... .I%=0..P-. .|
00002790  34 3a 49 25 21 26 45 30  30 3d 49 25 21 90 3a ed  |4:I%!&E00=I%!.:.|
000027a0  0d 09 f6 21 3f 26 31 33  3d 3f 26 31 33 2d 28 90  |...!?&13=?&13-(.|
000027b0  2d 26 45 30 30 29 81 32  35 36 3a d0 3d 26 45 30  |-&E00).256:.=&E0|
000027c0  30 0d 0a 00 05 f9 0d 0a  0a 08 dd f2 63 62 0d 0a  |0...........cb..|
000027d0  14 1c ef 34 2c 32 38 3b  33 31 2c 31 39 2c 32 37  |...4,28;31,19,27|
000027e0  2c 31 32 2c 32 36 2c 35  3a e1 0d ff              |,12,26,5:...|
000027ec
WSHOP4.m0
WSHOP4.m1
WSHOP4.m2
WSHOP4.m4
WSHOP4.m5

© Dominic Ford 2021–2024.

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