!AWJan95/Goodies/ColorCube/!ColorCube/!RunImage

Home » Archimedes archive » Archimedes World » AW-1995-01-Disc1.adf » Disk1Jan95 » !AWJan95/Goodies/ColorCube/!ColorCube/!RunImage

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 » Archimedes archive » Archimedes World » AW-1995-01-Disc1.adf » Disk1Jan95
Filename:	!AWJan95/Goodies/ColorCube/!ColorCube/!RunImage
Read OK:	✔
File size:	BF01 bytes
Load address:	0000
Exec address:	0000

File contents

   10 REM>!RunImage
   20 REMEMBER THE ALAMO!
   30 PROCinit
   40 :
   50 ON ERROR PROCerror
   60 :
   70 REPEAT
   80 SYSwpt%,pf%,pb%,ot% TO rc%
   90 CASE rc% OF
  100 WHEN 0:IF active% PROCpointer
  110 WHEN 1:PROCredraw
  120 WHEN 2:PROCopen
  130 WHEN 3:PROCclose
  140 WHEN 6:PROCmouse
  150 WHEN 8:PROCprocess
  160 WHEN 9:PROCmst
  170 WHEN &11,&12:PROCmessage
  180 ENDCASE
  190 UNTIL FALSE
  200 :
  210 DEF PROCopen:fw%()=FALSE:CASE !pb% OF
  220 WHENw%(37,1):fw%(0)=TRUE
  230 WHENw%(38,1):fw%(1)=TRUE
  240 WHENw%(39,1):fw%(2)=TRUE
  250 WHENw%(40,1):fw%(3)=TRUE
  260 WHENw7h%:fw%(4)=TRUE
  270 ENDCASE:SYSwo%,,pb%:ENDPROC
  280 :
  290 DEF PROCredraw:icon%=FALSE:IF nv% PROCreadmode
  300 CASE !pb% OF
  310 WHEN w1h%:PROCd1
  320 WHEN w7h%
  330 IF r2% PROCd72(fw%(4)) ELSE PROCd7(fw%(4))
  340 fw%(4)=FALSE
  350 WHEN w8h%:PROCd8
  360 WHEN w9h%:PROCd9(active%)
  370 WHEN w%(37,1):bx%=p2%:!c1%=!cr%:!c2%=!cg%:!c3%=!cb%
  380 PROCd3(fw%(0),i%(0),0,1):fw%(0)=FALSE
  390 WHEN w%(38,1):bx%=p2%+32:!c1%=!cc%:!c2%=!cy%:!c3%=!cm%
  400 PROCd3(fw%(1),i%(1),&FFFFFF00,2):fw%(1)=FALSE
  410 WHEN w%(39,1):bx%=p1%:PROCd4(fw%(2),i%(2),0):fw%(2)=FALSE
  420 WHEN w%(40,1):bx%=p1%+32:PROCd4(fw%(3),i%(3),&100):fw%(3)=FALSE
  430 OTHERWISE it%=0
  440 REPEAT
  450 IF (!pb%=w%(it%,1)) PROCds(it%):it%=36
  460 it%+=1
  470 UNTIL it%=37
  480 ENDCASE:ENDPROC
  490 :
  500 DEF PROCd1:SYSwr%,,pb%TOmore%
  510 pb%!4=i1%:pb%!8=j1%:pb%!12=k1%:pb%!16=l1%:SYSwu%,,pb%TOmore%
  520 IF scaled% THEN
  530 !ss%=pb%!12-pb%!4:ss%!4=pb%!16-pb%!8:sc%=ss%:xc%=pb%!4:yc%=pb%!8
  540 ELSE sc%=0:xc%=pb%!4-pb%!&14:yc%=pb%!16+j1%-pb%!&18
  550 ENDIF:WHILE more%
  560 SYSsp%,&234,bs%,hx%,xc%,yc%,0,sc%,table%
  570 SYSwg%,,pb%TOmore%:ENDWHILE:ENDPROC
  580 :
  590 DEF PROCds(it%):SYSwr%,,pb% TOmore%:xc%=pb%!4:yc%=pb%!8
  600 xcg%=xc%+&A:xct%=xc%+&36:xcn%=xc%+&12:ncol%=w%(it%,4):icol%=w%(it%,5)
  610 IF (it%=strip%) ANDrtl% ANDrto% rtd%=TRUE ELSE rtd%=FALSE
  620 WHILE more%
  630 yd%=yc%
  640 FOR rt%=ncol% TO 0 STEP -1
  650 IF(yd%>(pb%!32-44))AND(yd%<pb%!40)THEN
  660 yp%=yd%+32:xl%=(icol%+rt%)*4
  670 SYScs%,!(li%+xl%),,,&100,0 TO gcol%:SYSosp%,rfa%,xc%,yd%
  680 SYSosp%,rfr%,width%,44:SYScs%,!(lj%+xl%),,,0,0 TO tcol%
  690 CASE uu% OF
  700 WHEN 1:PROCcoltint
  710 WHEN 2:PROCgcol
  720 WHEN 3:PROCnumber
  730 WHEN 4:PROChex
  740 ENDCASE
  750 IF(rt%=w%(it%,0)) ANDrtd% RECTANGLE xc%,yd%,width%-2,42
  760 ENDIF
  770 yd%+=44
  780 NEXT rt%
  790 SYSwg%,,pb%TO more%
  800 ENDWHILE:ENDPROC
  810 :
  820 DEF PROCcoltint
  830 col%=(gcol%AND&FC)>>>2:tn%=(gcol%AND3)<<6
  840 $n%=STR$(col%):len%=LEN($n%)
  850 IF(len%=1)sft%=8 ELSE sft%=0
  860 SYSosp%,ppa%,xcg%+sft%,yp%
  870 SYSosn%,n%,len%
  880 $n%=STR$(tn%):len%=LEN($n%)
  890 CASElen%OF
  900 WHEN1:sft%=&18
  910 WHEN2:sft%=12
  920 OTHERWISEsft%=0
  930 ENDCASE
  940 SYSosp%,ppa%,xct%+sft%,yp%:SYSosn%,n%,len%
  950 ENDPROC
  960 :
  970 DEF PROCgcol
  980 $n%=STR$(gcol%):len%=LEN($n%)
  990 CASElen%OF
 1000 WHEN1:sft%=16
 1010 WHEN2:sft%=8
 1020 OTHERWISEsft%=0
 1030 ENDCASE
 1040 SYSosp%,ppa%,xcn%+sft%,yp%:SYSosn%,n%,len%
 1050 ENDPROC
 1060 :
 1070 DEF PROCnumber
 1080 SYScn%,gcol% TO num%:$n%=STR$(num%):len%=LEN($n%)
 1090 CASElen%OF
 1100 WHEN1:sft%=16
 1110 WHEN2:sft%=8
 1120 OTHERWISEsft%=0
 1130 ENDCASE
 1140 SYSosp%,ppa%,xcn%+sft%,yp%:SYSosn%,n%,len%
 1150 ENDPROC
 1160 :
 1170 DEF PROChex
 1180 val%=?(li%+xl%+3):SYS&D1,val%,n%,4
 1190 SYSosp%,ppa%,xc%+8,yp%:SYSosn%,n%,2
 1200 val%=?(li%+xl%+2):SYS&D1,val%,n%,4
 1210 SYSosp%,ppa%,xc%+46,yp%:SYSosn%,n%,2
 1220 val%=?(li%+xl%+1):SYS&D1,val%,n%,4
 1230 SYSosp%,ppa%,xc%+84,yp%:SYSosn%,n%,2
 1240 ENDPROC
 1250 :
 1260 DEF PROCd3(flw%,icon%,!bg%,act%):SYSwr%,,pb% TO more%
 1270 IF flw% pb%!4=0:pb%!8=j4%:pb%!12=k4%:pb%!16=0:SYSwu%,,pb%TOmore%
 1280 PROCq2
 1290 xsize%=pb%!12-pb%!4:ysize%=pb%!16-pb%!8
 1300 xoff%=xsize%/xra:xof3%=xoff%/3
 1310 yoff%=ysize%/yra:ycent%=pb%!8+ysize%/2
 1320 yfact%=yoff%*factor:yc1%=ycent%-yfact%:yc2%=ycent%+yfact%
 1330 yo1%=yc1%+yoff%:yo2%=yc2%+yoff%
 1340 xc2%=pb%!4+xsize%/2:xc1%=xc2%-xof3%:xc3%=xc2%+xof3%
 1350 xo1%=xc1%+xoff%:xo2%=xc2%+xoff%:xo3%=xc3%+xoff%
 1360 WHILE more%
 1370 SYScs%,!bg%,,,0,0 TO tcol%
 1380 SYSosp%,ppa%,pb%!28,pb%!32
 1390 SYSosp%,rfp%,pb%!36,pb%!40
 1400 SYScs%,!c1%,,,0,act% TO tcol%
 1410 SYSosp%,ppa%,xc1%,yc1%
 1420 SYSosp%,ppa%,xo1%,yc1%
 1430 SYSosp%,efp%,xc1%,yo1%
 1440 SYScs%,!c2%,,,0,act% TO tcol%
 1450 SYSosp%,ppa%,xc2%,yc2%
 1460 SYSosp%,ppa%,xo2%,yc2%
 1470 SYSosp%,efp%,xc2%,yo2%
 1480 SYScs%,!c3%,,,0,act% TO tcol%
 1490 SYSosp%,ppa%,xc3%,yc1%
 1500 SYSosp%,ppa%,xo3%,yc1%
 1510 SYSosp%,efp%,xc3%,yo1%
 1520 IF icon% SYSwpi%,,bx%
 1530 SYSwg%,,pb% TO more%
 1540 ENDWHILE:ENDPROC
 1550 :
 1560 DEF PROCd4(flw%,icon%,fill%):SYSwr%,,pb% TO more%
 1570 IF flw% pb%!4=0:pb%!8=j4%:pb%!12=k4%:pb%!16=0:SYSwu%,,pb%TOmore%
 1580 PROCq1:WHILE more%
 1590 vaxn%=pb%!28:vayn%=pb%!32:vaxm%=pb%!36:vaym%=pb%!40
 1600 SYScs%,!ccc%,,,fill%,0 TO tcol%
 1610 SYSosp%,ppa%,vaxn%,vayn%
 1620 SYSosp%,rfp%,vaxm%,vaym%
 1630 IF icon% SYSwpi%,,bx%
 1640 SYSwg%,,pb% TO more%
 1650 ENDWHILE:ENDPROC
 1660 :
 1670 DEF PROCd7(flw%):SYSwr%,,pb% TO more%
 1680 IF flw% pb%!4=0:pb%!8=j7%:pb%!12=k7%:pb%!16=0:SYSwu%,,pb%TOmore%
 1690 yc%=pb%!16+j7%-pb%!24
 1700 WHILE more%
 1710 IF pb%!28>(pb%!4+6) xc%=pb%!28 ELSE xc%=pb%!4+6
 1720 IF pb%!36<(pb%!12-6) xd%=pb%!36 ELSE xd%=pb%!12-6
 1730 yt%=yc%+4:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&55555500,yt%)
 1740 yt%=yc%+56:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&77FFFF00,yt%)
 1750 yt%=yc%+108:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&EEAAEE00,yt%)
 1760 yt%=yc%+160:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&FFFF3300,yt%)
 1770 yt%=yc%+212:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&FFBB7700,yt%)
 1780 yt%=yc%+264:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&77FF7700,yt%)
 1790 yt%=yc%+316:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&7777FF00,yt%)
 1800 yt%=yc%+368:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&FFBBBB00,yt%)
 1810 yt%=yc%+420:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&BBBBFF00,yt%)
 1820 yt%=yc%+472:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&CCCCCC00,yt%)
 1830 yt%=yc%+524:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&22EEAA00,yt%)
 1840 SYSwg%,,pb% TO more%
 1850 ENDWHILE:ENDPROC
 1860 :
 1870 DEF PROCd72(flw%):SYSwr%,,pb% TO more%
 1880 IF flw% pb%!4=0:pb%!8=j7%:pb%!12=k7%:pb%!16=0:SYSwu%,,pb%TOmore%
 1890 yc%=pb%!16+j7%-pb%!24
 1900 WHILE more%
 1910 IF pb%!28>(pb%!4+6) xc%=pb%!28 ELSE xc%=pb%!4+6
 1920 IF pb%!36<(pb%!12-6) xd%=pb%!36 ELSE xd%=pb%!12-6
 1930 yt%=yc%+4:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&FFBB7700,yt%)
 1940 yt%=yc%+56:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&77FF7700,yt%)
 1950 yt%=yc%+108:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&7777FF00,yt%)
 1960 yt%=yc%+160:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&FFBBBB00,yt%)
 1970 yt%=yc%+212:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&BBBBFF00,yt%)
 1980 yt%=yc%+264:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&CCCCCC00,yt%)
 1990 yt%=yc%+316:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd7a(&22EEAA00,yt%)
 2000 SYSwg%,,pb% TO more%
 2010 ENDWHILE:ENDPROC
 2020 :
 2030 DEF PROCd7a(!c7%,y7%)
 2040 SYScs%,!c7%,,,&100,0 TO gcol%
 2050 SYSosp%,rfa%,xc%,y7%
 2060 SYSosp%,rfp%,xd%,y7%+42
 2070 ENDPROC
 2080 :
 2090 DEF PROCd8:SYSwr%,,pb% TO more%:yc%=pb%!8
 2100 WHILE more%
 2110 IF pb%!28>(pb%!4+6) xc%=pb%!28 ELSE xc%=pb%!4+6
 2120 IF pb%!36<(pb%!4+118) xd%=pb%!36 ELSE xd%=pb%!4+118
 2130 yt%=yc%+56:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd8a(&FFBB7700,yt%)
 2140 yt%=yc%+108:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd8a(&77FF7700,yt%)
 2150 yt%=yc%+160:IF(yt%>(pb%!32-44))AND(yt%<pb%!40) PROCd8a(&7777FF00,yt%)
 2160 SYSwg%,,pb% TO more%
 2170 ENDWHILE:ENDPROC
 2180 :
 2190 DEF PROCd8a(!c8%,y8%)
 2200 SYScs%,!c8%,,,&100,0 TO gcol%
 2210 SYSosp%,rfa%,xc%,y8%
 2220 SYSosp%,rfp%,xd%,y8%+42
 2230 ENDPROC
 2240 :
 2250 DEF PROCd9(icon%):SYSwr%,,pb% TO more%
 2260 WHILE more%
 2270 vaxn%=pb%!28:vayn%=pb%!32:vaxm%=pb%!36:vaym%=pb%!40
 2280 SYScs%,!store%(str%),,,&100,0 TO gcol%
 2290 SYSosp%,ppa%,vaxn%,vayn%
 2300 SYSosp%,rfp%,vaxm%,vaym%
 2310 IF icon% SYSwpi%,,p9%
 2320 SYSwg%,,pb% TO more%
 2330 ENDWHILE:ENDPROC
 2340 :
 2350 DEF PROCclose
 2360 CASE !pb% OF
 2370 WHEN w1h%:SYSwc%,,pb%
 2380 WHEN w0h%:SYSwc%,,pb%
 2390 WHEN w7h%:SYSwc%,,pb%:w%(41,1)=p80%
 2400 WHEN w8h%:SYSwc%,,pb%:w%(42,1)=p80%:CASE wv% OF
 2410 WHEN 0:PROCread(&A,rdt%,gdt%,bdt%)
 2420 WHEN 1:PROCread(16,rht%,ght%,bht%)
 2430 WHEN 2:PROCread(2,rbt%,gbt%,bbt%)
 2440 OTHERWISE PROCread(&A,rdt%,gdt%,bdt%)
 2450 ENDCASE:PROCmod
 2460 WHEN w9h%:active%=FALSE:$cap%=m$(41)
 2470 PROCset9(0,&7000000,&F000000):SYSwc%,,pb%:w%(44,1)=p80%
 2480 OTHERWISE it%=0
 2490 REPEAT
 2500 IF(w%(it%,1)=!pb%)THEN
 2510 SYSwx%,,pb%:w%(it%,1)=p80%:it%=40
 2520 ENDIF:it%+=1
 2530 UNTIL it%=41
 2540 ENDCASE:ENDPROC
 2550 :
 2560 DEF PROCmouse:PROCmousestate(pb%)
 2570 IF(ms%AND2)PROCmenu ELSE PROCclick
 2580 ENDPROC
 2590 :
 2600 DEF PROCpif:SYSwgp%,,pif%
 2610 PROCmousestate(pif%):ENDPROC
 2620 :
 2630 DEF PROCmousestate(msb%)
 2640 mx%=!msb%:my%=msb%!4:ms%=msb%!8:mh%=msb%!12:mi%=msb%!16
 2650 IF (ms% AND 1) bk%=TRUE ELSE bk%=FALSE
 2660 ENDPROC
 2670 :
 2680 DEF PROCclick
 2690 CASEmh%OF
 2700 WHENw1h%:PROCposition
 2710 WHENw7h%:PROCck7
 2720 WHENw8h%:PROCck8
 2730 WHENw9h%:PROCck9
 2740 WHEN-2:PROCwib
 2750 WHENw%(37,1):PROCdn
 2760 WHENw%(38,1):PROCdn
 2770 WHENw%(39,1):PROCdn
 2780 WHENw%(40,1):PROCdn
 2790 OTHERWISE PROCcc
 2800 ENDCASE:ENDPROC
 2810 :
 2820 DEF PROCposition:SYSwws%,,iw1%
 2830 IFscaled%THEN
 2840 cx%=(mx%-iw1%!4)*k1%/(iw1%!12-iw1%!4)
 2850 csy%=(my%-iw1%!16)*j1%/(iw1%!8-iw1%!16)
 2860 ELSE
 2870 cx%=mx%+iw1%!&14-iw1%!4
 2880 csy%=my%+iw1%!&18-iw1%!16
 2890 ENDIF
 2900 CASE FNwhich OF
 2910 WHEN 43:PROCshut:IF bk% ELSE SYSwc%,,iw1%
 2920 WHEN 45:PROCdn
 2930 OTHERWISE:PROCcheck:PROCladder
 2940 ENDCASE:ENDPROC
 2950 :
 2960 DEF FNwhich:xy%=0:it%=45
 2970 REPEAT
 2980 qx%=cx%-w%(xy%,2):qy%=csy%-w%(xy%,3)
 2990 qxy%=qx%*qx%+qy%*qy%
 3000 IF (qxy%<sq%) it%=xy%:xy%=44
 3010 xy%+=1
 3020 UNTIL xy%=45
 3030 =it%
 3040 :
 3050 DEF PROCcheck:ck%=TRUE
 3060 IF w%(it%,1)=p80% ELSE ENDPROC
 3070 SYSwws%,,iw1%:ck%=FALSE
 3080 CASE TRUE OF
 3090 WHEN (it%<37):j2%=-44*(w%(it%,4)+1)
 3100 h2%=iw1%!16:f2%=h2%+j2%
 3110 IF right% THEN
 3120 e2%=iw1%!12+2:g2%=e2%+width%
 3130 ELSE
 3140 g2%=iw1%!4-2:e2%=g2%-width%
 3150 ENDIF
 3160 w%(it%,1)=FNcreate_w2
 3170 WHEN (36<it%) AND (it%<41)
 3180 h4%=iw1%!16:f4%=h4%-156
 3190 IF right% THEN
 3200 e4%=iw1%!12+2:g4%=e4%+144
 3210 ELSE
 3220 g4%=iw1%!4-42:e4%=g4%-144
 3230 ENDIF
 3240 w%(it%,1)=FNcreate_w4
 3250 WHEN (it%=41)
 3260 h7%=iw1%!16:f7%=h7%-616
 3270 IF right% THEN
 3280 e7%=iw1%!12+2:g7%=e7%+280
 3290 ELSE
 3300 g7%=iw1%!4-42:e7%=g7%-280
 3310 ENDIF
 3320 iw7%!4=e7%:iw7%!8=f7%:iw7%!12=g7%:iw7%!16=h7%
 3330 w%(41,1)=w7h%
 3340 WHEN (it%=42)
 3350 h8%=iw1%!16:f8%=h8%-252
 3360 IF right% THEN
 3370 e8%=iw1%!12+2:g8%=e8%+280
 3380 ELSE
 3390 g8%=iw1%!4-2:e8%=g8%-280
 3400 ENDIF
 3410 iw8%!4=e8%:iw8%!8=f8%:iw8%!12=g8%:iw8%!16=h8%
 3420 w%(42,1)=w8h%
 3430 WHEN (it%=44)
 3440 h9%=iw1%!16:f9%=h9%-260
 3450 IF right% THEN
 3460 e9%=iw1%!12+2:g9%=e9%+280
 3470 ELSE
 3480 g9%=iw1%!4-2:e9%=g9%-280
 3490 ENDIF
 3500 iw9%!4=e9%:iw9%!8=f9%:iw9%!12=g9%:iw9%!16=h9%
 3510 w%(44,1)=w9h%
 3520 ENDCASE
 3530 ENDPROC
 3540 :
 3550 DEF PROCladder
 3560 CASE TRUE OF
 3570 WHEN (it%<37)
 3580 iw2%!0=w%(it%,1)
 3590 SYSwws%,,iw2%
 3600 IF bk% iw2%!28=-2 ELSE iw2%!28=-1
 3610 SYSwo%,,iw2%
 3620 WHEN (36<it%) AND (it%<41)
 3630 !iw4%=w%(it%,1)
 3640 SYSwws%,,iw4%
 3650 IF bk% iw4%!28=-2 ELSE iw4%!28=-1
 3660 SYSwo%,,iw4%
 3670 WHEN (it%=41)
 3680 IF ck% SYSwws%,,iw7%
 3690 IF bk% iw7%!28=-2 ELSE iw7%!28=-1
 3700 SYSwo%,,iw7%
 3710 WHEN (it%=42)
 3720 IF ck% SYSwws%,,iw8%
 3730 IF bk% iw8%!28=-2 ELSE iw8%!28=-1
 3740 SYSwo%,,iw8%
 3750 WHEN (it%=44)
 3760 IF ck% SYSwws%,,iw9%
 3770 IF bk% iw9%!28=-2 ELSE iw9%!28=-1
 3780 SYSwo%,,iw9%
 3790 ENDCASE
 3800 ENDPROC
 3810 :
 3820 DEF PROCadjust
 3830 !iw2%=w%(it%,1)
 3840 SYSwws%,,iw2%
 3850 middle%=(iw2%!12+iw2%!4)/2
 3860 iw2%!4=middle%-width%/2
 3870 iw2%!12=iw2%!4+width%
 3880 SYSwo%,,iw2%
 3890 SYSwfr%,w%(it%,1),i2%,(-44*(w%(it%,4)+1)),k2%,l2%
 3900 ENDPROC
 3910 :
 3920 DEF PROCadjust1(lsp%,lind%)
 3930 IF w%(lsp%,1)=p80% ENDPROC
 3940 SYSwfr%,w%(lsp%,1),i2%,(-44*(lind%+1)),k2%,(-44*(lind%))
 3950 ENDPROC
 3960 :
 3970 DEF PROCwib:SYSwws%,,iw1%
 3980 IF bk% iw1%!28=-2 ELSE iw1%!28=-1
 3990 IFcleared%PROCrestart:cleared%=FALSE
 4000 SYSwo%,,iw1%
 4010 ENDPROC
 4020 :
 4030 DEF PROCck7
 4040 IF mi%=0 THEN
 4050 CASE vv% OF
 4060 WHEN 0:IF bk% vv%=2 ELSE vv%=1
 4070 WHEN 1:IF bk% vv%=0 ELSE vv%=2
 4080 WHEN 2:IF bk% vv%=1 ELSE vv%=0
 4090 OTHERWISE vv%=0
 4100 ENDCASE
 4110 PROCm7
 4120 ENDIF
 4130 ENDPROC
 4140 :
 4150 DEF PROCck8
 4160 CASE mi% OF
 4170 WHEN 0:up%=wv%:CASE up% OF
 4180 WHEN 0:IF bk% wv%=2 ELSE wv%=1
 4190 WHEN 1:IF bk% wv%=0 ELSE wv%=2
 4200 WHEN 2:IF bk% wv%=1 ELSE wv%=0
 4210 OTHERWISE wv%=0
 4220 ENDCASE:PROCm8
 4230 WHEN 1:PROCfrus
 4240 IF (!ctb%=w8h%) AND bk% SYSwcp%,-1
 4250 WHEN 2:PROCreturn
 4260 ENDCASE
 4270 ENDPROC
 4280 :
 4290 DEF PROCck9
 4300 CASE mi% OF
 4310 WHEN 0:IF bk% THEN
 4320 IF active% active%=FALSE:$cap%=m$(41):PROCset9(0,&7000000,&F000000)
 4330 ELSE
 4340 IF active% ELSE active%=TRUE:$cap%=m$(40):PROCset9(0,&B000000,&F000000)
 4350 ENDIF
 4360 SYS&42 TO ot%:ot%=ot%+gn%:d9%=delay%:$s9%=STR$(d9%):PROCr9d
 4370 WHEN 5:!ccc%=!store%(str%)
 4380 PROCsetcol:PROCld7:PROCoutput
 4390 rtl%=FALSE:IF rto% PROCadjust1(strip%,indez%)
 4400 OTHERWISE
 4410 IF bk% str%=0 ELSE str%=mi%
 4420 PROCm9(str%)
 4430 ENDCASE
 4440 ENDPROC
 4450 :
 4460 DEF PROCr9:SYSwfr%,w9h%,70,-208,k9%,0:ENDPROC
 4470 :
 4480 DEF PROCr9d:SYSwfr%,w9h%,120,-132,216,-76:ENDPROC
 4490 :
 4500 DEF PROCmod
 4510 rhold%=rhold%MOD&100:ghold%=ghold%MOD&100:bhold%=bhold%MOD&100
 4520 ENDPROC
 4530 :
 4540 DEF PROCsis(whh%)
 4550 !sis%=whh%:sis%!4=0:sis%!8=0
 4560 sis%!12=0:SYSwsi%,,sis%
 4570 ENDPROC
 4580 :
 4590 DEF PROCcc:match%=FALSE:oldstrip%=strip%:oldindez%=indez%:it%=0
 4600 REPEAT
 4610 IF w%(it%,1)=mh% PROCmatch(it%):it%=37 ELSE it%+=1
 4620 UNTIL it%=37
 4630 IF match% PROCsetcol:PROCld7:PROCoutput
 4640 ENDPROC
 4650 :
 4660 DEF PROCmatch(it%)
 4670 strip%=it%
 4680 iw2%!0=w%(it%,1)
 4690 SYSwws%,,iw2%
 4700 yc%=iw2%!16-iw2%!24
 4710 indez%=(yc%-my%)DIV44
 4720 IF indez%>w%(it%,4) indez%=w%(it%,4)
 4730 w%(it%,0)=indez%
 4740 icol%=w%(it%,5)
 4750 !ccc%=!(li%+((icol%+indez%)*4))
 4760 rtl%=TRUE
 4770 PROCadjust1(strip%,indez%)
 4780 PROCadjust1(oldstrip%,oldindez%)
 4790 match%=TRUE
 4800 ENDPROC
 4810 :
 4820 DEF PROCoutput
 4830 FOR it%=37 TO 40
 4840 IF w%(it%,1)=p80% ELSE SYSwfr%,w%(it%,1),0,j4%,k4%,0
 4850 NEXT it%
 4860 IF w%(41,1)=p80% ELSE SYSwfr%,w7h%,mid7%,j7%,k7%-6,-44
 4870 ENDPROC
 4880 :
 4890 DEF PROCsetcol:SYS crg%,!ccc% TO sgcol%:SYS crn%,!ccc% TO numb%
 4900 rcol%=(sgcol% AND &FC)>>>2:scol%=sgcol% AND &FC:tnt%=(sgcol% AND 3)<<6
 4910 ggcol%=(sgcol% AND &3) OR ((sgcol% AND &3)<<4)
 4920 ?grey%=0:grey%?1=ggcol%:grey%?2=ggcol%:grey%?3=ggcol%
 4930 rcc%=(sgcol% AND 12) OR ((sgcol% AND 12)<<4)
 4940 gcc%=((sgcol% AND &30)>>>2) OR ((sgcol% AND &30)<<2)
 4950 bcc%=((sgcol% AND &C0)>>>4) OR (sgcol% AND &C0)
 4960 rrcc%=rcc% OR ggcol%:ggcc%=gcc% OR ggcol%:bbcc%=bcc% OR ggcol%
 4970 IF r2% ELSE SYScrc%,rrcc%,ggcc%,bbcc% TO acc%,mcc%,ycc%,kcc%
 4980 kcc%=kcc%-1:!cr%=!grey%:!cg%=!grey%:!cb%=!grey%
 4990 !cc%=!grey% OR &CCCCCC00:!cm%=!cc%:!cy%=!cc%
 5000 cr%?1=cr%?1 OR rcc%:cg%?2=cg%?2 OR gcc%:cb%?3=cb%?3 OR bcc%
 5010 kkc%=rcc% OR &33:mkc%=gcc% OR &33:ykc%=bcc% OR &33
 5020 cc%?1=cc%?1 AND kkc%:cm%?2=cm%?2 AND mkc%:cy%?3=cy%?3 AND ykc%
 5030 ENDPROC
 5040 :
 5050 DEF PROCld7
 5060 SYScv%,rcol%,ll%,9
 5070 SYScv%,tnt%,tt%,9
 5080 SYScv%,sgcol%,oo%,9
 5090 SYScv%,numb%,nn%,9
 5100 SYScv%,rrcc%,rr%,9
 5110 SYScv%,ggcc%,gg%,9
 5120 SYScv%,bbcc%,bb%,9
 5130 SYScv%,acc%,aa%,9
 5140 SYScv%,mcc%,mm%,9
 5150 SYScv%,ycc%,yy%,9
 5160 SYScv%,kcc%,kk%,9
 5170 ENDPROC
 5180 :
 5190 DEF PROCmenu:menu%()=FALSE:CASE mh% OF
 5200 WHEN-2:menu%(0)=TRUE:SYSwm%,,mb0%,mx%-&44,&128
 5210 WHENw1h%:IF go% THEN
 5220 menu%(1)=TRUE:SYSwm%,,mb1%,mx%-&3C,my%
 5230 ELSE
 5240 IF r2% mt%=1 ELSE SYS&58,1 TO ,mt%
 5250 CASE mt% OF
 5260 WHEN 0:PROCm11(mf11%,mfs11%)
 5270 WHEN 1:PROCm11(mf11%,mf11%)
 5280 WHEN 2:PROCm11(mfs11%,mfs11%)
 5290 WHEN 3:PROCm11(mfs11%,mf11%)
 5300 WHEN 4:PROCm11(mfs11%,mf11%)
 5310 WHEN 5:PROCm11(mfs11%,mfs11%)
 5320 OTHERWISE:PROCm11(mf11%,mf11%)
 5330 ENDCASE:menu%(11)=TRUE:SYSwm%,,mb11%,mx%-&82,my%
 5340 ENDIF
 5350 WHEN w%(37,1):menu%(3)=TRUE
 5360 IF i%(0) $j3%=m$(1) ELSE $j3%=m$(21)
 5370 SYSwm%,,mb3%,mx%-&3C,my%
 5380 WHEN w%(38,1):menu%(4)=TRUE
 5390 IF i%(1) $j3%=m$(1) ELSE $j3%=m$(21)
 5400 SYSwm%,,mb3%,mx%-&3C,my%
 5410 WHEN w%(39,1):menu%(5)=TRUE
 5420 IF i%(2) $j3%=m$(1) ELSE $j3%=m$(21)
 5430 SYSwm%,,mb3%,mx%-&3C,my%
 5440 WHEN w%(40,1):menu%(6)=TRUE
 5450 IF i%(3) $j3%=m$(1) ELSE $j3%=m$(21)
 5460 SYSwm%,,mb3%,mx%-&3C,my%
 5470 WHEN w7h%:menu%(7)=TRUE:SYSwm%,,mb7%,mx%-&4A,my%
 5480 WHEN w8h%:menu%(8)=TRUE:SYSwm%,,mb8%,mx%-&4A,my%
 5490 WHEN w9h%:PROCmenu9
 5500 WHEN w0h%:menu%(0)=TRUE:PROCdemo
 5510 OTHERWISE menu%(2)=TRUE:SYSwm%,,mb2%,mx%-&48,my%
 5520 ENDCASE:ENDPROC
 5530 :
 5540 DEF PROCmenu9:IF mi%=0 THEN
 5550 menu%(10)=TRUE:SYSwm%,,mb9d%,mx%-&28,my%
 5560 ELSE
 5570 menu%(9)=TRUE:SYSwm%,,mb9%,mx%-&28,my%
 5580 ENDIF
 5590 ENDPROC
 5600 :
 5610 DEF PROCm11(one%,two%)
 5620 mb11%!36=one%
 5630 mb11%!60=two%
 5640 ENDPROC
 5650 :
 5660 DEF PROCmst:PROCpif
 5670 CASE TRUE OF
 5680 WHEN menu%(0):PROCm0
 5690 WHEN menu%(1):PROCm1
 5700 WHEN menu%(2):PROCm2(!pb%)
 5710 IF bk% SYSwm%,,mb2%,0,0
 5720 WHEN menu%(3):PROCm4(0)
 5730 WHEN menu%(4):PROCm4(1)
 5740 WHEN menu%(5):PROCm4(2)
 5750 WHEN menu%(6):PROCm4(3)
 5760 WHEN menu%(7):vv%=!pb%:PROCm7
 5770 IF bk% SYSwm%,,mb7%,0,0
 5780 WHEN menu%(8):up%=wv%:wv%=!pb%:PROCm8
 5790 IF bk% SYSwm%,,mb8%,0,0
 5800 WHEN menu%(9):str%=!pb%:PROCm9(str%)
 5810 IF bk% SYSwm%,,mb9%,0,0
 5820 WHEN menu%(10):dd%()=0:dd%(!pb%)=1
 5830 CASE !pb% OF
 5840 WHEN 0:delay%=1
 5850 WHEN 1:delay%=2
 5860 WHEN 2:delay%=4
 5870 WHEN 3:delay%=8
 5880 WHEN 4:delay%=16
 5890 OTHERWISE delay%=4
 5900 ENDCASE
 5910 PROCmenublock9d:IF bk% SYSwm%,,mb9d%,0,0
 5920 WHEN menu%(11):CASE !pb% OF
 5930 WHEN 0:SYSwsm%,15
 5940 WHEN 1:SYSwsm%,28
 5950 OTHERWISE
 5960 ENDCASE:IF bk% SYSwm%,,mb11%,0,0
 5970 ENDCASE
 5980 ENDPROC
 5990 :
 6000 DEF PROCm0
 6010 CASE !pb% OF
 6020 WHEN 1:PROCoutline
 6030 WHEN 2:PROCclear
 6040 WHEN 3:PROCexit:ENDCASE:ENDPROC
 6050 ENDCASE
 6060 IF bk% SYSwm%,,mb0%,0,0
 6070 ENDPROC
 6080 :
 6090 DEF PROCoutline
 6100 IF rto%=TRUE THEN
 6110 rto%=FALSE:mb0%!60=mf%
 6120 ELSE rto%=TRUE:mb0%!60=mf%+4
 6130 ENDIF
 6140 PROCadjust1(strip%,w%(strip%,0))
 6150 ENDPROC
 6160 :
 6170 DEF PROCm1:CASE !pb% OF
 6180 WHEN 0:PROCm2(pb%!4)
 6190 WHEN 1
 6200 IF scaled%=TRUE scaled%=FALSE ELSE scaled%=TRUE
 6210 IF scaled%=TRUE $(mb1%+64)=m$(9) ELSE $(mb1%+64)=m$(10)
 6220 SYSwws%,,iw1%:IF(w1%!28 ANDpZ%) ELSE SYSwfr%,w1h%,0,j1%,k1%,0
 6230 WHEN 2
 6240 IF right%=TRUE right%=FALSE ELSE right%=TRUE
 6250 IF right%=TRUE $(mb1%+88)=m$(12) ELSE $(mb1%+88)=m$(13)
 6260 ENDCASE
 6270 IF bk% SYSwm%,,mb1%,0,0
 6280 ENDPROC
 6290 :
 6300 DEF PROCm2(sh%):CASE sh% OF
 6310 WHEN 0:width%=112:IF uu%=1:uu%=0 ELSE uu%=1
 6320 WHEN 1:width%=84:IF uu%=2:uu%=0 ELSE uu%=2
 6330 WHEN 2:width%=84:IF uu%=3:uu%=0 ELSE uu%=3
 6340 WHEN 3:width%=124:IF uu%=4:uu%=0 ELSE uu%=4
 6350 OTHERWISE uu%=0
 6360 ENDCASE:dx%()=0:dx%(uu%)=1
 6370 IF go% $wt%=wt$(uu%):PROCtitle
 6380 PROCmenublock2:it%=0
 6390 REPEAT
 6400 IF w%(it%,1)=p80% ELSE PROCadjust
 6410 it%+=1
 6420 UNTIL it%=37
 6430 ENDPROC
 6440 :
 6450 DEF PROCm4(m%)
 6460 IF i%(m%)=TRUE i%(m%)=FALSE:$j3%=m$(21) ELSE i%(m%)=TRUE:$j3%=m$(1)
 6470 !iw4%=w%(k%(m%),1):SYSwws%,,iw4%:y4%=iw4%!24
 6480 IF m%=2 x4%=132 ELSE x4%=100
 6490 SYSwfr%,w%(k%(m%),1),16,y4%-56,x4%,y4%-12
 6500 IF bk% SYSwm%,,mb3%,0,0
 6510 ENDPROC
 6520 :
 6530 DEF PROCm7:dv%()=0:dv%(vv%)=1:PROCmenublock7:CASE vv% OF
 6540 WHEN 0:cv%=&D5:$tx7%=m$(16)
 6550 WHEN 1:cv%=&D1:$tx7%=m$(17)
 6560 WHEN 2:cv%=&DD:$tx7%=m$(15)
 6570 OTHERWISE cv%=&D5:$tx7%=m$(16)
 6580 ENDCASE
 6590 PROCld7:PROCsis(w7h%):SYSwfr%,w7h%,mid7%,j7%,k7%-6,-44
 6600 ENDPROC
 6610 :
 6620 DEF PROCm8:dw%()=0:dw%(wv%)=1:PROCmenublock8
 6630 SYSwgc%,,ctb%:IF (!ctb%=w8h%) SYSwcp%,-1
 6640 CASE up% OF
 6650 WHEN 0:PROCread(&A,rdt%,gdt%,bdt%)
 6660 PROCreset(deleted%,deleted%,6,7,8)
 6670 WHEN 1:PROCread(16,rht%,ght%,bht%)
 6680 PROCreset(deleted%,deleted%,9,10,11)
 6690 WHEN 2:PROCread(2,rbt%,gbt%,bbt%)
 6700 PROCreset(deleted%,deleted%,12,13,14)
 6710 OTHERWISE PROCread(&A,rdt%,gdt%,bdt%)
 6720 PROCreset(deleted%,deleted%,6,7,8)
 6730 ENDCASE:PROCmod
 6740 CASE wv% OF
 6750 WHEN 0:PROCrestore(&D5,4,rdt%,gdt%,bdt%)
 6760 $tx8%=m$(16):PROCreset(0,deleted%,6,7,8)
 6770 WHEN 1:PROCrestore(&D1,3,rht%,ght%,bht%)
 6780 $tx8%=m$(17):PROCreset(0,deleted%,9,10,11)
 6790 WHEN 2:PROCrestore(&DD,9,rbt%,gbt%,bbt%)
 6800 $tx8%=m$(15):PROCreset(0,deleted%,12,13,14)
 6810 OTHERWISE PROCrestore(&D5,4,rdt%,gdt%,bdt%)
 6820 $tx8%=m$(16):PROCreset(0,deleted%,6,7,8)
 6830 ENDCASE
 6840 IF (!ctb%=w8h%) PROCcaret(wv%+1)
 6850 PROCsis(w8h%):ENDPROC
 6860 :
 6870 DEF PROCcaret(ct%)
 6880 iz%=ip%((ctb%!4-6),ct%)
 6890 SYSwcp%,w8h%,iz%,-1,-1,-1,0
 6900 ENDPROC
 6910 :
 6920 DEF PROCread(base%,ptr%,ptg%,ptb%):CASE base% OF
 6930 WHEN 2
 6940 IF (47<?ptr%) AND (?ptr%<50) ELSE $ptr%="00000000"
 6950 IF (47<?ptg%) AND (?ptg%<50) ELSE $ptg%="00000000"
 6960 IF (47<?ptb%) AND (?ptb%<50) ELSE $ptb%="00000000"
 6970 WHEN &A
 6980 IF (47<?ptr%) AND (?ptr%<58) ELSE $ptr%="0"
 6990 IF (47<?ptg%) AND (?ptg%<58) ELSE $ptg%="0"
 7000 IF (47<?ptb%) AND (?ptb%<58) ELSE $ptb%="0"
 7010 WHEN 16
 7020 IF ((47<?ptr%) AND (?ptr%<58)) OR ((64<?ptr%) AND (?ptr%<71)) ELSE $ptr%="00"
 7030 IF ((47<?ptg%) AND (?ptg%<58)) OR ((64<?ptg%) AND (?ptg%<71)) ELSE $ptg%="00"
 7040 IF ((47<?ptb%) AND (?ptb%<58)) OR ((64<?ptb%) AND (?ptb%<71)) ELSE $ptb%="00"
 7050 OTHERWISE $ptr%="0":$ptg%="0":$ptb%="0"
 7060 ENDCASE
 7070 SYS&21,base%,ptr% TO ,,rhold%
 7080 SYS&21,base%,ptg% TO ,,ghold%
 7090 SYS&21,base%,ptb% TO ,,bhold%
 7100 ENDPROC
 7110 :
 7120 DEF PROCrestore(swi%,buf%,ptr%,ptg%,ptb%)
 7130 SYSswi%,rhold%,ptr%,buf%
 7140 SYSswi%,ghold%,ptg%,buf%
 7150 SYSswi%,bhold%,ptb%,buf%
 7160 ENDPROC
 7170 :
 7180 DEF PROCreset(eor%,clear%,nmx%,nmy%,nmz%)
 7190 !sis%=w8h%:sis%!8=eor%:sis%!12=clear%
 7200 sis%!4=nmx%:SYSwsi%,,sis%
 7210 sis%!4=nmy%:SYSwsi%,,sis%
 7220 sis%!4=nmz%:SYSwsi%,,sis%
 7230 ENDPROC
 7240 :
 7250 DEF PROCset9(icon%,eor%,clear%):!sis%=w9h%:sis%!4=icon%
 7260 sis%!8=eor%:sis%!12=clear%:SYSwsi%,,sis%:ENDPROC
 7270 :
 7280 DEF PROCprocess
 7290 IF !pb%=w8h% PROCkbd(pb%!&18) ELSE SYSwpk%,pb%!&18
 7300 ENDPROC
 7310 :
 7320 DEF PROCkbd(kn%):CASE kn% OF
 7330 WHEN &188:PROCfrus
 7340 WHEN 13:PROCreturn
 7350 WHEN &185:up%=wv%:wv%=0:PROCm8
 7360 WHEN &186:up%=wv%:wv%=1:PROCm8
 7370 WHEN &187:up%=wv%:wv%=2:PROCm8
 7380 WHEN &18F:PROCup
 7390 WHEN &18E:PROCdown
 7400 OTHERWISE SYSwpk%,kn%
 7410 ENDCASE
 7420 ENDPROC
 7430 :
 7440 DEF PROCfrus:rhold%=0:ghold%=0:bhold%=0:SYSwgc%,,ctb%
 7450 CASE wv% OF
 7460 WHEN 0:PROCrestore(&D5,4,rdt%,gdt%,bdt%):PROCreset(0,0,6,7,8)
 7470 WHEN 1:PROCrestore(&D1,3,rht%,ght%,bht%):PROCreset(0,0,9,10,11)
 7480 WHEN 2:PROCrestore(&DD,9,rbt%,gbt%,bbt%):PROCreset(0,0,12,13,14)
 7490 OTHERWISE PROCrestore(&D5,4,rdt%,gdt%,bdt%):PROCreset(0,0,6,7,8)
 7500 ENDCASE
 7510 IF (!ctb%=w8h%) PROCcaret(0)
 7520 ENDPROC
 7530 :
 7540 DEF PROCup:SYSwgc%,,ctb%
 7550 IF (!ctb%=w8h%) PROCcaret(4)
 7560 ENDPROC
 7570 :
 7580 DEF PROCdown:SYSwgc%,,ctb%
 7590 IF (!ctb%=w8h%) PROCcaret(5)
 7600 ENDPROC
 7610 :
 7620 DEF PROCreturn:CASE wv% OF
 7630 WHEN 0:PROCread(&A,rdt%,gdt%,bdt%)
 7640 WHEN 1:PROCread(16,rht%,ght%,bht%)
 7650 WHEN 2:PROCread(2,rbt%,gbt%,bbt%)
 7660 OTHERWISE PROCread(&A,rdt%,gdt%,bdt%)
 7670 ENDCASE:PROCmod:ccc%?1=rhold%:ccc%?2=ghold%:ccc%?3=bhold%
 7680 PROCsetcol:PROCld7:PROCoutput
 7690 rtl%=FALSE:IF rto% PROCadjust1(strip%,indez%)
 7700 ENDPROC
 7710 :
 7720 DEF PROCm9(RETURN str%):du%()=0:du%(str%)=1:PROCmenublock9
 7730 FOR it%=1 TO 4 STEP 1
 7740 IF du%(it%) THEN
 7750 PROCset9(it%,&B000000,&F000000)
 7760 ELSE
 7770 PROCset9(it%,&7000000,&F000000)
 7780 ENDIF
 7790 NEXT it%
 7800 PROCr9:ENDPROC
 7810 :
 7820 DEF PROCpointer:d9%-=1
 7830 IF d9%=-1 THEN
 7840 PROCpif:SYS&32,mx%,my% TO ,,pcolour%,ptint%,screen%
 7850 IF screen%=-1 VDU7 ELSE temp%()=0:!store%(str%)=FNpointcol(pcolour%,ptint%)
 7860 PROCr9:active%=FALSE:$cap%=m$(41):PROCset9(0,&7000000,&F000000)
 7870 IF str%=0 THEN
 7880 !ccc%=!store%(str%):PROCsetcol:PROCld7:PROCoutput
 7890 rtl%=FALSE:IF rto% PROCadjust1(strip%,indez%)
 7900 ENDIF
 7910 ELSE
 7920 $s9%=STR$(d9%):PROCr9d:SYS&42 TO nt%
 7930 WHILE (nt%-ot%) >= 0:ot%=ot%+gn%:ENDWHILE
 7940 ENDIF
 7950 ENDPROC
 7960 :
 7970 DEF PROCrestart
 7980 w1%!0=e1%:w1%!4=f1%
 7990 w1%!8=g1%:w1%!12=h1%
 8000 w1%!16=0:w1%!20=0
 8010 ENDPROC
 8020 :
 8030 DEF PROCreadmode
 8040 SYSrm%,-1,3TO,,lcols%
 8050 IF lcols%>=&3F go%=TRUE ELSE go%=FALSE
 8060 SYSrm%,-1,4TO,,xb%:xf%=(2^xb%)/2
 8070 SYSrm%,-1,5TO,,yb%:yf%=(2^yb%)/2
 8080 ss%!8=ABS((i1%-k1%)*xf%)
 8090 ss%!12=ABS(((j1%-l1%)/2)*yf%)
 8100 IF (lcols%=63) THEN
 8110 table%=0:$wt%=wt$(uu%)
 8120 ELSE
 8130 $wt%=wt$(5):SYSctt%,&F,0,-1,-1,tb%:table%=tb%
 8140 ENDIF
 8150 PROCtitle:nv%=FALSE:ENDPROC
 8160 :
 8170 DEF PROCtitle:SYSwws%,,iw1%
 8180 IF(w1%!28 ANDpY%) THEN
 8190 SYSwwo%,,wob%
 8200 SYSwfr%,-1,wob%!4,(wob%!16-44),wob%!12,wob%!16
 8210 ENDIF
 8220 ENDPROC
 8230 :
 8240 DEF PROCshut:ht%=0
 8250 REPEAT
 8260 IF w%(ht%,1)=p80% ELSE !iw2%=w%(ht%,1):SYSwx%,,iw2%:w%(ht%,1)=p80%
 8270 ht%+=1
 8280 UNTIL ht%=37
 8290 REPEAT
 8300 IF w%(ht%,1)=p80% ELSE !iw4%=w%(ht%,1):SYSwx%,,iw4%:w%(ht%,1)=p80%
 8310 ht%+=1
 8320 UNTIL ht%=41
 8330 IF w%(41,1)=p80% ELSE SYSwc%,,iw7%:w%(41,1)=p80%
 8340 IF w%(42,1)=p80% THEN
 8350 ELSE CASE wv% OF
 8360 WHEN 0:PROCread(&A,rdt%,gdt%,bdt%)
 8370 WHEN 1:PROCread(16,rht%,ght%,bht%)
 8380 WHEN 2:PROCread(2,rbt%,gbt%,bbt%)
 8390 OTHERWISE PROCread(&A,rdt%,gdt%,bdt%)
 8400 ENDCASE:PROCmod
 8410 SYSwc%,,iw8%:w%(42,1)=p80%
 8420 ENDIF
 8430 IF w%(44,1)=p80% THEN
 8440 ELSE active%=FALSE:$cap%=m$(41)
 8450 PROCset9(0,&7000000,&F000000)
 8460 SYSwc%,,iw9%:w%(44,1)=p80%
 8470 ENDIF
 8480 ENDPROC
 8490 :
 8500 DEF PROCclear:cleared%=TRUE:PROCshut
 8510 SYSwc%,,iw1%:SYSwc%,,iw0%:ENDPROC
 8520 :
 8530 DEF PROCmessage:CASE pb%!16 OF
 8540 WHEN 0:PROCexit
 8550 WHEN ww%:nv%=TRUE
 8560 WHEN &400CC:PROCiconise
 8570 ENDCASE
 8580 ENDPROC
 8590 :
 8600 DEF PROCiconise
 8610 msgb%!12=pb%!8
 8620 msgb%!20=pb%!20
 8630 msgb%!24=0
 8640 CASE pb%!20 OF
 8650 WHEN 0:ENDPROC
 8660 WHEN w1h%:$(msgb%+36)="Cube"+CHR$(0)
 8670 $(msgb%+28)="bar"+CHR$(0)
 8680 WHEN w0h%:$(msgb%+36)="Version"+CHR$(0)
 8690 $(msgb%+28)="ver"+CHR$(0)
 8700 WHEN w7h%:$(msgb%+36)="Info."+CHR$(0)
 8710 $(msgb%+28)="inf"+CHR$(0)
 8720 WHEN w8h%:$(msgb%+36)="Input"+CHR$(0)
 8730 $(msgb%+28)="inp"+CHR$(0)
 8740 WHEN w9h%:$(msgb%+36)="Pointer"+CHR$(0)
 8750 $(msgb%+28)="ptr"+CHR$(0)
 8760 WHEN w%(37,1):$(msgb%+36)="RGB"+CHR$(0)
 8770 $(msgb%+28)="rgb"+CHR$(0)
 8780 WHEN w%(38,1):$(msgb%+36)="CMY"+CHR$(0)
 8790 $(msgb%+28)="cmy"+CHR$(0)
 8800 WHEN w%(39,1):$(msgb%+36)="Plain"+CHR$(0)
 8810 $(msgb%+28)="cmp"+CHR$(0)
 8820 WHEN w%(40,1):$(msgb%+36)="ECF"+CHR$(0)
 8830 $(msgb%+28)="ecf"+CHR$(0)
 8840 OTHERWISE
 8850 $(msgb%+36)="????"+CHR$(0)
 8860 $(msgb%+28)="stp"+CHR$(0)
 8870 it%=0
 8880 REPEAT
 8890 IF w%(it%,1)=pb%!20 THEN
 8900 $(msgb%+36)=STR$(it%)+CHR$(0)
 8910 it%=36
 8920 ENDIF
 8930 it%+=1
 8940 UNTIL it%=37
 8950 ENDCASE
 8960 SYSwsg%,17,msgb%,pb%!4
 8970 ENDPROC
 8980 :
 8990 DEF PROCexit
 9000 SYSwz%,th%,task%
 9010 IF r2% END
 9020 ENDPROC
 9030 :
 9040 DEF FNcreate_w2
 9050 w2%!0=e2%:w2%!4=f2%:w2%!8=g2%:w2%!12=h2%
 9060 w2%!16=0:w2%!20=0:w2%!24=-1:w2%!28=&86000002
 9070 w2%!32=7:w2%!33=2:w2%!34=0:w2%!35=&FF
 9080 w2%!36=3:w2%!37=1:w2%!38=12:w2%!39=0
 9090 w2%!40=i2%:w2%!44=j2%:w2%!48=k2%:w2%!52=l2%
 9100 w2%!56=itf%:w2%!60=bf%:w2%!64=1:w2%!68=48
 9110 w2%!70=32:w2%!72=qt%:w2%!76=bs%:w2%!80=0:w2%!84=0
 9120 SYSww%,,w2%TOhandle%
 9130 =handle%
 9140 :
 9150 DEF FNcreate_w4
 9160 w4%!0=e4%:w4%!4=f4%:w4%!8=g4%:w4%!12=h4%
 9170 w4%!16=0:w4%!20=0:w4%!24=-1:w4%!28=&BF000002
 9180 w4%?32=7:w4%?33=2:w4%?34=7:w4%?35=&FF
 9190 w4%?36=3:w4%?37=1:w4%?38=12:w4%?39=0
 9200 w4%!40=i4%:w4%!44=j4%:w4%!48=k4%:w4%!52=l4%
 9210 w4%!56=itf%:w4%!60=0:w4%!64=bs%:w4%!68=0:w4%!70=0
 9220 CASE it% OF
 9230 WHEN37:w4%!72=t37%
 9240 WHEN38:w4%!72=t38%
 9250 WHEN39:w4%!72=t39%
 9260 WHEN40:w4%!72=t40%
 9270 OTHERWISEw4%!72=t0%
 9280 ENDCASE
 9290 w4%!76=bs%:w4%!80=0:w4%!84=0
 9300 SYSww%,,w4%TOhandle%
 9310 =handle%
 9320 :
 9330 DEF FNcreate_w7
 9340 IF r2% THEN
 9350 w7%!0=e7%:w7%!4=f7%:w7%!8=g7%:w7%!12=h7%
 9360 w7%!16=0:w7%!20=0:w7%!24=-1:w7%!28=&BF000002
 9370 w7%?32=7:w7%?33=2:w7%?34=7:w7%?35=1
 9380 w7%?36=3:w7%?37=1:w7%?38=12:w7%?39=0
 9390 w7%!40=i7%:w7%!44=j7%:w7%!48=k7%:w7%!52=l7%
 9400 w7%!56=itf%:w7%!60=0:w7%!64=bs%:w7%!68=k7%
 9410 w7%!70=0:w7%!72=t7%:w7%!76=bs%:w7%!80=0
 9420 w7%!84=15
 9430 w7%!88=0:w7%!92=-44:w7%!96=280:w7%!100=0
 9440 w7%!104=iff%:w7%!108=tx7%:w7%!112=vx7%:w7%!116=12
 9450 w7%!120=mid7%:w7%!124=-92:w7%!128=274:w7%!132=-48
 9460 w7%!136=txf%:w7%!140=ll%:w7%!144=-1:w7%!148=LEN($ll%)
 9470 w7%!152=mid7%:w7%!156=-144:w7%!160=274:w7%!164=-100
 9480 w7%!168=txf%:w7%!172=tt%:w7%!176=-1:w7%!180=LEN($tt%)
 9490 w7%!184=mid7%:w7%!188=-196:w7%!192=274:w7%!196=-152
 9500 w7%!200=txf%:w7%!204=oo%:w7%!208=-1:w7%!212=LEN($oo%)
 9510 w7%!216=mid7%:w7%!220=-248:w7%!224=274:w7%!228=-204
 9520 w7%!232=txf%:w7%!236=nn%:w7%!240=-1:w7%!244=LEN($nn%)
 9530 w7%!248=mid7%:w7%!252=-300:w7%!256=274:w7%!260=-256
 9540 w7%!264=txf%:w7%!268=rr%:w7%!272=-1:w7%!276=LEN($rr%)
 9550 w7%!280=mid7%:w7%!284=-352:w7%!288=274:w7%!292=-308
 9560 w7%!296=txf%:w7%!300=gg%:w7%!304=-1:w7%!308=LEN($gg%)
 9570 w7%!312=mid7%:w7%!316=-404:w7%!320=274:w7%!324=-360
 9580 w7%!328=txf%:w7%!332=bb%:w7%!336=-1:w7%!340=LEN($bb%)
 9590 w7%!344=6:w7%!348=-92:w7%!352=mid7%:w7%!356=-48
 9600 w7%!360=txf%:w7%!364=colour%:w7%!368=-1:w7%!372=LEN($colour%)
 9610 w7%!376=6:w7%!380=-144:w7%!384=mid7%:w7%!388=-100
 9620 w7%!392=txf%:w7%!396=tint%:w7%!400=-1:w7%!404=LEN($tint%)
 9630 w7%!408=6:w7%!412=-196:w7%!416=mid7%:w7%!420=-152
 9640 w7%!424=txf%:w7%!428=sys_gcol%:w7%!432=-1:w7%!436=LEN($sys_gcol%)
 9650 w7%!440=6:w7%!444=-248:w7%!448=mid7%:w7%!452=-204
 9660 w7%!456=txf%:w7%!460=col_num%:w7%!464=-1:w7%!468=LEN($col_num%)
 9670 w7%!472=6:w7%!476=-300:w7%!480=mid7%:w7%!484=-256
 9680 w7%!488=txf%:w7%!492=red%:w7%!496=-1:w7%!500=LEN($red%)
 9690 w7%!504=6:w7%!508=-352:w7%!512=mid7%:w7%!516=-308
 9700 w7%!520=txf%:w7%!524=green%:w7%!528=-1:w7%!532=LEN($green%)
 9710 w7%!536=6:w7%!540=-404:w7%!544=mid7%:w7%!548=-360
 9720 w7%!552=txf%:w7%!556=blue%:w7%!560=-1:w7%!564=LEN($blue%)
 9730 ELSE
 9740 w7%!0=e7%:w7%!4=f7%:w7%!8=g7%:w7%!12=h7%
 9750 w7%!16=0:w7%!20=0:w7%!24=-1:w7%!28=&BF000002
 9760 w7%?32=7:w7%?33=2:w7%?34=7:w7%?35=1
 9770 w7%?36=3:w7%?37=1:w7%?38=12:w7%?39=0
 9780 w7%!40=i7%:w7%!44=j7%:w7%!48=k7%:w7%!52=l7%
 9790 w7%!56=itf%:w7%!60=0:w7%!64=bs%:w7%!68=k7%
 9800 w7%!70=0:w7%!72=t7%:w7%!76=bs%:w7%!80=0
 9810 w7%!84=23
 9820 w7%!88=0:w7%!92=-44:w7%!96=280:w7%!100=0
 9830 w7%!104=iff%:w7%!108=tx7%:w7%!112=vx7%:w7%!116=12
 9840 w7%!120=mid7%:w7%!124=-92:w7%!128=274:w7%!132=-48
 9850 w7%!136=txf%:w7%!140=ll%:w7%!144=-1:w7%!148=LEN($ll%)
 9860 w7%!152=mid7%:w7%!156=-144:w7%!160=274:w7%!164=-100
 9870 w7%!168=txf%:w7%!172=tt%:w7%!176=-1:w7%!180=LEN($tt%)
 9880 w7%!184=mid7%:w7%!188=-196:w7%!192=274:w7%!196=-152
 9890 w7%!200=txf%:w7%!204=oo%:w7%!208=-1:w7%!212=LEN($oo%)
 9900 w7%!216=mid7%:w7%!220=-248:w7%!224=274:w7%!228=-204
 9910 w7%!232=txf%:w7%!236=nn%:w7%!240=-1:w7%!244=LEN($nn%)
 9920 w7%!248=mid7%:w7%!252=-300:w7%!256=274:w7%!260=-256
 9930 w7%!264=txf%:w7%!268=rr%:w7%!272=-1:w7%!276=LEN($rr%)
 9940 w7%!280=mid7%:w7%!284=-352:w7%!288=274:w7%!292=-308
 9950 w7%!296=txf%:w7%!300=gg%:w7%!304=-1:w7%!308=LEN($gg%)
 9960 w7%!312=mid7%:w7%!316=-404:w7%!320=274:w7%!324=-360
 9970 w7%!328=txf%:w7%!332=bb%:w7%!336=-1:w7%!340=LEN($bb%)
 9980 w7%!344=mid7%:w7%!348=-456:w7%!352=274:w7%!356=-412
 9990 w7%!360=txf%:w7%!364=aa%:w7%!368=-1:w7%!372=LEN($aa%)
10000 w7%!376=mid7%:w7%!380=-508:w7%!384=274:w7%!388=-464
10010 w7%!392=txf%:w7%!396=mm%:w7%!400=-1:w7%!404=LEN($mm%)
10020 w7%!408=mid7%:w7%!412=-560:w7%!416=274:w7%!420=-516
10030 w7%!424=txf%:w7%!428=yy%:w7%!432=-1:w7%!436=LEN($yy%)
10040 w7%!440=mid7%:w7%!444=-612:w7%!448=274:w7%!452=-568
10050 w7%!456=&119:w7%!460=kk%:w7%!464=-1:w7%!468=LEN($kk%)
10060 w7%!472=6:w7%!476=-92:w7%!480=mid7%:w7%!484=-48
10070 w7%!488=txf%:w7%!492=colour%:w7%!496=-1:w7%!500=LEN($colour%)
10080 w7%!504=6:w7%!508=-144:w7%!512=mid7%:w7%!516=-100
10090 w7%!520=txf%:w7%!524=tint%:w7%!528=-1:w7%!532=LEN($tint%)
10100 w7%!536=6:w7%!540=-196:w7%!544=mid7%:w7%!548=-152
10110 w7%!552=txf%:w7%!556=sys_gcol%:w7%!560=-1:w7%!564=LEN($sys_gcol%)
10120 w7%!568=6:w7%!572=-248:w7%!576=mid7%:w7%!580=-204
10130 w7%!584=txf%:w7%!588=col_num%:w7%!592=-1:w7%!596=LEN($col_num%)
10140 w7%!600=6:w7%!604=-300:w7%!608=mid7%:w7%!612=-256
10150 w7%!616=txf%:w7%!620=red%:w7%!624=-1:w7%!628=LEN($red%)
10160 w7%!632=6:w7%!636=-352:w7%!640=mid7%:w7%!644=-308
10170 w7%!648=txf%:w7%!652=green%:w7%!656=-1:w7%!660=LEN($green%)
10180 w7%!664=6:w7%!668=-404:w7%!672=mid7%:w7%!676=-360
10190 w7%!680=txf%:w7%!684=blue%:w7%!688=-1:w7%!692=LEN($blue%)
10200 w7%!696=6:w7%!700=-456:w7%!704=mid7%:w7%!708=-412
10210 w7%!712=txf%:w7%!716=cyan%:w7%!720=-1:w7%!724=LEN($cyan%)
10220 w7%!728=6:w7%!732=-508:w7%!736=mid7%:w7%!740=-464
10230 w7%!744=txf%:w7%!748=magenta%:w7%!752=-1:w7%!756=LEN($magenta%)
10240 w7%!760=6:w7%!764=-560:w7%!768=mid7%:w7%!772=-516
10250 w7%!776=txf%:w7%!780=yellow%:w7%!784=-1:w7%!788=LEN($yellow%)
10260 w7%!792=6:w7%!796=-612:w7%!800=mid7%:w7%!804=-568
10270 w7%!808=&119:w7%!812=key%:w7%!816=-1:w7%!820=LEN($key%)
10280 ENDIF
10290 SYS ww%,,w7% TO handle%
10300 =handle%
10310 :
10320 DEF FNcreate_w8
10330 w8%!0=e8%:w8%!4=f8%:w8%!8=g8%:w8%!12=h8%
10340 w8%!16=0:w8%!20=0:w8%!24=-1:w8%!28=&87000002
10350 w8%?32=7:w8%?33=2:w8%?34=7:w8%?35=1
10360 w8%?36=0:w8%?37=0:w8%?38=12:w8%?39=0
10370 w8%!40=i8%:w8%!44=j8%:w8%!48=k8%:w8%!52=l8%
10380 w8%!56=itf%:w8%!60=0:w8%!64=bs%
10390 w8%!68=280:w8%!70=252
10400 w8%!72=t8%:w8%!76=bs%
10410 w8%!80=0:w8%!84=15
10420 w8%!88=0:w8%!92=-44:w8%!96=280:w8%!100=0
10430 w8%!104=iff%:w8%!108=tx8%:w8%!112=vx8%:w8%!116=12
10440 w8%!120=0:w8%!124=-252:w8%!128=140:w8%!132=-200
10450 w8%!136=iff%:w8%!140=tc8%:w8%!144=vd8%:w8%!148=6
10460 w8%!152=140:w8%!156=-252:w8%!160=280:w8%!164=-200
10470 w8%!168=iff%:w8%!172=te8%:w8%!176=vd8%:w8%!180=6
10480 w8%!184=0:w8%!188=-96:w8%!192=120:w8%!196=-44
10490 w8%!200=txf%:w8%!204=red%:w8%!208=-1:w8%!212=LEN($red%)
10500 w8%!216=0:w8%!220=-148:w8%!224=120:w8%!228=-96
10510 w8%!232=txf%:w8%!236=green%:w8%!240=-1:w8%!244=LEN($green%)
10520 w8%!248=0:w8%!252=-200:w8%!256=120:w8%!260=-148
10530 w8%!264=txf%:w8%!268=blue%:w8%!272=-1:w8%!276=LEN($blue%)
10540 w8%!280=120:w8%!284=-92:w8%!288=274:w8%!292=-48
10550 w8%!296=if8%+deleted%:w8%!300=rdt%:w8%!304=vsd%:w8%!308=4
10560 w8%!312=120:w8%!316=-144:w8%!320=274:w8%!324=-100
10570 w8%!328=if8%+deleted%:w8%!332=gdt%:w8%!336=vsd%:w8%!340=4
10580 w8%!344=120:w8%!348=-196:w8%!352=274:w8%!356=-152
10590 w8%!360=if8%+deleted%:w8%!364=bdt%:w8%!368=vsd%:w8%!372=4
10600 w8%!376=120:w8%!380=-92:w8%!384=274:w8%!388=-48
10610 w8%!392=if8%+deleted%:w8%!396=rht%:w8%!400=vsh%:w8%!404=3
10620 w8%!408=120:w8%!412=-144:w8%!416=274:w8%!420=-100
10630 w8%!424=if8%+deleted%:w8%!428=ght%:w8%!432=vsh%:w8%!436=3
10640 w8%!440=120:w8%!444=-196:w8%!448=274:w8%!452=-152
10650 w8%!456=if8%+deleted%:w8%!460=bht%:w8%!464=vsh%:w8%!468=3
10660 w8%!472=120:w8%!476=-92:w8%!480=274:w8%!484=-48
10670 w8%!488=if8%+deleted%:w8%!492=rbt%:w8%!496=vsb%:w8%!500=9
10680 w8%!504=120:w8%!508=-144:w8%!512=274:w8%!516=-100
10690 w8%!520=if8%+deleted%:w8%!524=gbt%:w8%!528=vsb%:w8%!532=9
10700 w8%!536=120:w8%!540=-196:w8%!544=274:w8%!548=-152
10710 w8%!552=if8%+deleted%:w8%!556=bbt%:w8%!560=vsb%:w8%!564=9
10720 SYS ww%,,w8% TO handle%
10730 =handle%
10740 :
10750 DEF FNcreate_w9
10760 w9%!0=e9%:w9%!4=f9%:w9%!8=g9%:w9%!12=h9%
10770 w9%!16=0:w9%!20=0:w9%!24=-1:w9%!28=&87000002
10780 w9%?32=7:w9%?33=2:w9%?34=7:w9%?35=&FF
10790 w9%?36=0:w9%?37=0:w9%?38=12:w9%?39=0
10800 w9%!40=i9%:w9%!44=j9%:w9%!48=k9%:w9%!52=l9%
10810 w9%!56=itf%:w9%!60=0:w9%!64=bs%:w9%!68=280:w9%!70=260
10820 w9%!72=t9%:w9%!76=bs%:w9%!80=0:w9%!84=6
10830 w9%!88=0:w9%!92=-260:w9%!96=140:w9%!100=-208
10840 w9%!104=iff%:w9%!108=cap%:w9%!112=vd8%:w9%!116=8
10850 w9%!120=0:w9%!124=-52:w9%!128=70:w9%!132=0
10860 w9%!136=iff%:w9%!140=st1%:w9%!144=vs9%:w9%!148=2
10870 w9%!152=0:w9%!156=-104:w9%!160=70:w9%!164=-52
10880 w9%!168=iff%:w9%!172=st2%:w9%!176=vs9%:w9%!180=2
10890 w9%!184=0:w9%!188=-156:w9%!192=70:w9%!196=-104
10900 w9%!200=iff%:w9%!204=st3%:w9%!208=vs9%:w9%!212=2
10910 w9%!216=0:w9%!220=-208:w9%!224=70:w9%!228=-156
10920 w9%!232=iff%:w9%!236=st4%:w9%!240=vs9%:w9%!244=2
10930 w9%!248=140:w9%!252=-260:w9%!256=280:w9%!260=-208
10940 w9%!264=iff%:w9%!268=te8%:w9%!272=vd8%:w9%!276=6
10950 SYS ww%,,w9% TO handle%
10960 =handle%
10970 :
10980 DEF PROCmenublock0:$mb0%=$des%
10990 mb0%?12=7:mb0%?13=2:mb0%?14=7:mb0%?15=0
11000 mb0%!16=160:mb0%!20=44:mb0%!24=0
11010 mb0%!28=0:mb0%!32=w0h%
11020 mb0%!36=mf%:$(mb0%+40)=im0$
11030 mb0%!52=0:mb0%!56=-1
11040 mb0%!60=mf%+4:$(mb0%+64)=im1$
11050 mb0%!76=2:mb0%!80=-1
11060 mb0%!84=mf%:$(mb0%+88)=im2$
11070 mb0%!100=lastitem%:mb0%!104=-1
11080 mb0%!108=mf%:$(mb0%+112)=im3$
11090 ENDPROC
11100 :
11110 DEF PROCmenublock1:$mb1%=m$(0)
11120 mb1%?12=7:mb1%?13=2:mb1%?14=7:mb1%?15=0
11130 mb1%!16=108:mb1%!20=44:mb1%!24=0
11140 mb1%!28=0:mb1%!32=mb2%
11150 mb1%!36=mf%:$(mb1%+40)=m$(1)
11160 mb1%!52=0:mb1%!56=-1
11170 mb1%!60=mf%:$(mb1%+64)=m$(9)
11180 mb1%!76=lastitem%:mb1%!80=-1
11190 mb1%!84=mf%:$(mb1%+88)=m$(12)
11200 ENDPROC
11210 :
11220 DEF PROCmenublock2:$mb2%=m$(4)
11230 mb2%?12=7:mb2%?13=2:mb2%?14=7:mb2%?15=0
11240 mb2%!16=152:mb2%!20=44:mb2%!24=0
11250 mb2%!28=dx%(1):mb2%!32=-1
11260 mb2%!36=mf%:$(mb2%+40)=m$(5)
11270 mb2%!52=dx%(2):mb2%!56=-1
11280 mb2%!60=mf%:$(mb2%+64)=m$(6)
11290 mb2%!76=dx%(3):mb2%!80=-1
11300 mb2%!84=mf%:$(mb2%+88)=m$(32)
11310 mb2%!100=lastitem%+dx%(4):mb2%!104=-1
11320 mb2%!108=mf%:$(mb2%+112)=m$(8)
11330 ENDPROC
11340 :
11350 DEF PROCmenublock3:$mb3%=m$(14)
11360 mb3%?12=7:mb3%?13=2:mb3%?14=7:mb3%?15=0
11370 mb3%!16=80:mb3%!20=44:mb3%!24=0
11380 mb3%!28=lastitem%:mb3%!32=-1
11390 mb3%!36=mf11%:mb3%!40=j3%:mb3%!44=-1:mb3%!48=5
11400 ENDPROC
11410 :
11420 DEF PROCmenublock7:$mb7%=m$(11)
11430 mb7%?12=7:mb7%?13=2:mb7%?14=7:mb7%?15=0
11440 mb7%!16=188:mb7%!20=44:mb7%!24=0
11450 mb7%!28=dv%(0):mb7%!32=-1
11460 mb7%!36=mf%:$(mb7%+40)=m$(16)
11470 mb7%!52=dv%(1):mb7%!56=-1
11480 mb7%!60=mf%:$(mb7%+64)=m$(17)
11490 mb7%!76=lastitem%+dv%(2):mb7%!80=-1
11500 mb7%!84=mf%:$(mb7%+88)=m$(15)
11510 ENDPROC
11520 :
11530 DEF PROCmenublock8:$mb8%=m$(11)
11540 mb8%?12=7:mb8%?13=2:mb8%?14=7:mb8%?15=0
11550 mb8%!16=188:mb8%!20=44:mb8%!24=0
11560 mb8%!28=dw%(0):mb8%!32=-1
11570 mb8%!36=mf%:$(mb8%+40)=m$(16)
11580 mb8%!52=dw%(1):mb8%!56=-1
11590 mb8%!60=mf%:$(mb8%+64)=m$(17)
11600 mb8%!76=lastitem%+dw%(2):mb8%!80=-1
11610 mb8%!84=mf%:$(mb8%+88)=m$(15)
11620 ENDPROC
11630 :
11640 DEF PROCmenublock9:$mb9%=m$(33)
11650 mb9%?12=7:mb9%?13=2:mb9%?14=7:mb9%?15=0
11660 mb9%!16=52:mb9%!20=44:mb9%!24=0
11670 mb9%!28=du%(0):mb9%!32=-1
11680 mb9%!36=mf9%:$(mb9%+40)=m$(34)
11690 mb9%!52=du%(1):mb9%!56=-1
11700 mb9%!60=mf9%:$(mb9%+64)=m$(35)
11710 mb9%!76=du%(2):mb9%!80=-1
11720 mb9%!84=mf9%:$(mb9%+88)=m$(36)
11730 mb9%!100=du%(3):mb9%!104=-1
11740 mb9%!108=mf9%:$(mb9%+112)=m$(37)
11750 mb9%!124=lastitem%+du%(4):mb9%!128=-1
11760 mb9%!132=mf9%:$(mb9%+136)=m$(38)
11770 ENDPROC
11780 :
11790 DEF PROCmenublock9d:$mb9d%=m$(42)
11800 mb9d%?12=7:mb9d%?13=2:mb9d%?14=7:mb9d%?15=0
11810 mb9d%!16=52:mb9d%!20=44:mb9d%!24=0
11820 mb9d%!28=dd%(0):mb9d%!32=-1
11830 mb9d%!36=mf9%:$(mb9d%+40)=m$(35)
11840 mb9d%!52=dd%(1):mb9d%!56=-1
11850 mb9d%!60=mf9%:$(mb9d%+64)=m$(36)
11860 mb9d%!76=dd%(2):mb9d%!80=-1
11870 mb9d%!84=mf9%:$(mb9d%+88)=m$(38)
11880 mb9d%!100=dd%(3):mb9d%!104=-1
11890 mb9d%!108=mf9%:$(mb9d%+112)=m$(43)
11900 mb9d%!124=lastitem%+dd%(4):mb9d%!128=-1
11910 mb9d%!132=mf9%:$(mb9d%+136)=m$(44)
11920 ENDPROC
11930 :
11940 DEF PROCmenublock11:$mb11%=m$(45)
11950 mb11%?12=7:mb11%?13=2:mb11%?14=7:mb11%?15=0
11960 mb11%!16=328:mb11%!20=44:mb11%!24=0
11970 mb11%!28=0:mb11%!32=-1
11980 mb11%!36=mf11%:mb11%!40=a11%
11990 mb11%!44=-1:mb11%!48=LEN($a11%)
12000 mb11%!52=lastitem%:mb11%!56=-1
12010 mb11%!60=mf11%:mb11%!64=b11%
12020 mb11%!68=-1:mb11%!72=LEN($b11%)
12030 ENDPROC
12040 :
12050 DEF PROCp1
12060 !p1%=16:p1%!4=-56:p1%!8=132:p1%!12=-12
12070 p1%!16=&2700013D:p1%!20=s1%
12080 p1%!24=-1:p1%!28=LEN($s1%)
12090 p1%!32=16:p1%!36=-56:p1%!40=100:p1%!44=-12
12100 p1%!48=&2700013D:p1%!52=s2%
12110 p1%!56=-1:p1%!60=LEN($s2%)
12120 ENDPROC
12130 :
12140 DEF PROCq1:p1%!4=pb%!24-56:p1%!12=pb%!24-12
12150 p1%!36=pb%!24-56:p1%!44=pb%!24-12:ENDPROC
12160 :
12170 DEF PROCp2
12180 !p2%=16:p2%!4=-56:p2%!8=100:p2%!12=-12
12190 p2%!16=&11D:p2%!20=s3%
12200 p2%!24=-1:p2%!28=LEN($s3%)
12210 p2%!32=16:p2%!36=-56:p2%!40=100:p2%!44=-12
12220 p2%!48=&700011D:p2%!52=s4%
12230 p2%!56=-1:p2%!60=LEN($s4%)
12240 ENDPROC
12250 :
12260 DEF PROCq2:p2%!4=pb%!24-56:p2%!12=pb%!24-12
12270 p2%!36=pb%!24-56:p2%!44=pb%!24-12:ENDPROC
12280 :
12290 DEF PROCp9
12300 !p9%=120:p9%!4=-132
12310 p9%!8=216:p9%!12=-76
12320 p9%!16=&700013D:p9%!20=s9%
12330 p9%!24=-1:p9%!28=LEN($s9%)
12340 ENDPROC
12350 :
12360 DEF PROCinit
12370 PROCvalues
12380 SYShs%,1
12390 PROCmemory
12400 PROCstrings
12410 PROCset
12420 PROCsprite
12430 SYSwi%,200,task%,des% TOversion%,th%:bh%=FNcreate_icon
12440 IF version%<300 r2%=TRUE
12450 !ccc%=&FFFFFF00:PROCsetcol
12460 w0h%=FNcreate_w0:!iw0%=w0h%
12470 w1h%=FNcreate_w1:!iw1%=w1h%:!wob%=w1h%
12480 IF r2% j7%=-408:f7%=-408
12490 w7h%=FNcreate_w7:!iw7%=w7h%
12500 w8h%=FNcreate_w8:!iw8%=w8h%:PROCreset(0,deleted%,6,7,8)
12510 w9h%=FNcreate_w9:!iw9%=w9h%
12520 PROCreadmode
12530 PROCdata
12540 PROCcolours
12550 PROCdd
12560 PROCshuffle
12570 PROCmenublock0
12580 PROCmenublock1
12590 PROCmenublock2
12600 PROCmenublock3
12610 PROCmenublock7
12620 PROCmenublock8
12630 PROCmenublock9
12640 PROCmenublock9d
12650 PROCmenublock11
12660 PROCp1
12670 PROCp2
12680 PROCp9
12690 PROCld7
12700 SYShf%
12710 ENDPROC
12720 :
12730 DEF PROCvalues:task%=&4B534154
12740 p80%=&8000:pY%=&10000:pZ%=&40000
12750 em%=&40000:hm%=&40600:ctm%=&40700
12760 hf%=hm%+&C1:hs%=hm%+&C3
12770 ctt%=ctm%+&40:crg%=ctm%+&42:cs%=ctm%+&43
12780 crn%=ctm%+&44:cn%=ctm%+&4C:crc%=ctm%+&5A
12790 wi%=em%+&C0:ww%=em%+&C1
12800 wj%=em%+&C2:wx%=em%+&C3
12810 wo%=em%+&C5:wc%=em%+&C6
12820 wr%=em%+&C8:wu%=em%+&C9
12830 wg%=em%+&CA:wws%=em%+&CB
12840 wsi%=em%+&CD
12850 wgp%=em%+&CF:wfr%=em%+&D1
12860 wcp%=em%+&D2
12870 wgc%=em%+&D3:wm%=em%+&D4
12880 wpk%=em%+&DC:wz%=em%+&DD
12890 wre%=em%+&DF:wpt%=em%+&E1
12900 wsm%=em%+&E3:wsg%=em%+&E7
12910 wwo%=em%+&E0:wpi%=em%+&E2
12920 osn%=&46:osp%=&45:rm%=&35
12930 sp%=&2E:sz%=&CCB4:sq%=&900
12940 i1%=0:j1%=-672:k1%=540:l1%=0
12950 e1%=i1%+370:f1%=j1%+808:g1%=k1%+370:h1%=l1%+808
12960 i4%=0:j4%=-976:k4%=1024:l4%=0:e4%=0:h4%=0:g4%=144:f4%=-144
12970 xra=2.8:yra=2.7:factor=0.29
12980 i2%=0:j2%=-44*16:k2%=124:l2%=0:e2%=0:f2%=0:g2%=0:h2%=0
12990 i7%=0:j7%=-616:k7%=280:l7%=0
13000 e7%=0:f7%=-616:g7%=280:h7%=0:mid7%=128
13010 i8%=0:j8%=-252:k8%=280:l8%=0
13020 e8%=0:f8%=-252:g8%=280:h8%=0
13030 i9%=0:j9%=-260:k9%=280:l9%=0
13040 e9%=0:f9%=-260:g9%=280:h9%=0
13050 width%=84:ppa%=&40+4:efp%=&C8+5
13060 rf%=&60:rfa%=rf%+4:rfr%=rf%+1:rfp%=rf%+5
13070 len%=0:sft%=0
13080 itf%=&11A
13090 txf%=&7000119
13100 bf%=&3000
13110 inf%=&700013D
13120 pf%=&81830
13130 shaded%=&400000
13140 mf%=&7000021
13150 mf11%=&7000121
13160 mfs11%=&7400121
13170 mf9%=&7000029
13180 if8%=&700F13D
13190 iff%=&701913B
13200 lastitem%=&80
13210 r2%=FALSE:nv%=TRUE
13220 scaled%=TRUE:right%=TRUE
13230 rto%=TRUE:rtl%=TRUE:rtd%=FALSE
13240 strip%=0:oldstrip%=0:indez%=0:oldindez%=0
13250 deleted%=&800000:cv%=&D5:acc%=0:mcc%=0:ycc%=0:kcc%=0
13260 x4%=132:bk%=FALSE:active%=FALSE:cleared%=FALSE
13270 uu%=0:vv%=0:wv%=0:up%=0:rhold%=0:ghold%=0:bhold%=0
13280 more%=0:rc%=0:xb%=0:yb%=0:xf%=0:yf%=0
13290 ENDPROC
13300 :
13310 DEF PROCmemory:DIM li% 1023:DIM lj% 1023
13320 DIM erb% 255:DIM pb% 255:DIM tb% 255
13330 DIM menu%(11):DIM msgb% 47:DIM ic% 8:DIM des% 11
13340 DIM iw0% 379:w0%=iw0%+4
13350 DIM iw1% 91:w1%=iw1%+4
13360 DIM iw2% 91:w2%=iw2%+4
13370 DIM iw4% 91:w4%=iw4%+4
13380 DIM iw7% 827:w7%=iw7%+4
13390 DIM iw8% 571:w8%=iw8%+4
13400 DIM iw9% 283:w9%=iw9%+4
13410 DIM null% 0:DIM dms% 8
13420 DIM rdt% 3:DIM gdt% 3:DIM bdt% 3
13430 DIM rht% 2:DIM ght% 2:DIM bht% 2
13440 DIM rbt% 8:DIM gbt% 8:DIM bbt% 8
13450 DIM vsd% 63:DIM vsh% 63:DIM vsb% 63
13460 DIM tx7% 11:DIM tx8% 11:DIM tc8% 5:DIM te8% 5
13470 DIM vx7% 8:DIM vx8% 8:DIM vd8% 8:DIM cap% 8:DIM vs9% 8
13480 DIM st1% 1:DIM st2% 1:DIM st3% 1:DIM st4% 1
13490 DIM str0% 3:DIM str1% 3:DIM str2% 3:DIM str3% 3:DIM str4% 3
13500 DIM store%(4):store%(0)=str0%:store%(1)=str1%
13510 store%(2)=str2%:store%(3)=str3%:store%(4)=str4%
13520 DIM pif% 19:DIM ip%(8,6)
13530 DIM rdec% 3:DIM gdec% 3:DIM bdec% 3
13540 DIM rhex% 2:DIM ghex% 2:DIM bhex% 2
13550 DIM rbin% 8:DIM gbin% 8:DIM bbin% 8
13560 DIM wob% 19:DIM ctb% 23:DIM sis% 15
13570 DIM w%(44,5):DIM n% 4
13580 DIM temp%(4):DIM x%(6):DIM y%(12)
13590 DIM dst% 199:DIM b0% 35
13600 DIM p1% 63:DIM p2% 63:DIM p9% 31:DIM fw%(4)
13610 DIM s1% 5:DIM s2% 3:DIM s3% 3:DIM s4% 3:DIM s9% 2
13620 DIM mb0% 123:DIM mb1% 99:DIM mb2% 123
13630 DIM mb3% 51:DIM mb7% 99:DIM mb8% 99
13640 DIM mb9% 147:DIM mb9d% 147:DIM mb11% 75
13650 DIM i%(3):DIM j3% 4:DIM k%(3)
13660 DIM du%(4):DIM dd%(4):DIM dv%(2):DIM dw%(2):DIM dx%(4)
13670 DIM colour% 6:DIM tint% 4:DIM sys_gcol% 4:DIM col_num% 6
13680 DIM red% 3:DIM green% 5:DIM blue% 4
13690 DIM cyan% 4:DIM magenta% 7:DIM yellow% 6:DIM key% 3
13700 DIM ll% 8:DIM tt% 8:DIM oo% 8:DIM nn% 8
13710 DIM rr% 8:DIM gg% 8:DIM bb% 8
13720 DIM aa% 8:DIM mm% 8:DIM yy% 8:DIM kk% 8
13730 DIM ccc% 3:DIM ddd% 3
13740 DIM cr% 3:DIM cg% 3:DIM cb% 3
13750 DIM cc% 3:DIM cm% 3:DIM cy% 3
13760 DIM c1% 3:DIM c2% 3:DIM c3% 3:DIM c7% 3:DIM c8% 3
13770 DIM bg% 3:DIM grey% 3
13780 DIM ss% 15:DIM bs% sz%
13790 DIM wt% 23:DIM wt$(5):DIM m$(55)
13800 DIM in1% 25:DIM in2% 24:DIM in3% 21
13810 DIM in4% 5:DIM in5% 8:DIM in6% 8:DIM in7% 7
13820 DIM a11% 20:DIM b11% 20
13830 ENDPROC
13840 :
13850 DEF PROCset:nt%=0:ot%=0:gn%=100:mt%=1:base%=&A
13860 icon%=TRUE:i%(0)=TRUE:i%(1)=TRUE:i%(2)=TRUE:i%(3)=TRUE
13870 k%(0)=37:k%(1)=38:k%(2)=39:k%(3)=40:$j3%=m$(1)
13880 str%=0:du%()=0:du%(0)=1:dv%()=0:dv%(0)=1:dw%()=0:dw%(0)=1:dx%()=0
13890 delay%=4:d9%=4:dd%()=0:dd%(2)=1
13900 str0%?0=0:str0%?1=&BB:str0%?2=&BB:str0%?3=&BB
13910 str1%?0=0:str1%?1=&AA:str1%?2=&AA:str1%?3=&AA
13920 str2%?0=0:str2%?1=&99:str2%?2=&99:str2%?3=&99
13930 str3%?0=0:str3%?1=&88:str3%?2=&88:str3%?3=&88
13940 str4%?0=0:str4%?1=&77:str4%?2=&77:str4%?3=&77
13950 $s9%="4":PROCzero:PROCrestore(&D5,4,rdt%,gdt%,bdt%)
13960 nmx%=6:nmy%=7:nmz%=8
13970 $tx7%=m$(16):$tx8%=m$(16):$tc8%=m$(22):$te8%=m$(23)
13980 $vx7%="Scxn,cxo":$vx8%="Scxn,cxo":$vd8%="Siof,ion"
13990 $cap%=m$(41):$vs9%="Ssrf,srn"
14000 $st1%=m$(35):$st2%=m$(36):$st3%=m$(37):$st4%=m$(38)
14010 xcn%=0:$null%=m$(39):$dms%="Sdmf,dmn"
14020 $colour%=m$(2):$tint%=m$(3):$sys_gcol%=m$(6):$col_num%=m$(7)
14030 $red%=m$(18):$green%=m$(19):$blue%=m$(20)
14040 $cyan%=m$(28):$magenta%=m$(29):$yellow%=m$(30):$key%=m$(31)
14050 $vsd%="A0-9":$vsh%="A0-9A-F":$vsb%="A01"
14060 $s1%=m$(26):$s2%=m$(27):$s3%=m$(24):$s4%=m$(25)
14070 $in1%=m$(48):$in2%=m$(49):$in3%=m$(50)
14080 $in4%=m$(52):$in5%=m$(53):$in6%=m$(54):$in7%=m$(55)
14090 wd$=m$(51):$a11%=m$(46):$b11%=m$(47)
14100 !msgb%=48:msgb%!12=0:msgb%!16=&400CC:msgb%!24=0
14110 $(msgb%+28)="bar"+CHR$(0)
14120 ENDPROC
14130 :
14140 DEF PROCzero
14150 $rdt%="0":$gdt%="0":$bdt%="0"
14160 $rht%="0":$ght%="0":$bht%="0"
14170 $rbt%="0":$gbt%="0":$bbt%="0"
14180 ENDPROC
14190 :
14200 DEF PROCstrings
14210 $ic%="icon_bar"
14220 $des%="Colour Cube"
14230 wt$(0)="256 Colour Display"
14240 wt$(1)="COLOUR/GCOL & TINT"
14250 wt$(2)="Operating System GCOL"
14260 wt$(3)="Logical Colour NUMBER"
14270 wt$(4)="BLUE�GREEN�RED (Hex.)"
14280 wt$(5)="for 256 colour mode use"
14290 im0$="Info."
14300 im1$="Entry"
14310 im2$="Clear"
14320 im3$="Quit"
14330 m$(0)="Options"
14340 m$(1)="Show"
14350 m$(2)="Colour"
14360 m$(3)="Tint"
14370 m$(4)="Designation"
14380 m$(5)="Col/Tint"
14390 m$(6)="GCOL"
14400 m$(7)="Number"
14410 m$(8)="B�G�R (&)"
14420 m$(9)="Scale"
14430 m$(10)="Scroll"
14440 m$(11)="Base"
14450 m$(12)="Right"
14460 m$(13)="Left"
14470 m$(14)="Title"
14480 m$(15)="Binary"
14490 m$(16)="Decimal"
14500 m$(17)="Hexadecimal"
14510 m$(18)="Red"
14520 m$(19)="Green"
14530 m$(20)="Blue"
14540 m$(21)="Off"
14550 m$(22)="Clear"
14560 m$(23)="Enter"
14570 m$(24)="RGB"
14580 m$(25)="CMY"
14590 m$(26)="Plain"
14600 m$(27)="ECF"
14610 m$(28)="Cyan"
14620 m$(29)="Magenta"
14630 m$(30)="Yellow"
14640 m$(31)="Key"
14650 m$(32)="Number��P"
14660 m$(33)="Store"
14670 m$(34)="0"
14680 m$(35)="1"
14690 m$(36)="2"
14700 m$(37)="3"
14710 m$(38)="4"
14720 m$(39)=""
14730 m$(40)="ACTIVE"
14740 m$(41)="Capture"
14750 m$(42)="Delay"
14760 m$(43)="8"
14770 m$(44)="16"
14780 m$(45)="change mode?"
14790 m$(46)="15 (TV standard-RGB)"
14800 m$(47)="28 (Multiscan / VGA)"
14810 m$(48)="256-colour option utility"
14820 m$(49)="� Acorn Archimedes World"
14830 m$(50)="3.10 (July 1994)"
14840 m$(51)="<ColourCube$Dir>."
14850 m$(52)="Name:"
14860 m$(53)="Purpose:"
14870 m$(54)="Version:"
14880 m$(55)="Notice:"
14890 ENDPROC
14900 :
14910 DEF PROCsprite:!bs%=sz%:bs%!8=16:SYSsp%,&109,bs%
14920 SYSsp%,&10A,bs%,wd$+"visual"
14930 SYSsp%,&118,bs%,"Hex256"TO,,hx%
14940 SYSsp%,&118,bs%,"qt"TO,,qt%
14950 SYSsp%,&118,bs%,"t0"TO,,t0%
14960 SYSsp%,&118,bs%,"t37"TO,,t37%
14970 SYSsp%,&118,bs%,"t38"TO,,t38%
14980 SYSsp%,&118,bs%,"t39"TO,,t39%
14990 SYSsp%,&118,bs%,"t40"TO,,t40%
15000 SYSsp%,&118,bs%,"t7"TO,,t7%
15010 SYSsp%,&118,bs%,"t8"TO,,t8%
15020 SYSsp%,&118,bs%,"t9"TO,,t9%
15030 SYSsp%,&118,bs%,"iof"TO,,iof%
15040 SYSsp%,&118,bs%,"ion"TO,,ion%
15050 SYSsp%,&118,bs%,"dmn"TO,,dmn%
15060 SYSsp%,&118,bs%,"cxn"TO,,cxn%
15070 SYSsp%,&118,bs%,"cxo"TO,,cxo%
15080 SYSsp%,&118,bs%,"dmf"TO,,dmf%
15090 SYSsp%,&118,bs%,"srf"TO,,srf%
15100 SYSsp%,&118,bs%,"srn"TO,,srn%
15110 ENDPROC
15120 :
15130 DEF FNcreate_icon
15140 !b0%=-1:b0%!4=0:b0%!8=0:b0%!12=64:b0%!16=72
15150 b0%!20=&3102:b0%!24=ic%:b0%!28=1
15160 b0%!32=LEN($ic%):SYSwj%,,b0% TO handle%
15170 =handle%
15180 :
15190 DEF FNcreate_w1
15200 w1%!0=e1%:w1%!4=f1%:w1%!8=g1%:w1%!12=h1%
15210 w1%!16=0:w1%!20=0:w1%!24=-1:w1%!28=&FF000002
15220 w1%?32=7:w1%?33=2:w1%?34=7:w1%?35=&FF
15230 w1%?36=3:w1%?37=1:w1%?38=12:w1%?39=0
15240 w1%!40=i1%:w1%!44=j1%:w1%!48=k1%:w1%!52=l1%
15250 w1%!56=&119:w1%!60=bf%:w1%!64=1:w1%!68=68:w1%!70=108
15260 w1%!72=wt%:w1%!76=-1:w1%!80=LEN($wt%):w1%!84=0
15270 SYS ww% ,,w1% TO handle%
15280 =handle%
15290 :
15300 DEF FNcreate_w0
15310 w0%!0=0:w0%!4=-240:w0%!8=598:w0%!12=0
15320 w0%!16=0:w0%!20=0:w0%!24=-1:w0%!28=&87000012
15330 w0%?32=7:w0%?33=2:w0%?34=7:w0%?35=1
15340 w0%?36=3:w0%?37=1:w0%?38=12:w0%?39=0
15350 w0%!40=0:w0%!44=-240:w0%!48=598:w0%!52=0
15360 w0%!56=itf%:w0%!60=0:w0%!64=bs%:w0%!68=598
15370 w0%!70=240:w0%!72=t0%:w0%!76=bs%:w0%!80=0:w0%!84=9
15380 w0%!88=252:w0%!92=-80:w0%!96=592:w0%!100=-28
15390 w0%!104=inf%:w0%!108=des%:w0%!112=-1:w0%!116=LEN($des%)
15400 w0%!120=160:w0%!124=-132:w0%!128=592:w0%!132=-84
15410 w0%!136=inf%:w0%!140=in1%:w0%!144=-1:w0%!148=LEN($in1%)
15420 w0%!152=160:w0%!156=-184:w0%!160=592:w0%!164=-136
15430 w0%!168=inf%:w0%!172=in3%:w0%!176=-1:w0%!180=LEN($in3%)
15440 w0%!184=160:w0%!188=-236:w0%!192=592:w0%!196=-188
15450 w0%!200=inf%:w0%!204=in2%:w0%!208=-1:w0%!212=LEN($in2%)
15460 w0%!216=48:w0%!220=-76:w0%!224=118:w0%!228=-12
15470 w0%!232=&1701913B:w0%!236=null%:w0%!240=dms%:w0%!244=1
15480 w0%!248=160:w0%!252=-80:w0%!256=248:w0%!260=-28
15490 w0%!264=&7000311:w0%!268=in4%:w0%!272=-1:w0%!276=LEN($in4%)
15500 w0%!280=6:w0%!284=-132:w0%!288=156:w0%!292=-84
15510 w0%!296=&7000311:w0%!300=in5%:w0%!304=-1:w0%!308=LEN($in5%)
15520 w0%!312=6:w0%!316=-184:w0%!320=156:w0%!324=-136
15530 w0%!328=&7000311:w0%!332=in6%:w0%!336=-1:w0%!340=LEN($in6%)
15540 w0%!344=6:w0%!348=-236:w0%!352=156:w0%!356=-188
15550 w0%!360=&7000311:w0%!364=in7%:w0%!368=-1:w0%!372=LEN($in7%)
15560 SYS ww%,,w0% TO handle%
15570 =handle%
15580 :
15590 DEF PROCdemo
15600 IF mi%=4 ELSE ENDPROC
15610 SYShs%,1:PROCshut:SYSwc%,,iw1%:SYSwc%,,iw0%:cleared%=FALSE
15620 width%=84:uu%=0:dx%()=0:dx%(uu%)=1
15630 IF go% $wt%=wt$(uu%) ELSE$wt%=wt$(5)
15640 scaled%=FALSE:$(mb1%+64)=m$(10):PROCmenublock2
15650 FOR it%=0 TO 36
15660 j2%=-44*(w%(it%,4)+1):w%(it%,1)=FNcreate_w2
15670 NEXT it%
15680 PROCreconstruct(38)
15690 w1%!0=xxx%:w1%!4=yyy%+j1%:w1%!8=xxx%+526:w1%!12=yyy%
15700 w1%!16=0:w1%!20=0:w1%!24=-1:SYSwo%,,iw1%
15710 FOR it%=30 TO 36
15720 PROCreconstruct(it%):iw2%!0=w%(display%,1)
15730 w2%!0=xxx%:w2%!8=xxx%+width%
15740 w2%!12=yyy%:w2%!4=yyy%-44*(w%(display%,4)+1)
15750 w2%!24=-1:SYSwo%,,iw2%
15760 NEXT it%
15770 FOR it%=29 TO 0 STEP -1
15780 PROCreconstruct(it%):iw2%!0=w%(display%,1)
15790 w2%!0=xxx%:w2%!8=xxx%+width%
15800 w2%!12=yyy%:w2%!4=yyy%-44*(w%(display%,4)+1)
15810 w2%!24=-1:SYSwo%,,iw2%
15820 NEXT it%
15830 SYShf%:ENDPROC
15840 :
15850 DEF PROCreconstruct(kt%):display%=?(dst%+(kt%*5))
15860 xhigh%=?(dst%+(kt%*5)+1):xlow%=?(dst%+(kt%*5)+2)
15870 yhigh%=?(dst%+(kt%*5)+3):ylow%=?(dst%+(kt%*5)+4)
15880 xxx%=xlow%+(&100*xhigh%):yyy%=ylow%+(&100*yhigh%)
15890 ENDPROC
15900 :
15910 DEF PROCdd
15920 demo%=OPENIN(wd$+"Demo")
15930 PTR#demo%=0
15940 FOR it%=0 TO 199
15950 dst%?it%=BGET#demo%
15960 NEXT it%
15970 CLOSE#demo%
15980 ENDPROC
15990 :
16000 DEF PROCerror
16010 !erb%=ERR
16020 $(erb%+4)=REPORT$+"(internal error code "+STR$ERL+")"+CHR$(0)
16030 SYSwre%,erb%,&11,"shock horror crash"
16040 END:ENDPROC
16050 :
16060 DEF PROCcolours
16070 colours%=OPENIN(wd$+"Colours")
16080 PTR#colours%=0
16090 FOR it%=0 TO 255
16100 ?(li%+(4*it%)+3)=BGET#colours%
16110 ?(lj%+(4*it%)+3)=BGET#colours%
16120 NEXT it%
16130 CLOSE#colours%:ENDPROC
16140 :
16150 DEF PROCshuffle
16160 FOR it%=0 TO &FF
16170 fl%=(4*it%)+3
16180 PROCscramble(?(li%+fl%))
16190 FOR jt%=0 TO 3
16200 ?(li%+(4*it%)+jt%)=temp%(jt%)
16210 NEXT jt%
16220 PROCscramble(?(lj%+fl%))
16230 FOR jt%=0 TO 3
16240 ?(lj%+(4*it%)+jt%)=temp%(jt%)
16250 NEXT jt%
16260 NEXT it%
16270 ENDPROC
16280 :
16290 DEF PROCscramble(bits%):temp%()=0:temp%(4)=bits%
16300 temp%(0)=temp%(4)AND&3:temp%(0)=(temp%(0))OR(temp%(0)<<4)
16310 temp%(1)=temp%(4)AND12:temp%(1)=(temp%(1))OR(temp%(1)<<4)
16320 temp%(2)=temp%(4)AND&30:temp%(2)=(temp%(2)>>>2)OR(temp%(2)<<2)
16330 temp%(3)=temp%(4)AND&C0:temp%(3)=(temp%(3))OR(temp%(3)>>>4)
16340 temp%(1)=(temp%(1))OR(temp%(0)):temp%(2)=(temp%(2))OR(temp%(0))
16350 temp%(3)=(temp%(3))OR(temp%(0)):temp%(0)=0:ENDPROC
16360 :
16370 DEF FNpointcol(temp%(0),temp%(4))
16380 temp%(4)=(temp%(4)AND&C0)>>>6
16390 temp%(1)=(temp%(0)AND&3)<<2:temp%(1)=temp%(1)ORtemp%(4)
16400 temp%(1)=temp%(1)OR(temp%(1)<<4)
16410 temp%(2)=temp%(0)AND&C:temp%(2)=temp%(2)ORtemp%(4)
16420 temp%(2)=temp%(2)OR(temp%(2)<<4)
16430 temp%(3)=(temp%(0)AND&30)>>>2:temp%(3)=temp%(3)ORtemp%(4)
16440 temp%(3)=temp%(3)OR(temp%(3)<<4)
16450 ddd%?3=temp%(3):ddd%?(2)=temp%(2)
16460 ddd%?1=temp%(1):ddd%?0=0
16470 =!ddd%
16480 :
16490 DEF PROCdn
16500 ENDPROC
16510 :
16520 DEF PROCdata
16530 FOR it%=0 TO 44
16540 w%(it%,0)=0:w%(it%,1)=p80%
16550 NEXT it%
16560 index%=0:w%(0,4)=&F:w%(0,5)=index%:index%=index%+16
16570 FOR it%=1 TO 6
16580 w%(it%,4)=11:w%(it%,5)=index%:index%=index%+12
16590 NEXT it%
16600 FOR it%=7 TO 18
16610 w%(it%,4)=7:w%(it%,5)=index%:index%=index%+8
16620 NEXT it%
16630 FOR it%=19 TO 36
16640 w%(it%,4)=3:w%(it%,5)=index%:index%=index%+4
16650 NEXT it%
16660 FOR it%=0 TO 6
16670 x%(it%)=48+(it%*74)
16680 NEXT it%
16690 FOR it%=0 TO 12
16700 y%(it%)=j1%+(it%+1)*48
16710 NEXT it%
16720 RESTORE
16730 FOR it%=0 TO 44
16740 FOR jt%=2 TO 3
16750 READ w%(it%,jt%)
16760 NEXT jt%
16770 NEXT it%
16780 FOR it%=0 TO 8
16790 FOR jt%=0 TO 6
16800 READ ip%(it%,jt%)
16810 NEXT jt%
16820 NEXT it%
16830 ENDPROC
16840 :
16850 DATA x%(3),y%(6),x%(4),y%(7),x%(3),y%(8)
16860 DATA x%(2),y%(7),x%(2),y%(5),x%(3),y%(4)
16870 DATA x%(4),y%(5),x%(5),y%(8),x%(4),y%(9)
16880 DATA x%(3),y%(10),x%(2),y%(9),x%(1),y%(8)
16890 DATA x%(1),y%(6),x%(1),y%(4),x%(2),y%(3)
16900 DATA x%(3),y%(2),x%(4),y%(3),x%(5),y%(4)
16910 DATA x%(5),y%(6),x%(6),y%(9),x%(5),y%(10)
16920 DATA x%(4),y%(11),x%(3),y%(12),x%(2),y%(11)
16930 DATA x%(1),y%(10),x%(0),y%(9),x%(0),y%(7)
16940 DATA x%(0),y%(5),x%(0),y%(3),x%(1),y%(2)
16950 DATA x%(2),y%(1),x%(3),y%(0),x%(4),y%(1)
16960 DATA x%(5),y%(2),x%(6),y%(3),x%(6),y%(5)
16970 DATA x%(6),y%(7),x%(1),y%(12),x%(0),y%(11)
16980 DATA x%(0),y%(1),x%(1),y%(0),x%(5),y%(12)
16990 DATA x%(6),y%(11),x%(5),y%(0),x%(6),y%(1)
17000 DATA 6,6,9,12,8,7,3
17010 DATA 7,7,10,13,6,8,3
17020 DATA 8,8,11,14,7,6,3
17030 DATA 9,6,9,12,11,10,2
17040 DATA 10,7,10,13,9,11,2
17050 DATA 11,8,11,14,10,9,2
17060 DATA 12,6,9,12,14,13,8
17070 DATA 13,7,10,13,12,14,8
17080 DATA 14,8,11,14,13,12,8
17090


 �>!RunImage
 �EMBER THE ALAMO!

 �init
( :
2 � � �error
< :
F �
P șwpt%,pf%,pb%,ot% � rc%
Z
 Ȏ rc% �
d � 0:� active% �pointer
n � 1:�redraw
x � 2:�open
� � 3:�close
� � 6:�mouse
� � 8:�process
�
 � 9:�mst
� � &11,&12:�message
� �
� � �
� :
� � �open:fw%()=�:Ȏ !pb% �
� �w%(37,1):fw%(0)=�
� �w%(38,1):fw%(1)=�
� �w%(39,1):fw%(2)=�
� �w%(40,1):fw%(3)=�
 �w7h%:fw%(4)=�
 �:șwo%,,pb%:�
 :
"& � �redraw:icon%=�:� nv% �readmode
, Ȏ !pb% �
6 � w1h%:�d1
@ � w7h%
J% � r2% �d72(fw%(4)) � �d7(fw%(4))
T
 fw%(4)=�
^ � w8h%:�d8
h � w9h%:�d9(active%)
r5 � w%(37,1):bx%=p2%:!c1%=!cr%:!c2%=!cg%:!c3%=!cb%
|# �d3(fw%(0),i%(0),0,1):fw%(0)=�
�8 � w%(38,1):bx%=p2%+32:!c1%=!cc%:!c2%=!cy%:!c3%=!cm%
�+ �d3(fw%(1),i%(1),&FFFFFF00,2):fw%(1)=�
�4 � w%(39,1):bx%=p1%:�d4(fw%(2),i%(2),0):fw%(2)=�
�: � w%(40,1):bx%=p1%+32:�d4(fw%(3),i%(3),&100):fw%(3)=�
�  it%=0
� �
�' � (!pb%=w%(it%,1)) �ds(it%):it%=36
� it%+=1
�
 � it%=37
� �:�
� :
� � �d1:șwr%,,pb%�more%
�? pb%!4=i1%:pb%!8=j1%:pb%!12=k1%:pb%!16=l1%:șwu%,,pb%�more%
 � scaled% �
E !ss%=pb%!12-pb%!4:ss%!4=pb%!16-pb%!8:sc%=ss%:xc%=pb%!4:yc%=pb%!8
5 � sc%=0:xc%=pb%!4-pb%!&14:yc%=pb%!16+j1%-pb%!&18
& �:ȕ more%
0, șsp%,&234,bs%,hx%,xc%,yc%,0,sc%,table%
: șwg%,,pb%�more%:�:�
D :
N5 � �ds(it%):șwr%,,pb% �more%:xc%=pb%!4:yc%=pb%!8
XJ xcg%=xc%+&A:xct%=xc%+&36:xcn%=xc%+&12:ncol%=w%(it%,4):icol%=w%(it%,5)
b/ � (it%=strip%) �rtl% �rto% rtd%=� � rtd%=�
l
 ȕ more%
v yd%=yc%
� � rt%=ncol% � 0 � -1
�% �(yd%>(pb%!32-44))�(yd%<pb%!40)�
�! yp%=yd%+32:xl%=(icol%+rt%)*4
�: șcs%,!(li%+xl%),,,&100,0 � gcol%:șosp%,rfa%,xc%,yd%
�9 șosp%,rfr%,width%,44:șcs%,!(lj%+xl%),,,0,0 � tcol%
�
 Ȏ uu% �
� � 1:�coltint
� � 2:�gcol
� � 3:�number
�
 � 4:�hex
� �
�2 �(rt%=w%(it%,0)) �rtd% ȓ xc%,yd%,width%-2,42
� �
 yd%+=44

 � rt%
 șwg%,,pb%� more%
  �:�
* :
4 � �coltint
>* col%=(gcol%�&FC)>>>2:tn%=(gcol%�3)<<6
H $n%=�(col%):len%=�($n%)
R �(len%=1)sft%=8 � sft%=0
\ șosp%,ppa%,xcg%+sft%,yp%
f șosn%,n%,len%
p $n%=�(tn%):len%=�($n%)
z Ȏlen%�
� �1:sft%=&18
� �2:sft%=12
� sft%=0
� �
�- șosp%,ppa%,xct%+sft%,yp%:șosn%,n%,len%
� �
� :
� � �gcol
� $n%=�(gcol%):len%=�($n%)
� Ȏlen%�
� �1:sft%=16
� �2:sft%=8
� sft%=0
 �
- șosp%,ppa%,xcn%+sft%,yp%:șosn%,n%,len%
 �
$ :
. � �number
8/ șcn%,gcol% � num%:$n%=�(num%):len%=�($n%)
B Ȏlen%�
L �1:sft%=16
V �2:sft%=8
` sft%=0
j �
t- șosp%,ppa%,xcn%+sft%,yp%:șosn%,n%,len%
~ �
� :
� � �hex
�& val%=?(li%+xl%+3):ș&D1,val%,n%,4
�& șosp%,ppa%,xc%+8,yp%:șosn%,n%,2
�& val%=?(li%+xl%+2):ș&D1,val%,n%,4
�' șosp%,ppa%,xc%+46,yp%:șosn%,n%,2
�& val%=?(li%+xl%+1):ș&D1,val%,n%,4
�' șosp%,ppa%,xc%+84,yp%:șosn%,n%,2
� �
� :
�3 � �d3(flw%,icon%,!bg%,act%):șwr%,,pb% � more%
�B � flw% pb%!4=0:pb%!8=j4%:pb%!12=k4%:pb%!16=0:șwu%,,pb%�more%
 �q2

, xsize%=pb%!12-pb%!4:ysize%=pb%!16-pb%!8
# xoff%=xsize%/xra:xof3%=xoff%/3
+ yoff%=ysize%/yra:ycent%=pb%!8+ysize%/2
(> yfact%=yoff%*factor:yc1%=ycent%-yfact%:yc2%=ycent%+yfact%
2$ yo1%=yc1%+yoff%:yo2%=yc2%+yoff%
<8 xc2%=pb%!4+xsize%/2:xc1%=xc2%-xof3%:xc3%=xc2%+xof3%
F4 xo1%=xc1%+xoff%:xo2%=xc2%+xoff%:xo3%=xc3%+xoff%
P
 ȕ more%
Z șcs%,!bg%,,,0,0 � tcol%
d șosp%,ppa%,pb%!28,pb%!32
n șosp%,rfp%,pb%!36,pb%!40
x  șcs%,!c1%,,,0,act% � tcol%
� șosp%,ppa%,xc1%,yc1%
� șosp%,ppa%,xo1%,yc1%
� șosp%,efp%,xc1%,yo1%
�  șcs%,!c2%,,,0,act% � tcol%
� șosp%,ppa%,xc2%,yc2%
� șosp%,ppa%,xo2%,yc2%
� șosp%,efp%,xc2%,yo2%
�  șcs%,!c3%,,,0,act% � tcol%
� șosp%,ppa%,xc3%,yc1%
� șosp%,ppa%,xo3%,yc1%
� șosp%,efp%,xc3%,yo1%
� � icon% șwpi%,,bx%
� șwg%,,pb% � more%
 �:�
 :
/ � �d4(flw%,icon%,fill%):șwr%,,pb% � more%
"B � flw% pb%!4=0:pb%!8=j4%:pb%!12=k4%:pb%!16=0:șwu%,,pb%�more%
, �q1:ȕ more%
68 vaxn%=pb%!28:vayn%=pb%!32:vaxm%=pb%!36:vaym%=pb%!40
@" șcs%,!ccc%,,,fill%,0 � tcol%
J șosp%,ppa%,vaxn%,vayn%
T șosp%,rfp%,vaxm%,vaym%
^ � icon% șwpi%,,bx%
h șwg%,,pb% � more%
r �:�
| :
�# � �d7(flw%):șwr%,,pb% � more%
�B � flw% pb%!4=0:pb%!8=j7%:pb%!12=k7%:pb%!16=0:șwu%,,pb%�more%
� yc%=pb%!16+j7%-pb%!24
�
 ȕ more%
�0 � pb%!28>(pb%!4+6) xc%=pb%!28 � xc%=pb%!4+6
�2 � pb%!36<(pb%!12-6) xd%=pb%!36 � xd%=pb%!12-6
�B yt%=yc%+4:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&55555500,yt%)
�C yt%=yc%+56:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&77FFFF00,yt%)
�D yt%=yc%+108:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&EEAAEE00,yt%)
�D yt%=yc%+160:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&FFFF3300,yt%)
�D yt%=yc%+212:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&FFBB7700,yt%)
�D yt%=yc%+264:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&77FF7700,yt%)
�D yt%=yc%+316:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&7777FF00,yt%)
D yt%=yc%+368:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&FFBBBB00,yt%)
D yt%=yc%+420:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&BBBBFF00,yt%)
D yt%=yc%+472:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&CCCCCC00,yt%)
&D yt%=yc%+524:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&22EEAA00,yt%)
0 șwg%,,pb% � more%
: �:�
D :
N$ � �d72(flw%):șwr%,,pb% � more%
XB � flw% pb%!4=0:pb%!8=j7%:pb%!12=k7%:pb%!16=0:șwu%,,pb%�more%
b yc%=pb%!16+j7%-pb%!24
l
 ȕ more%
v0 � pb%!28>(pb%!4+6) xc%=pb%!28 � xc%=pb%!4+6
�2 � pb%!36<(pb%!12-6) xd%=pb%!36 � xd%=pb%!12-6
�B yt%=yc%+4:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&FFBB7700,yt%)
�C yt%=yc%+56:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&77FF7700,yt%)
�D yt%=yc%+108:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&7777FF00,yt%)
�D yt%=yc%+160:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&FFBBBB00,yt%)
�D yt%=yc%+212:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&BBBBFF00,yt%)
�D yt%=yc%+264:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&CCCCCC00,yt%)
�D yt%=yc%+316:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d7a(&22EEAA00,yt%)
� șwg%,,pb% � more%
� �:�
� :
� � �d7a(!c7%,y7%)
�  șcs%,!c7%,,,&100,0 � gcol%
 șosp%,rfa%,xc%,y7%
 șosp%,rfp%,xd%,y7%+42
 �
  :
*' � �d8:șwr%,,pb% � more%:yc%=pb%!8
4
 ȕ more%
>0 � pb%!28>(pb%!4+6) xc%=pb%!28 � xc%=pb%!4+6
H4 � pb%!36<(pb%!4+118) xd%=pb%!36 � xd%=pb%!4+118
RC yt%=yc%+56:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d8a(&FFBB7700,yt%)
\D yt%=yc%+108:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d8a(&77FF7700,yt%)
fD yt%=yc%+160:�(yt%>(pb%!32-44))�(yt%<pb%!40) �d8a(&7777FF00,yt%)
p șwg%,,pb% � more%
z �:�
� :
� � �d8a(!c8%,y8%)
�  șcs%,!c8%,,,&100,0 � gcol%
� șosp%,rfa%,xc%,y8%
� șosp%,rfp%,xd%,y8%+42
� �
� :
�$ � �d9(icon%):șwr%,,pb% � more%
�
 ȕ more%
�8 vaxn%=pb%!28:vayn%=pb%!32:vaxm%=pb%!36:vaym%=pb%!40
�) șcs%,!store%(str%),,,&100,0 � gcol%
� șosp%,ppa%,vaxn%,vayn%
� șosp%,rfp%,vaxm%,vaym%
	 � icon% șwpi%,,p9%
	 șwg%,,pb% � more%
	 �:�
	$ :
	.
 � �close
	8 Ȏ !pb% �
	B � w1h%:șwc%,,pb%
	L � w0h%:șwc%,,pb%
	V$ � w7h%:șwc%,,pb%:w%(41,1)=p80%
	`- � w8h%:șwc%,,pb%:w%(42,1)=p80%:Ȏ wv% �
	j! � 0:�read(&A,rdt%,gdt%,bdt%)
	t! � 1:�read(16,rht%,ght%,bht%)
	~  � 2:�read(2,rbt%,gbt%,bbt%)
	�  �read(&A,rdt%,gdt%,bdt%)
	� �:�mod
	�" � w9h%:active%=�:$cap%=m$(41)
	�8 �set9(0,&7000000,&F000000):șwc%,,pb%:w%(44,1)=p80%
	�  it%=0
	� �
	� �(w%(it%,1)=!pb%)�
	�% șwx%,,pb%:w%(it%,1)=p80%:it%=40
	�
 �:it%+=1
	�
 � it%=41
	� �:�
	� :
 � �mouse:�mousestate(pb%)

 �(ms%�2)�menu � �click
 �
 :
( � �pif:șwgp%,,pif%
2 �mousestate(pif%):�
< :
F � �mousestate(msb%)
P< mx%=!msb%:my%=msb%!4:ms%=msb%!8:mh%=msb%!12:mi%=msb%!16
Z � (ms% � 1) bk%=� � bk%=�
d �
n :
x
 � �click
� Ȏmh%�
� �w1h%:�position
� �w7h%:�ck7
� �w8h%:�ck8
� �w9h%:�ck9
�
 �-2:�wib
� �w%(37,1):�dn
� �w%(38,1):�dn
� �w%(39,1):�dn
� �w%(40,1):�dn
�
  �cc
� �:�
� :
 � �position:șwws%,,iw1%
 �scaled%�
* cx%=(mx%-iw1%!4)*k1%/(iw1%!12-iw1%!4)
", csy%=(my%-iw1%!16)*j1%/(iw1%!8-iw1%!16)
, �
6 cx%=mx%+iw1%!&14-iw1%!4
@ csy%=my%+iw1%!&18-iw1%!16
J �
T Ȏ �which �
^# � 43:�shut:� bk% � șwc%,,iw1%
h
 � 45:�dn
r :�check:�ladder
| �:�
� :
� � �which:xy%=0:it%=45
� �
�) qx%=cx%-w%(xy%,2):qy%=csy%-w%(xy%,3)
� qxy%=qx%*qx%+qy%*qy%
�  � (qxy%<sq%) it%=xy%:xy%=44
� xy%+=1
�
 � xy%=45
�	 =it%
� :
� � �check:ck%=�
� � w%(it%,1)=p80% � �
� șwws%,,iw1%:ck%=�
 Ȏ � �
% � (it%<37):j2%=-44*(w%(it%,4)+1)
 h2%=iw1%!16:f2%=h2%+j2%
& � right% �
0! e2%=iw1%!12+2:g2%=e2%+width%
: �
D  g2%=iw1%!4-2:e2%=g2%-width%
N �
X w%(it%,1)=�create_w2
b � (36<it%) � (it%<41)
l h4%=iw1%!16:f4%=h4%-156
v � right% �
� e4%=iw1%!12+2:g4%=e4%+144
� �
� g4%=iw1%!4-42:e4%=g4%-144
� �
� w%(it%,1)=�create_w4
� � (it%=41)
� h7%=iw1%!16:f7%=h7%-616
� � right% �
� e7%=iw1%!12+2:g7%=e7%+280
� �
� g7%=iw1%!4-42:e7%=g7%-280
� �
�2 iw7%!4=e7%:iw7%!8=f7%:iw7%!12=g7%:iw7%!16=h7%

 w%(41,1)=w7h%

 � (it%=42)

 h8%=iw1%!16:f8%=h8%-252

  � right% �

* e8%=iw1%!12+2:g8%=e8%+280

4 �

> g8%=iw1%!4-2:e8%=g8%-280

H �

R2 iw8%!4=e8%:iw8%!8=f8%:iw8%!12=g8%:iw8%!16=h8%

\ w%(42,1)=w8h%

f � (it%=44)

p h9%=iw1%!16:f9%=h9%-260

z � right% �

� e9%=iw1%!12+2:g9%=e9%+280

� �

� g9%=iw1%!4-2:e9%=g9%-280

� �

�2 iw9%!4=e9%:iw9%!8=f9%:iw9%!12=g9%:iw9%!16=h9%

� w%(44,1)=w9h%

� �

� �

� :

� � �ladder

� Ȏ � �

� � (it%<37)

� iw2%!0=w%(it%,1)
 șwws%,,iw2%
" � bk% iw2%!28=-2 � iw2%!28=-1
 șwo%,,iw2%
$ � (36<it%) � (it%<41)
. !iw4%=w%(it%,1)
8 șwws%,,iw4%
B" � bk% iw4%!28=-2 � iw4%!28=-1
L șwo%,,iw4%
V � (it%=41)
` � ck% șwws%,,iw7%
j" � bk% iw7%!28=-2 � iw7%!28=-1
t șwo%,,iw7%
~ � (it%=42)
� � ck% șwws%,,iw8%
�" � bk% iw8%!28=-2 � iw8%!28=-1
� șwo%,,iw8%
� � (it%=44)
� � ck% șwws%,,iw9%
�" � bk% iw9%!28=-2 � iw9%!28=-1
� șwo%,,iw9%
� �
� �
� :
� � �adjust
� !iw2%=w%(it%,1)
 șwws%,,iw2%

 middle%=(iw2%!12+iw2%!4)/2
 iw2%!4=middle%-width%/2
 iw2%!12=iw2%!4+width%
( șwo%,,iw2%
25 șwfr%,w%(it%,1),i2%,(-44*(w%(it%,4)+1)),k2%,l2%
< �
F :
P � �adjust1(lsp%,lind%)
Z � w%(lsp%,1)=p80% �
d< șwfr%,w%(lsp%,1),i2%,(-44*(lind%+1)),k2%,(-44*(lind%))
n �
x :
� � �wib:șwws%,,iw1%
�" � bk% iw1%!28=-2 � iw1%!28=-1
�! �cleared%�restart:cleared%=�
� șwo%,,iw1%
� �
� :
� � �ck7
� � mi%=0 �
�
 Ȏ vv% �
� � 0:� bk% vv%=2 � vv%=1
� � 1:� bk% vv%=0 � vv%=2
� � 2:� bk% vv%=1 � vv%=0
�  vv%=0
 �
 �m7
 �
" �
, :
6 � �ck8
@
 Ȏ mi% �
J � 0:up%=wv%:Ȏ up% �
T � 0:� bk% wv%=2 � wv%=1
^ � 1:� bk% wv%=0 � wv%=2
h � 2:� bk% wv%=1 � wv%=0
r  wv%=0
|
 �:�m8
� � 1:�frus
�# � (!ctb%=w8h%) � bk% șwcp%,-1
� � 2:�return
� �
� �
� :
� � �ck9
�
 Ȏ mi% �
� � 0:� bk% �
�@ � active% active%=�:$cap%=m$(41):�set9(0,&7000000,&F000000)
� �
�B � active% � active%=�:$cap%=m$(40):�set9(0,&B000000,&F000000)
� �
8 ș&42 � ot%:ot%=ot%+gn%:d9%=delay%:$s9%=�(d9%):�r9d
 � 5:!ccc%=!store%(str%)
 �setcol:�ld7:�output
&* rtl%=�:� rto% �adjust1(strip%,indez%)
0 
: � bk% str%=0 � str%=mi%
D �m9(str%)
N �
X �
b :
l& � �r9:șwfr%,w9h%,70,-208,k9%,0:�
v :
�* � �r9d:șwfr%,w9h%,120,-132,216,-76:�
� :
� � �mod
�= rhold%=rhold%�&100:ghold%=ghold%�&100:bhold%=bhold%�&100
� �
� :
� � �sis(whh%)
�! !sis%=whh%:sis%!4=0:sis%!8=0
� sis%!12=0:șwsi%,,sis%
� �
� :
�; � �cc:match%=�:oldstrip%=strip%:oldindez%=indez%:it%=0
� �
0 � w%(it%,1)=mh% �match(it%):it%=37 � it%+=1

 � it%=37
" � match% �setcol:�ld7:�output
  �
* :
4 � �match(it%)
> strip%=it%
H iw2%!0=w%(it%,1)
R șwws%,,iw2%
\ yc%=iw2%!16-iw2%!24
f indez%=(yc%-my%)�44
p( � indez%>w%(it%,4) indez%=w%(it%,4)
z w%(it%,0)=indez%
� icol%=w%(it%,5)
�$ !ccc%=!(li%+((icol%+indez%)*4))
� rtl%=�
� �adjust1(strip%,indez%)
�" �adjust1(oldstrip%,oldindez%)
�
 match%=�
� �
� :
� � �output
� � it%=37 � 40
�4 � w%(it%,1)=p80% � șwfr%,w%(it%,1),0,j4%,k4%,0
�
 � it%
�6 � w%(41,1)=p80% � șwfr%,w7h%,mid7%,j7%,k7%-6,-44
 �
 :
; � �setcol:ș crg%,!ccc% � sgcol%:ș crn%,!ccc% � numb%
$E rcol%=(sgcol% � &FC)>>>2:scol%=sgcol% � &FC:tnt%=(sgcol% � 3)<<6
.. ggcol%=(sgcol% � &3) � ((sgcol% � &3)<<4)
8: ?grey%=0:grey%?1=ggcol%:grey%?2=ggcol%:grey%?3=ggcol%
B, rcc%=(sgcol% � 12) � ((sgcol% � 12)<<4)
L4 gcc%=((sgcol% � &30)>>>2) � ((sgcol% � &30)<<2)
V/ bcc%=((sgcol% � &C0)>>>4) � (sgcol% � &C0)
`@ rrcc%=rcc% � ggcol%:ggcc%=gcc% � ggcol%:bbcc%=bcc% � ggcol%
j; � r2% � șcrc%,rrcc%,ggcc%,bbcc% � acc%,mcc%,ycc%,kcc%
t4 kcc%=kcc%-1:!cr%=!grey%:!cg%=!grey%:!cb%=!grey%
~0 !cc%=!grey% � &CCCCCC00:!cm%=!cc%:!cy%=!cc%
�= cr%?1=cr%?1 � rcc%:cg%?2=cg%?2 � gcc%:cb%?3=cb%?3 � bcc%
�4 kkc%=rcc% � &33:mkc%=gcc% � &33:ykc%=bcc% � &33
�= cc%?1=cc%?1 � kkc%:cm%?2=cm%?2 � mkc%:cy%?3=cy%?3 � ykc%
� �
� :
� � �ld7
� șcv%,rcol%,ll%,9
� șcv%,tnt%,tt%,9
� șcv%,sgcol%,oo%,9
� șcv%,numb%,nn%,9
� șcv%,rrcc%,rr%,9
� șcv%,ggcc%,gg%,9
 șcv%,bbcc%,bb%,9

 șcv%,acc%,aa%,9
 șcv%,mcc%,mm%,9
 șcv%,ycc%,yy%,9
( șcv%,kcc%,kk%,9
2 �
< :
F � �menu:menu%()=�:Ȏ mh% �
P, �-2:menu%(0)=�:șwm%,,mb0%,mx%-&44,&128
Z �w1h%:� go% �
d' menu%(1)=�:șwm%,,mb1%,mx%-&3C,my%
n �
x! � r2% mt%=1 � ș&58,1 � ,mt%
�
 Ȏ mt% �
� � 0:�m11(mf11%,mfs11%)
� � 1:�m11(mf11%,mf11%)
� � 2:�m11(mfs11%,mfs11%)
� � 3:�m11(mfs11%,mf11%)
� � 4:�m11(mfs11%,mf11%)
� � 5:�m11(mfs11%,mfs11%)
� :�m11(mf11%,mf11%)
�+ �:menu%(11)=�:șwm%,,mb11%,mx%-&82,my%
� �
� � w%(37,1):menu%(3)=�
�% � i%(0) $j3%=m$(1) � $j3%=m$(21)
� șwm%,,mb3%,mx%-&3C,my%
 � w%(38,1):menu%(4)=�
% � i%(1) $j3%=m$(1) � $j3%=m$(21)
 șwm%,,mb3%,mx%-&3C,my%
" � w%(39,1):menu%(5)=�
,% � i%(2) $j3%=m$(1) � $j3%=m$(21)
6 șwm%,,mb3%,mx%-&3C,my%
@ � w%(40,1):menu%(6)=�
J% � i%(3) $j3%=m$(1) � $j3%=m$(21)
T șwm%,,mb3%,mx%-&3C,my%
^. � w7h%:menu%(7)=�:șwm%,,mb7%,mx%-&4A,my%
h. � w8h%:menu%(8)=�:șwm%,,mb8%,mx%-&4A,my%
r � w9h%:�menu9
| � w0h%:menu%(0)=�:�demo
�)  menu%(2)=�:șwm%,,mb2%,mx%-&48,my%
� �:�
� :
� � �menu9:� mi%=0 �
�) menu%(10)=�:șwm%,,mb9d%,mx%-&28,my%
� �
�' menu%(9)=�:șwm%,,mb9%,mx%-&28,my%
� �
� �
� :
� � �m11(one%,two%)
� mb11%!36=one%
� mb11%!60=two%
 �
 :
 � �mst:�pif
& Ȏ � �
0 � menu%(0):�m0
: � menu%(1):�m1
D � menu%(2):�m2(!pb%)
N � bk% șwm%,,mb2%,0,0
X � menu%(3):�m4(0)
b � menu%(4):�m4(1)
l � menu%(5):�m4(2)
v � menu%(6):�m4(3)
� � menu%(7):vv%=!pb%:�m7
� � bk% șwm%,,mb7%,0,0
�$ � menu%(8):up%=wv%:wv%=!pb%:�m8
� � bk% șwm%,,mb8%,0,0
�# � menu%(9):str%=!pb%:�m9(str%)
� � bk% șwm%,,mb9%,0,0
�$ � menu%(10):dd%()=0:dd%(!pb%)=1
� Ȏ !pb% �
� � 0:delay%=1
� � 1:delay%=2
� � 2:delay%=4
� � 3:delay%=8
� � 4:delay%=16
  delay%=4
 �
( �menublock9d:� bk% șwm%,,mb9d%,0,0
  � menu%(11):Ȏ !pb% �
* � 0:șwsm%,15
4 � 1:șwsm%,28
> 
H �:� bk% șwm%,,mb11%,0,0
R �
\ �
f :
p
 � �m0
z Ȏ !pb% �
� � 1:�outline
� � 2:�clear
� � 3:�exit:�:�
� �
� � bk% șwm%,,mb0%,0,0
� �
� :
� � �outline
� � rto%=� �
� rto%=�:mb0%!60=mf%
� � rto%=�:mb0%!60=mf%+4
� �
�" �adjust1(strip%,w%(strip%,0))
 �
 :
 � �m1:Ȏ !pb% �
$ � 0:�m2(pb%!4)
. � 1
8& � scaled%=� scaled%=� � scaled%=�
B5 � scaled%=� $(mb1%+64)=m$(9) � $(mb1%+64)=m$(10)
L: șwws%,,iw1%:�(w1%!28 �pZ%) � șwfr%,w1h%,0,j1%,k1%,0
V � 2
`# � right%=� right%=� � right%=�
j5 � right%=� $(mb1%+88)=m$(12) � $(mb1%+88)=m$(13)
t �
~ � bk% șwm%,,mb1%,0,0
� �
� :
� � �m2(sh%):Ȏ sh% �
�) � 0:width%=112:� uu%=1:uu%=0 � uu%=1
�( � 1:width%=84:� uu%=2:uu%=0 � uu%=2
�( � 2:width%=84:� uu%=3:uu%=0 � uu%=3
�) � 3:width%=124:� uu%=4:uu%=0 � uu%=4
�  uu%=0
� �:dx%()=0:dx%(uu%)=1
� � go% $wt%=wt$(uu%):�title
� �menublock2:it%=0
� �
 � w%(it%,1)=p80% � �adjust

 it%+=1

 � it%=37
 �
( :
2 � �m4(m%)
<: � i%(m%)=� i%(m%)=�:$j3%=m$(21) � i%(m%)=�:$j3%=m$(1)
F0 !iw4%=w%(k%(m%),1):șwws%,,iw4%:y4%=iw4%!24
P � m%=2 x4%=132 � x4%=100
Z- șwfr%,w%(k%(m%),1),16,y4%-56,x4%,y4%-12
d � bk% șwm%,,mb3%,0,0
n �
x :
�2 � �m7:dv%()=0:dv%(vv%)=1:�menublock7:Ȏ vv% �
� � 0:cv%=&D5:$tx7%=m$(16)
� � 1:cv%=&D1:$tx7%=m$(17)
� � 2:cv%=&DD:$tx7%=m$(15)
�  cv%=&D5:$tx7%=m$(16)
� �
�4 �ld7:�sis(w7h%):șwfr%,w7h%,mid7%,j7%,k7%-6,-44
� �
� :
�) � �m8:dw%()=0:dw%(wv%)=1:�menublock8
�* șwgc%,,ctb%:� (!ctb%=w8h%) șwcp%,-1
�
 Ȏ up% �
�! � 0:�read(&A,rdt%,gdt%,bdt%)
$ �reset(deleted%,deleted%,6,7,8)
! � 1:�read(16,rht%,ght%,bht%)
& �reset(deleted%,deleted%,9,10,11)
"  � 2:�read(2,rbt%,gbt%,bbt%)
,' �reset(deleted%,deleted%,12,13,14)
6  �read(&A,rdt%,gdt%,bdt%)
@$ �reset(deleted%,deleted%,6,7,8)
J �:�mod
T
 Ȏ wv% �
^' � 0:�restore(&D5,4,rdt%,gdt%,bdt%)
h* $tx8%=m$(16):�reset(0,deleted%,6,7,8)
r' � 1:�restore(&D1,3,rht%,ght%,bht%)
|, $tx8%=m$(17):�reset(0,deleted%,9,10,11)
�' � 2:�restore(&DD,9,rbt%,gbt%,bbt%)
�- $tx8%=m$(15):�reset(0,deleted%,12,13,14)
�%  �restore(&D5,4,rdt%,gdt%,bdt%)
�* $tx8%=m$(16):�reset(0,deleted%,6,7,8)
� �
�! � (!ctb%=w8h%) �caret(wv%+1)
� �sis(w8h%):�
� :
� � �caret(ct%)
� iz%=ip%((ctb%!4-6),ct%)
� șwcp%,w8h%,iz%,-1,-1,-1,0
� �
� :
- � �read(base%,ptr%,ptg%,ptb%):Ȏ base% �
 � 2
1 � (47<?ptr%) � (?ptr%<50) � $ptr%="00000000"
&1 � (47<?ptg%) � (?ptg%<50) � $ptg%="00000000"
01 � (47<?ptb%) � (?ptb%<50) � $ptb%="00000000"
:	 � &A
D* � (47<?ptr%) � (?ptr%<58) � $ptr%="0"
N* � (47<?ptg%) � (?ptg%<58) � $ptg%="0"
X* � (47<?ptb%) � (?ptb%<58) � $ptb%="0"
b	 � 16
lI � ((47<?ptr%) � (?ptr%<58)) � ((64<?ptr%) � (?ptr%<71)) � $ptr%="00"
vI � ((47<?ptg%) � (?ptg%<58)) � ((64<?ptg%) � (?ptg%<71)) � $ptg%="00"
�I � ((47<?ptb%) � (?ptb%<58)) � ((64<?ptb%) � (?ptb%<71)) � $ptb%="00"
�$  $ptr%="0":$ptg%="0":$ptb%="0"
� �
�  ș&21,base%,ptr% � ,,rhold%
�  ș&21,base%,ptg% � ,,ghold%
�  ș&21,base%,ptb% � ,,bhold%
� �
� :
�) � �restore(swi%,buf%,ptr%,ptg%,ptb%)
� șswi%,rhold%,ptr%,buf%
� șswi%,ghold%,ptg%,buf%
� șswi%,bhold%,ptb%,buf%
� �
 :
) � �reset(eor%,clear%,nmx%,nmy%,nmz%)
* !sis%=w8h%:sis%!8=eor%:sis%!12=clear%
  sis%!4=nmx%:șwsi%,,sis%
* sis%!4=nmy%:șwsi%,,sis%
4 sis%!4=nmz%:șwsi%,,sis%
> �
H :
R7 � �set9(icon%,eor%,clear%):!sis%=w9h%:sis%!4=icon%
\. sis%!8=eor%:sis%!12=clear%:șwsi%,,sis%:�
f :
p � �process
z/ � !pb%=w8h% �kbd(pb%!&18) � șwpk%,pb%!&18
� �
� :
� � �kbd(kn%):Ȏ kn% �
� � &188:�frus
� � 13:�return
� � &185:up%=wv%:wv%=0:�m8
� � &186:up%=wv%:wv%=1:�m8
� � &187:up%=wv%:wv%=2:�m8
� � &18F:�up
� � &18E:�down
�  șwpk%,kn%
� �
� �
 :
4 � �frus:rhold%=0:ghold%=0:bhold%=0:șwgc%,,ctb%

 Ȏ wv% �
$9 � 0:�restore(&D5,4,rdt%,gdt%,bdt%):�reset(0,0,6,7,8)
.; � 1:�restore(&D1,3,rht%,ght%,bht%):�reset(0,0,9,10,11)
8< � 2:�restore(&DD,9,rbt%,gbt%,bbt%):�reset(0,0,12,13,14)
B7  �restore(&D5,4,rdt%,gdt%,bdt%):�reset(0,0,6,7,8)
L �
V � (!ctb%=w8h%) �caret(0)
` �
j :
t � �up:șwgc%,,ctb%
~ � (!ctb%=w8h%) �caret(4)
� �
� :
� � �down:șwgc%,,ctb%
� � (!ctb%=w8h%) �caret(5)
� �
� :
� � �return:Ȏ wv% �
�! � 0:�read(&A,rdt%,gdt%,bdt%)
�! � 1:�read(16,rht%,ght%,bht%)
�  � 2:�read(2,rbt%,gbt%,bbt%)
�  �read(&A,rdt%,gdt%,bdt%)
�5 �:�mod:ccc%?1=rhold%:ccc%?2=ghold%:ccc%?3=bhold%
 �setcol:�ld7:�output

* rtl%=�:� rto% �adjust1(strip%,indez%)
 �
 :
(2 � �m9(� str%):du%()=0:du%(str%)=1:�menublock9
2 � it%=1 � 4 � 1
< � du%(it%) �
F! �set9(it%,&B000000,&F000000)
P �
Z! �set9(it%,&7000000,&F000000)
d �
n
 � it%
x
 �r9:�
� :
� � �pointer:d9%-=1
� � d9%=-1 �
�3 �pif:ș&32,mx%,my% � ,,pcolour%,ptint%,screen%
�I � screen%=-1 �7 � temp%()=0:!store%(str%)=�pointcol(pcolour%,ptint%)
�: �r9:active%=�:$cap%=m$(41):�set9(0,&7000000,&F000000)
� � str%=0 �
�- !ccc%=!store%(str%):�setcol:�ld7:�output
�* rtl%=�:� rto% �adjust1(strip%,indez%)
� �
� �
�! $s9%=�(d9%):�r9d:ș&42 � nt%
�$ ȕ (nt%-ot%) >= 0:ot%=ot%+gn%:�
 �
 �
 :
" � �restart
, w1%!0=e1%:w1%!4=f1%
6 w1%!8=g1%:w1%!12=h1%
@ w1%!16=0:w1%!20=0
J �
T :
^ � �readmode
h șrm%,-1,3�,,lcols%
r  � lcols%>=&3F go%=� � go%=�
|# șrm%,-1,4�,,xb%:xf%=(2^xb%)/2
�# șrm%,-1,5�,,yb%:yf%=(2^yb%)/2
� ss%!8=�((i1%-k1%)*xf%)
�  ss%!12=�(((j1%-l1%)/2)*yf%)
� � (lcols%=63) �
� table%=0:$wt%=wt$(uu%)
� �
�1 $wt%=wt$(5):șctt%,&F,0,-1,-1,tb%:table%=tb%
� �
� �title:nv%=�:�
� :
� � �title:șwws%,,iw1%
� �(w1%!28 �pY%) �
� șwwo%,,wob%
 2 șwfr%,-1,wob%!4,(wob%!16-44),wob%!12,wob%!16
  �
  �
 & :
 0 � �shut:ht%=0
 : �
 DB � w%(ht%,1)=p80% � !iw2%=w%(ht%,1):șwx%,,iw2%:w%(ht%,1)=p80%
 N ht%+=1
 X
 � ht%=37
 b �
 lB � w%(ht%,1)=p80% � !iw4%=w%(ht%,1):șwx%,,iw4%:w%(ht%,1)=p80%
 v ht%+=1
 �
 � ht%=41
 �0 � w%(41,1)=p80% � șwc%,,iw7%:w%(41,1)=p80%
 � � w%(42,1)=p80% �
 � � Ȏ wv% �
 �! � 0:�read(&A,rdt%,gdt%,bdt%)
 �! � 1:�read(16,rht%,ght%,bht%)
 �  � 2:�read(2,rbt%,gbt%,bbt%)
 �  �read(&A,rdt%,gdt%,bdt%)
 � �:�mod
 � șwc%,,iw8%:w%(42,1)=p80%
 � �
 � � w%(44,1)=p80% �
 � � active%=�:$cap%=m$(41)
! �set9(0,&7000000,&F000000)
! șwc%,,iw9%:w%(44,1)=p80%
! �
!  �
!* :
!4 � �clear:cleared%=�:�shut
!> șwc%,,iw1%:șwc%,,iw0%:�
!H :
!R � �message:Ȏ pb%!16 �
!\ � 0:�exit
!f � ww%:nv%=�
!p � &400CC:�iconise
!z �
!� �
!� :
!� � �iconise
!� msgb%!12=pb%!8
!� msgb%!20=pb%!20
!� msgb%!24=0
!� Ȏ pb%!20 �
!�
 � 0:�
!�# � w1h%:$(msgb%+36)="Cube"+�(0)
!� $(msgb%+28)="bar"+�(0)
!�& � w0h%:$(msgb%+36)="Version"+�(0)
!� $(msgb%+28)="ver"+�(0)
!�$ � w7h%:$(msgb%+36)="Info."+�(0)
" $(msgb%+28)="inf"+�(0)
"$ � w8h%:$(msgb%+36)="Input"+�(0)
" $(msgb%+28)="inp"+�(0)
"$& � w9h%:$(msgb%+36)="Pointer"+�(0)
". $(msgb%+28)="ptr"+�(0)
"8& � w%(37,1):$(msgb%+36)="RGB"+�(0)
"B $(msgb%+28)="rgb"+�(0)
"L& � w%(38,1):$(msgb%+36)="CMY"+�(0)
"V $(msgb%+28)="cmy"+�(0)
"`( � w%(39,1):$(msgb%+36)="Plain"+�(0)
"j $(msgb%+28)="cmp"+�(0)
"t& � w%(40,1):$(msgb%+36)="ECF"+�(0)
"~ $(msgb%+28)="ecf"+�(0)
"� 
"� $(msgb%+36)="????"+�(0)
"� $(msgb%+28)="stp"+�(0)
"�
 it%=0
"� �
"� � w%(it%,1)=pb%!20 �
"� $(msgb%+36)=�(it%)+�(0)
"� it%=36
"� �
"� it%+=1
"�
 � it%=37
"� �
# șwsg%,17,msgb%,pb%!4
#
 �
# :
# � �exit
#( șwz%,th%,task%
#2 � r2% �
#< �
#F :
#P � �create_w2
#Z- w2%!0=e2%:w2%!4=f2%:w2%!8=g2%:w2%!12=h2%
#d1 w2%!16=0:w2%!20=0:w2%!24=-1:w2%!28=&86000002
#n* w2%!32=7:w2%!33=2:w2%!34=0:w2%!35=&FF
#x) w2%!36=3:w2%!37=1:w2%!38=12:w2%!39=0
#�0 w2%!40=i2%:w2%!44=j2%:w2%!48=k2%:w2%!52=l2%
#�. w2%!56=itf%:w2%!60=bf%:w2%!64=1:w2%!68=48
#�6 w2%!70=32:w2%!72=qt%:w2%!76=bs%:w2%!80=0:w2%!84=0
#� șww%,,w2%�handle%
#�
 =handle%
#� :
#� � �create_w4
#�- w4%!0=e4%:w4%!4=f4%:w4%!8=g4%:w4%!12=h4%
#�1 w4%!16=0:w4%!20=0:w4%!24=-1:w4%!28=&BF000002
#�* w4%?32=7:w4%?33=2:w4%?34=7:w4%?35=&FF
#�) w4%?36=3:w4%?37=1:w4%?38=12:w4%?39=0
#�0 w4%!40=i4%:w4%!44=j4%:w4%!48=k4%:w4%!52=l4%
#�6 w4%!56=itf%:w4%!60=0:w4%!64=bs%:w4%!68=0:w4%!70=0
$
 Ȏ it% �
$ �37:w4%!72=t37%
$ �38:w4%!72=t38%
$" �39:w4%!72=t39%
$, �40:w4%!72=t40%
$6 w4%!72=t0%
$@ �
$J! w4%!76=bs%:w4%!80=0:w4%!84=0
$T șww%,,w4%�handle%
$^
 =handle%
$h :
$r � �create_w7
$| � r2% �
$�- w7%!0=e7%:w7%!4=f7%:w7%!8=g7%:w7%!12=h7%
$�1 w7%!16=0:w7%!20=0:w7%!24=-1:w7%!28=&BF000002
$�( w7%?32=7:w7%?33=2:w7%?34=7:w7%?35=1
$�) w7%?36=3:w7%?37=1:w7%?38=12:w7%?39=0
$�0 w7%!40=i7%:w7%!44=j7%:w7%!48=k7%:w7%!52=l7%
$�/ w7%!56=itf%:w7%!60=0:w7%!64=bs%:w7%!68=k7%
$�, w7%!70=0:w7%!72=t7%:w7%!76=bs%:w7%!80=0
$� w7%!84=15
$�- w7%!88=0:w7%!92=-44:w7%!96=280:w7%!100=0
$�6 w7%!104=iff%:w7%!108=tx7%:w7%!112=vx7%:w7%!116=12
$�6 w7%!120=mid7%:w7%!124=-92:w7%!128=274:w7%!132=-48
$�8 w7%!136=txf%:w7%!140=ll%:w7%!144=-1:w7%!148=�($ll%)
$�8 w7%!152=mid7%:w7%!156=-144:w7%!160=274:w7%!164=-100
%8 w7%!168=txf%:w7%!172=tt%:w7%!176=-1:w7%!180=�($tt%)
%8 w7%!184=mid7%:w7%!188=-196:w7%!192=274:w7%!196=-152
%8 w7%!200=txf%:w7%!204=oo%:w7%!208=-1:w7%!212=�($oo%)
%&8 w7%!216=mid7%:w7%!220=-248:w7%!224=274:w7%!228=-204
%08 w7%!232=txf%:w7%!236=nn%:w7%!240=-1:w7%!244=�($nn%)
%:8 w7%!248=mid7%:w7%!252=-300:w7%!256=274:w7%!260=-256
%D8 w7%!264=txf%:w7%!268=rr%:w7%!272=-1:w7%!276=�($rr%)
%N8 w7%!280=mid7%:w7%!284=-352:w7%!288=274:w7%!292=-308
%X8 w7%!296=txf%:w7%!300=gg%:w7%!304=-1:w7%!308=�($gg%)
%b8 w7%!312=mid7%:w7%!316=-404:w7%!320=274:w7%!324=-360
%l8 w7%!328=txf%:w7%!332=bb%:w7%!336=-1:w7%!340=�($bb%)
%v4 w7%!344=6:w7%!348=-92:w7%!352=mid7%:w7%!356=-48
%�@ w7%!360=txf%:w7%!364=colour%:w7%!368=-1:w7%!372=�($colour%)
%�6 w7%!376=6:w7%!380=-144:w7%!384=mid7%:w7%!388=-100
%�< w7%!392=txf%:w7%!396=tint%:w7%!400=-1:w7%!404=�($tint%)
%�6 w7%!408=6:w7%!412=-196:w7%!416=mid7%:w7%!420=-152
%�D w7%!424=txf%:w7%!428=sys_gcol%:w7%!432=-1:w7%!436=�($sys_gcol%)
%�6 w7%!440=6:w7%!444=-248:w7%!448=mid7%:w7%!452=-204
%�B w7%!456=txf%:w7%!460=col_num%:w7%!464=-1:w7%!468=�($col_num%)
%�6 w7%!472=6:w7%!476=-300:w7%!480=mid7%:w7%!484=-256
%�: w7%!488=txf%:w7%!492=red%:w7%!496=-1:w7%!500=�($red%)
%�6 w7%!504=6:w7%!508=-352:w7%!512=mid7%:w7%!516=-308
%�> w7%!520=txf%:w7%!524=green%:w7%!528=-1:w7%!532=�($green%)
%�6 w7%!536=6:w7%!540=-404:w7%!544=mid7%:w7%!548=-360
%�< w7%!552=txf%:w7%!556=blue%:w7%!560=-1:w7%!564=�($blue%)
& �
&- w7%!0=e7%:w7%!4=f7%:w7%!8=g7%:w7%!12=h7%
&1 w7%!16=0:w7%!20=0:w7%!24=-1:w7%!28=&BF000002
& ( w7%?32=7:w7%?33=2:w7%?34=7:w7%?35=1
&*) w7%?36=3:w7%?37=1:w7%?38=12:w7%?39=0
&40 w7%!40=i7%:w7%!44=j7%:w7%!48=k7%:w7%!52=l7%
&>/ w7%!56=itf%:w7%!60=0:w7%!64=bs%:w7%!68=k7%
&H, w7%!70=0:w7%!72=t7%:w7%!76=bs%:w7%!80=0
&R w7%!84=23
&\- w7%!88=0:w7%!92=-44:w7%!96=280:w7%!100=0
&f6 w7%!104=iff%:w7%!108=tx7%:w7%!112=vx7%:w7%!116=12
&p6 w7%!120=mid7%:w7%!124=-92:w7%!128=274:w7%!132=-48
&z8 w7%!136=txf%:w7%!140=ll%:w7%!144=-1:w7%!148=�($ll%)
&�8 w7%!152=mid7%:w7%!156=-144:w7%!160=274:w7%!164=-100
&�8 w7%!168=txf%:w7%!172=tt%:w7%!176=-1:w7%!180=�($tt%)
&�8 w7%!184=mid7%:w7%!188=-196:w7%!192=274:w7%!196=-152
&�8 w7%!200=txf%:w7%!204=oo%:w7%!208=-1:w7%!212=�($oo%)
&�8 w7%!216=mid7%:w7%!220=-248:w7%!224=274:w7%!228=-204
&�8 w7%!232=txf%:w7%!236=nn%:w7%!240=-1:w7%!244=�($nn%)
&�8 w7%!248=mid7%:w7%!252=-300:w7%!256=274:w7%!260=-256
&�8 w7%!264=txf%:w7%!268=rr%:w7%!272=-1:w7%!276=�($rr%)
&�8 w7%!280=mid7%:w7%!284=-352:w7%!288=274:w7%!292=-308
&�8 w7%!296=txf%:w7%!300=gg%:w7%!304=-1:w7%!308=�($gg%)
&�8 w7%!312=mid7%:w7%!316=-404:w7%!320=274:w7%!324=-360
&�8 w7%!328=txf%:w7%!332=bb%:w7%!336=-1:w7%!340=�($bb%)
&�8 w7%!344=mid7%:w7%!348=-456:w7%!352=274:w7%!356=-412
'8 w7%!360=txf%:w7%!364=aa%:w7%!368=-1:w7%!372=�($aa%)
'8 w7%!376=mid7%:w7%!380=-508:w7%!384=274:w7%!388=-464
'8 w7%!392=txf%:w7%!396=mm%:w7%!400=-1:w7%!404=�($mm%)
'$8 w7%!408=mid7%:w7%!412=-560:w7%!416=274:w7%!420=-516
'.8 w7%!424=txf%:w7%!428=yy%:w7%!432=-1:w7%!436=�($yy%)
'88 w7%!440=mid7%:w7%!444=-612:w7%!448=274:w7%!452=-568
'B8 w7%!456=&119:w7%!460=kk%:w7%!464=-1:w7%!468=�($kk%)
'L4 w7%!472=6:w7%!476=-92:w7%!480=mid7%:w7%!484=-48
'V@ w7%!488=txf%:w7%!492=colour%:w7%!496=-1:w7%!500=�($colour%)
'`6 w7%!504=6:w7%!508=-144:w7%!512=mid7%:w7%!516=-100
'j< w7%!520=txf%:w7%!524=tint%:w7%!528=-1:w7%!532=�($tint%)
't6 w7%!536=6:w7%!540=-196:w7%!544=mid7%:w7%!548=-152
'~D w7%!552=txf%:w7%!556=sys_gcol%:w7%!560=-1:w7%!564=�($sys_gcol%)
'�6 w7%!568=6:w7%!572=-248:w7%!576=mid7%:w7%!580=-204
'�B w7%!584=txf%:w7%!588=col_num%:w7%!592=-1:w7%!596=�($col_num%)
'�6 w7%!600=6:w7%!604=-300:w7%!608=mid7%:w7%!612=-256
'�: w7%!616=txf%:w7%!620=red%:w7%!624=-1:w7%!628=�($red%)
'�6 w7%!632=6:w7%!636=-352:w7%!640=mid7%:w7%!644=-308
'�> w7%!648=txf%:w7%!652=green%:w7%!656=-1:w7%!660=�($green%)
'�6 w7%!664=6:w7%!668=-404:w7%!672=mid7%:w7%!676=-360
'�< w7%!680=txf%:w7%!684=blue%:w7%!688=-1:w7%!692=�($blue%)
'�6 w7%!696=6:w7%!700=-456:w7%!704=mid7%:w7%!708=-412
'�< w7%!712=txf%:w7%!716=cyan%:w7%!720=-1:w7%!724=�($cyan%)
'�6 w7%!728=6:w7%!732=-508:w7%!736=mid7%:w7%!740=-464
'�B w7%!744=txf%:w7%!748=magenta%:w7%!752=-1:w7%!756=�($magenta%)
(6 w7%!760=6:w7%!764=-560:w7%!768=mid7%:w7%!772=-516
(
@ w7%!776=txf%:w7%!780=yellow%:w7%!784=-1:w7%!788=�($yellow%)
(6 w7%!792=6:w7%!796=-612:w7%!800=mid7%:w7%!804=-568
(: w7%!808=&119:w7%!812=key%:w7%!816=-1:w7%!820=�($key%)
(( �
(2 ș ww%,,w7% � handle%
(<
 =handle%
(F :
(P � �create_w8
(Z- w8%!0=e8%:w8%!4=f8%:w8%!8=g8%:w8%!12=h8%
(d1 w8%!16=0:w8%!20=0:w8%!24=-1:w8%!28=&87000002
(n( w8%?32=7:w8%?33=2:w8%?34=7:w8%?35=1
(x) w8%?36=0:w8%?37=0:w8%?38=12:w8%?39=0
(�0 w8%!40=i8%:w8%!44=j8%:w8%!48=k8%:w8%!52=l8%
(�$ w8%!56=itf%:w8%!60=0:w8%!64=bs%
(� w8%!68=280:w8%!70=252
(� w8%!72=t8%:w8%!76=bs%
(� w8%!80=0:w8%!84=15
(�- w8%!88=0:w8%!92=-44:w8%!96=280:w8%!100=0
(�6 w8%!104=iff%:w8%!108=tx8%:w8%!112=vx8%:w8%!116=12
(�4 w8%!120=0:w8%!124=-252:w8%!128=140:w8%!132=-200
(�5 w8%!136=iff%:w8%!140=tc8%:w8%!144=vd8%:w8%!148=6
(�6 w8%!152=140:w8%!156=-252:w8%!160=280:w8%!164=-200
(�5 w8%!168=iff%:w8%!172=te8%:w8%!176=vd8%:w8%!180=6
(�2 w8%!184=0:w8%!188=-96:w8%!192=120:w8%!196=-44
(�: w8%!200=txf%:w8%!204=red%:w8%!208=-1:w8%!212=�($red%)
)3 w8%!216=0:w8%!220=-148:w8%!224=120:w8%!228=-96
)> w8%!232=txf%:w8%!236=green%:w8%!240=-1:w8%!244=�($green%)
)4 w8%!248=0:w8%!252=-200:w8%!256=120:w8%!260=-148
)"< w8%!264=txf%:w8%!268=blue%:w8%!272=-1:w8%!276=�($blue%)
),4 w8%!280=120:w8%!284=-92:w8%!288=274:w8%!292=-48
)6> w8%!296=if8%+deleted%:w8%!300=rdt%:w8%!304=vsd%:w8%!308=4
)@6 w8%!312=120:w8%!316=-144:w8%!320=274:w8%!324=-100
)J> w8%!328=if8%+deleted%:w8%!332=gdt%:w8%!336=vsd%:w8%!340=4
)T6 w8%!344=120:w8%!348=-196:w8%!352=274:w8%!356=-152
)^> w8%!360=if8%+deleted%:w8%!364=bdt%:w8%!368=vsd%:w8%!372=4
)h4 w8%!376=120:w8%!380=-92:w8%!384=274:w8%!388=-48
)r> w8%!392=if8%+deleted%:w8%!396=rht%:w8%!400=vsh%:w8%!404=3
)|6 w8%!408=120:w8%!412=-144:w8%!416=274:w8%!420=-100
)�> w8%!424=if8%+deleted%:w8%!428=ght%:w8%!432=vsh%:w8%!436=3
)�6 w8%!440=120:w8%!444=-196:w8%!448=274:w8%!452=-152
)�> w8%!456=if8%+deleted%:w8%!460=bht%:w8%!464=vsh%:w8%!468=3
)�4 w8%!472=120:w8%!476=-92:w8%!480=274:w8%!484=-48
)�> w8%!488=if8%+deleted%:w8%!492=rbt%:w8%!496=vsb%:w8%!500=9
)�6 w8%!504=120:w8%!508=-144:w8%!512=274:w8%!516=-100
)�> w8%!520=if8%+deleted%:w8%!524=gbt%:w8%!528=vsb%:w8%!532=9
)�6 w8%!536=120:w8%!540=-196:w8%!544=274:w8%!548=-152
)�> w8%!552=if8%+deleted%:w8%!556=bbt%:w8%!560=vsb%:w8%!564=9
)� ș ww%,,w8% � handle%
)�
 =handle%
)� :
)� � �create_w9
*- w9%!0=e9%:w9%!4=f9%:w9%!8=g9%:w9%!12=h9%
*1 w9%!16=0:w9%!20=0:w9%!24=-1:w9%!28=&87000002
** w9%?32=7:w9%?33=2:w9%?34=7:w9%?35=&FF
*&) w9%?36=0:w9%?37=0:w9%?38=12:w9%?39=0
*00 w9%!40=i9%:w9%!44=j9%:w9%!48=k9%:w9%!52=l9%
*:: w9%!56=itf%:w9%!60=0:w9%!64=bs%:w9%!68=280:w9%!70=260
*D, w9%!72=t9%:w9%!76=bs%:w9%!80=0:w9%!84=6
*N1 w9%!88=0:w9%!92=-260:w9%!96=140:w9%!100=-208
*X5 w9%!104=iff%:w9%!108=cap%:w9%!112=vd8%:w9%!116=8
*b/ w9%!120=0:w9%!124=-52:w9%!128=70:w9%!132=0
*l5 w9%!136=iff%:w9%!140=st1%:w9%!144=vs9%:w9%!148=2
*v2 w9%!152=0:w9%!156=-104:w9%!160=70:w9%!164=-52
*�5 w9%!168=iff%:w9%!172=st2%:w9%!176=vs9%:w9%!180=2
*�3 w9%!184=0:w9%!188=-156:w9%!192=70:w9%!196=-104
*�5 w9%!200=iff%:w9%!204=st3%:w9%!208=vs9%:w9%!212=2
*�3 w9%!216=0:w9%!220=-208:w9%!224=70:w9%!228=-156
*�5 w9%!232=iff%:w9%!236=st4%:w9%!240=vs9%:w9%!244=2
*�6 w9%!248=140:w9%!252=-260:w9%!256=280:w9%!260=-208
*�5 w9%!264=iff%:w9%!268=te8%:w9%!272=vd8%:w9%!276=6
*� ș ww%,,w9% � handle%
*�
 =handle%
*� :
*� � �menublock0:$mb0%=$des%
*�, mb0%?12=7:mb0%?13=2:mb0%?14=7:mb0%?15=0
*�% mb0%!16=160:mb0%!20=44:mb0%!24=0
+ mb0%!28=0:mb0%!32=w0h%
+  mb0%!36=mf%:$(mb0%+40)=im0$
+ mb0%!52=0:mb0%!56=-1
+ " mb0%!60=mf%+4:$(mb0%+64)=im1$
+* mb0%!76=2:mb0%!80=-1
+4  mb0%!84=mf%:$(mb0%+88)=im2$
+># mb0%!100=lastitem%:mb0%!104=-1
+H" mb0%!108=mf%:$(mb0%+112)=im3$
+R �
+\ :
+f � �menublock1:$mb1%=m$(0)
+p, mb1%?12=7:mb1%?13=2:mb1%?14=7:mb1%?15=0
+z% mb1%!16=108:mb1%!20=44:mb1%!24=0
+� mb1%!28=0:mb1%!32=mb2%
+�! mb1%!36=mf%:$(mb1%+40)=m$(1)
+� mb1%!52=0:mb1%!56=-1
+�! mb1%!60=mf%:$(mb1%+64)=m$(9)
+�! mb1%!76=lastitem%:mb1%!80=-1
+�" mb1%!84=mf%:$(mb1%+88)=m$(12)
+� �
+� :
+� � �menublock2:$mb2%=m$(4)
+�, mb2%?12=7:mb2%?13=2:mb2%?14=7:mb2%?15=0
+�% mb2%!16=152:mb2%!20=44:mb2%!24=0
+� mb2%!28=dx%(1):mb2%!32=-1
+�! mb2%!36=mf%:$(mb2%+40)=m$(5)
, mb2%!52=dx%(2):mb2%!56=-1
,! mb2%!60=mf%:$(mb2%+64)=m$(6)
, mb2%!76=dx%(3):mb2%!80=-1
,$" mb2%!84=mf%:$(mb2%+88)=m$(32)
,.* mb2%!100=lastitem%+dx%(4):mb2%!104=-1
,8# mb2%!108=mf%:$(mb2%+112)=m$(8)
,B �
,L :
,V � �menublock3:$mb3%=m$(14)
,`, mb3%?12=7:mb3%?13=2:mb3%?14=7:mb3%?15=0
,j$ mb3%!16=80:mb3%!20=44:mb3%!24=0
,t! mb3%!28=lastitem%:mb3%!32=-1
,~3 mb3%!36=mf11%:mb3%!40=j3%:mb3%!44=-1:mb3%!48=5
,� �
,� :
,� � �menublock7:$mb7%=m$(11)
,�, mb7%?12=7:mb7%?13=2:mb7%?14=7:mb7%?15=0
,�% mb7%!16=188:mb7%!20=44:mb7%!24=0
,� mb7%!28=dv%(0):mb7%!32=-1
,�" mb7%!36=mf%:$(mb7%+40)=m$(16)
,� mb7%!52=dv%(1):mb7%!56=-1
,�" mb7%!60=mf%:$(mb7%+64)=m$(17)
,�( mb7%!76=lastitem%+dv%(2):mb7%!80=-1
,�" mb7%!84=mf%:$(mb7%+88)=m$(15)
,� �
- :
-
 � �menublock8:$mb8%=m$(11)
-, mb8%?12=7:mb8%?13=2:mb8%?14=7:mb8%?15=0
-% mb8%!16=188:mb8%!20=44:mb8%!24=0
-( mb8%!28=dw%(0):mb8%!32=-1
-2" mb8%!36=mf%:$(mb8%+40)=m$(16)
-< mb8%!52=dw%(1):mb8%!56=-1
-F" mb8%!60=mf%:$(mb8%+64)=m$(17)
-P( mb8%!76=lastitem%+dw%(2):mb8%!80=-1
-Z" mb8%!84=mf%:$(mb8%+88)=m$(15)
-d �
-n :
-x � �menublock9:$mb9%=m$(33)
-�, mb9%?12=7:mb9%?13=2:mb9%?14=7:mb9%?15=0
-�$ mb9%!16=52:mb9%!20=44:mb9%!24=0
-� mb9%!28=du%(0):mb9%!32=-1
-�# mb9%!36=mf9%:$(mb9%+40)=m$(34)
-� mb9%!52=du%(1):mb9%!56=-1
-�# mb9%!60=mf9%:$(mb9%+64)=m$(35)
-� mb9%!76=du%(2):mb9%!80=-1
-�# mb9%!84=mf9%:$(mb9%+88)=m$(36)
-�  mb9%!100=du%(3):mb9%!104=-1
-�% mb9%!108=mf9%:$(mb9%+112)=m$(37)
-�* mb9%!124=lastitem%+du%(4):mb9%!128=-1
-�% mb9%!132=mf9%:$(mb9%+136)=m$(38)
-� �
. :
.! � �menublock9d:$mb9d%=m$(42)
.0 mb9d%?12=7:mb9d%?13=2:mb9d%?14=7:mb9d%?15=0
."' mb9d%!16=52:mb9d%!20=44:mb9d%!24=0
.,  mb9d%!28=dd%(0):mb9d%!32=-1
.6% mb9d%!36=mf9%:$(mb9d%+40)=m$(35)
.@  mb9d%!52=dd%(1):mb9d%!56=-1
.J% mb9d%!60=mf9%:$(mb9d%+64)=m$(36)
.T  mb9d%!76=dd%(2):mb9d%!80=-1
.^% mb9d%!84=mf9%:$(mb9d%+88)=m$(38)
.h" mb9d%!100=dd%(3):mb9d%!104=-1
.r' mb9d%!108=mf9%:$(mb9d%+112)=m$(43)
.|, mb9d%!124=lastitem%+dd%(4):mb9d%!128=-1
.�' mb9d%!132=mf9%:$(mb9d%+136)=m$(44)
.� �
.� :
.�! � �menublock11:$mb11%=m$(45)
.�0 mb11%?12=7:mb11%?13=2:mb11%?14=7:mb11%?15=0
.�( mb11%!16=328:mb11%!20=44:mb11%!24=0
.� mb11%!28=0:mb11%!32=-1
.�! mb11%!36=mf11%:mb11%!40=a11%
.�" mb11%!44=-1:mb11%!48=�($a11%)
.�# mb11%!52=lastitem%:mb11%!56=-1
.�! mb11%!60=mf11%:mb11%!64=b11%
.�" mb11%!68=-1:mb11%!72=�($b11%)
.� �
/ :
/
 � �p1
/+ !p1%=16:p1%!4=-56:p1%!8=132:p1%!12=-12
/&  p1%!16=&2700013D:p1%!20=s1%
/0 p1%!24=-1:p1%!28=�($s1%)
/:/ p1%!32=16:p1%!36=-56:p1%!40=100:p1%!44=-12
/D  p1%!48=&2700013D:p1%!52=s2%
/N p1%!56=-1:p1%!60=�($s2%)
/X �
/b :
/l+ � �q1:p1%!4=pb%!24-56:p1%!12=pb%!24-12
/v( p1%!36=pb%!24-56:p1%!44=pb%!24-12:�
/� :
/�
 � �p2
/�+ !p2%=16:p2%!4=-56:p2%!8=100:p2%!12=-12
/� p2%!16=&11D:p2%!20=s3%
/� p2%!24=-1:p2%!28=�($s3%)
/�/ p2%!32=16:p2%!36=-56:p2%!40=100:p2%!44=-12
/� p2%!48=&700011D:p2%!52=s4%
/� p2%!56=-1:p2%!60=�($s4%)
/� �
/� :
/�+ � �q2:p2%!4=pb%!24-56:p2%!12=pb%!24-12
/�( p2%!36=pb%!24-56:p2%!44=pb%!24-12:�
/� :
0
 � �p9
0 !p9%=120:p9%!4=-132
0 p9%!8=216:p9%!12=-76
0  p9%!16=&700013D:p9%!20=s9%
0* p9%!24=-1:p9%!28=�($s9%)
04 �
0> :
0H � �init
0R �values
0\ șhs%,1
0f �memory
0p
 �strings
0z	 �set
0� �sprite
0�8 șwi%,200,task%,des% �version%,th%:bh%=�create_icon
0� � version%<300 r2%=�
0� !ccc%=&FFFFFF00:�setcol
0� w0h%=�create_w0:!iw0%=w0h%
0�* w1h%=�create_w1:!iw1%=w1h%:!wob%=w1h%
0� � r2% j7%=-408:f7%=-408
0� w7h%=�create_w7:!iw7%=w7h%
0�8 w8h%=�create_w8:!iw8%=w8h%:�reset(0,deleted%,6,7,8)
0� w9h%=�create_w9:!iw9%=w9h%
0� �readmode
0�
 �data
0�
 �colours
1 �dd
1
 �shuffle
1 �menublock0
1$ �menublock1
1. �menublock2
18 �menublock3
1B �menublock7
1L �menublock8
1V �menublock9
1` �menublock9d
1j �menublock11
1t �p1
1~ �p2
1� �p9
1�	 �ld7
1�
 șhf%
1� �
1� :
1� � �values:task%=&4B534154
1�% p80%=&8000:pY%=&10000:pZ%=&40000
1�& em%=&40000:hm%=&40600:ctm%=&40700
1� hf%=hm%+&C1:hs%=hm%+&C3
1�- ctt%=ctm%+&40:crg%=ctm%+&42:cs%=ctm%+&43
1�- crn%=ctm%+&44:cn%=ctm%+&4C:crc%=ctm%+&5A
1� wi%=em%+&C0:ww%=em%+&C1
2 wj%=em%+&C2:wx%=em%+&C3
2
 wo%=em%+&C5:wc%=em%+&C6
2 wr%=em%+&C8:wu%=em%+&C9
2 wg%=em%+&CA:wws%=em%+&CB
2( wsi%=em%+&CD
22 wgp%=em%+&CF:wfr%=em%+&D1
2< wcp%=em%+&D2
2F wgc%=em%+&D3:wm%=em%+&D4
2P wpk%=em%+&DC:wz%=em%+&DD
2Z wre%=em%+&DF:wpt%=em%+&E1
2d wsm%=em%+&E3:wsg%=em%+&E7
2n wwo%=em%+&E0:wpi%=em%+&E2
2x osn%=&46:osp%=&45:rm%=&35
2� sp%=&2E:sz%=&CCB4:sq%=&900
2�! i1%=0:j1%=-672:k1%=540:l1%=0
2�4 e1%=i1%+370:f1%=j1%+808:g1%=k1%+370:h1%=l1%+808
2�? i4%=0:j4%=-976:k4%=1024:l4%=0:e4%=0:h4%=0:g4%=144:f4%=-144
2�  xra=2.8:yra=2.7:factor=0.29
2�; i2%=0:j2%=-44*16:k2%=124:l2%=0:e2%=0:f2%=0:g2%=0:h2%=0
2�! i7%=0:j7%=-616:k7%=280:l7%=0
2�+ e7%=0:f7%=-616:g7%=280:h7%=0:mid7%=128
2�! i8%=0:j8%=-252:k8%=280:l8%=0
2�! e8%=0:f8%=-252:g8%=280:h8%=0
2�! i9%=0:j9%=-260:k9%=280:l9%=0
2�! e9%=0:f9%=-260:g9%=280:h9%=0
2�$ width%=84:ppa%=&40+4:efp%=&C8+5
3- rf%=&60:rfa%=rf%+4:rfr%=rf%+1:rfp%=rf%+5
3 len%=0:sft%=0
3 itf%=&11A
3" txf%=&7000119
3, bf%=&3000
36 inf%=&700013D
3@ pf%=&81830
3J shaded%=&400000
3T mf%=&7000021
3^ mf11%=&7000121
3h mfs11%=&7400121
3r mf9%=&7000029
3| if8%=&700F13D
3� iff%=&701913B
3� lastitem%=&80
3� r2%=�:nv%=�
3� scaled%=�:right%=�
3� rto%=�:rtl%=�:rtd%=�
3�. strip%=0:oldstrip%=0:indez%=0:oldindez%=0
3�9 deleted%=&800000:cv%=&D5:acc%=0:mcc%=0:ycc%=0:kcc%=0
3�' x4%=132:bk%=�:active%=�:cleared%=�
3�7 uu%=0:vv%=0:wv%=0:up%=0:rhold%=0:ghold%=0:bhold%=0
3�* more%=0:rc%=0:xb%=0:yb%=0:xf%=0:yf%=0
3� �
3� :
3�$ � �memory:� li% 1023:� lj% 1023
4# � erb% 255:� pb% 255:� tb% 255
4- � menu%(11):� msgb% 47:� ic% 8:� des% 11
4 � iw0% 379:w0%=iw0%+4
4& � iw1% 91:w1%=iw1%+4
40 � iw2% 91:w2%=iw2%+4
4: � iw4% 91:w4%=iw4%+4
4D � iw7% 827:w7%=iw7%+4
4N � iw8% 571:w8%=iw8%+4
4X � iw9% 283:w9%=iw9%+4
4b � null% 0:� dms% 8
4l � rdt% 3:� gdt% 3:� bdt% 3
4v � rht% 2:� ght% 2:� bht% 2
4� � rbt% 8:� gbt% 8:� bbt% 8
4�" � vsd% 63:� vsh% 63:� vsb% 63
4�* � tx7% 11:� tx8% 11:� tc8% 5:� te8% 5
4�1 � vx7% 8:� vx8% 8:� vd8% 8:� cap% 8:� vs9% 8
4�( � st1% 1:� st2% 1:� st3% 1:� st4% 1
4�6 � str0% 3:� str1% 3:� str2% 3:� str3% 3:� str4% 3
4�0 � store%(4):store%(0)=str0%:store%(1)=str1%
4�4 store%(2)=str2%:store%(3)=str3%:store%(4)=str4%
4� � pif% 19:� ip%(8,6)
4�" � rdec% 3:� gdec% 3:� bdec% 3
4�" � rhex% 2:� ghex% 2:� bhex% 2
4�" � rbin% 8:� gbin% 8:� bbin% 8
4�" � wob% 19:� ctb% 23:� sis% 15
5 � w%(44,5):� n% 4
5  � temp%(4):� x%(6):� y%(12)
5 � dst% 199:� b0% 35
5 ( � p1% 63:� p2% 63:� p9% 31:� fw%(4)
5*, � s1% 5:� s2% 3:� s3% 3:� s4% 3:� s9% 2
54$ � mb0% 123:� mb1% 99:� mb2% 123
5>" � mb3% 51:� mb7% 99:� mb8% 99
5H& � mb9% 147:� mb9d% 147:� mb11% 75
5R � i%(3):� j3% 4:� k%(3)
5\1 � du%(4):� dd%(4):� dv%(2):� dw%(2):� dx%(4)
5f5 � colour% 6:� tint% 4:� sys_gcol% 4:� col_num% 6
5p" � red% 3:� green% 5:� blue% 4
5z0 � cyan% 4:� magenta% 7:� yellow% 6:� key% 3
5�$ � ll% 8:� tt% 8:� oo% 8:� nn% 8
5� � rr% 8:� gg% 8:� bb% 8
5�$ � aa% 8:� mm% 8:� yy% 8:� kk% 8
5� � ccc% 3:� ddd% 3
5� � cr% 3:� cg% 3:� cb% 3
5� � cc% 3:� cm% 3:� cy% 3
5�, � c1% 3:� c2% 3:� c3% 3:� c7% 3:� c8% 3
5� � bg% 3:� grey% 3
5� � ss% 15:� bs% sz%
5� � wt% 23:� wt$(5):� m$(55)
5�" � in1% 25:� in2% 24:� in3% 21
5�( � in4% 5:� in5% 8:� in6% 8:� in7% 7
5� � a11% 20:� b11% 20
6 �
6 :
6. � �set:nt%=0:ot%=0:gn%=100:mt%=1:base%=&A
6$, icon%=�:i%(0)=�:i%(1)=�:i%(2)=�:i%(3)=�
6.3 k%(0)=37:k%(1)=38:k%(2)=39:k%(3)=40:$j3%=m$(1)
68F str%=0:du%()=0:du%(0)=1:dv%()=0:dv%(0)=1:dw%()=0:dw%(0)=1:dx%()=0
6B$ delay%=4:d9%=4:dd%()=0:dd%(2)=1
6L2 str0%?0=0:str0%?1=&BB:str0%?2=&BB:str0%?3=&BB
6V2 str1%?0=0:str1%?1=&AA:str1%?2=&AA:str1%?3=&AA
6`2 str2%?0=0:str2%?1=&99:str2%?2=&99:str2%?3=&99
6j2 str3%?0=0:str3%?1=&88:str3%?2=&88:str3%?3=&88
6t2 str4%?0=0:str4%?1=&77:str4%?2=&77:str4%?3=&77
6~2 $s9%="4":�zero:�restore(&D5,4,rdt%,gdt%,bdt%)
6� nmx%=6:nmy%=7:nmz%=8
6�8 $tx7%=m$(16):$tx8%=m$(16):$tc8%=m$(22):$te8%=m$(23)
6�7 $vx7%="Scxn,cxo":$vx8%="Scxn,cxo":$vd8%="Siof,ion"
6�" $cap%=m$(41):$vs9%="Ssrf,srn"
6�8 $st1%=m$(35):$st2%=m$(36):$st3%=m$(37):$st4%=m$(38)
6�* xcn%=0:$null%=m$(39):$dms%="Sdmf,dmn"
6�A $colour%=m$(2):$tint%=m$(3):$sys_gcol%=m$(6):$col_num%=m$(7)
6�. $red%=m$(18):$green%=m$(19):$blue%=m$(20)
6�@ $cyan%=m$(28):$magenta%=m$(29):$yellow%=m$(30):$key%=m$(31)
6�- $vsd%="A0-9":$vsh%="A0-9A-F":$vsb%="A01"
6�4 $s1%=m$(26):$s2%=m$(27):$s3%=m$(24):$s4%=m$(25)
6�+ $in1%=m$(48):$in2%=m$(49):$in3%=m$(50)
78 $in4%=m$(52):$in5%=m$(53):$in6%=m$(54):$in7%=m$(55)
7
) wd$=m$(51):$a11%=m$(46):$b11%=m$(47)
74 !msgb%=48:msgb%!12=0:msgb%!16=&400CC:msgb%!24=0
7 $(msgb%+28)="bar"+�(0)
7( �
72 :
7< � �zero
7F" $rdt%="0":$gdt%="0":$bdt%="0"
7P" $rht%="0":$ght%="0":$bht%="0"
7Z" $rbt%="0":$gbt%="0":$bbt%="0"
7d �
7n :
7x � �strings
7� $ic%="icon_bar"
7� $des%="Colour Cube"
7�  wt$(0)="256 Colour Display"
7�  wt$(1)="COLOUR/GCOL & TINT"
7�# wt$(2)="Operating System GCOL"
7�# wt$(3)="Logical Colour NUMBER"
7�# wt$(4)="BLUE�GREEN�RED (Hex.)"
7�% wt$(5)="for 256 colour mode use"
7� im0$="Info."
7� im1$="Entry"
7� im2$="Clear"
7� im3$="Quit"
7� m$(0)="Options"
8 m$(1)="Show"
8 m$(2)="Colour"
8 m$(3)="Tint"
8" m$(4)="Designation"
8, m$(5)="Col/Tint"
86 m$(6)="GCOL"
8@ m$(7)="Number"
8J m$(8)="B�G�R (&)"
8T m$(9)="Scale"
8^ m$(10)="Scroll"
8h m$(11)="Base"
8r m$(12)="Right"
8| m$(13)="Left"
8� m$(14)="Title"
8� m$(15)="Binary"
8� m$(16)="Decimal"
8� m$(17)="Hexadecimal"
8� m$(18)="Red"
8� m$(19)="Green"
8� m$(20)="Blue"
8� m$(21)="Off"
8� m$(22)="Clear"
8� m$(23)="Enter"
8� m$(24)="RGB"
8� m$(25)="CMY"
8� m$(26)="Plain"
9 m$(27)="ECF"
9 m$(28)="Cyan"
9 m$(29)="Magenta"
9& m$(30)="Yellow"
90 m$(31)="Key"
9: m$(32)="Number��P"
9D m$(33)="Store"
9N m$(34)="0"
9X m$(35)="1"
9b m$(36)="2"
9l m$(37)="3"
9v m$(38)="4"
9� m$(39)=""
9� m$(40)="ACTIVE"
9� m$(41)="Capture"
9� m$(42)="Delay"
9� m$(43)="8"
9� m$(44)="16"
9� m$(45)="change mode?"
9�" m$(46)="15 (TV standard-RGB)"
9�" m$(47)="28 (Multiscan / VGA)"
9�' m$(48)="256-colour option utility"
9�& m$(49)="� Acorn Archimedes World"
9� m$(50)="3.10 (July 1994)"
9� m$(51)="<ColourCube$Dir>."
: m$(52)="Name:"
: m$(53)="Purpose:"
: m$(54)="Version:"
:  m$(55)="Notice:"
:* �
:4 :
:>/ � �sprite:!bs%=sz%:bs%!8=16:șsp%,&109,bs%
:H  șsp%,&10A,bs%,wd$+"visual"
:R" șsp%,&118,bs%,"Hex256"�,,hx%
:\ șsp%,&118,bs%,"qt"�,,qt%
:f șsp%,&118,bs%,"t0"�,,t0%
:p  șsp%,&118,bs%,"t37"�,,t37%
:z  șsp%,&118,bs%,"t38"�,,t38%
:�  șsp%,&118,bs%,"t39"�,,t39%
:�  șsp%,&118,bs%,"t40"�,,t40%
:� șsp%,&118,bs%,"t7"�,,t7%
:� șsp%,&118,bs%,"t8"�,,t8%
:� șsp%,&118,bs%,"t9"�,,t9%
:�  șsp%,&118,bs%,"iof"�,,iof%
:�  șsp%,&118,bs%,"ion"�,,ion%
:�  șsp%,&118,bs%,"dmn"�,,dmn%
:�  șsp%,&118,bs%,"cxn"�,,cxn%
:�  șsp%,&118,bs%,"cxo"�,,cxo%
:�  șsp%,&118,bs%,"dmf"�,,dmf%
:�  șsp%,&118,bs%,"srf"�,,srf%
:�  șsp%,&118,bs%,"srn"�,,srn%
; �
; :
; � �create_icon
;$0 !b0%=-1:b0%!4=0:b0%!8=0:b0%!12=64:b0%!16=72
;.% b0%!20=&3102:b0%!24=ic%:b0%!28=1
;8( b0%!32=�($ic%):șwj%,,b0% � handle%
;B
 =handle%
;L :
;V � �create_w1
;`- w1%!0=e1%:w1%!4=f1%:w1%!8=g1%:w1%!12=h1%
;j1 w1%!16=0:w1%!20=0:w1%!24=-1:w1%!28=&FF000002
;t* w1%?32=7:w1%?33=2:w1%?34=7:w1%?35=&FF
;~) w1%?36=3:w1%?37=1:w1%?38=12:w1%?39=0
;�0 w1%!40=i1%:w1%!44=j1%:w1%!48=k1%:w1%!52=l1%
;�9 w1%!56=&119:w1%!60=bf%:w1%!64=1:w1%!68=68:w1%!70=108
;�1 w1%!72=wt%:w1%!76=-1:w1%!80=�($wt%):w1%!84=0
;� ș ww% ,,w1% � handle%
;�
 =handle%
;� :
;� � �create_w0
;�* w0%!0=0:w0%!4=-240:w0%!8=598:w0%!12=0
;�1 w0%!16=0:w0%!20=0:w0%!24=-1:w0%!28=&87000012
;�( w0%?32=7:w0%?33=2:w0%?34=7:w0%?35=1
;�) w0%?36=3:w0%?37=1:w0%?38=12:w0%?39=0
;�- w0%!40=0:w0%!44=-240:w0%!48=598:w0%!52=0
</ w0%!56=itf%:w0%!60=0:w0%!64=bs%:w0%!68=598
<
7 w0%!70=240:w0%!72=t0%:w0%!76=bs%:w0%!80=0:w0%!84=9
<1 w0%!88=252:w0%!92=-80:w0%!96=592:w0%!100=-28
<: w0%!104=inf%:w0%!108=des%:w0%!112=-1:w0%!116=�($des%)
<(5 w0%!120=160:w0%!124=-132:w0%!128=592:w0%!132=-84
<2: w0%!136=inf%:w0%!140=in1%:w0%!144=-1:w0%!148=�($in1%)
<<6 w0%!152=160:w0%!156=-184:w0%!160=592:w0%!164=-136
<F: w0%!168=inf%:w0%!172=in3%:w0%!176=-1:w0%!180=�($in3%)
<P6 w0%!184=160:w0%!188=-236:w0%!192=592:w0%!196=-188
<Z: w0%!200=inf%:w0%!204=in2%:w0%!208=-1:w0%!212=�($in2%)
<d3 w0%!216=48:w0%!220=-76:w0%!224=118:w0%!228=-12
<n; w0%!232=&1701913B:w0%!236=null%:w0%!240=dms%:w0%!244=1
<x4 w0%!248=160:w0%!252=-80:w0%!256=248:w0%!260=-28
<�> w0%!264=&7000311:w0%!268=in4%:w0%!272=-1:w0%!276=�($in4%)
<�3 w0%!280=6:w0%!284=-132:w0%!288=156:w0%!292=-84
<�> w0%!296=&7000311:w0%!300=in5%:w0%!304=-1:w0%!308=�($in5%)
<�4 w0%!312=6:w0%!316=-184:w0%!320=156:w0%!324=-136
<�> w0%!328=&7000311:w0%!332=in6%:w0%!336=-1:w0%!340=�($in6%)
<�4 w0%!344=6:w0%!348=-236:w0%!352=156:w0%!356=-188
<�> w0%!360=&7000311:w0%!364=in7%:w0%!368=-1:w0%!372=�($in7%)
<� ș ww%,,w0% � handle%
<�
 =handle%
<� :
<� � �demo
<� � mi%=4 � �
<�5 șhs%,1:�shut:șwc%,,iw1%:șwc%,,iw0%:cleared%=�
=' width%=84:uu%=0:dx%()=0:dx%(uu%)=1
=% � go% $wt%=wt$(uu%) �$wt%=wt$(5)
=, scaled%=�:$(mb1%+64)=m$(10):�menublock2
=" � it%=0 � 36
=,/ j2%=-44*(w%(it%,4)+1):w%(it%,1)=�create_w2
=6
 � it%
=@ �reconstruct(38)
=J9 w1%!0=xxx%:w1%!4=yyy%+j1%:w1%!8=xxx%+526:w1%!12=yyy%
=T, w1%!16=0:w1%!20=0:w1%!24=-1:șwo%,,iw1%
=^ � it%=30 � 36
=h, �reconstruct(it%):iw2%!0=w%(display%,1)
=r! w2%!0=xxx%:w2%!8=xxx%+width%
=|1 w2%!12=yyy%:w2%!4=yyy%-44*(w%(display%,4)+1)
=� w2%!24=-1:șwo%,,iw2%
=�
 � it%
=� � it%=29 � 0 � -1
=�, �reconstruct(it%):iw2%!0=w%(display%,1)
=�! w2%!0=xxx%:w2%!8=xxx%+width%
=�1 w2%!12=yyy%:w2%!4=yyy%-44*(w%(display%,4)+1)
=� w2%!24=-1:șwo%,,iw2%
=�
 � it%
=� șhf%:�
=� :
=�1 � �reconstruct(kt%):display%=?(dst%+(kt%*5))
=�5 xhigh%=?(dst%+(kt%*5)+1):xlow%=?(dst%+(kt%*5)+2)
=�5 yhigh%=?(dst%+(kt%*5)+3):ylow%=?(dst%+(kt%*5)+4)
>6 xxx%=xlow%+(&100*xhigh%):yyy%=ylow%+(&100*yhigh%)
> �
> :
>&
 � �dd
>0 demo%=�(wd$+"Demo")
>: �#demo%=0
>D � it%=0 � 199
>N dst%?it%=�#demo%
>X
 � it%
>b �#demo%
>l �
>v :
>�
 � �error
>� !erb%=�
>�5 $(erb%+4)=�$+"(internal error code "+Þ+")"+�(0)
>�) șwre%,erb%,&11,"shock horror crash"
>� �:�
>� :
>� � �colours
>� colours%=�(wd$+"Colours")
>� �#colours%=0
>� � it%=0 � 255
>�  ?(li%+(4*it%)+3)=�#colours%
>�  ?(lj%+(4*it%)+3)=�#colours%
>�
 � it%
? �#colours%:�
? :
? � �shuffle
?  � it%=0 � &FF
?* fl%=(4*it%)+3
?4 �scramble(?(li%+fl%))
?> � jt%=0 � 3
?H" ?(li%+(4*it%)+jt%)=temp%(jt%)
?R
 � jt%
?\ �scramble(?(lj%+fl%))
?f � jt%=0 � 3
?p" ?(lj%+(4*it%)+jt%)=temp%(jt%)
?z
 � jt%
?�
 � it%
?� �
?� :
?�0 � �scramble(bits%):temp%()=0:temp%(4)=bits%
?�; temp%(0)=temp%(4)�&3:temp%(0)=(temp%(0))�(temp%(0)<<4)
?�; temp%(1)=temp%(4)�12:temp%(1)=(temp%(1))�(temp%(1)<<4)
?�@ temp%(2)=temp%(4)�&30:temp%(2)=(temp%(2)>>>2)�(temp%(2)<<2)
?�= temp%(3)=temp%(4)�&C0:temp%(3)=(temp%(3))�(temp%(3)>>>4)
?�B temp%(1)=(temp%(1))�(temp%(0)):temp%(2)=(temp%(2))�(temp%(0))
?�0 temp%(3)=(temp%(3))�(temp%(0)):temp%(0)=0:�
?� :
?�# � �pointcol(temp%(0),temp%(4))
?�  temp%(4)=(temp%(4)�&C0)>>>6
@9 temp%(1)=(temp%(0)�&3)<<2:temp%(1)=temp%(1)�temp%(4)
@$ temp%(1)=temp%(1)�(temp%(1)<<4)
@4 temp%(2)=temp%(0)�&C:temp%(2)=temp%(2)�temp%(4)
@$$ temp%(2)=temp%(2)�(temp%(2)<<4)
@.; temp%(3)=(temp%(0)�&30)>>>2:temp%(3)=temp%(3)�temp%(4)
@8$ temp%(3)=temp%(3)�(temp%(3)<<4)
@B& ddd%?3=temp%(3):ddd%?(2)=temp%(2)
@L ddd%?1=temp%(1):ddd%?0=0
@V =!ddd%
@` :
@j
 � �dn
@t �
@~ :
@� � �data
@� � it%=0 � 44
@� w%(it%,0)=0:w%(it%,1)=p80%
@�
 � it%
@�8 index%=0:w%(0,4)=&F:w%(0,5)=index%:index%=index%+16
@� � it%=1 � 6
@�3 w%(it%,4)=11:w%(it%,5)=index%:index%=index%+12
@�
 � it%
@� � it%=7 � 18
@�1 w%(it%,4)=7:w%(it%,5)=index%:index%=index%+8
@�
 � it%
@� � it%=19 � 36
A1 w%(it%,4)=3:w%(it%,5)=index%:index%=index%+4
A

 � it%
A � it%=0 � 6
A x%(it%)=48+(it%*74)
A(
 � it%
A2 � it%=0 � 12
A< y%(it%)=j1%+(it%+1)*48
AF
 � it%
AP �
AZ � it%=0 � 44
Ad � jt%=2 � 3
An � w%(it%,jt%)
Ax
 � jt%
A�
 � it%
A� � it%=0 � 8
A� � jt%=0 � 6
A� � ip%(it%,jt%)
A�
 � jt%
A�
 � it%
A� �
A� :
A�* � x%(3),y%(6),x%(4),y%(7),x%(3),y%(8)
A�* � x%(2),y%(7),x%(2),y%(5),x%(3),y%(4)
A�* � x%(4),y%(5),x%(5),y%(8),x%(4),y%(9)
A�+ � x%(3),y%(10),x%(2),y%(9),x%(1),y%(8)
A�* � x%(1),y%(6),x%(1),y%(4),x%(2),y%(3)
B* � x%(3),y%(2),x%(4),y%(3),x%(5),y%(4)
B+ � x%(5),y%(6),x%(6),y%(9),x%(5),y%(10)
B- � x%(4),y%(11),x%(3),y%(12),x%(2),y%(11)
B"+ � x%(1),y%(10),x%(0),y%(9),x%(0),y%(7)
B,* � x%(0),y%(5),x%(0),y%(3),x%(1),y%(2)
B6* � x%(2),y%(1),x%(3),y%(0),x%(4),y%(1)
B@* � x%(5),y%(2),x%(6),y%(3),x%(6),y%(5)
BJ, � x%(6),y%(7),x%(1),y%(12),x%(0),y%(11)
BT+ � x%(0),y%(1),x%(1),y%(0),x%(5),y%(12)
B^+ � x%(6),y%(11),x%(5),y%(0),x%(6),y%(1)
Bh � 6,6,9,12,8,7,3
Br � 7,7,10,13,6,8,3
B| � 8,8,11,14,7,6,3
B� � 9,6,9,12,11,10,2
B� � 10,7,10,13,9,11,2
B� � 11,8,11,14,10,9,2
B� � 12,6,9,12,14,13,8
B� � 13,7,10,13,12,14,8
B� � 14,8,11,14,13,12,8
B�
�

00000000  0d 00 0a 10 20 f4 3e 21  52 75 6e 49 6d 61 67 65  |.... .>!RunImage|
00000010  0d 00 14 16 20 f4 45 4d  42 45 52 20 54 48 45 20  |.... .EMBER THE |
00000020  41 4c 41 4d 4f 21 0d 00  1e 0a 20 f2 69 6e 69 74  |ALAMO!.... .init|
00000030  0d 00 28 06 20 3a 0d 00  32 0f 20 ee 20 85 20 f2  |..(. :..2. . . .|
00000040  65 72 72 6f 72 0d 00 3c  06 20 3a 0d 00 46 06 20  |error..<. :..F. |
00000050  f5 0d 00 50 1d 20 c8 99  77 70 74 25 2c 70 66 25  |...P. ..wpt%,pf%|
00000060  2c 70 62 25 2c 6f 74 25  20 b8 20 72 63 25 0d 00  |,pb%,ot% . rc%..|
00000070  5a 0d 20 c8 8e 20 72 63  25 20 ca 0d 00 64 1b 20  |Z. .. rc% ...d. |
00000080  c9 20 30 3a e7 20 61 63  74 69 76 65 25 20 f2 70  |. 0:. active% .p|
00000090  6f 69 6e 74 65 72 0d 00  6e 10 20 c9 20 31 3a f2  |ointer..n. . 1:.|
000000a0  72 65 64 72 61 77 0d 00  78 0e 20 c9 20 32 3a f2  |redraw..x. . 2:.|
000000b0  6f 70 65 6e 0d 00 82 0f  20 c9 20 33 3a f2 63 6c  |open.... . 3:.cl|
000000c0  6f 73 65 0d 00 8c 0f 20  c9 20 36 3a f2 6d 6f 75  |ose.... . 6:.mou|
000000d0  73 65 0d 00 96 11 20 c9  20 38 3a f2 70 72 6f 63  |se.... . 8:.proc|
000000e0  65 73 73 0d 00 a0 0d 20  c9 20 39 3a f2 6d 73 74  |ess.... . 9:.mst|
000000f0  0d 00 aa 17 20 c9 20 26  31 31 2c 26 31 32 3a f2  |.... . &11,&12:.|
00000100  6d 65 73 73 61 67 65 0d  00 b4 06 20 cb 0d 00 be  |message.... ....|
00000110  08 20 fd 20 a3 0d 00 c8  06 20 3a 0d 00 d2 1e 20  |. . ..... :.... |
00000120  dd 20 f2 6f 70 65 6e 3a  66 77 25 28 29 3d a3 3a  |. .open:fw%()=.:|
00000130  c8 8e 20 21 70 62 25 20  ca 0d 00 dc 17 20 c9 77  |.. !pb% ..... .w|
00000140  25 28 33 37 2c 31 29 3a  66 77 25 28 30 29 3d b9  |%(37,1):fw%(0)=.|
00000150  0d 00 e6 17 20 c9 77 25  28 33 38 2c 31 29 3a 66  |.... .w%(38,1):f|
00000160  77 25 28 31 29 3d b9 0d  00 f0 17 20 c9 77 25 28  |w%(1)=..... .w%(|
00000170  33 39 2c 31 29 3a 66 77  25 28 32 29 3d b9 0d 00  |39,1):fw%(2)=...|
00000180  fa 17 20 c9 77 25 28 34  30 2c 31 29 3a 66 77 25  |.. .w%(40,1):fw%|
00000190  28 33 29 3d b9 0d 01 04  13 20 c9 77 37 68 25 3a  |(3)=..... .w7h%:|
000001a0  66 77 25 28 34 29 3d b9  0d 01 0e 13 20 cb 3a c8  |fw%(4)=..... .:.|
000001b0  99 77 6f 25 2c 2c 70 62  25 3a e1 0d 01 18 06 20  |.wo%,,pb%:..... |
000001c0  3a 0d 01 22 26 20 dd 20  f2 72 65 64 72 61 77 3a  |:.."& . .redraw:|
000001d0  69 63 6f 6e 25 3d a3 3a  e7 20 6e 76 25 20 f2 72  |icon%=.:. nv% .r|
000001e0  65 61 64 6d 6f 64 65 0d  01 2c 0e 20 c8 8e 20 21  |eadmode..,. .. !|
000001f0  70 62 25 20 ca 0d 01 36  0f 20 c9 20 77 31 68 25  |pb% ...6. . w1h%|
00000200  3a f2 64 31 0d 01 40 0b  20 c9 20 77 37 68 25 0d  |:.d1..@. . w7h%.|
00000210  01 4a 25 20 e7 20 72 32  25 20 f2 64 37 32 28 66  |.J% . r2% .d72(f|
00000220  77 25 28 34 29 29 20 8b  20 f2 64 37 28 66 77 25  |w%(4)) . .d7(fw%|
00000230  28 34 29 29 0d 01 54 0d  20 66 77 25 28 34 29 3d  |(4))..T. fw%(4)=|
00000240  a3 0d 01 5e 0f 20 c9 20  77 38 68 25 3a f2 64 38  |...^. . w8h%:.d8|
00000250  0d 01 68 18 20 c9 20 77  39 68 25 3a f2 64 39 28  |..h. . w9h%:.d9(|
00000260  61 63 74 69 76 65 25 29  0d 01 72 35 20 c9 20 77  |active%)..r5 . w|
00000270  25 28 33 37 2c 31 29 3a  62 78 25 3d 70 32 25 3a  |%(37,1):bx%=p2%:|
00000280  21 63 31 25 3d 21 63 72  25 3a 21 63 32 25 3d 21  |!c1%=!cr%:!c2%=!|
00000290  63 67 25 3a 21 63 33 25  3d 21 63 62 25 0d 01 7c  |cg%:!c3%=!cb%..||
000002a0  23 20 f2 64 33 28 66 77  25 28 30 29 2c 69 25 28  |# .d3(fw%(0),i%(|
000002b0  30 29 2c 30 2c 31 29 3a  66 77 25 28 30 29 3d a3  |0),0,1):fw%(0)=.|
000002c0  0d 01 86 38 20 c9 20 77  25 28 33 38 2c 31 29 3a  |...8 . w%(38,1):|
000002d0  62 78 25 3d 70 32 25 2b  33 32 3a 21 63 31 25 3d  |bx%=p2%+32:!c1%=|
000002e0  21 63 63 25 3a 21 63 32  25 3d 21 63 79 25 3a 21  |!cc%:!c2%=!cy%:!|
000002f0  63 33 25 3d 21 63 6d 25  0d 01 90 2b 20 f2 64 33  |c3%=!cm%...+ .d3|
00000300  28 66 77 25 28 31 29 2c  69 25 28 31 29 2c 26 46  |(fw%(1),i%(1),&F|
00000310  46 46 46 46 46 30 30 2c  32 29 3a 66 77 25 28 31  |FFFFF00,2):fw%(1|
00000320  29 3d a3 0d 01 9a 34 20  c9 20 77 25 28 33 39 2c  |)=....4 . w%(39,|
00000330  31 29 3a 62 78 25 3d 70  31 25 3a f2 64 34 28 66  |1):bx%=p1%:.d4(f|
00000340  77 25 28 32 29 2c 69 25  28 32 29 2c 30 29 3a 66  |w%(2),i%(2),0):f|
00000350  77 25 28 32 29 3d a3 0d  01 a4 3a 20 c9 20 77 25  |w%(2)=....: . w%|
00000360  28 34 30 2c 31 29 3a 62  78 25 3d 70 31 25 2b 33  |(40,1):bx%=p1%+3|
00000370  32 3a f2 64 34 28 66 77  25 28 33 29 2c 69 25 28  |2:.d4(fw%(3),i%(|
00000380  33 29 2c 26 31 30 30 29  3a 66 77 25 28 33 29 3d  |3),&100):fw%(3)=|
00000390  a3 0d 01 ae 0c 20 7f 20  69 74 25 3d 30 0d 01 b8  |..... . it%=0...|
000003a0  06 20 f5 0d 01 c2 27 20  e7 20 28 21 70 62 25 3d  |. ....' . (!pb%=|
000003b0  77 25 28 69 74 25 2c 31  29 29 20 f2 64 73 28 69  |w%(it%,1)) .ds(i|
000003c0  74 25 29 3a 69 74 25 3d  33 36 0d 01 cc 0b 20 69  |t%):it%=36.... i|
000003d0  74 25 2b 3d 31 0d 01 d6  0d 20 fd 20 69 74 25 3d  |t%+=1.... . it%=|
000003e0  33 37 0d 01 e0 08 20 cb  3a e1 0d 01 ea 06 20 3a  |37.... .:..... :|
000003f0  0d 01 f4 1b 20 dd 20 f2  64 31 3a c8 99 77 72 25  |.... . .d1:..wr%|
00000400  2c 2c 70 62 25 b8 6d 6f  72 65 25 0d 01 fe 3f 20  |,,pb%.more%...? |
00000410  70 62 25 21 34 3d 69 31  25 3a 70 62 25 21 38 3d  |pb%!4=i1%:pb%!8=|
00000420  6a 31 25 3a 70 62 25 21  31 32 3d 6b 31 25 3a 70  |j1%:pb%!12=k1%:p|
00000430  62 25 21 31 36 3d 6c 31  25 3a c8 99 77 75 25 2c  |b%!16=l1%:..wu%,|
00000440  2c 70 62 25 b8 6d 6f 72  65 25 0d 02 08 10 20 e7  |,pb%.more%.... .|
00000450  20 73 63 61 6c 65 64 25  20 8c 0d 02 12 45 20 21  | scaled% ....E !|
00000460  73 73 25 3d 70 62 25 21  31 32 2d 70 62 25 21 34  |ss%=pb%!12-pb%!4|
00000470  3a 73 73 25 21 34 3d 70  62 25 21 31 36 2d 70 62  |:ss%!4=pb%!16-pb|
00000480  25 21 38 3a 73 63 25 3d  73 73 25 3a 78 63 25 3d  |%!8:sc%=ss%:xc%=|
00000490  70 62 25 21 34 3a 79 63  25 3d 70 62 25 21 38 0d  |pb%!4:yc%=pb%!8.|
000004a0  02 1c 35 20 cc 20 73 63  25 3d 30 3a 78 63 25 3d  |..5 . sc%=0:xc%=|
000004b0  70 62 25 21 34 2d 70 62  25 21 26 31 34 3a 79 63  |pb%!4-pb%!&14:yc|
000004c0  25 3d 70 62 25 21 31 36  2b 6a 31 25 2d 70 62 25  |%=pb%!16+j1%-pb%|
000004d0  21 26 31 38 0d 02 26 0f  20 cd 3a c8 95 20 6d 6f  |!&18..&. .:.. mo|
000004e0  72 65 25 0d 02 30 2c 20  c8 99 73 70 25 2c 26 32  |re%..0, ..sp%,&2|
000004f0  33 34 2c 62 73 25 2c 68  78 25 2c 78 63 25 2c 79  |34,bs%,hx%,xc%,y|
00000500  63 25 2c 30 2c 73 63 25  2c 74 61 62 6c 65 25 0d  |c%,0,sc%,table%.|
00000510  02 3a 19 20 c8 99 77 67  25 2c 2c 70 62 25 b8 6d  |.:. ..wg%,,pb%.m|
00000520  6f 72 65 25 3a ce 3a e1  0d 02 44 06 20 3a 0d 02  |ore%:.:...D. :..|
00000530  4e 35 20 dd 20 f2 64 73  28 69 74 25 29 3a c8 99  |N5 . .ds(it%):..|
00000540  77 72 25 2c 2c 70 62 25  20 b8 6d 6f 72 65 25 3a  |wr%,,pb% .more%:|
00000550  78 63 25 3d 70 62 25 21  34 3a 79 63 25 3d 70 62  |xc%=pb%!4:yc%=pb|
00000560  25 21 38 0d 02 58 4a 20  78 63 67 25 3d 78 63 25  |%!8..XJ xcg%=xc%|
00000570  2b 26 41 3a 78 63 74 25  3d 78 63 25 2b 26 33 36  |+&A:xct%=xc%+&36|
00000580  3a 78 63 6e 25 3d 78 63  25 2b 26 31 32 3a 6e 63  |:xcn%=xc%+&12:nc|
00000590  6f 6c 25 3d 77 25 28 69  74 25 2c 34 29 3a 69 63  |ol%=w%(it%,4):ic|
000005a0  6f 6c 25 3d 77 25 28 69  74 25 2c 35 29 0d 02 62  |ol%=w%(it%,5)..b|
000005b0  2f 20 e7 20 28 69 74 25  3d 73 74 72 69 70 25 29  |/ . (it%=strip%)|
000005c0  20 80 72 74 6c 25 20 80  72 74 6f 25 20 72 74 64  | .rtl% .rto% rtd|
000005d0  25 3d b9 20 8b 20 72 74  64 25 3d a3 0d 02 6c 0d  |%=. . rtd%=...l.|
000005e0  20 c8 95 20 6d 6f 72 65  25 0d 02 76 0c 20 79 64  | .. more%..v. yd|
000005f0  25 3d 79 63 25 0d 02 80  19 20 e3 20 72 74 25 3d  |%=yc%.... . rt%=|
00000600  6e 63 6f 6c 25 20 b8 20  30 20 88 20 2d 31 0d 02  |ncol% . 0 . -1..|
00000610  8a 25 20 e7 28 79 64 25  3e 28 70 62 25 21 33 32  |.% .(yd%>(pb%!32|
00000620  2d 34 34 29 29 80 28 79  64 25 3c 70 62 25 21 34  |-44)).(yd%<pb%!4|
00000630  30 29 8c 0d 02 94 21 20  79 70 25 3d 79 64 25 2b  |0)....! yp%=yd%+|
00000640  33 32 3a 78 6c 25 3d 28  69 63 6f 6c 25 2b 72 74  |32:xl%=(icol%+rt|
00000650  25 29 2a 34 0d 02 9e 3a  20 c8 99 63 73 25 2c 21  |%)*4...: ..cs%,!|
00000660  28 6c 69 25 2b 78 6c 25  29 2c 2c 2c 26 31 30 30  |(li%+xl%),,,&100|
00000670  2c 30 20 b8 20 67 63 6f  6c 25 3a c8 99 6f 73 70  |,0 . gcol%:..osp|
00000680  25 2c 72 66 61 25 2c 78  63 25 2c 79 64 25 0d 02  |%,rfa%,xc%,yd%..|
00000690  a8 39 20 c8 99 6f 73 70  25 2c 72 66 72 25 2c 77  |.9 ..osp%,rfr%,w|
000006a0  69 64 74 68 25 2c 34 34  3a c8 99 63 73 25 2c 21  |idth%,44:..cs%,!|
000006b0  28 6c 6a 25 2b 78 6c 25  29 2c 2c 2c 30 2c 30 20  |(lj%+xl%),,,0,0 |
000006c0  b8 20 74 63 6f 6c 25 0d  02 b2 0d 20 c8 8e 20 75  |. tcol%.... .. u|
000006d0  75 25 20 ca 0d 02 bc 11  20 c9 20 31 3a f2 63 6f  |u% ..... . 1:.co|
000006e0  6c 74 69 6e 74 0d 02 c6  0e 20 c9 20 32 3a f2 67  |ltint.... . 2:.g|
000006f0  63 6f 6c 0d 02 d0 10 20  c9 20 33 3a f2 6e 75 6d  |col.... . 3:.num|
00000700  62 65 72 0d 02 da 0d 20  c9 20 34 3a f2 68 65 78  |ber.... . 4:.hex|
00000710  0d 02 e4 06 20 cb 0d 02  ee 32 20 e7 28 72 74 25  |.... ....2 .(rt%|
00000720  3d 77 25 28 69 74 25 2c  30 29 29 20 80 72 74 64  |=w%(it%,0)) .rtd|
00000730  25 20 c8 93 20 78 63 25  2c 79 64 25 2c 77 69 64  |% .. xc%,yd%,wid|
00000740  74 68 25 2d 32 2c 34 32  0d 02 f8 06 20 cd 0d 03  |th%-2,42.... ...|
00000750  02 0c 20 79 64 25 2b 3d  34 34 0d 03 0c 0a 20 ed  |.. yd%+=44.... .|
00000760  20 72 74 25 0d 03 16 16  20 c8 99 77 67 25 2c 2c  | rt%.... ..wg%,,|
00000770  70 62 25 b8 20 6d 6f 72  65 25 0d 03 20 08 20 ce  |pb%. more%.. . .|
00000780  3a e1 0d 03 2a 06 20 3a  0d 03 34 0f 20 dd 20 f2  |:...*. :..4. . .|
00000790  63 6f 6c 74 69 6e 74 0d  03 3e 2a 20 63 6f 6c 25  |coltint..>* col%|
000007a0  3d 28 67 63 6f 6c 25 80  26 46 43 29 3e 3e 3e 32  |=(gcol%.&FC)>>>2|
000007b0  3a 74 6e 25 3d 28 67 63  6f 6c 25 80 33 29 3c 3c  |:tn%=(gcol%.3)<<|
000007c0  36 0d 03 48 1c 20 24 6e  25 3d c3 28 63 6f 6c 25  |6..H. $n%=.(col%|
000007d0  29 3a 6c 65 6e 25 3d a9  28 24 6e 25 29 0d 03 52  |):len%=.($n%)..R|
000007e0  1d 20 e7 28 6c 65 6e 25  3d 31 29 73 66 74 25 3d  |. .(len%=1)sft%=|
000007f0  38 20 8b 20 73 66 74 25  3d 30 0d 03 5c 1e 20 c8  |8 . sft%=0..\. .|
00000800  99 6f 73 70 25 2c 70 70  61 25 2c 78 63 67 25 2b  |.osp%,ppa%,xcg%+|
00000810  73 66 74 25 2c 79 70 25  0d 03 66 13 20 c8 99 6f  |sft%,yp%..f. ..o|
00000820  73 6e 25 2c 6e 25 2c 6c  65 6e 25 0d 03 70 1b 20  |sn%,n%,len%..p. |
00000830  24 6e 25 3d c3 28 74 6e  25 29 3a 6c 65 6e 25 3d  |$n%=.(tn%):len%=|
00000840  a9 28 24 6e 25 29 0d 03  7a 0c 20 c8 8e 6c 65 6e  |.($n%)..z. ..len|
00000850  25 ca 0d 03 84 10 20 c9  31 3a 73 66 74 25 3d 26  |%..... .1:sft%=&|
00000860  31 38 0d 03 8e 0f 20 c9  32 3a 73 66 74 25 3d 31  |18.... .2:sft%=1|
00000870  32 0d 03 98 0c 20 7f 73  66 74 25 3d 30 0d 03 a2  |2.... .sft%=0...|
00000880  06 20 cb 0d 03 ac 2d 20  c8 99 6f 73 70 25 2c 70  |. ....- ..osp%,p|
00000890  70 61 25 2c 78 63 74 25  2b 73 66 74 25 2c 79 70  |pa%,xct%+sft%,yp|
000008a0  25 3a c8 99 6f 73 6e 25  2c 6e 25 2c 6c 65 6e 25  |%:..osn%,n%,len%|
000008b0  0d 03 b6 06 20 e1 0d 03  c0 06 20 3a 0d 03 ca 0c  |.... ..... :....|
000008c0  20 dd 20 f2 67 63 6f 6c  0d 03 d4 1d 20 24 6e 25  | . .gcol.... $n%|
000008d0  3d c3 28 67 63 6f 6c 25  29 3a 6c 65 6e 25 3d a9  |=.(gcol%):len%=.|
000008e0  28 24 6e 25 29 0d 03 de  0c 20 c8 8e 6c 65 6e 25  |($n%).... ..len%|
000008f0  ca 0d 03 e8 0f 20 c9 31  3a 73 66 74 25 3d 31 36  |..... .1:sft%=16|
00000900  0d 03 f2 0e 20 c9 32 3a  73 66 74 25 3d 38 0d 03  |.... .2:sft%=8..|
00000910  fc 0c 20 7f 73 66 74 25  3d 30 0d 04 06 06 20 cb  |.. .sft%=0.... .|
00000920  0d 04 10 2d 20 c8 99 6f  73 70 25 2c 70 70 61 25  |...- ..osp%,ppa%|
00000930  2c 78 63 6e 25 2b 73 66  74 25 2c 79 70 25 3a c8  |,xcn%+sft%,yp%:.|
00000940  99 6f 73 6e 25 2c 6e 25  2c 6c 65 6e 25 0d 04 1a  |.osn%,n%,len%...|
00000950  06 20 e1 0d 04 24 06 20  3a 0d 04 2e 0e 20 dd 20  |. ...$. :.... . |
00000960  f2 6e 75 6d 62 65 72 0d  04 38 2f 20 c8 99 63 6e  |.number..8/ ..cn|
00000970  25 2c 67 63 6f 6c 25 20  b8 20 6e 75 6d 25 3a 24  |%,gcol% . num%:$|
00000980  6e 25 3d c3 28 6e 75 6d  25 29 3a 6c 65 6e 25 3d  |n%=.(num%):len%=|
00000990  a9 28 24 6e 25 29 0d 04  42 0c 20 c8 8e 6c 65 6e  |.($n%)..B. ..len|
000009a0  25 ca 0d 04 4c 0f 20 c9  31 3a 73 66 74 25 3d 31  |%...L. .1:sft%=1|
000009b0  36 0d 04 56 0e 20 c9 32  3a 73 66 74 25 3d 38 0d  |6..V. .2:sft%=8.|
000009c0  04 60 0c 20 7f 73 66 74  25 3d 30 0d 04 6a 06 20  |.`. .sft%=0..j. |
000009d0  cb 0d 04 74 2d 20 c8 99  6f 73 70 25 2c 70 70 61  |...t- ..osp%,ppa|
000009e0  25 2c 78 63 6e 25 2b 73  66 74 25 2c 79 70 25 3a  |%,xcn%+sft%,yp%:|
000009f0  c8 99 6f 73 6e 25 2c 6e  25 2c 6c 65 6e 25 0d 04  |..osn%,n%,len%..|
00000a00  7e 06 20 e1 0d 04 88 06  20 3a 0d 04 92 0b 20 dd  |~. ..... :.... .|
00000a10  20 f2 68 65 78 0d 04 9c  26 20 76 61 6c 25 3d 3f  | .hex...& val%=?|
00000a20  28 6c 69 25 2b 78 6c 25  2b 33 29 3a c8 99 26 44  |(li%+xl%+3):..&D|
00000a30  31 2c 76 61 6c 25 2c 6e  25 2c 34 0d 04 a6 26 20  |1,val%,n%,4...& |
00000a40  c8 99 6f 73 70 25 2c 70  70 61 25 2c 78 63 25 2b  |..osp%,ppa%,xc%+|
00000a50  38 2c 79 70 25 3a c8 99  6f 73 6e 25 2c 6e 25 2c  |8,yp%:..osn%,n%,|
00000a60  32 0d 04 b0 26 20 76 61  6c 25 3d 3f 28 6c 69 25  |2...& val%=?(li%|
00000a70  2b 78 6c 25 2b 32 29 3a  c8 99 26 44 31 2c 76 61  |+xl%+2):..&D1,va|
00000a80  6c 25 2c 6e 25 2c 34 0d  04 ba 27 20 c8 99 6f 73  |l%,n%,4...' ..os|
00000a90  70 25 2c 70 70 61 25 2c  78 63 25 2b 34 36 2c 79  |p%,ppa%,xc%+46,y|
00000aa0  70 25 3a c8 99 6f 73 6e  25 2c 6e 25 2c 32 0d 04  |p%:..osn%,n%,2..|
00000ab0  c4 26 20 76 61 6c 25 3d  3f 28 6c 69 25 2b 78 6c  |.& val%=?(li%+xl|
00000ac0  25 2b 31 29 3a c8 99 26  44 31 2c 76 61 6c 25 2c  |%+1):..&D1,val%,|
00000ad0  6e 25 2c 34 0d 04 ce 27  20 c8 99 6f 73 70 25 2c  |n%,4...' ..osp%,|
00000ae0  70 70 61 25 2c 78 63 25  2b 38 34 2c 79 70 25 3a  |ppa%,xc%+84,yp%:|
00000af0  c8 99 6f 73 6e 25 2c 6e  25 2c 32 0d 04 d8 06 20  |..osn%,n%,2.... |
00000b00  e1 0d 04 e2 06 20 3a 0d  04 ec 33 20 dd 20 f2 64  |..... :...3 . .d|
00000b10  33 28 66 6c 77 25 2c 69  63 6f 6e 25 2c 21 62 67  |3(flw%,icon%,!bg|
00000b20  25 2c 61 63 74 25 29 3a  c8 99 77 72 25 2c 2c 70  |%,act%):..wr%,,p|
00000b30  62 25 20 b8 20 6d 6f 72  65 25 0d 04 f6 42 20 e7  |b% . more%...B .|
00000b40  20 66 6c 77 25 20 70 62  25 21 34 3d 30 3a 70 62  | flw% pb%!4=0:pb|
00000b50  25 21 38 3d 6a 34 25 3a  70 62 25 21 31 32 3d 6b  |%!8=j4%:pb%!12=k|
00000b60  34 25 3a 70 62 25 21 31  36 3d 30 3a c8 99 77 75  |4%:pb%!16=0:..wu|
00000b70  25 2c 2c 70 62 25 b8 6d  6f 72 65 25 0d 05 00 08  |%,,pb%.more%....|
00000b80  20 f2 71 32 0d 05 0a 2c  20 78 73 69 7a 65 25 3d  | .q2..., xsize%=|
00000b90  70 62 25 21 31 32 2d 70  62 25 21 34 3a 79 73 69  |pb%!12-pb%!4:ysi|
00000ba0  7a 65 25 3d 70 62 25 21  31 36 2d 70 62 25 21 38  |ze%=pb%!16-pb%!8|
00000bb0  0d 05 14 23 20 78 6f 66  66 25 3d 78 73 69 7a 65  |...# xoff%=xsize|
00000bc0  25 2f 78 72 61 3a 78 6f  66 33 25 3d 78 6f 66 66  |%/xra:xof3%=xoff|
00000bd0  25 2f 33 0d 05 1e 2b 20  79 6f 66 66 25 3d 79 73  |%/3...+ yoff%=ys|
00000be0  69 7a 65 25 2f 79 72 61  3a 79 63 65 6e 74 25 3d  |ize%/yra:ycent%=|
00000bf0  70 62 25 21 38 2b 79 73  69 7a 65 25 2f 32 0d 05  |pb%!8+ysize%/2..|
00000c00  28 3e 20 79 66 61 63 74  25 3d 79 6f 66 66 25 2a  |(> yfact%=yoff%*|
00000c10  66 61 63 74 6f 72 3a 79  63 31 25 3d 79 63 65 6e  |factor:yc1%=ycen|
00000c20  74 25 2d 79 66 61 63 74  25 3a 79 63 32 25 3d 79  |t%-yfact%:yc2%=y|
00000c30  63 65 6e 74 25 2b 79 66  61 63 74 25 0d 05 32 24  |cent%+yfact%..2$|
00000c40  20 79 6f 31 25 3d 79 63  31 25 2b 79 6f 66 66 25  | yo1%=yc1%+yoff%|
00000c50  3a 79 6f 32 25 3d 79 63  32 25 2b 79 6f 66 66 25  |:yo2%=yc2%+yoff%|
00000c60  0d 05 3c 38 20 78 63 32  25 3d 70 62 25 21 34 2b  |..<8 xc2%=pb%!4+|
00000c70  78 73 69 7a 65 25 2f 32  3a 78 63 31 25 3d 78 63  |xsize%/2:xc1%=xc|
00000c80  32 25 2d 78 6f 66 33 25  3a 78 63 33 25 3d 78 63  |2%-xof3%:xc3%=xc|
00000c90  32 25 2b 78 6f 66 33 25  0d 05 46 34 20 78 6f 31  |2%+xof3%..F4 xo1|
00000ca0  25 3d 78 63 31 25 2b 78  6f 66 66 25 3a 78 6f 32  |%=xc1%+xoff%:xo2|
00000cb0  25 3d 78 63 32 25 2b 78  6f 66 66 25 3a 78 6f 33  |%=xc2%+xoff%:xo3|
00000cc0  25 3d 78 63 33 25 2b 78  6f 66 66 25 0d 05 50 0d  |%=xc3%+xoff%..P.|
00000cd0  20 c8 95 20 6d 6f 72 65  25 0d 05 5a 1d 20 c8 99  | .. more%..Z. ..|
00000ce0  63 73 25 2c 21 62 67 25  2c 2c 2c 30 2c 30 20 b8  |cs%,!bg%,,,0,0 .|
00000cf0  20 74 63 6f 6c 25 0d 05  64 1e 20 c8 99 6f 73 70  | tcol%..d. ..osp|
00000d00  25 2c 70 70 61 25 2c 70  62 25 21 32 38 2c 70 62  |%,ppa%,pb%!28,pb|
00000d10  25 21 33 32 0d 05 6e 1e  20 c8 99 6f 73 70 25 2c  |%!32..n. ..osp%,|
00000d20  72 66 70 25 2c 70 62 25  21 33 36 2c 70 62 25 21  |rfp%,pb%!36,pb%!|
00000d30  34 30 0d 05 78 20 20 c8  99 63 73 25 2c 21 63 31  |40..x  ..cs%,!c1|
00000d40  25 2c 2c 2c 30 2c 61 63  74 25 20 b8 20 74 63 6f  |%,,,0,act% . tco|
00000d50  6c 25 0d 05 82 1a 20 c8  99 6f 73 70 25 2c 70 70  |l%.... ..osp%,pp|
00000d60  61 25 2c 78 63 31 25 2c  79 63 31 25 0d 05 8c 1a  |a%,xc1%,yc1%....|
00000d70  20 c8 99 6f 73 70 25 2c  70 70 61 25 2c 78 6f 31  | ..osp%,ppa%,xo1|
00000d80  25 2c 79 63 31 25 0d 05  96 1a 20 c8 99 6f 73 70  |%,yc1%.... ..osp|
00000d90  25 2c 65 66 70 25 2c 78  63 31 25 2c 79 6f 31 25  |%,efp%,xc1%,yo1%|
00000da0  0d 05 a0 20 20 c8 99 63  73 25 2c 21 63 32 25 2c  |...  ..cs%,!c2%,|
00000db0  2c 2c 30 2c 61 63 74 25  20 b8 20 74 63 6f 6c 25  |,,0,act% . tcol%|
00000dc0  0d 05 aa 1a 20 c8 99 6f  73 70 25 2c 70 70 61 25  |.... ..osp%,ppa%|
00000dd0  2c 78 63 32 25 2c 79 63  32 25 0d 05 b4 1a 20 c8  |,xc2%,yc2%.... .|
00000de0  99 6f 73 70 25 2c 70 70  61 25 2c 78 6f 32 25 2c  |.osp%,ppa%,xo2%,|
00000df0  79 63 32 25 0d 05 be 1a  20 c8 99 6f 73 70 25 2c  |yc2%.... ..osp%,|
00000e00  65 66 70 25 2c 78 63 32  25 2c 79 6f 32 25 0d 05  |efp%,xc2%,yo2%..|
00000e10  c8 20 20 c8 99 63 73 25  2c 21 63 33 25 2c 2c 2c  |.  ..cs%,!c3%,,,|
00000e20  30 2c 61 63 74 25 20 b8  20 74 63 6f 6c 25 0d 05  |0,act% . tcol%..|
00000e30  d2 1a 20 c8 99 6f 73 70  25 2c 70 70 61 25 2c 78  |.. ..osp%,ppa%,x|
00000e40  63 33 25 2c 79 63 31 25  0d 05 dc 1a 20 c8 99 6f  |c3%,yc1%.... ..o|
00000e50  73 70 25 2c 70 70 61 25  2c 78 6f 33 25 2c 79 63  |sp%,ppa%,xo3%,yc|
00000e60  31 25 0d 05 e6 1a 20 c8  99 6f 73 70 25 2c 65 66  |1%.... ..osp%,ef|
00000e70  70 25 2c 78 63 33 25 2c  79 6f 31 25 0d 05 f0 18  |p%,xc3%,yo1%....|
00000e80  20 e7 20 69 63 6f 6e 25  20 c8 99 77 70 69 25 2c  | . icon% ..wpi%,|
00000e90  2c 62 78 25 0d 05 fa 17  20 c8 99 77 67 25 2c 2c  |,bx%.... ..wg%,,|
00000ea0  70 62 25 20 b8 20 6d 6f  72 65 25 0d 06 04 08 20  |pb% . more%.... |
00000eb0  ce 3a e1 0d 06 0e 06 20  3a 0d 06 18 2f 20 dd 20  |.:..... :.../ . |
00000ec0  f2 64 34 28 66 6c 77 25  2c 69 63 6f 6e 25 2c 66  |.d4(flw%,icon%,f|
00000ed0  69 6c 6c 25 29 3a c8 99  77 72 25 2c 2c 70 62 25  |ill%):..wr%,,pb%|
00000ee0  20 b8 20 6d 6f 72 65 25  0d 06 22 42 20 e7 20 66  | . more%.."B . f|
00000ef0  6c 77 25 20 70 62 25 21  34 3d 30 3a 70 62 25 21  |lw% pb%!4=0:pb%!|
00000f00  38 3d 6a 34 25 3a 70 62  25 21 31 32 3d 6b 34 25  |8=j4%:pb%!12=k4%|
00000f10  3a 70 62 25 21 31 36 3d  30 3a c8 99 77 75 25 2c  |:pb%!16=0:..wu%,|
00000f20  2c 70 62 25 b8 6d 6f 72  65 25 0d 06 2c 11 20 f2  |,pb%.more%..,. .|
00000f30  71 31 3a c8 95 20 6d 6f  72 65 25 0d 06 36 38 20  |q1:.. more%..68 |
00000f40  76 61 78 6e 25 3d 70 62  25 21 32 38 3a 76 61 79  |vaxn%=pb%!28:vay|
00000f50  6e 25 3d 70 62 25 21 33  32 3a 76 61 78 6d 25 3d  |n%=pb%!32:vaxm%=|
00000f60  70 62 25 21 33 36 3a 76  61 79 6d 25 3d 70 62 25  |pb%!36:vaym%=pb%|
00000f70  21 34 30 0d 06 40 22 20  c8 99 63 73 25 2c 21 63  |!40..@" ..cs%,!c|
00000f80  63 63 25 2c 2c 2c 66 69  6c 6c 25 2c 30 20 b8 20  |cc%,,,fill%,0 . |
00000f90  74 63 6f 6c 25 0d 06 4a  1c 20 c8 99 6f 73 70 25  |tcol%..J. ..osp%|
00000fa0  2c 70 70 61 25 2c 76 61  78 6e 25 2c 76 61 79 6e  |,ppa%,vaxn%,vayn|
00000fb0  25 0d 06 54 1c 20 c8 99  6f 73 70 25 2c 72 66 70  |%..T. ..osp%,rfp|
00000fc0  25 2c 76 61 78 6d 25 2c  76 61 79 6d 25 0d 06 5e  |%,vaxm%,vaym%..^|
00000fd0  18 20 e7 20 69 63 6f 6e  25 20 c8 99 77 70 69 25  |. . icon% ..wpi%|
00000fe0  2c 2c 62 78 25 0d 06 68  17 20 c8 99 77 67 25 2c  |,,bx%..h. ..wg%,|
00000ff0  2c 70 62 25 20 b8 20 6d  6f 72 65 25 0d 06 72 08  |,pb% . more%..r.|
00001000  20 ce 3a e1 0d 06 7c 06  20 3a 0d 06 86 23 20 dd  | .:...|. :...# .|
00001010  20 f2 64 37 28 66 6c 77  25 29 3a c8 99 77 72 25  | .d7(flw%):..wr%|
00001020  2c 2c 70 62 25 20 b8 20  6d 6f 72 65 25 0d 06 90  |,,pb% . more%...|
00001030  42 20 e7 20 66 6c 77 25  20 70 62 25 21 34 3d 30  |B . flw% pb%!4=0|
00001040  3a 70 62 25 21 38 3d 6a  37 25 3a 70 62 25 21 31  |:pb%!8=j7%:pb%!1|
00001050  32 3d 6b 37 25 3a 70 62  25 21 31 36 3d 30 3a c8  |2=k7%:pb%!16=0:.|
00001060  99 77 75 25 2c 2c 70 62  25 b8 6d 6f 72 65 25 0d  |.wu%,,pb%.more%.|
00001070  06 9a 1a 20 79 63 25 3d  70 62 25 21 31 36 2b 6a  |... yc%=pb%!16+j|
00001080  37 25 2d 70 62 25 21 32  34 0d 06 a4 0d 20 c8 95  |7%-pb%!24.... ..|
00001090  20 6d 6f 72 65 25 0d 06  ae 30 20 e7 20 70 62 25  | more%...0 . pb%|
000010a0  21 32 38 3e 28 70 62 25  21 34 2b 36 29 20 78 63  |!28>(pb%!4+6) xc|
000010b0  25 3d 70 62 25 21 32 38  20 8b 20 78 63 25 3d 70  |%=pb%!28 . xc%=p|
000010c0  62 25 21 34 2b 36 0d 06  b8 32 20 e7 20 70 62 25  |b%!4+6...2 . pb%|
000010d0  21 33 36 3c 28 70 62 25  21 31 32 2d 36 29 20 78  |!36<(pb%!12-6) x|
000010e0  64 25 3d 70 62 25 21 33  36 20 8b 20 78 64 25 3d  |d%=pb%!36 . xd%=|
000010f0  70 62 25 21 31 32 2d 36  0d 06 c2 42 20 79 74 25  |pb%!12-6...B yt%|
00001100  3d 79 63 25 2b 34 3a e7  28 79 74 25 3e 28 70 62  |=yc%+4:.(yt%>(pb|
00001110  25 21 33 32 2d 34 34 29  29 80 28 79 74 25 3c 70  |%!32-44)).(yt%<p|
00001120  62 25 21 34 30 29 20 f2  64 37 61 28 26 35 35 35  |b%!40) .d7a(&555|
00001130  35 35 35 30 30 2c 79 74  25 29 0d 06 cc 43 20 79  |55500,yt%)...C y|
00001140  74 25 3d 79 63 25 2b 35  36 3a e7 28 79 74 25 3e  |t%=yc%+56:.(yt%>|
00001150  28 70 62 25 21 33 32 2d  34 34 29 29 80 28 79 74  |(pb%!32-44)).(yt|
00001160  25 3c 70 62 25 21 34 30  29 20 f2 64 37 61 28 26  |%<pb%!40) .d7a(&|
00001170  37 37 46 46 46 46 30 30  2c 79 74 25 29 0d 06 d6  |77FFFF00,yt%)...|
00001180  44 20 79 74 25 3d 79 63  25 2b 31 30 38 3a e7 28  |D yt%=yc%+108:.(|
00001190  79 74 25 3e 28 70 62 25  21 33 32 2d 34 34 29 29  |yt%>(pb%!32-44))|
000011a0  80 28 79 74 25 3c 70 62  25 21 34 30 29 20 f2 64  |.(yt%<pb%!40) .d|
000011b0  37 61 28 26 45 45 41 41  45 45 30 30 2c 79 74 25  |7a(&EEAAEE00,yt%|
000011c0  29 0d 06 e0 44 20 79 74  25 3d 79 63 25 2b 31 36  |)...D yt%=yc%+16|
000011d0  30 3a e7 28 79 74 25 3e  28 70 62 25 21 33 32 2d  |0:.(yt%>(pb%!32-|
000011e0  34 34 29 29 80 28 79 74  25 3c 70 62 25 21 34 30  |44)).(yt%<pb%!40|
000011f0  29 20 f2 64 37 61 28 26  46 46 46 46 33 33 30 30  |) .d7a(&FFFF3300|
00001200  2c 79 74 25 29 0d 06 ea  44 20 79 74 25 3d 79 63  |,yt%)...D yt%=yc|
00001210  25 2b 32 31 32 3a e7 28  79 74 25 3e 28 70 62 25  |%+212:.(yt%>(pb%|
00001220  21 33 32 2d 34 34 29 29  80 28 79 74 25 3c 70 62  |!32-44)).(yt%<pb|
00001230  25 21 34 30 29 20 f2 64  37 61 28 26 46 46 42 42  |%!40) .d7a(&FFBB|
00001240  37 37 30 30 2c 79 74 25  29 0d 06 f4 44 20 79 74  |7700,yt%)...D yt|
00001250  25 3d 79 63 25 2b 32 36  34 3a e7 28 79 74 25 3e  |%=yc%+264:.(yt%>|
00001260  28 70 62 25 21 33 32 2d  34 34 29 29 80 28 79 74  |(pb%!32-44)).(yt|
00001270  25 3c 70 62 25 21 34 30  29 20 f2 64 37 61 28 26  |%<pb%!40) .d7a(&|
00001280  37 37 46 46 37 37 30 30  2c 79 74 25 29 0d 06 fe  |77FF7700,yt%)...|
00001290  44 20 79 74 25 3d 79 63  25 2b 33 31 36 3a e7 28  |D yt%=yc%+316:.(|
000012a0  79 74 25 3e 28 70 62 25  21 33 32 2d 34 34 29 29  |yt%>(pb%!32-44))|
000012b0  80 28 79 74 25 3c 70 62  25 21 34 30 29 20 f2 64  |.(yt%<pb%!40) .d|
000012c0  37 61 28 26 37 37 37 37  46 46 30 30 2c 79 74 25  |7a(&7777FF00,yt%|
000012d0  29 0d 07 08 44 20 79 74  25 3d 79 63 25 2b 33 36  |)...D yt%=yc%+36|
000012e0  38 3a e7 28 79 74 25 3e  28 70 62 25 21 33 32 2d  |8:.(yt%>(pb%!32-|
000012f0  34 34 29 29 80 28 79 74  25 3c 70 62 25 21 34 30  |44)).(yt%<pb%!40|
00001300  29 20 f2 64 37 61 28 26  46 46 42 42 42 42 30 30  |) .d7a(&FFBBBB00|
00001310  2c 79 74 25 29 0d 07 12  44 20 79 74 25 3d 79 63  |,yt%)...D yt%=yc|
00001320  25 2b 34 32 30 3a e7 28  79 74 25 3e 28 70 62 25  |%+420:.(yt%>(pb%|
00001330  21 33 32 2d 34 34 29 29  80 28 79 74 25 3c 70 62  |!32-44)).(yt%<pb|
00001340  25 21 34 30 29 20 f2 64  37 61 28 26 42 42 42 42  |%!40) .d7a(&BBBB|
00001350  46 46 30 30 2c 79 74 25  29 0d 07 1c 44 20 79 74  |FF00,yt%)...D yt|
00001360  25 3d 79 63 25 2b 34 37  32 3a e7 28 79 74 25 3e  |%=yc%+472:.(yt%>|
00001370  28 70 62 25 21 33 32 2d  34 34 29 29 80 28 79 74  |(pb%!32-44)).(yt|
00001380  25 3c 70 62 25 21 34 30  29 20 f2 64 37 61 28 26  |%<pb%!40) .d7a(&|
00001390  43 43 43 43 43 43 30 30  2c 79 74 25 29 0d 07 26  |CCCCCC00,yt%)..&|
000013a0  44 20 79 74 25 3d 79 63  25 2b 35 32 34 3a e7 28  |D yt%=yc%+524:.(|
000013b0  79 74 25 3e 28 70 62 25  21 33 32 2d 34 34 29 29  |yt%>(pb%!32-44))|
000013c0  80 28 79 74 25 3c 70 62  25 21 34 30 29 20 f2 64  |.(yt%<pb%!40) .d|
000013d0  37 61 28 26 32 32 45 45  41 41 30 30 2c 79 74 25  |7a(&22EEAA00,yt%|
000013e0  29 0d 07 30 17 20 c8 99  77 67 25 2c 2c 70 62 25  |)..0. ..wg%,,pb%|
000013f0  20 b8 20 6d 6f 72 65 25  0d 07 3a 08 20 ce 3a e1  | . more%..:. .:.|
00001400  0d 07 44 06 20 3a 0d 07  4e 24 20 dd 20 f2 64 37  |..D. :..N$ . .d7|
00001410  32 28 66 6c 77 25 29 3a  c8 99 77 72 25 2c 2c 70  |2(flw%):..wr%,,p|
00001420  62 25 20 b8 20 6d 6f 72  65 25 0d 07 58 42 20 e7  |b% . more%..XB .|
00001430  20 66 6c 77 25 20 70 62  25 21 34 3d 30 3a 70 62  | flw% pb%!4=0:pb|
00001440  25 21 38 3d 6a 37 25 3a  70 62 25 21 31 32 3d 6b  |%!8=j7%:pb%!12=k|
00001450  37 25 3a 70 62 25 21 31  36 3d 30 3a c8 99 77 75  |7%:pb%!16=0:..wu|
00001460  25 2c 2c 70 62 25 b8 6d  6f 72 65 25 0d 07 62 1a  |%,,pb%.more%..b.|
00001470  20 79 63 25 3d 70 62 25  21 31 36 2b 6a 37 25 2d  | yc%=pb%!16+j7%-|
00001480  70 62 25 21 32 34 0d 07  6c 0d 20 c8 95 20 6d 6f  |pb%!24..l. .. mo|
00001490  72 65 25 0d 07 76 30 20  e7 20 70 62 25 21 32 38  |re%..v0 . pb%!28|
000014a0  3e 28 70 62 25 21 34 2b  36 29 20 78 63 25 3d 70  |>(pb%!4+6) xc%=p|
000014b0  62 25 21 32 38 20 8b 20  78 63 25 3d 70 62 25 21  |b%!28 . xc%=pb%!|
000014c0  34 2b 36 0d 07 80 32 20  e7 20 70 62 25 21 33 36  |4+6...2 . pb%!36|
000014d0  3c 28 70 62 25 21 31 32  2d 36 29 20 78 64 25 3d  |<(pb%!12-6) xd%=|
000014e0  70 62 25 21 33 36 20 8b  20 78 64 25 3d 70 62 25  |pb%!36 . xd%=pb%|
000014f0  21 31 32 2d 36 0d 07 8a  42 20 79 74 25 3d 79 63  |!12-6...B yt%=yc|
00001500  25 2b 34 3a e7 28 79 74  25 3e 28 70 62 25 21 33  |%+4:.(yt%>(pb%!3|
00001510  32 2d 34 34 29 29 80 28  79 74 25 3c 70 62 25 21  |2-44)).(yt%<pb%!|
00001520  34 30 29 20 f2 64 37 61  28 26 46 46 42 42 37 37  |40) .d7a(&FFBB77|
00001530  30 30 2c 79 74 25 29 0d  07 94 43 20 79 74 25 3d  |00,yt%)...C yt%=|
00001540  79 63 25 2b 35 36 3a e7  28 79 74 25 3e 28 70 62  |yc%+56:.(yt%>(pb|
00001550  25 21 33 32 2d 34 34 29  29 80 28 79 74 25 3c 70  |%!32-44)).(yt%<p|
00001560  62 25 21 34 30 29 20 f2  64 37 61 28 26 37 37 46  |b%!40) .d7a(&77F|
00001570  46 37 37 30 30 2c 79 74  25 29 0d 07 9e 44 20 79  |F7700,yt%)...D y|
00001580  74 25 3d 79 63 25 2b 31  30 38 3a e7 28 79 74 25  |t%=yc%+108:.(yt%|
00001590  3e 28 70 62 25 21 33 32  2d 34 34 29 29 80 28 79  |>(pb%!32-44)).(y|
000015a0  74 25 3c 70 62 25 21 34  30 29 20 f2 64 37 61 28  |t%<pb%!40) .d7a(|
000015b0  26 37 37 37 37 46 46 30  30 2c 79 74 25 29 0d 07  |&7777FF00,yt%)..|
000015c0  a8 44 20 79 74 25 3d 79  63 25 2b 31 36 30 3a e7  |.D yt%=yc%+160:.|
000015d0  28 79 74 25 3e 28 70 62  25 21 33 32 2d 34 34 29  |(yt%>(pb%!32-44)|
000015e0  29 80 28 79 74 25 3c 70  62 25 21 34 30 29 20 f2  |).(yt%<pb%!40) .|
000015f0  64 37 61 28 26 46 46 42  42 42 42 30 30 2c 79 74  |d7a(&FFBBBB00,yt|
00001600  25 29 0d 07 b2 44 20 79  74 25 3d 79 63 25 2b 32  |%)...D yt%=yc%+2|
00001610  31 32 3a e7 28 79 74 25  3e 28 70 62 25 21 33 32  |12:.(yt%>(pb%!32|
00001620  2d 34 34 29 29 80 28 79  74 25 3c 70 62 25 21 34  |-44)).(yt%<pb%!4|
00001630  30 29 20 f2 64 37 61 28  26 42 42 42 42 46 46 30  |0) .d7a(&BBBBFF0|
00001640  30 2c 79 74 25 29 0d 07  bc 44 20 79 74 25 3d 79  |0,yt%)...D yt%=y|
00001650  63 25 2b 32 36 34 3a e7  28 79 74 25 3e 28 70 62  |c%+264:.(yt%>(pb|
00001660  25 21 33 32 2d 34 34 29  29 80 28 79 74 25 3c 70  |%!32-44)).(yt%<p|
00001670  62 25 21 34 30 29 20 f2  64 37 61 28 26 43 43 43  |b%!40) .d7a(&CCC|
00001680  43 43 43 30 30 2c 79 74  25 29 0d 07 c6 44 20 79  |CCC00,yt%)...D y|
00001690  74 25 3d 79 63 25 2b 33  31 36 3a e7 28 79 74 25  |t%=yc%+316:.(yt%|
000016a0  3e 28 70 62 25 21 33 32  2d 34 34 29 29 80 28 79  |>(pb%!32-44)).(y|
000016b0  74 25 3c 70 62 25 21 34  30 29 20 f2 64 37 61 28  |t%<pb%!40) .d7a(|
000016c0  26 32 32 45 45 41 41 30  30 2c 79 74 25 29 0d 07  |&22EEAA00,yt%)..|
000016d0  d0 17 20 c8 99 77 67 25  2c 2c 70 62 25 20 b8 20  |.. ..wg%,,pb% . |
000016e0  6d 6f 72 65 25 0d 07 da  08 20 ce 3a e1 0d 07 e4  |more%.... .:....|
000016f0  06 20 3a 0d 07 ee 15 20  dd 20 f2 64 37 61 28 21  |. :.... . .d7a(!|
00001700  63 37 25 2c 79 37 25 29  0d 07 f8 20 20 c8 99 63  |c7%,y7%)...  ..c|
00001710  73 25 2c 21 63 37 25 2c  2c 2c 26 31 30 30 2c 30  |s%,!c7%,,,&100,0|
00001720  20 b8 20 67 63 6f 6c 25  0d 08 02 18 20 c8 99 6f  | . gcol%.... ..o|
00001730  73 70 25 2c 72 66 61 25  2c 78 63 25 2c 79 37 25  |sp%,rfa%,xc%,y7%|
00001740  0d 08 0c 1b 20 c8 99 6f  73 70 25 2c 72 66 70 25  |.... ..osp%,rfp%|
00001750  2c 78 64 25 2c 79 37 25  2b 34 32 0d 08 16 06 20  |,xd%,y7%+42.... |
00001760  e1 0d 08 20 06 20 3a 0d  08 2a 27 20 dd 20 f2 64  |... . :..*' . .d|
00001770  38 3a c8 99 77 72 25 2c  2c 70 62 25 20 b8 20 6d  |8:..wr%,,pb% . m|
00001780  6f 72 65 25 3a 79 63 25  3d 70 62 25 21 38 0d 08  |ore%:yc%=pb%!8..|
00001790  34 0d 20 c8 95 20 6d 6f  72 65 25 0d 08 3e 30 20  |4. .. more%..>0 |
000017a0  e7 20 70 62 25 21 32 38  3e 28 70 62 25 21 34 2b  |. pb%!28>(pb%!4+|
000017b0  36 29 20 78 63 25 3d 70  62 25 21 32 38 20 8b 20  |6) xc%=pb%!28 . |
000017c0  78 63 25 3d 70 62 25 21  34 2b 36 0d 08 48 34 20  |xc%=pb%!4+6..H4 |
000017d0  e7 20 70 62 25 21 33 36  3c 28 70 62 25 21 34 2b  |. pb%!36<(pb%!4+|
000017e0  31 31 38 29 20 78 64 25  3d 70 62 25 21 33 36 20  |118) xd%=pb%!36 |
000017f0  8b 20 78 64 25 3d 70 62  25 21 34 2b 31 31 38 0d  |. xd%=pb%!4+118.|
00001800  08 52 43 20 79 74 25 3d  79 63 25 2b 35 36 3a e7  |.RC yt%=yc%+56:.|
00001810  28 79 74 25 3e 28 70 62  25 21 33 32 2d 34 34 29  |(yt%>(pb%!32-44)|
00001820  29 80 28 79 74 25 3c 70  62 25 21 34 30 29 20 f2  |).(yt%<pb%!40) .|
00001830  64 38 61 28 26 46 46 42  42 37 37 30 30 2c 79 74  |d8a(&FFBB7700,yt|
00001840  25 29 0d 08 5c 44 20 79  74 25 3d 79 63 25 2b 31  |%)..\D yt%=yc%+1|
00001850  30 38 3a e7 28 79 74 25  3e 28 70 62 25 21 33 32  |08:.(yt%>(pb%!32|
00001860  2d 34 34 29 29 80 28 79  74 25 3c 70 62 25 21 34  |-44)).(yt%<pb%!4|
00001870  30 29 20 f2 64 38 61 28  26 37 37 46 46 37 37 30  |0) .d8a(&77FF770|
00001880  30 2c 79 74 25 29 0d 08  66 44 20 79 74 25 3d 79  |0,yt%)..fD yt%=y|
00001890  63 25 2b 31 36 30 3a e7  28 79 74 25 3e 28 70 62  |c%+160:.(yt%>(pb|
000018a0  25 21 33 32 2d 34 34 29  29 80 28 79 74 25 3c 70  |%!32-44)).(yt%<p|
000018b0  62 25 21 34 30 29 20 f2  64 38 61 28 26 37 37 37  |b%!40) .d8a(&777|
000018c0  37 46 46 30 30 2c 79 74  25 29 0d 08 70 17 20 c8  |7FF00,yt%)..p. .|
000018d0  99 77 67 25 2c 2c 70 62  25 20 b8 20 6d 6f 72 65  |.wg%,,pb% . more|
000018e0  25 0d 08 7a 08 20 ce 3a  e1 0d 08 84 06 20 3a 0d  |%..z. .:..... :.|
000018f0  08 8e 15 20 dd 20 f2 64  38 61 28 21 63 38 25 2c  |... . .d8a(!c8%,|
00001900  79 38 25 29 0d 08 98 20  20 c8 99 63 73 25 2c 21  |y8%)...  ..cs%,!|
00001910  63 38 25 2c 2c 2c 26 31  30 30 2c 30 20 b8 20 67  |c8%,,,&100,0 . g|
00001920  63 6f 6c 25 0d 08 a2 18  20 c8 99 6f 73 70 25 2c  |col%.... ..osp%,|
00001930  72 66 61 25 2c 78 63 25  2c 79 38 25 0d 08 ac 1b  |rfa%,xc%,y8%....|
00001940  20 c8 99 6f 73 70 25 2c  72 66 70 25 2c 78 64 25  | ..osp%,rfp%,xd%|
00001950  2c 79 38 25 2b 34 32 0d  08 b6 06 20 e1 0d 08 c0  |,y8%+42.... ....|
00001960  06 20 3a 0d 08 ca 24 20  dd 20 f2 64 39 28 69 63  |. :...$ . .d9(ic|
00001970  6f 6e 25 29 3a c8 99 77  72 25 2c 2c 70 62 25 20  |on%):..wr%,,pb% |
00001980  b8 20 6d 6f 72 65 25 0d  08 d4 0d 20 c8 95 20 6d  |. more%.... .. m|
00001990  6f 72 65 25 0d 08 de 38  20 76 61 78 6e 25 3d 70  |ore%...8 vaxn%=p|
000019a0  62 25 21 32 38 3a 76 61  79 6e 25 3d 70 62 25 21  |b%!28:vayn%=pb%!|
000019b0  33 32 3a 76 61 78 6d 25  3d 70 62 25 21 33 36 3a  |32:vaxm%=pb%!36:|
000019c0  76 61 79 6d 25 3d 70 62  25 21 34 30 0d 08 e8 29  |vaym%=pb%!40...)|
000019d0  20 c8 99 63 73 25 2c 21  73 74 6f 72 65 25 28 73  | ..cs%,!store%(s|
000019e0  74 72 25 29 2c 2c 2c 26  31 30 30 2c 30 20 b8 20  |tr%),,,&100,0 . |
000019f0  67 63 6f 6c 25 0d 08 f2  1c 20 c8 99 6f 73 70 25  |gcol%.... ..osp%|
00001a00  2c 70 70 61 25 2c 76 61  78 6e 25 2c 76 61 79 6e  |,ppa%,vaxn%,vayn|
00001a10  25 0d 08 fc 1c 20 c8 99  6f 73 70 25 2c 72 66 70  |%.... ..osp%,rfp|
00001a20  25 2c 76 61 78 6d 25 2c  76 61 79 6d 25 0d 09 06  |%,vaxm%,vaym%...|
00001a30  18 20 e7 20 69 63 6f 6e  25 20 c8 99 77 70 69 25  |. . icon% ..wpi%|
00001a40  2c 2c 70 39 25 0d 09 10  17 20 c8 99 77 67 25 2c  |,,p9%.... ..wg%,|
00001a50  2c 70 62 25 20 b8 20 6d  6f 72 65 25 0d 09 1a 08  |,pb% . more%....|
00001a60  20 ce 3a e1 0d 09 24 06  20 3a 0d 09 2e 0d 20 dd  | .:...$. :.... .|
00001a70  20 f2 63 6c 6f 73 65 0d  09 38 0e 20 c8 8e 20 21  | .close..8. .. !|
00001a80  70 62 25 20 ca 0d 09 42  16 20 c9 20 77 31 68 25  |pb% ...B. . w1h%|
00001a90  3a c8 99 77 63 25 2c 2c  70 62 25 0d 09 4c 16 20  |:..wc%,,pb%..L. |
00001aa0  c9 20 77 30 68 25 3a c8  99 77 63 25 2c 2c 70 62  |. w0h%:..wc%,,pb|
00001ab0  25 0d 09 56 24 20 c9 20  77 37 68 25 3a c8 99 77  |%..V$ . w7h%:..w|
00001ac0  63 25 2c 2c 70 62 25 3a  77 25 28 34 31 2c 31 29  |c%,,pb%:w%(41,1)|
00001ad0  3d 70 38 30 25 0d 09 60  2d 20 c9 20 77 38 68 25  |=p80%..`- . w8h%|
00001ae0  3a c8 99 77 63 25 2c 2c  70 62 25 3a 77 25 28 34  |:..wc%,,pb%:w%(4|
00001af0  32 2c 31 29 3d 70 38 30  25 3a c8 8e 20 77 76 25  |2,1)=p80%:.. wv%|
00001b00  20 ca 0d 09 6a 21 20 c9  20 30 3a f2 72 65 61 64  | ...j! . 0:.read|
00001b10  28 26 41 2c 72 64 74 25  2c 67 64 74 25 2c 62 64  |(&A,rdt%,gdt%,bd|
00001b20  74 25 29 0d 09 74 21 20  c9 20 31 3a f2 72 65 61  |t%)..t! . 1:.rea|
00001b30  64 28 31 36 2c 72 68 74  25 2c 67 68 74 25 2c 62  |d(16,rht%,ght%,b|
00001b40  68 74 25 29 0d 09 7e 20  20 c9 20 32 3a f2 72 65  |ht%)..~  . 2:.re|
00001b50  61 64 28 32 2c 72 62 74  25 2c 67 62 74 25 2c 62  |ad(2,rbt%,gbt%,b|
00001b60  62 74 25 29 0d 09 88 1f  20 7f 20 f2 72 65 61 64  |bt%).... . .read|
00001b70  28 26 41 2c 72 64 74 25  2c 67 64 74 25 2c 62 64  |(&A,rdt%,gdt%,bd|
00001b80  74 25 29 0d 09 92 0b 20  cb 3a f2 6d 6f 64 0d 09  |t%).... .:.mod..|
00001b90  9c 22 20 c9 20 77 39 68  25 3a 61 63 74 69 76 65  |." . w9h%:active|
00001ba0  25 3d a3 3a 24 63 61 70  25 3d 6d 24 28 34 31 29  |%=.:$cap%=m$(41)|
00001bb0  0d 09 a6 38 20 f2 73 65  74 39 28 30 2c 26 37 30  |...8 .set9(0,&70|
00001bc0  30 30 30 30 30 2c 26 46  30 30 30 30 30 30 29 3a  |00000,&F000000):|
00001bd0  c8 99 77 63 25 2c 2c 70  62 25 3a 77 25 28 34 34  |..wc%,,pb%:w%(44|
00001be0  2c 31 29 3d 70 38 30 25  0d 09 b0 0c 20 7f 20 69  |,1)=p80%.... . i|
00001bf0  74 25 3d 30 0d 09 ba 06  20 f5 0d 09 c4 17 20 e7  |t%=0.... ..... .|
00001c00  28 77 25 28 69 74 25 2c  31 29 3d 21 70 62 25 29  |(w%(it%,1)=!pb%)|
00001c10  8c 0d 09 ce 25 20 c8 99  77 78 25 2c 2c 70 62 25  |....% ..wx%,,pb%|
00001c20  3a 77 25 28 69 74 25 2c  31 29 3d 70 38 30 25 3a  |:w%(it%,1)=p80%:|
00001c30  69 74 25 3d 34 30 0d 09  d8 0d 20 cd 3a 69 74 25  |it%=40.... .:it%|
00001c40  2b 3d 31 0d 09 e2 0d 20  fd 20 69 74 25 3d 34 31  |+=1.... . it%=41|
00001c50  0d 09 ec 08 20 cb 3a e1  0d 09 f6 06 20 3a 0d 0a  |.... .:..... :..|
00001c60  00 1e 20 dd 20 f2 6d 6f  75 73 65 3a f2 6d 6f 75  |.. . .mouse:.mou|
00001c70  73 65 73 74 61 74 65 28  70 62 25 29 0d 0a 0a 1b  |sestate(pb%)....|
00001c80  20 e7 28 6d 73 25 80 32  29 f2 6d 65 6e 75 20 8b  | .(ms%.2).menu .|
00001c90  20 f2 63 6c 69 63 6b 0d  0a 14 06 20 e1 0d 0a 1e  | .click.... ....|
00001ca0  06 20 3a 0d 0a 28 18 20  dd 20 f2 70 69 66 3a c8  |. :..(. . .pif:.|
00001cb0  99 77 67 70 25 2c 2c 70  69 66 25 0d 0a 32 18 20  |.wgp%,,pif%..2. |
00001cc0  f2 6d 6f 75 73 65 73 74  61 74 65 28 70 69 66 25  |.mousestate(pif%|
00001cd0  29 3a e1 0d 0a 3c 06 20  3a 0d 0a 46 18 20 dd 20  |):...<. :..F. . |
00001ce0  f2 6d 6f 75 73 65 73 74  61 74 65 28 6d 73 62 25  |.mousestate(msb%|
00001cf0  29 0d 0a 50 3c 20 6d 78  25 3d 21 6d 73 62 25 3a  |)..P< mx%=!msb%:|
00001d00  6d 79 25 3d 6d 73 62 25  21 34 3a 6d 73 25 3d 6d  |my%=msb%!4:ms%=m|
00001d10  73 62 25 21 38 3a 6d 68  25 3d 6d 73 62 25 21 31  |sb%!8:mh%=msb%!1|
00001d20  32 3a 6d 69 25 3d 6d 73  62 25 21 31 36 0d 0a 5a  |2:mi%=msb%!16..Z|
00001d30  1e 20 e7 20 28 6d 73 25  20 80 20 31 29 20 62 6b  |. . (ms% . 1) bk|
00001d40  25 3d b9 20 8b 20 62 6b  25 3d a3 0d 0a 64 06 20  |%=. . bk%=...d. |
00001d50  e1 0d 0a 6e 06 20 3a 0d  0a 78 0d 20 dd 20 f2 63  |...n. :..x. . .c|
00001d60  6c 69 63 6b 0d 0a 82 0b  20 c8 8e 6d 68 25 ca 0d  |lick.... ..mh%..|
00001d70  0a 8c 14 20 c9 77 31 68  25 3a f2 70 6f 73 69 74  |... .w1h%:.posit|
00001d80  69 6f 6e 0d 0a 96 0f 20  c9 77 37 68 25 3a f2 63  |ion.... .w7h%:.c|
00001d90  6b 37 0d 0a a0 0f 20 c9  77 38 68 25 3a f2 63 6b  |k7.... .w8h%:.ck|
00001da0  38 0d 0a aa 0f 20 c9 77  39 68 25 3a f2 63 6b 39  |8.... .w9h%:.ck9|
00001db0  0d 0a b4 0d 20 c9 2d 32  3a f2 77 69 62 0d 0a be  |.... .-2:.wib...|
00001dc0  12 20 c9 77 25 28 33 37  2c 31 29 3a f2 64 6e 0d  |. .w%(37,1):.dn.|
00001dd0  0a c8 12 20 c9 77 25 28  33 38 2c 31 29 3a f2 64  |... .w%(38,1):.d|
00001de0  6e 0d 0a d2 12 20 c9 77  25 28 33 39 2c 31 29 3a  |n.... .w%(39,1):|
00001df0  f2 64 6e 0d 0a dc 12 20  c9 77 25 28 34 30 2c 31  |.dn.... .w%(40,1|
00001e00  29 3a f2 64 6e 0d 0a e6  0a 20 7f 20 f2 63 63 0d  |):.dn.... . .cc.|
00001e10  0a f0 08 20 cb 3a e1 0d  0a fa 06 20 3a 0d 0b 04  |... .:..... :...|
00001e20  1d 20 dd 20 f2 70 6f 73  69 74 69 6f 6e 3a c8 99  |. . .position:..|
00001e30  77 77 73 25 2c 2c 69 77  31 25 0d 0b 0e 0e 20 e7  |wws%,,iw1%.... .|
00001e40  73 63 61 6c 65 64 25 8c  0d 0b 18 2a 20 63 78 25  |scaled%....* cx%|
00001e50  3d 28 6d 78 25 2d 69 77  31 25 21 34 29 2a 6b 31  |=(mx%-iw1%!4)*k1|
00001e60  25 2f 28 69 77 31 25 21  31 32 2d 69 77 31 25 21  |%/(iw1%!12-iw1%!|
00001e70  34 29 0d 0b 22 2c 20 63  73 79 25 3d 28 6d 79 25  |4)..", csy%=(my%|
00001e80  2d 69 77 31 25 21 31 36  29 2a 6a 31 25 2f 28 69  |-iw1%!16)*j1%/(i|
00001e90  77 31 25 21 38 2d 69 77  31 25 21 31 36 29 0d 0b  |w1%!8-iw1%!16)..|
00001ea0  2c 06 20 cc 0d 0b 36 1c  20 63 78 25 3d 6d 78 25  |,. ...6. cx%=mx%|
00001eb0  2b 69 77 31 25 21 26 31  34 2d 69 77 31 25 21 34  |+iw1%!&14-iw1%!4|
00001ec0  0d 0b 40 1e 20 63 73 79  25 3d 6d 79 25 2b 69 77  |..@. csy%=my%+iw|
00001ed0  31 25 21 26 31 38 2d 69  77 31 25 21 31 36 0d 0b  |1%!&18-iw1%!16..|
00001ee0  4a 06 20 cd 0d 0b 54 10  20 c8 8e 20 a4 77 68 69  |J. ...T. .. .whi|
00001ef0  63 68 20 ca 0d 0b 5e 23  20 c9 20 34 33 3a f2 73  |ch ...^# . 43:.s|
00001f00  68 75 74 3a e7 20 62 6b  25 20 8b 20 c8 99 77 63  |hut:. bk% . ..wc|
00001f10  25 2c 2c 69 77 31 25 0d  0b 68 0d 20 c9 20 34 35  |%,,iw1%..h. . 45|
00001f20  3a f2 64 6e 0d 0b 72 15  20 7f 3a f2 63 68 65 63  |:.dn..r. .:.chec|
00001f30  6b 3a f2 6c 61 64 64 65  72 0d 0b 7c 08 20 cb 3a  |k:.ladder..|. .:|
00001f40  e1 0d 0b 86 06 20 3a 0d  0b 90 1a 20 dd 20 a4 77  |..... :.... . .w|
00001f50  68 69 63 68 3a 78 79 25  3d 30 3a 69 74 25 3d 34  |hich:xy%=0:it%=4|
00001f60  35 0d 0b 9a 06 20 f5 0d  0b a4 29 20 71 78 25 3d  |5.... ....) qx%=|
00001f70  63 78 25 2d 77 25 28 78  79 25 2c 32 29 3a 71 79  |cx%-w%(xy%,2):qy|
00001f80  25 3d 63 73 79 25 2d 77  25 28 78 79 25 2c 33 29  |%=csy%-w%(xy%,3)|
00001f90  0d 0b ae 19 20 71 78 79  25 3d 71 78 25 2a 71 78  |.... qxy%=qx%*qx|
00001fa0  25 2b 71 79 25 2a 71 79  25 0d 0b b8 20 20 e7 20  |%+qy%*qy%...  . |
00001fb0  28 71 78 79 25 3c 73 71  25 29 20 69 74 25 3d 78  |(qxy%<sq%) it%=x|
00001fc0  79 25 3a 78 79 25 3d 34  34 0d 0b c2 0b 20 78 79  |y%:xy%=44.... xy|
00001fd0  25 2b 3d 31 0d 0b cc 0d  20 fd 20 78 79 25 3d 34  |%+=1.... . xy%=4|
00001fe0  35 0d 0b d6 09 20 3d 69  74 25 0d 0b e0 06 20 3a  |5.... =it%.... :|
00001ff0  0d 0b ea 13 20 dd 20 f2  63 68 65 63 6b 3a 63 6b  |.... . .check:ck|
00002000  25 3d b9 0d 0b f4 19 20  e7 20 77 25 28 69 74 25  |%=..... . w%(it%|
00002010  2c 31 29 3d 70 38 30 25  20 8b 20 e1 0d 0b fe 17  |,1)=p80% . .....|
00002020  20 c8 99 77 77 73 25 2c  2c 69 77 31 25 3a 63 6b  | ..wws%,,iw1%:ck|
00002030  25 3d a3 0d 0c 08 0b 20  c8 8e 20 b9 20 ca 0d 0c  |%=..... .. . ...|
00002040  12 25 20 c9 20 28 69 74  25 3c 33 37 29 3a 6a 32  |.% . (it%<37):j2|
00002050  25 3d 2d 34 34 2a 28 77  25 28 69 74 25 2c 34 29  |%=-44*(w%(it%,4)|
00002060  2b 31 29 0d 0c 1c 1c 20  68 32 25 3d 69 77 31 25  |+1).... h2%=iw1%|
00002070  21 31 36 3a 66 32 25 3d  68 32 25 2b 6a 32 25 0d  |!16:f2%=h2%+j2%.|
00002080  0c 26 0f 20 e7 20 72 69  67 68 74 25 20 8c 0d 0c  |.&. . right% ...|
00002090  30 21 20 65 32 25 3d 69  77 31 25 21 31 32 2b 32  |0! e2%=iw1%!12+2|
000020a0  3a 67 32 25 3d 65 32 25  2b 77 69 64 74 68 25 0d  |:g2%=e2%+width%.|
000020b0  0c 3a 06 20 cc 0d 0c 44  20 20 67 32 25 3d 69 77  |.:. ...D  g2%=iw|
000020c0  31 25 21 34 2d 32 3a 65  32 25 3d 67 32 25 2d 77  |1%!4-2:e2%=g2%-w|
000020d0  69 64 74 68 25 0d 0c 4e  06 20 cd 0d 0c 58 19 20  |idth%..N. ...X. |
000020e0  77 25 28 69 74 25 2c 31  29 3d a4 63 72 65 61 74  |w%(it%,1)=.creat|
000020f0  65 5f 77 32 0d 0c 62 1a  20 c9 20 28 33 36 3c 69  |e_w2..b. . (36<i|
00002100  74 25 29 20 80 20 28 69  74 25 3c 34 31 29 0d 0c  |t%) . (it%<41)..|
00002110  6c 1c 20 68 34 25 3d 69  77 31 25 21 31 36 3a 66  |l. h4%=iw1%!16:f|
00002120  34 25 3d 68 34 25 2d 31  35 36 0d 0c 76 0f 20 e7  |4%=h4%-156..v. .|
00002130  20 72 69 67 68 74 25 20  8c 0d 0c 80 1e 20 65 34  | right% ..... e4|
00002140  25 3d 69 77 31 25 21 31  32 2b 32 3a 67 34 25 3d  |%=iw1%!12+2:g4%=|
00002150  65 34 25 2b 31 34 34 0d  0c 8a 06 20 cc 0d 0c 94  |e4%+144.... ....|
00002160  1e 20 67 34 25 3d 69 77  31 25 21 34 2d 34 32 3a  |. g4%=iw1%!4-42:|
00002170  65 34 25 3d 67 34 25 2d  31 34 34 0d 0c 9e 06 20  |e4%=g4%-144.... |
00002180  cd 0d 0c a8 19 20 77 25  28 69 74 25 2c 31 29 3d  |..... w%(it%,1)=|
00002190  a4 63 72 65 61 74 65 5f  77 34 0d 0c b2 0f 20 c9  |.create_w4.... .|
000021a0  20 28 69 74 25 3d 34 31  29 0d 0c bc 1c 20 68 37  | (it%=41).... h7|
000021b0  25 3d 69 77 31 25 21 31  36 3a 66 37 25 3d 68 37  |%=iw1%!16:f7%=h7|
000021c0  25 2d 36 31 36 0d 0c c6  0f 20 e7 20 72 69 67 68  |%-616.... . righ|
000021d0  74 25 20 8c 0d 0c d0 1e  20 65 37 25 3d 69 77 31  |t% ..... e7%=iw1|
000021e0  25 21 31 32 2b 32 3a 67  37 25 3d 65 37 25 2b 32  |%!12+2:g7%=e7%+2|
000021f0  38 30 0d 0c da 06 20 cc  0d 0c e4 1e 20 67 37 25  |80.... ..... g7%|
00002200  3d 69 77 31 25 21 34 2d  34 32 3a 65 37 25 3d 67  |=iw1%!4-42:e7%=g|
00002210  37 25 2d 32 38 30 0d 0c  ee 06 20 cd 0d 0c f8 32  |7%-280.... ....2|
00002220  20 69 77 37 25 21 34 3d  65 37 25 3a 69 77 37 25  | iw7%!4=e7%:iw7%|
00002230  21 38 3d 66 37 25 3a 69  77 37 25 21 31 32 3d 67  |!8=f7%:iw7%!12=g|
00002240  37 25 3a 69 77 37 25 21  31 36 3d 68 37 25 0d 0d  |7%:iw7%!16=h7%..|
00002250  02 12 20 77 25 28 34 31  2c 31 29 3d 77 37 68 25  |.. w%(41,1)=w7h%|
00002260  0d 0d 0c 0f 20 c9 20 28  69 74 25 3d 34 32 29 0d  |.... . (it%=42).|
00002270  0d 16 1c 20 68 38 25 3d  69 77 31 25 21 31 36 3a  |... h8%=iw1%!16:|
00002280  66 38 25 3d 68 38 25 2d  32 35 32 0d 0d 20 0f 20  |f8%=h8%-252.. . |
00002290  e7 20 72 69 67 68 74 25  20 8c 0d 0d 2a 1e 20 65  |. right% ...*. e|
000022a0  38 25 3d 69 77 31 25 21  31 32 2b 32 3a 67 38 25  |8%=iw1%!12+2:g8%|
000022b0  3d 65 38 25 2b 32 38 30  0d 0d 34 06 20 cc 0d 0d  |=e8%+280..4. ...|
000022c0  3e 1d 20 67 38 25 3d 69  77 31 25 21 34 2d 32 3a  |>. g8%=iw1%!4-2:|
000022d0  65 38 25 3d 67 38 25 2d  32 38 30 0d 0d 48 06 20  |e8%=g8%-280..H. |
000022e0  cd 0d 0d 52 32 20 69 77  38 25 21 34 3d 65 38 25  |...R2 iw8%!4=e8%|
000022f0  3a 69 77 38 25 21 38 3d  66 38 25 3a 69 77 38 25  |:iw8%!8=f8%:iw8%|
00002300  21 31 32 3d 67 38 25 3a  69 77 38 25 21 31 36 3d  |!12=g8%:iw8%!16=|
00002310  68 38 25 0d 0d 5c 12 20  77 25 28 34 32 2c 31 29  |h8%..\. w%(42,1)|
00002320  3d 77 38 68 25 0d 0d 66  0f 20 c9 20 28 69 74 25  |=w8h%..f. . (it%|
00002330  3d 34 34 29 0d 0d 70 1c  20 68 39 25 3d 69 77 31  |=44)..p. h9%=iw1|
00002340  25 21 31 36 3a 66 39 25  3d 68 39 25 2d 32 36 30  |%!16:f9%=h9%-260|
00002350  0d 0d 7a 0f 20 e7 20 72  69 67 68 74 25 20 8c 0d  |..z. . right% ..|
00002360  0d 84 1e 20 65 39 25 3d  69 77 31 25 21 31 32 2b  |... e9%=iw1%!12+|
00002370  32 3a 67 39 25 3d 65 39  25 2b 32 38 30 0d 0d 8e  |2:g9%=e9%+280...|
00002380  06 20 cc 0d 0d 98 1d 20  67 39 25 3d 69 77 31 25  |. ..... g9%=iw1%|
00002390  21 34 2d 32 3a 65 39 25  3d 67 39 25 2d 32 38 30  |!4-2:e9%=g9%-280|
000023a0  0d 0d a2 06 20 cd 0d 0d  ac 32 20 69 77 39 25 21  |.... ....2 iw9%!|
000023b0  34 3d 65 39 25 3a 69 77  39 25 21 38 3d 66 39 25  |4=e9%:iw9%!8=f9%|
000023c0  3a 69 77 39 25 21 31 32  3d 67 39 25 3a 69 77 39  |:iw9%!12=g9%:iw9|
000023d0  25 21 31 36 3d 68 39 25  0d 0d b6 12 20 77 25 28  |%!16=h9%.... w%(|
000023e0  34 34 2c 31 29 3d 77 39  68 25 0d 0d c0 06 20 cb  |44,1)=w9h%.... .|
000023f0  0d 0d ca 06 20 e1 0d 0d  d4 06 20 3a 0d 0d de 0e  |.... ..... :....|
00002400  20 dd 20 f2 6c 61 64 64  65 72 0d 0d e8 0b 20 c8  | . .ladder.... .|
00002410  8e 20 b9 20 ca 0d 0d f2  0f 20 c9 20 28 69 74 25  |. . ..... . (it%|
00002420  3c 33 37 29 0d 0d fc 15  20 69 77 32 25 21 30 3d  |<37).... iw2%!0=|
00002430  77 25 28 69 74 25 2c 31  29 0d 0e 06 11 20 c8 99  |w%(it%,1).... ..|
00002440  77 77 73 25 2c 2c 69 77  32 25 0d 0e 10 22 20 e7  |wws%,,iw2%..." .|
00002450  20 62 6b 25 20 69 77 32  25 21 32 38 3d 2d 32 20  | bk% iw2%!28=-2 |
00002460  8b 20 69 77 32 25 21 32  38 3d 2d 31 0d 0e 1a 10  |. iw2%!28=-1....|
00002470  20 c8 99 77 6f 25 2c 2c  69 77 32 25 0d 0e 24 1a  | ..wo%,,iw2%..$.|
00002480  20 c9 20 28 33 36 3c 69  74 25 29 20 80 20 28 69  | . (36<it%) . (i|
00002490  74 25 3c 34 31 29 0d 0e  2e 14 20 21 69 77 34 25  |t%<41).... !iw4%|
000024a0  3d 77 25 28 69 74 25 2c  31 29 0d 0e 38 11 20 c8  |=w%(it%,1)..8. .|
000024b0  99 77 77 73 25 2c 2c 69  77 34 25 0d 0e 42 22 20  |.wws%,,iw4%..B" |
000024c0  e7 20 62 6b 25 20 69 77  34 25 21 32 38 3d 2d 32  |. bk% iw4%!28=-2|
000024d0  20 8b 20 69 77 34 25 21  32 38 3d 2d 31 0d 0e 4c  | . iw4%!28=-1..L|
000024e0  10 20 c8 99 77 6f 25 2c  2c 69 77 34 25 0d 0e 56  |. ..wo%,,iw4%..V|
000024f0  0f 20 c9 20 28 69 74 25  3d 34 31 29 0d 0e 60 17  |. . (it%=41)..`.|
00002500  20 e7 20 63 6b 25 20 c8  99 77 77 73 25 2c 2c 69  | . ck% ..wws%,,i|
00002510  77 37 25 0d 0e 6a 22 20  e7 20 62 6b 25 20 69 77  |w7%..j" . bk% iw|
00002520  37 25 21 32 38 3d 2d 32  20 8b 20 69 77 37 25 21  |7%!28=-2 . iw7%!|
00002530  32 38 3d 2d 31 0d 0e 74  10 20 c8 99 77 6f 25 2c  |28=-1..t. ..wo%,|
00002540  2c 69 77 37 25 0d 0e 7e  0f 20 c9 20 28 69 74 25  |,iw7%..~. . (it%|
00002550  3d 34 32 29 0d 0e 88 17  20 e7 20 63 6b 25 20 c8  |=42).... . ck% .|
00002560  99 77 77 73 25 2c 2c 69  77 38 25 0d 0e 92 22 20  |.wws%,,iw8%..." |
00002570  e7 20 62 6b 25 20 69 77  38 25 21 32 38 3d 2d 32  |. bk% iw8%!28=-2|
00002580  20 8b 20 69 77 38 25 21  32 38 3d 2d 31 0d 0e 9c  | . iw8%!28=-1...|
00002590  10 20 c8 99 77 6f 25 2c  2c 69 77 38 25 0d 0e a6  |. ..wo%,,iw8%...|
000025a0  0f 20 c9 20 28 69 74 25  3d 34 34 29 0d 0e b0 17  |. . (it%=44)....|
000025b0  20 e7 20 63 6b 25 20 c8  99 77 77 73 25 2c 2c 69  | . ck% ..wws%,,i|
000025c0  77 39 25 0d 0e ba 22 20  e7 20 62 6b 25 20 69 77  |w9%..." . bk% iw|
000025d0  39 25 21 32 38 3d 2d 32  20 8b 20 69 77 39 25 21  |9%!28=-2 . iw9%!|
000025e0  32 38 3d 2d 31 0d 0e c4  10 20 c8 99 77 6f 25 2c  |28=-1.... ..wo%,|
000025f0  2c 69 77 39 25 0d 0e ce  06 20 cb 0d 0e d8 06 20  |,iw9%.... ..... |
00002600  e1 0d 0e e2 06 20 3a 0d  0e ec 0e 20 dd 20 f2 61  |..... :.... . .a|
00002610  64 6a 75 73 74 0d 0e f6  14 20 21 69 77 32 25 3d  |djust.... !iw2%=|
00002620  77 25 28 69 74 25 2c 31  29 0d 0f 00 11 20 c8 99  |w%(it%,1).... ..|
00002630  77 77 73 25 2c 2c 69 77  32 25 0d 0f 0a 1f 20 6d  |wws%,,iw2%.... m|
00002640  69 64 64 6c 65 25 3d 28  69 77 32 25 21 31 32 2b  |iddle%=(iw2%!12+|
00002650  69 77 32 25 21 34 29 2f  32 0d 0f 14 1c 20 69 77  |iw2%!4)/2.... iw|
00002660  32 25 21 34 3d 6d 69 64  64 6c 65 25 2d 77 69 64  |2%!4=middle%-wid|
00002670  74 68 25 2f 32 0d 0f 1e  1a 20 69 77 32 25 21 31  |th%/2.... iw2%!1|
00002680  32 3d 69 77 32 25 21 34  2b 77 69 64 74 68 25 0d  |2=iw2%!4+width%.|
00002690  0f 28 10 20 c8 99 77 6f  25 2c 2c 69 77 32 25 0d  |.(. ..wo%,,iw2%.|
000026a0  0f 32 35 20 c8 99 77 66  72 25 2c 77 25 28 69 74  |.25 ..wfr%,w%(it|
000026b0  25 2c 31 29 2c 69 32 25  2c 28 2d 34 34 2a 28 77  |%,1),i2%,(-44*(w|
000026c0  25 28 69 74 25 2c 34 29  2b 31 29 29 2c 6b 32 25  |%(it%,4)+1)),k2%|
000026d0  2c 6c 32 25 0d 0f 3c 06  20 e1 0d 0f 46 06 20 3a  |,l2%..<. ...F. :|
000026e0  0d 0f 50 1b 20 dd 20 f2  61 64 6a 75 73 74 31 28  |..P. . .adjust1(|
000026f0  6c 73 70 25 2c 6c 69 6e  64 25 29 0d 0f 5a 18 20  |lsp%,lind%)..Z. |
00002700  e7 20 77 25 28 6c 73 70  25 2c 31 29 3d 70 38 30  |. w%(lsp%,1)=p80|
00002710  25 20 e1 0d 0f 64 3c 20  c8 99 77 66 72 25 2c 77  |% ...d< ..wfr%,w|
00002720  25 28 6c 73 70 25 2c 31  29 2c 69 32 25 2c 28 2d  |%(lsp%,1),i2%,(-|
00002730  34 34 2a 28 6c 69 6e 64  25 2b 31 29 29 2c 6b 32  |44*(lind%+1)),k2|
00002740  25 2c 28 2d 34 34 2a 28  6c 69 6e 64 25 29 29 0d  |%,(-44*(lind%)).|
00002750  0f 6e 06 20 e1 0d 0f 78  06 20 3a 0d 0f 82 18 20  |.n. ...x. :.... |
00002760  dd 20 f2 77 69 62 3a c8  99 77 77 73 25 2c 2c 69  |. .wib:..wws%,,i|
00002770  77 31 25 0d 0f 8c 22 20  e7 20 62 6b 25 20 69 77  |w1%..." . bk% iw|
00002780  31 25 21 32 38 3d 2d 32  20 8b 20 69 77 31 25 21  |1%!28=-2 . iw1%!|
00002790  32 38 3d 2d 31 0d 0f 96  21 20 e7 63 6c 65 61 72  |28=-1...! .clear|
000027a0  65 64 25 f2 72 65 73 74  61 72 74 3a 63 6c 65 61  |ed%.restart:clea|
000027b0  72 65 64 25 3d a3 0d 0f  a0 10 20 c8 99 77 6f 25  |red%=..... ..wo%|
000027c0  2c 2c 69 77 31 25 0d 0f  aa 06 20 e1 0d 0f b4 06  |,,iw1%.... .....|
000027d0  20 3a 0d 0f be 0b 20 dd  20 f2 63 6b 37 0d 0f c8  | :.... . .ck7...|
000027e0  0e 20 e7 20 6d 69 25 3d  30 20 8c 0d 0f d2 0d 20  |. . mi%=0 ..... |
000027f0  c8 8e 20 76 76 25 20 ca  0d 0f dc 1c 20 c9 20 30  |.. vv% ..... . 0|
00002800  3a e7 20 62 6b 25 20 76  76 25 3d 32 20 8b 20 76  |:. bk% vv%=2 . v|
00002810  76 25 3d 31 0d 0f e6 1c  20 c9 20 31 3a e7 20 62  |v%=1.... . 1:. b|
00002820  6b 25 20 76 76 25 3d 30  20 8b 20 76 76 25 3d 32  |k% vv%=0 . vv%=2|
00002830  0d 0f f0 1c 20 c9 20 32  3a e7 20 62 6b 25 20 76  |.... . 2:. bk% v|
00002840  76 25 3d 31 20 8b 20 76  76 25 3d 30 0d 0f fa 0c  |v%=1 . vv%=0....|
00002850  20 7f 20 76 76 25 3d 30  0d 10 04 06 20 cb 0d 10  | . vv%=0.... ...|
00002860  0e 08 20 f2 6d 37 0d 10  18 06 20 cd 0d 10 22 06  |.. .m7.... ...".|
00002870  20 e1 0d 10 2c 06 20 3a  0d 10 36 0b 20 dd 20 f2  | ...,. :..6. . .|
00002880  63 6b 38 0d 10 40 0d 20  c8 8e 20 6d 69 25 20 ca  |ck8..@. .. mi% .|
00002890  0d 10 4a 19 20 c9 20 30  3a 75 70 25 3d 77 76 25  |..J. . 0:up%=wv%|
000028a0  3a c8 8e 20 75 70 25 20  ca 0d 10 54 1c 20 c9 20  |:.. up% ...T. . |
000028b0  30 3a e7 20 62 6b 25 20  77 76 25 3d 32 20 8b 20  |0:. bk% wv%=2 . |
000028c0  77 76 25 3d 31 0d 10 5e  1c 20 c9 20 31 3a e7 20  |wv%=1..^. . 1:. |
000028d0  62 6b 25 20 77 76 25 3d  30 20 8b 20 77 76 25 3d  |bk% wv%=0 . wv%=|
000028e0  32 0d 10 68 1c 20 c9 20  32 3a e7 20 62 6b 25 20  |2..h. . 2:. bk% |
000028f0  77 76 25 3d 31 20 8b 20  77 76 25 3d 30 0d 10 72  |wv%=1 . wv%=0..r|
00002900  0c 20 7f 20 77 76 25 3d  30 0d 10 7c 0a 20 cb 3a  |. . wv%=0..|. .:|
00002910  f2 6d 38 0d 10 86 0e 20  c9 20 31 3a f2 66 72 75  |.m8.... . 1:.fru|
00002920  73 0d 10 90 23 20 e7 20  28 21 63 74 62 25 3d 77  |s...# . (!ctb%=w|
00002930  38 68 25 29 20 80 20 62  6b 25 20 c8 99 77 63 70  |8h%) . bk% ..wcp|
00002940  25 2c 2d 31 0d 10 9a 10  20 c9 20 32 3a f2 72 65  |%,-1.... . 2:.re|
00002950  74 75 72 6e 0d 10 a4 06  20 cb 0d 10 ae 06 20 e1  |turn.... ..... .|
00002960  0d 10 b8 06 20 3a 0d 10  c2 0b 20 dd 20 f2 63 6b  |.... :.... . .ck|
00002970  39 0d 10 cc 0d 20 c8 8e  20 6d 69 25 20 ca 0d 10  |9.... .. mi% ...|
00002980  d6 10 20 c9 20 30 3a e7  20 62 6b 25 20 8c 0d 10  |.. . 0:. bk% ...|
00002990  e0 40 20 e7 20 61 63 74  69 76 65 25 20 61 63 74  |.@ . active% act|
000029a0  69 76 65 25 3d a3 3a 24  63 61 70 25 3d 6d 24 28  |ive%=.:$cap%=m$(|
000029b0  34 31 29 3a f2 73 65 74  39 28 30 2c 26 37 30 30  |41):.set9(0,&700|
000029c0  30 30 30 30 2c 26 46 30  30 30 30 30 30 29 0d 10  |0000,&F000000)..|
000029d0  ea 06 20 cc 0d 10 f4 42  20 e7 20 61 63 74 69 76  |.. ....B . activ|
000029e0  65 25 20 8b 20 61 63 74  69 76 65 25 3d b9 3a 24  |e% . active%=.:$|
000029f0  63 61 70 25 3d 6d 24 28  34 30 29 3a f2 73 65 74  |cap%=m$(40):.set|
00002a00  39 28 30 2c 26 42 30 30  30 30 30 30 2c 26 46 30  |9(0,&B000000,&F0|
00002a10  30 30 30 30 30 29 0d 10  fe 06 20 cd 0d 11 08 38  |00000).... ....8|
00002a20  20 c8 99 26 34 32 20 b8  20 6f 74 25 3a 6f 74 25  | ..&42 . ot%:ot%|
00002a30  3d 6f 74 25 2b 67 6e 25  3a 64 39 25 3d 64 65 6c  |=ot%+gn%:d9%=del|
00002a40  61 79 25 3a 24 73 39 25  3d c3 28 64 39 25 29 3a  |ay%:$s9%=.(d9%):|
00002a50  f2 72 39 64 0d 11 12 1c  20 c9 20 35 3a 21 63 63  |.r9d.... . 5:!cc|
00002a60  63 25 3d 21 73 74 6f 72  65 25 28 73 74 72 25 29  |c%=!store%(str%)|
00002a70  0d 11 1c 19 20 f2 73 65  74 63 6f 6c 3a f2 6c 64  |.... .setcol:.ld|
00002a80  37 3a f2 6f 75 74 70 75  74 0d 11 26 2a 20 72 74  |7:.output..&* rt|
00002a90  6c 25 3d a3 3a e7 20 72  74 6f 25 20 f2 61 64 6a  |l%=.:. rto% .adj|
00002aa0  75 73 74 31 28 73 74 72  69 70 25 2c 69 6e 64 65  |ust1(strip%,inde|
00002ab0  7a 25 29 0d 11 30 06 20  7f 0d 11 3a 1c 20 e7 20  |z%)..0. ...:. . |
00002ac0  62 6b 25 20 73 74 72 25  3d 30 20 8b 20 73 74 72  |bk% str%=0 . str|
00002ad0  25 3d 6d 69 25 0d 11 44  0e 20 f2 6d 39 28 73 74  |%=mi%..D. .m9(st|
00002ae0  72 25 29 0d 11 4e 06 20  cb 0d 11 58 06 20 e1 0d  |r%)..N. ...X. ..|
00002af0  11 62 06 20 3a 0d 11 6c  26 20 dd 20 f2 72 39 3a  |.b. :..l& . .r9:|
00002b00  c8 99 77 66 72 25 2c 77  39 68 25 2c 37 30 2c 2d  |..wfr%,w9h%,70,-|
00002b10  32 30 38 2c 6b 39 25 2c  30 3a e1 0d 11 76 06 20  |208,k9%,0:...v. |
00002b20  3a 0d 11 80 2a 20 dd 20  f2 72 39 64 3a c8 99 77  |:...* . .r9d:..w|
00002b30  66 72 25 2c 77 39 68 25  2c 31 32 30 2c 2d 31 33  |fr%,w9h%,120,-13|
00002b40  32 2c 32 31 36 2c 2d 37  36 3a e1 0d 11 8a 06 20  |2,216,-76:..... |
00002b50  3a 0d 11 94 0b 20 dd 20  f2 6d 6f 64 0d 11 9e 3d  |:.... . .mod...=|
00002b60  20 72 68 6f 6c 64 25 3d  72 68 6f 6c 64 25 83 26  | rhold%=rhold%.&|
00002b70  31 30 30 3a 67 68 6f 6c  64 25 3d 67 68 6f 6c 64  |100:ghold%=ghold|
00002b80  25 83 26 31 30 30 3a 62  68 6f 6c 64 25 3d 62 68  |%.&100:bhold%=bh|
00002b90  6f 6c 64 25 83 26 31 30  30 0d 11 a8 06 20 e1 0d  |old%.&100.... ..|
00002ba0  11 b2 06 20 3a 0d 11 bc  11 20 dd 20 f2 73 69 73  |... :.... . .sis|
00002bb0  28 77 68 68 25 29 0d 11  c6 21 20 21 73 69 73 25  |(whh%)...! !sis%|
00002bc0  3d 77 68 68 25 3a 73 69  73 25 21 34 3d 30 3a 73  |=whh%:sis%!4=0:s|
00002bd0  69 73 25 21 38 3d 30 0d  11 d0 1b 20 73 69 73 25  |is%!8=0.... sis%|
00002be0  21 31 32 3d 30 3a c8 99  77 73 69 25 2c 2c 73 69  |!12=0:..wsi%,,si|
00002bf0  73 25 0d 11 da 06 20 e1  0d 11 e4 06 20 3a 0d 11  |s%.... ..... :..|
00002c00  ee 3b 20 dd 20 f2 63 63  3a 6d 61 74 63 68 25 3d  |.; . .cc:match%=|
00002c10  a3 3a 6f 6c 64 73 74 72  69 70 25 3d 73 74 72 69  |.:oldstrip%=stri|
00002c20  70 25 3a 6f 6c 64 69 6e  64 65 7a 25 3d 69 6e 64  |p%:oldindez%=ind|
00002c30  65 7a 25 3a 69 74 25 3d  30 0d 11 f8 06 20 f5 0d  |ez%:it%=0.... ..|
00002c40  12 02 30 20 e7 20 77 25  28 69 74 25 2c 31 29 3d  |..0 . w%(it%,1)=|
00002c50  6d 68 25 20 f2 6d 61 74  63 68 28 69 74 25 29 3a  |mh% .match(it%):|
00002c60  69 74 25 3d 33 37 20 8b  20 69 74 25 2b 3d 31 0d  |it%=37 . it%+=1.|
00002c70  12 0c 0d 20 fd 20 69 74  25 3d 33 37 0d 12 16 22  |... . it%=37..."|
00002c80  20 e7 20 6d 61 74 63 68  25 20 f2 73 65 74 63 6f  | . match% .setco|
00002c90  6c 3a f2 6c 64 37 3a f2  6f 75 74 70 75 74 0d 12  |l:.ld7:.output..|
00002ca0  20 06 20 e1 0d 12 2a 06  20 3a 0d 12 34 12 20 dd  | . ...*. :..4. .|
00002cb0  20 f2 6d 61 74 63 68 28  69 74 25 29 0d 12 3e 0f  | .match(it%)..>.|
00002cc0  20 73 74 72 69 70 25 3d  69 74 25 0d 12 48 15 20  | strip%=it%..H. |
00002cd0  69 77 32 25 21 30 3d 77  25 28 69 74 25 2c 31 29  |iw2%!0=w%(it%,1)|
00002ce0  0d 12 52 11 20 c8 99 77  77 73 25 2c 2c 69 77 32  |..R. ..wws%,,iw2|
00002cf0  25 0d 12 5c 18 20 79 63  25 3d 69 77 32 25 21 31  |%..\. yc%=iw2%!1|
00002d00  36 2d 69 77 32 25 21 32  34 0d 12 66 18 20 69 6e  |6-iw2%!24..f. in|
00002d10  64 65 7a 25 3d 28 79 63  25 2d 6d 79 25 29 81 34  |dez%=(yc%-my%).4|
00002d20  34 0d 12 70 28 20 e7 20  69 6e 64 65 7a 25 3e 77  |4..p( . indez%>w|
00002d30  25 28 69 74 25 2c 34 29  20 69 6e 64 65 7a 25 3d  |%(it%,4) indez%=|
00002d40  77 25 28 69 74 25 2c 34  29 0d 12 7a 15 20 77 25  |w%(it%,4)..z. w%|
00002d50  28 69 74 25 2c 30 29 3d  69 6e 64 65 7a 25 0d 12  |(it%,0)=indez%..|
00002d60  84 14 20 69 63 6f 6c 25  3d 77 25 28 69 74 25 2c  |.. icol%=w%(it%,|
00002d70  35 29 0d 12 8e 24 20 21  63 63 63 25 3d 21 28 6c  |5)...$ !ccc%=!(l|
00002d80  69 25 2b 28 28 69 63 6f  6c 25 2b 69 6e 64 65 7a  |i%+((icol%+indez|
00002d90  25 29 2a 34 29 29 0d 12  98 0b 20 72 74 6c 25 3d  |%)*4)).... rtl%=|
00002da0  b9 0d 12 a2 1c 20 f2 61  64 6a 75 73 74 31 28 73  |..... .adjust1(s|
00002db0  74 72 69 70 25 2c 69 6e  64 65 7a 25 29 0d 12 ac  |trip%,indez%)...|
00002dc0  22 20 f2 61 64 6a 75 73  74 31 28 6f 6c 64 73 74  |" .adjust1(oldst|
00002dd0  72 69 70 25 2c 6f 6c 64  69 6e 64 65 7a 25 29 0d  |rip%,oldindez%).|
00002de0  12 b6 0d 20 6d 61 74 63  68 25 3d b9 0d 12 c0 06  |... match%=.....|
00002df0  20 e1 0d 12 ca 06 20 3a  0d 12 d4 0e 20 dd 20 f2  | ..... :.... . .|
00002e00  6f 75 74 70 75 74 0d 12  de 12 20 e3 20 69 74 25  |output.... . it%|
00002e10  3d 33 37 20 b8 20 34 30  0d 12 e8 34 20 e7 20 77  |=37 . 40...4 . w|
00002e20  25 28 69 74 25 2c 31 29  3d 70 38 30 25 20 8b 20  |%(it%,1)=p80% . |
00002e30  c8 99 77 66 72 25 2c 77  25 28 69 74 25 2c 31 29  |..wfr%,w%(it%,1)|
00002e40  2c 30 2c 6a 34 25 2c 6b  34 25 2c 30 0d 12 f2 0a  |,0,j4%,k4%,0....|
00002e50  20 ed 20 69 74 25 0d 12  fc 36 20 e7 20 77 25 28  | . it%...6 . w%(|
00002e60  34 31 2c 31 29 3d 70 38  30 25 20 8b 20 c8 99 77  |41,1)=p80% . ..w|
00002e70  66 72 25 2c 77 37 68 25  2c 6d 69 64 37 25 2c 6a  |fr%,w7h%,mid7%,j|
00002e80  37 25 2c 6b 37 25 2d 36  2c 2d 34 34 0d 13 06 06  |7%,k7%-6,-44....|
00002e90  20 e1 0d 13 10 06 20 3a  0d 13 1a 3b 20 dd 20 f2  | ..... :...; . .|
00002ea0  73 65 74 63 6f 6c 3a c8  99 20 63 72 67 25 2c 21  |setcol:.. crg%,!|
00002eb0  63 63 63 25 20 b8 20 73  67 63 6f 6c 25 3a c8 99  |ccc% . sgcol%:..|
00002ec0  20 63 72 6e 25 2c 21 63  63 63 25 20 b8 20 6e 75  | crn%,!ccc% . nu|
00002ed0  6d 62 25 0d 13 24 45 20  72 63 6f 6c 25 3d 28 73  |mb%..$E rcol%=(s|
00002ee0  67 63 6f 6c 25 20 80 20  26 46 43 29 3e 3e 3e 32  |gcol% . &FC)>>>2|
00002ef0  3a 73 63 6f 6c 25 3d 73  67 63 6f 6c 25 20 80 20  |:scol%=sgcol% . |
00002f00  26 46 43 3a 74 6e 74 25  3d 28 73 67 63 6f 6c 25  |&FC:tnt%=(sgcol%|
00002f10  20 80 20 33 29 3c 3c 36  0d 13 2e 2e 20 67 67 63  | . 3)<<6.... ggc|
00002f20  6f 6c 25 3d 28 73 67 63  6f 6c 25 20 80 20 26 33  |ol%=(sgcol% . &3|
00002f30  29 20 84 20 28 28 73 67  63 6f 6c 25 20 80 20 26  |) . ((sgcol% . &|
00002f40  33 29 3c 3c 34 29 0d 13  38 3a 20 3f 67 72 65 79  |3)<<4)..8: ?grey|
00002f50  25 3d 30 3a 67 72 65 79  25 3f 31 3d 67 67 63 6f  |%=0:grey%?1=ggco|
00002f60  6c 25 3a 67 72 65 79 25  3f 32 3d 67 67 63 6f 6c  |l%:grey%?2=ggcol|
00002f70  25 3a 67 72 65 79 25 3f  33 3d 67 67 63 6f 6c 25  |%:grey%?3=ggcol%|
00002f80  0d 13 42 2c 20 72 63 63  25 3d 28 73 67 63 6f 6c  |..B, rcc%=(sgcol|
00002f90  25 20 80 20 31 32 29 20  84 20 28 28 73 67 63 6f  |% . 12) . ((sgco|
00002fa0  6c 25 20 80 20 31 32 29  3c 3c 34 29 0d 13 4c 34  |l% . 12)<<4)..L4|
00002fb0  20 67 63 63 25 3d 28 28  73 67 63 6f 6c 25 20 80  | gcc%=((sgcol% .|
00002fc0  20 26 33 30 29 3e 3e 3e  32 29 20 84 20 28 28 73  | &30)>>>2) . ((s|
00002fd0  67 63 6f 6c 25 20 80 20  26 33 30 29 3c 3c 32 29  |gcol% . &30)<<2)|
00002fe0  0d 13 56 2f 20 62 63 63  25 3d 28 28 73 67 63 6f  |..V/ bcc%=((sgco|
00002ff0  6c 25 20 80 20 26 43 30  29 3e 3e 3e 34 29 20 84  |l% . &C0)>>>4) .|
00003000  20 28 73 67 63 6f 6c 25  20 80 20 26 43 30 29 0d  | (sgcol% . &C0).|
00003010  13 60 40 20 72 72 63 63  25 3d 72 63 63 25 20 84  |.`@ rrcc%=rcc% .|
00003020  20 67 67 63 6f 6c 25 3a  67 67 63 63 25 3d 67 63  | ggcol%:ggcc%=gc|
00003030  63 25 20 84 20 67 67 63  6f 6c 25 3a 62 62 63 63  |c% . ggcol%:bbcc|
00003040  25 3d 62 63 63 25 20 84  20 67 67 63 6f 6c 25 0d  |%=bcc% . ggcol%.|
00003050  13 6a 3b 20 e7 20 72 32  25 20 8b 20 c8 99 63 72  |.j; . r2% . ..cr|
00003060  63 25 2c 72 72 63 63 25  2c 67 67 63 63 25 2c 62  |c%,rrcc%,ggcc%,b|
00003070  62 63 63 25 20 b8 20 61  63 63 25 2c 6d 63 63 25  |bcc% . acc%,mcc%|
00003080  2c 79 63 63 25 2c 6b 63  63 25 0d 13 74 34 20 6b  |,ycc%,kcc%..t4 k|
00003090  63 63 25 3d 6b 63 63 25  2d 31 3a 21 63 72 25 3d  |cc%=kcc%-1:!cr%=|
000030a0  21 67 72 65 79 25 3a 21  63 67 25 3d 21 67 72 65  |!grey%:!cg%=!gre|
000030b0  79 25 3a 21 63 62 25 3d  21 67 72 65 79 25 0d 13  |y%:!cb%=!grey%..|
000030c0  7e 30 20 21 63 63 25 3d  21 67 72 65 79 25 20 84  |~0 !cc%=!grey% .|
000030d0  20 26 43 43 43 43 43 43  30 30 3a 21 63 6d 25 3d  | &CCCCCC00:!cm%=|
000030e0  21 63 63 25 3a 21 63 79  25 3d 21 63 63 25 0d 13  |!cc%:!cy%=!cc%..|
000030f0  88 3d 20 63 72 25 3f 31  3d 63 72 25 3f 31 20 84  |.= cr%?1=cr%?1 .|
00003100  20 72 63 63 25 3a 63 67  25 3f 32 3d 63 67 25 3f  | rcc%:cg%?2=cg%?|
00003110  32 20 84 20 67 63 63 25  3a 63 62 25 3f 33 3d 63  |2 . gcc%:cb%?3=c|
00003120  62 25 3f 33 20 84 20 62  63 63 25 0d 13 92 34 20  |b%?3 . bcc%...4 |
00003130  6b 6b 63 25 3d 72 63 63  25 20 84 20 26 33 33 3a  |kkc%=rcc% . &33:|
00003140  6d 6b 63 25 3d 67 63 63  25 20 84 20 26 33 33 3a  |mkc%=gcc% . &33:|
00003150  79 6b 63 25 3d 62 63 63  25 20 84 20 26 33 33 0d  |ykc%=bcc% . &33.|
00003160  13 9c 3d 20 63 63 25 3f  31 3d 63 63 25 3f 31 20  |..= cc%?1=cc%?1 |
00003170  80 20 6b 6b 63 25 3a 63  6d 25 3f 32 3d 63 6d 25  |. kkc%:cm%?2=cm%|
00003180  3f 32 20 80 20 6d 6b 63  25 3a 63 79 25 3f 33 3d  |?2 . mkc%:cy%?3=|
00003190  63 79 25 3f 33 20 80 20  79 6b 63 25 0d 13 a6 06  |cy%?3 . ykc%....|
000031a0  20 e1 0d 13 b0 06 20 3a  0d 13 ba 0b 20 dd 20 f2  | ..... :.... . .|
000031b0  6c 64 37 0d 13 c4 16 20  c8 99 63 76 25 2c 72 63  |ld7.... ..cv%,rc|
000031c0  6f 6c 25 2c 6c 6c 25 2c  39 0d 13 ce 15 20 c8 99  |ol%,ll%,9.... ..|
000031d0  63 76 25 2c 74 6e 74 25  2c 74 74 25 2c 39 0d 13  |cv%,tnt%,tt%,9..|
000031e0  d8 17 20 c8 99 63 76 25  2c 73 67 63 6f 6c 25 2c  |.. ..cv%,sgcol%,|
000031f0  6f 6f 25 2c 39 0d 13 e2  16 20 c8 99 63 76 25 2c  |oo%,9.... ..cv%,|
00003200  6e 75 6d 62 25 2c 6e 6e  25 2c 39 0d 13 ec 16 20  |numb%,nn%,9.... |
00003210  c8 99 63 76 25 2c 72 72  63 63 25 2c 72 72 25 2c  |..cv%,rrcc%,rr%,|
00003220  39 0d 13 f6 16 20 c8 99  63 76 25 2c 67 67 63 63  |9.... ..cv%,ggcc|
00003230  25 2c 67 67 25 2c 39 0d  14 00 16 20 c8 99 63 76  |%,gg%,9.... ..cv|
00003240  25 2c 62 62 63 63 25 2c  62 62 25 2c 39 0d 14 0a  |%,bbcc%,bb%,9...|
00003250  15 20 c8 99 63 76 25 2c  61 63 63 25 2c 61 61 25  |. ..cv%,acc%,aa%|
00003260  2c 39 0d 14 14 15 20 c8  99 63 76 25 2c 6d 63 63  |,9.... ..cv%,mcc|
00003270  25 2c 6d 6d 25 2c 39 0d  14 1e 15 20 c8 99 63 76  |%,mm%,9.... ..cv|
00003280  25 2c 79 63 63 25 2c 79  79 25 2c 39 0d 14 28 15  |%,ycc%,yy%,9..(.|
00003290  20 c8 99 63 76 25 2c 6b  63 63 25 2c 6b 6b 25 2c  | ..cv%,kcc%,kk%,|
000032a0  39 0d 14 32 06 20 e1 0d  14 3c 06 20 3a 0d 14 46  |9..2. ...<. :..F|
000032b0  1f 20 dd 20 f2 6d 65 6e  75 3a 6d 65 6e 75 25 28  |. . .menu:menu%(|
000032c0  29 3d a3 3a c8 8e 20 6d  68 25 20 ca 0d 14 50 2c  |)=.:.. mh% ...P,|
000032d0  20 c9 2d 32 3a 6d 65 6e  75 25 28 30 29 3d b9 3a  | .-2:menu%(0)=.:|
000032e0  c8 99 77 6d 25 2c 2c 6d  62 30 25 2c 6d 78 25 2d  |..wm%,,mb0%,mx%-|
000032f0  26 34 34 2c 26 31 32 38  0d 14 5a 12 20 c9 77 31  |&44,&128..Z. .w1|
00003300  68 25 3a e7 20 67 6f 25  20 8c 0d 14 64 27 20 6d  |h%:. go% ...d' m|
00003310  65 6e 75 25 28 31 29 3d  b9 3a c8 99 77 6d 25 2c  |enu%(1)=.:..wm%,|
00003320  2c 6d 62 31 25 2c 6d 78  25 2d 26 33 43 2c 6d 79  |,mb1%,mx%-&3C,my|
00003330  25 0d 14 6e 06 20 cc 0d  14 78 21 20 e7 20 72 32  |%..n. ...x! . r2|
00003340  25 20 6d 74 25 3d 31 20  8b 20 c8 99 26 35 38 2c  |% mt%=1 . ..&58,|
00003350  31 20 b8 20 2c 6d 74 25  0d 14 82 0d 20 c8 8e 20  |1 . ,mt%.... .. |
00003360  6d 74 25 20 ca 0d 14 8c  1b 20 c9 20 30 3a f2 6d  |mt% ..... . 0:.m|
00003370  31 31 28 6d 66 31 31 25  2c 6d 66 73 31 31 25 29  |11(mf11%,mfs11%)|
00003380  0d 14 96 1a 20 c9 20 31  3a f2 6d 31 31 28 6d 66  |.... . 1:.m11(mf|
00003390  31 31 25 2c 6d 66 31 31  25 29 0d 14 a0 1c 20 c9  |11%,mf11%).... .|
000033a0  20 32 3a f2 6d 31 31 28  6d 66 73 31 31 25 2c 6d  | 2:.m11(mfs11%,m|
000033b0  66 73 31 31 25 29 0d 14  aa 1b 20 c9 20 33 3a f2  |fs11%).... . 3:.|
000033c0  6d 31 31 28 6d 66 73 31  31 25 2c 6d 66 31 31 25  |m11(mfs11%,mf11%|
000033d0  29 0d 14 b4 1b 20 c9 20  34 3a f2 6d 31 31 28 6d  |).... . 4:.m11(m|
000033e0  66 73 31 31 25 2c 6d 66  31 31 25 29 0d 14 be 1c  |fs11%,mf11%)....|
000033f0  20 c9 20 35 3a f2 6d 31  31 28 6d 66 73 31 31 25  | . 5:.m11(mfs11%|
00003400  2c 6d 66 73 31 31 25 29  0d 14 c8 18 20 7f 3a f2  |,mfs11%).... .:.|
00003410  6d 31 31 28 6d 66 31 31  25 2c 6d 66 31 31 25 29  |m11(mf11%,mf11%)|
00003420  0d 14 d2 2b 20 cb 3a 6d  65 6e 75 25 28 31 31 29  |...+ .:menu%(11)|
00003430  3d b9 3a c8 99 77 6d 25  2c 2c 6d 62 31 31 25 2c  |=.:..wm%,,mb11%,|
00003440  6d 78 25 2d 26 38 32 2c  6d 79 25 0d 14 dc 06 20  |mx%-&82,my%.... |
00003450  cd 0d 14 e6 1a 20 c9 20  77 25 28 33 37 2c 31 29  |..... . w%(37,1)|
00003460  3a 6d 65 6e 75 25 28 33  29 3d b9 0d 14 f0 25 20  |:menu%(3)=....% |
00003470  e7 20 69 25 28 30 29 20  24 6a 33 25 3d 6d 24 28  |. i%(0) $j3%=m$(|
00003480  31 29 20 8b 20 24 6a 33  25 3d 6d 24 28 32 31 29  |1) . $j3%=m$(21)|
00003490  0d 14 fa 1c 20 c8 99 77  6d 25 2c 2c 6d 62 33 25  |.... ..wm%,,mb3%|
000034a0  2c 6d 78 25 2d 26 33 43  2c 6d 79 25 0d 15 04 1a  |,mx%-&3C,my%....|
000034b0  20 c9 20 77 25 28 33 38  2c 31 29 3a 6d 65 6e 75  | . w%(38,1):menu|
000034c0  25 28 34 29 3d b9 0d 15  0e 25 20 e7 20 69 25 28  |%(4)=....% . i%(|
000034d0  31 29 20 24 6a 33 25 3d  6d 24 28 31 29 20 8b 20  |1) $j3%=m$(1) . |
000034e0  24 6a 33 25 3d 6d 24 28  32 31 29 0d 15 18 1c 20  |$j3%=m$(21).... |
000034f0  c8 99 77 6d 25 2c 2c 6d  62 33 25 2c 6d 78 25 2d  |..wm%,,mb3%,mx%-|
00003500  26 33 43 2c 6d 79 25 0d  15 22 1a 20 c9 20 77 25  |&3C,my%..". . w%|
00003510  28 33 39 2c 31 29 3a 6d  65 6e 75 25 28 35 29 3d  |(39,1):menu%(5)=|
00003520  b9 0d 15 2c 25 20 e7 20  69 25 28 32 29 20 24 6a  |...,% . i%(2) $j|
00003530  33 25 3d 6d 24 28 31 29  20 8b 20 24 6a 33 25 3d  |3%=m$(1) . $j3%=|
00003540  6d 24 28 32 31 29 0d 15  36 1c 20 c8 99 77 6d 25  |m$(21)..6. ..wm%|
00003550  2c 2c 6d 62 33 25 2c 6d  78 25 2d 26 33 43 2c 6d  |,,mb3%,mx%-&3C,m|
00003560  79 25 0d 15 40 1a 20 c9  20 77 25 28 34 30 2c 31  |y%..@. . w%(40,1|
00003570  29 3a 6d 65 6e 75 25 28  36 29 3d b9 0d 15 4a 25  |):menu%(6)=...J%|
00003580  20 e7 20 69 25 28 33 29  20 24 6a 33 25 3d 6d 24  | . i%(3) $j3%=m$|
00003590  28 31 29 20 8b 20 24 6a  33 25 3d 6d 24 28 32 31  |(1) . $j3%=m$(21|
000035a0  29 0d 15 54 1c 20 c8 99  77 6d 25 2c 2c 6d 62 33  |)..T. ..wm%,,mb3|
000035b0  25 2c 6d 78 25 2d 26 33  43 2c 6d 79 25 0d 15 5e  |%,mx%-&3C,my%..^|
000035c0  2e 20 c9 20 77 37 68 25  3a 6d 65 6e 75 25 28 37  |. . w7h%:menu%(7|
000035d0  29 3d b9 3a c8 99 77 6d  25 2c 2c 6d 62 37 25 2c  |)=.:..wm%,,mb7%,|
000035e0  6d 78 25 2d 26 34 41 2c  6d 79 25 0d 15 68 2e 20  |mx%-&4A,my%..h. |
000035f0  c9 20 77 38 68 25 3a 6d  65 6e 75 25 28 38 29 3d  |. w8h%:menu%(8)=|
00003600  b9 3a c8 99 77 6d 25 2c  2c 6d 62 38 25 2c 6d 78  |.:..wm%,,mb8%,mx|
00003610  25 2d 26 34 41 2c 6d 79  25 0d 15 72 12 20 c9 20  |%-&4A,my%..r. . |
00003620  77 39 68 25 3a f2 6d 65  6e 75 39 0d 15 7c 1c 20  |w9h%:.menu9..|. |
00003630  c9 20 77 30 68 25 3a 6d  65 6e 75 25 28 30 29 3d  |. w0h%:menu%(0)=|
00003640  b9 3a f2 64 65 6d 6f 0d  15 86 29 20 7f 20 6d 65  |.:.demo...) . me|
00003650  6e 75 25 28 32 29 3d b9  3a c8 99 77 6d 25 2c 2c  |nu%(2)=.:..wm%,,|
00003660  6d 62 32 25 2c 6d 78 25  2d 26 34 38 2c 6d 79 25  |mb2%,mx%-&48,my%|
00003670  0d 15 90 08 20 cb 3a e1  0d 15 9a 06 20 3a 0d 15  |.... .:..... :..|
00003680  a4 17 20 dd 20 f2 6d 65  6e 75 39 3a e7 20 6d 69  |.. . .menu9:. mi|
00003690  25 3d 30 20 8c 0d 15 ae  29 20 6d 65 6e 75 25 28  |%=0 ....) menu%(|
000036a0  31 30 29 3d b9 3a c8 99  77 6d 25 2c 2c 6d 62 39  |10)=.:..wm%,,mb9|
000036b0  64 25 2c 6d 78 25 2d 26  32 38 2c 6d 79 25 0d 15  |d%,mx%-&28,my%..|
000036c0  b8 06 20 cc 0d 15 c2 27  20 6d 65 6e 75 25 28 39  |.. ....' menu%(9|
000036d0  29 3d b9 3a c8 99 77 6d  25 2c 2c 6d 62 39 25 2c  |)=.:..wm%,,mb9%,|
000036e0  6d 78 25 2d 26 32 38 2c  6d 79 25 0d 15 cc 06 20  |mx%-&28,my%.... |
000036f0  cd 0d 15 d6 06 20 e1 0d  15 e0 06 20 3a 0d 15 ea  |..... ..... :...|
00003700  16 20 dd 20 f2 6d 31 31  28 6f 6e 65 25 2c 74 77  |. . .m11(one%,tw|
00003710  6f 25 29 0d 15 f4 12 20  6d 62 31 31 25 21 33 36  |o%).... mb11%!36|
00003720  3d 6f 6e 65 25 0d 15 fe  12 20 6d 62 31 31 25 21  |=one%.... mb11%!|
00003730  36 30 3d 74 77 6f 25 0d  16 08 06 20 e1 0d 16 12  |60=two%.... ....|
00003740  06 20 3a 0d 16 1c 10 20  dd 20 f2 6d 73 74 3a f2  |. :.... . .mst:.|
00003750  70 69 66 0d 16 26 0b 20  c8 8e 20 b9 20 ca 0d 16  |pif..&. .. . ...|
00003760  30 13 20 c9 20 6d 65 6e  75 25 28 30 29 3a f2 6d  |0. . menu%(0):.m|
00003770  30 0d 16 3a 13 20 c9 20  6d 65 6e 75 25 28 31 29  |0..:. . menu%(1)|
00003780  3a f2 6d 31 0d 16 44 19  20 c9 20 6d 65 6e 75 25  |:.m1..D. . menu%|
00003790  28 32 29 3a f2 6d 32 28  21 70 62 25 29 0d 16 4e  |(2):.m2(!pb%)..N|
000037a0  1a 20 e7 20 62 6b 25 20  c8 99 77 6d 25 2c 2c 6d  |. . bk% ..wm%,,m|
000037b0  62 32 25 2c 30 2c 30 0d  16 58 16 20 c9 20 6d 65  |b2%,0,0..X. . me|
000037c0  6e 75 25 28 33 29 3a f2  6d 34 28 30 29 0d 16 62  |nu%(3):.m4(0)..b|
000037d0  16 20 c9 20 6d 65 6e 75  25 28 34 29 3a f2 6d 34  |. . menu%(4):.m4|
000037e0  28 31 29 0d 16 6c 16 20  c9 20 6d 65 6e 75 25 28  |(1)..l. . menu%(|
000037f0  35 29 3a f2 6d 34 28 32  29 0d 16 76 16 20 c9 20  |5):.m4(2)..v. . |
00003800  6d 65 6e 75 25 28 36 29  3a f2 6d 34 28 33 29 0d  |menu%(6):.m4(3).|
00003810  16 80 1c 20 c9 20 6d 65  6e 75 25 28 37 29 3a 76  |... . menu%(7):v|
00003820  76 25 3d 21 70 62 25 3a  f2 6d 37 0d 16 8a 1a 20  |v%=!pb%:.m7.... |
00003830  e7 20 62 6b 25 20 c8 99  77 6d 25 2c 2c 6d 62 37  |. bk% ..wm%,,mb7|
00003840  25 2c 30 2c 30 0d 16 94  24 20 c9 20 6d 65 6e 75  |%,0,0...$ . menu|
00003850  25 28 38 29 3a 75 70 25  3d 77 76 25 3a 77 76 25  |%(8):up%=wv%:wv%|
00003860  3d 21 70 62 25 3a f2 6d  38 0d 16 9e 1a 20 e7 20  |=!pb%:.m8.... . |
00003870  62 6b 25 20 c8 99 77 6d  25 2c 2c 6d 62 38 25 2c  |bk% ..wm%,,mb8%,|
00003880  30 2c 30 0d 16 a8 23 20  c9 20 6d 65 6e 75 25 28  |0,0...# . menu%(|
00003890  39 29 3a 73 74 72 25 3d  21 70 62 25 3a f2 6d 39  |9):str%=!pb%:.m9|
000038a0  28 73 74 72 25 29 0d 16  b2 1a 20 e7 20 62 6b 25  |(str%).... . bk%|
000038b0  20 c8 99 77 6d 25 2c 2c  6d 62 39 25 2c 30 2c 30  | ..wm%,,mb9%,0,0|
000038c0  0d 16 bc 24 20 c9 20 6d  65 6e 75 25 28 31 30 29  |...$ . menu%(10)|
000038d0  3a 64 64 25 28 29 3d 30  3a 64 64 25 28 21 70 62  |:dd%()=0:dd%(!pb|
000038e0  25 29 3d 31 0d 16 c6 0e  20 c8 8e 20 21 70 62 25  |%)=1.... .. !pb%|
000038f0  20 ca 0d 16 d0 11 20 c9  20 30 3a 64 65 6c 61 79  | ..... . 0:delay|
00003900  25 3d 31 0d 16 da 11 20  c9 20 31 3a 64 65 6c 61  |%=1.... . 1:dela|
00003910  79 25 3d 32 0d 16 e4 11  20 c9 20 32 3a 64 65 6c  |y%=2.... . 2:del|
00003920  61 79 25 3d 34 0d 16 ee  11 20 c9 20 33 3a 64 65  |ay%=4.... . 3:de|
00003930  6c 61 79 25 3d 38 0d 16  f8 12 20 c9 20 34 3a 64  |lay%=8.... . 4:d|
00003940  65 6c 61 79 25 3d 31 36  0d 17 02 0f 20 7f 20 64  |elay%=16.... . d|
00003950  65 6c 61 79 25 3d 34 0d  17 0c 06 20 cb 0d 17 16  |elay%=4.... ....|
00003960  28 20 f2 6d 65 6e 75 62  6c 6f 63 6b 39 64 3a e7  |( .menublock9d:.|
00003970  20 62 6b 25 20 c8 99 77  6d 25 2c 2c 6d 62 39 64  | bk% ..wm%,,mb9d|
00003980  25 2c 30 2c 30 0d 17 20  1a 20 c9 20 6d 65 6e 75  |%,0,0.. . . menu|
00003990  25 28 31 31 29 3a c8 8e  20 21 70 62 25 20 ca 0d  |%(11):.. !pb% ..|
000039a0  17 2a 12 20 c9 20 30 3a  c8 99 77 73 6d 25 2c 31  |.*. . 0:..wsm%,1|
000039b0  35 0d 17 34 12 20 c9 20  31 3a c8 99 77 73 6d 25  |5..4. . 1:..wsm%|
000039c0  2c 32 38 0d 17 3e 06 20  7f 0d 17 48 1d 20 cb 3a  |,28..>. ...H. .:|
000039d0  e7 20 62 6b 25 20 c8 99  77 6d 25 2c 2c 6d 62 31  |. bk% ..wm%,,mb1|
000039e0  31 25 2c 30 2c 30 0d 17  52 06 20 cb 0d 17 5c 06  |1%,0,0..R. ...\.|
000039f0  20 e1 0d 17 66 06 20 3a  0d 17 70 0a 20 dd 20 f2  | ...f. :..p. . .|
00003a00  6d 30 0d 17 7a 0e 20 c8  8e 20 21 70 62 25 20 ca  |m0..z. .. !pb% .|
00003a10  0d 17 84 11 20 c9 20 31  3a f2 6f 75 74 6c 69 6e  |.... . 1:.outlin|
00003a20  65 0d 17 8e 0f 20 c9 20  32 3a f2 63 6c 65 61 72  |e.... . 2:.clear|
00003a30  0d 17 98 12 20 c9 20 33  3a f2 65 78 69 74 3a cb  |.... . 3:.exit:.|
00003a40  3a e1 0d 17 a2 06 20 cb  0d 17 ac 1a 20 e7 20 62  |:..... ..... . b|
00003a50  6b 25 20 c8 99 77 6d 25  2c 2c 6d 62 30 25 2c 30  |k% ..wm%,,mb0%,0|
00003a60  2c 30 0d 17 b6 06 20 e1  0d 17 c0 06 20 3a 0d 17  |,0.... ..... :..|
00003a70  ca 0f 20 dd 20 f2 6f 75  74 6c 69 6e 65 0d 17 d4  |.. . .outline...|
00003a80  0f 20 e7 20 72 74 6f 25  3d b9 20 8c 0d 17 de 17  |. . rto%=. .....|
00003a90  20 72 74 6f 25 3d a3 3a  6d 62 30 25 21 36 30 3d  | rto%=.:mb0%!60=|
00003aa0  6d 66 25 0d 17 e8 1b 20  cc 20 72 74 6f 25 3d b9  |mf%.... . rto%=.|
00003ab0  3a 6d 62 30 25 21 36 30  3d 6d 66 25 2b 34 0d 17  |:mb0%!60=mf%+4..|
00003ac0  f2 06 20 cd 0d 17 fc 22  20 f2 61 64 6a 75 73 74  |.. ...." .adjust|
00003ad0  31 28 73 74 72 69 70 25  2c 77 25 28 73 74 72 69  |1(strip%,w%(stri|
00003ae0  70 25 2c 30 29 29 0d 18  06 06 20 e1 0d 18 10 06  |p%,0)).... .....|
00003af0  20 3a 0d 18 1a 14 20 dd  20 f2 6d 31 3a c8 8e 20  | :.... . .m1:.. |
00003b00  21 70 62 25 20 ca 0d 18  24 13 20 c9 20 30 3a f2  |!pb% ...$. . 0:.|
00003b10  6d 32 28 70 62 25 21 34  29 0d 18 2e 08 20 c9 20  |m2(pb%!4).... . |
00003b20  31 0d 18 38 26 20 e7 20  73 63 61 6c 65 64 25 3d  |1..8& . scaled%=|
00003b30  b9 20 73 63 61 6c 65 64  25 3d a3 20 8b 20 73 63  |. scaled%=. . sc|
00003b40  61 6c 65 64 25 3d b9 0d  18 42 35 20 e7 20 73 63  |aled%=...B5 . sc|
00003b50  61 6c 65 64 25 3d b9 20  24 28 6d 62 31 25 2b 36  |aled%=. $(mb1%+6|
00003b60  34 29 3d 6d 24 28 39 29  20 8b 20 24 28 6d 62 31  |4)=m$(9) . $(mb1|
00003b70  25 2b 36 34 29 3d 6d 24  28 31 30 29 0d 18 4c 3a  |%+64)=m$(10)..L:|
00003b80  20 c8 99 77 77 73 25 2c  2c 69 77 31 25 3a e7 28  | ..wws%,,iw1%:.(|
00003b90  77 31 25 21 32 38 20 80  70 5a 25 29 20 8b 20 c8  |w1%!28 .pZ%) . .|
00003ba0  99 77 66 72 25 2c 77 31  68 25 2c 30 2c 6a 31 25  |.wfr%,w1h%,0,j1%|
00003bb0  2c 6b 31 25 2c 30 0d 18  56 08 20 c9 20 32 0d 18  |,k1%,0..V. . 2..|
00003bc0  60 23 20 e7 20 72 69 67  68 74 25 3d b9 20 72 69  |`# . right%=. ri|
00003bd0  67 68 74 25 3d a3 20 8b  20 72 69 67 68 74 25 3d  |ght%=. . right%=|
00003be0  b9 0d 18 6a 35 20 e7 20  72 69 67 68 74 25 3d b9  |...j5 . right%=.|
00003bf0  20 24 28 6d 62 31 25 2b  38 38 29 3d 6d 24 28 31  | $(mb1%+88)=m$(1|
00003c00  32 29 20 8b 20 24 28 6d  62 31 25 2b 38 38 29 3d  |2) . $(mb1%+88)=|
00003c10  6d 24 28 31 33 29 0d 18  74 06 20 cb 0d 18 7e 1a  |m$(13)..t. ...~.|
00003c20  20 e7 20 62 6b 25 20 c8  99 77 6d 25 2c 2c 6d 62  | . bk% ..wm%,,mb|
00003c30  31 25 2c 30 2c 30 0d 18  88 06 20 e1 0d 18 92 06  |1%,0,0.... .....|
00003c40  20 3a 0d 18 9c 18 20 dd  20 f2 6d 32 28 73 68 25  | :.... . .m2(sh%|
00003c50  29 3a c8 8e 20 73 68 25  20 ca 0d 18 a6 29 20 c9  |):.. sh% ....) .|
00003c60  20 30 3a 77 69 64 74 68  25 3d 31 31 32 3a e7 20  | 0:width%=112:. |
00003c70  75 75 25 3d 31 3a 75 75  25 3d 30 20 8b 20 75 75  |uu%=1:uu%=0 . uu|
00003c80  25 3d 31 0d 18 b0 28 20  c9 20 31 3a 77 69 64 74  |%=1...( . 1:widt|
00003c90  68 25 3d 38 34 3a e7 20  75 75 25 3d 32 3a 75 75  |h%=84:. uu%=2:uu|
00003ca0  25 3d 30 20 8b 20 75 75  25 3d 32 0d 18 ba 28 20  |%=0 . uu%=2...( |
00003cb0  c9 20 32 3a 77 69 64 74  68 25 3d 38 34 3a e7 20  |. 2:width%=84:. |
00003cc0  75 75 25 3d 33 3a 75 75  25 3d 30 20 8b 20 75 75  |uu%=3:uu%=0 . uu|
00003cd0  25 3d 33 0d 18 c4 29 20  c9 20 33 3a 77 69 64 74  |%=3...) . 3:widt|
00003ce0  68 25 3d 31 32 34 3a e7  20 75 75 25 3d 34 3a 75  |h%=124:. uu%=4:u|
00003cf0  75 25 3d 30 20 8b 20 75  75 25 3d 34 0d 18 ce 0c  |u%=0 . uu%=4....|
00003d00  20 7f 20 75 75 25 3d 30  0d 18 d8 19 20 cb 3a 64  | . uu%=0.... .:d|
00003d10  78 25 28 29 3d 30 3a 64  78 25 28 75 75 25 29 3d  |x%()=0:dx%(uu%)=|
00003d20  31 0d 18 e2 1f 20 e7 20  67 6f 25 20 24 77 74 25  |1.... . go% $wt%|
00003d30  3d 77 74 24 28 75 75 25  29 3a f2 74 69 74 6c 65  |=wt$(uu%):.title|
00003d40  0d 18 ec 16 20 f2 6d 65  6e 75 62 6c 6f 63 6b 32  |.... .menublock2|
00003d50  3a 69 74 25 3d 30 0d 18  f6 06 20 f5 0d 19 00 1f  |:it%=0.... .....|
00003d60  20 e7 20 77 25 28 69 74  25 2c 31 29 3d 70 38 30  | . w%(it%,1)=p80|
00003d70  25 20 8b 20 f2 61 64 6a  75 73 74 0d 19 0a 0b 20  |% . .adjust.... |
00003d80  69 74 25 2b 3d 31 0d 19  14 0d 20 fd 20 69 74 25  |it%+=1.... . it%|
00003d90  3d 33 37 0d 19 1e 06 20  e1 0d 19 28 06 20 3a 0d  |=37.... ...(. :.|
00003da0  19 32 0e 20 dd 20 f2 6d  34 28 6d 25 29 0d 19 3c  |.2. . .m4(m%)..<|
00003db0  3a 20 e7 20 69 25 28 6d  25 29 3d b9 20 69 25 28  |: . i%(m%)=. i%(|
00003dc0  6d 25 29 3d a3 3a 24 6a  33 25 3d 6d 24 28 32 31  |m%)=.:$j3%=m$(21|
00003dd0  29 20 8b 20 69 25 28 6d  25 29 3d b9 3a 24 6a 33  |) . i%(m%)=.:$j3|
00003de0  25 3d 6d 24 28 31 29 0d  19 46 30 20 21 69 77 34  |%=m$(1)..F0 !iw4|
00003df0  25 3d 77 25 28 6b 25 28  6d 25 29 2c 31 29 3a c8  |%=w%(k%(m%),1):.|
00003e00  99 77 77 73 25 2c 2c 69  77 34 25 3a 79 34 25 3d  |.wws%,,iw4%:y4%=|
00003e10  69 77 34 25 21 32 34 0d  19 50 1d 20 e7 20 6d 25  |iw4%!24..P. . m%|
00003e20  3d 32 20 78 34 25 3d 31  33 32 20 8b 20 78 34 25  |=2 x4%=132 . x4%|
00003e30  3d 31 30 30 0d 19 5a 2d  20 c8 99 77 66 72 25 2c  |=100..Z- ..wfr%,|
00003e40  77 25 28 6b 25 28 6d 25  29 2c 31 29 2c 31 36 2c  |w%(k%(m%),1),16,|
00003e50  79 34 25 2d 35 36 2c 78  34 25 2c 79 34 25 2d 31  |y4%-56,x4%,y4%-1|
00003e60  32 0d 19 64 1a 20 e7 20  62 6b 25 20 c8 99 77 6d  |2..d. . bk% ..wm|
00003e70  25 2c 2c 6d 62 33 25 2c  30 2c 30 0d 19 6e 06 20  |%,,mb3%,0,0..n. |
00003e80  e1 0d 19 78 06 20 3a 0d  19 82 32 20 dd 20 f2 6d  |...x. :...2 . .m|
00003e90  37 3a 64 76 25 28 29 3d  30 3a 64 76 25 28 76 76  |7:dv%()=0:dv%(vv|
00003ea0  25 29 3d 31 3a f2 6d 65  6e 75 62 6c 6f 63 6b 37  |%)=1:.menublock7|
00003eb0  3a c8 8e 20 76 76 25 20  ca 0d 19 8c 1d 20 c9 20  |:.. vv% ..... . |
00003ec0  30 3a 63 76 25 3d 26 44  35 3a 24 74 78 37 25 3d  |0:cv%=&D5:$tx7%=|
00003ed0  6d 24 28 31 36 29 0d 19  96 1d 20 c9 20 31 3a 63  |m$(16).... . 1:c|
00003ee0  76 25 3d 26 44 31 3a 24  74 78 37 25 3d 6d 24 28  |v%=&D1:$tx7%=m$(|
00003ef0  31 37 29 0d 19 a0 1d 20  c9 20 32 3a 63 76 25 3d  |17).... . 2:cv%=|
00003f00  26 44 44 3a 24 74 78 37  25 3d 6d 24 28 31 35 29  |&DD:$tx7%=m$(15)|
00003f10  0d 19 aa 1b 20 7f 20 63  76 25 3d 26 44 35 3a 24  |.... . cv%=&D5:$|
00003f20  74 78 37 25 3d 6d 24 28  31 36 29 0d 19 b4 06 20  |tx7%=m$(16).... |
00003f30  cb 0d 19 be 34 20 f2 6c  64 37 3a f2 73 69 73 28  |....4 .ld7:.sis(|
00003f40  77 37 68 25 29 3a c8 99  77 66 72 25 2c 77 37 68  |w7h%):..wfr%,w7h|
00003f50  25 2c 6d 69 64 37 25 2c  6a 37 25 2c 6b 37 25 2d  |%,mid7%,j7%,k7%-|
00003f60  36 2c 2d 34 34 0d 19 c8  06 20 e1 0d 19 d2 06 20  |6,-44.... ..... |
00003f70  3a 0d 19 dc 29 20 dd 20  f2 6d 38 3a 64 77 25 28  |:...) . .m8:dw%(|
00003f80  29 3d 30 3a 64 77 25 28  77 76 25 29 3d 31 3a f2  |)=0:dw%(wv%)=1:.|
00003f90  6d 65 6e 75 62 6c 6f 63  6b 38 0d 19 e6 2a 20 c8  |menublock8...* .|
00003fa0  99 77 67 63 25 2c 2c 63  74 62 25 3a e7 20 28 21  |.wgc%,,ctb%:. (!|
00003fb0  63 74 62 25 3d 77 38 68  25 29 20 c8 99 77 63 70  |ctb%=w8h%) ..wcp|
00003fc0  25 2c 2d 31 0d 19 f0 0d  20 c8 8e 20 75 70 25 20  |%,-1.... .. up% |
00003fd0  ca 0d 19 fa 21 20 c9 20  30 3a f2 72 65 61 64 28  |....! . 0:.read(|
00003fe0  26 41 2c 72 64 74 25 2c  67 64 74 25 2c 62 64 74  |&A,rdt%,gdt%,bdt|
00003ff0  25 29 0d 1a 04 24 20 f2  72 65 73 65 74 28 64 65  |%)...$ .reset(de|
00004000  6c 65 74 65 64 25 2c 64  65 6c 65 74 65 64 25 2c  |leted%,deleted%,|
00004010  36 2c 37 2c 38 29 0d 1a  0e 21 20 c9 20 31 3a f2  |6,7,8)...! . 1:.|
00004020  72 65 61 64 28 31 36 2c  72 68 74 25 2c 67 68 74  |read(16,rht%,ght|
00004030  25 2c 62 68 74 25 29 0d  1a 18 26 20 f2 72 65 73  |%,bht%)...& .res|
00004040  65 74 28 64 65 6c 65 74  65 64 25 2c 64 65 6c 65  |et(deleted%,dele|
00004050  74 65 64 25 2c 39 2c 31  30 2c 31 31 29 0d 1a 22  |ted%,9,10,11).."|
00004060  20 20 c9 20 32 3a f2 72  65 61 64 28 32 2c 72 62  |  . 2:.read(2,rb|
00004070  74 25 2c 67 62 74 25 2c  62 62 74 25 29 0d 1a 2c  |t%,gbt%,bbt%)..,|
00004080  27 20 f2 72 65 73 65 74  28 64 65 6c 65 74 65 64  |' .reset(deleted|
00004090  25 2c 64 65 6c 65 74 65  64 25 2c 31 32 2c 31 33  |%,deleted%,12,13|
000040a0  2c 31 34 29 0d 1a 36 1f  20 7f 20 f2 72 65 61 64  |,14)..6. . .read|
000040b0  28 26 41 2c 72 64 74 25  2c 67 64 74 25 2c 62 64  |(&A,rdt%,gdt%,bd|
000040c0  74 25 29 0d 1a 40 24 20  f2 72 65 73 65 74 28 64  |t%)..@$ .reset(d|
000040d0  65 6c 65 74 65 64 25 2c  64 65 6c 65 74 65 64 25  |eleted%,deleted%|
000040e0  2c 36 2c 37 2c 38 29 0d  1a 4a 0b 20 cb 3a f2 6d  |,6,7,8)..J. .:.m|
000040f0  6f 64 0d 1a 54 0d 20 c8  8e 20 77 76 25 20 ca 0d  |od..T. .. wv% ..|
00004100  1a 5e 27 20 c9 20 30 3a  f2 72 65 73 74 6f 72 65  |.^' . 0:.restore|
00004110  28 26 44 35 2c 34 2c 72  64 74 25 2c 67 64 74 25  |(&D5,4,rdt%,gdt%|
00004120  2c 62 64 74 25 29 0d 1a  68 2a 20 24 74 78 38 25  |,bdt%)..h* $tx8%|
00004130  3d 6d 24 28 31 36 29 3a  f2 72 65 73 65 74 28 30  |=m$(16):.reset(0|
00004140  2c 64 65 6c 65 74 65 64  25 2c 36 2c 37 2c 38 29  |,deleted%,6,7,8)|
00004150  0d 1a 72 27 20 c9 20 31  3a f2 72 65 73 74 6f 72  |..r' . 1:.restor|
00004160  65 28 26 44 31 2c 33 2c  72 68 74 25 2c 67 68 74  |e(&D1,3,rht%,ght|
00004170  25 2c 62 68 74 25 29 0d  1a 7c 2c 20 24 74 78 38  |%,bht%)..|, $tx8|
00004180  25 3d 6d 24 28 31 37 29  3a f2 72 65 73 65 74 28  |%=m$(17):.reset(|
00004190  30 2c 64 65 6c 65 74 65  64 25 2c 39 2c 31 30 2c  |0,deleted%,9,10,|
000041a0  31 31 29 0d 1a 86 27 20  c9 20 32 3a f2 72 65 73  |11)...' . 2:.res|
000041b0  74 6f 72 65 28 26 44 44  2c 39 2c 72 62 74 25 2c  |tore(&DD,9,rbt%,|
000041c0  67 62 74 25 2c 62 62 74  25 29 0d 1a 90 2d 20 24  |gbt%,bbt%)...- $|
000041d0  74 78 38 25 3d 6d 24 28  31 35 29 3a f2 72 65 73  |tx8%=m$(15):.res|
000041e0  65 74 28 30 2c 64 65 6c  65 74 65 64 25 2c 31 32  |et(0,deleted%,12|
000041f0  2c 31 33 2c 31 34 29 0d  1a 9a 25 20 7f 20 f2 72  |,13,14)...% . .r|
00004200  65 73 74 6f 72 65 28 26  44 35 2c 34 2c 72 64 74  |estore(&D5,4,rdt|
00004210  25 2c 67 64 74 25 2c 62  64 74 25 29 0d 1a a4 2a  |%,gdt%,bdt%)...*|
00004220  20 24 74 78 38 25 3d 6d  24 28 31 36 29 3a f2 72  | $tx8%=m$(16):.r|
00004230  65 73 65 74 28 30 2c 64  65 6c 65 74 65 64 25 2c  |eset(0,deleted%,|
00004240  36 2c 37 2c 38 29 0d 1a  ae 06 20 cb 0d 1a b8 21  |6,7,8).... ....!|
00004250  20 e7 20 28 21 63 74 62  25 3d 77 38 68 25 29 20  | . (!ctb%=w8h%) |
00004260  f2 63 61 72 65 74 28 77  76 25 2b 31 29 0d 1a c2  |.caret(wv%+1)...|
00004270  11 20 f2 73 69 73 28 77  38 68 25 29 3a e1 0d 1a  |. .sis(w8h%):...|
00004280  cc 06 20 3a 0d 1a d6 12  20 dd 20 f2 63 61 72 65  |.. :.... . .care|
00004290  74 28 63 74 25 29 0d 1a  e0 1c 20 69 7a 25 3d 69  |t(ct%).... iz%=i|
000042a0  70 25 28 28 63 74 62 25  21 34 2d 36 29 2c 63 74  |p%((ctb%!4-6),ct|
000042b0  25 29 0d 1a ea 1f 20 c8  99 77 63 70 25 2c 77 38  |%).... ..wcp%,w8|
000042c0  68 25 2c 69 7a 25 2c 2d  31 2c 2d 31 2c 2d 31 2c  |h%,iz%,-1,-1,-1,|
000042d0  30 0d 1a f4 06 20 e1 0d  1a fe 06 20 3a 0d 1b 08  |0.... ..... :...|
000042e0  2d 20 dd 20 f2 72 65 61  64 28 62 61 73 65 25 2c  |- . .read(base%,|
000042f0  70 74 72 25 2c 70 74 67  25 2c 70 74 62 25 29 3a  |ptr%,ptg%,ptb%):|
00004300  c8 8e 20 62 61 73 65 25  20 ca 0d 1b 12 08 20 c9  |.. base% ..... .|
00004310  20 32 0d 1b 1c 31 20 e7  20 28 34 37 3c 3f 70 74  | 2...1 . (47<?pt|
00004320  72 25 29 20 80 20 28 3f  70 74 72 25 3c 35 30 29  |r%) . (?ptr%<50)|
00004330  20 8b 20 24 70 74 72 25  3d 22 30 30 30 30 30 30  | . $ptr%="000000|
00004340  30 30 22 0d 1b 26 31 20  e7 20 28 34 37 3c 3f 70  |00"..&1 . (47<?p|
00004350  74 67 25 29 20 80 20 28  3f 70 74 67 25 3c 35 30  |tg%) . (?ptg%<50|
00004360  29 20 8b 20 24 70 74 67  25 3d 22 30 30 30 30 30  |) . $ptg%="00000|
00004370  30 30 30 22 0d 1b 30 31  20 e7 20 28 34 37 3c 3f  |000"..01 . (47<?|
00004380  70 74 62 25 29 20 80 20  28 3f 70 74 62 25 3c 35  |ptb%) . (?ptb%<5|
00004390  30 29 20 8b 20 24 70 74  62 25 3d 22 30 30 30 30  |0) . $ptb%="0000|
000043a0  30 30 30 30 22 0d 1b 3a  09 20 c9 20 26 41 0d 1b  |0000"..:. . &A..|
000043b0  44 2a 20 e7 20 28 34 37  3c 3f 70 74 72 25 29 20  |D* . (47<?ptr%) |
000043c0  80 20 28 3f 70 74 72 25  3c 35 38 29 20 8b 20 24  |. (?ptr%<58) . $|
000043d0  70 74 72 25 3d 22 30 22  0d 1b 4e 2a 20 e7 20 28  |ptr%="0"..N* . (|
000043e0  34 37 3c 3f 70 74 67 25  29 20 80 20 28 3f 70 74  |47<?ptg%) . (?pt|
000043f0  67 25 3c 35 38 29 20 8b  20 24 70 74 67 25 3d 22  |g%<58) . $ptg%="|
00004400  30 22 0d 1b 58 2a 20 e7  20 28 34 37 3c 3f 70 74  |0"..X* . (47<?pt|
00004410  62 25 29 20 80 20 28 3f  70 74 62 25 3c 35 38 29  |b%) . (?ptb%<58)|
00004420  20 8b 20 24 70 74 62 25  3d 22 30 22 0d 1b 62 09  | . $ptb%="0"..b.|
00004430  20 c9 20 31 36 0d 1b 6c  49 20 e7 20 28 28 34 37  | . 16..lI . ((47|
00004440  3c 3f 70 74 72 25 29 20  80 20 28 3f 70 74 72 25  |<?ptr%) . (?ptr%|
00004450  3c 35 38 29 29 20 84 20  28 28 36 34 3c 3f 70 74  |<58)) . ((64<?pt|
00004460  72 25 29 20 80 20 28 3f  70 74 72 25 3c 37 31 29  |r%) . (?ptr%<71)|
00004470  29 20 8b 20 24 70 74 72  25 3d 22 30 30 22 0d 1b  |) . $ptr%="00"..|
00004480  76 49 20 e7 20 28 28 34  37 3c 3f 70 74 67 25 29  |vI . ((47<?ptg%)|
00004490  20 80 20 28 3f 70 74 67  25 3c 35 38 29 29 20 84  | . (?ptg%<58)) .|
000044a0  20 28 28 36 34 3c 3f 70  74 67 25 29 20 80 20 28  | ((64<?ptg%) . (|
000044b0  3f 70 74 67 25 3c 37 31  29 29 20 8b 20 24 70 74  |?ptg%<71)) . $pt|
000044c0  67 25 3d 22 30 30 22 0d  1b 80 49 20 e7 20 28 28  |g%="00"...I . ((|
000044d0  34 37 3c 3f 70 74 62 25  29 20 80 20 28 3f 70 74  |47<?ptb%) . (?pt|
000044e0  62 25 3c 35 38 29 29 20  84 20 28 28 36 34 3c 3f  |b%<58)) . ((64<?|
000044f0  70 74 62 25 29 20 80 20  28 3f 70 74 62 25 3c 37  |ptb%) . (?ptb%<7|
00004500  31 29 29 20 8b 20 24 70  74 62 25 3d 22 30 30 22  |1)) . $ptb%="00"|
00004510  0d 1b 8a 24 20 7f 20 24  70 74 72 25 3d 22 30 22  |...$ . $ptr%="0"|
00004520  3a 24 70 74 67 25 3d 22  30 22 3a 24 70 74 62 25  |:$ptg%="0":$ptb%|
00004530  3d 22 30 22 0d 1b 94 06  20 cb 0d 1b 9e 20 20 c8  |="0".... ....  .|
00004540  99 26 32 31 2c 62 61 73  65 25 2c 70 74 72 25 20  |.&21,base%,ptr% |
00004550  b8 20 2c 2c 72 68 6f 6c  64 25 0d 1b a8 20 20 c8  |. ,,rhold%...  .|
00004560  99 26 32 31 2c 62 61 73  65 25 2c 70 74 67 25 20  |.&21,base%,ptg% |
00004570  b8 20 2c 2c 67 68 6f 6c  64 25 0d 1b b2 20 20 c8  |. ,,ghold%...  .|
00004580  99 26 32 31 2c 62 61 73  65 25 2c 70 74 62 25 20  |.&21,base%,ptb% |
00004590  b8 20 2c 2c 62 68 6f 6c  64 25 0d 1b bc 06 20 e1  |. ,,bhold%.... .|
000045a0  0d 1b c6 06 20 3a 0d 1b  d0 29 20 dd 20 f2 72 65  |.... :...) . .re|
000045b0  73 74 6f 72 65 28 73 77  69 25 2c 62 75 66 25 2c  |store(swi%,buf%,|
000045c0  70 74 72 25 2c 70 74 67  25 2c 70 74 62 25 29 0d  |ptr%,ptg%,ptb%).|
000045d0  1b da 1c 20 c8 99 73 77  69 25 2c 72 68 6f 6c 64  |... ..swi%,rhold|
000045e0  25 2c 70 74 72 25 2c 62  75 66 25 0d 1b e4 1c 20  |%,ptr%,buf%.... |
000045f0  c8 99 73 77 69 25 2c 67  68 6f 6c 64 25 2c 70 74  |..swi%,ghold%,pt|
00004600  67 25 2c 62 75 66 25 0d  1b ee 1c 20 c8 99 73 77  |g%,buf%.... ..sw|
00004610  69 25 2c 62 68 6f 6c 64  25 2c 70 74 62 25 2c 62  |i%,bhold%,ptb%,b|
00004620  75 66 25 0d 1b f8 06 20  e1 0d 1c 02 06 20 3a 0d  |uf%.... ..... :.|
00004630  1c 0c 29 20 dd 20 f2 72  65 73 65 74 28 65 6f 72  |..) . .reset(eor|
00004640  25 2c 63 6c 65 61 72 25  2c 6e 6d 78 25 2c 6e 6d  |%,clear%,nmx%,nm|
00004650  79 25 2c 6e 6d 7a 25 29  0d 1c 16 2a 20 21 73 69  |y%,nmz%)...* !si|
00004660  73 25 3d 77 38 68 25 3a  73 69 73 25 21 38 3d 65  |s%=w8h%:sis%!8=e|
00004670  6f 72 25 3a 73 69 73 25  21 31 32 3d 63 6c 65 61  |or%:sis%!12=clea|
00004680  72 25 0d 1c 20 1d 20 73  69 73 25 21 34 3d 6e 6d  |r%.. . sis%!4=nm|
00004690  78 25 3a c8 99 77 73 69  25 2c 2c 73 69 73 25 0d  |x%:..wsi%,,sis%.|
000046a0  1c 2a 1d 20 73 69 73 25  21 34 3d 6e 6d 79 25 3a  |.*. sis%!4=nmy%:|
000046b0  c8 99 77 73 69 25 2c 2c  73 69 73 25 0d 1c 34 1d  |..wsi%,,sis%..4.|
000046c0  20 73 69 73 25 21 34 3d  6e 6d 7a 25 3a c8 99 77  | sis%!4=nmz%:..w|
000046d0  73 69 25 2c 2c 73 69 73  25 0d 1c 3e 06 20 e1 0d  |si%,,sis%..>. ..|
000046e0  1c 48 06 20 3a 0d 1c 52  37 20 dd 20 f2 73 65 74  |.H. :..R7 . .set|
000046f0  39 28 69 63 6f 6e 25 2c  65 6f 72 25 2c 63 6c 65  |9(icon%,eor%,cle|
00004700  61 72 25 29 3a 21 73 69  73 25 3d 77 39 68 25 3a  |ar%):!sis%=w9h%:|
00004710  73 69 73 25 21 34 3d 69  63 6f 6e 25 0d 1c 5c 2e  |sis%!4=icon%..\.|
00004720  20 73 69 73 25 21 38 3d  65 6f 72 25 3a 73 69 73  | sis%!8=eor%:sis|
00004730  25 21 31 32 3d 63 6c 65  61 72 25 3a c8 99 77 73  |%!12=clear%:..ws|
00004740  69 25 2c 2c 73 69 73 25  3a e1 0d 1c 66 06 20 3a  |i%,,sis%:...f. :|
00004750  0d 1c 70 0f 20 dd 20 f2  70 72 6f 63 65 73 73 0d  |..p. . .process.|
00004760  1c 7a 2f 20 e7 20 21 70  62 25 3d 77 38 68 25 20  |.z/ . !pb%=w8h% |
00004770  f2 6b 62 64 28 70 62 25  21 26 31 38 29 20 8b 20  |.kbd(pb%!&18) . |
00004780  c8 99 77 70 6b 25 2c 70  62 25 21 26 31 38 0d 1c  |..wpk%,pb%!&18..|
00004790  84 06 20 e1 0d 1c 8e 06  20 3a 0d 1c 98 19 20 dd  |.. ..... :.... .|
000047a0  20 f2 6b 62 64 28 6b 6e  25 29 3a c8 8e 20 6b 6e  | .kbd(kn%):.. kn|
000047b0  25 20 ca 0d 1c a2 11 20  c9 20 26 31 38 38 3a f2  |% ..... . &188:.|
000047c0  66 72 75 73 0d 1c ac 11  20 c9 20 31 33 3a f2 72  |frus.... . 13:.r|
000047d0  65 74 75 72 6e 0d 1c b6  1d 20 c9 20 26 31 38 35  |eturn.... . &185|
000047e0  3a 75 70 25 3d 77 76 25  3a 77 76 25 3d 30 3a f2  |:up%=wv%:wv%=0:.|
000047f0  6d 38 0d 1c c0 1d 20 c9  20 26 31 38 36 3a 75 70  |m8.... . &186:up|
00004800  25 3d 77 76 25 3a 77 76  25 3d 31 3a f2 6d 38 0d  |%=wv%:wv%=1:.m8.|
00004810  1c ca 1d 20 c9 20 26 31  38 37 3a 75 70 25 3d 77  |... . &187:up%=w|
00004820  76 25 3a 77 76 25 3d 32  3a f2 6d 38 0d 1c d4 0f  |v%:wv%=2:.m8....|
00004830  20 c9 20 26 31 38 46 3a  f2 75 70 0d 1c de 11 20  | . &18F:.up.... |
00004840  c9 20 26 31 38 45 3a f2  64 6f 77 6e 0d 1c e8 11  |. &18E:.down....|
00004850  20 7f 20 c8 99 77 70 6b  25 2c 6b 6e 25 0d 1c f2  | . ..wpk%,kn%...|
00004860  06 20 cb 0d 1c fc 06 20  e1 0d 1d 06 06 20 3a 0d  |. ..... ..... :.|
00004870  1d 10 34 20 dd 20 f2 66  72 75 73 3a 72 68 6f 6c  |..4 . .frus:rhol|
00004880  64 25 3d 30 3a 67 68 6f  6c 64 25 3d 30 3a 62 68  |d%=0:ghold%=0:bh|
00004890  6f 6c 64 25 3d 30 3a c8  99 77 67 63 25 2c 2c 63  |old%=0:..wgc%,,c|
000048a0  74 62 25 0d 1d 1a 0d 20  c8 8e 20 77 76 25 20 ca  |tb%.... .. wv% .|
000048b0  0d 1d 24 39 20 c9 20 30  3a f2 72 65 73 74 6f 72  |..$9 . 0:.restor|
000048c0  65 28 26 44 35 2c 34 2c  72 64 74 25 2c 67 64 74  |e(&D5,4,rdt%,gdt|
000048d0  25 2c 62 64 74 25 29 3a  f2 72 65 73 65 74 28 30  |%,bdt%):.reset(0|
000048e0  2c 30 2c 36 2c 37 2c 38  29 0d 1d 2e 3b 20 c9 20  |,0,6,7,8)...; . |
000048f0  31 3a f2 72 65 73 74 6f  72 65 28 26 44 31 2c 33  |1:.restore(&D1,3|
00004900  2c 72 68 74 25 2c 67 68  74 25 2c 62 68 74 25 29  |,rht%,ght%,bht%)|
00004910  3a f2 72 65 73 65 74 28  30 2c 30 2c 39 2c 31 30  |:.reset(0,0,9,10|
00004920  2c 31 31 29 0d 1d 38 3c  20 c9 20 32 3a f2 72 65  |,11)..8< . 2:.re|
00004930  73 74 6f 72 65 28 26 44  44 2c 39 2c 72 62 74 25  |store(&DD,9,rbt%|
00004940  2c 67 62 74 25 2c 62 62  74 25 29 3a f2 72 65 73  |,gbt%,bbt%):.res|
00004950  65 74 28 30 2c 30 2c 31  32 2c 31 33 2c 31 34 29  |et(0,0,12,13,14)|
00004960  0d 1d 42 37 20 7f 20 f2  72 65 73 74 6f 72 65 28  |..B7 . .restore(|
00004970  26 44 35 2c 34 2c 72 64  74 25 2c 67 64 74 25 2c  |&D5,4,rdt%,gdt%,|
00004980  62 64 74 25 29 3a f2 72  65 73 65 74 28 30 2c 30  |bdt%):.reset(0,0|
00004990  2c 36 2c 37 2c 38 29 0d  1d 4c 06 20 cb 0d 1d 56  |,6,7,8)..L. ...V|
000049a0  1d 20 e7 20 28 21 63 74  62 25 3d 77 38 68 25 29  |. . (!ctb%=w8h%)|
000049b0  20 f2 63 61 72 65 74 28  30 29 0d 1d 60 06 20 e1  | .caret(0)..`. .|
000049c0  0d 1d 6a 06 20 3a 0d 1d  74 17 20 dd 20 f2 75 70  |..j. :..t. . .up|
000049d0  3a c8 99 77 67 63 25 2c  2c 63 74 62 25 0d 1d 7e  |:..wgc%,,ctb%..~|
000049e0  1d 20 e7 20 28 21 63 74  62 25 3d 77 38 68 25 29  |. . (!ctb%=w8h%)|
000049f0  20 f2 63 61 72 65 74 28  34 29 0d 1d 88 06 20 e1  | .caret(4).... .|
00004a00  0d 1d 92 06 20 3a 0d 1d  9c 19 20 dd 20 f2 64 6f  |.... :.... . .do|
00004a10  77 6e 3a c8 99 77 67 63  25 2c 2c 63 74 62 25 0d  |wn:..wgc%,,ctb%.|
00004a20  1d a6 1d 20 e7 20 28 21  63 74 62 25 3d 77 38 68  |... . (!ctb%=w8h|
00004a30  25 29 20 f2 63 61 72 65  74 28 35 29 0d 1d b0 06  |%) .caret(5)....|
00004a40  20 e1 0d 1d ba 06 20 3a  0d 1d c4 17 20 dd 20 f2  | ..... :.... . .|
00004a50  72 65 74 75 72 6e 3a c8  8e 20 77 76 25 20 ca 0d  |return:.. wv% ..|
00004a60  1d ce 21 20 c9 20 30 3a  f2 72 65 61 64 28 26 41  |..! . 0:.read(&A|
00004a70  2c 72 64 74 25 2c 67 64  74 25 2c 62 64 74 25 29  |,rdt%,gdt%,bdt%)|
00004a80  0d 1d d8 21 20 c9 20 31  3a f2 72 65 61 64 28 31  |...! . 1:.read(1|
00004a90  36 2c 72 68 74 25 2c 67  68 74 25 2c 62 68 74 25  |6,rht%,ght%,bht%|
00004aa0  29 0d 1d e2 20 20 c9 20  32 3a f2 72 65 61 64 28  |)...  . 2:.read(|
00004ab0  32 2c 72 62 74 25 2c 67  62 74 25 2c 62 62 74 25  |2,rbt%,gbt%,bbt%|
00004ac0  29 0d 1d ec 1f 20 7f 20  f2 72 65 61 64 28 26 41  |).... . .read(&A|
00004ad0  2c 72 64 74 25 2c 67 64  74 25 2c 62 64 74 25 29  |,rdt%,gdt%,bdt%)|
00004ae0  0d 1d f6 35 20 cb 3a f2  6d 6f 64 3a 63 63 63 25  |...5 .:.mod:ccc%|
00004af0  3f 31 3d 72 68 6f 6c 64  25 3a 63 63 63 25 3f 32  |?1=rhold%:ccc%?2|
00004b00  3d 67 68 6f 6c 64 25 3a  63 63 63 25 3f 33 3d 62  |=ghold%:ccc%?3=b|
00004b10  68 6f 6c 64 25 0d 1e 00  19 20 f2 73 65 74 63 6f  |hold%.... .setco|
00004b20  6c 3a f2 6c 64 37 3a f2  6f 75 74 70 75 74 0d 1e  |l:.ld7:.output..|
00004b30  0a 2a 20 72 74 6c 25 3d  a3 3a e7 20 72 74 6f 25  |.* rtl%=.:. rto%|
00004b40  20 f2 61 64 6a 75 73 74  31 28 73 74 72 69 70 25  | .adjust1(strip%|
00004b50  2c 69 6e 64 65 7a 25 29  0d 1e 14 06 20 e1 0d 1e  |,indez%).... ...|
00004b60  1e 06 20 3a 0d 1e 28 32  20 dd 20 f2 6d 39 28 f8  |.. :..(2 . .m9(.|
00004b70  20 73 74 72 25 29 3a 64  75 25 28 29 3d 30 3a 64  | str%):du%()=0:d|
00004b80  75 25 28 73 74 72 25 29  3d 31 3a f2 6d 65 6e 75  |u%(str%)=1:.menu|
00004b90  62 6c 6f 63 6b 39 0d 1e  32 14 20 e3 20 69 74 25  |block9..2. . it%|
00004ba0  3d 31 20 b8 20 34 20 88  20 31 0d 1e 3c 11 20 e7  |=1 . 4 . 1..<. .|
00004bb0  20 64 75 25 28 69 74 25  29 20 8c 0d 1e 46 21 20  | du%(it%) ...F! |
00004bc0  f2 73 65 74 39 28 69 74  25 2c 26 42 30 30 30 30  |.set9(it%,&B0000|
00004bd0  30 30 2c 26 46 30 30 30  30 30 30 29 0d 1e 50 06  |00,&F000000)..P.|
00004be0  20 cc 0d 1e 5a 21 20 f2  73 65 74 39 28 69 74 25  | ...Z! .set9(it%|
00004bf0  2c 26 37 30 30 30 30 30  30 2c 26 46 30 30 30 30  |,&7000000,&F0000|
00004c00  30 30 29 0d 1e 64 06 20  cd 0d 1e 6e 0a 20 ed 20  |00)..d. ...n. . |
00004c10  69 74 25 0d 1e 78 0a 20  f2 72 39 3a e1 0d 1e 82  |it%..x. .r9:....|
00004c20  06 20 3a 0d 1e 8c 16 20  dd 20 f2 70 6f 69 6e 74  |. :.... . .point|
00004c30  65 72 3a 64 39 25 2d 3d  31 0d 1e 96 0f 20 e7 20  |er:d9%-=1.... . |
00004c40  64 39 25 3d 2d 31 20 8c  0d 1e a0 33 20 f2 70 69  |d9%=-1 ....3 .pi|
00004c50  66 3a c8 99 26 33 32 2c  6d 78 25 2c 6d 79 25 20  |f:..&32,mx%,my% |
00004c60  b8 20 2c 2c 70 63 6f 6c  6f 75 72 25 2c 70 74 69  |. ,,pcolour%,pti|
00004c70  6e 74 25 2c 73 63 72 65  65 6e 25 0d 1e aa 49 20  |nt%,screen%...I |
00004c80  e7 20 73 63 72 65 65 6e  25 3d 2d 31 20 ef 37 20  |. screen%=-1 .7 |
00004c90  8b 20 74 65 6d 70 25 28  29 3d 30 3a 21 73 74 6f  |. temp%()=0:!sto|
00004ca0  72 65 25 28 73 74 72 25  29 3d a4 70 6f 69 6e 74  |re%(str%)=.point|
00004cb0  63 6f 6c 28 70 63 6f 6c  6f 75 72 25 2c 70 74 69  |col(pcolour%,pti|
00004cc0  6e 74 25 29 0d 1e b4 3a  20 f2 72 39 3a 61 63 74  |nt%)...: .r9:act|
00004cd0  69 76 65 25 3d a3 3a 24  63 61 70 25 3d 6d 24 28  |ive%=.:$cap%=m$(|
00004ce0  34 31 29 3a f2 73 65 74  39 28 30 2c 26 37 30 30  |41):.set9(0,&700|
00004cf0  30 30 30 30 2c 26 46 30  30 30 30 30 30 29 0d 1e  |0000,&F000000)..|
00004d00  be 0f 20 e7 20 73 74 72  25 3d 30 20 8c 0d 1e c8  |.. . str%=0 ....|
00004d10  2d 20 21 63 63 63 25 3d  21 73 74 6f 72 65 25 28  |- !ccc%=!store%(|
00004d20  73 74 72 25 29 3a f2 73  65 74 63 6f 6c 3a f2 6c  |str%):.setcol:.l|
00004d30  64 37 3a f2 6f 75 74 70  75 74 0d 1e d2 2a 20 72  |d7:.output...* r|
00004d40  74 6c 25 3d a3 3a e7 20  72 74 6f 25 20 f2 61 64  |tl%=.:. rto% .ad|
00004d50  6a 75 73 74 31 28 73 74  72 69 70 25 2c 69 6e 64  |just1(strip%,ind|
00004d60  65 7a 25 29 0d 1e dc 06  20 cd 0d 1e e6 06 20 cc  |ez%).... ..... .|
00004d70  0d 1e f0 21 20 24 73 39  25 3d c3 28 64 39 25 29  |...! $s9%=.(d9%)|
00004d80  3a f2 72 39 64 3a c8 99  26 34 32 20 b8 20 6e 74  |:.r9d:..&42 . nt|
00004d90  25 0d 1e fa 24 20 c8 95  20 28 6e 74 25 2d 6f 74  |%...$ .. (nt%-ot|
00004da0  25 29 20 3e 3d 20 30 3a  6f 74 25 3d 6f 74 25 2b  |%) >= 0:ot%=ot%+|
00004db0  67 6e 25 3a ce 0d 1f 04  06 20 cd 0d 1f 0e 06 20  |gn%:..... ..... |
00004dc0  e1 0d 1f 18 06 20 3a 0d  1f 22 0f 20 dd 20 f2 72  |..... :..". . .r|
00004dd0  65 73 74 61 72 74 0d 1f  2c 18 20 77 31 25 21 30  |estart..,. w1%!0|
00004de0  3d 65 31 25 3a 77 31 25  21 34 3d 66 31 25 0d 1f  |=e1%:w1%!4=f1%..|
00004df0  36 19 20 77 31 25 21 38  3d 67 31 25 3a 77 31 25  |6. w1%!8=g1%:w1%|
00004e00  21 31 32 3d 68 31 25 0d  1f 40 16 20 77 31 25 21  |!12=h1%..@. w1%!|
00004e10  31 36 3d 30 3a 77 31 25  21 32 30 3d 30 0d 1f 4a  |16=0:w1%!20=0..J|
00004e20  06 20 e1 0d 1f 54 06 20  3a 0d 1f 5e 10 20 dd 20  |. ...T. :..^. . |
00004e30  f2 72 65 61 64 6d 6f 64  65 0d 1f 68 18 20 c8 99  |.readmode..h. ..|
00004e40  72 6d 25 2c 2d 31 2c 33  b8 2c 2c 6c 63 6f 6c 73  |rm%,-1,3.,,lcols|
00004e50  25 0d 1f 72 20 20 e7 20  6c 63 6f 6c 73 25 3e 3d  |%..r  . lcols%>=|
00004e60  26 33 46 20 67 6f 25 3d  b9 20 8b 20 67 6f 25 3d  |&3F go%=. . go%=|
00004e70  a3 0d 1f 7c 23 20 c8 99  72 6d 25 2c 2d 31 2c 34  |...|# ..rm%,-1,4|
00004e80  b8 2c 2c 78 62 25 3a 78  66 25 3d 28 32 5e 78 62  |.,,xb%:xf%=(2^xb|
00004e90  25 29 2f 32 0d 1f 86 23  20 c8 99 72 6d 25 2c 2d  |%)/2...# ..rm%,-|
00004ea0  31 2c 35 b8 2c 2c 79 62  25 3a 79 66 25 3d 28 32  |1,5.,,yb%:yf%=(2|
00004eb0  5e 79 62 25 29 2f 32 0d  1f 90 1b 20 73 73 25 21  |^yb%)/2.... ss%!|
00004ec0  38 3d 94 28 28 69 31 25  2d 6b 31 25 29 2a 78 66  |8=.((i1%-k1%)*xf|
00004ed0  25 29 0d 1f 9a 20 20 73  73 25 21 31 32 3d 94 28  |%)...  ss%!12=.(|
00004ee0  28 28 6a 31 25 2d 6c 31  25 29 2f 32 29 2a 79 66  |((j1%-l1%)/2)*yf|
00004ef0  25 29 0d 1f a4 14 20 e7  20 28 6c 63 6f 6c 73 25  |%).... . (lcols%|
00004f00  3d 36 33 29 20 8c 0d 1f  ae 1b 20 74 61 62 6c 65  |=63) ..... table|
00004f10  25 3d 30 3a 24 77 74 25  3d 77 74 24 28 75 75 25  |%=0:$wt%=wt$(uu%|
00004f20  29 0d 1f b8 06 20 cc 0d  1f c2 31 20 24 77 74 25  |).... ....1 $wt%|
00004f30  3d 77 74 24 28 35 29 3a  c8 99 63 74 74 25 2c 26  |=wt$(5):..ctt%,&|
00004f40  46 2c 30 2c 2d 31 2c 2d  31 2c 74 62 25 3a 74 61  |F,0,-1,-1,tb%:ta|
00004f50  62 6c 65 25 3d 74 62 25  0d 1f cc 06 20 cd 0d 1f  |ble%=tb%.... ...|
00004f60  d6 13 20 f2 74 69 74 6c  65 3a 6e 76 25 3d a3 3a  |.. .title:nv%=.:|
00004f70  e1 0d 1f e0 06 20 3a 0d  1f ea 1a 20 dd 20 f2 74  |..... :.... . .t|
00004f80  69 74 6c 65 3a c8 99 77  77 73 25 2c 2c 69 77 31  |itle:..wws%,,iw1|
00004f90  25 0d 1f f4 15 20 e7 28  77 31 25 21 32 38 20 80  |%.... .(w1%!28 .|
00004fa0  70 59 25 29 20 8c 0d 1f  fe 11 20 c8 99 77 77 6f  |pY%) ..... ..wwo|
00004fb0  25 2c 2c 77 6f 62 25 0d  20 08 32 20 c8 99 77 66  |%,,wob%. .2 ..wf|
00004fc0  72 25 2c 2d 31 2c 77 6f  62 25 21 34 2c 28 77 6f  |r%,-1,wob%!4,(wo|
00004fd0  62 25 21 31 36 2d 34 34  29 2c 77 6f 62 25 21 31  |b%!16-44),wob%!1|
00004fe0  32 2c 77 6f 62 25 21 31  36 0d 20 12 06 20 cd 0d  |2,wob%!16. .. ..|
00004ff0  20 1c 06 20 e1 0d 20 26  06 20 3a 0d 20 30 12 20  | .. .. &. :. 0. |
00005000  dd 20 f2 73 68 75 74 3a  68 74 25 3d 30 0d 20 3a  |. .shut:ht%=0. :|
00005010  06 20 f5 0d 20 44 42 20  e7 20 77 25 28 68 74 25  |. .. DB . w%(ht%|
00005020  2c 31 29 3d 70 38 30 25  20 8b 20 21 69 77 32 25  |,1)=p80% . !iw2%|
00005030  3d 77 25 28 68 74 25 2c  31 29 3a c8 99 77 78 25  |=w%(ht%,1):..wx%|
00005040  2c 2c 69 77 32 25 3a 77  25 28 68 74 25 2c 31 29  |,,iw2%:w%(ht%,1)|
00005050  3d 70 38 30 25 0d 20 4e  0b 20 68 74 25 2b 3d 31  |=p80%. N. ht%+=1|
00005060  0d 20 58 0d 20 fd 20 68  74 25 3d 33 37 0d 20 62  |. X. . ht%=37. b|
00005070  06 20 f5 0d 20 6c 42 20  e7 20 77 25 28 68 74 25  |. .. lB . w%(ht%|
00005080  2c 31 29 3d 70 38 30 25  20 8b 20 21 69 77 34 25  |,1)=p80% . !iw4%|
00005090  3d 77 25 28 68 74 25 2c  31 29 3a c8 99 77 78 25  |=w%(ht%,1):..wx%|
000050a0  2c 2c 69 77 34 25 3a 77  25 28 68 74 25 2c 31 29  |,,iw4%:w%(ht%,1)|
000050b0  3d 70 38 30 25 0d 20 76  0b 20 68 74 25 2b 3d 31  |=p80%. v. ht%+=1|
000050c0  0d 20 80 0d 20 fd 20 68  74 25 3d 34 31 0d 20 8a  |. .. . ht%=41. .|
000050d0  30 20 e7 20 77 25 28 34  31 2c 31 29 3d 70 38 30  |0 . w%(41,1)=p80|
000050e0  25 20 8b 20 c8 99 77 63  25 2c 2c 69 77 37 25 3a  |% . ..wc%,,iw7%:|
000050f0  77 25 28 34 31 2c 31 29  3d 70 38 30 25 0d 20 94  |w%(41,1)=p80%. .|
00005100  16 20 e7 20 77 25 28 34  32 2c 31 29 3d 70 38 30  |. . w%(42,1)=p80|
00005110  25 20 8c 0d 20 9e 0f 20  cc 20 c8 8e 20 77 76 25  |% .. .. . .. wv%|
00005120  20 ca 0d 20 a8 21 20 c9  20 30 3a f2 72 65 61 64  | .. .! . 0:.read|
00005130  28 26 41 2c 72 64 74 25  2c 67 64 74 25 2c 62 64  |(&A,rdt%,gdt%,bd|
00005140  74 25 29 0d 20 b2 21 20  c9 20 31 3a f2 72 65 61  |t%). .! . 1:.rea|
00005150  64 28 31 36 2c 72 68 74  25 2c 67 68 74 25 2c 62  |d(16,rht%,ght%,b|
00005160  68 74 25 29 0d 20 bc 20  20 c9 20 32 3a f2 72 65  |ht%). .  . 2:.re|
00005170  61 64 28 32 2c 72 62 74  25 2c 67 62 74 25 2c 62  |ad(2,rbt%,gbt%,b|
00005180  62 74 25 29 0d 20 c6 1f  20 7f 20 f2 72 65 61 64  |bt%). .. . .read|
00005190  28 26 41 2c 72 64 74 25  2c 67 64 74 25 2c 62 64  |(&A,rdt%,gdt%,bd|
000051a0  74 25 29 0d 20 d0 0b 20  cb 3a f2 6d 6f 64 0d 20  |t%). .. .:.mod. |
000051b0  da 1e 20 c8 99 77 63 25  2c 2c 69 77 38 25 3a 77  |.. ..wc%,,iw8%:w|
000051c0  25 28 34 32 2c 31 29 3d  70 38 30 25 0d 20 e4 06  |%(42,1)=p80%. ..|
000051d0  20 cd 0d 20 ee 16 20 e7  20 77 25 28 34 34 2c 31  | .. .. . w%(44,1|
000051e0  29 3d 70 38 30 25 20 8c  0d 20 f8 1d 20 cc 20 61  |)=p80% .. .. . a|
000051f0  63 74 69 76 65 25 3d a3  3a 24 63 61 70 25 3d 6d  |ctive%=.:$cap%=m|
00005200  24 28 34 31 29 0d 21 02  1f 20 f2 73 65 74 39 28  |$(41).!.. .set9(|
00005210  30 2c 26 37 30 30 30 30  30 30 2c 26 46 30 30 30  |0,&7000000,&F000|
00005220  30 30 30 29 0d 21 0c 1e  20 c8 99 77 63 25 2c 2c  |000).!.. ..wc%,,|
00005230  69 77 39 25 3a 77 25 28  34 34 2c 31 29 3d 70 38  |iw9%:w%(44,1)=p8|
00005240  30 25 0d 21 16 06 20 cd  0d 21 20 06 20 e1 0d 21  |0%.!.. ..! . ..!|
00005250  2a 06 20 3a 0d 21 34 1e  20 dd 20 f2 63 6c 65 61  |*. :.!4. . .clea|
00005260  72 3a 63 6c 65 61 72 65  64 25 3d b9 3a f2 73 68  |r:cleared%=.:.sh|
00005270  75 74 0d 21 3e 1e 20 c8  99 77 63 25 2c 2c 69 77  |ut.!>. ..wc%,,iw|
00005280  31 25 3a c8 99 77 63 25  2c 2c 69 77 30 25 3a e1  |1%:..wc%,,iw0%:.|
00005290  0d 21 48 06 20 3a 0d 21  52 1b 20 dd 20 f2 6d 65  |.!H. :.!R. . .me|
000052a0  73 73 61 67 65 3a c8 8e  20 70 62 25 21 31 36 20  |ssage:.. pb%!16 |
000052b0  ca 0d 21 5c 0e 20 c9 20  30 3a f2 65 78 69 74 0d  |..!\. . 0:.exit.|
000052c0  21 66 10 20 c9 20 77 77  25 3a 6e 76 25 3d b9 0d  |!f. . ww%:nv%=..|
000052d0  21 70 16 20 c9 20 26 34  30 30 43 43 3a f2 69 63  |!p. . &400CC:.ic|
000052e0  6f 6e 69 73 65 0d 21 7a  06 20 cb 0d 21 84 06 20  |onise.!z. ..!.. |
000052f0  e1 0d 21 8e 06 20 3a 0d  21 98 0f 20 dd 20 f2 69  |..!.. :.!.. . .i|
00005300  63 6f 6e 69 73 65 0d 21  a2 13 20 6d 73 67 62 25  |conise.!.. msgb%|
00005310  21 31 32 3d 70 62 25 21  38 0d 21 ac 14 20 6d 73  |!12=pb%!8.!.. ms|
00005320  67 62 25 21 32 30 3d 70  62 25 21 32 30 0d 21 b6  |gb%!20=pb%!20.!.|
00005330  0f 20 6d 73 67 62 25 21  32 34 3d 30 0d 21 c0 10  |. msgb%!24=0.!..|
00005340  20 c8 8e 20 70 62 25 21  32 30 20 ca 0d 21 ca 0a  | .. pb%!20 ..!..|
00005350  20 c9 20 30 3a e1 0d 21  d4 23 20 c9 20 77 31 68  | . 0:..!.# . w1h|
00005360  25 3a 24 28 6d 73 67 62  25 2b 33 36 29 3d 22 43  |%:$(msgb%+36)="C|
00005370  75 62 65 22 2b bd 28 30  29 0d 21 de 1b 20 24 28  |ube"+.(0).!.. $(|
00005380  6d 73 67 62 25 2b 32 38  29 3d 22 62 61 72 22 2b  |msgb%+28)="bar"+|
00005390  bd 28 30 29 0d 21 e8 26  20 c9 20 77 30 68 25 3a  |.(0).!.& . w0h%:|
000053a0  24 28 6d 73 67 62 25 2b  33 36 29 3d 22 56 65 72  |$(msgb%+36)="Ver|
000053b0  73 69 6f 6e 22 2b bd 28  30 29 0d 21 f2 1b 20 24  |sion"+.(0).!.. $|
000053c0  28 6d 73 67 62 25 2b 32  38 29 3d 22 76 65 72 22  |(msgb%+28)="ver"|
000053d0  2b bd 28 30 29 0d 21 fc  24 20 c9 20 77 37 68 25  |+.(0).!.$ . w7h%|
000053e0  3a 24 28 6d 73 67 62 25  2b 33 36 29 3d 22 49 6e  |:$(msgb%+36)="In|
000053f0  66 6f 2e 22 2b bd 28 30  29 0d 22 06 1b 20 24 28  |fo."+.(0).".. $(|
00005400  6d 73 67 62 25 2b 32 38  29 3d 22 69 6e 66 22 2b  |msgb%+28)="inf"+|
00005410  bd 28 30 29 0d 22 10 24  20 c9 20 77 38 68 25 3a  |.(0).".$ . w8h%:|
00005420  24 28 6d 73 67 62 25 2b  33 36 29 3d 22 49 6e 70  |$(msgb%+36)="Inp|
00005430  75 74 22 2b bd 28 30 29  0d 22 1a 1b 20 24 28 6d  |ut"+.(0).".. $(m|
00005440  73 67 62 25 2b 32 38 29  3d 22 69 6e 70 22 2b bd  |sgb%+28)="inp"+.|
00005450  28 30 29 0d 22 24 26 20  c9 20 77 39 68 25 3a 24  |(0)."$& . w9h%:$|
00005460  28 6d 73 67 62 25 2b 33  36 29 3d 22 50 6f 69 6e  |(msgb%+36)="Poin|
00005470  74 65 72 22 2b bd 28 30  29 0d 22 2e 1b 20 24 28  |ter"+.(0).".. $(|
00005480  6d 73 67 62 25 2b 32 38  29 3d 22 70 74 72 22 2b  |msgb%+28)="ptr"+|
00005490  bd 28 30 29 0d 22 38 26  20 c9 20 77 25 28 33 37  |.(0)."8& . w%(37|
000054a0  2c 31 29 3a 24 28 6d 73  67 62 25 2b 33 36 29 3d  |,1):$(msgb%+36)=|
000054b0  22 52 47 42 22 2b bd 28  30 29 0d 22 42 1b 20 24  |"RGB"+.(0)."B. $|
000054c0  28 6d 73 67 62 25 2b 32  38 29 3d 22 72 67 62 22  |(msgb%+28)="rgb"|
000054d0  2b bd 28 30 29 0d 22 4c  26 20 c9 20 77 25 28 33  |+.(0)."L& . w%(3|
000054e0  38 2c 31 29 3a 24 28 6d  73 67 62 25 2b 33 36 29  |8,1):$(msgb%+36)|
000054f0  3d 22 43 4d 59 22 2b bd  28 30 29 0d 22 56 1b 20  |="CMY"+.(0)."V. |
00005500  24 28 6d 73 67 62 25 2b  32 38 29 3d 22 63 6d 79  |$(msgb%+28)="cmy|
00005510  22 2b bd 28 30 29 0d 22  60 28 20 c9 20 77 25 28  |"+.(0)."`( . w%(|
00005520  33 39 2c 31 29 3a 24 28  6d 73 67 62 25 2b 33 36  |39,1):$(msgb%+36|
00005530  29 3d 22 50 6c 61 69 6e  22 2b bd 28 30 29 0d 22  |)="Plain"+.(0)."|
00005540  6a 1b 20 24 28 6d 73 67  62 25 2b 32 38 29 3d 22  |j. $(msgb%+28)="|
00005550  63 6d 70 22 2b bd 28 30  29 0d 22 74 26 20 c9 20  |cmp"+.(0)."t& . |
00005560  77 25 28 34 30 2c 31 29  3a 24 28 6d 73 67 62 25  |w%(40,1):$(msgb%|
00005570  2b 33 36 29 3d 22 45 43  46 22 2b bd 28 30 29 0d  |+36)="ECF"+.(0).|
00005580  22 7e 1b 20 24 28 6d 73  67 62 25 2b 32 38 29 3d  |"~. $(msgb%+28)=|
00005590  22 65 63 66 22 2b bd 28  30 29 0d 22 88 06 20 7f  |"ecf"+.(0).".. .|
000055a0  0d 22 92 1c 20 24 28 6d  73 67 62 25 2b 33 36 29  |.".. $(msgb%+36)|
000055b0  3d 22 3f 3f 3f 3f 22 2b  bd 28 30 29 0d 22 9c 1b  |="????"+.(0)."..|
000055c0  20 24 28 6d 73 67 62 25  2b 32 38 29 3d 22 73 74  | $(msgb%+28)="st|
000055d0  70 22 2b bd 28 30 29 0d  22 a6 0a 20 69 74 25 3d  |p"+.(0).".. it%=|
000055e0  30 0d 22 b0 06 20 f5 0d  22 ba 19 20 e7 20 77 25  |0.".. ..".. . w%|
000055f0  28 69 74 25 2c 31 29 3d  70 62 25 21 32 30 20 8c  |(it%,1)=pb%!20 .|
00005600  0d 22 c4 1c 20 24 28 6d  73 67 62 25 2b 33 36 29  |.".. $(msgb%+36)|
00005610  3d c3 28 69 74 25 29 2b  bd 28 30 29 0d 22 ce 0b  |=.(it%)+.(0)."..|
00005620  20 69 74 25 3d 33 36 0d  22 d8 06 20 cd 0d 22 e2  | it%=36.".. ..".|
00005630  0b 20 69 74 25 2b 3d 31  0d 22 ec 0d 20 fd 20 69  |. it%+=1.".. . i|
00005640  74 25 3d 33 37 0d 22 f6  06 20 cb 0d 23 00 1a 20  |t%=37.".. ..#.. |
00005650  c8 99 77 73 67 25 2c 31  37 2c 6d 73 67 62 25 2c  |..wsg%,17,msgb%,|
00005660  70 62 25 21 34 0d 23 0a  06 20 e1 0d 23 14 06 20  |pb%!4.#.. ..#.. |
00005670  3a 0d 23 1e 0c 20 dd 20  f2 65 78 69 74 0d 23 28  |:.#.. . .exit.#(|
00005680  14 20 c8 99 77 7a 25 2c  74 68 25 2c 74 61 73 6b  |. ..wz%,th%,task|
00005690  25 0d 23 32 0c 20 e7 20  72 32 25 20 e0 0d 23 3c  |%.#2. . r2% ..#<|
000056a0  06 20 e1 0d 23 46 06 20  3a 0d 23 50 11 20 dd 20  |. ..#F. :.#P. . |
000056b0  a4 63 72 65 61 74 65 5f  77 32 0d 23 5a 2d 20 77  |.create_w2.#Z- w|
000056c0  32 25 21 30 3d 65 32 25  3a 77 32 25 21 34 3d 66  |2%!0=e2%:w2%!4=f|
000056d0  32 25 3a 77 32 25 21 38  3d 67 32 25 3a 77 32 25  |2%:w2%!8=g2%:w2%|
000056e0  21 31 32 3d 68 32 25 0d  23 64 31 20 77 32 25 21  |!12=h2%.#d1 w2%!|
000056f0  31 36 3d 30 3a 77 32 25  21 32 30 3d 30 3a 77 32  |16=0:w2%!20=0:w2|
00005700  25 21 32 34 3d 2d 31 3a  77 32 25 21 32 38 3d 26  |%!24=-1:w2%!28=&|
00005710  38 36 30 30 30 30 30 32  0d 23 6e 2a 20 77 32 25  |86000002.#n* w2%|
00005720  21 33 32 3d 37 3a 77 32  25 21 33 33 3d 32 3a 77  |!32=7:w2%!33=2:w|
00005730  32 25 21 33 34 3d 30 3a  77 32 25 21 33 35 3d 26  |2%!34=0:w2%!35=&|
00005740  46 46 0d 23 78 29 20 77  32 25 21 33 36 3d 33 3a  |FF.#x) w2%!36=3:|
00005750  77 32 25 21 33 37 3d 31  3a 77 32 25 21 33 38 3d  |w2%!37=1:w2%!38=|
00005760  31 32 3a 77 32 25 21 33  39 3d 30 0d 23 82 30 20  |12:w2%!39=0.#.0 |
00005770  77 32 25 21 34 30 3d 69  32 25 3a 77 32 25 21 34  |w2%!40=i2%:w2%!4|
00005780  34 3d 6a 32 25 3a 77 32  25 21 34 38 3d 6b 32 25  |4=j2%:w2%!48=k2%|
00005790  3a 77 32 25 21 35 32 3d  6c 32 25 0d 23 8c 2e 20  |:w2%!52=l2%.#.. |
000057a0  77 32 25 21 35 36 3d 69  74 66 25 3a 77 32 25 21  |w2%!56=itf%:w2%!|
000057b0  36 30 3d 62 66 25 3a 77  32 25 21 36 34 3d 31 3a  |60=bf%:w2%!64=1:|
000057c0  77 32 25 21 36 38 3d 34  38 0d 23 96 36 20 77 32  |w2%!68=48.#.6 w2|
000057d0  25 21 37 30 3d 33 32 3a  77 32 25 21 37 32 3d 71  |%!70=32:w2%!72=q|
000057e0  74 25 3a 77 32 25 21 37  36 3d 62 73 25 3a 77 32  |t%:w2%!76=bs%:w2|
000057f0  25 21 38 30 3d 30 3a 77  32 25 21 38 34 3d 30 0d  |%!80=0:w2%!84=0.|
00005800  23 a0 17 20 c8 99 77 77  25 2c 2c 77 32 25 b8 68  |#.. ..ww%,,w2%.h|
00005810  61 6e 64 6c 65 25 0d 23  aa 0d 20 3d 68 61 6e 64  |andle%.#.. =hand|
00005820  6c 65 25 0d 23 b4 06 20  3a 0d 23 be 11 20 dd 20  |le%.#.. :.#.. . |
00005830  a4 63 72 65 61 74 65 5f  77 34 0d 23 c8 2d 20 77  |.create_w4.#.- w|
00005840  34 25 21 30 3d 65 34 25  3a 77 34 25 21 34 3d 66  |4%!0=e4%:w4%!4=f|
00005850  34 25 3a 77 34 25 21 38  3d 67 34 25 3a 77 34 25  |4%:w4%!8=g4%:w4%|
00005860  21 31 32 3d 68 34 25 0d  23 d2 31 20 77 34 25 21  |!12=h4%.#.1 w4%!|
00005870  31 36 3d 30 3a 77 34 25  21 32 30 3d 30 3a 77 34  |16=0:w4%!20=0:w4|
00005880  25 21 32 34 3d 2d 31 3a  77 34 25 21 32 38 3d 26  |%!24=-1:w4%!28=&|
00005890  42 46 30 30 30 30 30 32  0d 23 dc 2a 20 77 34 25  |BF000002.#.* w4%|
000058a0  3f 33 32 3d 37 3a 77 34  25 3f 33 33 3d 32 3a 77  |?32=7:w4%?33=2:w|
000058b0  34 25 3f 33 34 3d 37 3a  77 34 25 3f 33 35 3d 26  |4%?34=7:w4%?35=&|
000058c0  46 46 0d 23 e6 29 20 77  34 25 3f 33 36 3d 33 3a  |FF.#.) w4%?36=3:|
000058d0  77 34 25 3f 33 37 3d 31  3a 77 34 25 3f 33 38 3d  |w4%?37=1:w4%?38=|
000058e0  31 32 3a 77 34 25 3f 33  39 3d 30 0d 23 f0 30 20  |12:w4%?39=0.#.0 |
000058f0  77 34 25 21 34 30 3d 69  34 25 3a 77 34 25 21 34  |w4%!40=i4%:w4%!4|
00005900  34 3d 6a 34 25 3a 77 34  25 21 34 38 3d 6b 34 25  |4=j4%:w4%!48=k4%|
00005910  3a 77 34 25 21 35 32 3d  6c 34 25 0d 23 fa 36 20  |:w4%!52=l4%.#.6 |
00005920  77 34 25 21 35 36 3d 69  74 66 25 3a 77 34 25 21  |w4%!56=itf%:w4%!|
00005930  36 30 3d 30 3a 77 34 25  21 36 34 3d 62 73 25 3a  |60=0:w4%!64=bs%:|
00005940  77 34 25 21 36 38 3d 30  3a 77 34 25 21 37 30 3d  |w4%!68=0:w4%!70=|
00005950  30 0d 24 04 0d 20 c8 8e  20 69 74 25 20 ca 0d 24  |0.$.. .. it% ..$|
00005960  0e 14 20 c9 33 37 3a 77  34 25 21 37 32 3d 74 33  |.. .37:w4%!72=t3|
00005970  37 25 0d 24 18 14 20 c9  33 38 3a 77 34 25 21 37  |7%.$.. .38:w4%!7|
00005980  32 3d 74 33 38 25 0d 24  22 14 20 c9 33 39 3a 77  |2=t38%.$". .39:w|
00005990  34 25 21 37 32 3d 74 33  39 25 0d 24 2c 14 20 c9  |4%!72=t39%.$,. .|
000059a0  34 30 3a 77 34 25 21 37  32 3d 74 34 30 25 0d 24  |40:w4%!72=t40%.$|
000059b0  36 10 20 7f 77 34 25 21  37 32 3d 74 30 25 0d 24  |6. .w4%!72=t0%.$|
000059c0  40 06 20 cb 0d 24 4a 21  20 77 34 25 21 37 36 3d  |@. ..$J! w4%!76=|
000059d0  62 73 25 3a 77 34 25 21  38 30 3d 30 3a 77 34 25  |bs%:w4%!80=0:w4%|
000059e0  21 38 34 3d 30 0d 24 54  17 20 c8 99 77 77 25 2c  |!84=0.$T. ..ww%,|
000059f0  2c 77 34 25 b8 68 61 6e  64 6c 65 25 0d 24 5e 0d  |,w4%.handle%.$^.|
00005a00  20 3d 68 61 6e 64 6c 65  25 0d 24 68 06 20 3a 0d  | =handle%.$h. :.|
00005a10  24 72 11 20 dd 20 a4 63  72 65 61 74 65 5f 77 37  |$r. . .create_w7|
00005a20  0d 24 7c 0c 20 e7 20 72  32 25 20 8c 0d 24 86 2d  |.$|. . r2% ..$.-|
00005a30  20 77 37 25 21 30 3d 65  37 25 3a 77 37 25 21 34  | w7%!0=e7%:w7%!4|
00005a40  3d 66 37 25 3a 77 37 25  21 38 3d 67 37 25 3a 77  |=f7%:w7%!8=g7%:w|
00005a50  37 25 21 31 32 3d 68 37  25 0d 24 90 31 20 77 37  |7%!12=h7%.$.1 w7|
00005a60  25 21 31 36 3d 30 3a 77  37 25 21 32 30 3d 30 3a  |%!16=0:w7%!20=0:|
00005a70  77 37 25 21 32 34 3d 2d  31 3a 77 37 25 21 32 38  |w7%!24=-1:w7%!28|
00005a80  3d 26 42 46 30 30 30 30  30 32 0d 24 9a 28 20 77  |=&BF000002.$.( w|
00005a90  37 25 3f 33 32 3d 37 3a  77 37 25 3f 33 33 3d 32  |7%?32=7:w7%?33=2|
00005aa0  3a 77 37 25 3f 33 34 3d  37 3a 77 37 25 3f 33 35  |:w7%?34=7:w7%?35|
00005ab0  3d 31 0d 24 a4 29 20 77  37 25 3f 33 36 3d 33 3a  |=1.$.) w7%?36=3:|
00005ac0  77 37 25 3f 33 37 3d 31  3a 77 37 25 3f 33 38 3d  |w7%?37=1:w7%?38=|
00005ad0  31 32 3a 77 37 25 3f 33  39 3d 30 0d 24 ae 30 20  |12:w7%?39=0.$.0 |
00005ae0  77 37 25 21 34 30 3d 69  37 25 3a 77 37 25 21 34  |w7%!40=i7%:w7%!4|
00005af0  34 3d 6a 37 25 3a 77 37  25 21 34 38 3d 6b 37 25  |4=j7%:w7%!48=k7%|
00005b00  3a 77 37 25 21 35 32 3d  6c 37 25 0d 24 b8 2f 20  |:w7%!52=l7%.$./ |
00005b10  77 37 25 21 35 36 3d 69  74 66 25 3a 77 37 25 21  |w7%!56=itf%:w7%!|
00005b20  36 30 3d 30 3a 77 37 25  21 36 34 3d 62 73 25 3a  |60=0:w7%!64=bs%:|
00005b30  77 37 25 21 36 38 3d 6b  37 25 0d 24 c2 2c 20 77  |w7%!68=k7%.$., w|
00005b40  37 25 21 37 30 3d 30 3a  77 37 25 21 37 32 3d 74  |7%!70=0:w7%!72=t|
00005b50  37 25 3a 77 37 25 21 37  36 3d 62 73 25 3a 77 37  |7%:w7%!76=bs%:w7|
00005b60  25 21 38 30 3d 30 0d 24  cc 0e 20 77 37 25 21 38  |%!80=0.$.. w7%!8|
00005b70  34 3d 31 35 0d 24 d6 2d  20 77 37 25 21 38 38 3d  |4=15.$.- w7%!88=|
00005b80  30 3a 77 37 25 21 39 32  3d 2d 34 34 3a 77 37 25  |0:w7%!92=-44:w7%|
00005b90  21 39 36 3d 32 38 30 3a  77 37 25 21 31 30 30 3d  |!96=280:w7%!100=|
00005ba0  30 0d 24 e0 36 20 77 37  25 21 31 30 34 3d 69 66  |0.$.6 w7%!104=if|
00005bb0  66 25 3a 77 37 25 21 31  30 38 3d 74 78 37 25 3a  |f%:w7%!108=tx7%:|
00005bc0  77 37 25 21 31 31 32 3d  76 78 37 25 3a 77 37 25  |w7%!112=vx7%:w7%|
00005bd0  21 31 31 36 3d 31 32 0d  24 ea 36 20 77 37 25 21  |!116=12.$.6 w7%!|
00005be0  31 32 30 3d 6d 69 64 37  25 3a 77 37 25 21 31 32  |120=mid7%:w7%!12|
00005bf0  34 3d 2d 39 32 3a 77 37  25 21 31 32 38 3d 32 37  |4=-92:w7%!128=27|
00005c00  34 3a 77 37 25 21 31 33  32 3d 2d 34 38 0d 24 f4  |4:w7%!132=-48.$.|
00005c10  38 20 77 37 25 21 31 33  36 3d 74 78 66 25 3a 77  |8 w7%!136=txf%:w|
00005c20  37 25 21 31 34 30 3d 6c  6c 25 3a 77 37 25 21 31  |7%!140=ll%:w7%!1|
00005c30  34 34 3d 2d 31 3a 77 37  25 21 31 34 38 3d a9 28  |44=-1:w7%!148=.(|
00005c40  24 6c 6c 25 29 0d 24 fe  38 20 77 37 25 21 31 35  |$ll%).$.8 w7%!15|
00005c50  32 3d 6d 69 64 37 25 3a  77 37 25 21 31 35 36 3d  |2=mid7%:w7%!156=|
00005c60  2d 31 34 34 3a 77 37 25  21 31 36 30 3d 32 37 34  |-144:w7%!160=274|
00005c70  3a 77 37 25 21 31 36 34  3d 2d 31 30 30 0d 25 08  |:w7%!164=-100.%.|
00005c80  38 20 77 37 25 21 31 36  38 3d 74 78 66 25 3a 77  |8 w7%!168=txf%:w|
00005c90  37 25 21 31 37 32 3d 74  74 25 3a 77 37 25 21 31  |7%!172=tt%:w7%!1|
00005ca0  37 36 3d 2d 31 3a 77 37  25 21 31 38 30 3d a9 28  |76=-1:w7%!180=.(|
00005cb0  24 74 74 25 29 0d 25 12  38 20 77 37 25 21 31 38  |$tt%).%.8 w7%!18|
00005cc0  34 3d 6d 69 64 37 25 3a  77 37 25 21 31 38 38 3d  |4=mid7%:w7%!188=|
00005cd0  2d 31 39 36 3a 77 37 25  21 31 39 32 3d 32 37 34  |-196:w7%!192=274|
00005ce0  3a 77 37 25 21 31 39 36  3d 2d 31 35 32 0d 25 1c  |:w7%!196=-152.%.|
00005cf0  38 20 77 37 25 21 32 30  30 3d 74 78 66 25 3a 77  |8 w7%!200=txf%:w|
00005d00  37 25 21 32 30 34 3d 6f  6f 25 3a 77 37 25 21 32  |7%!204=oo%:w7%!2|
00005d10  30 38 3d 2d 31 3a 77 37  25 21 32 31 32 3d a9 28  |08=-1:w7%!212=.(|
00005d20  24 6f 6f 25 29 0d 25 26  38 20 77 37 25 21 32 31  |$oo%).%&8 w7%!21|
00005d30  36 3d 6d 69 64 37 25 3a  77 37 25 21 32 32 30 3d  |6=mid7%:w7%!220=|
00005d40  2d 32 34 38 3a 77 37 25  21 32 32 34 3d 32 37 34  |-248:w7%!224=274|
00005d50  3a 77 37 25 21 32 32 38  3d 2d 32 30 34 0d 25 30  |:w7%!228=-204.%0|
00005d60  38 20 77 37 25 21 32 33  32 3d 74 78 66 25 3a 77  |8 w7%!232=txf%:w|
00005d70  37 25 21 32 33 36 3d 6e  6e 25 3a 77 37 25 21 32  |7%!236=nn%:w7%!2|
00005d80  34 30 3d 2d 31 3a 77 37  25 21 32 34 34 3d a9 28  |40=-1:w7%!244=.(|
00005d90  24 6e 6e 25 29 0d 25 3a  38 20 77 37 25 21 32 34  |$nn%).%:8 w7%!24|
00005da0  38 3d 6d 69 64 37 25 3a  77 37 25 21 32 35 32 3d  |8=mid7%:w7%!252=|
00005db0  2d 33 30 30 3a 77 37 25  21 32 35 36 3d 32 37 34  |-300:w7%!256=274|
00005dc0  3a 77 37 25 21 32 36 30  3d 2d 32 35 36 0d 25 44  |:w7%!260=-256.%D|
00005dd0  38 20 77 37 25 21 32 36  34 3d 74 78 66 25 3a 77  |8 w7%!264=txf%:w|
00005de0  37 25 21 32 36 38 3d 72  72 25 3a 77 37 25 21 32  |7%!268=rr%:w7%!2|
00005df0  37 32 3d 2d 31 3a 77 37  25 21 32 37 36 3d a9 28  |72=-1:w7%!276=.(|
00005e00  24 72 72 25 29 0d 25 4e  38 20 77 37 25 21 32 38  |$rr%).%N8 w7%!28|
00005e10  30 3d 6d 69 64 37 25 3a  77 37 25 21 32 38 34 3d  |0=mid7%:w7%!284=|
00005e20  2d 33 35 32 3a 77 37 25  21 32 38 38 3d 32 37 34  |-352:w7%!288=274|
00005e30  3a 77 37 25 21 32 39 32  3d 2d 33 30 38 0d 25 58  |:w7%!292=-308.%X|
00005e40  38 20 77 37 25 21 32 39  36 3d 74 78 66 25 3a 77  |8 w7%!296=txf%:w|
00005e50  37 25 21 33 30 30 3d 67  67 25 3a 77 37 25 21 33  |7%!300=gg%:w7%!3|
00005e60  30 34 3d 2d 31 3a 77 37  25 21 33 30 38 3d a9 28  |04=-1:w7%!308=.(|
00005e70  24 67 67 25 29 0d 25 62  38 20 77 37 25 21 33 31  |$gg%).%b8 w7%!31|
00005e80  32 3d 6d 69 64 37 25 3a  77 37 25 21 33 31 36 3d  |2=mid7%:w7%!316=|
00005e90  2d 34 30 34 3a 77 37 25  21 33 32 30 3d 32 37 34  |-404:w7%!320=274|
00005ea0  3a 77 37 25 21 33 32 34  3d 2d 33 36 30 0d 25 6c  |:w7%!324=-360.%l|
00005eb0  38 20 77 37 25 21 33 32  38 3d 74 78 66 25 3a 77  |8 w7%!328=txf%:w|
00005ec0  37 25 21 33 33 32 3d 62  62 25 3a 77 37 25 21 33  |7%!332=bb%:w7%!3|
00005ed0  33 36 3d 2d 31 3a 77 37  25 21 33 34 30 3d a9 28  |36=-1:w7%!340=.(|
00005ee0  24 62 62 25 29 0d 25 76  34 20 77 37 25 21 33 34  |$bb%).%v4 w7%!34|
00005ef0  34 3d 36 3a 77 37 25 21  33 34 38 3d 2d 39 32 3a  |4=6:w7%!348=-92:|
00005f00  77 37 25 21 33 35 32 3d  6d 69 64 37 25 3a 77 37  |w7%!352=mid7%:w7|
00005f10  25 21 33 35 36 3d 2d 34  38 0d 25 80 40 20 77 37  |%!356=-48.%.@ w7|
00005f20  25 21 33 36 30 3d 74 78  66 25 3a 77 37 25 21 33  |%!360=txf%:w7%!3|
00005f30  36 34 3d 63 6f 6c 6f 75  72 25 3a 77 37 25 21 33  |64=colour%:w7%!3|
00005f40  36 38 3d 2d 31 3a 77 37  25 21 33 37 32 3d a9 28  |68=-1:w7%!372=.(|
00005f50  24 63 6f 6c 6f 75 72 25  29 0d 25 8a 36 20 77 37  |$colour%).%.6 w7|
00005f60  25 21 33 37 36 3d 36 3a  77 37 25 21 33 38 30 3d  |%!376=6:w7%!380=|
00005f70  2d 31 34 34 3a 77 37 25  21 33 38 34 3d 6d 69 64  |-144:w7%!384=mid|
00005f80  37 25 3a 77 37 25 21 33  38 38 3d 2d 31 30 30 0d  |7%:w7%!388=-100.|
00005f90  25 94 3c 20 77 37 25 21  33 39 32 3d 74 78 66 25  |%.< w7%!392=txf%|
00005fa0  3a 77 37 25 21 33 39 36  3d 74 69 6e 74 25 3a 77  |:w7%!396=tint%:w|
00005fb0  37 25 21 34 30 30 3d 2d  31 3a 77 37 25 21 34 30  |7%!400=-1:w7%!40|
00005fc0  34 3d a9 28 24 74 69 6e  74 25 29 0d 25 9e 36 20  |4=.($tint%).%.6 |
00005fd0  77 37 25 21 34 30 38 3d  36 3a 77 37 25 21 34 31  |w7%!408=6:w7%!41|
00005fe0  32 3d 2d 31 39 36 3a 77  37 25 21 34 31 36 3d 6d  |2=-196:w7%!416=m|
00005ff0  69 64 37 25 3a 77 37 25  21 34 32 30 3d 2d 31 35  |id7%:w7%!420=-15|
00006000  32 0d 25 a8 44 20 77 37  25 21 34 32 34 3d 74 78  |2.%.D w7%!424=tx|
00006010  66 25 3a 77 37 25 21 34  32 38 3d 73 79 73 5f 67  |f%:w7%!428=sys_g|
00006020  63 6f 6c 25 3a 77 37 25  21 34 33 32 3d 2d 31 3a  |col%:w7%!432=-1:|
00006030  77 37 25 21 34 33 36 3d  a9 28 24 73 79 73 5f 67  |w7%!436=.($sys_g|
00006040  63 6f 6c 25 29 0d 25 b2  36 20 77 37 25 21 34 34  |col%).%.6 w7%!44|
00006050  30 3d 36 3a 77 37 25 21  34 34 34 3d 2d 32 34 38  |0=6:w7%!444=-248|
00006060  3a 77 37 25 21 34 34 38  3d 6d 69 64 37 25 3a 77  |:w7%!448=mid7%:w|
00006070  37 25 21 34 35 32 3d 2d  32 30 34 0d 25 bc 42 20  |7%!452=-204.%.B |
00006080  77 37 25 21 34 35 36 3d  74 78 66 25 3a 77 37 25  |w7%!456=txf%:w7%|
00006090  21 34 36 30 3d 63 6f 6c  5f 6e 75 6d 25 3a 77 37  |!460=col_num%:w7|
000060a0  25 21 34 36 34 3d 2d 31  3a 77 37 25 21 34 36 38  |%!464=-1:w7%!468|
000060b0  3d a9 28 24 63 6f 6c 5f  6e 75 6d 25 29 0d 25 c6  |=.($col_num%).%.|
000060c0  36 20 77 37 25 21 34 37  32 3d 36 3a 77 37 25 21  |6 w7%!472=6:w7%!|
000060d0  34 37 36 3d 2d 33 30 30  3a 77 37 25 21 34 38 30  |476=-300:w7%!480|
000060e0  3d 6d 69 64 37 25 3a 77  37 25 21 34 38 34 3d 2d  |=mid7%:w7%!484=-|
000060f0  32 35 36 0d 25 d0 3a 20  77 37 25 21 34 38 38 3d  |256.%.: w7%!488=|
00006100  74 78 66 25 3a 77 37 25  21 34 39 32 3d 72 65 64  |txf%:w7%!492=red|
00006110  25 3a 77 37 25 21 34 39  36 3d 2d 31 3a 77 37 25  |%:w7%!496=-1:w7%|
00006120  21 35 30 30 3d a9 28 24  72 65 64 25 29 0d 25 da  |!500=.($red%).%.|
00006130  36 20 77 37 25 21 35 30  34 3d 36 3a 77 37 25 21  |6 w7%!504=6:w7%!|
00006140  35 30 38 3d 2d 33 35 32  3a 77 37 25 21 35 31 32  |508=-352:w7%!512|
00006150  3d 6d 69 64 37 25 3a 77  37 25 21 35 31 36 3d 2d  |=mid7%:w7%!516=-|
00006160  33 30 38 0d 25 e4 3e 20  77 37 25 21 35 32 30 3d  |308.%.> w7%!520=|
00006170  74 78 66 25 3a 77 37 25  21 35 32 34 3d 67 72 65  |txf%:w7%!524=gre|
00006180  65 6e 25 3a 77 37 25 21  35 32 38 3d 2d 31 3a 77  |en%:w7%!528=-1:w|
00006190  37 25 21 35 33 32 3d a9  28 24 67 72 65 65 6e 25  |7%!532=.($green%|
000061a0  29 0d 25 ee 36 20 77 37  25 21 35 33 36 3d 36 3a  |).%.6 w7%!536=6:|
000061b0  77 37 25 21 35 34 30 3d  2d 34 30 34 3a 77 37 25  |w7%!540=-404:w7%|
000061c0  21 35 34 34 3d 6d 69 64  37 25 3a 77 37 25 21 35  |!544=mid7%:w7%!5|
000061d0  34 38 3d 2d 33 36 30 0d  25 f8 3c 20 77 37 25 21  |48=-360.%.< w7%!|
000061e0  35 35 32 3d 74 78 66 25  3a 77 37 25 21 35 35 36  |552=txf%:w7%!556|
000061f0  3d 62 6c 75 65 25 3a 77  37 25 21 35 36 30 3d 2d  |=blue%:w7%!560=-|
00006200  31 3a 77 37 25 21 35 36  34 3d a9 28 24 62 6c 75  |1:w7%!564=.($blu|
00006210  65 25 29 0d 26 02 06 20  cc 0d 26 0c 2d 20 77 37  |e%).&.. ..&.- w7|
00006220  25 21 30 3d 65 37 25 3a  77 37 25 21 34 3d 66 37  |%!0=e7%:w7%!4=f7|
00006230  25 3a 77 37 25 21 38 3d  67 37 25 3a 77 37 25 21  |%:w7%!8=g7%:w7%!|
00006240  31 32 3d 68 37 25 0d 26  16 31 20 77 37 25 21 31  |12=h7%.&.1 w7%!1|
00006250  36 3d 30 3a 77 37 25 21  32 30 3d 30 3a 77 37 25  |6=0:w7%!20=0:w7%|
00006260  21 32 34 3d 2d 31 3a 77  37 25 21 32 38 3d 26 42  |!24=-1:w7%!28=&B|
00006270  46 30 30 30 30 30 32 0d  26 20 28 20 77 37 25 3f  |F000002.& ( w7%?|
00006280  33 32 3d 37 3a 77 37 25  3f 33 33 3d 32 3a 77 37  |32=7:w7%?33=2:w7|
00006290  25 3f 33 34 3d 37 3a 77  37 25 3f 33 35 3d 31 0d  |%?34=7:w7%?35=1.|
000062a0  26 2a 29 20 77 37 25 3f  33 36 3d 33 3a 77 37 25  |&*) w7%?36=3:w7%|
000062b0  3f 33 37 3d 31 3a 77 37  25 3f 33 38 3d 31 32 3a  |?37=1:w7%?38=12:|
000062c0  77 37 25 3f 33 39 3d 30  0d 26 34 30 20 77 37 25  |w7%?39=0.&40 w7%|
000062d0  21 34 30 3d 69 37 25 3a  77 37 25 21 34 34 3d 6a  |!40=i7%:w7%!44=j|
000062e0  37 25 3a 77 37 25 21 34  38 3d 6b 37 25 3a 77 37  |7%:w7%!48=k7%:w7|
000062f0  25 21 35 32 3d 6c 37 25  0d 26 3e 2f 20 77 37 25  |%!52=l7%.&>/ w7%|
00006300  21 35 36 3d 69 74 66 25  3a 77 37 25 21 36 30 3d  |!56=itf%:w7%!60=|
00006310  30 3a 77 37 25 21 36 34  3d 62 73 25 3a 77 37 25  |0:w7%!64=bs%:w7%|
00006320  21 36 38 3d 6b 37 25 0d  26 48 2c 20 77 37 25 21  |!68=k7%.&H, w7%!|
00006330  37 30 3d 30 3a 77 37 25  21 37 32 3d 74 37 25 3a  |70=0:w7%!72=t7%:|
00006340  77 37 25 21 37 36 3d 62  73 25 3a 77 37 25 21 38  |w7%!76=bs%:w7%!8|
00006350  30 3d 30 0d 26 52 0e 20  77 37 25 21 38 34 3d 32  |0=0.&R. w7%!84=2|
00006360  33 0d 26 5c 2d 20 77 37  25 21 38 38 3d 30 3a 77  |3.&\- w7%!88=0:w|
00006370  37 25 21 39 32 3d 2d 34  34 3a 77 37 25 21 39 36  |7%!92=-44:w7%!96|
00006380  3d 32 38 30 3a 77 37 25  21 31 30 30 3d 30 0d 26  |=280:w7%!100=0.&|
00006390  66 36 20 77 37 25 21 31  30 34 3d 69 66 66 25 3a  |f6 w7%!104=iff%:|
000063a0  77 37 25 21 31 30 38 3d  74 78 37 25 3a 77 37 25  |w7%!108=tx7%:w7%|
000063b0  21 31 31 32 3d 76 78 37  25 3a 77 37 25 21 31 31  |!112=vx7%:w7%!11|
000063c0  36 3d 31 32 0d 26 70 36  20 77 37 25 21 31 32 30  |6=12.&p6 w7%!120|
000063d0  3d 6d 69 64 37 25 3a 77  37 25 21 31 32 34 3d 2d  |=mid7%:w7%!124=-|
000063e0  39 32 3a 77 37 25 21 31  32 38 3d 32 37 34 3a 77  |92:w7%!128=274:w|
000063f0  37 25 21 31 33 32 3d 2d  34 38 0d 26 7a 38 20 77  |7%!132=-48.&z8 w|
00006400  37 25 21 31 33 36 3d 74  78 66 25 3a 77 37 25 21  |7%!136=txf%:w7%!|
00006410  31 34 30 3d 6c 6c 25 3a  77 37 25 21 31 34 34 3d  |140=ll%:w7%!144=|
00006420  2d 31 3a 77 37 25 21 31  34 38 3d a9 28 24 6c 6c  |-1:w7%!148=.($ll|
00006430  25 29 0d 26 84 38 20 77  37 25 21 31 35 32 3d 6d  |%).&.8 w7%!152=m|
00006440  69 64 37 25 3a 77 37 25  21 31 35 36 3d 2d 31 34  |id7%:w7%!156=-14|
00006450  34 3a 77 37 25 21 31 36  30 3d 32 37 34 3a 77 37  |4:w7%!160=274:w7|
00006460  25 21 31 36 34 3d 2d 31  30 30 0d 26 8e 38 20 77  |%!164=-100.&.8 w|
00006470  37 25 21 31 36 38 3d 74  78 66 25 3a 77 37 25 21  |7%!168=txf%:w7%!|
00006480  31 37 32 3d 74 74 25 3a  77 37 25 21 31 37 36 3d  |172=tt%:w7%!176=|
00006490  2d 31 3a 77 37 25 21 31  38 30 3d a9 28 24 74 74  |-1:w7%!180=.($tt|
000064a0  25 29 0d 26 98 38 20 77  37 25 21 31 38 34 3d 6d  |%).&.8 w7%!184=m|
000064b0  69 64 37 25 3a 77 37 25  21 31 38 38 3d 2d 31 39  |id7%:w7%!188=-19|
000064c0  36 3a 77 37 25 21 31 39  32 3d 32 37 34 3a 77 37  |6:w7%!192=274:w7|
000064d0  25 21 31 39 36 3d 2d 31  35 32 0d 26 a2 38 20 77  |%!196=-152.&.8 w|
000064e0  37 25 21 32 30 30 3d 74  78 66 25 3a 77 37 25 21  |7%!200=txf%:w7%!|
000064f0  32 30 34 3d 6f 6f 25 3a  77 37 25 21 32 30 38 3d  |204=oo%:w7%!208=|
00006500  2d 31 3a 77 37 25 21 32  31 32 3d a9 28 24 6f 6f  |-1:w7%!212=.($oo|
00006510  25 29 0d 26 ac 38 20 77  37 25 21 32 31 36 3d 6d  |%).&.8 w7%!216=m|
00006520  69 64 37 25 3a 77 37 25  21 32 32 30 3d 2d 32 34  |id7%:w7%!220=-24|
00006530  38 3a 77 37 25 21 32 32  34 3d 32 37 34 3a 77 37  |8:w7%!224=274:w7|
00006540  25 21 32 32 38 3d 2d 32  30 34 0d 26 b6 38 20 77  |%!228=-204.&.8 w|
00006550  37 25 21 32 33 32 3d 74  78 66 25 3a 77 37 25 21  |7%!232=txf%:w7%!|
00006560  32 33 36 3d 6e 6e 25 3a  77 37 25 21 32 34 30 3d  |236=nn%:w7%!240=|
00006570  2d 31 3a 77 37 25 21 32  34 34 3d a9 28 24 6e 6e  |-1:w7%!244=.($nn|
00006580  25 29 0d 26 c0 38 20 77  37 25 21 32 34 38 3d 6d  |%).&.8 w7%!248=m|
00006590  69 64 37 25 3a 77 37 25  21 32 35 32 3d 2d 33 30  |id7%:w7%!252=-30|
000065a0  30 3a 77 37 25 21 32 35  36 3d 32 37 34 3a 77 37  |0:w7%!256=274:w7|
000065b0  25 21 32 36 30 3d 2d 32  35 36 0d 26 ca 38 20 77  |%!260=-256.&.8 w|
000065c0  37 25 21 32 36 34 3d 74  78 66 25 3a 77 37 25 21  |7%!264=txf%:w7%!|
000065d0  32 36 38 3d 72 72 25 3a  77 37 25 21 32 37 32 3d  |268=rr%:w7%!272=|
000065e0  2d 31 3a 77 37 25 21 32  37 36 3d a9 28 24 72 72  |-1:w7%!276=.($rr|
000065f0  25 29 0d 26 d4 38 20 77  37 25 21 32 38 30 3d 6d  |%).&.8 w7%!280=m|
00006600  69 64 37 25 3a 77 37 25  21 32 38 34 3d 2d 33 35  |id7%:w7%!284=-35|
00006610  32 3a 77 37 25 21 32 38  38 3d 32 37 34 3a 77 37  |2:w7%!288=274:w7|
00006620  25 21 32 39 32 3d 2d 33  30 38 0d 26 de 38 20 77  |%!292=-308.&.8 w|
00006630  37 25 21 32 39 36 3d 74  78 66 25 3a 77 37 25 21  |7%!296=txf%:w7%!|
00006640  33 30 30 3d 67 67 25 3a  77 37 25 21 33 30 34 3d  |300=gg%:w7%!304=|
00006650  2d 31 3a 77 37 25 21 33  30 38 3d a9 28 24 67 67  |-1:w7%!308=.($gg|
00006660  25 29 0d 26 e8 38 20 77  37 25 21 33 31 32 3d 6d  |%).&.8 w7%!312=m|
00006670  69 64 37 25 3a 77 37 25  21 33 31 36 3d 2d 34 30  |id7%:w7%!316=-40|
00006680  34 3a 77 37 25 21 33 32  30 3d 32 37 34 3a 77 37  |4:w7%!320=274:w7|
00006690  25 21 33 32 34 3d 2d 33  36 30 0d 26 f2 38 20 77  |%!324=-360.&.8 w|
000066a0  37 25 21 33 32 38 3d 74  78 66 25 3a 77 37 25 21  |7%!328=txf%:w7%!|
000066b0  33 33 32 3d 62 62 25 3a  77 37 25 21 33 33 36 3d  |332=bb%:w7%!336=|
000066c0  2d 31 3a 77 37 25 21 33  34 30 3d a9 28 24 62 62  |-1:w7%!340=.($bb|
000066d0  25 29 0d 26 fc 38 20 77  37 25 21 33 34 34 3d 6d  |%).&.8 w7%!344=m|
000066e0  69 64 37 25 3a 77 37 25  21 33 34 38 3d 2d 34 35  |id7%:w7%!348=-45|
000066f0  36 3a 77 37 25 21 33 35  32 3d 32 37 34 3a 77 37  |6:w7%!352=274:w7|
00006700  25 21 33 35 36 3d 2d 34  31 32 0d 27 06 38 20 77  |%!356=-412.'.8 w|
00006710  37 25 21 33 36 30 3d 74  78 66 25 3a 77 37 25 21  |7%!360=txf%:w7%!|
00006720  33 36 34 3d 61 61 25 3a  77 37 25 21 33 36 38 3d  |364=aa%:w7%!368=|
00006730  2d 31 3a 77 37 25 21 33  37 32 3d a9 28 24 61 61  |-1:w7%!372=.($aa|
00006740  25 29 0d 27 10 38 20 77  37 25 21 33 37 36 3d 6d  |%).'.8 w7%!376=m|
00006750  69 64 37 25 3a 77 37 25  21 33 38 30 3d 2d 35 30  |id7%:w7%!380=-50|
00006760  38 3a 77 37 25 21 33 38  34 3d 32 37 34 3a 77 37  |8:w7%!384=274:w7|
00006770  25 21 33 38 38 3d 2d 34  36 34 0d 27 1a 38 20 77  |%!388=-464.'.8 w|
00006780  37 25 21 33 39 32 3d 74  78 66 25 3a 77 37 25 21  |7%!392=txf%:w7%!|
00006790  33 39 36 3d 6d 6d 25 3a  77 37 25 21 34 30 30 3d  |396=mm%:w7%!400=|
000067a0  2d 31 3a 77 37 25 21 34  30 34 3d a9 28 24 6d 6d  |-1:w7%!404=.($mm|
000067b0  25 29 0d 27 24 38 20 77  37 25 21 34 30 38 3d 6d  |%).'$8 w7%!408=m|
000067c0  69 64 37 25 3a 77 37 25  21 34 31 32 3d 2d 35 36  |id7%:w7%!412=-56|
000067d0  30 3a 77 37 25 21 34 31  36 3d 32 37 34 3a 77 37  |0:w7%!416=274:w7|
000067e0  25 21 34 32 30 3d 2d 35  31 36 0d 27 2e 38 20 77  |%!420=-516.'.8 w|
000067f0  37 25 21 34 32 34 3d 74  78 66 25 3a 77 37 25 21  |7%!424=txf%:w7%!|
00006800  34 32 38 3d 79 79 25 3a  77 37 25 21 34 33 32 3d  |428=yy%:w7%!432=|
00006810  2d 31 3a 77 37 25 21 34  33 36 3d a9 28 24 79 79  |-1:w7%!436=.($yy|
00006820  25 29 0d 27 38 38 20 77  37 25 21 34 34 30 3d 6d  |%).'88 w7%!440=m|
00006830  69 64 37 25 3a 77 37 25  21 34 34 34 3d 2d 36 31  |id7%:w7%!444=-61|
00006840  32 3a 77 37 25 21 34 34  38 3d 32 37 34 3a 77 37  |2:w7%!448=274:w7|
00006850  25 21 34 35 32 3d 2d 35  36 38 0d 27 42 38 20 77  |%!452=-568.'B8 w|
00006860  37 25 21 34 35 36 3d 26  31 31 39 3a 77 37 25 21  |7%!456=&119:w7%!|
00006870  34 36 30 3d 6b 6b 25 3a  77 37 25 21 34 36 34 3d  |460=kk%:w7%!464=|
00006880  2d 31 3a 77 37 25 21 34  36 38 3d a9 28 24 6b 6b  |-1:w7%!468=.($kk|
00006890  25 29 0d 27 4c 34 20 77  37 25 21 34 37 32 3d 36  |%).'L4 w7%!472=6|
000068a0  3a 77 37 25 21 34 37 36  3d 2d 39 32 3a 77 37 25  |:w7%!476=-92:w7%|
000068b0  21 34 38 30 3d 6d 69 64  37 25 3a 77 37 25 21 34  |!480=mid7%:w7%!4|
000068c0  38 34 3d 2d 34 38 0d 27  56 40 20 77 37 25 21 34  |84=-48.'V@ w7%!4|
000068d0  38 38 3d 74 78 66 25 3a  77 37 25 21 34 39 32 3d  |88=txf%:w7%!492=|
000068e0  63 6f 6c 6f 75 72 25 3a  77 37 25 21 34 39 36 3d  |colour%:w7%!496=|
000068f0  2d 31 3a 77 37 25 21 35  30 30 3d a9 28 24 63 6f  |-1:w7%!500=.($co|
00006900  6c 6f 75 72 25 29 0d 27  60 36 20 77 37 25 21 35  |lour%).'`6 w7%!5|
00006910  30 34 3d 36 3a 77 37 25  21 35 30 38 3d 2d 31 34  |04=6:w7%!508=-14|
00006920  34 3a 77 37 25 21 35 31  32 3d 6d 69 64 37 25 3a  |4:w7%!512=mid7%:|
00006930  77 37 25 21 35 31 36 3d  2d 31 30 30 0d 27 6a 3c  |w7%!516=-100.'j<|
00006940  20 77 37 25 21 35 32 30  3d 74 78 66 25 3a 77 37  | w7%!520=txf%:w7|
00006950  25 21 35 32 34 3d 74 69  6e 74 25 3a 77 37 25 21  |%!524=tint%:w7%!|
00006960  35 32 38 3d 2d 31 3a 77  37 25 21 35 33 32 3d a9  |528=-1:w7%!532=.|
00006970  28 24 74 69 6e 74 25 29  0d 27 74 36 20 77 37 25  |($tint%).'t6 w7%|
00006980  21 35 33 36 3d 36 3a 77  37 25 21 35 34 30 3d 2d  |!536=6:w7%!540=-|
00006990  31 39 36 3a 77 37 25 21  35 34 34 3d 6d 69 64 37  |196:w7%!544=mid7|
000069a0  25 3a 77 37 25 21 35 34  38 3d 2d 31 35 32 0d 27  |%:w7%!548=-152.'|
000069b0  7e 44 20 77 37 25 21 35  35 32 3d 74 78 66 25 3a  |~D w7%!552=txf%:|
000069c0  77 37 25 21 35 35 36 3d  73 79 73 5f 67 63 6f 6c  |w7%!556=sys_gcol|
000069d0  25 3a 77 37 25 21 35 36  30 3d 2d 31 3a 77 37 25  |%:w7%!560=-1:w7%|
000069e0  21 35 36 34 3d a9 28 24  73 79 73 5f 67 63 6f 6c  |!564=.($sys_gcol|
000069f0  25 29 0d 27 88 36 20 77  37 25 21 35 36 38 3d 36  |%).'.6 w7%!568=6|
00006a00  3a 77 37 25 21 35 37 32  3d 2d 32 34 38 3a 77 37  |:w7%!572=-248:w7|
00006a10  25 21 35 37 36 3d 6d 69  64 37 25 3a 77 37 25 21  |%!576=mid7%:w7%!|
00006a20  35 38 30 3d 2d 32 30 34  0d 27 92 42 20 77 37 25  |580=-204.'.B w7%|
00006a30  21 35 38 34 3d 74 78 66  25 3a 77 37 25 21 35 38  |!584=txf%:w7%!58|
00006a40  38 3d 63 6f 6c 5f 6e 75  6d 25 3a 77 37 25 21 35  |8=col_num%:w7%!5|
00006a50  39 32 3d 2d 31 3a 77 37  25 21 35 39 36 3d a9 28  |92=-1:w7%!596=.(|
00006a60  24 63 6f 6c 5f 6e 75 6d  25 29 0d 27 9c 36 20 77  |$col_num%).'.6 w|
00006a70  37 25 21 36 30 30 3d 36  3a 77 37 25 21 36 30 34  |7%!600=6:w7%!604|
00006a80  3d 2d 33 30 30 3a 77 37  25 21 36 30 38 3d 6d 69  |=-300:w7%!608=mi|
00006a90  64 37 25 3a 77 37 25 21  36 31 32 3d 2d 32 35 36  |d7%:w7%!612=-256|
00006aa0  0d 27 a6 3a 20 77 37 25  21 36 31 36 3d 74 78 66  |.'.: w7%!616=txf|
00006ab0  25 3a 77 37 25 21 36 32  30 3d 72 65 64 25 3a 77  |%:w7%!620=red%:w|
00006ac0  37 25 21 36 32 34 3d 2d  31 3a 77 37 25 21 36 32  |7%!624=-1:w7%!62|
00006ad0  38 3d a9 28 24 72 65 64  25 29 0d 27 b0 36 20 77  |8=.($red%).'.6 w|
00006ae0  37 25 21 36 33 32 3d 36  3a 77 37 25 21 36 33 36  |7%!632=6:w7%!636|
00006af0  3d 2d 33 35 32 3a 77 37  25 21 36 34 30 3d 6d 69  |=-352:w7%!640=mi|
00006b00  64 37 25 3a 77 37 25 21  36 34 34 3d 2d 33 30 38  |d7%:w7%!644=-308|
00006b10  0d 27 ba 3e 20 77 37 25  21 36 34 38 3d 74 78 66  |.'.> w7%!648=txf|
00006b20  25 3a 77 37 25 21 36 35  32 3d 67 72 65 65 6e 25  |%:w7%!652=green%|
00006b30  3a 77 37 25 21 36 35 36  3d 2d 31 3a 77 37 25 21  |:w7%!656=-1:w7%!|
00006b40  36 36 30 3d a9 28 24 67  72 65 65 6e 25 29 0d 27  |660=.($green%).'|
00006b50  c4 36 20 77 37 25 21 36  36 34 3d 36 3a 77 37 25  |.6 w7%!664=6:w7%|
00006b60  21 36 36 38 3d 2d 34 30  34 3a 77 37 25 21 36 37  |!668=-404:w7%!67|
00006b70  32 3d 6d 69 64 37 25 3a  77 37 25 21 36 37 36 3d  |2=mid7%:w7%!676=|
00006b80  2d 33 36 30 0d 27 ce 3c  20 77 37 25 21 36 38 30  |-360.'.< w7%!680|
00006b90  3d 74 78 66 25 3a 77 37  25 21 36 38 34 3d 62 6c  |=txf%:w7%!684=bl|
00006ba0  75 65 25 3a 77 37 25 21  36 38 38 3d 2d 31 3a 77  |ue%:w7%!688=-1:w|
00006bb0  37 25 21 36 39 32 3d a9  28 24 62 6c 75 65 25 29  |7%!692=.($blue%)|
00006bc0  0d 27 d8 36 20 77 37 25  21 36 39 36 3d 36 3a 77  |.'.6 w7%!696=6:w|
00006bd0  37 25 21 37 30 30 3d 2d  34 35 36 3a 77 37 25 21  |7%!700=-456:w7%!|
00006be0  37 30 34 3d 6d 69 64 37  25 3a 77 37 25 21 37 30  |704=mid7%:w7%!70|
00006bf0  38 3d 2d 34 31 32 0d 27  e2 3c 20 77 37 25 21 37  |8=-412.'.< w7%!7|
00006c00  31 32 3d 74 78 66 25 3a  77 37 25 21 37 31 36 3d  |12=txf%:w7%!716=|
00006c10  63 79 61 6e 25 3a 77 37  25 21 37 32 30 3d 2d 31  |cyan%:w7%!720=-1|
00006c20  3a 77 37 25 21 37 32 34  3d a9 28 24 63 79 61 6e  |:w7%!724=.($cyan|
00006c30  25 29 0d 27 ec 36 20 77  37 25 21 37 32 38 3d 36  |%).'.6 w7%!728=6|
00006c40  3a 77 37 25 21 37 33 32  3d 2d 35 30 38 3a 77 37  |:w7%!732=-508:w7|
00006c50  25 21 37 33 36 3d 6d 69  64 37 25 3a 77 37 25 21  |%!736=mid7%:w7%!|
00006c60  37 34 30 3d 2d 34 36 34  0d 27 f6 42 20 77 37 25  |740=-464.'.B w7%|
00006c70  21 37 34 34 3d 74 78 66  25 3a 77 37 25 21 37 34  |!744=txf%:w7%!74|
00006c80  38 3d 6d 61 67 65 6e 74  61 25 3a 77 37 25 21 37  |8=magenta%:w7%!7|
00006c90  35 32 3d 2d 31 3a 77 37  25 21 37 35 36 3d a9 28  |52=-1:w7%!756=.(|
00006ca0  24 6d 61 67 65 6e 74 61  25 29 0d 28 00 36 20 77  |$magenta%).(.6 w|
00006cb0  37 25 21 37 36 30 3d 36  3a 77 37 25 21 37 36 34  |7%!760=6:w7%!764|
00006cc0  3d 2d 35 36 30 3a 77 37  25 21 37 36 38 3d 6d 69  |=-560:w7%!768=mi|
00006cd0  64 37 25 3a 77 37 25 21  37 37 32 3d 2d 35 31 36  |d7%:w7%!772=-516|
00006ce0  0d 28 0a 40 20 77 37 25  21 37 37 36 3d 74 78 66  |.(.@ w7%!776=txf|
00006cf0  25 3a 77 37 25 21 37 38  30 3d 79 65 6c 6c 6f 77  |%:w7%!780=yellow|
00006d00  25 3a 77 37 25 21 37 38  34 3d 2d 31 3a 77 37 25  |%:w7%!784=-1:w7%|
00006d10  21 37 38 38 3d a9 28 24  79 65 6c 6c 6f 77 25 29  |!788=.($yellow%)|
00006d20  0d 28 14 36 20 77 37 25  21 37 39 32 3d 36 3a 77  |.(.6 w7%!792=6:w|
00006d30  37 25 21 37 39 36 3d 2d  36 31 32 3a 77 37 25 21  |7%!796=-612:w7%!|
00006d40  38 30 30 3d 6d 69 64 37  25 3a 77 37 25 21 38 30  |800=mid7%:w7%!80|
00006d50  34 3d 2d 35 36 38 0d 28  1e 3a 20 77 37 25 21 38  |4=-568.(.: w7%!8|
00006d60  30 38 3d 26 31 31 39 3a  77 37 25 21 38 31 32 3d  |08=&119:w7%!812=|
00006d70  6b 65 79 25 3a 77 37 25  21 38 31 36 3d 2d 31 3a  |key%:w7%!816=-1:|
00006d80  77 37 25 21 38 32 30 3d  a9 28 24 6b 65 79 25 29  |w7%!820=.($key%)|
00006d90  0d 28 28 06 20 cd 0d 28  32 1a 20 c8 99 20 77 77  |.((. ..(2. .. ww|
00006da0  25 2c 2c 77 37 25 20 b8  20 68 61 6e 64 6c 65 25  |%,,w7% . handle%|
00006db0  0d 28 3c 0d 20 3d 68 61  6e 64 6c 65 25 0d 28 46  |.(<. =handle%.(F|
00006dc0  06 20 3a 0d 28 50 11 20  dd 20 a4 63 72 65 61 74  |. :.(P. . .creat|
00006dd0  65 5f 77 38 0d 28 5a 2d  20 77 38 25 21 30 3d 65  |e_w8.(Z- w8%!0=e|
00006de0  38 25 3a 77 38 25 21 34  3d 66 38 25 3a 77 38 25  |8%:w8%!4=f8%:w8%|
00006df0  21 38 3d 67 38 25 3a 77  38 25 21 31 32 3d 68 38  |!8=g8%:w8%!12=h8|
00006e00  25 0d 28 64 31 20 77 38  25 21 31 36 3d 30 3a 77  |%.(d1 w8%!16=0:w|
00006e10  38 25 21 32 30 3d 30 3a  77 38 25 21 32 34 3d 2d  |8%!20=0:w8%!24=-|
00006e20  31 3a 77 38 25 21 32 38  3d 26 38 37 30 30 30 30  |1:w8%!28=&870000|
00006e30  30 32 0d 28 6e 28 20 77  38 25 3f 33 32 3d 37 3a  |02.(n( w8%?32=7:|
00006e40  77 38 25 3f 33 33 3d 32  3a 77 38 25 3f 33 34 3d  |w8%?33=2:w8%?34=|
00006e50  37 3a 77 38 25 3f 33 35  3d 31 0d 28 78 29 20 77  |7:w8%?35=1.(x) w|
00006e60  38 25 3f 33 36 3d 30 3a  77 38 25 3f 33 37 3d 30  |8%?36=0:w8%?37=0|
00006e70  3a 77 38 25 3f 33 38 3d  31 32 3a 77 38 25 3f 33  |:w8%?38=12:w8%?3|
00006e80  39 3d 30 0d 28 82 30 20  77 38 25 21 34 30 3d 69  |9=0.(.0 w8%!40=i|
00006e90  38 25 3a 77 38 25 21 34  34 3d 6a 38 25 3a 77 38  |8%:w8%!44=j8%:w8|
00006ea0  25 21 34 38 3d 6b 38 25  3a 77 38 25 21 35 32 3d  |%!48=k8%:w8%!52=|
00006eb0  6c 38 25 0d 28 8c 24 20  77 38 25 21 35 36 3d 69  |l8%.(.$ w8%!56=i|
00006ec0  74 66 25 3a 77 38 25 21  36 30 3d 30 3a 77 38 25  |tf%:w8%!60=0:w8%|
00006ed0  21 36 34 3d 62 73 25 0d  28 96 1a 20 77 38 25 21  |!64=bs%.(.. w8%!|
00006ee0  36 38 3d 32 38 30 3a 77  38 25 21 37 30 3d 32 35  |68=280:w8%!70=25|
00006ef0  32 0d 28 a0 1a 20 77 38  25 21 37 32 3d 74 38 25  |2.(.. w8%!72=t8%|
00006f00  3a 77 38 25 21 37 36 3d  62 73 25 0d 28 aa 17 20  |:w8%!76=bs%.(.. |
00006f10  77 38 25 21 38 30 3d 30  3a 77 38 25 21 38 34 3d  |w8%!80=0:w8%!84=|
00006f20  31 35 0d 28 b4 2d 20 77  38 25 21 38 38 3d 30 3a  |15.(.- w8%!88=0:|
00006f30  77 38 25 21 39 32 3d 2d  34 34 3a 77 38 25 21 39  |w8%!92=-44:w8%!9|
00006f40  36 3d 32 38 30 3a 77 38  25 21 31 30 30 3d 30 0d  |6=280:w8%!100=0.|
00006f50  28 be 36 20 77 38 25 21  31 30 34 3d 69 66 66 25  |(.6 w8%!104=iff%|
00006f60  3a 77 38 25 21 31 30 38  3d 74 78 38 25 3a 77 38  |:w8%!108=tx8%:w8|
00006f70  25 21 31 31 32 3d 76 78  38 25 3a 77 38 25 21 31  |%!112=vx8%:w8%!1|
00006f80  31 36 3d 31 32 0d 28 c8  34 20 77 38 25 21 31 32  |16=12.(.4 w8%!12|
00006f90  30 3d 30 3a 77 38 25 21  31 32 34 3d 2d 32 35 32  |0=0:w8%!124=-252|
00006fa0  3a 77 38 25 21 31 32 38  3d 31 34 30 3a 77 38 25  |:w8%!128=140:w8%|
00006fb0  21 31 33 32 3d 2d 32 30  30 0d 28 d2 35 20 77 38  |!132=-200.(.5 w8|
00006fc0  25 21 31 33 36 3d 69 66  66 25 3a 77 38 25 21 31  |%!136=iff%:w8%!1|
00006fd0  34 30 3d 74 63 38 25 3a  77 38 25 21 31 34 34 3d  |40=tc8%:w8%!144=|
00006fe0  76 64 38 25 3a 77 38 25  21 31 34 38 3d 36 0d 28  |vd8%:w8%!148=6.(|
00006ff0  dc 36 20 77 38 25 21 31  35 32 3d 31 34 30 3a 77  |.6 w8%!152=140:w|
00007000  38 25 21 31 35 36 3d 2d  32 35 32 3a 77 38 25 21  |8%!156=-252:w8%!|
00007010  31 36 30 3d 32 38 30 3a  77 38 25 21 31 36 34 3d  |160=280:w8%!164=|
00007020  2d 32 30 30 0d 28 e6 35  20 77 38 25 21 31 36 38  |-200.(.5 w8%!168|
00007030  3d 69 66 66 25 3a 77 38  25 21 31 37 32 3d 74 65  |=iff%:w8%!172=te|
00007040  38 25 3a 77 38 25 21 31  37 36 3d 76 64 38 25 3a  |8%:w8%!176=vd8%:|
00007050  77 38 25 21 31 38 30 3d  36 0d 28 f0 32 20 77 38  |w8%!180=6.(.2 w8|
00007060  25 21 31 38 34 3d 30 3a  77 38 25 21 31 38 38 3d  |%!184=0:w8%!188=|
00007070  2d 39 36 3a 77 38 25 21  31 39 32 3d 31 32 30 3a  |-96:w8%!192=120:|
00007080  77 38 25 21 31 39 36 3d  2d 34 34 0d 28 fa 3a 20  |w8%!196=-44.(.: |
00007090  77 38 25 21 32 30 30 3d  74 78 66 25 3a 77 38 25  |w8%!200=txf%:w8%|
000070a0  21 32 30 34 3d 72 65 64  25 3a 77 38 25 21 32 30  |!204=red%:w8%!20|
000070b0  38 3d 2d 31 3a 77 38 25  21 32 31 32 3d a9 28 24  |8=-1:w8%!212=.($|
000070c0  72 65 64 25 29 0d 29 04  33 20 77 38 25 21 32 31  |red%).).3 w8%!21|
000070d0  36 3d 30 3a 77 38 25 21  32 32 30 3d 2d 31 34 38  |6=0:w8%!220=-148|
000070e0  3a 77 38 25 21 32 32 34  3d 31 32 30 3a 77 38 25  |:w8%!224=120:w8%|
000070f0  21 32 32 38 3d 2d 39 36  0d 29 0e 3e 20 77 38 25  |!228=-96.).> w8%|
00007100  21 32 33 32 3d 74 78 66  25 3a 77 38 25 21 32 33  |!232=txf%:w8%!23|
00007110  36 3d 67 72 65 65 6e 25  3a 77 38 25 21 32 34 30  |6=green%:w8%!240|
00007120  3d 2d 31 3a 77 38 25 21  32 34 34 3d a9 28 24 67  |=-1:w8%!244=.($g|
00007130  72 65 65 6e 25 29 0d 29  18 34 20 77 38 25 21 32  |reen%).).4 w8%!2|
00007140  34 38 3d 30 3a 77 38 25  21 32 35 32 3d 2d 32 30  |48=0:w8%!252=-20|
00007150  30 3a 77 38 25 21 32 35  36 3d 31 32 30 3a 77 38  |0:w8%!256=120:w8|
00007160  25 21 32 36 30 3d 2d 31  34 38 0d 29 22 3c 20 77  |%!260=-148.)"< w|
00007170  38 25 21 32 36 34 3d 74  78 66 25 3a 77 38 25 21  |8%!264=txf%:w8%!|
00007180  32 36 38 3d 62 6c 75 65  25 3a 77 38 25 21 32 37  |268=blue%:w8%!27|
00007190  32 3d 2d 31 3a 77 38 25  21 32 37 36 3d a9 28 24  |2=-1:w8%!276=.($|
000071a0  62 6c 75 65 25 29 0d 29  2c 34 20 77 38 25 21 32  |blue%).),4 w8%!2|
000071b0  38 30 3d 31 32 30 3a 77  38 25 21 32 38 34 3d 2d  |80=120:w8%!284=-|
000071c0  39 32 3a 77 38 25 21 32  38 38 3d 32 37 34 3a 77  |92:w8%!288=274:w|
000071d0  38 25 21 32 39 32 3d 2d  34 38 0d 29 36 3e 20 77  |8%!292=-48.)6> w|
000071e0  38 25 21 32 39 36 3d 69  66 38 25 2b 64 65 6c 65  |8%!296=if8%+dele|
000071f0  74 65 64 25 3a 77 38 25  21 33 30 30 3d 72 64 74  |ted%:w8%!300=rdt|
00007200  25 3a 77 38 25 21 33 30  34 3d 76 73 64 25 3a 77  |%:w8%!304=vsd%:w|
00007210  38 25 21 33 30 38 3d 34  0d 29 40 36 20 77 38 25  |8%!308=4.)@6 w8%|
00007220  21 33 31 32 3d 31 32 30  3a 77 38 25 21 33 31 36  |!312=120:w8%!316|
00007230  3d 2d 31 34 34 3a 77 38  25 21 33 32 30 3d 32 37  |=-144:w8%!320=27|
00007240  34 3a 77 38 25 21 33 32  34 3d 2d 31 30 30 0d 29  |4:w8%!324=-100.)|
00007250  4a 3e 20 77 38 25 21 33  32 38 3d 69 66 38 25 2b  |J> w8%!328=if8%+|
00007260  64 65 6c 65 74 65 64 25  3a 77 38 25 21 33 33 32  |deleted%:w8%!332|
00007270  3d 67 64 74 25 3a 77 38  25 21 33 33 36 3d 76 73  |=gdt%:w8%!336=vs|
00007280  64 25 3a 77 38 25 21 33  34 30 3d 34 0d 29 54 36  |d%:w8%!340=4.)T6|
00007290  20 77 38 25 21 33 34 34  3d 31 32 30 3a 77 38 25  | w8%!344=120:w8%|
000072a0  21 33 34 38 3d 2d 31 39  36 3a 77 38 25 21 33 35  |!348=-196:w8%!35|
000072b0  32 3d 32 37 34 3a 77 38  25 21 33 35 36 3d 2d 31  |2=274:w8%!356=-1|
000072c0  35 32 0d 29 5e 3e 20 77  38 25 21 33 36 30 3d 69  |52.)^> w8%!360=i|
000072d0  66 38 25 2b 64 65 6c 65  74 65 64 25 3a 77 38 25  |f8%+deleted%:w8%|
000072e0  21 33 36 34 3d 62 64 74  25 3a 77 38 25 21 33 36  |!364=bdt%:w8%!36|
000072f0  38 3d 76 73 64 25 3a 77  38 25 21 33 37 32 3d 34  |8=vsd%:w8%!372=4|
00007300  0d 29 68 34 20 77 38 25  21 33 37 36 3d 31 32 30  |.)h4 w8%!376=120|
00007310  3a 77 38 25 21 33 38 30  3d 2d 39 32 3a 77 38 25  |:w8%!380=-92:w8%|
00007320  21 33 38 34 3d 32 37 34  3a 77 38 25 21 33 38 38  |!384=274:w8%!388|
00007330  3d 2d 34 38 0d 29 72 3e  20 77 38 25 21 33 39 32  |=-48.)r> w8%!392|
00007340  3d 69 66 38 25 2b 64 65  6c 65 74 65 64 25 3a 77  |=if8%+deleted%:w|
00007350  38 25 21 33 39 36 3d 72  68 74 25 3a 77 38 25 21  |8%!396=rht%:w8%!|
00007360  34 30 30 3d 76 73 68 25  3a 77 38 25 21 34 30 34  |400=vsh%:w8%!404|
00007370  3d 33 0d 29 7c 36 20 77  38 25 21 34 30 38 3d 31  |=3.)|6 w8%!408=1|
00007380  32 30 3a 77 38 25 21 34  31 32 3d 2d 31 34 34 3a  |20:w8%!412=-144:|
00007390  77 38 25 21 34 31 36 3d  32 37 34 3a 77 38 25 21  |w8%!416=274:w8%!|
000073a0  34 32 30 3d 2d 31 30 30  0d 29 86 3e 20 77 38 25  |420=-100.).> w8%|
000073b0  21 34 32 34 3d 69 66 38  25 2b 64 65 6c 65 74 65  |!424=if8%+delete|
000073c0  64 25 3a 77 38 25 21 34  32 38 3d 67 68 74 25 3a  |d%:w8%!428=ght%:|
000073d0  77 38 25 21 34 33 32 3d  76 73 68 25 3a 77 38 25  |w8%!432=vsh%:w8%|
000073e0  21 34 33 36 3d 33 0d 29  90 36 20 77 38 25 21 34  |!436=3.).6 w8%!4|
000073f0  34 30 3d 31 32 30 3a 77  38 25 21 34 34 34 3d 2d  |40=120:w8%!444=-|
00007400  31 39 36 3a 77 38 25 21  34 34 38 3d 32 37 34 3a  |196:w8%!448=274:|
00007410  77 38 25 21 34 35 32 3d  2d 31 35 32 0d 29 9a 3e  |w8%!452=-152.).>|
00007420  20 77 38 25 21 34 35 36  3d 69 66 38 25 2b 64 65  | w8%!456=if8%+de|
00007430  6c 65 74 65 64 25 3a 77  38 25 21 34 36 30 3d 62  |leted%:w8%!460=b|
00007440  68 74 25 3a 77 38 25 21  34 36 34 3d 76 73 68 25  |ht%:w8%!464=vsh%|
00007450  3a 77 38 25 21 34 36 38  3d 33 0d 29 a4 34 20 77  |:w8%!468=3.).4 w|
00007460  38 25 21 34 37 32 3d 31  32 30 3a 77 38 25 21 34  |8%!472=120:w8%!4|
00007470  37 36 3d 2d 39 32 3a 77  38 25 21 34 38 30 3d 32  |76=-92:w8%!480=2|
00007480  37 34 3a 77 38 25 21 34  38 34 3d 2d 34 38 0d 29  |74:w8%!484=-48.)|
00007490  ae 3e 20 77 38 25 21 34  38 38 3d 69 66 38 25 2b  |.> w8%!488=if8%+|
000074a0  64 65 6c 65 74 65 64 25  3a 77 38 25 21 34 39 32  |deleted%:w8%!492|
000074b0  3d 72 62 74 25 3a 77 38  25 21 34 39 36 3d 76 73  |=rbt%:w8%!496=vs|
000074c0  62 25 3a 77 38 25 21 35  30 30 3d 39 0d 29 b8 36  |b%:w8%!500=9.).6|
000074d0  20 77 38 25 21 35 30 34  3d 31 32 30 3a 77 38 25  | w8%!504=120:w8%|
000074e0  21 35 30 38 3d 2d 31 34  34 3a 77 38 25 21 35 31  |!508=-144:w8%!51|
000074f0  32 3d 32 37 34 3a 77 38  25 21 35 31 36 3d 2d 31  |2=274:w8%!516=-1|
00007500  30 30 0d 29 c2 3e 20 77  38 25 21 35 32 30 3d 69  |00.).> w8%!520=i|
00007510  66 38 25 2b 64 65 6c 65  74 65 64 25 3a 77 38 25  |f8%+deleted%:w8%|
00007520  21 35 32 34 3d 67 62 74  25 3a 77 38 25 21 35 32  |!524=gbt%:w8%!52|
00007530  38 3d 76 73 62 25 3a 77  38 25 21 35 33 32 3d 39  |8=vsb%:w8%!532=9|
00007540  0d 29 cc 36 20 77 38 25  21 35 33 36 3d 31 32 30  |.).6 w8%!536=120|
00007550  3a 77 38 25 21 35 34 30  3d 2d 31 39 36 3a 77 38  |:w8%!540=-196:w8|
00007560  25 21 35 34 34 3d 32 37  34 3a 77 38 25 21 35 34  |%!544=274:w8%!54|
00007570  38 3d 2d 31 35 32 0d 29  d6 3e 20 77 38 25 21 35  |8=-152.).> w8%!5|
00007580  35 32 3d 69 66 38 25 2b  64 65 6c 65 74 65 64 25  |52=if8%+deleted%|
00007590  3a 77 38 25 21 35 35 36  3d 62 62 74 25 3a 77 38  |:w8%!556=bbt%:w8|
000075a0  25 21 35 36 30 3d 76 73  62 25 3a 77 38 25 21 35  |%!560=vsb%:w8%!5|
000075b0  36 34 3d 39 0d 29 e0 1a  20 c8 99 20 77 77 25 2c  |64=9.).. .. ww%,|
000075c0  2c 77 38 25 20 b8 20 68  61 6e 64 6c 65 25 0d 29  |,w8% . handle%.)|
000075d0  ea 0d 20 3d 68 61 6e 64  6c 65 25 0d 29 f4 06 20  |.. =handle%.).. |
000075e0  3a 0d 29 fe 11 20 dd 20  a4 63 72 65 61 74 65 5f  |:.).. . .create_|
000075f0  77 39 0d 2a 08 2d 20 77  39 25 21 30 3d 65 39 25  |w9.*.- w9%!0=e9%|
00007600  3a 77 39 25 21 34 3d 66  39 25 3a 77 39 25 21 38  |:w9%!4=f9%:w9%!8|
00007610  3d 67 39 25 3a 77 39 25  21 31 32 3d 68 39 25 0d  |=g9%:w9%!12=h9%.|
00007620  2a 12 31 20 77 39 25 21  31 36 3d 30 3a 77 39 25  |*.1 w9%!16=0:w9%|
00007630  21 32 30 3d 30 3a 77 39  25 21 32 34 3d 2d 31 3a  |!20=0:w9%!24=-1:|
00007640  77 39 25 21 32 38 3d 26  38 37 30 30 30 30 30 32  |w9%!28=&87000002|
00007650  0d 2a 1c 2a 20 77 39 25  3f 33 32 3d 37 3a 77 39  |.*.* w9%?32=7:w9|
00007660  25 3f 33 33 3d 32 3a 77  39 25 3f 33 34 3d 37 3a  |%?33=2:w9%?34=7:|
00007670  77 39 25 3f 33 35 3d 26  46 46 0d 2a 26 29 20 77  |w9%?35=&FF.*&) w|
00007680  39 25 3f 33 36 3d 30 3a  77 39 25 3f 33 37 3d 30  |9%?36=0:w9%?37=0|
00007690  3a 77 39 25 3f 33 38 3d  31 32 3a 77 39 25 3f 33  |:w9%?38=12:w9%?3|
000076a0  39 3d 30 0d 2a 30 30 20  77 39 25 21 34 30 3d 69  |9=0.*00 w9%!40=i|
000076b0  39 25 3a 77 39 25 21 34  34 3d 6a 39 25 3a 77 39  |9%:w9%!44=j9%:w9|
000076c0  25 21 34 38 3d 6b 39 25  3a 77 39 25 21 35 32 3d  |%!48=k9%:w9%!52=|
000076d0  6c 39 25 0d 2a 3a 3a 20  77 39 25 21 35 36 3d 69  |l9%.*:: w9%!56=i|
000076e0  74 66 25 3a 77 39 25 21  36 30 3d 30 3a 77 39 25  |tf%:w9%!60=0:w9%|
000076f0  21 36 34 3d 62 73 25 3a  77 39 25 21 36 38 3d 32  |!64=bs%:w9%!68=2|
00007700  38 30 3a 77 39 25 21 37  30 3d 32 36 30 0d 2a 44  |80:w9%!70=260.*D|
00007710  2c 20 77 39 25 21 37 32  3d 74 39 25 3a 77 39 25  |, w9%!72=t9%:w9%|
00007720  21 37 36 3d 62 73 25 3a  77 39 25 21 38 30 3d 30  |!76=bs%:w9%!80=0|
00007730  3a 77 39 25 21 38 34 3d  36 0d 2a 4e 31 20 77 39  |:w9%!84=6.*N1 w9|
00007740  25 21 38 38 3d 30 3a 77  39 25 21 39 32 3d 2d 32  |%!88=0:w9%!92=-2|
00007750  36 30 3a 77 39 25 21 39  36 3d 31 34 30 3a 77 39  |60:w9%!96=140:w9|
00007760  25 21 31 30 30 3d 2d 32  30 38 0d 2a 58 35 20 77  |%!100=-208.*X5 w|
00007770  39 25 21 31 30 34 3d 69  66 66 25 3a 77 39 25 21  |9%!104=iff%:w9%!|
00007780  31 30 38 3d 63 61 70 25  3a 77 39 25 21 31 31 32  |108=cap%:w9%!112|
00007790  3d 76 64 38 25 3a 77 39  25 21 31 31 36 3d 38 0d  |=vd8%:w9%!116=8.|
000077a0  2a 62 2f 20 77 39 25 21  31 32 30 3d 30 3a 77 39  |*b/ w9%!120=0:w9|
000077b0  25 21 31 32 34 3d 2d 35  32 3a 77 39 25 21 31 32  |%!124=-52:w9%!12|
000077c0  38 3d 37 30 3a 77 39 25  21 31 33 32 3d 30 0d 2a  |8=70:w9%!132=0.*|
000077d0  6c 35 20 77 39 25 21 31  33 36 3d 69 66 66 25 3a  |l5 w9%!136=iff%:|
000077e0  77 39 25 21 31 34 30 3d  73 74 31 25 3a 77 39 25  |w9%!140=st1%:w9%|
000077f0  21 31 34 34 3d 76 73 39  25 3a 77 39 25 21 31 34  |!144=vs9%:w9%!14|
00007800  38 3d 32 0d 2a 76 32 20  77 39 25 21 31 35 32 3d  |8=2.*v2 w9%!152=|
00007810  30 3a 77 39 25 21 31 35  36 3d 2d 31 30 34 3a 77  |0:w9%!156=-104:w|
00007820  39 25 21 31 36 30 3d 37  30 3a 77 39 25 21 31 36  |9%!160=70:w9%!16|
00007830  34 3d 2d 35 32 0d 2a 80  35 20 77 39 25 21 31 36  |4=-52.*.5 w9%!16|
00007840  38 3d 69 66 66 25 3a 77  39 25 21 31 37 32 3d 73  |8=iff%:w9%!172=s|
00007850  74 32 25 3a 77 39 25 21  31 37 36 3d 76 73 39 25  |t2%:w9%!176=vs9%|
00007860  3a 77 39 25 21 31 38 30  3d 32 0d 2a 8a 33 20 77  |:w9%!180=2.*.3 w|
00007870  39 25 21 31 38 34 3d 30  3a 77 39 25 21 31 38 38  |9%!184=0:w9%!188|
00007880  3d 2d 31 35 36 3a 77 39  25 21 31 39 32 3d 37 30  |=-156:w9%!192=70|
00007890  3a 77 39 25 21 31 39 36  3d 2d 31 30 34 0d 2a 94  |:w9%!196=-104.*.|
000078a0  35 20 77 39 25 21 32 30  30 3d 69 66 66 25 3a 77  |5 w9%!200=iff%:w|
000078b0  39 25 21 32 30 34 3d 73  74 33 25 3a 77 39 25 21  |9%!204=st3%:w9%!|
000078c0  32 30 38 3d 76 73 39 25  3a 77 39 25 21 32 31 32  |208=vs9%:w9%!212|
000078d0  3d 32 0d 2a 9e 33 20 77  39 25 21 32 31 36 3d 30  |=2.*.3 w9%!216=0|
000078e0  3a 77 39 25 21 32 32 30  3d 2d 32 30 38 3a 77 39  |:w9%!220=-208:w9|
000078f0  25 21 32 32 34 3d 37 30  3a 77 39 25 21 32 32 38  |%!224=70:w9%!228|
00007900  3d 2d 31 35 36 0d 2a a8  35 20 77 39 25 21 32 33  |=-156.*.5 w9%!23|
00007910  32 3d 69 66 66 25 3a 77  39 25 21 32 33 36 3d 73  |2=iff%:w9%!236=s|
00007920  74 34 25 3a 77 39 25 21  32 34 30 3d 76 73 39 25  |t4%:w9%!240=vs9%|
00007930  3a 77 39 25 21 32 34 34  3d 32 0d 2a b2 36 20 77  |:w9%!244=2.*.6 w|
00007940  39 25 21 32 34 38 3d 31  34 30 3a 77 39 25 21 32  |9%!248=140:w9%!2|
00007950  35 32 3d 2d 32 36 30 3a  77 39 25 21 32 35 36 3d  |52=-260:w9%!256=|
00007960  32 38 30 3a 77 39 25 21  32 36 30 3d 2d 32 30 38  |280:w9%!260=-208|
00007970  0d 2a bc 35 20 77 39 25  21 32 36 34 3d 69 66 66  |.*.5 w9%!264=iff|
00007980  25 3a 77 39 25 21 32 36  38 3d 74 65 38 25 3a 77  |%:w9%!268=te8%:w|
00007990  39 25 21 32 37 32 3d 76  64 38 25 3a 77 39 25 21  |9%!272=vd8%:w9%!|
000079a0  32 37 36 3d 36 0d 2a c6  1a 20 c8 99 20 77 77 25  |276=6.*.. .. ww%|
000079b0  2c 2c 77 39 25 20 b8 20  68 61 6e 64 6c 65 25 0d  |,,w9% . handle%.|
000079c0  2a d0 0d 20 3d 68 61 6e  64 6c 65 25 0d 2a da 06  |*.. =handle%.*..|
000079d0  20 3a 0d 2a e4 1e 20 dd  20 f2 6d 65 6e 75 62 6c  | :.*.. . .menubl|
000079e0  6f 63 6b 30 3a 24 6d 62  30 25 3d 24 64 65 73 25  |ock0:$mb0%=$des%|
000079f0  0d 2a ee 2c 20 6d 62 30  25 3f 31 32 3d 37 3a 6d  |.*., mb0%?12=7:m|
00007a00  62 30 25 3f 31 33 3d 32  3a 6d 62 30 25 3f 31 34  |b0%?13=2:mb0%?14|
00007a10  3d 37 3a 6d 62 30 25 3f  31 35 3d 30 0d 2a f8 25  |=7:mb0%?15=0.*.%|
00007a20  20 6d 62 30 25 21 31 36  3d 31 36 30 3a 6d 62 30  | mb0%!16=160:mb0|
00007a30  25 21 32 30 3d 34 34 3a  6d 62 30 25 21 32 34 3d  |%!20=44:mb0%!24=|
00007a40  30 0d 2b 02 1b 20 6d 62  30 25 21 32 38 3d 30 3a  |0.+.. mb0%!28=0:|
00007a50  6d 62 30 25 21 33 32 3d  77 30 68 25 0d 2b 0c 20  |mb0%!32=w0h%.+. |
00007a60  20 6d 62 30 25 21 33 36  3d 6d 66 25 3a 24 28 6d  | mb0%!36=mf%:$(m|
00007a70  62 30 25 2b 34 30 29 3d  69 6d 30 24 0d 2b 16 19  |b0%+40)=im0$.+..|
00007a80  20 6d 62 30 25 21 35 32  3d 30 3a 6d 62 30 25 21  | mb0%!52=0:mb0%!|
00007a90  35 36 3d 2d 31 0d 2b 20  22 20 6d 62 30 25 21 36  |56=-1.+ " mb0%!6|
00007aa0  30 3d 6d 66 25 2b 34 3a  24 28 6d 62 30 25 2b 36  |0=mf%+4:$(mb0%+6|
00007ab0  34 29 3d 69 6d 31 24 0d  2b 2a 19 20 6d 62 30 25  |4)=im1$.+*. mb0%|
00007ac0  21 37 36 3d 32 3a 6d 62  30 25 21 38 30 3d 2d 31  |!76=2:mb0%!80=-1|
00007ad0  0d 2b 34 20 20 6d 62 30  25 21 38 34 3d 6d 66 25  |.+4  mb0%!84=mf%|
00007ae0  3a 24 28 6d 62 30 25 2b  38 38 29 3d 69 6d 32 24  |:$(mb0%+88)=im2$|
00007af0  0d 2b 3e 23 20 6d 62 30  25 21 31 30 30 3d 6c 61  |.+># mb0%!100=la|
00007b00  73 74 69 74 65 6d 25 3a  6d 62 30 25 21 31 30 34  |stitem%:mb0%!104|
00007b10  3d 2d 31 0d 2b 48 22 20  6d 62 30 25 21 31 30 38  |=-1.+H" mb0%!108|
00007b20  3d 6d 66 25 3a 24 28 6d  62 30 25 2b 31 31 32 29  |=mf%:$(mb0%+112)|
00007b30  3d 69 6d 33 24 0d 2b 52  06 20 e1 0d 2b 5c 06 20  |=im3$.+R. ..+\. |
00007b40  3a 0d 2b 66 1e 20 dd 20  f2 6d 65 6e 75 62 6c 6f  |:.+f. . .menublo|
00007b50  63 6b 31 3a 24 6d 62 31  25 3d 6d 24 28 30 29 0d  |ck1:$mb1%=m$(0).|
00007b60  2b 70 2c 20 6d 62 31 25  3f 31 32 3d 37 3a 6d 62  |+p, mb1%?12=7:mb|
00007b70  31 25 3f 31 33 3d 32 3a  6d 62 31 25 3f 31 34 3d  |1%?13=2:mb1%?14=|
00007b80  37 3a 6d 62 31 25 3f 31  35 3d 30 0d 2b 7a 25 20  |7:mb1%?15=0.+z% |
00007b90  6d 62 31 25 21 31 36 3d  31 30 38 3a 6d 62 31 25  |mb1%!16=108:mb1%|
00007ba0  21 32 30 3d 34 34 3a 6d  62 31 25 21 32 34 3d 30  |!20=44:mb1%!24=0|
00007bb0  0d 2b 84 1b 20 6d 62 31  25 21 32 38 3d 30 3a 6d  |.+.. mb1%!28=0:m|
00007bc0  62 31 25 21 33 32 3d 6d  62 32 25 0d 2b 8e 21 20  |b1%!32=mb2%.+.! |
00007bd0  6d 62 31 25 21 33 36 3d  6d 66 25 3a 24 28 6d 62  |mb1%!36=mf%:$(mb|
00007be0  31 25 2b 34 30 29 3d 6d  24 28 31 29 0d 2b 98 19  |1%+40)=m$(1).+..|
00007bf0  20 6d 62 31 25 21 35 32  3d 30 3a 6d 62 31 25 21  | mb1%!52=0:mb1%!|
00007c00  35 36 3d 2d 31 0d 2b a2  21 20 6d 62 31 25 21 36  |56=-1.+.! mb1%!6|
00007c10  30 3d 6d 66 25 3a 24 28  6d 62 31 25 2b 36 34 29  |0=mf%:$(mb1%+64)|
00007c20  3d 6d 24 28 39 29 0d 2b  ac 21 20 6d 62 31 25 21  |=m$(9).+.! mb1%!|
00007c30  37 36 3d 6c 61 73 74 69  74 65 6d 25 3a 6d 62 31  |76=lastitem%:mb1|
00007c40  25 21 38 30 3d 2d 31 0d  2b b6 22 20 6d 62 31 25  |%!80=-1.+." mb1%|
00007c50  21 38 34 3d 6d 66 25 3a  24 28 6d 62 31 25 2b 38  |!84=mf%:$(mb1%+8|
00007c60  38 29 3d 6d 24 28 31 32  29 0d 2b c0 06 20 e1 0d  |8)=m$(12).+.. ..|
00007c70  2b ca 06 20 3a 0d 2b d4  1e 20 dd 20 f2 6d 65 6e  |+.. :.+.. . .men|
00007c80  75 62 6c 6f 63 6b 32 3a  24 6d 62 32 25 3d 6d 24  |ublock2:$mb2%=m$|
00007c90  28 34 29 0d 2b de 2c 20  6d 62 32 25 3f 31 32 3d  |(4).+., mb2%?12=|
00007ca0  37 3a 6d 62 32 25 3f 31  33 3d 32 3a 6d 62 32 25  |7:mb2%?13=2:mb2%|
00007cb0  3f 31 34 3d 37 3a 6d 62  32 25 3f 31 35 3d 30 0d  |?14=7:mb2%?15=0.|
00007cc0  2b e8 25 20 6d 62 32 25  21 31 36 3d 31 35 32 3a  |+.% mb2%!16=152:|
00007cd0  6d 62 32 25 21 32 30 3d  34 34 3a 6d 62 32 25 21  |mb2%!20=44:mb2%!|
00007ce0  32 34 3d 30 0d 2b f2 1e  20 6d 62 32 25 21 32 38  |24=0.+.. mb2%!28|
00007cf0  3d 64 78 25 28 31 29 3a  6d 62 32 25 21 33 32 3d  |=dx%(1):mb2%!32=|
00007d00  2d 31 0d 2b fc 21 20 6d  62 32 25 21 33 36 3d 6d  |-1.+.! mb2%!36=m|
00007d10  66 25 3a 24 28 6d 62 32  25 2b 34 30 29 3d 6d 24  |f%:$(mb2%+40)=m$|
00007d20  28 35 29 0d 2c 06 1e 20  6d 62 32 25 21 35 32 3d  |(5).,.. mb2%!52=|
00007d30  64 78 25 28 32 29 3a 6d  62 32 25 21 35 36 3d 2d  |dx%(2):mb2%!56=-|
00007d40  31 0d 2c 10 21 20 6d 62  32 25 21 36 30 3d 6d 66  |1.,.! mb2%!60=mf|
00007d50  25 3a 24 28 6d 62 32 25  2b 36 34 29 3d 6d 24 28  |%:$(mb2%+64)=m$(|
00007d60  36 29 0d 2c 1a 1e 20 6d  62 32 25 21 37 36 3d 64  |6).,.. mb2%!76=d|
00007d70  78 25 28 33 29 3a 6d 62  32 25 21 38 30 3d 2d 31  |x%(3):mb2%!80=-1|
00007d80  0d 2c 24 22 20 6d 62 32  25 21 38 34 3d 6d 66 25  |.,$" mb2%!84=mf%|
00007d90  3a 24 28 6d 62 32 25 2b  38 38 29 3d 6d 24 28 33  |:$(mb2%+88)=m$(3|
00007da0  32 29 0d 2c 2e 2a 20 6d  62 32 25 21 31 30 30 3d  |2).,.* mb2%!100=|
00007db0  6c 61 73 74 69 74 65 6d  25 2b 64 78 25 28 34 29  |lastitem%+dx%(4)|
00007dc0  3a 6d 62 32 25 21 31 30  34 3d 2d 31 0d 2c 38 23  |:mb2%!104=-1.,8#|
00007dd0  20 6d 62 32 25 21 31 30  38 3d 6d 66 25 3a 24 28  | mb2%!108=mf%:$(|
00007de0  6d 62 32 25 2b 31 31 32  29 3d 6d 24 28 38 29 0d  |mb2%+112)=m$(8).|
00007df0  2c 42 06 20 e1 0d 2c 4c  06 20 3a 0d 2c 56 1f 20  |,B. ..,L. :.,V. |
00007e00  dd 20 f2 6d 65 6e 75 62  6c 6f 63 6b 33 3a 24 6d  |. .menublock3:$m|
00007e10  62 33 25 3d 6d 24 28 31  34 29 0d 2c 60 2c 20 6d  |b3%=m$(14).,`, m|
00007e20  62 33 25 3f 31 32 3d 37  3a 6d 62 33 25 3f 31 33  |b3%?12=7:mb3%?13|
00007e30  3d 32 3a 6d 62 33 25 3f  31 34 3d 37 3a 6d 62 33  |=2:mb3%?14=7:mb3|
00007e40  25 3f 31 35 3d 30 0d 2c  6a 24 20 6d 62 33 25 21  |%?15=0.,j$ mb3%!|
00007e50  31 36 3d 38 30 3a 6d 62  33 25 21 32 30 3d 34 34  |16=80:mb3%!20=44|
00007e60  3a 6d 62 33 25 21 32 34  3d 30 0d 2c 74 21 20 6d  |:mb3%!24=0.,t! m|
00007e70  62 33 25 21 32 38 3d 6c  61 73 74 69 74 65 6d 25  |b3%!28=lastitem%|
00007e80  3a 6d 62 33 25 21 33 32  3d 2d 31 0d 2c 7e 33 20  |:mb3%!32=-1.,~3 |
00007e90  6d 62 33 25 21 33 36 3d  6d 66 31 31 25 3a 6d 62  |mb3%!36=mf11%:mb|
00007ea0  33 25 21 34 30 3d 6a 33  25 3a 6d 62 33 25 21 34  |3%!40=j3%:mb3%!4|
00007eb0  34 3d 2d 31 3a 6d 62 33  25 21 34 38 3d 35 0d 2c  |4=-1:mb3%!48=5.,|
00007ec0  88 06 20 e1 0d 2c 92 06  20 3a 0d 2c 9c 1f 20 dd  |.. ..,.. :.,.. .|
00007ed0  20 f2 6d 65 6e 75 62 6c  6f 63 6b 37 3a 24 6d 62  | .menublock7:$mb|
00007ee0  37 25 3d 6d 24 28 31 31  29 0d 2c a6 2c 20 6d 62  |7%=m$(11).,., mb|
00007ef0  37 25 3f 31 32 3d 37 3a  6d 62 37 25 3f 31 33 3d  |7%?12=7:mb7%?13=|
00007f00  32 3a 6d 62 37 25 3f 31  34 3d 37 3a 6d 62 37 25  |2:mb7%?14=7:mb7%|
00007f10  3f 31 35 3d 30 0d 2c b0  25 20 6d 62 37 25 21 31  |?15=0.,.% mb7%!1|
00007f20  36 3d 31 38 38 3a 6d 62  37 25 21 32 30 3d 34 34  |6=188:mb7%!20=44|
00007f30  3a 6d 62 37 25 21 32 34  3d 30 0d 2c ba 1e 20 6d  |:mb7%!24=0.,.. m|
00007f40  62 37 25 21 32 38 3d 64  76 25 28 30 29 3a 6d 62  |b7%!28=dv%(0):mb|
00007f50  37 25 21 33 32 3d 2d 31  0d 2c c4 22 20 6d 62 37  |7%!32=-1.,." mb7|
00007f60  25 21 33 36 3d 6d 66 25  3a 24 28 6d 62 37 25 2b  |%!36=mf%:$(mb7%+|
00007f70  34 30 29 3d 6d 24 28 31  36 29 0d 2c ce 1e 20 6d  |40)=m$(16).,.. m|
00007f80  62 37 25 21 35 32 3d 64  76 25 28 31 29 3a 6d 62  |b7%!52=dv%(1):mb|
00007f90  37 25 21 35 36 3d 2d 31  0d 2c d8 22 20 6d 62 37  |7%!56=-1.,." mb7|
00007fa0  25 21 36 30 3d 6d 66 25  3a 24 28 6d 62 37 25 2b  |%!60=mf%:$(mb7%+|
00007fb0  36 34 29 3d 6d 24 28 31  37 29 0d 2c e2 28 20 6d  |64)=m$(17).,.( m|
00007fc0  62 37 25 21 37 36 3d 6c  61 73 74 69 74 65 6d 25  |b7%!76=lastitem%|
00007fd0  2b 64 76 25 28 32 29 3a  6d 62 37 25 21 38 30 3d  |+dv%(2):mb7%!80=|
00007fe0  2d 31 0d 2c ec 22 20 6d  62 37 25 21 38 34 3d 6d  |-1.,." mb7%!84=m|
00007ff0  66 25 3a 24 28 6d 62 37  25 2b 38 38 29 3d 6d 24  |f%:$(mb7%+88)=m$|
00008000  28 31 35 29 0d 2c f6 06  20 e1 0d 2d 00 06 20 3a  |(15).,.. ..-.. :|
00008010  0d 2d 0a 1f 20 dd 20 f2  6d 65 6e 75 62 6c 6f 63  |.-.. . .menubloc|
00008020  6b 38 3a 24 6d 62 38 25  3d 6d 24 28 31 31 29 0d  |k8:$mb8%=m$(11).|
00008030  2d 14 2c 20 6d 62 38 25  3f 31 32 3d 37 3a 6d 62  |-., mb8%?12=7:mb|
00008040  38 25 3f 31 33 3d 32 3a  6d 62 38 25 3f 31 34 3d  |8%?13=2:mb8%?14=|
00008050  37 3a 6d 62 38 25 3f 31  35 3d 30 0d 2d 1e 25 20  |7:mb8%?15=0.-.% |
00008060  6d 62 38 25 21 31 36 3d  31 38 38 3a 6d 62 38 25  |mb8%!16=188:mb8%|
00008070  21 32 30 3d 34 34 3a 6d  62 38 25 21 32 34 3d 30  |!20=44:mb8%!24=0|
00008080  0d 2d 28 1e 20 6d 62 38  25 21 32 38 3d 64 77 25  |.-(. mb8%!28=dw%|
00008090  28 30 29 3a 6d 62 38 25  21 33 32 3d 2d 31 0d 2d  |(0):mb8%!32=-1.-|
000080a0  32 22 20 6d 62 38 25 21  33 36 3d 6d 66 25 3a 24  |2" mb8%!36=mf%:$|
000080b0  28 6d 62 38 25 2b 34 30  29 3d 6d 24 28 31 36 29  |(mb8%+40)=m$(16)|
000080c0  0d 2d 3c 1e 20 6d 62 38  25 21 35 32 3d 64 77 25  |.-<. mb8%!52=dw%|
000080d0  28 31 29 3a 6d 62 38 25  21 35 36 3d 2d 31 0d 2d  |(1):mb8%!56=-1.-|
000080e0  46 22 20 6d 62 38 25 21  36 30 3d 6d 66 25 3a 24  |F" mb8%!60=mf%:$|
000080f0  28 6d 62 38 25 2b 36 34  29 3d 6d 24 28 31 37 29  |(mb8%+64)=m$(17)|
00008100  0d 2d 50 28 20 6d 62 38  25 21 37 36 3d 6c 61 73  |.-P( mb8%!76=las|
00008110  74 69 74 65 6d 25 2b 64  77 25 28 32 29 3a 6d 62  |titem%+dw%(2):mb|
00008120  38 25 21 38 30 3d 2d 31  0d 2d 5a 22 20 6d 62 38  |8%!80=-1.-Z" mb8|
00008130  25 21 38 34 3d 6d 66 25  3a 24 28 6d 62 38 25 2b  |%!84=mf%:$(mb8%+|
00008140  38 38 29 3d 6d 24 28 31  35 29 0d 2d 64 06 20 e1  |88)=m$(15).-d. .|
00008150  0d 2d 6e 06 20 3a 0d 2d  78 1f 20 dd 20 f2 6d 65  |.-n. :.-x. . .me|
00008160  6e 75 62 6c 6f 63 6b 39  3a 24 6d 62 39 25 3d 6d  |nublock9:$mb9%=m|
00008170  24 28 33 33 29 0d 2d 82  2c 20 6d 62 39 25 3f 31  |$(33).-., mb9%?1|
00008180  32 3d 37 3a 6d 62 39 25  3f 31 33 3d 32 3a 6d 62  |2=7:mb9%?13=2:mb|
00008190  39 25 3f 31 34 3d 37 3a  6d 62 39 25 3f 31 35 3d  |9%?14=7:mb9%?15=|
000081a0  30 0d 2d 8c 24 20 6d 62  39 25 21 31 36 3d 35 32  |0.-.$ mb9%!16=52|
000081b0  3a 6d 62 39 25 21 32 30  3d 34 34 3a 6d 62 39 25  |:mb9%!20=44:mb9%|
000081c0  21 32 34 3d 30 0d 2d 96  1e 20 6d 62 39 25 21 32  |!24=0.-.. mb9%!2|
000081d0  38 3d 64 75 25 28 30 29  3a 6d 62 39 25 21 33 32  |8=du%(0):mb9%!32|
000081e0  3d 2d 31 0d 2d a0 23 20  6d 62 39 25 21 33 36 3d  |=-1.-.# mb9%!36=|
000081f0  6d 66 39 25 3a 24 28 6d  62 39 25 2b 34 30 29 3d  |mf9%:$(mb9%+40)=|
00008200  6d 24 28 33 34 29 0d 2d  aa 1e 20 6d 62 39 25 21  |m$(34).-.. mb9%!|
00008210  35 32 3d 64 75 25 28 31  29 3a 6d 62 39 25 21 35  |52=du%(1):mb9%!5|
00008220  36 3d 2d 31 0d 2d b4 23  20 6d 62 39 25 21 36 30  |6=-1.-.# mb9%!60|
00008230  3d 6d 66 39 25 3a 24 28  6d 62 39 25 2b 36 34 29  |=mf9%:$(mb9%+64)|
00008240  3d 6d 24 28 33 35 29 0d  2d be 1e 20 6d 62 39 25  |=m$(35).-.. mb9%|
00008250  21 37 36 3d 64 75 25 28  32 29 3a 6d 62 39 25 21  |!76=du%(2):mb9%!|
00008260  38 30 3d 2d 31 0d 2d c8  23 20 6d 62 39 25 21 38  |80=-1.-.# mb9%!8|
00008270  34 3d 6d 66 39 25 3a 24  28 6d 62 39 25 2b 38 38  |4=mf9%:$(mb9%+88|
00008280  29 3d 6d 24 28 33 36 29  0d 2d d2 20 20 6d 62 39  |)=m$(36).-.  mb9|
00008290  25 21 31 30 30 3d 64 75  25 28 33 29 3a 6d 62 39  |%!100=du%(3):mb9|
000082a0  25 21 31 30 34 3d 2d 31  0d 2d dc 25 20 6d 62 39  |%!104=-1.-.% mb9|
000082b0  25 21 31 30 38 3d 6d 66  39 25 3a 24 28 6d 62 39  |%!108=mf9%:$(mb9|
000082c0  25 2b 31 31 32 29 3d 6d  24 28 33 37 29 0d 2d e6  |%+112)=m$(37).-.|
000082d0  2a 20 6d 62 39 25 21 31  32 34 3d 6c 61 73 74 69  |* mb9%!124=lasti|
000082e0  74 65 6d 25 2b 64 75 25  28 34 29 3a 6d 62 39 25  |tem%+du%(4):mb9%|
000082f0  21 31 32 38 3d 2d 31 0d  2d f0 25 20 6d 62 39 25  |!128=-1.-.% mb9%|
00008300  21 31 33 32 3d 6d 66 39  25 3a 24 28 6d 62 39 25  |!132=mf9%:$(mb9%|
00008310  2b 31 33 36 29 3d 6d 24  28 33 38 29 0d 2d fa 06  |+136)=m$(38).-..|
00008320  20 e1 0d 2e 04 06 20 3a  0d 2e 0e 21 20 dd 20 f2  | ..... :...! . .|
00008330  6d 65 6e 75 62 6c 6f 63  6b 39 64 3a 24 6d 62 39  |menublock9d:$mb9|
00008340  64 25 3d 6d 24 28 34 32  29 0d 2e 18 30 20 6d 62  |d%=m$(42)...0 mb|
00008350  39 64 25 3f 31 32 3d 37  3a 6d 62 39 64 25 3f 31  |9d%?12=7:mb9d%?1|
00008360  33 3d 32 3a 6d 62 39 64  25 3f 31 34 3d 37 3a 6d  |3=2:mb9d%?14=7:m|
00008370  62 39 64 25 3f 31 35 3d  30 0d 2e 22 27 20 6d 62  |b9d%?15=0.."' mb|
00008380  39 64 25 21 31 36 3d 35  32 3a 6d 62 39 64 25 21  |9d%!16=52:mb9d%!|
00008390  32 30 3d 34 34 3a 6d 62  39 64 25 21 32 34 3d 30  |20=44:mb9d%!24=0|
000083a0  0d 2e 2c 20 20 6d 62 39  64 25 21 32 38 3d 64 64  |..,  mb9d%!28=dd|
000083b0  25 28 30 29 3a 6d 62 39  64 25 21 33 32 3d 2d 31  |%(0):mb9d%!32=-1|
000083c0  0d 2e 36 25 20 6d 62 39  64 25 21 33 36 3d 6d 66  |..6% mb9d%!36=mf|
000083d0  39 25 3a 24 28 6d 62 39  64 25 2b 34 30 29 3d 6d  |9%:$(mb9d%+40)=m|
000083e0  24 28 33 35 29 0d 2e 40  20 20 6d 62 39 64 25 21  |$(35)..@  mb9d%!|
000083f0  35 32 3d 64 64 25 28 31  29 3a 6d 62 39 64 25 21  |52=dd%(1):mb9d%!|
00008400  35 36 3d 2d 31 0d 2e 4a  25 20 6d 62 39 64 25 21  |56=-1..J% mb9d%!|
00008410  36 30 3d 6d 66 39 25 3a  24 28 6d 62 39 64 25 2b  |60=mf9%:$(mb9d%+|
00008420  36 34 29 3d 6d 24 28 33  36 29 0d 2e 54 20 20 6d  |64)=m$(36)..T  m|
00008430  62 39 64 25 21 37 36 3d  64 64 25 28 32 29 3a 6d  |b9d%!76=dd%(2):m|
00008440  62 39 64 25 21 38 30 3d  2d 31 0d 2e 5e 25 20 6d  |b9d%!80=-1..^% m|
00008450  62 39 64 25 21 38 34 3d  6d 66 39 25 3a 24 28 6d  |b9d%!84=mf9%:$(m|
00008460  62 39 64 25 2b 38 38 29  3d 6d 24 28 33 38 29 0d  |b9d%+88)=m$(38).|
00008470  2e 68 22 20 6d 62 39 64  25 21 31 30 30 3d 64 64  |.h" mb9d%!100=dd|
00008480  25 28 33 29 3a 6d 62 39  64 25 21 31 30 34 3d 2d  |%(3):mb9d%!104=-|
00008490  31 0d 2e 72 27 20 6d 62  39 64 25 21 31 30 38 3d  |1..r' mb9d%!108=|
000084a0  6d 66 39 25 3a 24 28 6d  62 39 64 25 2b 31 31 32  |mf9%:$(mb9d%+112|
000084b0  29 3d 6d 24 28 34 33 29  0d 2e 7c 2c 20 6d 62 39  |)=m$(43)..|, mb9|
000084c0  64 25 21 31 32 34 3d 6c  61 73 74 69 74 65 6d 25  |d%!124=lastitem%|
000084d0  2b 64 64 25 28 34 29 3a  6d 62 39 64 25 21 31 32  |+dd%(4):mb9d%!12|
000084e0  38 3d 2d 31 0d 2e 86 27  20 6d 62 39 64 25 21 31  |8=-1...' mb9d%!1|
000084f0  33 32 3d 6d 66 39 25 3a  24 28 6d 62 39 64 25 2b  |32=mf9%:$(mb9d%+|
00008500  31 33 36 29 3d 6d 24 28  34 34 29 0d 2e 90 06 20  |136)=m$(44).... |
00008510  e1 0d 2e 9a 06 20 3a 0d  2e a4 21 20 dd 20 f2 6d  |..... :...! . .m|
00008520  65 6e 75 62 6c 6f 63 6b  31 31 3a 24 6d 62 31 31  |enublock11:$mb11|
00008530  25 3d 6d 24 28 34 35 29  0d 2e ae 30 20 6d 62 31  |%=m$(45)...0 mb1|
00008540  31 25 3f 31 32 3d 37 3a  6d 62 31 31 25 3f 31 33  |1%?12=7:mb11%?13|
00008550  3d 32 3a 6d 62 31 31 25  3f 31 34 3d 37 3a 6d 62  |=2:mb11%?14=7:mb|
00008560  31 31 25 3f 31 35 3d 30  0d 2e b8 28 20 6d 62 31  |11%?15=0...( mb1|
00008570  31 25 21 31 36 3d 33 32  38 3a 6d 62 31 31 25 21  |1%!16=328:mb11%!|
00008580  32 30 3d 34 34 3a 6d 62  31 31 25 21 32 34 3d 30  |20=44:mb11%!24=0|
00008590  0d 2e c2 1b 20 6d 62 31  31 25 21 32 38 3d 30 3a  |.... mb11%!28=0:|
000085a0  6d 62 31 31 25 21 33 32  3d 2d 31 0d 2e cc 21 20  |mb11%!32=-1...! |
000085b0  6d 62 31 31 25 21 33 36  3d 6d 66 31 31 25 3a 6d  |mb11%!36=mf11%:m|
000085c0  62 31 31 25 21 34 30 3d  61 31 31 25 0d 2e d6 22  |b11%!40=a11%..."|
000085d0  20 6d 62 31 31 25 21 34  34 3d 2d 31 3a 6d 62 31  | mb11%!44=-1:mb1|
000085e0  31 25 21 34 38 3d a9 28  24 61 31 31 25 29 0d 2e  |1%!48=.($a11%)..|
000085f0  e0 23 20 6d 62 31 31 25  21 35 32 3d 6c 61 73 74  |.# mb11%!52=last|
00008600  69 74 65 6d 25 3a 6d 62  31 31 25 21 35 36 3d 2d  |item%:mb11%!56=-|
00008610  31 0d 2e ea 21 20 6d 62  31 31 25 21 36 30 3d 6d  |1...! mb11%!60=m|
00008620  66 31 31 25 3a 6d 62 31  31 25 21 36 34 3d 62 31  |f11%:mb11%!64=b1|
00008630  31 25 0d 2e f4 22 20 6d  62 31 31 25 21 36 38 3d  |1%..." mb11%!68=|
00008640  2d 31 3a 6d 62 31 31 25  21 37 32 3d a9 28 24 62  |-1:mb11%!72=.($b|
00008650  31 31 25 29 0d 2e fe 06  20 e1 0d 2f 08 06 20 3a  |11%).... ../.. :|
00008660  0d 2f 12 0a 20 dd 20 f2  70 31 0d 2f 1c 2b 20 21  |./.. . .p1./.+ !|
00008670  70 31 25 3d 31 36 3a 70  31 25 21 34 3d 2d 35 36  |p1%=16:p1%!4=-56|
00008680  3a 70 31 25 21 38 3d 31  33 32 3a 70 31 25 21 31  |:p1%!8=132:p1%!1|
00008690  32 3d 2d 31 32 0d 2f 26  20 20 70 31 25 21 31 36  |2=-12./&  p1%!16|
000086a0  3d 26 32 37 30 30 30 31  33 44 3a 70 31 25 21 32  |=&2700013D:p1%!2|
000086b0  30 3d 73 31 25 0d 2f 30  1d 20 70 31 25 21 32 34  |0=s1%./0. p1%!24|
000086c0  3d 2d 31 3a 70 31 25 21  32 38 3d a9 28 24 73 31  |=-1:p1%!28=.($s1|
000086d0  25 29 0d 2f 3a 2f 20 70  31 25 21 33 32 3d 31 36  |%)./:/ p1%!32=16|
000086e0  3a 70 31 25 21 33 36 3d  2d 35 36 3a 70 31 25 21  |:p1%!36=-56:p1%!|
000086f0  34 30 3d 31 30 30 3a 70  31 25 21 34 34 3d 2d 31  |40=100:p1%!44=-1|
00008700  32 0d 2f 44 20 20 70 31  25 21 34 38 3d 26 32 37  |2./D  p1%!48=&27|
00008710  30 30 30 31 33 44 3a 70  31 25 21 35 32 3d 73 32  |00013D:p1%!52=s2|
00008720  25 0d 2f 4e 1d 20 70 31  25 21 35 36 3d 2d 31 3a  |%./N. p1%!56=-1:|
00008730  70 31 25 21 36 30 3d a9  28 24 73 32 25 29 0d 2f  |p1%!60=.($s2%)./|
00008740  58 06 20 e1 0d 2f 62 06  20 3a 0d 2f 6c 2b 20 dd  |X. ../b. :./l+ .|
00008750  20 f2 71 31 3a 70 31 25  21 34 3d 70 62 25 21 32  | .q1:p1%!4=pb%!2|
00008760  34 2d 35 36 3a 70 31 25  21 31 32 3d 70 62 25 21  |4-56:p1%!12=pb%!|
00008770  32 34 2d 31 32 0d 2f 76  28 20 70 31 25 21 33 36  |24-12./v( p1%!36|
00008780  3d 70 62 25 21 32 34 2d  35 36 3a 70 31 25 21 34  |=pb%!24-56:p1%!4|
00008790  34 3d 70 62 25 21 32 34  2d 31 32 3a e1 0d 2f 80  |4=pb%!24-12:../.|
000087a0  06 20 3a 0d 2f 8a 0a 20  dd 20 f2 70 32 0d 2f 94  |. :./.. . .p2./.|
000087b0  2b 20 21 70 32 25 3d 31  36 3a 70 32 25 21 34 3d  |+ !p2%=16:p2%!4=|
000087c0  2d 35 36 3a 70 32 25 21  38 3d 31 30 30 3a 70 32  |-56:p2%!8=100:p2|
000087d0  25 21 31 32 3d 2d 31 32  0d 2f 9e 1b 20 70 32 25  |%!12=-12./.. p2%|
000087e0  21 31 36 3d 26 31 31 44  3a 70 32 25 21 32 30 3d  |!16=&11D:p2%!20=|
000087f0  73 33 25 0d 2f a8 1d 20  70 32 25 21 32 34 3d 2d  |s3%./.. p2%!24=-|
00008800  31 3a 70 32 25 21 32 38  3d a9 28 24 73 33 25 29  |1:p2%!28=.($s3%)|
00008810  0d 2f b2 2f 20 70 32 25  21 33 32 3d 31 36 3a 70  |././ p2%!32=16:p|
00008820  32 25 21 33 36 3d 2d 35  36 3a 70 32 25 21 34 30  |2%!36=-56:p2%!40|
00008830  3d 31 30 30 3a 70 32 25  21 34 34 3d 2d 31 32 0d  |=100:p2%!44=-12.|
00008840  2f bc 1f 20 70 32 25 21  34 38 3d 26 37 30 30 30  |/.. p2%!48=&7000|
00008850  31 31 44 3a 70 32 25 21  35 32 3d 73 34 25 0d 2f  |11D:p2%!52=s4%./|
00008860  c6 1d 20 70 32 25 21 35  36 3d 2d 31 3a 70 32 25  |.. p2%!56=-1:p2%|
00008870  21 36 30 3d a9 28 24 73  34 25 29 0d 2f d0 06 20  |!60=.($s4%)./.. |
00008880  e1 0d 2f da 06 20 3a 0d  2f e4 2b 20 dd 20 f2 71  |../.. :./.+ . .q|
00008890  32 3a 70 32 25 21 34 3d  70 62 25 21 32 34 2d 35  |2:p2%!4=pb%!24-5|
000088a0  36 3a 70 32 25 21 31 32  3d 70 62 25 21 32 34 2d  |6:p2%!12=pb%!24-|
000088b0  31 32 0d 2f ee 28 20 70  32 25 21 33 36 3d 70 62  |12./.( p2%!36=pb|
000088c0  25 21 32 34 2d 35 36 3a  70 32 25 21 34 34 3d 70  |%!24-56:p2%!44=p|
000088d0  62 25 21 32 34 2d 31 32  3a e1 0d 2f f8 06 20 3a  |b%!24-12:../.. :|
000088e0  0d 30 02 0a 20 dd 20 f2  70 39 0d 30 0c 18 20 21  |.0.. . .p9.0.. !|
000088f0  70 39 25 3d 31 32 30 3a  70 39 25 21 34 3d 2d 31  |p9%=120:p9%!4=-1|
00008900  33 32 0d 30 16 19 20 70  39 25 21 38 3d 32 31 36  |32.0.. p9%!8=216|
00008910  3a 70 39 25 21 31 32 3d  2d 37 36 0d 30 20 1f 20  |:p9%!12=-76.0 . |
00008920  70 39 25 21 31 36 3d 26  37 30 30 30 31 33 44 3a  |p9%!16=&700013D:|
00008930  70 39 25 21 32 30 3d 73  39 25 0d 30 2a 1d 20 70  |p9%!20=s9%.0*. p|
00008940  39 25 21 32 34 3d 2d 31  3a 70 39 25 21 32 38 3d  |9%!24=-1:p9%!28=|
00008950  a9 28 24 73 39 25 29 0d  30 34 06 20 e1 0d 30 3e  |.($s9%).04. ..0>|
00008960  06 20 3a 0d 30 48 0c 20  dd 20 f2 69 6e 69 74 0d  |. :.0H. . .init.|
00008970  30 52 0c 20 f2 76 61 6c  75 65 73 0d 30 5c 0c 20  |0R. .values.0\. |
00008980  c8 99 68 73 25 2c 31 0d  30 66 0c 20 f2 6d 65 6d  |..hs%,1.0f. .mem|
00008990  6f 72 79 0d 30 70 0d 20  f2 73 74 72 69 6e 67 73  |ory.0p. .strings|
000089a0  0d 30 7a 09 20 f2 73 65  74 0d 30 84 0c 20 f2 73  |.0z. .set.0.. .s|
000089b0  70 72 69 74 65 0d 30 8e  38 20 c8 99 77 69 25 2c  |prite.0.8 ..wi%,|
000089c0  32 30 30 2c 74 61 73 6b  25 2c 64 65 73 25 20 b8  |200,task%,des% .|
000089d0  76 65 72 73 69 6f 6e 25  2c 74 68 25 3a 62 68 25  |version%,th%:bh%|
000089e0  3d a4 63 72 65 61 74 65  5f 69 63 6f 6e 0d 30 98  |=.create_icon.0.|
000089f0  19 20 e7 20 76 65 72 73  69 6f 6e 25 3c 33 30 30  |. . version%<300|
00008a00  20 72 32 25 3d b9 0d 30  a2 1c 20 21 63 63 63 25  | r2%=..0.. !ccc%|
00008a10  3d 26 46 46 46 46 46 46  30 30 3a f2 73 65 74 63  |=&FFFFFF00:.setc|
00008a20  6f 6c 0d 30 ac 1f 20 77  30 68 25 3d a4 63 72 65  |ol.0.. w0h%=.cre|
00008a30  61 74 65 5f 77 30 3a 21  69 77 30 25 3d 77 30 68  |ate_w0:!iw0%=w0h|
00008a40  25 0d 30 b6 2a 20 77 31  68 25 3d a4 63 72 65 61  |%.0.* w1h%=.crea|
00008a50  74 65 5f 77 31 3a 21 69  77 31 25 3d 77 31 68 25  |te_w1:!iw1%=w1h%|
00008a60  3a 21 77 6f 62 25 3d 77  31 68 25 0d 30 c0 1c 20  |:!wob%=w1h%.0.. |
00008a70  e7 20 72 32 25 20 6a 37  25 3d 2d 34 30 38 3a 66  |. r2% j7%=-408:f|
00008a80  37 25 3d 2d 34 30 38 0d  30 ca 1f 20 77 37 68 25  |7%=-408.0.. w7h%|
00008a90  3d a4 63 72 65 61 74 65  5f 77 37 3a 21 69 77 37  |=.create_w7:!iw7|
00008aa0  25 3d 77 37 68 25 0d 30  d4 38 20 77 38 68 25 3d  |%=w7h%.0.8 w8h%=|
00008ab0  a4 63 72 65 61 74 65 5f  77 38 3a 21 69 77 38 25  |.create_w8:!iw8%|
00008ac0  3d 77 38 68 25 3a f2 72  65 73 65 74 28 30 2c 64  |=w8h%:.reset(0,d|
00008ad0  65 6c 65 74 65 64 25 2c  36 2c 37 2c 38 29 0d 30  |eleted%,6,7,8).0|
00008ae0  de 1f 20 77 39 68 25 3d  a4 63 72 65 61 74 65 5f  |.. w9h%=.create_|
00008af0  77 39 3a 21 69 77 39 25  3d 77 39 68 25 0d 30 e8  |w9:!iw9%=w9h%.0.|
00008b00  0e 20 f2 72 65 61 64 6d  6f 64 65 0d 30 f2 0a 20  |. .readmode.0.. |
00008b10  f2 64 61 74 61 0d 30 fc  0d 20 f2 63 6f 6c 6f 75  |.data.0.. .colou|
00008b20  72 73 0d 31 06 08 20 f2  64 64 0d 31 10 0d 20 f2  |rs.1.. .dd.1.. .|
00008b30  73 68 75 66 66 6c 65 0d  31 1a 10 20 f2 6d 65 6e  |shuffle.1.. .men|
00008b40  75 62 6c 6f 63 6b 30 0d  31 24 10 20 f2 6d 65 6e  |ublock0.1$. .men|
00008b50  75 62 6c 6f 63 6b 31 0d  31 2e 10 20 f2 6d 65 6e  |ublock1.1.. .men|
00008b60  75 62 6c 6f 63 6b 32 0d  31 38 10 20 f2 6d 65 6e  |ublock2.18. .men|
00008b70  75 62 6c 6f 63 6b 33 0d  31 42 10 20 f2 6d 65 6e  |ublock3.1B. .men|
00008b80  75 62 6c 6f 63 6b 37 0d  31 4c 10 20 f2 6d 65 6e  |ublock7.1L. .men|
00008b90  75 62 6c 6f 63 6b 38 0d  31 56 10 20 f2 6d 65 6e  |ublock8.1V. .men|
00008ba0  75 62 6c 6f 63 6b 39 0d  31 60 11 20 f2 6d 65 6e  |ublock9.1`. .men|
00008bb0  75 62 6c 6f 63 6b 39 64  0d 31 6a 11 20 f2 6d 65  |ublock9d.1j. .me|
00008bc0  6e 75 62 6c 6f 63 6b 31  31 0d 31 74 08 20 f2 70  |nublock11.1t. .p|
00008bd0  31 0d 31 7e 08 20 f2 70  32 0d 31 88 08 20 f2 70  |1.1~. .p2.1.. .p|
00008be0  39 0d 31 92 09 20 f2 6c  64 37 0d 31 9c 0a 20 c8  |9.1.. .ld7.1.. .|
00008bf0  99 68 66 25 0d 31 a6 06  20 e1 0d 31 b0 06 20 3a  |.hf%.1.. ..1.. :|
00008c00  0d 31 ba 1e 20 dd 20 f2  76 61 6c 75 65 73 3a 74  |.1.. . .values:t|
00008c10  61 73 6b 25 3d 26 34 42  35 33 34 31 35 34 0d 31  |ask%=&4B534154.1|
00008c20  c4 25 20 70 38 30 25 3d  26 38 30 30 30 3a 70 59  |.% p80%=&8000:pY|
00008c30  25 3d 26 31 30 30 30 30  3a 70 5a 25 3d 26 34 30  |%=&10000:pZ%=&40|
00008c40  30 30 30 0d 31 ce 26 20  65 6d 25 3d 26 34 30 30  |000.1.& em%=&400|
00008c50  30 30 3a 68 6d 25 3d 26  34 30 36 30 30 3a 63 74  |00:hm%=&40600:ct|
00008c60  6d 25 3d 26 34 30 37 30  30 0d 31 d8 1c 20 68 66  |m%=&40700.1.. hf|
00008c70  25 3d 68 6d 25 2b 26 43  31 3a 68 73 25 3d 68 6d  |%=hm%+&C1:hs%=hm|
00008c80  25 2b 26 43 33 0d 31 e2  2d 20 63 74 74 25 3d 63  |%+&C3.1.- ctt%=c|
00008c90  74 6d 25 2b 26 34 30 3a  63 72 67 25 3d 63 74 6d  |tm%+&40:crg%=ctm|
00008ca0  25 2b 26 34 32 3a 63 73  25 3d 63 74 6d 25 2b 26  |%+&42:cs%=ctm%+&|
00008cb0  34 33 0d 31 ec 2d 20 63  72 6e 25 3d 63 74 6d 25  |43.1.- crn%=ctm%|
00008cc0  2b 26 34 34 3a 63 6e 25  3d 63 74 6d 25 2b 26 34  |+&44:cn%=ctm%+&4|
00008cd0  43 3a 63 72 63 25 3d 63  74 6d 25 2b 26 35 41 0d  |C:crc%=ctm%+&5A.|
00008ce0  31 f6 1c 20 77 69 25 3d  65 6d 25 2b 26 43 30 3a  |1.. wi%=em%+&C0:|
00008cf0  77 77 25 3d 65 6d 25 2b  26 43 31 0d 32 00 1c 20  |ww%=em%+&C1.2.. |
00008d00  77 6a 25 3d 65 6d 25 2b  26 43 32 3a 77 78 25 3d  |wj%=em%+&C2:wx%=|
00008d10  65 6d 25 2b 26 43 33 0d  32 0a 1c 20 77 6f 25 3d  |em%+&C3.2.. wo%=|
00008d20  65 6d 25 2b 26 43 35 3a  77 63 25 3d 65 6d 25 2b  |em%+&C5:wc%=em%+|
00008d30  26 43 36 0d 32 14 1c 20  77 72 25 3d 65 6d 25 2b  |&C6.2.. wr%=em%+|
00008d40  26 43 38 3a 77 75 25 3d  65 6d 25 2b 26 43 39 0d  |&C8:wu%=em%+&C9.|
00008d50  32 1e 1d 20 77 67 25 3d  65 6d 25 2b 26 43 41 3a  |2.. wg%=em%+&CA:|
00008d60  77 77 73 25 3d 65 6d 25  2b 26 43 42 0d 32 28 11  |wws%=em%+&CB.2(.|
00008d70  20 77 73 69 25 3d 65 6d  25 2b 26 43 44 0d 32 32  | wsi%=em%+&CD.22|
00008d80  1e 20 77 67 70 25 3d 65  6d 25 2b 26 43 46 3a 77  |. wgp%=em%+&CF:w|
00008d90  66 72 25 3d 65 6d 25 2b  26 44 31 0d 32 3c 11 20  |fr%=em%+&D1.2<. |
00008da0  77 63 70 25 3d 65 6d 25  2b 26 44 32 0d 32 46 1d  |wcp%=em%+&D2.2F.|
00008db0  20 77 67 63 25 3d 65 6d  25 2b 26 44 33 3a 77 6d  | wgc%=em%+&D3:wm|
00008dc0  25 3d 65 6d 25 2b 26 44  34 0d 32 50 1d 20 77 70  |%=em%+&D4.2P. wp|
00008dd0  6b 25 3d 65 6d 25 2b 26  44 43 3a 77 7a 25 3d 65  |k%=em%+&DC:wz%=e|
00008de0  6d 25 2b 26 44 44 0d 32  5a 1e 20 77 72 65 25 3d  |m%+&DD.2Z. wre%=|
00008df0  65 6d 25 2b 26 44 46 3a  77 70 74 25 3d 65 6d 25  |em%+&DF:wpt%=em%|
00008e00  2b 26 45 31 0d 32 64 1e  20 77 73 6d 25 3d 65 6d  |+&E1.2d. wsm%=em|
00008e10  25 2b 26 45 33 3a 77 73  67 25 3d 65 6d 25 2b 26  |%+&E3:wsg%=em%+&|
00008e20  45 37 0d 32 6e 1e 20 77  77 6f 25 3d 65 6d 25 2b  |E7.2n. wwo%=em%+|
00008e30  26 45 30 3a 77 70 69 25  3d 65 6d 25 2b 26 45 32  |&E0:wpi%=em%+&E2|
00008e40  0d 32 78 1e 20 6f 73 6e  25 3d 26 34 36 3a 6f 73  |.2x. osn%=&46:os|
00008e50  70 25 3d 26 34 35 3a 72  6d 25 3d 26 33 35 0d 32  |p%=&45:rm%=&35.2|
00008e60  82 1f 20 73 70 25 3d 26  32 45 3a 73 7a 25 3d 26  |.. sp%=&2E:sz%=&|
00008e70  43 43 42 34 3a 73 71 25  3d 26 39 30 30 0d 32 8c  |CCB4:sq%=&900.2.|
00008e80  21 20 69 31 25 3d 30 3a  6a 31 25 3d 2d 36 37 32  |! i1%=0:j1%=-672|
00008e90  3a 6b 31 25 3d 35 34 30  3a 6c 31 25 3d 30 0d 32  |:k1%=540:l1%=0.2|
00008ea0  96 34 20 65 31 25 3d 69  31 25 2b 33 37 30 3a 66  |.4 e1%=i1%+370:f|
00008eb0  31 25 3d 6a 31 25 2b 38  30 38 3a 67 31 25 3d 6b  |1%=j1%+808:g1%=k|
00008ec0  31 25 2b 33 37 30 3a 68  31 25 3d 6c 31 25 2b 38  |1%+370:h1%=l1%+8|
00008ed0  30 38 0d 32 a0 3f 20 69  34 25 3d 30 3a 6a 34 25  |08.2.? i4%=0:j4%|
00008ee0  3d 2d 39 37 36 3a 6b 34  25 3d 31 30 32 34 3a 6c  |=-976:k4%=1024:l|
00008ef0  34 25 3d 30 3a 65 34 25  3d 30 3a 68 34 25 3d 30  |4%=0:e4%=0:h4%=0|
00008f00  3a 67 34 25 3d 31 34 34  3a 66 34 25 3d 2d 31 34  |:g4%=144:f4%=-14|
00008f10  34 0d 32 aa 20 20 78 72  61 3d 32 2e 38 3a 79 72  |4.2.  xra=2.8:yr|
00008f20  61 3d 32 2e 37 3a 66 61  63 74 6f 72 3d 30 2e 32  |a=2.7:factor=0.2|
00008f30  39 0d 32 b4 3b 20 69 32  25 3d 30 3a 6a 32 25 3d  |9.2.; i2%=0:j2%=|
00008f40  2d 34 34 2a 31 36 3a 6b  32 25 3d 31 32 34 3a 6c  |-44*16:k2%=124:l|
00008f50  32 25 3d 30 3a 65 32 25  3d 30 3a 66 32 25 3d 30  |2%=0:e2%=0:f2%=0|
00008f60  3a 67 32 25 3d 30 3a 68  32 25 3d 30 0d 32 be 21  |:g2%=0:h2%=0.2.!|
00008f70  20 69 37 25 3d 30 3a 6a  37 25 3d 2d 36 31 36 3a  | i7%=0:j7%=-616:|
00008f80  6b 37 25 3d 32 38 30 3a  6c 37 25 3d 30 0d 32 c8  |k7%=280:l7%=0.2.|
00008f90  2b 20 65 37 25 3d 30 3a  66 37 25 3d 2d 36 31 36  |+ e7%=0:f7%=-616|
00008fa0  3a 67 37 25 3d 32 38 30  3a 68 37 25 3d 30 3a 6d  |:g7%=280:h7%=0:m|
00008fb0  69 64 37 25 3d 31 32 38  0d 32 d2 21 20 69 38 25  |id7%=128.2.! i8%|
00008fc0  3d 30 3a 6a 38 25 3d 2d  32 35 32 3a 6b 38 25 3d  |=0:j8%=-252:k8%=|
00008fd0  32 38 30 3a 6c 38 25 3d  30 0d 32 dc 21 20 65 38  |280:l8%=0.2.! e8|
00008fe0  25 3d 30 3a 66 38 25 3d  2d 32 35 32 3a 67 38 25  |%=0:f8%=-252:g8%|
00008ff0  3d 32 38 30 3a 68 38 25  3d 30 0d 32 e6 21 20 69  |=280:h8%=0.2.! i|
00009000  39 25 3d 30 3a 6a 39 25  3d 2d 32 36 30 3a 6b 39  |9%=0:j9%=-260:k9|
00009010  25 3d 32 38 30 3a 6c 39  25 3d 30 0d 32 f0 21 20  |%=280:l9%=0.2.! |
00009020  65 39 25 3d 30 3a 66 39  25 3d 2d 32 36 30 3a 67  |e9%=0:f9%=-260:g|
00009030  39 25 3d 32 38 30 3a 68  39 25 3d 30 0d 32 fa 24  |9%=280:h9%=0.2.$|
00009040  20 77 69 64 74 68 25 3d  38 34 3a 70 70 61 25 3d  | width%=84:ppa%=|
00009050  26 34 30 2b 34 3a 65 66  70 25 3d 26 43 38 2b 35  |&40+4:efp%=&C8+5|
00009060  0d 33 04 2d 20 72 66 25  3d 26 36 30 3a 72 66 61  |.3.- rf%=&60:rfa|
00009070  25 3d 72 66 25 2b 34 3a  72 66 72 25 3d 72 66 25  |%=rf%+4:rfr%=rf%|
00009080  2b 31 3a 72 66 70 25 3d  72 66 25 2b 35 0d 33 0e  |+1:rfp%=rf%+5.3.|
00009090  12 20 6c 65 6e 25 3d 30  3a 73 66 74 25 3d 30 0d  |. len%=0:sft%=0.|
000090a0  33 18 0e 20 69 74 66 25  3d 26 31 31 41 0d 33 22  |3.. itf%=&11A.3"|
000090b0  12 20 74 78 66 25 3d 26  37 30 30 30 31 31 39 0d  |. txf%=&7000119.|
000090c0  33 2c 0e 20 62 66 25 3d  26 33 30 30 30 0d 33 36  |3,. bf%=&3000.36|
000090d0  12 20 69 6e 66 25 3d 26  37 30 30 30 31 33 44 0d  |. inf%=&700013D.|
000090e0  33 40 0f 20 70 66 25 3d  26 38 31 38 33 30 0d 33  |3@. pf%=&81830.3|
000090f0  4a 14 20 73 68 61 64 65  64 25 3d 26 34 30 30 30  |J. shaded%=&4000|
00009100  30 30 0d 33 54 11 20 6d  66 25 3d 26 37 30 30 30  |00.3T. mf%=&7000|
00009110  30 32 31 0d 33 5e 13 20  6d 66 31 31 25 3d 26 37  |021.3^. mf11%=&7|
00009120  30 30 30 31 32 31 0d 33  68 14 20 6d 66 73 31 31  |000121.3h. mfs11|
00009130  25 3d 26 37 34 30 30 31  32 31 0d 33 72 12 20 6d  |%=&7400121.3r. m|
00009140  66 39 25 3d 26 37 30 30  30 30 32 39 0d 33 7c 12  |f9%=&7000029.3|.|
00009150  20 69 66 38 25 3d 26 37  30 30 46 31 33 44 0d 33  | if8%=&700F13D.3|
00009160  86 12 20 69 66 66 25 3d  26 37 30 31 39 31 33 42  |.. iff%=&701913B|
00009170  0d 33 90 12 20 6c 61 73  74 69 74 65 6d 25 3d 26  |.3.. lastitem%=&|
00009180  38 30 0d 33 9a 10 20 72  32 25 3d a3 3a 6e 76 25  |80.3.. r2%=.:nv%|
00009190  3d b9 0d 33 a4 17 20 73  63 61 6c 65 64 25 3d b9  |=..3.. scaled%=.|
000091a0  3a 72 69 67 68 74 25 3d  b9 0d 33 ae 19 20 72 74  |:right%=..3.. rt|
000091b0  6f 25 3d b9 3a 72 74 6c  25 3d b9 3a 72 74 64 25  |o%=.:rtl%=.:rtd%|
000091c0  3d a3 0d 33 b8 2e 20 73  74 72 69 70 25 3d 30 3a  |=..3.. strip%=0:|
000091d0  6f 6c 64 73 74 72 69 70  25 3d 30 3a 69 6e 64 65  |oldstrip%=0:inde|
000091e0  7a 25 3d 30 3a 6f 6c 64  69 6e 64 65 7a 25 3d 30  |z%=0:oldindez%=0|
000091f0  0d 33 c2 39 20 64 65 6c  65 74 65 64 25 3d 26 38  |.3.9 deleted%=&8|
00009200  30 30 30 30 30 3a 63 76  25 3d 26 44 35 3a 61 63  |00000:cv%=&D5:ac|
00009210  63 25 3d 30 3a 6d 63 63  25 3d 30 3a 79 63 63 25  |c%=0:mcc%=0:ycc%|
00009220  3d 30 3a 6b 63 63 25 3d  30 0d 33 cc 27 20 78 34  |=0:kcc%=0.3.' x4|
00009230  25 3d 31 33 32 3a 62 6b  25 3d a3 3a 61 63 74 69  |%=132:bk%=.:acti|
00009240  76 65 25 3d a3 3a 63 6c  65 61 72 65 64 25 3d a3  |ve%=.:cleared%=.|
00009250  0d 33 d6 37 20 75 75 25  3d 30 3a 76 76 25 3d 30  |.3.7 uu%=0:vv%=0|
00009260  3a 77 76 25 3d 30 3a 75  70 25 3d 30 3a 72 68 6f  |:wv%=0:up%=0:rho|
00009270  6c 64 25 3d 30 3a 67 68  6f 6c 64 25 3d 30 3a 62  |ld%=0:ghold%=0:b|
00009280  68 6f 6c 64 25 3d 30 0d  33 e0 2a 20 6d 6f 72 65  |hold%=0.3.* more|
00009290  25 3d 30 3a 72 63 25 3d  30 3a 78 62 25 3d 30 3a  |%=0:rc%=0:xb%=0:|
000092a0  79 62 25 3d 30 3a 78 66  25 3d 30 3a 79 66 25 3d  |yb%=0:xf%=0:yf%=|
000092b0  30 0d 33 ea 06 20 e1 0d  33 f4 06 20 3a 0d 33 fe  |0.3.. ..3.. :.3.|
000092c0  24 20 dd 20 f2 6d 65 6d  6f 72 79 3a de 20 6c 69  |$ . .memory:. li|
000092d0  25 20 31 30 32 33 3a de  20 6c 6a 25 20 31 30 32  |% 1023:. lj% 102|
000092e0  33 0d 34 08 23 20 de 20  65 72 62 25 20 32 35 35  |3.4.# . erb% 255|
000092f0  3a de 20 70 62 25 20 32  35 35 3a de 20 74 62 25  |:. pb% 255:. tb%|
00009300  20 32 35 35 0d 34 12 2d  20 de 20 6d 65 6e 75 25  | 255.4.- . menu%|
00009310  28 31 31 29 3a de 20 6d  73 67 62 25 20 34 37 3a  |(11):. msgb% 47:|
00009320  de 20 69 63 25 20 38 3a  de 20 64 65 73 25 20 31  |. ic% 8:. des% 1|
00009330  31 0d 34 1c 1a 20 de 20  69 77 30 25 20 33 37 39  |1.4.. . iw0% 379|
00009340  3a 77 30 25 3d 69 77 30  25 2b 34 0d 34 26 19 20  |:w0%=iw0%+4.4&. |
00009350  de 20 69 77 31 25 20 39  31 3a 77 31 25 3d 69 77  |. iw1% 91:w1%=iw|
00009360  31 25 2b 34 0d 34 30 19  20 de 20 69 77 32 25 20  |1%+4.40. . iw2% |
00009370  39 31 3a 77 32 25 3d 69  77 32 25 2b 34 0d 34 3a  |91:w2%=iw2%+4.4:|
00009380  19 20 de 20 69 77 34 25  20 39 31 3a 77 34 25 3d  |. . iw4% 91:w4%=|
00009390  69 77 34 25 2b 34 0d 34  44 1a 20 de 20 69 77 37  |iw4%+4.4D. . iw7|
000093a0  25 20 38 32 37 3a 77 37  25 3d 69 77 37 25 2b 34  |% 827:w7%=iw7%+4|
000093b0  0d 34 4e 1a 20 de 20 69  77 38 25 20 35 37 31 3a  |.4N. . iw8% 571:|
000093c0  77 38 25 3d 69 77 38 25  2b 34 0d 34 58 1a 20 de  |w8%=iw8%+4.4X. .|
000093d0  20 69 77 39 25 20 32 38  33 3a 77 39 25 3d 69 77  | iw9% 283:w9%=iw|
000093e0  39 25 2b 34 0d 34 62 17  20 de 20 6e 75 6c 6c 25  |9%+4.4b. . null%|
000093f0  20 30 3a de 20 64 6d 73  25 20 38 0d 34 6c 1f 20  | 0:. dms% 8.4l. |
00009400  de 20 72 64 74 25 20 33  3a de 20 67 64 74 25 20  |. rdt% 3:. gdt% |
00009410  33 3a de 20 62 64 74 25  20 33 0d 34 76 1f 20 de  |3:. bdt% 3.4v. .|
00009420  20 72 68 74 25 20 32 3a  de 20 67 68 74 25 20 32  | rht% 2:. ght% 2|
00009430  3a de 20 62 68 74 25 20  32 0d 34 80 1f 20 de 20  |:. bht% 2.4.. . |
00009440  72 62 74 25 20 38 3a de  20 67 62 74 25 20 38 3a  |rbt% 8:. gbt% 8:|
00009450  de 20 62 62 74 25 20 38  0d 34 8a 22 20 de 20 76  |. bbt% 8.4." . v|
00009460  73 64 25 20 36 33 3a de  20 76 73 68 25 20 36 33  |sd% 63:. vsh% 63|
00009470  3a de 20 76 73 62 25 20  36 33 0d 34 94 2a 20 de  |:. vsb% 63.4.* .|
00009480  20 74 78 37 25 20 31 31  3a de 20 74 78 38 25 20  | tx7% 11:. tx8% |
00009490  31 31 3a de 20 74 63 38  25 20 35 3a de 20 74 65  |11:. tc8% 5:. te|
000094a0  38 25 20 35 0d 34 9e 31  20 de 20 76 78 37 25 20  |8% 5.4.1 . vx7% |
000094b0  38 3a de 20 76 78 38 25  20 38 3a de 20 76 64 38  |8:. vx8% 8:. vd8|
000094c0  25 20 38 3a de 20 63 61  70 25 20 38 3a de 20 76  |% 8:. cap% 8:. v|
000094d0  73 39 25 20 38 0d 34 a8  28 20 de 20 73 74 31 25  |s9% 8.4.( . st1%|
000094e0  20 31 3a de 20 73 74 32  25 20 31 3a de 20 73 74  | 1:. st2% 1:. st|
000094f0  33 25 20 31 3a de 20 73  74 34 25 20 31 0d 34 b2  |3% 1:. st4% 1.4.|
00009500  36 20 de 20 73 74 72 30  25 20 33 3a de 20 73 74  |6 . str0% 3:. st|
00009510  72 31 25 20 33 3a de 20  73 74 72 32 25 20 33 3a  |r1% 3:. str2% 3:|
00009520  de 20 73 74 72 33 25 20  33 3a de 20 73 74 72 34  |. str3% 3:. str4|
00009530  25 20 33 0d 34 bc 30 20  de 20 73 74 6f 72 65 25  |% 3.4.0 . store%|
00009540  28 34 29 3a 73 74 6f 72  65 25 28 30 29 3d 73 74  |(4):store%(0)=st|
00009550  72 30 25 3a 73 74 6f 72  65 25 28 31 29 3d 73 74  |r0%:store%(1)=st|
00009560  72 31 25 0d 34 c6 34 20  73 74 6f 72 65 25 28 32  |r1%.4.4 store%(2|
00009570  29 3d 73 74 72 32 25 3a  73 74 6f 72 65 25 28 33  |)=str2%:store%(3|
00009580  29 3d 73 74 72 33 25 3a  73 74 6f 72 65 25 28 34  |)=str3%:store%(4|
00009590  29 3d 73 74 72 34 25 0d  34 d0 19 20 de 20 70 69  |)=str4%.4.. . pi|
000095a0  66 25 20 31 39 3a de 20  69 70 25 28 38 2c 36 29  |f% 19:. ip%(8,6)|
000095b0  0d 34 da 22 20 de 20 72  64 65 63 25 20 33 3a de  |.4." . rdec% 3:.|
000095c0  20 67 64 65 63 25 20 33  3a de 20 62 64 65 63 25  | gdec% 3:. bdec%|
000095d0  20 33 0d 34 e4 22 20 de  20 72 68 65 78 25 20 32  | 3.4." . rhex% 2|
000095e0  3a de 20 67 68 65 78 25  20 32 3a de 20 62 68 65  |:. ghex% 2:. bhe|
000095f0  78 25 20 32 0d 34 ee 22  20 de 20 72 62 69 6e 25  |x% 2.4." . rbin%|
00009600  20 38 3a de 20 67 62 69  6e 25 20 38 3a de 20 62  | 8:. gbin% 8:. b|
00009610  62 69 6e 25 20 38 0d 34  f8 22 20 de 20 77 6f 62  |bin% 8.4." . wob|
00009620  25 20 31 39 3a de 20 63  74 62 25 20 32 33 3a de  |% 19:. ctb% 23:.|
00009630  20 73 69 73 25 20 31 35  0d 35 02 16 20 de 20 77  | sis% 15.5.. . w|
00009640  25 28 34 34 2c 35 29 3a  de 20 6e 25 20 34 0d 35  |%(44,5):. n% 4.5|
00009650  0c 20 20 de 20 74 65 6d  70 25 28 34 29 3a de 20  |.  . temp%(4):. |
00009660  78 25 28 36 29 3a de 20  79 25 28 31 32 29 0d 35  |x%(6):. y%(12).5|
00009670  16 18 20 de 20 64 73 74  25 20 31 39 39 3a de 20  |.. . dst% 199:. |
00009680  62 30 25 20 33 35 0d 35  20 28 20 de 20 70 31 25  |b0% 35.5 ( . p1%|
00009690  20 36 33 3a de 20 70 32  25 20 36 33 3a de 20 70  | 63:. p2% 63:. p|
000096a0  39 25 20 33 31 3a de 20  66 77 25 28 34 29 0d 35  |9% 31:. fw%(4).5|
000096b0  2a 2c 20 de 20 73 31 25  20 35 3a de 20 73 32 25  |*, . s1% 5:. s2%|
000096c0  20 33 3a de 20 73 33 25  20 33 3a de 20 73 34 25  | 3:. s3% 3:. s4%|
000096d0  20 33 3a de 20 73 39 25  20 32 0d 35 34 24 20 de  | 3:. s9% 2.54$ .|
000096e0  20 6d 62 30 25 20 31 32  33 3a de 20 6d 62 31 25  | mb0% 123:. mb1%|
000096f0  20 39 39 3a de 20 6d 62  32 25 20 31 32 33 0d 35  | 99:. mb2% 123.5|
00009700  3e 22 20 de 20 6d 62 33  25 20 35 31 3a de 20 6d  |>" . mb3% 51:. m|
00009710  62 37 25 20 39 39 3a de  20 6d 62 38 25 20 39 39  |b7% 99:. mb8% 99|
00009720  0d 35 48 26 20 de 20 6d  62 39 25 20 31 34 37 3a  |.5H& . mb9% 147:|
00009730  de 20 6d 62 39 64 25 20  31 34 37 3a de 20 6d 62  |. mb9d% 147:. mb|
00009740  31 31 25 20 37 35 0d 35  52 1c 20 de 20 69 25 28  |11% 75.5R. . i%(|
00009750  33 29 3a de 20 6a 33 25  20 34 3a de 20 6b 25 28  |3):. j3% 4:. k%(|
00009760  33 29 0d 35 5c 31 20 de  20 64 75 25 28 34 29 3a  |3).5\1 . du%(4):|
00009770  de 20 64 64 25 28 34 29  3a de 20 64 76 25 28 32  |. dd%(4):. dv%(2|
00009780  29 3a de 20 64 77 25 28  32 29 3a de 20 64 78 25  |):. dw%(2):. dx%|
00009790  28 34 29 0d 35 66 35 20  de 20 63 6f 6c 6f 75 72  |(4).5f5 . colour|
000097a0  25 20 36 3a de 20 74 69  6e 74 25 20 34 3a de 20  |% 6:. tint% 4:. |
000097b0  73 79 73 5f 67 63 6f 6c  25 20 34 3a de 20 63 6f  |sys_gcol% 4:. co|
000097c0  6c 5f 6e 75 6d 25 20 36  0d 35 70 22 20 de 20 72  |l_num% 6.5p" . r|
000097d0  65 64 25 20 33 3a de 20  67 72 65 65 6e 25 20 35  |ed% 3:. green% 5|
000097e0  3a de 20 62 6c 75 65 25  20 34 0d 35 7a 30 20 de  |:. blue% 4.5z0 .|
000097f0  20 63 79 61 6e 25 20 34  3a de 20 6d 61 67 65 6e  | cyan% 4:. magen|
00009800  74 61 25 20 37 3a de 20  79 65 6c 6c 6f 77 25 20  |ta% 7:. yellow% |
00009810  36 3a de 20 6b 65 79 25  20 33 0d 35 84 24 20 de  |6:. key% 3.5.$ .|
00009820  20 6c 6c 25 20 38 3a de  20 74 74 25 20 38 3a de  | ll% 8:. tt% 8:.|
00009830  20 6f 6f 25 20 38 3a de  20 6e 6e 25 20 38 0d 35  | oo% 8:. nn% 8.5|
00009840  8e 1c 20 de 20 72 72 25  20 38 3a de 20 67 67 25  |.. . rr% 8:. gg%|
00009850  20 38 3a de 20 62 62 25  20 38 0d 35 98 24 20 de  | 8:. bb% 8.5.$ .|
00009860  20 61 61 25 20 38 3a de  20 6d 6d 25 20 38 3a de  | aa% 8:. mm% 8:.|
00009870  20 79 79 25 20 38 3a de  20 6b 6b 25 20 38 0d 35  | yy% 8:. kk% 8.5|
00009880  a2 16 20 de 20 63 63 63  25 20 33 3a de 20 64 64  |.. . ccc% 3:. dd|
00009890  64 25 20 33 0d 35 ac 1c  20 de 20 63 72 25 20 33  |d% 3.5.. . cr% 3|
000098a0  3a de 20 63 67 25 20 33  3a de 20 63 62 25 20 33  |:. cg% 3:. cb% 3|
000098b0  0d 35 b6 1c 20 de 20 63  63 25 20 33 3a de 20 63  |.5.. . cc% 3:. c|
000098c0  6d 25 20 33 3a de 20 63  79 25 20 33 0d 35 c0 2c  |m% 3:. cy% 3.5.,|
000098d0  20 de 20 63 31 25 20 33  3a de 20 63 32 25 20 33  | . c1% 3:. c2% 3|
000098e0  3a de 20 63 33 25 20 33  3a de 20 63 37 25 20 33  |:. c3% 3:. c7% 3|
000098f0  3a de 20 63 38 25 20 33  0d 35 ca 16 20 de 20 62  |:. c8% 3.5.. . b|
00009900  67 25 20 33 3a de 20 67  72 65 79 25 20 33 0d 35  |g% 3:. grey% 3.5|
00009910  d4 17 20 de 20 73 73 25  20 31 35 3a de 20 62 73  |.. . ss% 15:. bs|
00009920  25 20 73 7a 25 0d 35 de  1f 20 de 20 77 74 25 20  |% sz%.5.. . wt% |
00009930  32 33 3a de 20 77 74 24  28 35 29 3a de 20 6d 24  |23:. wt$(5):. m$|
00009940  28 35 35 29 0d 35 e8 22  20 de 20 69 6e 31 25 20  |(55).5." . in1% |
00009950  32 35 3a de 20 69 6e 32  25 20 32 34 3a de 20 69  |25:. in2% 24:. i|
00009960  6e 33 25 20 32 31 0d 35  f2 28 20 de 20 69 6e 34  |n3% 21.5.( . in4|
00009970  25 20 35 3a de 20 69 6e  35 25 20 38 3a de 20 69  |% 5:. in5% 8:. i|
00009980  6e 36 25 20 38 3a de 20  69 6e 37 25 20 37 0d 35  |n6% 8:. in7% 7.5|
00009990  fc 18 20 de 20 61 31 31  25 20 32 30 3a de 20 62  |.. . a11% 20:. b|
000099a0  31 31 25 20 32 30 0d 36  06 06 20 e1 0d 36 10 06  |11% 20.6.. ..6..|
000099b0  20 3a 0d 36 1a 2e 20 dd  20 f2 73 65 74 3a 6e 74  | :.6.. . .set:nt|
000099c0  25 3d 30 3a 6f 74 25 3d  30 3a 67 6e 25 3d 31 30  |%=0:ot%=0:gn%=10|
000099d0  30 3a 6d 74 25 3d 31 3a  62 61 73 65 25 3d 26 41  |0:mt%=1:base%=&A|
000099e0  0d 36 24 2c 20 69 63 6f  6e 25 3d b9 3a 69 25 28  |.6$, icon%=.:i%(|
000099f0  30 29 3d b9 3a 69 25 28  31 29 3d b9 3a 69 25 28  |0)=.:i%(1)=.:i%(|
00009a00  32 29 3d b9 3a 69 25 28  33 29 3d b9 0d 36 2e 33  |2)=.:i%(3)=..6.3|
00009a10  20 6b 25 28 30 29 3d 33  37 3a 6b 25 28 31 29 3d  | k%(0)=37:k%(1)=|
00009a20  33 38 3a 6b 25 28 32 29  3d 33 39 3a 6b 25 28 33  |38:k%(2)=39:k%(3|
00009a30  29 3d 34 30 3a 24 6a 33  25 3d 6d 24 28 31 29 0d  |)=40:$j3%=m$(1).|
00009a40  36 38 46 20 73 74 72 25  3d 30 3a 64 75 25 28 29  |68F str%=0:du%()|
00009a50  3d 30 3a 64 75 25 28 30  29 3d 31 3a 64 76 25 28  |=0:du%(0)=1:dv%(|
00009a60  29 3d 30 3a 64 76 25 28  30 29 3d 31 3a 64 77 25  |)=0:dv%(0)=1:dw%|
00009a70  28 29 3d 30 3a 64 77 25  28 30 29 3d 31 3a 64 78  |()=0:dw%(0)=1:dx|
00009a80  25 28 29 3d 30 0d 36 42  24 20 64 65 6c 61 79 25  |%()=0.6B$ delay%|
00009a90  3d 34 3a 64 39 25 3d 34  3a 64 64 25 28 29 3d 30  |=4:d9%=4:dd%()=0|
00009aa0  3a 64 64 25 28 32 29 3d  31 0d 36 4c 32 20 73 74  |:dd%(2)=1.6L2 st|
00009ab0  72 30 25 3f 30 3d 30 3a  73 74 72 30 25 3f 31 3d  |r0%?0=0:str0%?1=|
00009ac0  26 42 42 3a 73 74 72 30  25 3f 32 3d 26 42 42 3a  |&BB:str0%?2=&BB:|
00009ad0  73 74 72 30 25 3f 33 3d  26 42 42 0d 36 56 32 20  |str0%?3=&BB.6V2 |
00009ae0  73 74 72 31 25 3f 30 3d  30 3a 73 74 72 31 25 3f  |str1%?0=0:str1%?|
00009af0  31 3d 26 41 41 3a 73 74  72 31 25 3f 32 3d 26 41  |1=&AA:str1%?2=&A|
00009b00  41 3a 73 74 72 31 25 3f  33 3d 26 41 41 0d 36 60  |A:str1%?3=&AA.6`|
00009b10  32 20 73 74 72 32 25 3f  30 3d 30 3a 73 74 72 32  |2 str2%?0=0:str2|
00009b20  25 3f 31 3d 26 39 39 3a  73 74 72 32 25 3f 32 3d  |%?1=&99:str2%?2=|
00009b30  26 39 39 3a 73 74 72 32  25 3f 33 3d 26 39 39 0d  |&99:str2%?3=&99.|
00009b40  36 6a 32 20 73 74 72 33  25 3f 30 3d 30 3a 73 74  |6j2 str3%?0=0:st|
00009b50  72 33 25 3f 31 3d 26 38  38 3a 73 74 72 33 25 3f  |r3%?1=&88:str3%?|
00009b60  32 3d 26 38 38 3a 73 74  72 33 25 3f 33 3d 26 38  |2=&88:str3%?3=&8|
00009b70  38 0d 36 74 32 20 73 74  72 34 25 3f 30 3d 30 3a  |8.6t2 str4%?0=0:|
00009b80  73 74 72 34 25 3f 31 3d  26 37 37 3a 73 74 72 34  |str4%?1=&77:str4|
00009b90  25 3f 32 3d 26 37 37 3a  73 74 72 34 25 3f 33 3d  |%?2=&77:str4%?3=|
00009ba0  26 37 37 0d 36 7e 32 20  24 73 39 25 3d 22 34 22  |&77.6~2 $s9%="4"|
00009bb0  3a f2 7a 65 72 6f 3a f2  72 65 73 74 6f 72 65 28  |:.zero:.restore(|
00009bc0  26 44 35 2c 34 2c 72 64  74 25 2c 67 64 74 25 2c  |&D5,4,rdt%,gdt%,|
00009bd0  62 64 74 25 29 0d 36 88  19 20 6e 6d 78 25 3d 36  |bdt%).6.. nmx%=6|
00009be0  3a 6e 6d 79 25 3d 37 3a  6e 6d 7a 25 3d 38 0d 36  |:nmy%=7:nmz%=8.6|
00009bf0  92 38 20 24 74 78 37 25  3d 6d 24 28 31 36 29 3a  |.8 $tx7%=m$(16):|
00009c00  24 74 78 38 25 3d 6d 24  28 31 36 29 3a 24 74 63  |$tx8%=m$(16):$tc|
00009c10  38 25 3d 6d 24 28 32 32  29 3a 24 74 65 38 25 3d  |8%=m$(22):$te8%=|
00009c20  6d 24 28 32 33 29 0d 36  9c 37 20 24 76 78 37 25  |m$(23).6.7 $vx7%|
00009c30  3d 22 53 63 78 6e 2c 63  78 6f 22 3a 24 76 78 38  |="Scxn,cxo":$vx8|
00009c40  25 3d 22 53 63 78 6e 2c  63 78 6f 22 3a 24 76 64  |%="Scxn,cxo":$vd|
00009c50  38 25 3d 22 53 69 6f 66  2c 69 6f 6e 22 0d 36 a6  |8%="Siof,ion".6.|
00009c60  22 20 24 63 61 70 25 3d  6d 24 28 34 31 29 3a 24  |" $cap%=m$(41):$|
00009c70  76 73 39 25 3d 22 53 73  72 66 2c 73 72 6e 22 0d  |vs9%="Ssrf,srn".|
00009c80  36 b0 38 20 24 73 74 31  25 3d 6d 24 28 33 35 29  |6.8 $st1%=m$(35)|
00009c90  3a 24 73 74 32 25 3d 6d  24 28 33 36 29 3a 24 73  |:$st2%=m$(36):$s|
00009ca0  74 33 25 3d 6d 24 28 33  37 29 3a 24 73 74 34 25  |t3%=m$(37):$st4%|
00009cb0  3d 6d 24 28 33 38 29 0d  36 ba 2a 20 78 63 6e 25  |=m$(38).6.* xcn%|
00009cc0  3d 30 3a 24 6e 75 6c 6c  25 3d 6d 24 28 33 39 29  |=0:$null%=m$(39)|
00009cd0  3a 24 64 6d 73 25 3d 22  53 64 6d 66 2c 64 6d 6e  |:$dms%="Sdmf,dmn|
00009ce0  22 0d 36 c4 41 20 24 63  6f 6c 6f 75 72 25 3d 6d  |".6.A $colour%=m|
00009cf0  24 28 32 29 3a 24 74 69  6e 74 25 3d 6d 24 28 33  |$(2):$tint%=m$(3|
00009d00  29 3a 24 73 79 73 5f 67  63 6f 6c 25 3d 6d 24 28  |):$sys_gcol%=m$(|
00009d10  36 29 3a 24 63 6f 6c 5f  6e 75 6d 25 3d 6d 24 28  |6):$col_num%=m$(|
00009d20  37 29 0d 36 ce 2e 20 24  72 65 64 25 3d 6d 24 28  |7).6.. $red%=m$(|
00009d30  31 38 29 3a 24 67 72 65  65 6e 25 3d 6d 24 28 31  |18):$green%=m$(1|
00009d40  39 29 3a 24 62 6c 75 65  25 3d 6d 24 28 32 30 29  |9):$blue%=m$(20)|
00009d50  0d 36 d8 40 20 24 63 79  61 6e 25 3d 6d 24 28 32  |.6.@ $cyan%=m$(2|
00009d60  38 29 3a 24 6d 61 67 65  6e 74 61 25 3d 6d 24 28  |8):$magenta%=m$(|
00009d70  32 39 29 3a 24 79 65 6c  6c 6f 77 25 3d 6d 24 28  |29):$yellow%=m$(|
00009d80  33 30 29 3a 24 6b 65 79  25 3d 6d 24 28 33 31 29  |30):$key%=m$(31)|
00009d90  0d 36 e2 2d 20 24 76 73  64 25 3d 22 41 30 2d 39  |.6.- $vsd%="A0-9|
00009da0  22 3a 24 76 73 68 25 3d  22 41 30 2d 39 41 2d 46  |":$vsh%="A0-9A-F|
00009db0  22 3a 24 76 73 62 25 3d  22 41 30 31 22 0d 36 ec  |":$vsb%="A01".6.|
00009dc0  34 20 24 73 31 25 3d 6d  24 28 32 36 29 3a 24 73  |4 $s1%=m$(26):$s|
00009dd0  32 25 3d 6d 24 28 32 37  29 3a 24 73 33 25 3d 6d  |2%=m$(27):$s3%=m|
00009de0  24 28 32 34 29 3a 24 73  34 25 3d 6d 24 28 32 35  |$(24):$s4%=m$(25|
00009df0  29 0d 36 f6 2b 20 24 69  6e 31 25 3d 6d 24 28 34  |).6.+ $in1%=m$(4|
00009e00  38 29 3a 24 69 6e 32 25  3d 6d 24 28 34 39 29 3a  |8):$in2%=m$(49):|
00009e10  24 69 6e 33 25 3d 6d 24  28 35 30 29 0d 37 00 38  |$in3%=m$(50).7.8|
00009e20  20 24 69 6e 34 25 3d 6d  24 28 35 32 29 3a 24 69  | $in4%=m$(52):$i|
00009e30  6e 35 25 3d 6d 24 28 35  33 29 3a 24 69 6e 36 25  |n5%=m$(53):$in6%|
00009e40  3d 6d 24 28 35 34 29 3a  24 69 6e 37 25 3d 6d 24  |=m$(54):$in7%=m$|
00009e50  28 35 35 29 0d 37 0a 29  20 77 64 24 3d 6d 24 28  |(55).7.) wd$=m$(|
00009e60  35 31 29 3a 24 61 31 31  25 3d 6d 24 28 34 36 29  |51):$a11%=m$(46)|
00009e70  3a 24 62 31 31 25 3d 6d  24 28 34 37 29 0d 37 14  |:$b11%=m$(47).7.|
00009e80  34 20 21 6d 73 67 62 25  3d 34 38 3a 6d 73 67 62  |4 !msgb%=48:msgb|
00009e90  25 21 31 32 3d 30 3a 6d  73 67 62 25 21 31 36 3d  |%!12=0:msgb%!16=|
00009ea0  26 34 30 30 43 43 3a 6d  73 67 62 25 21 32 34 3d  |&400CC:msgb%!24=|
00009eb0  30 0d 37 1e 1b 20 24 28  6d 73 67 62 25 2b 32 38  |0.7.. $(msgb%+28|
00009ec0  29 3d 22 62 61 72 22 2b  bd 28 30 29 0d 37 28 06  |)="bar"+.(0).7(.|
00009ed0  20 e1 0d 37 32 06 20 3a  0d 37 3c 0c 20 dd 20 f2  | ..72. :.7<. . .|
00009ee0  7a 65 72 6f 0d 37 46 22  20 24 72 64 74 25 3d 22  |zero.7F" $rdt%="|
00009ef0  30 22 3a 24 67 64 74 25  3d 22 30 22 3a 24 62 64  |0":$gdt%="0":$bd|
00009f00  74 25 3d 22 30 22 0d 37  50 22 20 24 72 68 74 25  |t%="0".7P" $rht%|
00009f10  3d 22 30 22 3a 24 67 68  74 25 3d 22 30 22 3a 24  |="0":$ght%="0":$|
00009f20  62 68 74 25 3d 22 30 22  0d 37 5a 22 20 24 72 62  |bht%="0".7Z" $rb|
00009f30  74 25 3d 22 30 22 3a 24  67 62 74 25 3d 22 30 22  |t%="0":$gbt%="0"|
00009f40  3a 24 62 62 74 25 3d 22  30 22 0d 37 64 06 20 e1  |:$bbt%="0".7d. .|
00009f50  0d 37 6e 06 20 3a 0d 37  78 0f 20 dd 20 f2 73 74  |.7n. :.7x. . .st|
00009f60  72 69 6e 67 73 0d 37 82  14 20 24 69 63 25 3d 22  |rings.7.. $ic%="|
00009f70  69 63 6f 6e 5f 62 61 72  22 0d 37 8c 18 20 24 64  |icon_bar".7.. $d|
00009f80  65 73 25 3d 22 43 6f 6c  6f 75 72 20 43 75 62 65  |es%="Colour Cube|
00009f90  22 0d 37 96 20 20 77 74  24 28 30 29 3d 22 32 35  |".7.  wt$(0)="25|
00009fa0  36 20 43 6f 6c 6f 75 72  20 44 69 73 70 6c 61 79  |6 Colour Display|
00009fb0  22 0d 37 a0 20 20 77 74  24 28 31 29 3d 22 43 4f  |".7.  wt$(1)="CO|
00009fc0  4c 4f 55 52 2f 47 43 4f  4c 20 26 20 54 49 4e 54  |LOUR/GCOL & TINT|
00009fd0  22 0d 37 aa 23 20 77 74  24 28 32 29 3d 22 4f 70  |".7.# wt$(2)="Op|
00009fe0  65 72 61 74 69 6e 67 20  53 79 73 74 65 6d 20 47  |erating System G|
00009ff0  43 4f 4c 22 0d 37 b4 23  20 77 74 24 28 33 29 3d  |COL".7.# wt$(3)=|
0000a000  22 4c 6f 67 69 63 61 6c  20 43 6f 6c 6f 75 72 20  |"Logical Colour |
0000a010  4e 55 4d 42 45 52 22 0d  37 be 23 20 77 74 24 28  |NUMBER".7.# wt$(|
0000a020  34 29 3d 22 42 4c 55 45  b7 47 52 45 45 4e b7 52  |4)="BLUE.GREEN.R|
0000a030  45 44 20 28 48 65 78 2e  29 22 0d 37 c8 25 20 77  |ED (Hex.)".7.% w|
0000a040  74 24 28 35 29 3d 22 66  6f 72 20 32 35 36 20 63  |t$(5)="for 256 c|
0000a050  6f 6c 6f 75 72 20 6d 6f  64 65 20 75 73 65 22 0d  |olour mode use".|
0000a060  37 d2 11 20 69 6d 30 24  3d 22 49 6e 66 6f 2e 22  |7.. im0$="Info."|
0000a070  0d 37 dc 11 20 69 6d 31  24 3d 22 45 6e 74 72 79  |.7.. im1$="Entry|
0000a080  22 0d 37 e6 11 20 69 6d  32 24 3d 22 43 6c 65 61  |".7.. im2$="Clea|
0000a090  72 22 0d 37 f0 10 20 69  6d 33 24 3d 22 51 75 69  |r".7.. im3$="Qui|
0000a0a0  74 22 0d 37 fa 14 20 6d  24 28 30 29 3d 22 4f 70  |t".7.. m$(0)="Op|
0000a0b0  74 69 6f 6e 73 22 0d 38  04 11 20 6d 24 28 31 29  |tions".8.. m$(1)|
0000a0c0  3d 22 53 68 6f 77 22 0d  38 0e 13 20 6d 24 28 32  |="Show".8.. m$(2|
0000a0d0  29 3d 22 43 6f 6c 6f 75  72 22 0d 38 18 11 20 6d  |)="Colour".8.. m|
0000a0e0  24 28 33 29 3d 22 54 69  6e 74 22 0d 38 22 18 20  |$(3)="Tint".8". |
0000a0f0  6d 24 28 34 29 3d 22 44  65 73 69 67 6e 61 74 69  |m$(4)="Designati|
0000a100  6f 6e 22 0d 38 2c 15 20  6d 24 28 35 29 3d 22 43  |on".8,. m$(5)="C|
0000a110  6f 6c 2f 54 69 6e 74 22  0d 38 36 11 20 6d 24 28  |ol/Tint".86. m$(|
0000a120  36 29 3d 22 47 43 4f 4c  22 0d 38 40 13 20 6d 24  |6)="GCOL".8@. m$|
0000a130  28 37 29 3d 22 4e 75 6d  62 65 72 22 0d 38 4a 16  |(7)="Number".8J.|
0000a140  20 6d 24 28 38 29 3d 22  42 b7 47 b7 52 20 28 26  | m$(8)="B.G.R (&|
0000a150  29 22 0d 38 54 12 20 6d  24 28 39 29 3d 22 53 63  |)".8T. m$(9)="Sc|
0000a160  61 6c 65 22 0d 38 5e 14  20 6d 24 28 31 30 29 3d  |ale".8^. m$(10)=|
0000a170  22 53 63 72 6f 6c 6c 22  0d 38 68 12 20 6d 24 28  |"Scroll".8h. m$(|
0000a180  31 31 29 3d 22 42 61 73  65 22 0d 38 72 13 20 6d  |11)="Base".8r. m|
0000a190  24 28 31 32 29 3d 22 52  69 67 68 74 22 0d 38 7c  |$(12)="Right".8||
0000a1a0  12 20 6d 24 28 31 33 29  3d 22 4c 65 66 74 22 0d  |. m$(13)="Left".|
0000a1b0  38 86 13 20 6d 24 28 31  34 29 3d 22 54 69 74 6c  |8.. m$(14)="Titl|
0000a1c0  65 22 0d 38 90 14 20 6d  24 28 31 35 29 3d 22 42  |e".8.. m$(15)="B|
0000a1d0  69 6e 61 72 79 22 0d 38  9a 15 20 6d 24 28 31 36  |inary".8.. m$(16|
0000a1e0  29 3d 22 44 65 63 69 6d  61 6c 22 0d 38 a4 19 20  |)="Decimal".8.. |
0000a1f0  6d 24 28 31 37 29 3d 22  48 65 78 61 64 65 63 69  |m$(17)="Hexadeci|
0000a200  6d 61 6c 22 0d 38 ae 11  20 6d 24 28 31 38 29 3d  |mal".8.. m$(18)=|
0000a210  22 52 65 64 22 0d 38 b8  13 20 6d 24 28 31 39 29  |"Red".8.. m$(19)|
0000a220  3d 22 47 72 65 65 6e 22  0d 38 c2 12 20 6d 24 28  |="Green".8.. m$(|
0000a230  32 30 29 3d 22 42 6c 75  65 22 0d 38 cc 11 20 6d  |20)="Blue".8.. m|
0000a240  24 28 32 31 29 3d 22 4f  66 66 22 0d 38 d6 13 20  |$(21)="Off".8.. |
0000a250  6d 24 28 32 32 29 3d 22  43 6c 65 61 72 22 0d 38  |m$(22)="Clear".8|
0000a260  e0 13 20 6d 24 28 32 33  29 3d 22 45 6e 74 65 72  |.. m$(23)="Enter|
0000a270  22 0d 38 ea 11 20 6d 24  28 32 34 29 3d 22 52 47  |".8.. m$(24)="RG|
0000a280  42 22 0d 38 f4 11 20 6d  24 28 32 35 29 3d 22 43  |B".8.. m$(25)="C|
0000a290  4d 59 22 0d 38 fe 13 20  6d 24 28 32 36 29 3d 22  |MY".8.. m$(26)="|
0000a2a0  50 6c 61 69 6e 22 0d 39  08 11 20 6d 24 28 32 37  |Plain".9.. m$(27|
0000a2b0  29 3d 22 45 43 46 22 0d  39 12 12 20 6d 24 28 32  |)="ECF".9.. m$(2|
0000a2c0  38 29 3d 22 43 79 61 6e  22 0d 39 1c 15 20 6d 24  |8)="Cyan".9.. m$|
0000a2d0  28 32 39 29 3d 22 4d 61  67 65 6e 74 61 22 0d 39  |(29)="Magenta".9|
0000a2e0  26 14 20 6d 24 28 33 30  29 3d 22 59 65 6c 6c 6f  |&. m$(30)="Yello|
0000a2f0  77 22 0d 39 30 11 20 6d  24 28 33 31 29 3d 22 4b  |w".90. m$(31)="K|
0000a300  65 79 22 0d 39 3a 17 20  6d 24 28 33 32 29 3d 22  |ey".9:. m$(32)="|
0000a310  4e 75 6d 62 65 72 b7 b7  50 22 0d 39 44 13 20 6d  |Number..P".9D. m|
0000a320  24 28 33 33 29 3d 22 53  74 6f 72 65 22 0d 39 4e  |$(33)="Store".9N|
0000a330  0f 20 6d 24 28 33 34 29  3d 22 30 22 0d 39 58 0f  |. m$(34)="0".9X.|
0000a340  20 6d 24 28 33 35 29 3d  22 31 22 0d 39 62 0f 20  | m$(35)="1".9b. |
0000a350  6d 24 28 33 36 29 3d 22  32 22 0d 39 6c 0f 20 6d  |m$(36)="2".9l. m|
0000a360  24 28 33 37 29 3d 22 33  22 0d 39 76 0f 20 6d 24  |$(37)="3".9v. m$|
0000a370  28 33 38 29 3d 22 34 22  0d 39 80 0e 20 6d 24 28  |(38)="4".9.. m$(|
0000a380  33 39 29 3d 22 22 0d 39  8a 14 20 6d 24 28 34 30  |39)="".9.. m$(40|
0000a390  29 3d 22 41 43 54 49 56  45 22 0d 39 94 15 20 6d  |)="ACTIVE".9.. m|
0000a3a0  24 28 34 31 29 3d 22 43  61 70 74 75 72 65 22 0d  |$(41)="Capture".|
0000a3b0  39 9e 13 20 6d 24 28 34  32 29 3d 22 44 65 6c 61  |9.. m$(42)="Dela|
0000a3c0  79 22 0d 39 a8 0f 20 6d  24 28 34 33 29 3d 22 38  |y".9.. m$(43)="8|
0000a3d0  22 0d 39 b2 10 20 6d 24  28 34 34 29 3d 22 31 36  |".9.. m$(44)="16|
0000a3e0  22 0d 39 bc 1a 20 6d 24  28 34 35 29 3d 22 63 68  |".9.. m$(45)="ch|
0000a3f0  61 6e 67 65 20 6d 6f 64  65 3f 22 0d 39 c6 22 20  |ange mode?".9." |
0000a400  6d 24 28 34 36 29 3d 22  31 35 20 28 54 56 20 73  |m$(46)="15 (TV s|
0000a410  74 61 6e 64 61 72 64 2d  52 47 42 29 22 0d 39 d0  |tandard-RGB)".9.|
0000a420  22 20 6d 24 28 34 37 29  3d 22 32 38 20 28 4d 75  |" m$(47)="28 (Mu|
0000a430  6c 74 69 73 63 61 6e 20  2f 20 56 47 41 29 22 0d  |ltiscan / VGA)".|
0000a440  39 da 27 20 6d 24 28 34  38 29 3d 22 32 35 36 2d  |9.' m$(48)="256-|
0000a450  63 6f 6c 6f 75 72 20 6f  70 74 69 6f 6e 20 75 74  |colour option ut|
0000a460  69 6c 69 74 79 22 0d 39  e4 26 20 6d 24 28 34 39  |ility".9.& m$(49|
0000a470  29 3d 22 a9 20 41 63 6f  72 6e 20 41 72 63 68 69  |)=". Acorn Archi|
0000a480  6d 65 64 65 73 20 57 6f  72 6c 64 22 0d 39 ee 1e  |medes World".9..|
0000a490  20 6d 24 28 35 30 29 3d  22 33 2e 31 30 20 28 4a  | m$(50)="3.10 (J|
0000a4a0  75 6c 79 20 31 39 39 34  29 22 0d 39 f8 1f 20 6d  |uly 1994)".9.. m|
0000a4b0  24 28 35 31 29 3d 22 3c  43 6f 6c 6f 75 72 43 75  |$(51)="<ColourCu|
0000a4c0  62 65 24 44 69 72 3e 2e  22 0d 3a 02 13 20 6d 24  |be$Dir>.".:.. m$|
0000a4d0  28 35 32 29 3d 22 4e 61  6d 65 3a 22 0d 3a 0c 16  |(52)="Name:".:..|
0000a4e0  20 6d 24 28 35 33 29 3d  22 50 75 72 70 6f 73 65  | m$(53)="Purpose|
0000a4f0  3a 22 0d 3a 16 16 20 6d  24 28 35 34 29 3d 22 56  |:".:.. m$(54)="V|
0000a500  65 72 73 69 6f 6e 3a 22  0d 3a 20 15 20 6d 24 28  |ersion:".: . m$(|
0000a510  35 35 29 3d 22 4e 6f 74  69 63 65 3a 22 0d 3a 2a  |55)="Notice:".:*|
0000a520  06 20 e1 0d 3a 34 06 20  3a 0d 3a 3e 2f 20 dd 20  |. ..:4. :.:>/ . |
0000a530  f2 73 70 72 69 74 65 3a  21 62 73 25 3d 73 7a 25  |.sprite:!bs%=sz%|
0000a540  3a 62 73 25 21 38 3d 31  36 3a c8 99 73 70 25 2c  |:bs%!8=16:..sp%,|
0000a550  26 31 30 39 2c 62 73 25  0d 3a 48 20 20 c8 99 73  |&109,bs%.:H  ..s|
0000a560  70 25 2c 26 31 30 41 2c  62 73 25 2c 77 64 24 2b  |p%,&10A,bs%,wd$+|
0000a570  22 76 69 73 75 61 6c 22  0d 3a 52 22 20 c8 99 73  |"visual".:R" ..s|
0000a580  70 25 2c 26 31 31 38 2c  62 73 25 2c 22 48 65 78  |p%,&118,bs%,"Hex|
0000a590  32 35 36 22 b8 2c 2c 68  78 25 0d 3a 5c 1e 20 c8  |256".,,hx%.:\. .|
0000a5a0  99 73 70 25 2c 26 31 31  38 2c 62 73 25 2c 22 71  |.sp%,&118,bs%,"q|
0000a5b0  74 22 b8 2c 2c 71 74 25  0d 3a 66 1e 20 c8 99 73  |t".,,qt%.:f. ..s|
0000a5c0  70 25 2c 26 31 31 38 2c  62 73 25 2c 22 74 30 22  |p%,&118,bs%,"t0"|
0000a5d0  b8 2c 2c 74 30 25 0d 3a  70 20 20 c8 99 73 70 25  |.,,t0%.:p  ..sp%|
0000a5e0  2c 26 31 31 38 2c 62 73  25 2c 22 74 33 37 22 b8  |,&118,bs%,"t37".|
0000a5f0  2c 2c 74 33 37 25 0d 3a  7a 20 20 c8 99 73 70 25  |,,t37%.:z  ..sp%|
0000a600  2c 26 31 31 38 2c 62 73  25 2c 22 74 33 38 22 b8  |,&118,bs%,"t38".|
0000a610  2c 2c 74 33 38 25 0d 3a  84 20 20 c8 99 73 70 25  |,,t38%.:.  ..sp%|
0000a620  2c 26 31 31 38 2c 62 73  25 2c 22 74 33 39 22 b8  |,&118,bs%,"t39".|
0000a630  2c 2c 74 33 39 25 0d 3a  8e 20 20 c8 99 73 70 25  |,,t39%.:.  ..sp%|
0000a640  2c 26 31 31 38 2c 62 73  25 2c 22 74 34 30 22 b8  |,&118,bs%,"t40".|
0000a650  2c 2c 74 34 30 25 0d 3a  98 1e 20 c8 99 73 70 25  |,,t40%.:.. ..sp%|
0000a660  2c 26 31 31 38 2c 62 73  25 2c 22 74 37 22 b8 2c  |,&118,bs%,"t7".,|
0000a670  2c 74 37 25 0d 3a a2 1e  20 c8 99 73 70 25 2c 26  |,t7%.:.. ..sp%,&|
0000a680  31 31 38 2c 62 73 25 2c  22 74 38 22 b8 2c 2c 74  |118,bs%,"t8".,,t|
0000a690  38 25 0d 3a ac 1e 20 c8  99 73 70 25 2c 26 31 31  |8%.:.. ..sp%,&11|
0000a6a0  38 2c 62 73 25 2c 22 74  39 22 b8 2c 2c 74 39 25  |8,bs%,"t9".,,t9%|
0000a6b0  0d 3a b6 20 20 c8 99 73  70 25 2c 26 31 31 38 2c  |.:.  ..sp%,&118,|
0000a6c0  62 73 25 2c 22 69 6f 66  22 b8 2c 2c 69 6f 66 25  |bs%,"iof".,,iof%|
0000a6d0  0d 3a c0 20 20 c8 99 73  70 25 2c 26 31 31 38 2c  |.:.  ..sp%,&118,|
0000a6e0  62 73 25 2c 22 69 6f 6e  22 b8 2c 2c 69 6f 6e 25  |bs%,"ion".,,ion%|
0000a6f0  0d 3a ca 20 20 c8 99 73  70 25 2c 26 31 31 38 2c  |.:.  ..sp%,&118,|
0000a700  62 73 25 2c 22 64 6d 6e  22 b8 2c 2c 64 6d 6e 25  |bs%,"dmn".,,dmn%|
0000a710  0d 3a d4 20 20 c8 99 73  70 25 2c 26 31 31 38 2c  |.:.  ..sp%,&118,|
0000a720  62 73 25 2c 22 63 78 6e  22 b8 2c 2c 63 78 6e 25  |bs%,"cxn".,,cxn%|
0000a730  0d 3a de 20 20 c8 99 73  70 25 2c 26 31 31 38 2c  |.:.  ..sp%,&118,|
0000a740  62 73 25 2c 22 63 78 6f  22 b8 2c 2c 63 78 6f 25  |bs%,"cxo".,,cxo%|
0000a750  0d 3a e8 20 20 c8 99 73  70 25 2c 26 31 31 38 2c  |.:.  ..sp%,&118,|
0000a760  62 73 25 2c 22 64 6d 66  22 b8 2c 2c 64 6d 66 25  |bs%,"dmf".,,dmf%|
0000a770  0d 3a f2 20 20 c8 99 73  70 25 2c 26 31 31 38 2c  |.:.  ..sp%,&118,|
0000a780  62 73 25 2c 22 73 72 66  22 b8 2c 2c 73 72 66 25  |bs%,"srf".,,srf%|
0000a790  0d 3a fc 20 20 c8 99 73  70 25 2c 26 31 31 38 2c  |.:.  ..sp%,&118,|
0000a7a0  62 73 25 2c 22 73 72 6e  22 b8 2c 2c 73 72 6e 25  |bs%,"srn".,,srn%|
0000a7b0  0d 3b 06 06 20 e1 0d 3b  10 06 20 3a 0d 3b 1a 13  |.;.. ..;.. :.;..|
0000a7c0  20 dd 20 a4 63 72 65 61  74 65 5f 69 63 6f 6e 0d  | . .create_icon.|
0000a7d0  3b 24 30 20 21 62 30 25  3d 2d 31 3a 62 30 25 21  |;$0 !b0%=-1:b0%!|
0000a7e0  34 3d 30 3a 62 30 25 21  38 3d 30 3a 62 30 25 21  |4=0:b0%!8=0:b0%!|
0000a7f0  31 32 3d 36 34 3a 62 30  25 21 31 36 3d 37 32 0d  |12=64:b0%!16=72.|
0000a800  3b 2e 25 20 62 30 25 21  32 30 3d 26 33 31 30 32  |;.% b0%!20=&3102|
0000a810  3a 62 30 25 21 32 34 3d  69 63 25 3a 62 30 25 21  |:b0%!24=ic%:b0%!|
0000a820  32 38 3d 31 0d 3b 38 28  20 62 30 25 21 33 32 3d  |28=1.;8( b0%!32=|
0000a830  a9 28 24 69 63 25 29 3a  c8 99 77 6a 25 2c 2c 62  |.($ic%):..wj%,,b|
0000a840  30 25 20 b8 20 68 61 6e  64 6c 65 25 0d 3b 42 0d  |0% . handle%.;B.|
0000a850  20 3d 68 61 6e 64 6c 65  25 0d 3b 4c 06 20 3a 0d  | =handle%.;L. :.|
0000a860  3b 56 11 20 dd 20 a4 63  72 65 61 74 65 5f 77 31  |;V. . .create_w1|
0000a870  0d 3b 60 2d 20 77 31 25  21 30 3d 65 31 25 3a 77  |.;`- w1%!0=e1%:w|
0000a880  31 25 21 34 3d 66 31 25  3a 77 31 25 21 38 3d 67  |1%!4=f1%:w1%!8=g|
0000a890  31 25 3a 77 31 25 21 31  32 3d 68 31 25 0d 3b 6a  |1%:w1%!12=h1%.;j|
0000a8a0  31 20 77 31 25 21 31 36  3d 30 3a 77 31 25 21 32  |1 w1%!16=0:w1%!2|
0000a8b0  30 3d 30 3a 77 31 25 21  32 34 3d 2d 31 3a 77 31  |0=0:w1%!24=-1:w1|
0000a8c0  25 21 32 38 3d 26 46 46  30 30 30 30 30 32 0d 3b  |%!28=&FF000002.;|
0000a8d0  74 2a 20 77 31 25 3f 33  32 3d 37 3a 77 31 25 3f  |t* w1%?32=7:w1%?|
0000a8e0  33 33 3d 32 3a 77 31 25  3f 33 34 3d 37 3a 77 31  |33=2:w1%?34=7:w1|
0000a8f0  25 3f 33 35 3d 26 46 46  0d 3b 7e 29 20 77 31 25  |%?35=&FF.;~) w1%|
0000a900  3f 33 36 3d 33 3a 77 31  25 3f 33 37 3d 31 3a 77  |?36=3:w1%?37=1:w|
0000a910  31 25 3f 33 38 3d 31 32  3a 77 31 25 3f 33 39 3d  |1%?38=12:w1%?39=|
0000a920  30 0d 3b 88 30 20 77 31  25 21 34 30 3d 69 31 25  |0.;.0 w1%!40=i1%|
0000a930  3a 77 31 25 21 34 34 3d  6a 31 25 3a 77 31 25 21  |:w1%!44=j1%:w1%!|
0000a940  34 38 3d 6b 31 25 3a 77  31 25 21 35 32 3d 6c 31  |48=k1%:w1%!52=l1|
0000a950  25 0d 3b 92 39 20 77 31  25 21 35 36 3d 26 31 31  |%.;.9 w1%!56=&11|
0000a960  39 3a 77 31 25 21 36 30  3d 62 66 25 3a 77 31 25  |9:w1%!60=bf%:w1%|
0000a970  21 36 34 3d 31 3a 77 31  25 21 36 38 3d 36 38 3a  |!64=1:w1%!68=68:|
0000a980  77 31 25 21 37 30 3d 31  30 38 0d 3b 9c 31 20 77  |w1%!70=108.;.1 w|
0000a990  31 25 21 37 32 3d 77 74  25 3a 77 31 25 21 37 36  |1%!72=wt%:w1%!76|
0000a9a0  3d 2d 31 3a 77 31 25 21  38 30 3d a9 28 24 77 74  |=-1:w1%!80=.($wt|
0000a9b0  25 29 3a 77 31 25 21 38  34 3d 30 0d 3b a6 1b 20  |%):w1%!84=0.;.. |
0000a9c0  c8 99 20 77 77 25 20 2c  2c 77 31 25 20 b8 20 68  |.. ww% ,,w1% . h|
0000a9d0  61 6e 64 6c 65 25 0d 3b  b0 0d 20 3d 68 61 6e 64  |andle%.;.. =hand|
0000a9e0  6c 65 25 0d 3b ba 06 20  3a 0d 3b c4 11 20 dd 20  |le%.;.. :.;.. . |
0000a9f0  a4 63 72 65 61 74 65 5f  77 30 0d 3b ce 2a 20 77  |.create_w0.;.* w|
0000aa00  30 25 21 30 3d 30 3a 77  30 25 21 34 3d 2d 32 34  |0%!0=0:w0%!4=-24|
0000aa10  30 3a 77 30 25 21 38 3d  35 39 38 3a 77 30 25 21  |0:w0%!8=598:w0%!|
0000aa20  31 32 3d 30 0d 3b d8 31  20 77 30 25 21 31 36 3d  |12=0.;.1 w0%!16=|
0000aa30  30 3a 77 30 25 21 32 30  3d 30 3a 77 30 25 21 32  |0:w0%!20=0:w0%!2|
0000aa40  34 3d 2d 31 3a 77 30 25  21 32 38 3d 26 38 37 30  |4=-1:w0%!28=&870|
0000aa50  30 30 30 31 32 0d 3b e2  28 20 77 30 25 3f 33 32  |00012.;.( w0%?32|
0000aa60  3d 37 3a 77 30 25 3f 33  33 3d 32 3a 77 30 25 3f  |=7:w0%?33=2:w0%?|
0000aa70  33 34 3d 37 3a 77 30 25  3f 33 35 3d 31 0d 3b ec  |34=7:w0%?35=1.;.|
0000aa80  29 20 77 30 25 3f 33 36  3d 33 3a 77 30 25 3f 33  |) w0%?36=3:w0%?3|
0000aa90  37 3d 31 3a 77 30 25 3f  33 38 3d 31 32 3a 77 30  |7=1:w0%?38=12:w0|
0000aaa0  25 3f 33 39 3d 30 0d 3b  f6 2d 20 77 30 25 21 34  |%?39=0.;.- w0%!4|
0000aab0  30 3d 30 3a 77 30 25 21  34 34 3d 2d 32 34 30 3a  |0=0:w0%!44=-240:|
0000aac0  77 30 25 21 34 38 3d 35  39 38 3a 77 30 25 21 35  |w0%!48=598:w0%!5|
0000aad0  32 3d 30 0d 3c 00 2f 20  77 30 25 21 35 36 3d 69  |2=0.<./ w0%!56=i|
0000aae0  74 66 25 3a 77 30 25 21  36 30 3d 30 3a 77 30 25  |tf%:w0%!60=0:w0%|
0000aaf0  21 36 34 3d 62 73 25 3a  77 30 25 21 36 38 3d 35  |!64=bs%:w0%!68=5|
0000ab00  39 38 0d 3c 0a 37 20 77  30 25 21 37 30 3d 32 34  |98.<.7 w0%!70=24|
0000ab10  30 3a 77 30 25 21 37 32  3d 74 30 25 3a 77 30 25  |0:w0%!72=t0%:w0%|
0000ab20  21 37 36 3d 62 73 25 3a  77 30 25 21 38 30 3d 30  |!76=bs%:w0%!80=0|
0000ab30  3a 77 30 25 21 38 34 3d  39 0d 3c 14 31 20 77 30  |:w0%!84=9.<.1 w0|
0000ab40  25 21 38 38 3d 32 35 32  3a 77 30 25 21 39 32 3d  |%!88=252:w0%!92=|
0000ab50  2d 38 30 3a 77 30 25 21  39 36 3d 35 39 32 3a 77  |-80:w0%!96=592:w|
0000ab60  30 25 21 31 30 30 3d 2d  32 38 0d 3c 1e 3a 20 77  |0%!100=-28.<.: w|
0000ab70  30 25 21 31 30 34 3d 69  6e 66 25 3a 77 30 25 21  |0%!104=inf%:w0%!|
0000ab80  31 30 38 3d 64 65 73 25  3a 77 30 25 21 31 31 32  |108=des%:w0%!112|
0000ab90  3d 2d 31 3a 77 30 25 21  31 31 36 3d a9 28 24 64  |=-1:w0%!116=.($d|
0000aba0  65 73 25 29 0d 3c 28 35  20 77 30 25 21 31 32 30  |es%).<(5 w0%!120|
0000abb0  3d 31 36 30 3a 77 30 25  21 31 32 34 3d 2d 31 33  |=160:w0%!124=-13|
0000abc0  32 3a 77 30 25 21 31 32  38 3d 35 39 32 3a 77 30  |2:w0%!128=592:w0|
0000abd0  25 21 31 33 32 3d 2d 38  34 0d 3c 32 3a 20 77 30  |%!132=-84.<2: w0|
0000abe0  25 21 31 33 36 3d 69 6e  66 25 3a 77 30 25 21 31  |%!136=inf%:w0%!1|
0000abf0  34 30 3d 69 6e 31 25 3a  77 30 25 21 31 34 34 3d  |40=in1%:w0%!144=|
0000ac00  2d 31 3a 77 30 25 21 31  34 38 3d a9 28 24 69 6e  |-1:w0%!148=.($in|
0000ac10  31 25 29 0d 3c 3c 36 20  77 30 25 21 31 35 32 3d  |1%).<<6 w0%!152=|
0000ac20  31 36 30 3a 77 30 25 21  31 35 36 3d 2d 31 38 34  |160:w0%!156=-184|
0000ac30  3a 77 30 25 21 31 36 30  3d 35 39 32 3a 77 30 25  |:w0%!160=592:w0%|
0000ac40  21 31 36 34 3d 2d 31 33  36 0d 3c 46 3a 20 77 30  |!164=-136.<F: w0|
0000ac50  25 21 31 36 38 3d 69 6e  66 25 3a 77 30 25 21 31  |%!168=inf%:w0%!1|
0000ac60  37 32 3d 69 6e 33 25 3a  77 30 25 21 31 37 36 3d  |72=in3%:w0%!176=|
0000ac70  2d 31 3a 77 30 25 21 31  38 30 3d a9 28 24 69 6e  |-1:w0%!180=.($in|
0000ac80  33 25 29 0d 3c 50 36 20  77 30 25 21 31 38 34 3d  |3%).<P6 w0%!184=|
0000ac90  31 36 30 3a 77 30 25 21  31 38 38 3d 2d 32 33 36  |160:w0%!188=-236|
0000aca0  3a 77 30 25 21 31 39 32  3d 35 39 32 3a 77 30 25  |:w0%!192=592:w0%|
0000acb0  21 31 39 36 3d 2d 31 38  38 0d 3c 5a 3a 20 77 30  |!196=-188.<Z: w0|
0000acc0  25 21 32 30 30 3d 69 6e  66 25 3a 77 30 25 21 32  |%!200=inf%:w0%!2|
0000acd0  30 34 3d 69 6e 32 25 3a  77 30 25 21 32 30 38 3d  |04=in2%:w0%!208=|
0000ace0  2d 31 3a 77 30 25 21 32  31 32 3d a9 28 24 69 6e  |-1:w0%!212=.($in|
0000acf0  32 25 29 0d 3c 64 33 20  77 30 25 21 32 31 36 3d  |2%).<d3 w0%!216=|
0000ad00  34 38 3a 77 30 25 21 32  32 30 3d 2d 37 36 3a 77  |48:w0%!220=-76:w|
0000ad10  30 25 21 32 32 34 3d 31  31 38 3a 77 30 25 21 32  |0%!224=118:w0%!2|
0000ad20  32 38 3d 2d 31 32 0d 3c  6e 3b 20 77 30 25 21 32  |28=-12.<n; w0%!2|
0000ad30  33 32 3d 26 31 37 30 31  39 31 33 42 3a 77 30 25  |32=&1701913B:w0%|
0000ad40  21 32 33 36 3d 6e 75 6c  6c 25 3a 77 30 25 21 32  |!236=null%:w0%!2|
0000ad50  34 30 3d 64 6d 73 25 3a  77 30 25 21 32 34 34 3d  |40=dms%:w0%!244=|
0000ad60  31 0d 3c 78 34 20 77 30  25 21 32 34 38 3d 31 36  |1.<x4 w0%!248=16|
0000ad70  30 3a 77 30 25 21 32 35  32 3d 2d 38 30 3a 77 30  |0:w0%!252=-80:w0|
0000ad80  25 21 32 35 36 3d 32 34  38 3a 77 30 25 21 32 36  |%!256=248:w0%!26|
0000ad90  30 3d 2d 32 38 0d 3c 82  3e 20 77 30 25 21 32 36  |0=-28.<.> w0%!26|
0000ada0  34 3d 26 37 30 30 30 33  31 31 3a 77 30 25 21 32  |4=&7000311:w0%!2|
0000adb0  36 38 3d 69 6e 34 25 3a  77 30 25 21 32 37 32 3d  |68=in4%:w0%!272=|
0000adc0  2d 31 3a 77 30 25 21 32  37 36 3d a9 28 24 69 6e  |-1:w0%!276=.($in|
0000add0  34 25 29 0d 3c 8c 33 20  77 30 25 21 32 38 30 3d  |4%).<.3 w0%!280=|
0000ade0  36 3a 77 30 25 21 32 38  34 3d 2d 31 33 32 3a 77  |6:w0%!284=-132:w|
0000adf0  30 25 21 32 38 38 3d 31  35 36 3a 77 30 25 21 32  |0%!288=156:w0%!2|
0000ae00  39 32 3d 2d 38 34 0d 3c  96 3e 20 77 30 25 21 32  |92=-84.<.> w0%!2|
0000ae10  39 36 3d 26 37 30 30 30  33 31 31 3a 77 30 25 21  |96=&7000311:w0%!|
0000ae20  33 30 30 3d 69 6e 35 25  3a 77 30 25 21 33 30 34  |300=in5%:w0%!304|
0000ae30  3d 2d 31 3a 77 30 25 21  33 30 38 3d a9 28 24 69  |=-1:w0%!308=.($i|
0000ae40  6e 35 25 29 0d 3c a0 34  20 77 30 25 21 33 31 32  |n5%).<.4 w0%!312|
0000ae50  3d 36 3a 77 30 25 21 33  31 36 3d 2d 31 38 34 3a  |=6:w0%!316=-184:|
0000ae60  77 30 25 21 33 32 30 3d  31 35 36 3a 77 30 25 21  |w0%!320=156:w0%!|
0000ae70  33 32 34 3d 2d 31 33 36  0d 3c aa 3e 20 77 30 25  |324=-136.<.> w0%|
0000ae80  21 33 32 38 3d 26 37 30  30 30 33 31 31 3a 77 30  |!328=&7000311:w0|
0000ae90  25 21 33 33 32 3d 69 6e  36 25 3a 77 30 25 21 33  |%!332=in6%:w0%!3|
0000aea0  33 36 3d 2d 31 3a 77 30  25 21 33 34 30 3d a9 28  |36=-1:w0%!340=.(|
0000aeb0  24 69 6e 36 25 29 0d 3c  b4 34 20 77 30 25 21 33  |$in6%).<.4 w0%!3|
0000aec0  34 34 3d 36 3a 77 30 25  21 33 34 38 3d 2d 32 33  |44=6:w0%!348=-23|
0000aed0  36 3a 77 30 25 21 33 35  32 3d 31 35 36 3a 77 30  |6:w0%!352=156:w0|
0000aee0  25 21 33 35 36 3d 2d 31  38 38 0d 3c be 3e 20 77  |%!356=-188.<.> w|
0000aef0  30 25 21 33 36 30 3d 26  37 30 30 30 33 31 31 3a  |0%!360=&7000311:|
0000af00  77 30 25 21 33 36 34 3d  69 6e 37 25 3a 77 30 25  |w0%!364=in7%:w0%|
0000af10  21 33 36 38 3d 2d 31 3a  77 30 25 21 33 37 32 3d  |!368=-1:w0%!372=|
0000af20  a9 28 24 69 6e 37 25 29  0d 3c c8 1a 20 c8 99 20  |.($in7%).<.. .. |
0000af30  77 77 25 2c 2c 77 30 25  20 b8 20 68 61 6e 64 6c  |ww%,,w0% . handl|
0000af40  65 25 0d 3c d2 0d 20 3d  68 61 6e 64 6c 65 25 0d  |e%.<.. =handle%.|
0000af50  3c dc 06 20 3a 0d 3c e6  0c 20 dd 20 f2 64 65 6d  |<.. :.<.. . .dem|
0000af60  6f 0d 3c f0 10 20 e7 20  6d 69 25 3d 34 20 8b 20  |o.<.. . mi%=4 . |
0000af70  e1 0d 3c fa 35 20 c8 99  68 73 25 2c 31 3a f2 73  |..<.5 ..hs%,1:.s|
0000af80  68 75 74 3a c8 99 77 63  25 2c 2c 69 77 31 25 3a  |hut:..wc%,,iw1%:|
0000af90  c8 99 77 63 25 2c 2c 69  77 30 25 3a 63 6c 65 61  |..wc%,,iw0%:clea|
0000afa0  72 65 64 25 3d a3 0d 3d  04 27 20 77 69 64 74 68  |red%=..=.' width|
0000afb0  25 3d 38 34 3a 75 75 25  3d 30 3a 64 78 25 28 29  |%=84:uu%=0:dx%()|
0000afc0  3d 30 3a 64 78 25 28 75  75 25 29 3d 31 0d 3d 0e  |=0:dx%(uu%)=1.=.|
0000afd0  25 20 e7 20 67 6f 25 20  24 77 74 25 3d 77 74 24  |% . go% $wt%=wt$|
0000afe0  28 75 75 25 29 20 8b 24  77 74 25 3d 77 74 24 28  |(uu%) .$wt%=wt$(|
0000aff0  35 29 0d 3d 18 2c 20 73  63 61 6c 65 64 25 3d a3  |5).=., scaled%=.|
0000b000  3a 24 28 6d 62 31 25 2b  36 34 29 3d 6d 24 28 31  |:$(mb1%+64)=m$(1|
0000b010  30 29 3a f2 6d 65 6e 75  62 6c 6f 63 6b 32 0d 3d  |0):.menublock2.=|
0000b020  22 11 20 e3 20 69 74 25  3d 30 20 b8 20 33 36 0d  |". . it%=0 . 36.|
0000b030  3d 2c 2f 20 6a 32 25 3d  2d 34 34 2a 28 77 25 28  |=,/ j2%=-44*(w%(|
0000b040  69 74 25 2c 34 29 2b 31  29 3a 77 25 28 69 74 25  |it%,4)+1):w%(it%|
0000b050  2c 31 29 3d a4 63 72 65  61 74 65 5f 77 32 0d 3d  |,1)=.create_w2.=|
0000b060  36 0a 20 ed 20 69 74 25  0d 3d 40 15 20 f2 72 65  |6. . it%.=@. .re|
0000b070  63 6f 6e 73 74 72 75 63  74 28 33 38 29 0d 3d 4a  |construct(38).=J|
0000b080  39 20 77 31 25 21 30 3d  78 78 78 25 3a 77 31 25  |9 w1%!0=xxx%:w1%|
0000b090  21 34 3d 79 79 79 25 2b  6a 31 25 3a 77 31 25 21  |!4=yyy%+j1%:w1%!|
0000b0a0  38 3d 78 78 78 25 2b 35  32 36 3a 77 31 25 21 31  |8=xxx%+526:w1%!1|
0000b0b0  32 3d 79 79 79 25 0d 3d  54 2c 20 77 31 25 21 31  |2=yyy%.=T, w1%!1|
0000b0c0  36 3d 30 3a 77 31 25 21  32 30 3d 30 3a 77 31 25  |6=0:w1%!20=0:w1%|
0000b0d0  21 32 34 3d 2d 31 3a c8  99 77 6f 25 2c 2c 69 77  |!24=-1:..wo%,,iw|
0000b0e0  31 25 0d 3d 5e 12 20 e3  20 69 74 25 3d 33 30 20  |1%.=^. . it%=30 |
0000b0f0  b8 20 33 36 0d 3d 68 2c  20 f2 72 65 63 6f 6e 73  |. 36.=h, .recons|
0000b100  74 72 75 63 74 28 69 74  25 29 3a 69 77 32 25 21  |truct(it%):iw2%!|
0000b110  30 3d 77 25 28 64 69 73  70 6c 61 79 25 2c 31 29  |0=w%(display%,1)|
0000b120  0d 3d 72 21 20 77 32 25  21 30 3d 78 78 78 25 3a  |.=r! w2%!0=xxx%:|
0000b130  77 32 25 21 38 3d 78 78  78 25 2b 77 69 64 74 68  |w2%!8=xxx%+width|
0000b140  25 0d 3d 7c 31 20 77 32  25 21 31 32 3d 79 79 79  |%.=|1 w2%!12=yyy|
0000b150  25 3a 77 32 25 21 34 3d  79 79 79 25 2d 34 34 2a  |%:w2%!4=yyy%-44*|
0000b160  28 77 25 28 64 69 73 70  6c 61 79 25 2c 34 29 2b  |(w%(display%,4)+|
0000b170  31 29 0d 3d 86 1a 20 77  32 25 21 32 34 3d 2d 31  |1).=.. w2%!24=-1|
0000b180  3a c8 99 77 6f 25 2c 2c  69 77 32 25 0d 3d 90 0a  |:..wo%,,iw2%.=..|
0000b190  20 ed 20 69 74 25 0d 3d  9a 16 20 e3 20 69 74 25  | . it%.=.. . it%|
0000b1a0  3d 32 39 20 b8 20 30 20  88 20 2d 31 0d 3d a4 2c  |=29 . 0 . -1.=.,|
0000b1b0  20 f2 72 65 63 6f 6e 73  74 72 75 63 74 28 69 74  | .reconstruct(it|
0000b1c0  25 29 3a 69 77 32 25 21  30 3d 77 25 28 64 69 73  |%):iw2%!0=w%(dis|
0000b1d0  70 6c 61 79 25 2c 31 29  0d 3d ae 21 20 77 32 25  |play%,1).=.! w2%|
0000b1e0  21 30 3d 78 78 78 25 3a  77 32 25 21 38 3d 78 78  |!0=xxx%:w2%!8=xx|
0000b1f0  78 25 2b 77 69 64 74 68  25 0d 3d b8 31 20 77 32  |x%+width%.=.1 w2|
0000b200  25 21 31 32 3d 79 79 79  25 3a 77 32 25 21 34 3d  |%!12=yyy%:w2%!4=|
0000b210  79 79 79 25 2d 34 34 2a  28 77 25 28 64 69 73 70  |yyy%-44*(w%(disp|
0000b220  6c 61 79 25 2c 34 29 2b  31 29 0d 3d c2 1a 20 77  |lay%,4)+1).=.. w|
0000b230  32 25 21 32 34 3d 2d 31  3a c8 99 77 6f 25 2c 2c  |2%!24=-1:..wo%,,|
0000b240  69 77 32 25 0d 3d cc 0a  20 ed 20 69 74 25 0d 3d  |iw2%.=.. . it%.=|
0000b250  d6 0c 20 c8 99 68 66 25  3a e1 0d 3d e0 06 20 3a  |.. ..hf%:..=.. :|
0000b260  0d 3d ea 31 20 dd 20 f2  72 65 63 6f 6e 73 74 72  |.=.1 . .reconstr|
0000b270  75 63 74 28 6b 74 25 29  3a 64 69 73 70 6c 61 79  |uct(kt%):display|
0000b280  25 3d 3f 28 64 73 74 25  2b 28 6b 74 25 2a 35 29  |%=?(dst%+(kt%*5)|
0000b290  29 0d 3d f4 35 20 78 68  69 67 68 25 3d 3f 28 64  |).=.5 xhigh%=?(d|
0000b2a0  73 74 25 2b 28 6b 74 25  2a 35 29 2b 31 29 3a 78  |st%+(kt%*5)+1):x|
0000b2b0  6c 6f 77 25 3d 3f 28 64  73 74 25 2b 28 6b 74 25  |low%=?(dst%+(kt%|
0000b2c0  2a 35 29 2b 32 29 0d 3d  fe 35 20 79 68 69 67 68  |*5)+2).=.5 yhigh|
0000b2d0  25 3d 3f 28 64 73 74 25  2b 28 6b 74 25 2a 35 29  |%=?(dst%+(kt%*5)|
0000b2e0  2b 33 29 3a 79 6c 6f 77  25 3d 3f 28 64 73 74 25  |+3):ylow%=?(dst%|
0000b2f0  2b 28 6b 74 25 2a 35 29  2b 34 29 0d 3e 08 36 20  |+(kt%*5)+4).>.6 |
0000b300  78 78 78 25 3d 78 6c 6f  77 25 2b 28 26 31 30 30  |xxx%=xlow%+(&100|
0000b310  2a 78 68 69 67 68 25 29  3a 79 79 79 25 3d 79 6c  |*xhigh%):yyy%=yl|
0000b320  6f 77 25 2b 28 26 31 30  30 2a 79 68 69 67 68 25  |ow%+(&100*yhigh%|
0000b330  29 0d 3e 12 06 20 e1 0d  3e 1c 06 20 3a 0d 3e 26  |).>.. ..>.. :.>&|
0000b340  0a 20 dd 20 f2 64 64 0d  3e 30 18 20 64 65 6d 6f  |. . .dd.>0. demo|
0000b350  25 3d 8e 28 77 64 24 2b  22 44 65 6d 6f 22 29 0d  |%=.(wd$+"Demo").|
0000b360  3e 3a 0e 20 cf 23 64 65  6d 6f 25 3d 30 0d 3e 44  |>:. .#demo%=0.>D|
0000b370  12 20 e3 20 69 74 25 3d  30 20 b8 20 31 39 39 0d  |. . it%=0 . 199.|
0000b380  3e 4e 15 20 64 73 74 25  3f 69 74 25 3d 9a 23 64  |>N. dst%?it%=.#d|
0000b390  65 6d 6f 25 0d 3e 58 0a  20 ed 20 69 74 25 0d 3e  |emo%.>X. . it%.>|
0000b3a0  62 0c 20 d9 23 64 65 6d  6f 25 0d 3e 6c 06 20 e1  |b. .#demo%.>l. .|
0000b3b0  0d 3e 76 06 20 3a 0d 3e  80 0d 20 dd 20 f2 65 72  |.>v. :.>.. . .er|
0000b3c0  72 6f 72 0d 3e 8a 0c 20  21 65 72 62 25 3d 9f 0d  |ror.>.. !erb%=..|
0000b3d0  3e 94 35 20 24 28 65 72  62 25 2b 34 29 3d f6 24  |>.5 $(erb%+4)=.$|
0000b3e0  2b 22 28 69 6e 74 65 72  6e 61 6c 20 65 72 72 6f  |+"(internal erro|
0000b3f0  72 20 63 6f 64 65 20 22  2b c3 9e 2b 22 29 22 2b  |r code "+..+")"+|
0000b400  bd 28 30 29 0d 3e 9e 29  20 c8 99 77 72 65 25 2c  |.(0).>.) ..wre%,|
0000b410  65 72 62 25 2c 26 31 31  2c 22 73 68 6f 63 6b 20  |erb%,&11,"shock |
0000b420  68 6f 72 72 6f 72 20 63  72 61 73 68 22 0d 3e a8  |horror crash".>.|
0000b430  08 20 e0 3a e1 0d 3e b2  06 20 3a 0d 3e bc 0f 20  |. .:..>.. :.>.. |
0000b440  dd 20 f2 63 6f 6c 6f 75  72 73 0d 3e c6 1e 20 63  |. .colours.>.. c|
0000b450  6f 6c 6f 75 72 73 25 3d  8e 28 77 64 24 2b 22 43  |olours%=.(wd$+"C|
0000b460  6f 6c 6f 75 72 73 22 29  0d 3e d0 11 20 cf 23 63  |olours").>.. .#c|
0000b470  6f 6c 6f 75 72 73 25 3d  30 0d 3e da 12 20 e3 20  |olours%=0.>.. . |
0000b480  69 74 25 3d 30 20 b8 20  32 35 35 0d 3e e4 20 20  |it%=0 . 255.>.  |
0000b490  3f 28 6c 69 25 2b 28 34  2a 69 74 25 29 2b 33 29  |?(li%+(4*it%)+3)|
0000b4a0  3d 9a 23 63 6f 6c 6f 75  72 73 25 0d 3e ee 20 20  |=.#colours%.>.  |
0000b4b0  3f 28 6c 6a 25 2b 28 34  2a 69 74 25 29 2b 33 29  |?(lj%+(4*it%)+3)|
0000b4c0  3d 9a 23 63 6f 6c 6f 75  72 73 25 0d 3e f8 0a 20  |=.#colours%.>.. |
0000b4d0  ed 20 69 74 25 0d 3f 02  11 20 d9 23 63 6f 6c 6f  |. it%.?.. .#colo|
0000b4e0  75 72 73 25 3a e1 0d 3f  0c 06 20 3a 0d 3f 16 0f  |urs%:..?.. :.?..|
0000b4f0  20 dd 20 f2 73 68 75 66  66 6c 65 0d 3f 20 12 20  | . .shuffle.? . |
0000b500  e3 20 69 74 25 3d 30 20  b8 20 26 46 46 0d 3f 2a  |. it%=0 . &FF.?*|
0000b510  12 20 66 6c 25 3d 28 34  2a 69 74 25 29 2b 33 0d  |. fl%=(4*it%)+3.|
0000b520  3f 34 1a 20 f2 73 63 72  61 6d 62 6c 65 28 3f 28  |?4. .scramble(?(|
0000b530  6c 69 25 2b 66 6c 25 29  29 0d 3f 3e 10 20 e3 20  |li%+fl%)).?>. . |
0000b540  6a 74 25 3d 30 20 b8 20  33 0d 3f 48 22 20 3f 28  |jt%=0 . 3.?H" ?(|
0000b550  6c 69 25 2b 28 34 2a 69  74 25 29 2b 6a 74 25 29  |li%+(4*it%)+jt%)|
0000b560  3d 74 65 6d 70 25 28 6a  74 25 29 0d 3f 52 0a 20  |=temp%(jt%).?R. |
0000b570  ed 20 6a 74 25 0d 3f 5c  1a 20 f2 73 63 72 61 6d  |. jt%.?\. .scram|
0000b580  62 6c 65 28 3f 28 6c 6a  25 2b 66 6c 25 29 29 0d  |ble(?(lj%+fl%)).|
0000b590  3f 66 10 20 e3 20 6a 74  25 3d 30 20 b8 20 33 0d  |?f. . jt%=0 . 3.|
0000b5a0  3f 70 22 20 3f 28 6c 6a  25 2b 28 34 2a 69 74 25  |?p" ?(lj%+(4*it%|
0000b5b0  29 2b 6a 74 25 29 3d 74  65 6d 70 25 28 6a 74 25  |)+jt%)=temp%(jt%|
0000b5c0  29 0d 3f 7a 0a 20 ed 20  6a 74 25 0d 3f 84 0a 20  |).?z. . jt%.?.. |
0000b5d0  ed 20 69 74 25 0d 3f 8e  06 20 e1 0d 3f 98 06 20  |. it%.?.. ..?.. |
0000b5e0  3a 0d 3f a2 30 20 dd 20  f2 73 63 72 61 6d 62 6c  |:.?.0 . .scrambl|
0000b5f0  65 28 62 69 74 73 25 29  3a 74 65 6d 70 25 28 29  |e(bits%):temp%()|
0000b600  3d 30 3a 74 65 6d 70 25  28 34 29 3d 62 69 74 73  |=0:temp%(4)=bits|
0000b610  25 0d 3f ac 3b 20 74 65  6d 70 25 28 30 29 3d 74  |%.?.; temp%(0)=t|
0000b620  65 6d 70 25 28 34 29 80  26 33 3a 74 65 6d 70 25  |emp%(4).&3:temp%|
0000b630  28 30 29 3d 28 74 65 6d  70 25 28 30 29 29 84 28  |(0)=(temp%(0)).(|
0000b640  74 65 6d 70 25 28 30 29  3c 3c 34 29 0d 3f b6 3b  |temp%(0)<<4).?.;|
0000b650  20 74 65 6d 70 25 28 31  29 3d 74 65 6d 70 25 28  | temp%(1)=temp%(|
0000b660  34 29 80 31 32 3a 74 65  6d 70 25 28 31 29 3d 28  |4).12:temp%(1)=(|
0000b670  74 65 6d 70 25 28 31 29  29 84 28 74 65 6d 70 25  |temp%(1)).(temp%|
0000b680  28 31 29 3c 3c 34 29 0d  3f c0 40 20 74 65 6d 70  |(1)<<4).?.@ temp|
0000b690  25 28 32 29 3d 74 65 6d  70 25 28 34 29 80 26 33  |%(2)=temp%(4).&3|
0000b6a0  30 3a 74 65 6d 70 25 28  32 29 3d 28 74 65 6d 70  |0:temp%(2)=(temp|
0000b6b0  25 28 32 29 3e 3e 3e 32  29 84 28 74 65 6d 70 25  |%(2)>>>2).(temp%|
0000b6c0  28 32 29 3c 3c 32 29 0d  3f ca 3d 20 74 65 6d 70  |(2)<<2).?.= temp|
0000b6d0  25 28 33 29 3d 74 65 6d  70 25 28 34 29 80 26 43  |%(3)=temp%(4).&C|
0000b6e0  30 3a 74 65 6d 70 25 28  33 29 3d 28 74 65 6d 70  |0:temp%(3)=(temp|
0000b6f0  25 28 33 29 29 84 28 74  65 6d 70 25 28 33 29 3e  |%(3)).(temp%(3)>|
0000b700  3e 3e 34 29 0d 3f d4 42  20 74 65 6d 70 25 28 31  |>>4).?.B temp%(1|
0000b710  29 3d 28 74 65 6d 70 25  28 31 29 29 84 28 74 65  |)=(temp%(1)).(te|
0000b720  6d 70 25 28 30 29 29 3a  74 65 6d 70 25 28 32 29  |mp%(0)):temp%(2)|
0000b730  3d 28 74 65 6d 70 25 28  32 29 29 84 28 74 65 6d  |=(temp%(2)).(tem|
0000b740  70 25 28 30 29 29 0d 3f  de 30 20 74 65 6d 70 25  |p%(0)).?.0 temp%|
0000b750  28 33 29 3d 28 74 65 6d  70 25 28 33 29 29 84 28  |(3)=(temp%(3)).(|
0000b760  74 65 6d 70 25 28 30 29  29 3a 74 65 6d 70 25 28  |temp%(0)):temp%(|
0000b770  30 29 3d 30 3a e1 0d 3f  e8 06 20 3a 0d 3f f2 23  |0)=0:..?.. :.?.#|
0000b780  20 dd 20 a4 70 6f 69 6e  74 63 6f 6c 28 74 65 6d  | . .pointcol(tem|
0000b790  70 25 28 30 29 2c 74 65  6d 70 25 28 34 29 29 0d  |p%(0),temp%(4)).|
0000b7a0  3f fc 20 20 74 65 6d 70  25 28 34 29 3d 28 74 65  |?.  temp%(4)=(te|
0000b7b0  6d 70 25 28 34 29 80 26  43 30 29 3e 3e 3e 36 0d  |mp%(4).&C0)>>>6.|
0000b7c0  40 06 39 20 74 65 6d 70  25 28 31 29 3d 28 74 65  |@.9 temp%(1)=(te|
0000b7d0  6d 70 25 28 30 29 80 26  33 29 3c 3c 32 3a 74 65  |mp%(0).&3)<<2:te|
0000b7e0  6d 70 25 28 31 29 3d 74  65 6d 70 25 28 31 29 84  |mp%(1)=temp%(1).|
0000b7f0  74 65 6d 70 25 28 34 29  0d 40 10 24 20 74 65 6d  |temp%(4).@.$ tem|
0000b800  70 25 28 31 29 3d 74 65  6d 70 25 28 31 29 84 28  |p%(1)=temp%(1).(|
0000b810  74 65 6d 70 25 28 31 29  3c 3c 34 29 0d 40 1a 34  |temp%(1)<<4).@.4|
0000b820  20 74 65 6d 70 25 28 32  29 3d 74 65 6d 70 25 28  | temp%(2)=temp%(|
0000b830  30 29 80 26 43 3a 74 65  6d 70 25 28 32 29 3d 74  |0).&C:temp%(2)=t|
0000b840  65 6d 70 25 28 32 29 84  74 65 6d 70 25 28 34 29  |emp%(2).temp%(4)|
0000b850  0d 40 24 24 20 74 65 6d  70 25 28 32 29 3d 74 65  |.@$$ temp%(2)=te|
0000b860  6d 70 25 28 32 29 84 28  74 65 6d 70 25 28 32 29  |mp%(2).(temp%(2)|
0000b870  3c 3c 34 29 0d 40 2e 3b  20 74 65 6d 70 25 28 33  |<<4).@.; temp%(3|
0000b880  29 3d 28 74 65 6d 70 25  28 30 29 80 26 33 30 29  |)=(temp%(0).&30)|
0000b890  3e 3e 3e 32 3a 74 65 6d  70 25 28 33 29 3d 74 65  |>>>2:temp%(3)=te|
0000b8a0  6d 70 25 28 33 29 84 74  65 6d 70 25 28 34 29 0d  |mp%(3).temp%(4).|
0000b8b0  40 38 24 20 74 65 6d 70  25 28 33 29 3d 74 65 6d  |@8$ temp%(3)=tem|
0000b8c0  70 25 28 33 29 84 28 74  65 6d 70 25 28 33 29 3c  |p%(3).(temp%(3)<|
0000b8d0  3c 34 29 0d 40 42 26 20  64 64 64 25 3f 33 3d 74  |<4).@B& ddd%?3=t|
0000b8e0  65 6d 70 25 28 33 29 3a  64 64 64 25 3f 28 32 29  |emp%(3):ddd%?(2)|
0000b8f0  3d 74 65 6d 70 25 28 32  29 0d 40 4c 1d 20 64 64  |=temp%(2).@L. dd|
0000b900  64 25 3f 31 3d 74 65 6d  70 25 28 31 29 3a 64 64  |d%?1=temp%(1):dd|
0000b910  64 25 3f 30 3d 30 0d 40  56 0b 20 3d 21 64 64 64  |d%?0=0.@V. =!ddd|
0000b920  25 0d 40 60 06 20 3a 0d  40 6a 0a 20 dd 20 f2 64  |%.@`. :.@j. . .d|
0000b930  6e 0d 40 74 06 20 e1 0d  40 7e 06 20 3a 0d 40 88  |n.@t. ..@~. :.@.|
0000b940  0c 20 dd 20 f2 64 61 74  61 0d 40 92 11 20 e3 20  |. . .data.@.. . |
0000b950  69 74 25 3d 30 20 b8 20  34 34 0d 40 9c 1f 20 77  |it%=0 . 44.@.. w|
0000b960  25 28 69 74 25 2c 30 29  3d 30 3a 77 25 28 69 74  |%(it%,0)=0:w%(it|
0000b970  25 2c 31 29 3d 70 38 30  25 0d 40 a6 0a 20 ed 20  |%,1)=p80%.@.. . |
0000b980  69 74 25 0d 40 b0 38 20  69 6e 64 65 78 25 3d 30  |it%.@.8 index%=0|
0000b990  3a 77 25 28 30 2c 34 29  3d 26 46 3a 77 25 28 30  |:w%(0,4)=&F:w%(0|
0000b9a0  2c 35 29 3d 69 6e 64 65  78 25 3a 69 6e 64 65 78  |,5)=index%:index|
0000b9b0  25 3d 69 6e 64 65 78 25  2b 31 36 0d 40 ba 10 20  |%=index%+16.@.. |
0000b9c0  e3 20 69 74 25 3d 31 20  b8 20 36 0d 40 c4 33 20  |. it%=1 . 6.@.3 |
0000b9d0  77 25 28 69 74 25 2c 34  29 3d 31 31 3a 77 25 28  |w%(it%,4)=11:w%(|
0000b9e0  69 74 25 2c 35 29 3d 69  6e 64 65 78 25 3a 69 6e  |it%,5)=index%:in|
0000b9f0  64 65 78 25 3d 69 6e 64  65 78 25 2b 31 32 0d 40  |dex%=index%+12.@|
0000ba00  ce 0a 20 ed 20 69 74 25  0d 40 d8 11 20 e3 20 69  |.. . it%.@.. . i|
0000ba10  74 25 3d 37 20 b8 20 31  38 0d 40 e2 31 20 77 25  |t%=7 . 18.@.1 w%|
0000ba20  28 69 74 25 2c 34 29 3d  37 3a 77 25 28 69 74 25  |(it%,4)=7:w%(it%|
0000ba30  2c 35 29 3d 69 6e 64 65  78 25 3a 69 6e 64 65 78  |,5)=index%:index|
0000ba40  25 3d 69 6e 64 65 78 25  2b 38 0d 40 ec 0a 20 ed  |%=index%+8.@.. .|
0000ba50  20 69 74 25 0d 40 f6 12  20 e3 20 69 74 25 3d 31  | it%.@.. . it%=1|
0000ba60  39 20 b8 20 33 36 0d 41  00 31 20 77 25 28 69 74  |9 . 36.A.1 w%(it|
0000ba70  25 2c 34 29 3d 33 3a 77  25 28 69 74 25 2c 35 29  |%,4)=3:w%(it%,5)|
0000ba80  3d 69 6e 64 65 78 25 3a  69 6e 64 65 78 25 3d 69  |=index%:index%=i|
0000ba90  6e 64 65 78 25 2b 34 0d  41 0a 0a 20 ed 20 69 74  |ndex%+4.A.. . it|
0000baa0  25 0d 41 14 10 20 e3 20  69 74 25 3d 30 20 b8 20  |%.A.. . it%=0 . |
0000bab0  36 0d 41 1e 18 20 78 25  28 69 74 25 29 3d 34 38  |6.A.. x%(it%)=48|
0000bac0  2b 28 69 74 25 2a 37 34  29 0d 41 28 0a 20 ed 20  |+(it%*74).A(. . |
0000bad0  69 74 25 0d 41 32 11 20  e3 20 69 74 25 3d 30 20  |it%.A2. . it%=0 |
0000bae0  b8 20 31 32 0d 41 3c 1b  20 79 25 28 69 74 25 29  |. 12.A<. y%(it%)|
0000baf0  3d 6a 31 25 2b 28 69 74  25 2b 31 29 2a 34 38 0d  |=j1%+(it%+1)*48.|
0000bb00  41 46 0a 20 ed 20 69 74  25 0d 41 50 06 20 f7 0d  |AF. . it%.AP. ..|
0000bb10  41 5a 11 20 e3 20 69 74  25 3d 30 20 b8 20 34 34  |AZ. . it%=0 . 44|
0000bb20  0d 41 64 10 20 e3 20 6a  74 25 3d 32 20 b8 20 33  |.Ad. . jt%=2 . 3|
0000bb30  0d 41 6e 12 20 f3 20 77  25 28 69 74 25 2c 6a 74  |.An. . w%(it%,jt|
0000bb40  25 29 0d 41 78 0a 20 ed  20 6a 74 25 0d 41 82 0a  |%).Ax. . jt%.A..|
0000bb50  20 ed 20 69 74 25 0d 41  8c 10 20 e3 20 69 74 25  | . it%.A.. . it%|
0000bb60  3d 30 20 b8 20 38 0d 41  96 10 20 e3 20 6a 74 25  |=0 . 8.A.. . jt%|
0000bb70  3d 30 20 b8 20 36 0d 41  a0 13 20 f3 20 69 70 25  |=0 . 6.A.. . ip%|
0000bb80  28 69 74 25 2c 6a 74 25  29 0d 41 aa 0a 20 ed 20  |(it%,jt%).A.. . |
0000bb90  6a 74 25 0d 41 b4 0a 20  ed 20 69 74 25 0d 41 be  |jt%.A.. . it%.A.|
0000bba0  06 20 e1 0d 41 c8 06 20  3a 0d 41 d2 2a 20 dc 20  |. ..A.. :.A.* . |
0000bbb0  78 25 28 33 29 2c 79 25  28 36 29 2c 78 25 28 34  |x%(3),y%(6),x%(4|
0000bbc0  29 2c 79 25 28 37 29 2c  78 25 28 33 29 2c 79 25  |),y%(7),x%(3),y%|
0000bbd0  28 38 29 0d 41 dc 2a 20  dc 20 78 25 28 32 29 2c  |(8).A.* . x%(2),|
0000bbe0  79 25 28 37 29 2c 78 25  28 32 29 2c 79 25 28 35  |y%(7),x%(2),y%(5|
0000bbf0  29 2c 78 25 28 33 29 2c  79 25 28 34 29 0d 41 e6  |),x%(3),y%(4).A.|
0000bc00  2a 20 dc 20 78 25 28 34  29 2c 79 25 28 35 29 2c  |* . x%(4),y%(5),|
0000bc10  78 25 28 35 29 2c 79 25  28 38 29 2c 78 25 28 34  |x%(5),y%(8),x%(4|
0000bc20  29 2c 79 25 28 39 29 0d  41 f0 2b 20 dc 20 78 25  |),y%(9).A.+ . x%|
0000bc30  28 33 29 2c 79 25 28 31  30 29 2c 78 25 28 32 29  |(3),y%(10),x%(2)|
0000bc40  2c 79 25 28 39 29 2c 78  25 28 31 29 2c 79 25 28  |,y%(9),x%(1),y%(|
0000bc50  38 29 0d 41 fa 2a 20 dc  20 78 25 28 31 29 2c 79  |8).A.* . x%(1),y|
0000bc60  25 28 36 29 2c 78 25 28  31 29 2c 79 25 28 34 29  |%(6),x%(1),y%(4)|
0000bc70  2c 78 25 28 32 29 2c 79  25 28 33 29 0d 42 04 2a  |,x%(2),y%(3).B.*|
0000bc80  20 dc 20 78 25 28 33 29  2c 79 25 28 32 29 2c 78  | . x%(3),y%(2),x|
0000bc90  25 28 34 29 2c 79 25 28  33 29 2c 78 25 28 35 29  |%(4),y%(3),x%(5)|
0000bca0  2c 79 25 28 34 29 0d 42  0e 2b 20 dc 20 78 25 28  |,y%(4).B.+ . x%(|
0000bcb0  35 29 2c 79 25 28 36 29  2c 78 25 28 36 29 2c 79  |5),y%(6),x%(6),y|
0000bcc0  25 28 39 29 2c 78 25 28  35 29 2c 79 25 28 31 30  |%(9),x%(5),y%(10|
0000bcd0  29 0d 42 18 2d 20 dc 20  78 25 28 34 29 2c 79 25  |).B.- . x%(4),y%|
0000bce0  28 31 31 29 2c 78 25 28  33 29 2c 79 25 28 31 32  |(11),x%(3),y%(12|
0000bcf0  29 2c 78 25 28 32 29 2c  79 25 28 31 31 29 0d 42  |),x%(2),y%(11).B|
0000bd00  22 2b 20 dc 20 78 25 28  31 29 2c 79 25 28 31 30  |"+ . x%(1),y%(10|
0000bd10  29 2c 78 25 28 30 29 2c  79 25 28 39 29 2c 78 25  |),x%(0),y%(9),x%|
0000bd20  28 30 29 2c 79 25 28 37  29 0d 42 2c 2a 20 dc 20  |(0),y%(7).B,* . |
0000bd30  78 25 28 30 29 2c 79 25  28 35 29 2c 78 25 28 30  |x%(0),y%(5),x%(0|
0000bd40  29 2c 79 25 28 33 29 2c  78 25 28 31 29 2c 79 25  |),y%(3),x%(1),y%|
0000bd50  28 32 29 0d 42 36 2a 20  dc 20 78 25 28 32 29 2c  |(2).B6* . x%(2),|
0000bd60  79 25 28 31 29 2c 78 25  28 33 29 2c 79 25 28 30  |y%(1),x%(3),y%(0|
0000bd70  29 2c 78 25 28 34 29 2c  79 25 28 31 29 0d 42 40  |),x%(4),y%(1).B@|
0000bd80  2a 20 dc 20 78 25 28 35  29 2c 79 25 28 32 29 2c  |* . x%(5),y%(2),|
0000bd90  78 25 28 36 29 2c 79 25  28 33 29 2c 78 25 28 36  |x%(6),y%(3),x%(6|
0000bda0  29 2c 79 25 28 35 29 0d  42 4a 2c 20 dc 20 78 25  |),y%(5).BJ, . x%|
0000bdb0  28 36 29 2c 79 25 28 37  29 2c 78 25 28 31 29 2c  |(6),y%(7),x%(1),|
0000bdc0  79 25 28 31 32 29 2c 78  25 28 30 29 2c 79 25 28  |y%(12),x%(0),y%(|
0000bdd0  31 31 29 0d 42 54 2b 20  dc 20 78 25 28 30 29 2c  |11).BT+ . x%(0),|
0000bde0  79 25 28 31 29 2c 78 25  28 31 29 2c 79 25 28 30  |y%(1),x%(1),y%(0|
0000bdf0  29 2c 78 25 28 35 29 2c  79 25 28 31 32 29 0d 42  |),x%(5),y%(12).B|
0000be00  5e 2b 20 dc 20 78 25 28  36 29 2c 79 25 28 31 31  |^+ . x%(6),y%(11|
0000be10  29 2c 78 25 28 35 29 2c  79 25 28 30 29 2c 78 25  |),x%(5),y%(0),x%|
0000be20  28 36 29 2c 79 25 28 31  29 0d 42 68 15 20 dc 20  |(6),y%(1).Bh. . |
0000be30  36 2c 36 2c 39 2c 31 32  2c 38 2c 37 2c 33 0d 42  |6,6,9,12,8,7,3.B|
0000be40  72 16 20 dc 20 37 2c 37  2c 31 30 2c 31 33 2c 36  |r. . 7,7,10,13,6|
0000be50  2c 38 2c 33 0d 42 7c 16  20 dc 20 38 2c 38 2c 31  |,8,3.B|. . 8,8,1|
0000be60  31 2c 31 34 2c 37 2c 36  2c 33 0d 42 86 17 20 dc  |1,14,7,6,3.B.. .|
0000be70  20 39 2c 36 2c 39 2c 31  32 2c 31 31 2c 31 30 2c  | 9,6,9,12,11,10,|
0000be80  32 0d 42 90 18 20 dc 20  31 30 2c 37 2c 31 30 2c  |2.B.. . 10,7,10,|
0000be90  31 33 2c 39 2c 31 31 2c  32 0d 42 9a 18 20 dc 20  |13,9,11,2.B.. . |
0000bea0  31 31 2c 38 2c 31 31 2c  31 34 2c 31 30 2c 39 2c  |11,8,11,14,10,9,|
0000beb0  32 0d 42 a4 18 20 dc 20  31 32 2c 36 2c 39 2c 31  |2.B.. . 12,6,9,1|
0000bec0  32 2c 31 34 2c 31 33 2c  38 0d 42 ae 19 20 dc 20  |2,14,13,8.B.. . |
0000bed0  31 33 2c 37 2c 31 30 2c  31 33 2c 31 32 2c 31 34  |13,7,10,13,12,14|
0000bee0  2c 38 0d 42 b8 19 20 dc  20 31 34 2c 38 2c 31 31  |,8.B.. . 14,8,11|
0000bef0  2c 31 34 2c 31 33 2c 31  32 2c 38 0d 42 c2 04 0d  |,14,13,12,8.B...|
0000bf00  ff                                                |.|
0000bf01

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .