Seago/!Pottery/!RunImage

Home » Archimedes archive » Acorn User » AU 1994-02.adf » !StarInfo_StarInfo » Seago/!Pottery/!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 » Acorn User » AU 1994-02.adf » !StarInfo_StarInfo
Filename:	Seago/!Pottery/!RunImage
Read OK:	✔
File size:	5C96 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM     >!RunImage for !Pottery
   20REM By  Richard Seago
   30REM For 32-bit machines
   40REM (c) AU February 1994
   50:
   60ON ERROR VDU4:PRINT ERL:END
   70PROCinit
   80ON ERROR PROCreport(ERR,REPORT$+" "+STR$ERL)
   90WHILE NOT quit%
  100 PROCmain
  110ENDWHILE
  120PROCfin
  130END
  140:
  150DEF PROCreport(err%,mess$)
  160LOCAL flags%,title$,fatal%
  170fatal%=TRUE
  180CASE err% OF
  190 WHEN -1:flags%=%10001
  200         title$="Message from "+app$
  210         fatal%=FALSE
  220 WHEN -2:IF NOT(saved%) THEN
  230          flags%=%10011
  240          title$="Pottery asked to quit."
  250          fatal%=FALSE
  260          mess$="You still have unsaved data. Click Cancel to quit."
  270         ELSE
  280          ENDPROC
  290         ENDIF
  300 OTHERWISE:flags%=%00001
  310           title$=app$
  320           IF err%=1000 THEN fatal%=FALSE
  330ENDCASE
  340IF fatal% THEN mess$+=" Error is fatal."
  350!block%=err%
  360$(block%+4)=mess$+CHR$0
  370SYS "Wimp_ReportError",block%,flags%,title$ TO ,reply%
  380IF reply%=2 OR fatal% THEN quit%=TRUE ELSE quit%=FALSE
  390ENDPROC
  400:
  410DEF PROCmain
  420SYS "Wimp_Poll",,block% TO reason%
  430CASE reason% OF
  440 WHEN 0:PROCnull
  450 WHEN 1:PROCredraw
  460 WHEN 2:SYS "Wimp_OpenWindow",,block%
  470        IF !block%=draw_hand% THEN draw_open%=TRUE
  480 WHEN 3:SYS "Wimp_CloseWindow",,block%
  490        IF !block%=draw_hand% THEN draw_open%=FALSE
  500 WHEN 6:PROCclick
  510 WHEN 7:PROCstart_save
  520 WHEN 8:PROCkey_pressed
  530 WHEN 9:PROCselection
  540 WHEN 17,18:PROCmessage
  550ENDCASE
  560ENDPROC
  570:
  580DEF PROCnull
  590IF draw_open% THEN
  600 IF MODE<>mode% THEN
  610  SYS "OS_Module",&07,,drawspr%
  620  PROCmake_sprite
  630  PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
  640 ENDIF
  650 IF ((!cont_tick% AND 1) AND change%) THEN
  660  PROCdraw_sprite(usecoltrans%)
  670  PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
  680 ENDIF
  690ENDIF
  700ENDPROC
  710:
  720DEF PROCkey_pressed
  730CASE block%!24 OF
  740 WHEN 13:PROCquick_save
  750OTHERWISE SYS "Wimp_ProcessKey",block%!24
  760ENDCASE
  770ENDPROC
  780:
  790DEF PROCforce_redraw(h%,x1%,y1%,x2%,y2%)
  800!block%=h%
  810SYS "Wimp_GetWindowState",,block%
  820IF x1%<>-1 THEN block%!4=x1%
  830IF y1%<>-1 THEN block%!8=y1%
  840IF x2%<>-1 THEN block%!12=x2%
  850IF y2%<>-1 THEN block%!16=y2%
  860SYS "Wimp_ForceRedraw",-1,block%!4,block%!8,block%!12,block%!16
  870ENDPROC
  880:
  890DEF PROCredraw
  900CASE !block% OF
  910  WHEN draw_hand%:PROCupdate_draw
  920  WHEN edit_hand%:PROCupdate_edit
  930ENDCASE
  940ENDPROC
  950:
  960DEF PROCclick
  970LOCAL newcols%,xx%,yy%
  980CASE block%!12 OF
  990  WHEN -2:CASE ((block%!8) AND %111) OF
 1000            WHEN 1:PROCopen_window(edit_hand%)
 1010            WHEN 2:PROCshow_menu(icon_menu%,!block%-64,184)
 1020                   menu%=1
 1030            WHEN 4:PROCdraw_sprite(usecoltrans%)
 1040                   PROCopen_window(draw_hand%)
 1050                   PROCopen_window(edit_hand%)
 1060          ENDCASE
 1070  WHEN edit_hand%:CASE ((block%!8) AND %111) OF
 1080                    WHEN 1:point%=FNwhich_point(!block%,block%!4)
 1090                           IF point%<>-1 THEN
 1100                             PROCmove_point(point%)
 1110                             point%=-1
 1120                           ENDIF
 1130                           saved%=FALSE
 1140                    WHEN 2:$filename%=edit_file$+CHR$0
 1150                           $type_addr%="file_00f"
 1160                           xx%=!block%:yy%=block%!4
 1170                           point%=FNwhich_point(xx%,yy%)
 1180                           IF point%<>-1 THEN
 1190                            oldcols%=FNcolours
 1200                            newcols%=(picture%(point%,2) EOR oldcols%)
 1210                            IF (newcols% AND 4)=4 THEN PROCupdate_cols(0)
 1220                            IF (newcols% AND 2)=2 THEN PROCupdate_cols(1)
 1230                            IF (newcols% AND 1)=1 THEN PROCupdate_cols(2)
 1240                            PROCforce_redraw(edit_hand%,90,-1,-1,-1)
 1250                           ENDIF
 1260                           PROCshow_menu(edit_menu%,xx%-64,yy%)
 1270                           menu%=2
 1280                    WHEN 4:CASE block%!16 OF
 1290                             WHEN -1:REM Window work area
 1300                      IF FNline THEN PROCadd_line(!block%,block%!4,FNcolours)
 1310                      IF FNmove THEN PROCadd_line(!block%,block%!4,0)
 1320                      change%=TRUE
 1330                      saved%=FALSE
 1340                             WHEN  5,6,7:PROCupdate_cols((block%!16)-5)
 1350                           ENDCASE
 1360                  ENDCASE
 1370  WHEN draw_hand%:CASE ((block%!8) AND %111) OF
 1380                    WHEN 2:$filename%=draw_file$+CHR$0
 1390                           $type_addr%="file_ff9"
 1400                           PROCshow_menu(draw_menu%,!block%-64,block%!4)
 1410                           menu%=3
 1420                    WHEN 4:PROCdraw_sprite(usecoltrans%)
 1430                           PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
 1440                  ENDCASE
 1450  WHEN save_hand%:CASE block%!16 OF
 1460                    WHEN 0:IF block%!8 AND 64 THEN PROCdrag_box
 1470                    WHEN 2:IF block%!8 AND 5 THEN PROCquick_save
 1480                  ENDCASE
 1490ENDCASE
 1500ENDPROC
 1510:
 1520DEF PROCquick_save
 1530LOCAL error%
 1540error%=FALSE
 1550CASE menu% OF
 1560 WHEN 2:edit_file$=FNstring(filename%)
 1570        IF INSTR(edit_file$,".") THEN
 1580          PROCsave_edit
 1590         ELSE
 1600          error%=TRUE
 1610        ENDIF
 1620 WHEN 3:draw_file$=FNstring(filename%)
 1630        IF INSTR(draw_file$,".") THEN
 1640          SYS "OS_SpriteOp",&10C,drawspr%,draw_file$
 1650         ELSE
 1660          error%=TRUE
 1670        ENDIF
 1680ENDCASE
 1690IF error% THEN PROCreport(1000,"To save, drag the icon to a directory viewer.")
 1700ENDPROC
 1710:
 1720DEF PROCdrag_box
 1730LOCAL sprite$
 1740!block%=save_hand%
 1750SYS "Wimp_GetWindowState",,block%
 1760ox%=block%!4-block%!20
 1770oy%=block%!16-block%!24
 1780block%!4=0
 1790SYS "Wimp_GetIconState",,block%
 1800block%!4=5:block%!8+=ox%
 1810block%!12+=oy%
 1820block%!16+=ox%
 1830block%!20+=oy%
 1840block%!24=0:block%!28=0
 1850block%!32=&7FFFFFFF
 1860block%!36=&7FFFFFFF
 1870IF drag_start%=-1 THEN
 1880 SYS "Wimp_DragBox",,block%
 1890ELSE
 1900 IF menu%=2 THEN sprite$="file_00f" ELSE sprite$="file_ff9"
 1910 SYS drag_start%,%11000101,1,sprite$,block%+8,block%+24
 1920ENDIF
 1930ENDPROC
 1940:
 1950DEF PROCstart_save
 1960IF drag_stop%<>-1 SYS drag_stop%
 1970SYS "Wimp_GetPointerInfo",,block%
 1980block%!20=block%!12:block%!24=block%!16
 1990block%!28=!block%:block%!32=block%!4
 2000IF menu%=2 THEN
 2010 edit_file$=FNstring(filename%)
 2020 block%!36=1200
 2030 block%!40=&00F
 2040 $(block%+44)=FNgetleafname(edit_file$)
 2050 saving%=1
 2060ENDIF
 2070IF menu%=3 THEN
 2080 draw_file$=FNstring(filename%)
 2090 block%!36=size%
 2100 block%!40=&FF9
 2110 $(block%+44)=FNgetleafname(draw_file$)
 2120 saving%=-1
 2130ENDIF
 2140!block%=60:block%!12=0
 2150block%!16=1
 2160SYS "Wimp_SendMessage",18,block%,block%!20,block%!24
 2170ENDPROC
 2180:
 2190DEF PROCopen_window(h%)
 2200!block%=h%
 2210IF h%=draw_hand% THEN draw_open%=TRUE
 2220SYS "Wimp_GetWindowState",,block%
 2230SYS "Wimp_OpenWindow",,block%
 2240ENDPROC
 2250:
 2260DEF PROCselection
 2270SYS "Wimp_GetPointerInfo",,temp%
 2280reopen%=FALSE
 2290IF temp%!8=1 THEN reopen%=TRUE
 2300CASE menu% OF
 2310  WHEN 1:CASE block%!0 OF
 2320           WHEN 0:REM Info
 2330           WHEN 1:quit%=TRUE
 2340                  PROCreport(-2,"")
 2350         ENDCASE
 2360         IF reopen% THEN SYS "Wimp_CreateMenu",,icon_menu%
 2370  WHEN 2:CASE !block% OF
 2380           WHEN 0:CASE block%!4 OF
 2390                   WHEN 0,1,2:PROCupdate_cols(block%!4)
 2400                              IF point%<>-1 THEN
 2410                               picture%(point%,2)=FNcolours
 2420                               IF reopen%=FALSE THEN
 2430                                PROCdraw_sprite(usecoltrans%)
 2440                                PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
 2450                               ENDIF
 2460                              ENDIF
 2470                              saved%=FALSE
 2480                  ENDCASE
 2490           WHEN 1:element%-=1
 2500                  IF element%<0 THEN element%=0
 2510                  PROCforce_redraw(edit_hand%,90,-1,-1,-1)
 2520                  PROCdraw_sprite(usecoltrans%)
 2530                  PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
 2540                  saved%=FALSE
 2550           WHEN 2:element%=0
 2560                  PROCforce_redraw(edit_hand%,90,-1,-1,-1)
 2570                  PROCdraw_sprite(usecoltrans%)
 2580                  PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
 2590                  saved%=TRUE
 2600           WHEN 3:PROCopen_window(draw_hand%)
 2610           WHEN 4:PROCquick_save
 2620           WHEN 5:PROCprint_edit
 2630         ENDCASE
 2640         point%=-1
 2650         IF reopen% THEN SYS "Wimp_CreateMenu",,edit_menu%
 2660  WHEN 3:CASE !block% OF
 2670           WHEN 0:CASE block%!4 OF
 2680                    WHEN -1,0:PROCdraw_sprite(usecoltrans%)
 2690                              PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
 2700                    WHEN 1:PROCtick(cont_tick%,2)
 2710                           REM PROCtick(every_tick%,0)
 2720                  ENDCASE
 2730           WHEN 2:PROCprint_draw
 2740         ENDCASE
 2750         IF reopen% THEN SYS "Wimp_CreateMenu",,draw_menu%
 2760ENDCASE
 2770ENDPROC
 2780:
 2790DEF PROCmessage
 2800CASE (block%!16) OF
 2810 WHEN 0:quit%=TRUE
 2820 WHEN 2:CASE saving% OF
 2830         WHEN -1:draw_file$=FNstring(block%+44)
 2840                 SYS "OS_SpriteOp",&10C,drawspr%,draw_file$
 2850         WHEN  1:edit_file$=FNstring(block%+44)
 2860                 PROCsave_edit
 2870        ENDCASE
 2880        block%!12=block%!8
 2890        block%!16=3:!block%=256
 2900        SYS "Wimp_SendMessage",18,block%,block%!20,block%!24
 2910 WHEN 3:PROCload_edit(FNstring(block%+44))
 2920 WHEN 4:saving%=0
 2930ENDCASE
 2940ENDPROC
 2950:
 2960DEF PROCupdate_cols(c%)
 2970LOCAL x%
 2980CASE c% OF
 2990 WHEN 0:x%=blue_tick%
 3000 WHEN 1:x%=red_tick%
 3010 WHEN 2:x%=green_tick%
 3020ENDCASE
 3030PROCtick(x%,2)
 3040PROCset_icon(edit_hand%,c%+5,2,21)
 3050PROCforce_redraw(edit_hand%,-1,-1,-1,-1)
 3060ENDPROC
 3070:
 3080DEF PROCtick(addr%,x%)
 3090CASE x% OF
 3100 WHEN 0:!addr%=((!addr%) AND &FFFFFFFE)
 3110 WHEN 1:!addr%=((!addr%) OR 1)
 3120 WHEN 2:!addr%=((!addr%) EOR 1)
 3130ENDCASE
 3140ENDPROC
 3150:
 3160DEF FNicon_state(wh%,i%,bit%)
 3170!temp%=wh%
 3180temp%!4=i%
 3190SYS "Wimp_GetIconState",,temp%
 3200IF (temp%!24 AND (1<<bit%)) THEN =TRUE
 3210=FALSE
 3220:
 3230DEF FNline
 3240IF FNicon_state(edit_hand%,0,21) THEN =TRUE
 3250=FALSE
 3260:
 3270DEF FNmove
 3280IF FNicon_state(edit_hand%,1,21) THEN =TRUE
 3290=FALSE
 3300:
 3310DEF PROCset_icon(wh%,ih%,x%,bit%)
 3320!block%=wh%
 3330block%!4=ih%
 3340CASE x% OF
 3350  WHEN 0:block%!8=0:block%!12=1<<bit%
 3360  WHEN 1:block%!8=1<<bit%:block%!12=1<<bit%
 3370  WHEN 2:block%!8=1<<bit%:block%!12=0
 3380ENDCASE
 3390SYS "Wimp_SetIconState",,block%
 3400ENDPROC
 3410:
 3420DEF PROCadd_line(x%,y%,c%)
 3430LOCAL ox%,oy%,fiddle%
 3440IF element%=0 THEN fiddle%=0 ELSE fiddle%=1
 3450IF element%>100 THEN PROCreport(1000,"Memory full, no more points can be added to the picture."):x%=ox%
 3460!block%=edit_hand%
 3470SYS "Wimp_GetWindowState",,block%
 3480ox%=block%!4-block%!20
 3490oy%=block%!16-block%!24
 3500IF x%>=ox%+100 THEN
 3510 picture%(element%,0)=x%-ox%-100
 3520 picture%(element%,1)=y%-oy%+750
 3530 picture%(element%-fiddle%,2)=c%
 3540 PROCforce_redraw(edit_hand%,ox%+100,-1,-1,-1)
 3550 element%+=1
 3560ENDIF
 3570ENDPROC
 3580:
 3590DEF FNwhich_point(x%,y%)
 3600LOCAL ox%,oy%,px%,py%,result%,I%
 3610!block%=edit_hand%
 3620SYS "Wimp_GetWindowState",,block%
 3630ox%=block%!4-block%!20
 3640oy%=block%!16-block%!24
 3650px%=x%-ox%-100
 3660py%=y%-oy%+750
 3670result%=-1
 3680FOR I%=0 TO element%-1
 3690 IF ABS(picture%(I%,0)-px%)<10 AND ABS(picture%(I%,1)-py%)<10 THEN result%=I%
 3700NEXT
 3710=result%
 3720:
 3730DEF PROCmove_point(p%)
 3740LOCAL x%,y%,mb%,ox%,oy%,xx%,yy%
 3750!block%=edit_hand%
 3760SYS "Wimp_GetWindowState",,block%
 3770ox%=block%!4-block%!20+100
 3780oy%=block%!16-block%!24-750
 3790MOUSE RECTANGLE block%!4,block%!8,block%!12-block%!4,block%!16-block%!18
 3800GCOL 3,14
 3810xx%=picture%(p%,0)+ox%
 3820yy%=picture%(p%,1)+oy%
 3830REPEAT
 3840 MOUSE x%,y%,mb%
 3850 IF p%>0 THEN
 3860   LINE ox%+picture%(p%-1,0),oy%+picture%(p%-1,1),xx%,yy%
 3870   LINE ox%+picture%(p%-1,0),oy%+picture%(p%-1,1),x%,y%
 3880 ENDIF
 3890 IF p%<(element%-1) THEN
 3900   LINE ox%+picture%(p%+1,0),oy%+picture%(p%+1,1),xx%,yy%
 3910   LINE ox%+picture%(p%+1,0),oy%+picture%(p%+1,1),x%,y%
 3920 ENDIF
 3930 xx%=x%:yy%=y%
 3940UNTIL mb%<>1
 3950MOUSE RECTANGLE 0,0,1279,1023
 3960picture%(p%,0)=x%-ox%
 3970IF picture%(p%,0)<0 THEN picture%(p%,0)=0
 3980picture%(p%,1)=y%-oy%
 3990PROCforce_redraw(edit_hand%,-1,-1,-1,-1)
 4000PROCdraw_sprite(usecoltrans%)
 4010PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
 4020ENDPROC
 4030:
 4040DEF FNcolours
 4050LOCAL x%
 4060IF (!blue_tick% AND 1)=1 THEN x%=4
 4070IF (!red_tick% AND 1)=1 THEN x%+=2
 4080IF (!green_tick% AND 1)=1 THEN x%+=1
 4090=x%
 4100:
 4110DEF PROCshow_menu(d%,x%,y%)
 4120SYS "Wimp_CreateMenu",,d%,x%,y%
 4130ENDPROC
 4140:
 4150DEF PROCupdate_draw
 4160LOCAL more%
 4170SYS "Wimp_RedrawWindow",,block% TO more%
 4180ox%=block%!4-block%!20
 4190oy%=block%!16-block%!24
 4200WHILE more%
 4210 SYS "OS_SpriteOp",&122,drawspr%,"potted",ox%,oy%-752,0
 4220 SYS "Wimp_GetRectangle",,block% TO more%
 4230ENDWHILE
 4240ENDPROC
 4250:
 4260DEF PROCupdate_edit
 4270LOCAL more%,I%,first%,word%,fiddle%,xx%,yy%,cc%,rr%,x%,y%
 4280rr%=10
 4290x%=0:y%=0
 4300SYS "Wimp_RedrawWindow",,block% TO more%
 4310ox%=block%!4-block%!20
 4320oy%=block%!16-block%!24
 4330SYS "Wimp_SetColour",7
 4340CASE FNcolours OF
 4350 WHEN 0:mess$="Clear":mess2$=""
 4360 WHEN 1:mess$="Green":mess2$=""
 4370 WHEN 2:mess$="Red"  :mess2$=""
 4380 WHEN 3:mess$="ow"   :mess2$="Yell-"
 4390 WHEN 4:mess$="Blue" :mess2$=""
 4400 WHEN 5:mess$="Cyan" :mess2$=""
 4410 WHEN 6:mess$="nta"  :mess2$="Mage-"
 4420 WHEN 7:mess$="Grey" :mess2$=""
 4430ENDCASE
 4440WHILE more%
 4450 LINE ox%+100,oy%,ox%+100,oy%-750
 4460 I%=0:first%=TRUE:fiddle%=0
 4470 WHILE I%<element%
 4480    xx%=ox%+100+picture%(I%,0)
 4490    yy%=oy%-750+picture%(I%,1)
 4500    CASE picture%(I%-fiddle%,2) OF
 4510      WHEN    0:cc%=1
 4520      OTHERWISE IF I%=point%+1 THEN cc%=14 ELSE cc%=7
 4530    ENDCASE
 4540    IF first% THEN
 4550      MOVE xx%,yy%
 4560      PROCcolour(15)
 4570      CIRCLE FILL xx%,yy%,rr%
 4580      first%=FALSE:fiddle%=1
 4590     ELSE
 4600      PROCcolour(15)
 4610      CIRCLE FILL xx%,yy%,rr%
 4620      PROCcolour(cc%)
 4630      LINE xx%,yy%,x%,y%
 4640    ENDIF
 4650    I%+=1
 4660    x%=xx%
 4670    y%=yy%
 4680 ENDWHILE
 4690 PROCcolour(7)
 4700 MOVE ox%+2,oy%-470
 4710 PRINT mess2$
 4720 MOVE ox%+2,oy%-500
 4730 PRINT mess$
 4740 SYS "Wimp_GetRectangle",,block% TO more%
 4750ENDWHILE
 4760ENDPROC
 4770:
 4780DEF PROCcolour(c%)
 4790SYS "Wimp_SetColour",c%
 4800ENDPROC
 4810:
 4820DEF PROCdraw_sprite(print%)
 4830LOCAL r0%,r1%,r2%,r3%,I%,start%,end%,step%
 4840SYS "Hourglass_On"
 4850IF draw_open% THEN
 4860 SYS "OS_SpriteOp",&13C,drawspr%,"potted",1 TO r0%,r1%,r2%,r3%
 4870 nshades=12
 4880 step=360/(2*nshades)
 4890 IF element%>1 THEN
 4900  IF change%=TRUE AND picture%(element%-1,1)>=picture%(0,1)THEN
 4910   IF picture%(element%-2,2)<>0 THEN
 4920     PROCcylinder(picture%(element%-2,1),picture%(element%-2,0),picture%(element%-1,1),picture%(element%-1,0),picture%(element%-2,2),1)
 4930   ENDIF
 4940  ELSE
 4950   SYS "Wimp_SetColour",135
 4960   CLS
 4970   IF picture%(element%-1,1)>=picture%(0,1) THEN
 4980    step%=1
 4990    start%=0
 5000    end%=element%-2
 5010   ELSE
 5020    start%=element%-2
 5030    end%=0
 5040    step%=-1
 5050   ENDIF
 5060   FOR I%=start% TO end% STEP step%
 5070    IF picture%(I%,2)<>0 THEN
 5080     PROCcylinder(picture%(I%,1),picture%(I%,0),picture%(I%+1,1),picture%(I%+1,0),picture%(I%,2),1)
 5090    ENDIF
 5100   NEXT
 5110  ENDIF
 5120 ELSE
 5130  SYS "Wimp_SetColour",135
 5140  CLS
 5150 ENDIF
 5160 SYS "OS_SpriteOp",r0%,r1%,r2%,r3%
 5170ENDIF
 5180change%=FALSE
 5190SYS "Hourglass_Off"
 5200ENDPROC
 5210:
 5220REM The following lines of code are those that originally appeared in BAU.
 5230REM My thanks to Rob Miller they gave me alot to think about.
 5240:
 5250DEF PROCcylinder(ey1%,ew1%,ey2%,ew2%,col%,pal%)
 5260LOCAL red%,blue%,green%,tint%,r%,g%,b%,rr%,gg%,bb%,tt%
 5270b%=(col% AND %100)>>2
 5280r%=(col% AND %010)>>1
 5290g%=(col% AND %001)
 5300:
 5310IF print% THEN
 5320 FOR D = -90 TO (270-step) STEP step
 5330 red%   = ((((D+90) DIV 60) MOD 3)+1)
 5340 green% = ((((D+90) DIV 60) MOD 3)+1)
 5350 blue% =  ((((D+90) DIV 60) MOD 3)+1)
 5360 tint%  = (((D+90) DIV 15) AND 3)
 5370 :
 5380 IF pal%=2 AND D<90 THEN
 5390  red%   = (2-(((D+90) DIV 60) MOD 3)+1)
 5400  green% = (2-(((D+90) DIV 60) MOD 3)+1)
 5410  blue%  = (2-(((D+90) DIV 60) MOD 3)+1)
 5420  tint%  = (1472-((D+90) DIV 15) AND 3)
 5430 ENDIF
 5440 :
 5450 tt%=(tint%)
 5460 rr%=(tt%+(red%<<2))*r%
 5470 gg%=(tt%+(green%<<2))*g%
 5480 bb%=(tt%+(blue%<<2))*b%
 5490 colour%=(bb%<<20)+(bb%<<16)+(gg%<<12)+(gg%<<8)+(rr%<<4)+rr%
 5500 SYS "ColourTrans_SetGCOL",(colour%<<8)
 5510ELSE
 5520 FOR D = -90 TO (270-step) STEP step
 5530 red%   = ((((D+90) DIV 60) MOD 3)+1)*r%
 5540 green% = ((((D+90) DIV 60) MOD 3)+1)*g%
 5550 blue% =  ((((D+90) DIV 60) MOD 3)+1)*b%
 5560 tint%  = ((D+90) DIV 15)*64
 5570 :
 5580 IF pal%=2 AND D<90 THEN
 5590  red%   = (2-(((D+90) DIV 60) MOD 3)+1)*r%
 5600  green% = (2-(((D+90) DIV 60) MOD 3)+1)*g%
 5610  blue%  = (2-(((D+90) DIV 60) MOD 3)+1)*b%
 5620  tint%  = 1472-((D+90) DIV 15)*64
 5630 ENDIF
 5640 :
 5650 colour%=(blue%<<4)+(green%<<2)+red%
 5660 GCOL colour% TINT tint%
 5670ENDIF
 5680:
 5690h1 = ew1%/4:h2 = ew2%/4
 5700x1% = SINRAD(D)*ew1%      : y1% = (COSRAD(D)*h1)+ey1%
 5710x2% = SINRAD(D+step)*ew1% : y2% = (COSRAD(D+step)*h1)+ey1%
 5720x3% = SINRAD(D)*ew2%      : y3% = (COSRAD(D)*h2)+ey2%
 5730x4% = SINRAD(D+step)*ew2% : y4% = (COSRAD(D+step)*h2)+ey2%
 5740:
 5750PROCquad(x1%,y1%,x2%,y2%,x3%,y3%,x4%,y4%)
 5760NEXT D
 5770:
 5780ENDPROC
 5790:
 5800DEF PROCquad(x1%,y1%,x2%,y2%,x3%,y3%,x4%,y4%)
 5810MOVE x3%+375,y3%:MOVE x1%+375,y1%
 5820PLOT 85,x4%+375,y4%
 5830PLOT 85,x2%+375,y2%
 5840ENDPROC
 5850:
 5860REM The code after this is my own again.
 5870:
 5880DEF PROCmake_sprite
 5890LOCAL xeig%,yeig%,xsize%,ysize%
 5900SYS "OS_ReadModeVariable",-1,4 TO ,,xeig%
 5910SYS "OS_ReadModeVariable",-1,5 TO ,,yeig%
 5920SYS "OS_ReadModeVariable",-1,3 TO ,,cols%
 5930IF cols%<>63 THEN PROCreport(-1,"Warning: The sprite can only be properly displayed in a 256 colour mode"):usecoltrans%=TRUE ELSE usecoltrans%=FALSE
 5940xsize%=750>>xeig%
 5950ysize%=(750>>yeig%)+1
 5960size%=(xsize%*ysize%)+1000
 5970SYS "OS_Module",&06,,,size% TO ,,drawspr%
 5980!drawspr%=size%
 5990drawspr%!8=16
 6000mode%=MODE
 6010SYS "OS_SpriteOp",&109,drawspr%
 6020SYS "OS_SpriteOp",&10F,drawspr%,"potted",,xsize%,ysize%,mode%
 6030SYS "OS_SpriteOp",&118,drawspr%,"potted"
 6040change%=FALSE
 6050PROCdraw_sprite(usecoltrans%)
 6060ENDPROC
 6070:
 6080DEF PROCinit
 6090LOCAL file%
 6100DIM temp% 100,block% 1000, indir% 1000
 6110DIM icon_menu% 500, edit_menu% 500, draw_menu% 500
 6120DIM q% 11
 6130DIM time_addr% 10,valid_addr% 10
 6140DIM rect% 16, trans% 16, plotat% 8
 6150draw_open%=FALSE
 6160element%=0
 6170point%=-1
 6180DIM picture%(100,2)
 6190$time_addr%="10"
 6200$valid_addr%="A0-9"
 6210edit_file$="Outline"
 6220draw_file$="Potted"
 6230YES=1:NO=0
 6240saved%=TRUE
 6250path$="<Pottery$Dir>"
 6260file%=OPENIN(path$+".Sprites")
 6270size%=(EXT#file%)+4:CLOSE#file%
 6280DIM sparea% size%
 6290!sparea%=size%:sparea%!8=16
 6300SYS "OS_SpriteOp",&10A,sparea%,path$+".Sprites"
 6310quit%=FALSE
 6320app$="Pottery"
 6330task%=&4B534154
 6340SYS "Wimp_Initialise",200,task%,app$ TO ,task_hand%
 6350PROCtemplates(path$+".Templates")
 6360PROCmenus
 6370PROCiconbar("!"+app$,"right")
 6380PROCmake_sprite
 6390PROCdrag_init
 6400ENDPROC
 6410:
 6420DEF PROCfin
 6430SYS "Wimp_CloseDown",task_hand%,task%
 6440SYS "OS_Module",&07,,drawspr%
 6450END
 6460ENDPROC
 6470:
 6480DEF PROCtemplates(file$)
 6490SYS "Wimp_OpenTemplate",,file$
 6500$q%="info"
 6510SYS "Wimp_LoadTemplate",,block%,indir%,indir%+1000,-1,q%,0 TO ,,next_indir%
 6520SYS "Wimp_CreateWindow",,block% TO info_hand%
 6530$q%="save"
 6540SYS "Wimp_LoadTemplate",,block%,next_indir%,indir%+1000,-1,q%,0 TO ,,next_indir%
 6550SYS "Wimp_CreateWindow",,block% TO save_hand%
 6560$q%="edit"
 6570SYS "Wimp_LoadTemplate",,block%,next_indir%,indir%+1000,-1,q%,0 TO ,,next_indir%
 6580block%!64=sparea%
 6590SYS "Wimp_CreateWindow",,block% TO edit_hand%
 6600$q%="draw"
 6610SYS "Wimp_LoadTemplate",,block%,next_indir%,indir%+1000,-1,q%,0 TO ,,next_indir%
 6620SYS "Wimp_CreateWindow",,block% TO draw_hand%
 6630SYS "Wimp_CloseTemplate"
 6640!block%=save_hand%
 6650block%!4=0
 6660SYS "Wimp_GetIconState",,block%
 6670type_addr%=block%!28
 6680block%!4=1
 6690SYS "Wimp_GetIconState",,block%
 6700filename%=block%!28
 6710ENDPROC
 6720:
 6730DEF PROCmenus
 6740LOCAL b%
 6750:
 6760REM The iconbar menu
 6770b%=icon_menu%
 6780PROCheader(b%,"Pottery",100)
 6790PROCitem(b%,"Info",NO,0,info_hand%,NO,-1)
 6800PROCitem(b%,"Quit",YES,0,-1,NO,-1)
 6810:
 6820REM The edit menu
 6830b%=edit_menu%
 6840PROCheader(b%,"Edit",185)
 6850PROCitem(b%,"Colours",NO,0,edit_menu%+172,NO,-1)
 6860PROCitem(b%,"Delete last",NO,0,-1,NO,-1)
 6870PROCitem(b%,"Clear all",NO,0,-1,NO,-1)
 6880PROCitem(b%,"Open draw",NO,2,-1,NO,-1)
 6890PROCitem(b%,"Save",NO,0,save_hand%,NO,-1)
 6900PROCitem(b%,"Print",YES,0,-1,NO,-1)
 6910PROCheader(b%,"Colours",100)
 6920blue_tick%=b%
 6930PROCitem(b%,"Blue",NO,1,-1,NO,&F7000021)
 6940red_tick%=b%
 6950PROCitem(b%,"Red",NO,1,-1,NO,&B7000021)
 6960green_tick%=b%
 6970PROCitem(b%,"Green",YES,1,-1,NO,&A7000021)
 6980:
 6990REM The draw menu
 7000b%=draw_menu%
 7010PROCheader(b%,"Draw",110)
 7020PROCitem(b%,"Update",NO,2,draw_menu%+100,NO,-1)
 7030PROCitem(b%,"Save",NO,0,save_hand%,NO,-1)
 7040PROCitem(b%,"Print",YES,0,-1,NO,-1)
 7050PROCheader(b%,"Update",170)
 7060PROCitem(b%,"Now",NO,0,-1,NO,-1)
 7070cont_tick%=b%
 7080PROCitem(b%,"Continuous",YES,1,-1,NO,-1)
 7090ENDPROC
 7100:
 7110DEF PROCheader(RETURN a%,a$,w%)
 7120$a%=a$
 7130a%!12=&00070207
 7140a%!16=w%
 7150a%!20=44
 7160a%!24=0
 7170a%+=28
 7180ENDPROC
 7190:
 7200DEF PROCitem(RETURN addr%,item$,last%,menflags%,ptr%,shaded%,iconflags%)
 7210LOCAL a$,p1%,p2%
 7220addr%!0=((last%<<7) OR menflags%)
 7230addr%!4=ptr%
 7240IF iconflags%=-1 THEN iconflags%=&7000021
 7250iconflags%=iconflags% OR shaded%<<22
 7260addr%!8=iconflags%
 7270IF LEFT$(item$,2)="**" THEN
 7280 item$=RIGHT$(item$,(LENitem$-2))
 7290 p1%=INSTR(item$,",")
 7300 a$=LEFT$(item$,p1%)
 7310 addr%!12=EVAL(a$)
 7320 p2%=INSTR(item$,",",p1%+1)
 7330 a$=MID$(item$,p1%+1,p2%)
 7340 addr%!16=EVAL(a$)
 7350 a$=RIGHT$(item$,LEN(item$)-p2%)
 7360 addr%!20=EVAL(a$)
 7370ELSE
 7380 $(addr%+12)=item$
 7390ENDIF
 7400addr%+=24
 7410ENDPROC
 7420:
 7430DEF PROCiconbar(a$,p$)
 7440LOCAL p%
 7450CASE p$ OF
 7460 WHEN "right":p%=-1
 7470 WHEN "left" :p%=-2
 7480 OTHERWISE PROCreport(0,"Invalid 2nd parameter to PROCiconbar.")
 7490ENDCASE
 7500block%!0=p%
 7510block%!4=0
 7520block%!8=0
 7530block%!12=68
 7540block%!16=68
 7550block%!20=&3002
 7560$(block%+24)=a$
 7570SYS "Wimp_CreateIcon",,block% TO ibar_hand%
 7580ENDPROC
 7590:
 7600DEF FNstring(a%)
 7610LOCAL a$
 7620WHILE ?a%<>0
 7630a$+=CHR$(?a%):a%+=1
 7640ENDWHILE
 7650=a$
 7660:
 7670DEF PROCsave_edit
 7680LOCAL fh%
 7690fh%=OPENOUT(edit_file$)
 7700BPUT#fh%,"Pottery"
 7710PRINT#fh%,element%
 7720FOR I%=0 TO element%-1
 7730 PRINT#fh%,picture%(I%,0),picture%(I%,1),picture%(I%,2)
 7740NEXT
 7750CLOSE#fh%
 7760OSCLI("Settype "+edit_file$+" Pottery")
 7770saved%=TRUE
 7780ENDPROC
 7790:
 7800DEF PROCload_edit(a$)
 7810LOCAL fh%,inp$,b$,c$,col%,I%
 7820fh%=OPENIN(a$)
 7830inp$=GET$#fh%
 7840IF inp$<>"Pottery" AND inp$<>"Shape" THEN CLOSE#fh%:ERROR 1000,"This is not a file suitable for Pottery."
 7850IF inp$="Pottery" THEN
 7860 INPUT#fh%,element%
 7870 FOR I%=0 TO element%-1
 7880  INPUT#fh%,picture%(I%,0),picture%(I%,1),picture%(I%,2)
 7890 NEXT
 7900 edit_file$=a$
 7910ELSE
 7920 element%=0:col%=7
 7930 WHILE NOT EOF#fh% AND element%<100
 7940  inp$=GET$#fh%
 7950  b$=LEFT$(inp$,4)
 7960  c$=RIGHT$(inp$,LEN(inp$)-4)
 7970  CASE b$ OF
 7980    WHEN "gcol":col%=FNlookup_col(c$,col%)
 7990    WHEN "move":PROCset_point(c$,0)
 8000    WHEN "draw":PROCset_point(c$,col%)
 8010  ENDCASE
 8020 ENDWHILE
 8030 saved%=FALSE
 8040ENDIF
 8050CLOSE#fh%
 8060PROCforce_redraw(edit_hand%,90,-1,-1,-1)
 8070PROCdraw_sprite(usecoltrans%)
 8080PROCforce_redraw(draw_hand%,-1,-1,-1,-1)
 8090ENDPROC
 8100:
 8110DEF FNgetleafname(a$)
 8120WHILE INSTR(a$,".")
 8130a$=MID$(a$,INSTR(a$,".")+1)
 8140ENDWHILE
 8150=a$+CHR$0
 8160:
 8170DEF PROCprint_edit
 8180LOCAL more%,I%,first%,l%,b%
 8190LOCAL ERROR
 8200ON ERROR LOCAL:RESTORE ERROR:PROCreport(-1,"Printer driver not available"):ENDPROC
 8210SYS "Hourglass_On"
 8220pf%=OPENOUT("printer:")
 8230SYS "PDriver_SelectJob",pf%,"Pottery"
 8240RESTORE ERROR
 8250LOCAL ERROR
 8260ON ERROR LOCAL:RESTORE ERROR:SYS "PDriver_AbortJob",pf%:CLOSE#pf%:SYS "Hourglass_Off":PROCreport(-1,REPORT$):ENDPROC
 8270SYS "PDriver_PageSize" TO ,,,l%,b%
 8280!rect%=0:rect%!4=0
 8290rect%!8=438:rect%!12=750
 8300!trans%=1<<17:trans%!4=0
 8310trans%!8=0:trans%!12=1<<17
 8320!plotat%=2*l%+72000:plotat%!4=b%+72000
 8330SYS "PDriver_GiveRectangle",0,rect%,trans%,plotat%,0
 8340SYS "PDriver_DrawPage",1,block%,0,0 TO more%
 8350SYS "ColourTrans_SetGCOL",0
 8360WHILE more%
 8370 LINE 0,0,0,750
 8380 I%=0:first%=TRUE
 8390 WHILE I%<element%
 8400   IF first% THEN
 8410     MOVE picture%(I%,0),picture%(I%,1)
 8420     first%=FALSE
 8430     ELSE
 8440     DRAW picture%(I%,0),picture%(I%,1)
 8450   ENDIF
 8460   I%+=1
 8470 ENDWHILE
 8480 SYS "PDriver_GetRectangle",,block% TO more%
 8490ENDWHILE
 8500SYS "PDriver_EndJob",pf%
 8510SYS "Hourglass_Off"
 8520CLOSE#pf%
 8530ENDPROC
 8540:
 8550DEF PROCprint_draw
 8560SYS "Hourglass_On"
 8570LOCAL ERROR
 8580ON ERROR LOCAL:RESTORE ERROR:CLOSE#pf%:PROCreport(-1,"Printer driver not available"):ENDPROC
 8590pf%=OPENOUT("printer:")
 8600SYS "PDriver_SelectJob",pf%,"Pottery"
 8610RESTORE ERROR
 8620PROCdraw_sprite(TRUE)
 8630LOCAL ERROR
 8640ON ERROR LOCAL:RESTORE ERROR:SYS "PDriver_AbortJob",pf%:CLOSE#pf%:SYS "Hourglass_Off":PROCreport(-1,REPORT$):ENDPROC
 8650SYS "PDriver_PageSize" TO ,,,l%,b%
 8660!rect%=0:rect%!4=0
 8670rect%!8=750:rect%!12=750
 8680!trans%=1<<16:trans%!4=0
 8690trans%!8=0:trans%!12=1<<16
 8700!plotat%=2*l%+72000:plotat%!4=b%+360000
 8710SYS "PDriver_GiveRectangle",0,rect%,trans%,plotat%,0
 8720SYS "PDriver_DrawPage",1,block%,0,0 TO more%
 8730WHILE more%
 8740 SYS "OS_SpriteOp",&122,drawspr%,"potted",0,0,0
 8750 SYS "PDriver_GetRectangle",,block% TO more%
 8760ENDWHILE
 8770SYS "PDriver_EndJob",pf%
 8780SYS "Hourglass_Off"
 8790CLOSE#pf%
 8800ENDPROC
 8810:
 8820DEF PROCdrag_init
 8830drag_start%=FNswi("DragASprite_Start")
 8840drag_stop%=FNswi("DragASprite_Stop")
 8850SYS "OS_Byte",161,28 TO ,,cmos
 8860IF (cmos AND 2)=0 drag_start%=-1:drag_stop%=-1
 8870ENDPROC
 8880:
 8890DEF FNswi(swi$)
 8900SYS "XOS_SWINumberFromString",,swi$ TO swi;flag
 8910IF (flag AND 1) swi=-1
 8920=swi
 8930:
 8940DEF FNlookup_col(a$,old%)
 8950LOCAL result%
 8960CASE a$ OF
 8970 WHEN "grey","white" :result%=7
 8980 WHEN "magenta"      :result%=6
 8990 WHEN "cyan"         :result%=5
 9000 WHEN "blue"         :result%=4
 9010 WHEN "yellow"       :result%=3
 9020 WHEN "red"          :result%=2
 9030 WHEN "green"        :result%=1
 9040 WHEN "clear","black":result%=0
 9050 OTHERWISE result%=old%
 9060ENDCASE
 9070=result%
 9080:
 9090DEF PROCset_point(a$,a%)
 9100LOCAL p%,b$
 9110p%=INSTR(a$,",")
 9120b$=RIGHT$(a$,LEN(a$)-p%)
 9130picture%(element%,0)=EVAL(a$)
 9140picture%(element%,1)=EVAL(b$)
 9150picture%(element%,2)=a%
 9160element%+=1
 9170ENDPROC


!�     >!RunImage for !Pottery
� By  Richard Seago
� For 32-bit machines
(� (c) AU February 1994
2:
<� � �4:� �:�
F	�init
P� � �report(�,�$+" "+Þ)
Zȕ � quit%
d
 �main
n�
x�fin
��
�:
�� �report(err%,mess$)
�� flags%,title$,fatal%
�fatal%=�
�
Ȏ err% �
� � -1:flags%=%10001
�(         title$="Message from "+app$
�         fatal%=�
� � -2:� �(saved%) �
�          flags%=%10011
�-          title$="Pottery asked to quit."
�          fatal%=�
H          mess$="You still have unsaved data. Click Cancel to quit."
         �
          �
"         �
, :flags%=%00001
6           title$=app$
@%           � err%=1000 � fatal%=�
J�
T(� fatal% � mess$+=" Error is fatal."
^!block%=err%
h$(block%+4)=mess$+�0
r8ș "Wimp_ReportError",block%,flags%,title$ � ,reply%
|+� reply%=2 � fatal% � quit%=� � quit%=�
��
�:
�� �main
�$ș "Wimp_Poll",,block% � reason%
�Ȏ reason% �
� � 0:�null
� � 1:�redraw
�% � 2:ș "Wimp_OpenWindow",,block%
�/        � !block%=draw_hand% � draw_open%=�
�& � 3:ș "Wimp_CloseWindow",,block%
�/        � !block%=draw_hand% � draw_open%=�
� � 6:�click
� � 7:�start_save
 � 8:�key_pressed
 � 9:�selection
 � 17,18:�message
&�
0�
::
D� �null
N� draw_open% �
X � �<>mode% �
b"  ș "OS_Module",&07,,drawspr%
l  �make_sprite
v+  �force_redraw(draw_hand%,-1,-1,-1,-1)
� �
�& � ((!cont_tick% � 1) � change%) �
�   �draw_sprite(usecoltrans%)
�+  �force_redraw(draw_hand%,-1,-1,-1,-1)
� �
��
��
�:
�� �key_pressed
�Ȏ block%!24 �
� � 13:�quick_save
�$ ș "Wimp_ProcessKey",block%!24
��
�
:
'� �force_redraw(h%,x1%,y1%,x2%,y2%)
 !block%=h%
*$ș "Wimp_GetWindowState",,block%
4� x1%<>-1 � block%!4=x1%
>� y1%<>-1 � block%!8=y1%
H� x2%<>-1 � block%!12=x2%
R� y2%<>-1 � block%!16=y2%
\Bș "Wimp_ForceRedraw",-1,block%!4,block%!8,block%!12,block%!16
f�
p:
z
� �redraw
�Ȏ !block% �
�  � draw_hand%:�update_draw
�  � edit_hand%:�update_edit
��
��
�:
�� �click
�� newcols%,xx%,yy%
�Ȏ block%!12 �
�#  � -2:Ȏ ((block%!8) � %111) �
�,            � 1:�open_window(edit_hand%)
�9            � 2:�show_menu(icon_menu%,!block%-64,184)
�                   menu%=1
.            � 4:�draw_sprite(usecoltrans%)
/                   �open_window(draw_hand%)
/                   �open_window(edit_hand%)
$          �
.+  � edit_hand%:Ȏ ((block%!8) � %111) �
8A                    � 1:point%=�which_point(!block%,block%!4)
B-                           � point%<>-1 �
L4                             �move_point(point%)
V*                             point%=-1
`                            �
j'                           saved%=�
t4                    � 2:$filename%=edit_file$+�0
~5                           $type_addr%="file_00f"
�7                           xx%=!block%:yy%=block%!4
�;                           point%=�which_point(xx%,yy%)
�-                           � point%<>-1 �
�1                            oldcols%=�colours
�H                            newcols%=(picture%(point%,2) � oldcols%)
�D                            � (newcols% � 4)=4 � �update_cols(0)
�D                            � (newcols% � 2)=2 � �update_cols(1)
�D                            � (newcols% � 1)=1 � �update_cols(2)
�E                            �force_redraw(edit_hand%,90,-1,-1,-1)
�                            �
�@                           �show_menu(edit_menu%,xx%-64,yy%)
�&                           menu%=2
*                    � 4:Ȏ block%!16 �

8                             � -1:� Window work area
H                      � �line � �add_line(!block%,block%!4,�colours)
A                      � �move � �add_line(!block%,block%!4,0)
(#                      change%=�
2"                      saved%=�
<E                             �  5,6,7:�update_cols((block%!16)-5)
F                            �
P                  �
Z+  � draw_hand%:Ȏ ((block%!8) � %111) �
d4                    � 2:$filename%=draw_file$+�0
n5                           $type_addr%="file_ff9"
xI                           �show_menu(draw_menu%,!block%-64,block%!4)
�&                           menu%=3
�6                    � 4:�draw_sprite(usecoltrans%)
�D                           �force_redraw(draw_hand%,-1,-1,-1,-1)
�                  �
�!  � save_hand%:Ȏ block%!16 �
�7                    � 0:� block%!8 � 64 � �drag_box
�8                    � 2:� block%!8 � 5 � �quick_save
�                  �
��
��
�:
�� �quick_save
�� error%
error%=�
Ȏ menu% �
& � 2:edit_file$=�string(filename%)
"         � �edit_file$,".") �
,          �save_edit
6         �
@          error%=�
J
        �
T& � 3:draw_file$=�string(filename%)
^         � �draw_file$,".") �
h7          ș "OS_SpriteOp",&10C,drawspr%,draw_file$
r         �
|          error%=�
�
        �
��
�L� error% � �report(1000,"To save, drag the icon to a directory viewer.")
��
�:
�� �drag_box
�
� sprite$
�!block%=save_hand%
�$ș "Wimp_GetWindowState",,block%
�ox%=block%!4-block%!20
�oy%=block%!16-block%!24
�block%!4=0
�"ș "Wimp_GetIconState",,block%
block%!4=5:block%!8+=ox%
block%!12+=oy%
block%!16+=ox%
&block%!20+=oy%
0block%!24=0:block%!28=0
:block%!32=&7FFFFFFF
Dblock%!36=&7FFFFFFF
N� drag_start%=-1 �
X ș "Wimp_DragBox",,block%
b�
l8 � menu%=2 � sprite$="file_00f" � sprite$="file_ff9"
v: ș drag_start%,%11000101,1,sprite$,block%+8,block%+24
��
��
�:
�� �start_save
�"� drag_stop%<>-1 ș drag_stop%
�$ș "Wimp_GetPointerInfo",,block%
�+block%!20=block%!12:block%!24=block%!16
�(block%!28=!block%:block%!32=block%!4
�� menu%=2 �
�" edit_file$=�string(filename%)
� block%!36=1200
� block%!40=&00F
�* $(block%+44)=�getleafname(edit_file$)
 saving%=1
�
� menu%=3 �
 " draw_file$=�string(filename%)
* block%!36=size%
4 block%!40=&FF9
>* $(block%+44)=�getleafname(draw_file$)
H saving%=-1
R�
\!block%=60:block%!12=0
fblock%!16=1
p7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
z�
�:
�� �open_window(h%)
�!block%=h%
�"� h%=draw_hand% � draw_open%=�
�$ș "Wimp_GetWindowState",,block%
� ș "Wimp_OpenWindow",,block%
��
�:
�� �selection
�#ș "Wimp_GetPointerInfo",,temp%
�
reopen%=�
�� temp%!8=1 � reopen%=�
�Ȏ menu% �
	  � 1:Ȏ block%!0 �
	           � 0:� Info
	           � 1:quit%=�
	$$                  �report(-2,"")
	.         �
	89         � reopen% � ș "Wimp_CreateMenu",,icon_menu%
	B  � 2:Ȏ !block% �
	L            � 0:Ȏ block%!4 �
	V5                   � 0,1,2:�update_cols(block%!4)
	`0                              � point%<>-1 �
	j>                               picture%(point%,2)=�colours
	t0                               � reopen%=� �
	~>                                �draw_sprite(usecoltrans%)
	�I                                �force_redraw(draw_hand%,-1,-1,-1,-1)
	�$                               �
	�#                              �
	�*                              saved%=�
	�                  �
	�           � 1:element%-=1
	�/                  � element%<0 � element%=0
	�;                  �force_redraw(edit_hand%,90,-1,-1,-1)
	�0                  �draw_sprite(usecoltrans%)
	�;                  �force_redraw(draw_hand%,-1,-1,-1,-1)
	�                  saved%=�
	�           � 2:element%=0
;                  �force_redraw(edit_hand%,90,-1,-1,-1)

0                  �draw_sprite(usecoltrans%)
;                  �force_redraw(draw_hand%,-1,-1,-1,-1)
                  saved%=�
(+           � 3:�open_window(draw_hand%)
2           � 4:�quick_save
<           � 5:�print_edit
F         �
P         point%=-1
Z9         � reopen% � ș "Wimp_CreateMenu",,edit_menu%
d  � 3:Ȏ !block% �
n            � 0:Ȏ block%!4 �
x9                    � -1,0:�draw_sprite(usecoltrans%)
�G                              �force_redraw(draw_hand%,-1,-1,-1,-1)
�/                    � 1:�tick(cont_tick%,2)
�8                           � PROCtick(every_tick%,0)
�                  �
�           � 2:�print_draw
�         �
�9         � reopen% � ș "Wimp_CreateMenu",,draw_menu%
��
��
�:
�� �message
�Ȏ (block%!16) �
� � 0:quit%=�
 � 2:Ȏ saving% �
/         � -1:draw_file$=�string(block%+44)
>                 ș "OS_SpriteOp",&10C,drawspr%,draw_file$
"/         �  1:edit_file$=�string(block%+44)
,                 �save_edit
6
        �
@        block%!12=block%!8
J#        block%!16=3:!block%=256
T?        ș "Wimp_SendMessage",18,block%,block%!20,block%!24
^' � 3:�load_edit(�string(block%+44))
h � 4:saving%=0
r�
|�
�:
�� �update_cols(c%)
�� x%
�Ȏ c% �
� � 0:x%=blue_tick%
� � 1:x%=red_tick%
� � 2:x%=green_tick%
��
��tick(x%,2)
�#�set_icon(edit_hand%,c%+5,2,21)
�)�force_redraw(edit_hand%,-1,-1,-1,-1)
��
�:
� �tick(addr%,x%)
Ȏ x% �
& � 0:!addr%=((!addr%) � &FFFFFFFE)
& � 1:!addr%=((!addr%) � 1)
0 � 2:!addr%=((!addr%) � 1)
:�
D�
N:
X� �icon_state(wh%,i%,bit%)
b!temp%=wh%
ltemp%!4=i%
v!ș "Wimp_GetIconState",,temp%
�!� (temp%!24 � (1<<bit%)) � =�
�=�
�:
�� �line
�'� �icon_state(edit_hand%,0,21) � =�
�=�
�:
�� �move
�'� �icon_state(edit_hand%,1,21) � =�
�=�
�:
� � �set_icon(wh%,ih%,x%,bit%)
�!block%=wh%

block%!4=ih%

Ȏ x% �

&  � 0:block%!8=0:block%!12=1<<bit%

 ,  � 1:block%!8=1<<bit%:block%!12=1<<bit%

*&  � 2:block%!8=1<<bit%:block%!12=0

4�

>"ș "Wimp_SetIconState",,block%

H�

R:

\� �add_line(x%,y%,c%)

f� ox%,oy%,fiddle%

p(� element%=0 � fiddle%=0 � fiddle%=1

zd� element%>100 � �report(1000,"Memory full, no more points can be added to the picture."):x%=ox%

�!block%=edit_hand%

�$ș "Wimp_GetWindowState",,block%

�ox%=block%!4-block%!20

�oy%=block%!16-block%!24

�� x%>=ox%+100 �

�$ picture%(element%,0)=x%-ox%-100

�$ picture%(element%,1)=y%-oy%+750

�$ picture%(element%-fiddle%,2)=c%

�/ �force_redraw(edit_hand%,ox%+100,-1,-1,-1)

� element%+=1

��

��

�:
� �which_point(x%,y%)
 � ox%,oy%,px%,py%,result%,I%
!block%=edit_hand%
$$ș "Wimp_GetWindowState",,block%
.ox%=block%!4-block%!20
8oy%=block%!16-block%!24
Bpx%=x%-ox%-100
Lpy%=y%-oy%+750
Vresult%=-1
`� I%=0 � element%-1
jG � �(picture%(I%,0)-px%)<10 � �(picture%(I%,1)-py%)<10 � result%=I%
t�
~=result%
�:
�� �move_point(p%)
�� x%,y%,mb%,ox%,oy%,xx%,yy%
�!block%=edit_hand%
�$ș "Wimp_GetWindowState",,block%
�ox%=block%!4-block%!20+100
�oy%=block%!16-block%!24-750
�Bȗ ȓ block%!4,block%!8,block%!12-block%!4,block%!16-block%!18
�
� 3,14
�xx%=picture%(p%,0)+ox%
�yy%=picture%(p%,1)+oy%
��
 ȗ x%,y%,mb%


 � p%>0 �
:   � ox%+picture%(p%-1,0),oy%+picture%(p%-1,1),xx%,yy%
8   � ox%+picture%(p%-1,0),oy%+picture%(p%-1,1),x%,y%
( �
2 � p%<(element%-1) �
<:   � ox%+picture%(p%+1,0),oy%+picture%(p%+1,1),xx%,yy%
F8   � ox%+picture%(p%+1,0),oy%+picture%(p%+1,1),x%,y%
P �
Z xx%=x%:yy%=y%
d� mb%<>1
nȗ ȓ 0,0,1279,1023
xpicture%(p%,0)=x%-ox%
�)� picture%(p%,0)<0 � picture%(p%,0)=0
�picture%(p%,1)=y%-oy%
�)�force_redraw(edit_hand%,-1,-1,-1,-1)
��draw_sprite(usecoltrans%)
�)�force_redraw(draw_hand%,-1,-1,-1,-1)
��
�:
�� �colours
�� x%
� � (!blue_tick% � 1)=1 � x%=4
� � (!red_tick% � 1)=1 � x%+=2
�"� (!green_tick% � 1)=1 � x%+=1
�=x%
:
� �show_menu(d%,x%,y%)
"ș "Wimp_CreateMenu",,d%,x%,y%
"�
,:
6� �update_draw
@� more%
J*ș "Wimp_RedrawWindow",,block% � more%
Tox%=block%!4-block%!20
^oy%=block%!16-block%!24
hȕ more%
r: ș "OS_SpriteOp",&122,drawspr%,"potted",ox%,oy%-752,0
|+ ș "Wimp_GetRectangle",,block% � more%
��
��
�:
�� �update_edit
�9� more%,I%,first%,word%,fiddle%,xx%,yy%,cc%,rr%,x%,y%
�
rr%=10
�
x%=0:y%=0
�*ș "Wimp_RedrawWindow",,block% � more%
�ox%=block%!4-block%!20
�oy%=block%!16-block%!24
�ș "Wimp_SetColour",7
�Ȏ �colours �
�  � 0:mess$="Clear":mess2$=""
  � 1:mess$="Green":mess2$=""
  � 2:mess$="Red"  :mess2$=""
% � 3:mess$="ow"   :mess2$="Yell-"
&  � 4:mess$="Blue" :mess2$=""
0  � 5:mess$="Cyan" :mess2$=""
:% � 6:mess$="nta"  :mess2$="Mage-"
D  � 7:mess$="Grey" :mess2$=""
N�
Xȕ more%
b" � ox%+100,oy%,ox%+100,oy%-750
l I%=0:first%=�:fiddle%=0
v ȕ I%<element%
�"    xx%=ox%+100+picture%(I%,0)
�"    yy%=oy%-750+picture%(I%,1)
�#    Ȏ picture%(I%-fiddle%,2) �
�      �    0:cc%=1
�*       � I%=point%+1 � cc%=14 � cc%=7
�	    �
�    � first% �
�      � xx%,yy%
�      �colour(15)
�      ȏ Ȑ xx%,yy%,rr%
�      first%=�:fiddle%=1
�
     �
�      �colour(15)
      ȏ Ȑ xx%,yy%,rr%
      �colour(cc%)
      � xx%,yy%,x%,y%
 	    �
*
    I%+=1
4    x%=xx%
>    y%=yy%
H �
R �colour(7)
\ � ox%+2,oy%-470
f
 � mess2$
p � ox%+2,oy%-500
z � mess$
�+ ș "Wimp_GetRectangle",,block% � more%
��
��
�:
�� �colour(c%)
�ș "Wimp_SetColour",c%
��
�:
�� �draw_sprite(print%)
�*� r0%,r1%,r2%,r3%,I%,start%,end%,step%
�ș "Hourglass_On"
�� draw_open% �
�@ ș "OS_SpriteOp",&13C,drawspr%,"potted",1 � r0%,r1%,r2%,r3%
 nshades=12
 step=360/(2*nshades)
 � element%>1 �
$:  � change%=� � picture%(element%-1,1)>=picture%(0,1)�
.$   � picture%(element%-2,2)<>0 �
8�     �cylinder(picture%(element%-2,1),picture%(element%-2,0),picture%(element%-1,1),picture%(element%-1,0),picture%(element%-2,2),1)
B   �
L  �
V   ș "Wimp_SetColour",135
`   �
j0   � picture%(element%-1,1)>=picture%(0,1) �
t    step%=1
~    start%=0
�    end%=element%-2
�   �
�    start%=element%-2
�    end%=0
�    step%=-1
�   �
�!   � I%=start% � end% � step%
�    � picture%(I%,2)<>0 �
�d     �cylinder(picture%(I%,1),picture%(I%,0),picture%(I%+1,1),picture%(I%+1,0),picture%(I%,2),1)
�	    �
�   �
�  �
 �

  ș "Wimp_SetColour",135
  �
 �
(% ș "OS_SpriteOp",r0%,r1%,r2%,r3%
2�
<
change%=�
Fș "Hourglass_Off"
P�
Z:
dL� The following lines of code are those that originally appeared in BAU.
n?� My thanks to Rob Miller they gave me alot to think about.
x:
�.� �cylinder(ey1%,ew1%,ey2%,ew2%,col%,pal%)
�6� red%,blue%,green%,tint%,r%,g%,b%,rr%,gg%,bb%,tt%
�b%=(col% � %100)>>2
�r%=(col% � %010)>>1
�g%=(col% � %001)
�:
�� print% �
�" � D = -90 � (270-step) � step
�% red%   = ((((D+90) � 60) � 3)+1)
�% green% = ((((D+90) � 60) � 3)+1)
�% blue% =  ((((D+90) � 60) � 3)+1)
�! tint%  = (((D+90) � 15) � 3)
� :
 � pal%=2 � D<90 �
(  red%   = (2-(((D+90) � 60) � 3)+1)
(  green% = (2-(((D+90) � 60) � 3)+1)
"(  blue%  = (2-(((D+90) � 60) � 3)+1)
,'  tint%  = (1472-((D+90) � 15) � 3)
6 �
@ :
J tt%=(tint%)
T rr%=(tt%+(red%<<2))*r%
^ gg%=(tt%+(green%<<2))*g%
h bb%=(tt%+(blue%<<2))*b%
r@ colour%=(bb%<<20)+(bb%<<16)+(gg%<<12)+(gg%<<8)+(rr%<<4)+rr%
|* ș "ColourTrans_SetGCOL",(colour%<<8)
��
�" � D = -90 � (270-step) � step
�( red%   = ((((D+90) � 60) � 3)+1)*r%
�( green% = ((((D+90) � 60) � 3)+1)*g%
�( blue% =  ((((D+90) � 60) � 3)+1)*b%
� tint%  = ((D+90) � 15)*64
� :
� � pal%=2 � D<90 �
�+  red%   = (2-(((D+90) � 60) � 3)+1)*r%
�+  green% = (2-(((D+90) � 60) � 3)+1)*g%
�+  blue%  = (2-(((D+90) � 60) � 3)+1)*b%
�$  tint%  = 1472-((D+90) � 15)*64
� �
 :
( colour%=(blue%<<4)+(green%<<2)+red%
 � colour% Ȝ tint%
&�
0:
:h1 = ew1%/4:h2 = ew2%/4
D1x1% = ��(D)*ew1%      : y1% = (��(D)*h1)+ey1%
N6x2% = ��(D+step)*ew1% : y2% = (��(D+step)*h1)+ey1%
X1x3% = ��(D)*ew2%      : y3% = (��(D)*h2)+ey2%
b6x4% = ��(D+step)*ew2% : y4% = (��(D+step)*h2)+ey2%
l:
v*�quad(x1%,y1%,x2%,y2%,x3%,y3%,x4%,y4%)
�� D
�:
��
�:
�,� �quad(x1%,y1%,x2%,y2%,x3%,y3%,x4%,y4%)
�� x3%+375,y3%:� x1%+375,y1%
�� 85,x4%+375,y4%
�� 85,x2%+375,y2%
��
�:
�*� The code after this is my own again.
�:
�� �make_sprite
� xeig%,yeig%,xsize%,ysize%
+ș "OS_ReadModeVariable",-1,4 � ,,xeig%
+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
 +ș "OS_ReadModeVariable",-1,3 � ,,cols%
*�� cols%<>63 � �report(-1,"Warning: The sprite can only be properly displayed in a 256 colour mode"):usecoltrans%=� � usecoltrans%=�
4xsize%=750>>xeig%
>ysize%=(750>>yeig%)+1
Hsize%=(xsize%*ysize%)+1000
R+ș "OS_Module",&06,,,size% � ,,drawspr%
\!drawspr%=size%
fdrawspr%!8=16
pmode%=�
z"ș "OS_SpriteOp",&109,drawspr%
�@ș "OS_SpriteOp",&10F,drawspr%,"potted",,xsize%,ysize%,mode%
�+ș "OS_SpriteOp",&118,drawspr%,"potted"
�
change%=�
��draw_sprite(usecoltrans%)
��
�:
�� �init
�� file%
�(� temp% 100,block% 1000, indir% 1000
�4� icon_menu% 500, edit_menu% 500, draw_menu% 500
�� q% 11
�"� time_addr% 10,valid_addr% 10
�$� rect% 16, trans% 16, plotat% 8
draw_open%=�
element%=0

point%=-1
$� picture%(100,2)
.$time_addr%="10"
8$valid_addr%="A0-9"
Bedit_file$="Outline"
Ldraw_file$="Potted"
VYES=1:NO=0
`saved%=�
jpath$="<Pottery$Dir>"
tfile%=�(path$+".Sprites")
~size%=(�#file%)+4:�#file%
�� sparea% size%
�!sparea%=size%:sparea%!8=16
�2ș "OS_SpriteOp",&10A,sparea%,path$+".Sprites"
�quit%=�
�app$="Pottery"
�task%=&4B534154
�5ș "Wimp_Initialise",200,task%,app$ � ,task_hand%
�"�templates(path$+".Templates")
�
�menus
��iconbar("!"+app$,"right")
��make_sprite
��drag_init
�

:

� �fin
(ș "Wimp_CloseDown",task_hand%,task%
( ș "OS_Module",&07,,drawspr%
2�
<�
F:
P� �templates(file$)
Z!ș "Wimp_OpenTemplate",,file$
d$q%="info"
nMș "Wimp_LoadTemplate",,block%,indir%,indir%+1000,-1,q%,0 � ,,next_indir%
x/ș "Wimp_CreateWindow",,block% � info_hand%
�$q%="save"
�Rș "Wimp_LoadTemplate",,block%,next_indir%,indir%+1000,-1,q%,0 � ,,next_indir%
�/ș "Wimp_CreateWindow",,block% � save_hand%
�$q%="edit"
�Rș "Wimp_LoadTemplate",,block%,next_indir%,indir%+1000,-1,q%,0 � ,,next_indir%
�block%!64=sparea%
�/ș "Wimp_CreateWindow",,block% � edit_hand%
�$q%="draw"
�Rș "Wimp_LoadTemplate",,block%,next_indir%,indir%+1000,-1,q%,0 � ,,next_indir%
�/ș "Wimp_CreateWindow",,block% � draw_hand%
�ș "Wimp_CloseTemplate"
�!block%=save_hand%
�block%!4=0
"ș "Wimp_GetIconState",,block%
type_addr%=block%!28
block%!4=1
""ș "Wimp_GetIconState",,block%
,filename%=block%!28
6�
@:
J� �menus
T� b%
^:
h� The iconbar menu
rb%=icon_menu%
|�header(b%,"Pottery",100)
�*�item(b%,"Info",NO,0,info_hand%,NO,-1)
�#�item(b%,"Quit",YES,0,-1,NO,-1)
�:
�� The edit menu
�b%=edit_menu%
��header(b%,"Edit",185)
�1�item(b%,"Colours",NO,0,edit_menu%+172,NO,-1)
�)�item(b%,"Delete last",NO,0,-1,NO,-1)
�'�item(b%,"Clear all",NO,0,-1,NO,-1)
�'�item(b%,"Open draw",NO,2,-1,NO,-1)
�*�item(b%,"Save",NO,0,save_hand%,NO,-1)
�$�item(b%,"Print",YES,0,-1,NO,-1)
��header(b%,"Colours",100)
blue_tick%=b%
)�item(b%,"Blue",NO,1,-1,NO,&F7000021)
red_tick%=b%
&(�item(b%,"Red",NO,1,-1,NO,&B7000021)
0green_tick%=b%
:+�item(b%,"Green",YES,1,-1,NO,&A7000021)
D:
N� The draw menu
Xb%=draw_menu%
b�header(b%,"Draw",110)
l0�item(b%,"Update",NO,2,draw_menu%+100,NO,-1)
v*�item(b%,"Save",NO,0,save_hand%,NO,-1)
�$�item(b%,"Print",YES,0,-1,NO,-1)
��header(b%,"Update",170)
�!�item(b%,"Now",NO,0,-1,NO,-1)
�cont_tick%=b%
�)�item(b%,"Continuous",YES,1,-1,NO,-1)
��
�:
�� �header(� a%,a$,w%)
�
$a%=a$
�a%!12=&00070207
�a%!16=w%
�a%!20=44
�a%!24=0

a%+=28
�
:
 B� �item(� addr%,item$,last%,menflags%,ptr%,shaded%,iconflags%)
*� a$,p1%,p2%
4$addr%!0=((last%<<7) � menflags%)
>addr%!4=ptr%
H)� iconflags%=-1 � iconflags%=&7000021
R'iconflags%=iconflags% � shaded%<<22
\addr%!8=iconflags%
f� �item$,2)="**" �
p item$=�item$,(�item$-2))
z p1%=�item$,",")
� a$=�item$,p1%)
� addr%!12=�(a$)
� p2%=�item$,",",p1%+1)
� a$=�item$,p1%+1,p2%)
� addr%!16=�(a$)
� a$=�item$,�(item$)-p2%)
� addr%!20=�(a$)
��
� $(addr%+12)=item$
��
�
addr%+=24
��
�:
� �iconbar(a$,p$)
� p%
Ȏ p$ �
$ � "right":p%=-1
. � "left" :p%=-2
89  �report(0,"Invalid 2nd parameter to PROCiconbar.")
B�
Lblock%!0=p%
Vblock%!4=0
`block%!8=0
jblock%!12=68
tblock%!16=68
~block%!20=&3002
�$(block%+24)=a$
�-ș "Wimp_CreateIcon",,block% � ibar_hand%
��
�:
�� �string(a%)
�� a$
�
ȕ ?a%<>0
�a$+=�(?a%):a%+=1
��
�=a$
�:
�� �save_edit
	� fh%

fh%=�(edit_file$)
�#fh%,"Pottery"
�#fh%,element%
(� I%=0 � element%-1
27 �#fh%,picture%(I%,0),picture%(I%,1),picture%(I%,2)
<�
F	�#fh%
P'�("Settype "+edit_file$+" Pottery")
Zsaved%=�
d�
n:
x� �load_edit(a$)
�� fh%,inp$,b$,c$,col%,I%
�
fh%=�(a$)
�inp$=�#fh%
�_� inp$<>"Pottery" � inp$<>"Shape" � �#fh%:� 1000,"This is not a file suitable for Pottery."
�� inp$="Pottery" �
� �#fh%,element%
� � I%=0 � element%-1
�8  �#fh%,picture%(I%,0),picture%(I%,1),picture%(I%,2)
� �
� edit_file$=a$
��
� element%=0:col%=7
� ȕ � �#fh% � element%<100
  inp$=�#fh%
  b$=�inp$,4)
  c$=�inp$,�(inp$)-4)
"
  Ȏ b$ �
,*    � "gcol":col%=�lookup_col(c$,col%)
6!    � "move":�set_point(c$,0)
@$    � "draw":�set_point(c$,col%)
J  �
T �
^
 saved%=�
h�
r	�#fh%
|)�force_redraw(edit_hand%,90,-1,-1,-1)
��draw_sprite(usecoltrans%)
�)�force_redraw(draw_hand%,-1,-1,-1,-1)
��
�:
�� �getleafname(a$)
�ȕ �a$,".")
�a$=�a$,�a$,".")+1)
��
�
=a$+�0
�:
�� �print_edit
�� more%,I%,first%,l%,b%
�� �
 :� � �:� �:�report(-1,"Printer driver not available"):�
 ș "Hourglass_On"
 pf%=�("printer:")
 &(ș "PDriver_SelectJob",pf%,"Pottery"
 0� �
 :� �
 DQ� � �:� �:ș "PDriver_AbortJob",pf%:�#pf%:ș "Hourglass_Off":�report(-1,�$):�
 N$ș "PDriver_PageSize" � ,,,l%,b%
 X!rect%=0:rect%!4=0
 brect%!8=438:rect%!12=750
 l!trans%=1<<17:trans%!4=0
 vtrans%!8=0:trans%!12=1<<17
 �*!plotat%=2*l%+72000:plotat%!4=b%+72000
 �7ș "PDriver_GiveRectangle",0,rect%,trans%,plotat%,0
 �.ș "PDriver_DrawPage",1,block%,0,0 � more%
 �ș "ColourTrans_SetGCOL",0
 �ȕ more%
 � � 0,0,0,750
 � I%=0:first%=�
 � ȕ I%<element%
 �   � first% �
 �(     � picture%(I%,0),picture%(I%,1)
 �     first%=�
 �
     �
 �(     � picture%(I%,0),picture%(I%,1)
!   �
!   I%+=1
! �
! . ș "PDriver_GetRectangle",,block% � more%
!*�
!4ș "PDriver_EndJob",pf%
!>ș "Hourglass_Off"
!H	�#pf%
!R�
!\:
!f� �print_draw
!pș "Hourglass_On"
!z� �
!�@� � �:� �:�#pf%:�report(-1,"Printer driver not available"):�
!�pf%=�("printer:")
!�(ș "PDriver_SelectJob",pf%,"Pottery"
!�� �
!��draw_sprite(�)
!�� �
!�Q� � �:� �:ș "PDriver_AbortJob",pf%:�#pf%:ș "Hourglass_Off":�report(-1,�$):�
!�$ș "PDriver_PageSize" � ,,,l%,b%
!�!rect%=0:rect%!4=0
!�rect%!8=750:rect%!12=750
!�!trans%=1<<16:trans%!4=0
!�trans%!8=0:trans%!12=1<<16
!�+!plotat%=2*l%+72000:plotat%!4=b%+360000
"7ș "PDriver_GiveRectangle",0,rect%,trans%,plotat%,0
".ș "PDriver_DrawPage",1,block%,0,0 � more%
"ȕ more%
"$2 ș "OS_SpriteOp",&122,drawspr%,"potted",0,0,0
".. ș "PDriver_GetRectangle",,block% � more%
"8�
"Bș "PDriver_EndJob",pf%
"Lș "Hourglass_Off"
"V	�#pf%
"`�
"j:
"t� �drag_init
"~)drag_start%=�swi("DragASprite_Start")
"�'drag_stop%=�swi("DragASprite_Stop")
"� ș "OS_Byte",161,28 � ,,cmos
"�/� (cmos � 2)=0 drag_start%=-1:drag_stop%=-1
"��
"�:
"�� �swi(swi$)
"�1ș "XOS_SWINumberFromString",,swi$ � swi;flag
"�� (flag � 1) swi=-1
"�=swi
"�:
"�� �lookup_col(a$,old%)
"�
� result%
#Ȏ a$ �
#
  � "grey","white" :result%=7
#  � "magenta"      :result%=6
#  � "cyan"         :result%=5
#(  � "blue"         :result%=4
#2  � "yellow"       :result%=3
#<  � "red"          :result%=2
#F  � "green"        :result%=1
#P  � "clear","black":result%=0
#Z  result%=old%
#d�
#n=result%
#x:
#�� �set_point(a$,a%)
#�� p%,b$
#�p%=�a$,",")
#�b$=�a$,�(a$)-p%)
#�picture%(element%,0)=�(a$)
#�picture%(element%,1)=�(b$)
#�picture%(element%,2)=a%
#�element%+=1
#��
�

00000000  0d 00 0a 21 f4 20 20 20  20 20 3e 21 52 75 6e 49  |...!.     >!RunI|
00000010  6d 61 67 65 20 66 6f 72  20 21 50 6f 74 74 65 72  |mage for !Potter|
00000020  79 0d 00 14 17 f4 20 42  79 20 20 52 69 63 68 61  |y..... By  Richa|
00000030  72 64 20 53 65 61 67 6f  0d 00 1e 19 f4 20 46 6f  |rd Seago..... Fo|
00000040  72 20 33 32 2d 62 69 74  20 6d 61 63 68 69 6e 65  |r 32-bit machine|
00000050  73 0d 00 28 1a f4 20 28  63 29 20 41 55 20 46 65  |s..(.. (c) AU Fe|
00000060  62 72 75 61 72 79 20 31  39 39 34 0d 00 32 05 3a  |bruary 1994..2.:|
00000070  0d 00 3c 10 ee 20 85 20  ef 34 3a f1 20 9e 3a e0  |..<.. . .4:. .:.|
00000080  0d 00 46 09 f2 69 6e 69  74 0d 00 50 1c ee 20 85  |..F..init..P.. .|
00000090  20 f2 72 65 70 6f 72 74  28 9f 2c f6 24 2b 22 20  | .report(.,.$+" |
000000a0  22 2b c3 9e 29 0d 00 5a  0e c8 95 20 ac 20 71 75  |"+..)..Z... . qu|
000000b0  69 74 25 0d 00 64 0a 20  f2 6d 61 69 6e 0d 00 6e  |it%..d. .main..n|
000000c0  05 ce 0d 00 78 08 f2 66  69 6e 0d 00 82 05 e0 0d  |....x..fin......|
000000d0  00 8c 05 3a 0d 00 96 19  dd 20 f2 72 65 70 6f 72  |...:..... .repor|
000000e0  74 28 65 72 72 25 2c 6d  65 73 73 24 29 0d 00 a0  |t(err%,mess$)...|
000000f0  1a ea 20 66 6c 61 67 73  25 2c 74 69 74 6c 65 24  |.. flags%,title$|
00000100  2c 66 61 74 61 6c 25 0d  00 aa 0c 66 61 74 61 6c  |,fatal%....fatal|
00000110  25 3d b9 0d 00 b4 0d c8  8e 20 65 72 72 25 20 ca  |%=....... err% .|
00000120  0d 00 be 17 20 c9 20 2d  31 3a 66 6c 61 67 73 25  |.... . -1:flags%|
00000130  3d 25 31 30 30 30 31 0d  00 c8 28 20 20 20 20 20  |=%10001...(     |
00000140  20 20 20 20 74 69 74 6c  65 24 3d 22 4d 65 73 73  |    title$="Mess|
00000150  61 67 65 20 66 72 6f 6d  20 22 2b 61 70 70 24 0d  |age from "+app$.|
00000160  00 d2 15 20 20 20 20 20  20 20 20 20 66 61 74 61  |...         fata|
00000170  6c 25 3d a3 0d 00 dc 17  20 c9 20 2d 32 3a e7 20  |l%=..... . -2:. |
00000180  ac 28 73 61 76 65 64 25  29 20 8c 0d 00 e6 1b 20  |.(saved%) ..... |
00000190  20 20 20 20 20 20 20 20  20 66 6c 61 67 73 25 3d  |         flags%=|
000001a0  25 31 30 30 31 31 0d 00  f0 2d 20 20 20 20 20 20  |%10011...-      |
000001b0  20 20 20 20 74 69 74 6c  65 24 3d 22 50 6f 74 74  |    title$="Pott|
000001c0  65 72 79 20 61 73 6b 65  64 20 74 6f 20 71 75 69  |ery asked to qui|
000001d0  74 2e 22 0d 00 fa 16 20  20 20 20 20 20 20 20 20  |t."....         |
000001e0  20 66 61 74 61 6c 25 3d  a3 0d 01 04 48 20 20 20  | fatal%=....H   |
000001f0  20 20 20 20 20 20 20 6d  65 73 73 24 3d 22 59 6f  |       mess$="Yo|
00000200  75 20 73 74 69 6c 6c 20  68 61 76 65 20 75 6e 73  |u still have uns|
00000210  61 76 65 64 20 64 61 74  61 2e 20 43 6c 69 63 6b  |aved data. Click|
00000220  20 43 61 6e 63 65 6c 20  74 6f 20 71 75 69 74 2e  | Cancel to quit.|
00000230  22 0d 01 0e 0e 20 20 20  20 20 20 20 20 20 cc 0d  |"....         ..|
00000240  01 18 0f 20 20 20 20 20  20 20 20 20 20 e1 0d 01  |...          ...|
00000250  22 0e 20 20 20 20 20 20  20 20 20 cd 0d 01 2c 14  |".         ...,.|
00000260  20 7f 3a 66 6c 61 67 73  25 3d 25 30 30 30 30 31  | .:flags%=%00001|
00000270  0d 01 36 1a 20 20 20 20  20 20 20 20 20 20 20 74  |..6.           t|
00000280  69 74 6c 65 24 3d 61 70  70 24 0d 01 40 25 20 20  |itle$=app$..@%  |
00000290  20 20 20 20 20 20 20 20  20 e7 20 65 72 72 25 3d  |         . err%=|
000002a0  31 30 30 30 20 8c 20 66  61 74 61 6c 25 3d a3 0d  |1000 . fatal%=..|
000002b0  01 4a 05 cb 0d 01 54 28  e7 20 66 61 74 61 6c 25  |.J....T(. fatal%|
000002c0  20 8c 20 6d 65 73 73 24  2b 3d 22 20 45 72 72 6f  | . mess$+=" Erro|
000002d0  72 20 69 73 20 66 61 74  61 6c 2e 22 0d 01 5e 10  |r is fatal."..^.|
000002e0  21 62 6c 6f 63 6b 25 3d  65 72 72 25 0d 01 68 18  |!block%=err%..h.|
000002f0  24 28 62 6c 6f 63 6b 25  2b 34 29 3d 6d 65 73 73  |$(block%+4)=mess|
00000300  24 2b bd 30 0d 01 72 38  c8 99 20 22 57 69 6d 70  |$+.0..r8.. "Wimp|
00000310  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 6c  |_ReportError",bl|
00000320  6f 63 6b 25 2c 66 6c 61  67 73 25 2c 74 69 74 6c  |ock%,flags%,titl|
00000330  65 24 20 b8 20 2c 72 65  70 6c 79 25 0d 01 7c 2b  |e$ . ,reply%..|+|
00000340  e7 20 72 65 70 6c 79 25  3d 32 20 84 20 66 61 74  |. reply%=2 . fat|
00000350  61 6c 25 20 8c 20 71 75  69 74 25 3d b9 20 8b 20  |al% . quit%=. . |
00000360  71 75 69 74 25 3d a3 0d  01 86 05 e1 0d 01 90 05  |quit%=..........|
00000370  3a 0d 01 9a 0b dd 20 f2  6d 61 69 6e 0d 01 a4 24  |:..... .main...$|
00000380  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 2c  |.. "Wimp_Poll",,|
00000390  62 6c 6f 63 6b 25 20 b8  20 72 65 61 73 6f 6e 25  |block% . reason%|
000003a0  0d 01 ae 10 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |...... reason% .|
000003b0  0d 01 b8 0e 20 c9 20 30  3a f2 6e 75 6c 6c 0d 01  |.... . 0:.null..|
000003c0  c2 10 20 c9 20 31 3a f2  72 65 64 72 61 77 0d 01  |.. . 1:.redraw..|
000003d0  cc 25 20 c9 20 32 3a c8  99 20 22 57 69 6d 70 5f  |.% . 2:.. "Wimp_|
000003e0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
000003f0  63 6b 25 0d 01 d6 2f 20  20 20 20 20 20 20 20 e7  |ck%.../        .|
00000400  20 21 62 6c 6f 63 6b 25  3d 64 72 61 77 5f 68 61  | !block%=draw_ha|
00000410  6e 64 25 20 8c 20 64 72  61 77 5f 6f 70 65 6e 25  |nd% . draw_open%|
00000420  3d b9 0d 01 e0 26 20 c9  20 33 3a c8 99 20 22 57  |=....& . 3:.. "W|
00000430  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00000440  2c 2c 62 6c 6f 63 6b 25  0d 01 ea 2f 20 20 20 20  |,,block%.../    |
00000450  20 20 20 20 e7 20 21 62  6c 6f 63 6b 25 3d 64 72  |    . !block%=dr|
00000460  61 77 5f 68 61 6e 64 25  20 8c 20 64 72 61 77 5f  |aw_hand% . draw_|
00000470  6f 70 65 6e 25 3d a3 0d  01 f4 0f 20 c9 20 36 3a  |open%=..... . 6:|
00000480  f2 63 6c 69 63 6b 0d 01  fe 14 20 c9 20 37 3a f2  |.click.... . 7:.|
00000490  73 74 61 72 74 5f 73 61  76 65 0d 02 08 15 20 c9  |start_save.... .|
000004a0  20 38 3a f2 6b 65 79 5f  70 72 65 73 73 65 64 0d  | 8:.key_pressed.|
000004b0  02 12 13 20 c9 20 39 3a  f2 73 65 6c 65 63 74 69  |... . 9:.selecti|
000004c0  6f 6e 0d 02 1c 15 20 c9  20 31 37 2c 31 38 3a f2  |on.... . 17,18:.|
000004d0  6d 65 73 73 61 67 65 0d  02 26 05 cb 0d 02 30 05  |message..&....0.|
000004e0  e1 0d 02 3a 05 3a 0d 02  44 0b dd 20 f2 6e 75 6c  |...:.:..D.. .nul|
000004f0  6c 0d 02 4e 12 e7 20 64  72 61 77 5f 6f 70 65 6e  |l..N.. draw_open|
00000500  25 20 8c 0d 02 58 11 20  e7 20 eb 3c 3e 6d 6f 64  |% ...X. . .<>mod|
00000510  65 25 20 8c 0d 02 62 22  20 20 c8 99 20 22 4f 53  |e% ...b"  .. "OS|
00000520  5f 4d 6f 64 75 6c 65 22  2c 26 30 37 2c 2c 64 72  |_Module",&07,,dr|
00000530  61 77 73 70 72 25 0d 02  6c 12 20 20 f2 6d 61 6b  |awspr%..l.  .mak|
00000540  65 5f 73 70 72 69 74 65  0d 02 76 2b 20 20 f2 66  |e_sprite..v+  .f|
00000550  6f 72 63 65 5f 72 65 64  72 61 77 28 64 72 61 77  |orce_redraw(draw|
00000560  5f 68 61 6e 64 25 2c 2d  31 2c 2d 31 2c 2d 31 2c  |_hand%,-1,-1,-1,|
00000570  2d 31 29 0d 02 80 06 20  cd 0d 02 8a 26 20 e7 20  |-1).... ....& . |
00000580  28 28 21 63 6f 6e 74 5f  74 69 63 6b 25 20 80 20  |((!cont_tick% . |
00000590  31 29 20 80 20 63 68 61  6e 67 65 25 29 20 8c 0d  |1) . change%) ..|
000005a0  02 94 20 20 20 f2 64 72  61 77 5f 73 70 72 69 74  |..   .draw_sprit|
000005b0  65 28 75 73 65 63 6f 6c  74 72 61 6e 73 25 29 0d  |e(usecoltrans%).|
000005c0  02 9e 2b 20 20 f2 66 6f  72 63 65 5f 72 65 64 72  |..+  .force_redr|
000005d0  61 77 28 64 72 61 77 5f  68 61 6e 64 25 2c 2d 31  |aw(draw_hand%,-1|
000005e0  2c 2d 31 2c 2d 31 2c 2d  31 29 0d 02 a8 06 20 cd  |,-1,-1,-1).... .|
000005f0  0d 02 b2 05 cd 0d 02 bc  05 e1 0d 02 c6 05 3a 0d  |..............:.|
00000600  02 d0 12 dd 20 f2 6b 65  79 5f 70 72 65 73 73 65  |.... .key_presse|
00000610  64 0d 02 da 12 c8 8e 20  62 6c 6f 63 6b 25 21 32  |d...... block%!2|
00000620  34 20 ca 0d 02 e4 15 20  c9 20 31 33 3a f2 71 75  |4 ..... . 13:.qu|
00000630  69 63 6b 5f 73 61 76 65  0d 02 ee 24 7f 20 c8 99  |ick_save...$. ..|
00000640  20 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  | "Wimp_ProcessKe|
00000650  79 22 2c 62 6c 6f 63 6b  25 21 32 34 0d 02 f8 05  |y",block%!24....|
00000660  cb 0d 03 02 05 e1 0d 03  0c 05 3a 0d 03 16 27 dd  |..........:...'.|
00000670  20 f2 66 6f 72 63 65 5f  72 65 64 72 61 77 28 68  | .force_redraw(h|
00000680  25 2c 78 31 25 2c 79 31  25 2c 78 32 25 2c 79 32  |%,x1%,y1%,x2%,y2|
00000690  25 29 0d 03 20 0e 21 62  6c 6f 63 6b 25 3d 68 25  |%).. .!block%=h%|
000006a0  0d 03 2a 24 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..*$.. "Wimp_Get|
000006b0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
000006c0  6f 63 6b 25 0d 03 34 1c  e7 20 78 31 25 3c 3e 2d  |ock%..4.. x1%<>-|
000006d0  31 20 8c 20 62 6c 6f 63  6b 25 21 34 3d 78 31 25  |1 . block%!4=x1%|
000006e0  0d 03 3e 1c e7 20 79 31  25 3c 3e 2d 31 20 8c 20  |..>.. y1%<>-1 . |
000006f0  62 6c 6f 63 6b 25 21 38  3d 79 31 25 0d 03 48 1d  |block%!8=y1%..H.|
00000700  e7 20 78 32 25 3c 3e 2d  31 20 8c 20 62 6c 6f 63  |. x2%<>-1 . bloc|
00000710  6b 25 21 31 32 3d 78 32  25 0d 03 52 1d e7 20 79  |k%!12=x2%..R.. y|
00000720  32 25 3c 3e 2d 31 20 8c  20 62 6c 6f 63 6b 25 21  |2%<>-1 . block%!|
00000730  31 36 3d 79 32 25 0d 03  5c 42 c8 99 20 22 57 69  |16=y2%..\B.. "Wi|
00000740  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00000750  2d 31 2c 62 6c 6f 63 6b  25 21 34 2c 62 6c 6f 63  |-1,block%!4,bloc|
00000760  6b 25 21 38 2c 62 6c 6f  63 6b 25 21 31 32 2c 62  |k%!8,block%!12,b|
00000770  6c 6f 63 6b 25 21 31 36  0d 03 66 05 e1 0d 03 70  |lock%!16..f....p|
00000780  05 3a 0d 03 7a 0d dd 20  f2 72 65 64 72 61 77 0d  |.:..z.. .redraw.|
00000790  03 84 10 c8 8e 20 21 62  6c 6f 63 6b 25 20 ca 0d  |..... !block% ..|
000007a0  03 8e 1f 20 20 c9 20 64  72 61 77 5f 68 61 6e 64  |...  . draw_hand|
000007b0  25 3a f2 75 70 64 61 74  65 5f 64 72 61 77 0d 03  |%:.update_draw..|
000007c0  98 1f 20 20 c9 20 65 64  69 74 5f 68 61 6e 64 25  |..  . edit_hand%|
000007d0  3a f2 75 70 64 61 74 65  5f 65 64 69 74 0d 03 a2  |:.update_edit...|
000007e0  05 cb 0d 03 ac 05 e1 0d  03 b6 05 3a 0d 03 c0 0c  |...........:....|
000007f0  dd 20 f2 63 6c 69 63 6b  0d 03 ca 16 ea 20 6e 65  |. .click..... ne|
00000800  77 63 6f 6c 73 25 2c 78  78 25 2c 79 79 25 0d 03  |wcols%,xx%,yy%..|
00000810  d4 12 c8 8e 20 62 6c 6f  63 6b 25 21 31 32 20 ca  |.... block%!12 .|
00000820  0d 03 de 23 20 20 c9 20  2d 32 3a c8 8e 20 28 28  |...#  . -2:.. ((|
00000830  62 6c 6f 63 6b 25 21 38  29 20 80 20 25 31 31 31  |block%!8) . %111|
00000840  29 20 ca 0d 03 e8 2c 20  20 20 20 20 20 20 20 20  |) ....,         |
00000850  20 20 20 c9 20 31 3a f2  6f 70 65 6e 5f 77 69 6e  |   . 1:.open_win|
00000860  64 6f 77 28 65 64 69 74  5f 68 61 6e 64 25 29 0d  |dow(edit_hand%).|
00000870  03 f2 39 20 20 20 20 20  20 20 20 20 20 20 20 c9  |..9            .|
00000880  20 32 3a f2 73 68 6f 77  5f 6d 65 6e 75 28 69 63  | 2:.show_menu(ic|
00000890  6f 6e 5f 6d 65 6e 75 25  2c 21 62 6c 6f 63 6b 25  |on_menu%,!block%|
000008a0  2d 36 34 2c 31 38 34 29  0d 03 fc 1e 20 20 20 20  |-64,184)....    |
000008b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 6d  |               m|
000008c0  65 6e 75 25 3d 31 0d 04  06 2e 20 20 20 20 20 20  |enu%=1....      |
000008d0  20 20 20 20 20 20 c9 20  34 3a f2 64 72 61 77 5f  |      . 4:.draw_|
000008e0  73 70 72 69 74 65 28 75  73 65 63 6f 6c 74 72 61  |sprite(usecoltra|
000008f0  6e 73 25 29 0d 04 10 2f  20 20 20 20 20 20 20 20  |ns%).../        |
00000900  20 20 20 20 20 20 20 20  20 20 20 f2 6f 70 65 6e  |           .open|
00000910  5f 77 69 6e 64 6f 77 28  64 72 61 77 5f 68 61 6e  |_window(draw_han|
00000920  64 25 29 0d 04 1a 2f 20  20 20 20 20 20 20 20 20  |d%).../         |
00000930  20 20 20 20 20 20 20 20  20 20 f2 6f 70 65 6e 5f  |          .open_|
00000940  77 69 6e 64 6f 77 28 65  64 69 74 5f 68 61 6e 64  |window(edit_hand|
00000950  25 29 0d 04 24 0f 20 20  20 20 20 20 20 20 20 20  |%)..$.          |
00000960  cb 0d 04 2e 2b 20 20 c9  20 65 64 69 74 5f 68 61  |....+  . edit_ha|
00000970  6e 64 25 3a c8 8e 20 28  28 62 6c 6f 63 6b 25 21  |nd%:.. ((block%!|
00000980  38 29 20 80 20 25 31 31  31 29 20 ca 0d 04 38 41  |8) . %111) ...8A|
00000990  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009a0  20 20 20 20 c9 20 31 3a  70 6f 69 6e 74 25 3d a4  |    . 1:point%=.|
000009b0  77 68 69 63 68 5f 70 6f  69 6e 74 28 21 62 6c 6f  |which_point(!blo|
000009c0  63 6b 25 2c 62 6c 6f 63  6b 25 21 34 29 0d 04 42  |ck%,block%!4)..B|
000009d0  2d 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |-               |
000009e0  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 70 6f  |            . po|
000009f0  69 6e 74 25 3c 3e 2d 31  20 8c 0d 04 4c 34 20 20  |int%<>-1 ...L4  |
00000a00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a10  20 20 20 20 20 20 20 20  20 20 20 f2 6d 6f 76 65  |           .move|
00000a20  5f 70 6f 69 6e 74 28 70  6f 69 6e 74 25 29 0d 04  |_point(point%)..|
00000a30  56 2a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |V*              |
00000a40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 70  |               p|
00000a50  6f 69 6e 74 25 3d 2d 31  0d 04 60 20 20 20 20 20  |oint%=-1..`     |
00000a60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a70  20 20 20 20 20 20 20 cd  0d 04 6a 27 20 20 20 20  |       ...j'    |
00000a80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a90  20 20 20 20 20 20 20 73  61 76 65 64 25 3d a3 0d  |       saved%=..|
00000aa0  04 74 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |.t4             |
00000ab0  20 20 20 20 20 20 20 c9  20 32 3a 24 66 69 6c 65  |       . 2:$file|
00000ac0  6e 61 6d 65 25 3d 65 64  69 74 5f 66 69 6c 65 24  |name%=edit_file$|
00000ad0  2b bd 30 0d 04 7e 35 20  20 20 20 20 20 20 20 20  |+.0..~5         |
00000ae0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000af0  20 20 24 74 79 70 65 5f  61 64 64 72 25 3d 22 66  |  $type_addr%="f|
00000b00  69 6c 65 5f 30 30 66 22  0d 04 88 37 20 20 20 20  |ile_00f"...7    |
00000b10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b20  20 20 20 20 20 20 20 78  78 25 3d 21 62 6c 6f 63  |       xx%=!bloc|
00000b30  6b 25 3a 79 79 25 3d 62  6c 6f 63 6b 25 21 34 0d  |k%:yy%=block%!4.|
00000b40  04 92 3b 20 20 20 20 20  20 20 20 20 20 20 20 20  |..;             |
00000b50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 70 6f  |              po|
00000b60  69 6e 74 25 3d a4 77 68  69 63 68 5f 70 6f 69 6e  |int%=.which_poin|
00000b70  74 28 78 78 25 2c 79 79  25 29 0d 04 9c 2d 20 20  |t(xx%,yy%)...-  |
00000b80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b90  20 20 20 20 20 20 20 20  20 e7 20 70 6f 69 6e 74  |         . point|
00000ba0  25 3c 3e 2d 31 20 8c 0d  04 a6 31 20 20 20 20 20  |%<>-1 ....1     |
00000bb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000bc0  20 20 20 20 20 20 20 6f  6c 64 63 6f 6c 73 25 3d  |       oldcols%=|
00000bd0  a4 63 6f 6c 6f 75 72 73  0d 04 b0 48 20 20 20 20  |.colours...H    |
00000be0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000bf0  20 20 20 20 20 20 20 20  6e 65 77 63 6f 6c 73 25  |        newcols%|
00000c00  3d 28 70 69 63 74 75 72  65 25 28 70 6f 69 6e 74  |=(picture%(point|
00000c10  25 2c 32 29 20 82 20 6f  6c 64 63 6f 6c 73 25 29  |%,2) . oldcols%)|
00000c20  0d 04 ba 44 20 20 20 20  20 20 20 20 20 20 20 20  |...D            |
00000c30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000c40  e7 20 28 6e 65 77 63 6f  6c 73 25 20 80 20 34 29  |. (newcols% . 4)|
00000c50  3d 34 20 8c 20 f2 75 70  64 61 74 65 5f 63 6f 6c  |=4 . .update_col|
00000c60  73 28 30 29 0d 04 c4 44  20 20 20 20 20 20 20 20  |s(0)...D        |
00000c70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000c80  20 20 20 20 e7 20 28 6e  65 77 63 6f 6c 73 25 20  |    . (newcols% |
00000c90  80 20 32 29 3d 32 20 8c  20 f2 75 70 64 61 74 65  |. 2)=2 . .update|
00000ca0  5f 63 6f 6c 73 28 31 29  0d 04 ce 44 20 20 20 20  |_cols(1)...D    |
00000cb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000cc0  20 20 20 20 20 20 20 20  e7 20 28 6e 65 77 63 6f  |        . (newco|
00000cd0  6c 73 25 20 80 20 31 29  3d 31 20 8c 20 f2 75 70  |ls% . 1)=1 . .up|
00000ce0  64 61 74 65 5f 63 6f 6c  73 28 32 29 0d 04 d8 45  |date_cols(2)...E|
00000cf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d00  20 20 20 20 20 20 20 20  20 20 20 20 f2 66 6f 72  |            .for|
00000d10  63 65 5f 72 65 64 72 61  77 28 65 64 69 74 5f 68  |ce_redraw(edit_h|
00000d20  61 6e 64 25 2c 39 30 2c  2d 31 2c 2d 31 2c 2d 31  |and%,90,-1,-1,-1|
00000d30  29 0d 04 e2 20 20 20 20  20 20 20 20 20 20 20 20  |)...            |
00000d40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d50  cd 0d 04 ec 40 20 20 20  20 20 20 20 20 20 20 20  |....@           |
00000d60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d70  f2 73 68 6f 77 5f 6d 65  6e 75 28 65 64 69 74 5f  |.show_menu(edit_|
00000d80  6d 65 6e 75 25 2c 78 78  25 2d 36 34 2c 79 79 25  |menu%,xx%-64,yy%|
00000d90  29 0d 04 f6 26 20 20 20  20 20 20 20 20 20 20 20  |)...&           |
00000da0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000db0  6d 65 6e 75 25 3d 32 0d  05 00 2a 20 20 20 20 20  |menu%=2...*     |
00000dc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 c9  |               .|
00000dd0  20 34 3a c8 8e 20 62 6c  6f 63 6b 25 21 31 36 20  | 4:.. block%!16 |
00000de0  ca 0d 05 0a 38 20 20 20  20 20 20 20 20 20 20 20  |....8           |
00000df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000e00  20 20 c9 20 2d 31 3a f4  20 57 69 6e 64 6f 77 20  |  . -1:. Window |
00000e10  77 6f 72 6b 20 61 72 65  61 0d 05 14 48 20 20 20  |work area...H   |
00000e20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000e30  20 20 20 e7 20 a4 6c 69  6e 65 20 8c 20 f2 61 64  |   . .line . .ad|
00000e40  64 5f 6c 69 6e 65 28 21  62 6c 6f 63 6b 25 2c 62  |d_line(!block%,b|
00000e50  6c 6f 63 6b 25 21 34 2c  a4 63 6f 6c 6f 75 72 73  |lock%!4,.colours|
00000e60  29 0d 05 1e 41 20 20 20  20 20 20 20 20 20 20 20  |)...A           |
00000e70  20 20 20 20 20 20 20 20  20 20 20 e7 20 a4 6d 6f  |           . .mo|
00000e80  76 65 20 8c 20 f2 61 64  64 5f 6c 69 6e 65 28 21  |ve . .add_line(!|
00000e90  62 6c 6f 63 6b 25 2c 62  6c 6f 63 6b 25 21 34 2c  |block%,block%!4,|
00000ea0  30 29 0d 05 28 23 20 20  20 20 20 20 20 20 20 20  |0)..(#          |
00000eb0  20 20 20 20 20 20 20 20  20 20 20 20 63 68 61 6e  |            chan|
00000ec0  67 65 25 3d b9 0d 05 32  22 20 20 20 20 20 20 20  |ge%=...2"       |
00000ed0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 73  |               s|
00000ee0  61 76 65 64 25 3d a3 0d  05 3c 45 20 20 20 20 20  |aved%=...<E     |
00000ef0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000f00  20 20 20 20 20 20 20 20  c9 20 20 35 2c 36 2c 37  |        .  5,6,7|
00000f10  3a f2 75 70 64 61 74 65  5f 63 6f 6c 73 28 28 62  |:.update_cols((b|
00000f20  6c 6f 63 6b 25 21 31 36  29 2d 35 29 0d 05 46 20  |lock%!16)-5)..F |
00000f30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000f40  20 20 20 20 20 20 20 20  20 20 20 cb 0d 05 50 17  |           ...P.|
00000f50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000f60  20 20 cb 0d 05 5a 2b 20  20 c9 20 64 72 61 77 5f  |  ...Z+  . draw_|
00000f70  68 61 6e 64 25 3a c8 8e  20 28 28 62 6c 6f 63 6b  |hand%:.. ((block|
00000f80  25 21 38 29 20 80 20 25  31 31 31 29 20 ca 0d 05  |%!8) . %111) ...|
00000f90  64 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |d4              |
00000fa0  20 20 20 20 20 20 c9 20  32 3a 24 66 69 6c 65 6e  |      . 2:$filen|
00000fb0  61 6d 65 25 3d 64 72 61  77 5f 66 69 6c 65 24 2b  |ame%=draw_file$+|
00000fc0  bd 30 0d 05 6e 35 20 20  20 20 20 20 20 20 20 20  |.0..n5          |
00000fd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000fe0  20 24 74 79 70 65 5f 61  64 64 72 25 3d 22 66 69  | $type_addr%="fi|
00000ff0  6c 65 5f 66 66 39 22 0d  05 78 49 20 20 20 20 20  |le_ff9"..xI     |
00001000  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001010  20 20 20 20 20 20 f2 73  68 6f 77 5f 6d 65 6e 75  |      .show_menu|
00001020  28 64 72 61 77 5f 6d 65  6e 75 25 2c 21 62 6c 6f  |(draw_menu%,!blo|
00001030  63 6b 25 2d 36 34 2c 62  6c 6f 63 6b 25 21 34 29  |ck%-64,block%!4)|
00001040  0d 05 82 26 20 20 20 20  20 20 20 20 20 20 20 20  |...&            |
00001050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 6d  |               m|
00001060  65 6e 75 25 3d 33 0d 05  8c 36 20 20 20 20 20 20  |enu%=3...6      |
00001070  20 20 20 20 20 20 20 20  20 20 20 20 20 20 c9 20  |              . |
00001080  34 3a f2 64 72 61 77 5f  73 70 72 69 74 65 28 75  |4:.draw_sprite(u|
00001090  73 65 63 6f 6c 74 72 61  6e 73 25 29 0d 05 96 44  |secoltrans%)...D|
000010a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010b0  20 20 20 20 20 20 20 20  20 20 20 f2 66 6f 72 63  |           .forc|
000010c0  65 5f 72 65 64 72 61 77  28 64 72 61 77 5f 68 61  |e_redraw(draw_ha|
000010d0  6e 64 25 2c 2d 31 2c 2d  31 2c 2d 31 2c 2d 31 29  |nd%,-1,-1,-1,-1)|
000010e0  0d 05 a0 17 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
000010f0  20 20 20 20 20 20 cb 0d  05 aa 21 20 20 c9 20 73  |      ....!  . s|
00001100  61 76 65 5f 68 61 6e 64  25 3a c8 8e 20 62 6c 6f  |ave_hand%:.. blo|
00001110  63 6b 25 21 31 36 20 ca  0d 05 b4 37 20 20 20 20  |ck%!16 ....7    |
00001120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001130  c9 20 30 3a e7 20 62 6c  6f 63 6b 25 21 38 20 80  |. 0:. block%!8 .|
00001140  20 36 34 20 8c 20 f2 64  72 61 67 5f 62 6f 78 0d  | 64 . .drag_box.|
00001150  05 be 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |..8             |
00001160  20 20 20 20 20 20 20 c9  20 32 3a e7 20 62 6c 6f  |       . 2:. blo|
00001170  63 6b 25 21 38 20 80 20  35 20 8c 20 f2 71 75 69  |ck%!8 . 5 . .qui|
00001180  63 6b 5f 73 61 76 65 0d  05 c8 17 20 20 20 20 20  |ck_save....     |
00001190  20 20 20 20 20 20 20 20  20 20 20 20 20 cb 0d 05  |             ...|
000011a0  d2 05 cb 0d 05 dc 05 e1  0d 05 e6 05 3a 0d 05 f0  |............:...|
000011b0  11 dd 20 f2 71 75 69 63  6b 5f 73 61 76 65 0d 05  |.. .quick_save..|
000011c0  fa 0c ea 20 65 72 72 6f  72 25 0d 06 04 0c 65 72  |... error%....er|
000011d0  72 6f 72 25 3d a3 0d 06  0e 0e c8 8e 20 6d 65 6e  |ror%=....... men|
000011e0  75 25 20 ca 0d 06 18 26  20 c9 20 32 3a 65 64 69  |u% ....& . 2:edi|
000011f0  74 5f 66 69 6c 65 24 3d  a4 73 74 72 69 6e 67 28  |t_file$=.string(|
00001200  66 69 6c 65 6e 61 6d 65  25 29 0d 06 22 20 20 20  |filename%).."   |
00001210  20 20 20 20 20 20 e7 20  a7 65 64 69 74 5f 66 69  |      . .edit_fi|
00001220  6c 65 24 2c 22 2e 22 29  20 8c 0d 06 2c 18 20 20  |le$,".") ...,.  |
00001230  20 20 20 20 20 20 20 20  f2 73 61 76 65 5f 65 64  |        .save_ed|
00001240  69 74 0d 06 36 0e 20 20  20 20 20 20 20 20 20 cc  |it..6.         .|
00001250  0d 06 40 16 20 20 20 20  20 20 20 20 20 20 65 72  |..@.          er|
00001260  72 6f 72 25 3d b9 0d 06  4a 0d 20 20 20 20 20 20  |ror%=...J.      |
00001270  20 20 cd 0d 06 54 26 20  c9 20 33 3a 64 72 61 77  |  ...T& . 3:draw|
00001280  5f 66 69 6c 65 24 3d a4  73 74 72 69 6e 67 28 66  |_file$=.string(f|
00001290  69 6c 65 6e 61 6d 65 25  29 0d 06 5e 20 20 20 20  |ilename%)..^    |
000012a0  20 20 20 20 20 e7 20 a7  64 72 61 77 5f 66 69 6c  |     . .draw_fil|
000012b0  65 24 2c 22 2e 22 29 20  8c 0d 06 68 37 20 20 20  |e$,".") ...h7   |
000012c0  20 20 20 20 20 20 20 c8  99 20 22 4f 53 5f 53 70  |       .. "OS_Sp|
000012d0  72 69 74 65 4f 70 22 2c  26 31 30 43 2c 64 72 61  |riteOp",&10C,dra|
000012e0  77 73 70 72 25 2c 64 72  61 77 5f 66 69 6c 65 24  |wspr%,draw_file$|
000012f0  0d 06 72 0e 20 20 20 20  20 20 20 20 20 cc 0d 06  |..r.         ...|
00001300  7c 16 20 20 20 20 20 20  20 20 20 20 65 72 72 6f  ||.          erro|
00001310  72 25 3d b9 0d 06 86 0d  20 20 20 20 20 20 20 20  |r%=.....        |
00001320  cd 0d 06 90 05 cb 0d 06  9a 4c e7 20 65 72 72 6f  |.........L. erro|
00001330  72 25 20 8c 20 f2 72 65  70 6f 72 74 28 31 30 30  |r% . .report(100|
00001340  30 2c 22 54 6f 20 73 61  76 65 2c 20 64 72 61 67  |0,"To save, drag|
00001350  20 74 68 65 20 69 63 6f  6e 20 74 6f 20 61 20 64  | the icon to a d|
00001360  69 72 65 63 74 6f 72 79  20 76 69 65 77 65 72 2e  |irectory viewer.|
00001370  22 29 0d 06 a4 05 e1 0d  06 ae 05 3a 0d 06 b8 0f  |").........:....|
00001380  dd 20 f2 64 72 61 67 5f  62 6f 78 0d 06 c2 0d ea  |. .drag_box.....|
00001390  20 73 70 72 69 74 65 24  0d 06 cc 16 21 62 6c 6f  | sprite$....!blo|
000013a0  63 6b 25 3d 73 61 76 65  5f 68 61 6e 64 25 0d 06  |ck%=save_hand%..|
000013b0  d6 24 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.$.. "Wimp_GetWi|
000013c0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
000013d0  6b 25 0d 06 e0 1a 6f 78  25 3d 62 6c 6f 63 6b 25  |k%....ox%=block%|
000013e0  21 34 2d 62 6c 6f 63 6b  25 21 32 30 0d 06 ea 1b  |!4-block%!20....|
000013f0  6f 79 25 3d 62 6c 6f 63  6b 25 21 31 36 2d 62 6c  |oy%=block%!16-bl|
00001400  6f 63 6b 25 21 32 34 0d  06 f4 0e 62 6c 6f 63 6b  |ock%!24....block|
00001410  25 21 34 3d 30 0d 06 fe  22 c8 99 20 22 57 69 6d  |%!4=0...".. "Wim|
00001420  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001430  2c 62 6c 6f 63 6b 25 0d  07 08 1c 62 6c 6f 63 6b  |,block%....block|
00001440  25 21 34 3d 35 3a 62 6c  6f 63 6b 25 21 38 2b 3d  |%!4=5:block%!8+=|
00001450  6f 78 25 0d 07 12 12 62  6c 6f 63 6b 25 21 31 32  |ox%....block%!12|
00001460  2b 3d 6f 79 25 0d 07 1c  12 62 6c 6f 63 6b 25 21  |+=oy%....block%!|
00001470  31 36 2b 3d 6f 78 25 0d  07 26 12 62 6c 6f 63 6b  |16+=ox%..&.block|
00001480  25 21 32 30 2b 3d 6f 79  25 0d 07 30 1b 62 6c 6f  |%!20+=oy%..0.blo|
00001490  63 6b 25 21 32 34 3d 30  3a 62 6c 6f 63 6b 25 21  |ck%!24=0:block%!|
000014a0  32 38 3d 30 0d 07 3a 17  62 6c 6f 63 6b 25 21 33  |28=0..:.block%!3|
000014b0  32 3d 26 37 46 46 46 46  46 46 46 0d 07 44 17 62  |2=&7FFFFFFF..D.b|
000014c0  6c 6f 63 6b 25 21 33 36  3d 26 37 46 46 46 46 46  |lock%!36=&7FFFFF|
000014d0  46 46 0d 07 4e 16 e7 20  64 72 61 67 5f 73 74 61  |FF..N.. drag_sta|
000014e0  72 74 25 3d 2d 31 20 8c  0d 07 58 1e 20 c8 99 20  |rt%=-1 ...X. .. |
000014f0  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00001500  62 6c 6f 63 6b 25 0d 07  62 05 cc 0d 07 6c 38 20  |block%..b....l8 |
00001510  e7 20 6d 65 6e 75 25 3d  32 20 8c 20 73 70 72 69  |. menu%=2 . spri|
00001520  74 65 24 3d 22 66 69 6c  65 5f 30 30 66 22 20 8b  |te$="file_00f" .|
00001530  20 73 70 72 69 74 65 24  3d 22 66 69 6c 65 5f 66  | sprite$="file_f|
00001540  66 39 22 0d 07 76 3a 20  c8 99 20 64 72 61 67 5f  |f9"..v: .. drag_|
00001550  73 74 61 72 74 25 2c 25  31 31 30 30 30 31 30 31  |start%,%11000101|
00001560  2c 31 2c 73 70 72 69 74  65 24 2c 62 6c 6f 63 6b  |,1,sprite$,block|
00001570  25 2b 38 2c 62 6c 6f 63  6b 25 2b 32 34 0d 07 80  |%+8,block%+24...|
00001580  05 cd 0d 07 8a 05 e1 0d  07 94 05 3a 0d 07 9e 11  |...........:....|
00001590  dd 20 f2 73 74 61 72 74  5f 73 61 76 65 0d 07 a8  |. .start_save...|
000015a0  22 e7 20 64 72 61 67 5f  73 74 6f 70 25 3c 3e 2d  |". drag_stop%<>-|
000015b0  31 20 c8 99 20 64 72 61  67 5f 73 74 6f 70 25 0d  |1 .. drag_stop%.|
000015c0  07 b2 24 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |..$.. "Wimp_GetP|
000015d0  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 62 6c 6f  |ointerInfo",,blo|
000015e0  63 6b 25 0d 07 bc 2b 62  6c 6f 63 6b 25 21 32 30  |ck%...+block%!20|
000015f0  3d 62 6c 6f 63 6b 25 21  31 32 3a 62 6c 6f 63 6b  |=block%!12:block|
00001600  25 21 32 34 3d 62 6c 6f  63 6b 25 21 31 36 0d 07  |%!24=block%!16..|
00001610  c6 28 62 6c 6f 63 6b 25  21 32 38 3d 21 62 6c 6f  |.(block%!28=!blo|
00001620  63 6b 25 3a 62 6c 6f 63  6b 25 21 33 32 3d 62 6c  |ck%:block%!32=bl|
00001630  6f 63 6b 25 21 34 0d 07  d0 0f e7 20 6d 65 6e 75  |ock%!4..... menu|
00001640  25 3d 32 20 8c 0d 07 da  22 20 65 64 69 74 5f 66  |%=2 ...." edit_f|
00001650  69 6c 65 24 3d a4 73 74  72 69 6e 67 28 66 69 6c  |ile$=.string(fil|
00001660  65 6e 61 6d 65 25 29 0d  07 e4 13 20 62 6c 6f 63  |ename%).... bloc|
00001670  6b 25 21 33 36 3d 31 32  30 30 0d 07 ee 13 20 62  |k%!36=1200.... b|
00001680  6c 6f 63 6b 25 21 34 30  3d 26 30 30 46 0d 07 f8  |lock%!40=&00F...|
00001690  2a 20 24 28 62 6c 6f 63  6b 25 2b 34 34 29 3d a4  |* $(block%+44)=.|
000016a0  67 65 74 6c 65 61 66 6e  61 6d 65 28 65 64 69 74  |getleafname(edit|
000016b0  5f 66 69 6c 65 24 29 0d  08 02 0e 20 73 61 76 69  |_file$).... savi|
000016c0  6e 67 25 3d 31 0d 08 0c  05 cd 0d 08 16 0f e7 20  |ng%=1.......... |
000016d0  6d 65 6e 75 25 3d 33 20  8c 0d 08 20 22 20 64 72  |menu%=3 ... " dr|
000016e0  61 77 5f 66 69 6c 65 24  3d a4 73 74 72 69 6e 67  |aw_file$=.string|
000016f0  28 66 69 6c 65 6e 61 6d  65 25 29 0d 08 2a 14 20  |(filename%)..*. |
00001700  62 6c 6f 63 6b 25 21 33  36 3d 73 69 7a 65 25 0d  |block%!36=size%.|
00001710  08 34 13 20 62 6c 6f 63  6b 25 21 34 30 3d 26 46  |.4. block%!40=&F|
00001720  46 39 0d 08 3e 2a 20 24  28 62 6c 6f 63 6b 25 2b  |F9..>* $(block%+|
00001730  34 34 29 3d a4 67 65 74  6c 65 61 66 6e 61 6d 65  |44)=.getleafname|
00001740  28 64 72 61 77 5f 66 69  6c 65 24 29 0d 08 48 0f  |(draw_file$)..H.|
00001750  20 73 61 76 69 6e 67 25  3d 2d 31 0d 08 52 05 cd  | saving%=-1..R..|
00001760  0d 08 5c 1a 21 62 6c 6f  63 6b 25 3d 36 30 3a 62  |..\.!block%=60:b|
00001770  6c 6f 63 6b 25 21 31 32  3d 30 0d 08 66 0f 62 6c  |lock%!12=0..f.bl|
00001780  6f 63 6b 25 21 31 36 3d  31 0d 08 70 37 c8 99 20  |ock%!16=1..p7.. |
00001790  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000017a0  65 22 2c 31 38 2c 62 6c  6f 63 6b 25 2c 62 6c 6f  |e",18,block%,blo|
000017b0  63 6b 25 21 32 30 2c 62  6c 6f 63 6b 25 21 32 34  |ck%!20,block%!24|
000017c0  0d 08 7a 05 e1 0d 08 84  05 3a 0d 08 8e 16 dd 20  |..z......:..... |
000017d0  f2 6f 70 65 6e 5f 77 69  6e 64 6f 77 28 68 25 29  |.open_window(h%)|
000017e0  0d 08 98 0e 21 62 6c 6f  63 6b 25 3d 68 25 0d 08  |....!block%=h%..|
000017f0  a2 22 e7 20 68 25 3d 64  72 61 77 5f 68 61 6e 64  |.". h%=draw_hand|
00001800  25 20 8c 20 64 72 61 77  5f 6f 70 65 6e 25 3d b9  |% . draw_open%=.|
00001810  0d 08 ac 24 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...$.. "Wimp_Get|
00001820  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00001830  6f 63 6b 25 0d 08 b6 20  c8 99 20 22 57 69 6d 70  |ock%... .. "Wimp|
00001840  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 62 6c  |_OpenWindow",,bl|
00001850  6f 63 6b 25 0d 08 c0 05  e1 0d 08 ca 05 3a 0d 08  |ock%.........:..|
00001860  d4 10 dd 20 f2 73 65 6c  65 63 74 69 6f 6e 0d 08  |... .selection..|
00001870  de 23 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |.#.. "Wimp_GetPo|
00001880  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 74 65 6d 70  |interInfo",,temp|
00001890  25 0d 08 e8 0d 72 65 6f  70 65 6e 25 3d a3 0d 08  |%....reopen%=...|
000018a0  f2 1b e7 20 74 65 6d 70  25 21 38 3d 31 20 8c 20  |... temp%!8=1 . |
000018b0  72 65 6f 70 65 6e 25 3d  b9 0d 08 fc 0e c8 8e 20  |reopen%=....... |
000018c0  6d 65 6e 75 25 20 ca 0d  09 06 17 20 20 c9 20 31  |menu% .....  . 1|
000018d0  3a c8 8e 20 62 6c 6f 63  6b 25 21 30 20 ca 0d 09  |:.. block%!0 ...|
000018e0  10 19 20 20 20 20 20 20  20 20 20 20 20 c9 20 30  |..           . 0|
000018f0  3a f4 20 49 6e 66 6f 0d  09 1a 1a 20 20 20 20 20  |:. Info....     |
00001900  20 20 20 20 20 20 c9 20  31 3a 71 75 69 74 25 3d  |      . 1:quit%=|
00001910  b9 0d 09 24 24 20 20 20  20 20 20 20 20 20 20 20  |...$$           |
00001920  20 20 20 20 20 20 20 f2  72 65 70 6f 72 74 28 2d  |       .report(-|
00001930  32 2c 22 22 29 0d 09 2e  0e 20 20 20 20 20 20 20  |2,"")....       |
00001940  20 20 cb 0d 09 38 39 20  20 20 20 20 20 20 20 20  |  ...89         |
00001950  e7 20 72 65 6f 70 65 6e  25 20 8c 20 c8 99 20 22  |. reopen% . .. "|
00001960  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001970  2c 2c 69 63 6f 6e 5f 6d  65 6e 75 25 0d 09 42 16  |,,icon_menu%..B.|
00001980  20 20 c9 20 32 3a c8 8e  20 21 62 6c 6f 63 6b 25  |  . 2:.. !block%|
00001990  20 ca 0d 09 4c 20 20 20  20 20 20 20 20 20 20 20  | ...L           |
000019a0  20 c9 20 30 3a c8 8e 20  62 6c 6f 63 6b 25 21 34  | . 0:.. block%!4|
000019b0  20 ca 0d 09 56 35 20 20  20 20 20 20 20 20 20 20  | ...V5          |
000019c0  20 20 20 20 20 20 20 20  20 c9 20 30 2c 31 2c 32  |         . 0,1,2|
000019d0  3a f2 75 70 64 61 74 65  5f 63 6f 6c 73 28 62 6c  |:.update_cols(bl|
000019e0  6f 63 6b 25 21 34 29 0d  09 60 30 20 20 20 20 20  |ock%!4)..`0     |
000019f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a00  20 20 20 20 20 20 20 20  20 e7 20 70 6f 69 6e 74  |         . point|
00001a10  25 3c 3e 2d 31 20 8c 0d  09 6a 3e 20 20 20 20 20  |%<>-1 ...j>     |
00001a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a30  20 20 20 20 20 20 20 20  20 20 70 69 63 74 75 72  |          pictur|
00001a40  65 25 28 70 6f 69 6e 74  25 2c 32 29 3d a4 63 6f  |e%(point%,2)=.co|
00001a50  6c 6f 75 72 73 0d 09 74  30 20 20 20 20 20 20 20  |lours..t0       |
00001a60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a70  20 20 20 20 20 20 20 20  e7 20 72 65 6f 70 65 6e  |        . reopen|
00001a80  25 3d a3 20 8c 0d 09 7e  3e 20 20 20 20 20 20 20  |%=. ...~>       |
00001a90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001aa0  20 20 20 20 20 20 20 20  20 f2 64 72 61 77 5f 73  |         .draw_s|
00001ab0  70 72 69 74 65 28 75 73  65 63 6f 6c 74 72 61 6e  |prite(usecoltran|
00001ac0  73 25 29 0d 09 88 49 20  20 20 20 20 20 20 20 20  |s%)...I         |
00001ad0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001ae0  20 20 20 20 20 20 20 f2  66 6f 72 63 65 5f 72 65  |       .force_re|
00001af0  64 72 61 77 28 64 72 61  77 5f 68 61 6e 64 25 2c  |draw(draw_hand%,|
00001b00  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 29 0d 09 92 24  |-1,-1,-1,-1)...$|
00001b10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001b20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 cd  |               .|
00001b30  0d 09 9c 23 20 20 20 20  20 20 20 20 20 20 20 20  |...#            |
00001b40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001b50  20 20 cd 0d 09 a6 2a 20  20 20 20 20 20 20 20 20  |  ....*         |
00001b60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001b70  20 20 20 20 20 73 61 76  65 64 25 3d a3 0d 09 b0  |     saved%=....|
00001b80  17 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001b90  20 20 20 cb 0d 09 ba 1e  20 20 20 20 20 20 20 20  |   .....        |
00001ba0  20 20 20 c9 20 31 3a 65  6c 65 6d 65 6e 74 25 2d  |   . 1:element%-|
00001bb0  3d 31 0d 09 c4 2f 20 20  20 20 20 20 20 20 20 20  |=1.../          |
00001bc0  20 20 20 20 20 20 20 20  e7 20 65 6c 65 6d 65 6e  |        . elemen|
00001bd0  74 25 3c 30 20 8c 20 65  6c 65 6d 65 6e 74 25 3d  |t%<0 . element%=|
00001be0  30 0d 09 ce 3b 20 20 20  20 20 20 20 20 20 20 20  |0...;           |
00001bf0  20 20 20 20 20 20 20 f2  66 6f 72 63 65 5f 72 65  |       .force_re|
00001c00  64 72 61 77 28 65 64 69  74 5f 68 61 6e 64 25 2c  |draw(edit_hand%,|
00001c10  39 30 2c 2d 31 2c 2d 31  2c 2d 31 29 0d 09 d8 30  |90,-1,-1,-1)...0|
00001c20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001c30  20 20 f2 64 72 61 77 5f  73 70 72 69 74 65 28 75  |  .draw_sprite(u|
00001c40  73 65 63 6f 6c 74 72 61  6e 73 25 29 0d 09 e2 3b  |secoltrans%)...;|
00001c50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001c60  20 20 f2 66 6f 72 63 65  5f 72 65 64 72 61 77 28  |  .force_redraw(|
00001c70  64 72 61 77 5f 68 61 6e  64 25 2c 2d 31 2c 2d 31  |draw_hand%,-1,-1|
00001c80  2c 2d 31 2c 2d 31 29 0d  09 ec 1e 20 20 20 20 20  |,-1,-1)....     |
00001c90  20 20 20 20 20 20 20 20  20 20 20 20 20 73 61 76  |             sav|
00001ca0  65 64 25 3d a3 0d 09 f6  1d 20 20 20 20 20 20 20  |ed%=.....       |
00001cb0  20 20 20 20 c9 20 32 3a  65 6c 65 6d 65 6e 74 25  |    . 2:element%|
00001cc0  3d 30 0d 0a 00 3b 20 20  20 20 20 20 20 20 20 20  |=0...;          |
00001cd0  20 20 20 20 20 20 20 20  f2 66 6f 72 63 65 5f 72  |        .force_r|
00001ce0  65 64 72 61 77 28 65 64  69 74 5f 68 61 6e 64 25  |edraw(edit_hand%|
00001cf0  2c 39 30 2c 2d 31 2c 2d  31 2c 2d 31 29 0d 0a 0a  |,90,-1,-1,-1)...|
00001d00  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00001d10  20 20 20 f2 64 72 61 77  5f 73 70 72 69 74 65 28  |   .draw_sprite(|
00001d20  75 73 65 63 6f 6c 74 72  61 6e 73 25 29 0d 0a 14  |usecoltrans%)...|
00001d30  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
00001d40  20 20 20 f2 66 6f 72 63  65 5f 72 65 64 72 61 77  |   .force_redraw|
00001d50  28 64 72 61 77 5f 68 61  6e 64 25 2c 2d 31 2c 2d  |(draw_hand%,-1,-|
00001d60  31 2c 2d 31 2c 2d 31 29  0d 0a 1e 1e 20 20 20 20  |1,-1,-1)....    |
00001d70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 73 61  |              sa|
00001d80  76 65 64 25 3d b9 0d 0a  28 2b 20 20 20 20 20 20  |ved%=...(+      |
00001d90  20 20 20 20 20 c9 20 33  3a f2 6f 70 65 6e 5f 77  |     . 3:.open_w|
00001da0  69 6e 64 6f 77 28 64 72  61 77 5f 68 61 6e 64 25  |indow(draw_hand%|
00001db0  29 0d 0a 32 1e 20 20 20  20 20 20 20 20 20 20 20  |)..2.           |
00001dc0  c9 20 34 3a f2 71 75 69  63 6b 5f 73 61 76 65 0d  |. 4:.quick_save.|
00001dd0  0a 3c 1e 20 20 20 20 20  20 20 20 20 20 20 c9 20  |.<.           . |
00001de0  35 3a f2 70 72 69 6e 74  5f 65 64 69 74 0d 0a 46  |5:.print_edit..F|
00001df0  0e 20 20 20 20 20 20 20  20 20 cb 0d 0a 50 16 20  |.         ...P. |
00001e00  20 20 20 20 20 20 20 20  70 6f 69 6e 74 25 3d 2d  |        point%=-|
00001e10  31 0d 0a 5a 39 20 20 20  20 20 20 20 20 20 e7 20  |1..Z9         . |
00001e20  72 65 6f 70 65 6e 25 20  8c 20 c8 99 20 22 57 69  |reopen% . .. "Wi|
00001e30  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001e40  65 64 69 74 5f 6d 65 6e  75 25 0d 0a 64 16 20 20  |edit_menu%..d.  |
00001e50  c9 20 33 3a c8 8e 20 21  62 6c 6f 63 6b 25 20 ca  |. 3:.. !block% .|
00001e60  0d 0a 6e 20 20 20 20 20  20 20 20 20 20 20 20 c9  |..n            .|
00001e70  20 30 3a c8 8e 20 62 6c  6f 63 6b 25 21 34 20 ca  | 0:.. block%!4 .|
00001e80  0d 0a 78 39 20 20 20 20  20 20 20 20 20 20 20 20  |..x9            |
00001e90  20 20 20 20 20 20 20 20  c9 20 2d 31 2c 30 3a f2  |        . -1,0:.|
00001ea0  64 72 61 77 5f 73 70 72  69 74 65 28 75 73 65 63  |draw_sprite(usec|
00001eb0  6f 6c 74 72 61 6e 73 25  29 0d 0a 82 47 20 20 20  |oltrans%)...G   |
00001ec0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001ed0  20 20 20 20 20 20 20 20  20 20 20 f2 66 6f 72 63  |           .forc|
00001ee0  65 5f 72 65 64 72 61 77  28 64 72 61 77 5f 68 61  |e_redraw(draw_ha|
00001ef0  6e 64 25 2c 2d 31 2c 2d  31 2c 2d 31 2c 2d 31 29  |nd%,-1,-1,-1,-1)|
00001f00  0d 0a 8c 2f 20 20 20 20  20 20 20 20 20 20 20 20  |.../            |
00001f10  20 20 20 20 20 20 20 20  c9 20 31 3a f2 74 69 63  |        . 1:.tic|
00001f20  6b 28 63 6f 6e 74 5f 74  69 63 6b 25 2c 32 29 0d  |k(cont_tick%,2).|
00001f30  0a 96 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |..8             |
00001f40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 f4 20  |              . |
00001f50  50 52 4f 43 74 69 63 6b  28 65 76 65 72 79 5f 74  |PROCtick(every_t|
00001f60  69 63 6b 25 2c 30 29 0d  0a a0 17 20 20 20 20 20  |ick%,0)....     |
00001f70  20 20 20 20 20 20 20 20  20 20 20 20 20 cb 0d 0a  |             ...|
00001f80  aa 1e 20 20 20 20 20 20  20 20 20 20 20 c9 20 32  |..           . 2|
00001f90  3a f2 70 72 69 6e 74 5f  64 72 61 77 0d 0a b4 0e  |:.print_draw....|
00001fa0  20 20 20 20 20 20 20 20  20 cb 0d 0a be 39 20 20  |         ....9  |
00001fb0  20 20 20 20 20 20 20 e7  20 72 65 6f 70 65 6e 25  |       . reopen%|
00001fc0  20 8c 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  | . .. "Wimp_Crea|
00001fd0  74 65 4d 65 6e 75 22 2c  2c 64 72 61 77 5f 6d 65  |teMenu",,draw_me|
00001fe0  6e 75 25 0d 0a c8 05 cb  0d 0a d2 05 e1 0d 0a dc  |nu%.............|
00001ff0  05 3a 0d 0a e6 0e dd 20  f2 6d 65 73 73 61 67 65  |.:..... .message|
00002000  0d 0a f0 14 c8 8e 20 28  62 6c 6f 63 6b 25 21 31  |...... (block%!1|
00002010  36 29 20 ca 0d 0a fa 10  20 c9 20 30 3a 71 75 69  |6) ..... . 0:qui|
00002020  74 25 3d b9 0d 0b 04 15  20 c9 20 32 3a c8 8e 20  |t%=..... . 2:.. |
00002030  73 61 76 69 6e 67 25 20  ca 0d 0b 0e 2f 20 20 20  |saving% ..../   |
00002040  20 20 20 20 20 20 c9 20  2d 31 3a 64 72 61 77 5f  |      . -1:draw_|
00002050  66 69 6c 65 24 3d a4 73  74 72 69 6e 67 28 62 6c  |file$=.string(bl|
00002060  6f 63 6b 25 2b 34 34 29  0d 0b 18 3e 20 20 20 20  |ock%+44)...>    |
00002070  20 20 20 20 20 20 20 20  20 20 20 20 20 c8 99 20  |             .. |
00002080  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00002090  30 43 2c 64 72 61 77 73  70 72 25 2c 64 72 61 77  |0C,drawspr%,draw|
000020a0  5f 66 69 6c 65 24 0d 0b  22 2f 20 20 20 20 20 20  |_file$.."/      |
000020b0  20 20 20 c9 20 20 31 3a  65 64 69 74 5f 66 69 6c  |   .  1:edit_fil|
000020c0  65 24 3d a4 73 74 72 69  6e 67 28 62 6c 6f 63 6b  |e$=.string(block|
000020d0  25 2b 34 34 29 0d 0b 2c  1f 20 20 20 20 20 20 20  |%+44)..,.       |
000020e0  20 20 20 20 20 20 20 20  20 20 f2 73 61 76 65 5f  |          .save_|
000020f0  65 64 69 74 0d 0b 36 0d  20 20 20 20 20 20 20 20  |edit..6.        |
00002100  cb 0d 0b 40 1e 20 20 20  20 20 20 20 20 62 6c 6f  |...@.        blo|
00002110  63 6b 25 21 31 32 3d 62  6c 6f 63 6b 25 21 38 0d  |ck%!12=block%!8.|
00002120  0b 4a 23 20 20 20 20 20  20 20 20 62 6c 6f 63 6b  |.J#        block|
00002130  25 21 31 36 3d 33 3a 21  62 6c 6f 63 6b 25 3d 32  |%!16=3:!block%=2|
00002140  35 36 0d 0b 54 3f 20 20  20 20 20 20 20 20 c8 99  |56..T?        ..|
00002150  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00002160  67 65 22 2c 31 38 2c 62  6c 6f 63 6b 25 2c 62 6c  |ge",18,block%,bl|
00002170  6f 63 6b 25 21 32 30 2c  62 6c 6f 63 6b 25 21 32  |ock%!20,block%!2|
00002180  34 0d 0b 5e 27 20 c9 20  33 3a f2 6c 6f 61 64 5f  |4..^' . 3:.load_|
00002190  65 64 69 74 28 a4 73 74  72 69 6e 67 28 62 6c 6f  |edit(.string(blo|
000021a0  63 6b 25 2b 34 34 29 29  0d 0b 68 12 20 c9 20 34  |ck%+44))..h. . 4|
000021b0  3a 73 61 76 69 6e 67 25  3d 30 0d 0b 72 05 cb 0d  |:saving%=0..r...|
000021c0  0b 7c 05 e1 0d 0b 86 05  3a 0d 0b 90 16 dd 20 f2  |.|......:..... .|
000021d0  75 70 64 61 74 65 5f 63  6f 6c 73 28 63 25 29 0d  |update_cols(c%).|
000021e0  0b 9a 08 ea 20 78 25 0d  0b a4 0b c8 8e 20 63 25  |.... x%...... c%|
000021f0  20 ca 0d 0b ae 16 20 c9  20 30 3a 78 25 3d 62 6c  | ..... . 0:x%=bl|
00002200  75 65 5f 74 69 63 6b 25  0d 0b b8 15 20 c9 20 31  |ue_tick%.... . 1|
00002210  3a 78 25 3d 72 65 64 5f  74 69 63 6b 25 0d 0b c2  |:x%=red_tick%...|
00002220  17 20 c9 20 32 3a 78 25  3d 67 72 65 65 6e 5f 74  |. . 2:x%=green_t|
00002230  69 63 6b 25 0d 0b cc 05  cb 0d 0b d6 0f f2 74 69  |ick%..........ti|
00002240  63 6b 28 78 25 2c 32 29  0d 0b e0 23 f2 73 65 74  |ck(x%,2)...#.set|
00002250  5f 69 63 6f 6e 28 65 64  69 74 5f 68 61 6e 64 25  |_icon(edit_hand%|
00002260  2c 63 25 2b 35 2c 32 2c  32 31 29 0d 0b ea 29 f2  |,c%+5,2,21)...).|
00002270  66 6f 72 63 65 5f 72 65  64 72 61 77 28 65 64 69  |force_redraw(edi|
00002280  74 5f 68 61 6e 64 25 2c  2d 31 2c 2d 31 2c 2d 31  |t_hand%,-1,-1,-1|
00002290  2c 2d 31 29 0d 0b f4 05  e1 0d 0b fe 05 3a 0d 0c  |,-1).........:..|
000022a0  08 15 dd 20 f2 74 69 63  6b 28 61 64 64 72 25 2c  |... .tick(addr%,|
000022b0  78 25 29 0d 0c 12 0b c8  8e 20 78 25 20 ca 0d 0c  |x%)...... x% ...|
000022c0  1c 26 20 c9 20 30 3a 21  61 64 64 72 25 3d 28 28  |.& . 0:!addr%=((|
000022d0  21 61 64 64 72 25 29 20  80 20 26 46 46 46 46 46  |!addr%) . &FFFFF|
000022e0  46 46 45 29 0d 0c 26 1e  20 c9 20 31 3a 21 61 64  |FFE)..&. . 1:!ad|
000022f0  64 72 25 3d 28 28 21 61  64 64 72 25 29 20 84 20  |dr%=((!addr%) . |
00002300  31 29 0d 0c 30 1e 20 c9  20 32 3a 21 61 64 64 72  |1)..0. . 2:!addr|
00002310  25 3d 28 28 21 61 64 64  72 25 29 20 82 20 31 29  |%=((!addr%) . 1)|
00002320  0d 0c 3a 05 cb 0d 0c 44  05 e1 0d 0c 4e 05 3a 0d  |..:....D....N.:.|
00002330  0c 58 1e dd 20 a4 69 63  6f 6e 5f 73 74 61 74 65  |.X.. .icon_state|
00002340  28 77 68 25 2c 69 25 2c  62 69 74 25 29 0d 0c 62  |(wh%,i%,bit%)..b|
00002350  0e 21 74 65 6d 70 25 3d  77 68 25 0d 0c 6c 0e 74  |.!temp%=wh%..l.t|
00002360  65 6d 70 25 21 34 3d 69  25 0d 0c 76 21 c8 99 20  |emp%!4=i%..v!.. |
00002370  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00002380  74 65 22 2c 2c 74 65 6d  70 25 0d 0c 80 21 e7 20  |te",,temp%...!. |
00002390  28 74 65 6d 70 25 21 32  34 20 80 20 28 31 3c 3c  |(temp%!24 . (1<<|
000023a0  62 69 74 25 29 29 20 8c  20 3d b9 0d 0c 8a 06 3d  |bit%)) . =.....=|
000023b0  a3 0d 0c 94 05 3a 0d 0c  9e 0b dd 20 a4 6c 69 6e  |.....:..... .lin|
000023c0  65 0d 0c a8 27 e7 20 a4  69 63 6f 6e 5f 73 74 61  |e...'. .icon_sta|
000023d0  74 65 28 65 64 69 74 5f  68 61 6e 64 25 2c 30 2c  |te(edit_hand%,0,|
000023e0  32 31 29 20 8c 20 3d b9  0d 0c b2 06 3d a3 0d 0c  |21) . =.....=...|
000023f0  bc 05 3a 0d 0c c6 0b dd  20 a4 6d 6f 76 65 0d 0c  |..:..... .move..|
00002400  d0 27 e7 20 a4 69 63 6f  6e 5f 73 74 61 74 65 28  |.'. .icon_state(|
00002410  65 64 69 74 5f 68 61 6e  64 25 2c 31 2c 32 31 29  |edit_hand%,1,21)|
00002420  20 8c 20 3d b9 0d 0c da  06 3d a3 0d 0c e4 05 3a  | . =.....=.....:|
00002430  0d 0c ee 20 dd 20 f2 73  65 74 5f 69 63 6f 6e 28  |... . .set_icon(|
00002440  77 68 25 2c 69 68 25 2c  78 25 2c 62 69 74 25 29  |wh%,ih%,x%,bit%)|
00002450  0d 0c f8 0f 21 62 6c 6f  63 6b 25 3d 77 68 25 0d  |....!block%=wh%.|
00002460  0d 02 10 62 6c 6f 63 6b  25 21 34 3d 69 68 25 0d  |...block%!4=ih%.|
00002470  0d 0c 0b c8 8e 20 78 25  20 ca 0d 0d 16 26 20 20  |..... x% ....&  |
00002480  c9 20 30 3a 62 6c 6f 63  6b 25 21 38 3d 30 3a 62  |. 0:block%!8=0:b|
00002490  6c 6f 63 6b 25 21 31 32  3d 31 3c 3c 62 69 74 25  |lock%!12=1<<bit%|
000024a0  0d 0d 20 2c 20 20 c9 20  31 3a 62 6c 6f 63 6b 25  |.. ,  . 1:block%|
000024b0  21 38 3d 31 3c 3c 62 69  74 25 3a 62 6c 6f 63 6b  |!8=1<<bit%:block|
000024c0  25 21 31 32 3d 31 3c 3c  62 69 74 25 0d 0d 2a 26  |%!12=1<<bit%..*&|
000024d0  20 20 c9 20 32 3a 62 6c  6f 63 6b 25 21 38 3d 31  |  . 2:block%!8=1|
000024e0  3c 3c 62 69 74 25 3a 62  6c 6f 63 6b 25 21 31 32  |<<bit%:block%!12|
000024f0  3d 30 0d 0d 34 05 cb 0d  0d 3e 22 c8 99 20 22 57  |=0..4....>".. "W|
00002500  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00002510  22 2c 2c 62 6c 6f 63 6b  25 0d 0d 48 05 e1 0d 0d  |",,block%..H....|
00002520  52 05 3a 0d 0d 5c 19 dd  20 f2 61 64 64 5f 6c 69  |R.:..\.. .add_li|
00002530  6e 65 28 78 25 2c 79 25  2c 63 25 29 0d 0d 66 15  |ne(x%,y%,c%)..f.|
00002540  ea 20 6f 78 25 2c 6f 79  25 2c 66 69 64 64 6c 65  |. ox%,oy%,fiddle|
00002550  25 0d 0d 70 28 e7 20 65  6c 65 6d 65 6e 74 25 3d  |%..p(. element%=|
00002560  30 20 8c 20 66 69 64 64  6c 65 25 3d 30 20 8b 20  |0 . fiddle%=0 . |
00002570  66 69 64 64 6c 65 25 3d  31 0d 0d 7a 64 e7 20 65  |fiddle%=1..zd. e|
00002580  6c 65 6d 65 6e 74 25 3e  31 30 30 20 8c 20 f2 72  |lement%>100 . .r|
00002590  65 70 6f 72 74 28 31 30  30 30 2c 22 4d 65 6d 6f  |eport(1000,"Memo|
000025a0  72 79 20 66 75 6c 6c 2c  20 6e 6f 20 6d 6f 72 65  |ry full, no more|
000025b0  20 70 6f 69 6e 74 73 20  63 61 6e 20 62 65 20 61  | points can be a|
000025c0  64 64 65 64 20 74 6f 20  74 68 65 20 70 69 63 74  |dded to the pict|
000025d0  75 72 65 2e 22 29 3a 78  25 3d 6f 78 25 0d 0d 84  |ure."):x%=ox%...|
000025e0  16 21 62 6c 6f 63 6b 25  3d 65 64 69 74 5f 68 61  |.!block%=edit_ha|
000025f0  6e 64 25 0d 0d 8e 24 c8  99 20 22 57 69 6d 70 5f  |nd%...$.. "Wimp_|
00002600  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00002610  2c 62 6c 6f 63 6b 25 0d  0d 98 1a 6f 78 25 3d 62  |,block%....ox%=b|
00002620  6c 6f 63 6b 25 21 34 2d  62 6c 6f 63 6b 25 21 32  |lock%!4-block%!2|
00002630  30 0d 0d a2 1b 6f 79 25  3d 62 6c 6f 63 6b 25 21  |0....oy%=block%!|
00002640  31 36 2d 62 6c 6f 63 6b  25 21 32 34 0d 0d ac 13  |16-block%!24....|
00002650  e7 20 78 25 3e 3d 6f 78  25 2b 31 30 30 20 8c 0d  |. x%>=ox%+100 ..|
00002660  0d b6 24 20 70 69 63 74  75 72 65 25 28 65 6c 65  |..$ picture%(ele|
00002670  6d 65 6e 74 25 2c 30 29  3d 78 25 2d 6f 78 25 2d  |ment%,0)=x%-ox%-|
00002680  31 30 30 0d 0d c0 24 20  70 69 63 74 75 72 65 25  |100...$ picture%|
00002690  28 65 6c 65 6d 65 6e 74  25 2c 31 29 3d 79 25 2d  |(element%,1)=y%-|
000026a0  6f 79 25 2b 37 35 30 0d  0d ca 24 20 70 69 63 74  |oy%+750...$ pict|
000026b0  75 72 65 25 28 65 6c 65  6d 65 6e 74 25 2d 66 69  |ure%(element%-fi|
000026c0  64 64 6c 65 25 2c 32 29  3d 63 25 0d 0d d4 2f 20  |ddle%,2)=c%.../ |
000026d0  f2 66 6f 72 63 65 5f 72  65 64 72 61 77 28 65 64  |.force_redraw(ed|
000026e0  69 74 5f 68 61 6e 64 25  2c 6f 78 25 2b 31 30 30  |it_hand%,ox%+100|
000026f0  2c 2d 31 2c 2d 31 2c 2d  31 29 0d 0d de 10 20 65  |,-1,-1,-1).... e|
00002700  6c 65 6d 65 6e 74 25 2b  3d 31 0d 0d e8 05 cd 0d  |lement%+=1......|
00002710  0d f2 05 e1 0d 0d fc 05  3a 0d 0e 06 19 dd 20 a4  |........:..... .|
00002720  77 68 69 63 68 5f 70 6f  69 6e 74 28 78 25 2c 79  |which_point(x%,y|
00002730  25 29 0d 0e 10 20 ea 20  6f 78 25 2c 6f 79 25 2c  |%)... . ox%,oy%,|
00002740  70 78 25 2c 70 79 25 2c  72 65 73 75 6c 74 25 2c  |px%,py%,result%,|
00002750  49 25 0d 0e 1a 16 21 62  6c 6f 63 6b 25 3d 65 64  |I%....!block%=ed|
00002760  69 74 5f 68 61 6e 64 25  0d 0e 24 24 c8 99 20 22  |it_hand%..$$.. "|
00002770  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00002780  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 0e 2e 1a  |ate",,block%....|
00002790  6f 78 25 3d 62 6c 6f 63  6b 25 21 34 2d 62 6c 6f  |ox%=block%!4-blo|
000027a0  63 6b 25 21 32 30 0d 0e  38 1b 6f 79 25 3d 62 6c  |ck%!20..8.oy%=bl|
000027b0  6f 63 6b 25 21 31 36 2d  62 6c 6f 63 6b 25 21 32  |ock%!16-block%!2|
000027c0  34 0d 0e 42 12 70 78 25  3d 78 25 2d 6f 78 25 2d  |4..B.px%=x%-ox%-|
000027d0  31 30 30 0d 0e 4c 12 70  79 25 3d 79 25 2d 6f 79  |100..L.py%=y%-oy|
000027e0  25 2b 37 35 30 0d 0e 56  0e 72 65 73 75 6c 74 25  |%+750..V.result%|
000027f0  3d 2d 31 0d 0e 60 17 e3  20 49 25 3d 30 20 b8 20  |=-1..`.. I%=0 . |
00002800  65 6c 65 6d 65 6e 74 25  2d 31 0d 0e 6a 47 20 e7  |element%-1..jG .|
00002810  20 94 28 70 69 63 74 75  72 65 25 28 49 25 2c 30  | .(picture%(I%,0|
00002820  29 2d 70 78 25 29 3c 31  30 20 80 20 94 28 70 69  |)-px%)<10 . .(pi|
00002830  63 74 75 72 65 25 28 49  25 2c 31 29 2d 70 79 25  |cture%(I%,1)-py%|
00002840  29 3c 31 30 20 8c 20 72  65 73 75 6c 74 25 3d 49  |)<10 . result%=I|
00002850  25 0d 0e 74 05 ed 0d 0e  7e 0c 3d 72 65 73 75 6c  |%..t....~.=resul|
00002860  74 25 0d 0e 88 05 3a 0d  0e 92 15 dd 20 f2 6d 6f  |t%....:..... .mo|
00002870  76 65 5f 70 6f 69 6e 74  28 70 25 29 0d 0e 9c 1f  |ve_point(p%)....|
00002880  ea 20 78 25 2c 79 25 2c  6d 62 25 2c 6f 78 25 2c  |. x%,y%,mb%,ox%,|
00002890  6f 79 25 2c 78 78 25 2c  79 79 25 0d 0e a6 16 21  |oy%,xx%,yy%....!|
000028a0  62 6c 6f 63 6b 25 3d 65  64 69 74 5f 68 61 6e 64  |block%=edit_hand|
000028b0  25 0d 0e b0 24 c8 99 20  22 57 69 6d 70 5f 47 65  |%...$.. "Wimp_Ge|
000028c0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
000028d0  6c 6f 63 6b 25 0d 0e ba  1e 6f 78 25 3d 62 6c 6f  |lock%....ox%=blo|
000028e0  63 6b 25 21 34 2d 62 6c  6f 63 6b 25 21 32 30 2b  |ck%!4-block%!20+|
000028f0  31 30 30 0d 0e c4 1f 6f  79 25 3d 62 6c 6f 63 6b  |100....oy%=block|
00002900  25 21 31 36 2d 62 6c 6f  63 6b 25 21 32 34 2d 37  |%!16-block%!24-7|
00002910  35 30 0d 0e ce 42 c8 97  20 c8 93 20 62 6c 6f 63  |50...B.. .. bloc|
00002920  6b 25 21 34 2c 62 6c 6f  63 6b 25 21 38 2c 62 6c  |k%!4,block%!8,bl|
00002930  6f 63 6b 25 21 31 32 2d  62 6c 6f 63 6b 25 21 34  |ock%!12-block%!4|
00002940  2c 62 6c 6f 63 6b 25 21  31 36 2d 62 6c 6f 63 6b  |,block%!16-block|
00002950  25 21 31 38 0d 0e d8 0a  e6 20 33 2c 31 34 0d 0e  |%!18..... 3,14..|
00002960  e2 1a 78 78 25 3d 70 69  63 74 75 72 65 25 28 70  |..xx%=picture%(p|
00002970  25 2c 30 29 2b 6f 78 25  0d 0e ec 1a 79 79 25 3d  |%,0)+ox%....yy%=|
00002980  70 69 63 74 75 72 65 25  28 70 25 2c 31 29 2b 6f  |picture%(p%,1)+o|
00002990  79 25 0d 0e f6 05 f5 0d  0f 00 11 20 c8 97 20 78  |y%......... .. x|
000029a0  25 2c 79 25 2c 6d 62 25  0d 0f 0a 0d 20 e7 20 70  |%,y%,mb%.... . p|
000029b0  25 3e 30 20 8c 0d 0f 14  3a 20 20 20 86 20 6f 78  |%>0 ....:   . ox|
000029c0  25 2b 70 69 63 74 75 72  65 25 28 70 25 2d 31 2c  |%+picture%(p%-1,|
000029d0  30 29 2c 6f 79 25 2b 70  69 63 74 75 72 65 25 28  |0),oy%+picture%(|
000029e0  70 25 2d 31 2c 31 29 2c  78 78 25 2c 79 79 25 0d  |p%-1,1),xx%,yy%.|
000029f0  0f 1e 38 20 20 20 86 20  6f 78 25 2b 70 69 63 74  |..8   . ox%+pict|
00002a00  75 72 65 25 28 70 25 2d  31 2c 30 29 2c 6f 79 25  |ure%(p%-1,0),oy%|
00002a10  2b 70 69 63 74 75 72 65  25 28 70 25 2d 31 2c 31  |+picture%(p%-1,1|
00002a20  29 2c 78 25 2c 79 25 0d  0f 28 06 20 cd 0d 0f 32  |),x%,y%..(. ...2|
00002a30  18 20 e7 20 70 25 3c 28  65 6c 65 6d 65 6e 74 25  |. . p%<(element%|
00002a40  2d 31 29 20 8c 0d 0f 3c  3a 20 20 20 86 20 6f 78  |-1) ...<:   . ox|
00002a50  25 2b 70 69 63 74 75 72  65 25 28 70 25 2b 31 2c  |%+picture%(p%+1,|
00002a60  30 29 2c 6f 79 25 2b 70  69 63 74 75 72 65 25 28  |0),oy%+picture%(|
00002a70  70 25 2b 31 2c 31 29 2c  78 78 25 2c 79 79 25 0d  |p%+1,1),xx%,yy%.|
00002a80  0f 46 38 20 20 20 86 20  6f 78 25 2b 70 69 63 74  |.F8   . ox%+pict|
00002a90  75 72 65 25 28 70 25 2b  31 2c 30 29 2c 6f 79 25  |ure%(p%+1,0),oy%|
00002aa0  2b 70 69 63 74 75 72 65  25 28 70 25 2b 31 2c 31  |+picture%(p%+1,1|
00002ab0  29 2c 78 25 2c 79 25 0d  0f 50 06 20 cd 0d 0f 5a  |),x%,y%..P. ...Z|
00002ac0  12 20 78 78 25 3d 78 25  3a 79 79 25 3d 79 25 0d  |. xx%=x%:yy%=y%.|
00002ad0  0f 64 0c fd 20 6d 62 25  3c 3e 31 0d 0f 6e 17 c8  |.d.. mb%<>1..n..|
00002ae0  97 20 c8 93 20 30 2c 30  2c 31 32 37 39 2c 31 30  |. .. 0,0,1279,10|
00002af0  32 33 0d 0f 78 19 70 69  63 74 75 72 65 25 28 70  |23..x.picture%(p|
00002b00  25 2c 30 29 3d 78 25 2d  6f 78 25 0d 0f 82 29 e7  |%,0)=x%-ox%...).|
00002b10  20 70 69 63 74 75 72 65  25 28 70 25 2c 30 29 3c  | picture%(p%,0)<|
00002b20  30 20 8c 20 70 69 63 74  75 72 65 25 28 70 25 2c  |0 . picture%(p%,|
00002b30  30 29 3d 30 0d 0f 8c 19  70 69 63 74 75 72 65 25  |0)=0....picture%|
00002b40  28 70 25 2c 31 29 3d 79  25 2d 6f 79 25 0d 0f 96  |(p%,1)=y%-oy%...|
00002b50  29 f2 66 6f 72 63 65 5f  72 65 64 72 61 77 28 65  |).force_redraw(e|
00002b60  64 69 74 5f 68 61 6e 64  25 2c 2d 31 2c 2d 31 2c  |dit_hand%,-1,-1,|
00002b70  2d 31 2c 2d 31 29 0d 0f  a0 1e f2 64 72 61 77 5f  |-1,-1).....draw_|
00002b80  73 70 72 69 74 65 28 75  73 65 63 6f 6c 74 72 61  |sprite(usecoltra|
00002b90  6e 73 25 29 0d 0f aa 29  f2 66 6f 72 63 65 5f 72  |ns%)...).force_r|
00002ba0  65 64 72 61 77 28 64 72  61 77 5f 68 61 6e 64 25  |edraw(draw_hand%|
00002bb0  2c 2d 31 2c 2d 31 2c 2d  31 2c 2d 31 29 0d 0f b4  |,-1,-1,-1,-1)...|
00002bc0  05 e1 0d 0f be 05 3a 0d  0f c8 0e dd 20 a4 63 6f  |......:..... .co|
00002bd0  6c 6f 75 72 73 0d 0f d2  08 ea 20 78 25 0d 0f dc  |lours..... x%...|
00002be0  20 e7 20 28 21 62 6c 75  65 5f 74 69 63 6b 25 20  | . (!blue_tick% |
00002bf0  80 20 31 29 3d 31 20 8c  20 78 25 3d 34 0d 0f e6  |. 1)=1 . x%=4...|
00002c00  20 e7 20 28 21 72 65 64  5f 74 69 63 6b 25 20 80  | . (!red_tick% .|
00002c10  20 31 29 3d 31 20 8c 20  78 25 2b 3d 32 0d 0f f0  | 1)=1 . x%+=2...|
00002c20  22 e7 20 28 21 67 72 65  65 6e 5f 74 69 63 6b 25  |". (!green_tick%|
00002c30  20 80 20 31 29 3d 31 20  8c 20 78 25 2b 3d 31 0d  | . 1)=1 . x%+=1.|
00002c40  0f fa 07 3d 78 25 0d 10  04 05 3a 0d 10 0e 1a dd  |...=x%....:.....|
00002c50  20 f2 73 68 6f 77 5f 6d  65 6e 75 28 64 25 2c 78  | .show_menu(d%,x|
00002c60  25 2c 79 25 29 0d 10 18  22 c8 99 20 22 57 69 6d  |%,y%)...".. "Wim|
00002c70  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 64  |p_CreateMenu",,d|
00002c80  25 2c 78 25 2c 79 25 0d  10 22 05 e1 0d 10 2c 05  |%,x%,y%.."....,.|
00002c90  3a 0d 10 36 12 dd 20 f2  75 70 64 61 74 65 5f 64  |:..6.. .update_d|
00002ca0  72 61 77 0d 10 40 0b ea  20 6d 6f 72 65 25 0d 10  |raw..@.. more%..|
00002cb0  4a 2a c8 99 20 22 57 69  6d 70 5f 52 65 64 72 61  |J*.. "Wimp_Redra|
00002cc0  77 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |wWindow",,block%|
00002cd0  20 b8 20 6d 6f 72 65 25  0d 10 54 1a 6f 78 25 3d  | . more%..T.ox%=|
00002ce0  62 6c 6f 63 6b 25 21 34  2d 62 6c 6f 63 6b 25 21  |block%!4-block%!|
00002cf0  32 30 0d 10 5e 1b 6f 79  25 3d 62 6c 6f 63 6b 25  |20..^.oy%=block%|
00002d00  21 31 36 2d 62 6c 6f 63  6b 25 21 32 34 0d 10 68  |!16-block%!24..h|
00002d10  0c c8 95 20 6d 6f 72 65  25 0d 10 72 3a 20 c8 99  |... more%..r: ..|
00002d20  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00002d30  31 32 32 2c 64 72 61 77  73 70 72 25 2c 22 70 6f  |122,drawspr%,"po|
00002d40  74 74 65 64 22 2c 6f 78  25 2c 6f 79 25 2d 37 35  |tted",ox%,oy%-75|
00002d50  32 2c 30 0d 10 7c 2b 20  c8 99 20 22 57 69 6d 70  |2,0..|+ .. "Wimp|
00002d60  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00002d70  62 6c 6f 63 6b 25 20 b8  20 6d 6f 72 65 25 0d 10  |block% . more%..|
00002d80  86 05 ce 0d 10 90 05 e1  0d 10 9a 05 3a 0d 10 a4  |............:...|
00002d90  12 dd 20 f2 75 70 64 61  74 65 5f 65 64 69 74 0d  |.. .update_edit.|
00002da0  10 ae 39 ea 20 6d 6f 72  65 25 2c 49 25 2c 66 69  |..9. more%,I%,fi|
00002db0  72 73 74 25 2c 77 6f 72  64 25 2c 66 69 64 64 6c  |rst%,word%,fiddl|
00002dc0  65 25 2c 78 78 25 2c 79  79 25 2c 63 63 25 2c 72  |e%,xx%,yy%,cc%,r|
00002dd0  72 25 2c 78 25 2c 79 25  0d 10 b8 0a 72 72 25 3d  |r%,x%,y%....rr%=|
00002de0  31 30 0d 10 c2 0d 78 25  3d 30 3a 79 25 3d 30 0d  |10....x%=0:y%=0.|
00002df0  10 cc 2a c8 99 20 22 57  69 6d 70 5f 52 65 64 72  |..*.. "Wimp_Redr|
00002e00  61 77 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |awWindow",,block|
00002e10  25 20 b8 20 6d 6f 72 65  25 0d 10 d6 1a 6f 78 25  |% . more%....ox%|
00002e20  3d 62 6c 6f 63 6b 25 21  34 2d 62 6c 6f 63 6b 25  |=block%!4-block%|
00002e30  21 32 30 0d 10 e0 1b 6f  79 25 3d 62 6c 6f 63 6b  |!20....oy%=block|
00002e40  25 21 31 36 2d 62 6c 6f  63 6b 25 21 32 34 0d 10  |%!16-block%!24..|
00002e50  ea 19 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |.... "Wimp_SetCo|
00002e60  6c 6f 75 72 22 2c 37 0d  10 f4 11 c8 8e 20 a4 63  |lour",7...... .c|
00002e70  6f 6c 6f 75 72 73 20 ca  0d 10 fe 20 20 c9 20 30  |olours ....  . 0|
00002e80  3a 6d 65 73 73 24 3d 22  43 6c 65 61 72 22 3a 6d  |:mess$="Clear":m|
00002e90  65 73 73 32 24 3d 22 22  0d 11 08 20 20 c9 20 31  |ess2$=""...  . 1|
00002ea0  3a 6d 65 73 73 24 3d 22  47 72 65 65 6e 22 3a 6d  |:mess$="Green":m|
00002eb0  65 73 73 32 24 3d 22 22  0d 11 12 20 20 c9 20 32  |ess2$=""...  . 2|
00002ec0  3a 6d 65 73 73 24 3d 22  52 65 64 22 20 20 3a 6d  |:mess$="Red"  :m|
00002ed0  65 73 73 32 24 3d 22 22  0d 11 1c 25 20 c9 20 33  |ess2$=""...% . 3|
00002ee0  3a 6d 65 73 73 24 3d 22  6f 77 22 20 20 20 3a 6d  |:mess$="ow"   :m|
00002ef0  65 73 73 32 24 3d 22 59  65 6c 6c 2d 22 0d 11 26  |ess2$="Yell-"..&|
00002f00  20 20 c9 20 34 3a 6d 65  73 73 24 3d 22 42 6c 75  |  . 4:mess$="Blu|
00002f10  65 22 20 3a 6d 65 73 73  32 24 3d 22 22 0d 11 30  |e" :mess2$=""..0|
00002f20  20 20 c9 20 35 3a 6d 65  73 73 24 3d 22 43 79 61  |  . 5:mess$="Cya|
00002f30  6e 22 20 3a 6d 65 73 73  32 24 3d 22 22 0d 11 3a  |n" :mess2$=""..:|
00002f40  25 20 c9 20 36 3a 6d 65  73 73 24 3d 22 6e 74 61  |% . 6:mess$="nta|
00002f50  22 20 20 3a 6d 65 73 73  32 24 3d 22 4d 61 67 65  |"  :mess2$="Mage|
00002f60  2d 22 0d 11 44 20 20 c9  20 37 3a 6d 65 73 73 24  |-"..D  . 7:mess$|
00002f70  3d 22 47 72 65 79 22 20  3a 6d 65 73 73 32 24 3d  |="Grey" :mess2$=|
00002f80  22 22 0d 11 4e 05 cb 0d  11 58 0c c8 95 20 6d 6f  |""..N....X... mo|
00002f90  72 65 25 0d 11 62 22 20  86 20 6f 78 25 2b 31 30  |re%..b" . ox%+10|
00002fa0  30 2c 6f 79 25 2c 6f 78  25 2b 31 30 30 2c 6f 79  |0,oy%,ox%+100,oy|
00002fb0  25 2d 37 35 30 0d 11 6c  1c 20 49 25 3d 30 3a 66  |%-750..l. I%=0:f|
00002fc0  69 72 73 74 25 3d b9 3a  66 69 64 64 6c 65 25 3d  |irst%=.:fiddle%=|
00002fd0  30 0d 11 76 13 20 c8 95  20 49 25 3c 65 6c 65 6d  |0..v. .. I%<elem|
00002fe0  65 6e 74 25 0d 11 80 22  20 20 20 20 78 78 25 3d  |ent%..."    xx%=|
00002ff0  6f 78 25 2b 31 30 30 2b  70 69 63 74 75 72 65 25  |ox%+100+picture%|
00003000  28 49 25 2c 30 29 0d 11  8a 22 20 20 20 20 79 79  |(I%,0)..."    yy|
00003010  25 3d 6f 79 25 2d 37 35  30 2b 70 69 63 74 75 72  |%=oy%-750+pictur|
00003020  65 25 28 49 25 2c 31 29  0d 11 94 23 20 20 20 20  |e%(I%,1)...#    |
00003030  c8 8e 20 70 69 63 74 75  72 65 25 28 49 25 2d 66  |.. picture%(I%-f|
00003040  69 64 64 6c 65 25 2c 32  29 20 ca 0d 11 9e 16 20  |iddle%,2) ..... |
00003050  20 20 20 20 20 c9 20 20  20 20 30 3a 63 63 25 3d  |     .    0:cc%=|
00003060  31 0d 11 a8 2a 20 20 20  20 20 20 7f 20 e7 20 49  |1...*      . . I|
00003070  25 3d 70 6f 69 6e 74 25  2b 31 20 8c 20 63 63 25  |%=point%+1 . cc%|
00003080  3d 31 34 20 8b 20 63 63  25 3d 37 0d 11 b2 09 20  |=14 . cc%=7.... |
00003090  20 20 20 cb 0d 11 bc 12  20 20 20 20 e7 20 66 69  |   .....    . fi|
000030a0  72 73 74 25 20 8c 0d 11  c6 13 20 20 20 20 20 20  |rst% .....      |
000030b0  ec 20 78 78 25 2c 79 79  25 0d 11 d0 15 20 20 20  |. xx%,yy%....   |
000030c0  20 20 20 f2 63 6f 6c 6f  75 72 28 31 35 29 0d 11  |   .colour(15)..|
000030d0  da 1b 20 20 20 20 20 20  c8 8f 20 c8 90 20 78 78  |..      .. .. xx|
000030e0  25 2c 79 79 25 2c 72 72  25 0d 11 e4 1c 20 20 20  |%,yy%,rr%....   |
000030f0  20 20 20 66 69 72 73 74  25 3d a3 3a 66 69 64 64  |   first%=.:fidd|
00003100  6c 65 25 3d 31 0d 11 ee  0a 20 20 20 20 20 cc 0d  |le%=1....     ..|
00003110  11 f8 15 20 20 20 20 20  20 f2 63 6f 6c 6f 75 72  |...      .colour|
00003120  28 31 35 29 0d 12 02 1b  20 20 20 20 20 20 c8 8f  |(15)....      ..|
00003130  20 c8 90 20 78 78 25 2c  79 79 25 2c 72 72 25 0d  | .. xx%,yy%,rr%.|
00003140  12 0c 16 20 20 20 20 20  20 f2 63 6f 6c 6f 75 72  |...      .colour|
00003150  28 63 63 25 29 0d 12 16  19 20 20 20 20 20 20 86  |(cc%)....      .|
00003160  20 78 78 25 2c 79 79 25  2c 78 25 2c 79 25 0d 12  | xx%,yy%,x%,y%..|
00003170  20 09 20 20 20 20 cd 0d  12 2a 0d 20 20 20 20 49  | .    ...*.    I|
00003180  25 2b 3d 31 0d 12 34 0e  20 20 20 20 78 25 3d 78  |%+=1..4.    x%=x|
00003190  78 25 0d 12 3e 0e 20 20  20 20 79 25 3d 79 79 25  |x%..>.    y%=yy%|
000031a0  0d 12 48 06 20 ce 0d 12  52 0f 20 f2 63 6f 6c 6f  |..H. ...R. .colo|
000031b0  75 72 28 37 29 0d 12 5c  14 20 ec 20 6f 78 25 2b  |ur(7)..\. . ox%+|
000031c0  32 2c 6f 79 25 2d 34 37  30 0d 12 66 0d 20 f1 20  |2,oy%-470..f. . |
000031d0  6d 65 73 73 32 24 0d 12  70 14 20 ec 20 6f 78 25  |mess2$..p. . ox%|
000031e0  2b 32 2c 6f 79 25 2d 35  30 30 0d 12 7a 0c 20 f1  |+2,oy%-500..z. .|
000031f0  20 6d 65 73 73 24 0d 12  84 2b 20 c8 99 20 22 57  | mess$...+ .. "W|
00003200  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
00003210  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 6d 6f 72 65  |",,block% . more|
00003220  25 0d 12 8e 05 ce 0d 12  98 05 e1 0d 12 a2 05 3a  |%..............:|
00003230  0d 12 ac 11 dd 20 f2 63  6f 6c 6f 75 72 28 63 25  |..... .colour(c%|
00003240  29 0d 12 b6 1a c8 99 20  22 57 69 6d 70 5f 53 65  |)...... "Wimp_Se|
00003250  74 43 6f 6c 6f 75 72 22  2c 63 25 0d 12 c0 05 e1  |tColour",c%.....|
00003260  0d 12 ca 05 3a 0d 12 d4  1a dd 20 f2 64 72 61 77  |....:..... .draw|
00003270  5f 73 70 72 69 74 65 28  70 72 69 6e 74 25 29 0d  |_sprite(print%).|
00003280  12 de 2a ea 20 72 30 25  2c 72 31 25 2c 72 32 25  |..*. r0%,r1%,r2%|
00003290  2c 72 33 25 2c 49 25 2c  73 74 61 72 74 25 2c 65  |,r3%,I%,start%,e|
000032a0  6e 64 25 2c 73 74 65 70  25 0d 12 e8 15 c8 99 20  |nd%,step%...... |
000032b0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 12  |"Hourglass_On"..|
000032c0  f2 12 e7 20 64 72 61 77  5f 6f 70 65 6e 25 20 8c  |... draw_open% .|
000032d0  0d 12 fc 40 20 c8 99 20  22 4f 53 5f 53 70 72 69  |...@ .. "OS_Spri|
000032e0  74 65 4f 70 22 2c 26 31  33 43 2c 64 72 61 77 73  |teOp",&13C,draws|
000032f0  70 72 25 2c 22 70 6f 74  74 65 64 22 2c 31 20 b8  |pr%,"potted",1 .|
00003300  20 72 30 25 2c 72 31 25  2c 72 32 25 2c 72 33 25  | r0%,r1%,r2%,r3%|
00003310  0d 13 06 0f 20 6e 73 68  61 64 65 73 3d 31 32 0d  |.... nshades=12.|
00003320  13 10 19 20 73 74 65 70  3d 33 36 30 2f 28 32 2a  |... step=360/(2*|
00003330  6e 73 68 61 64 65 73 29  0d 13 1a 13 20 e7 20 65  |nshades).... . e|
00003340  6c 65 6d 65 6e 74 25 3e  31 20 8c 0d 13 24 3a 20  |lement%>1 ...$: |
00003350  20 e7 20 63 68 61 6e 67  65 25 3d b9 20 80 20 70  | . change%=. . p|
00003360  69 63 74 75 72 65 25 28  65 6c 65 6d 65 6e 74 25  |icture%(element%|
00003370  2d 31 2c 31 29 3e 3d 70  69 63 74 75 72 65 25 28  |-1,1)>=picture%(|
00003380  30 2c 31 29 8c 0d 13 2e  24 20 20 20 e7 20 70 69  |0,1)....$   . pi|
00003390  63 74 75 72 65 25 28 65  6c 65 6d 65 6e 74 25 2d  |cture%(element%-|
000033a0  32 2c 32 29 3c 3e 30 20  8c 0d 13 38 88 20 20 20  |2,2)<>0 ...8.   |
000033b0  20 20 f2 63 79 6c 69 6e  64 65 72 28 70 69 63 74  |  .cylinder(pict|
000033c0  75 72 65 25 28 65 6c 65  6d 65 6e 74 25 2d 32 2c  |ure%(element%-2,|
000033d0  31 29 2c 70 69 63 74 75  72 65 25 28 65 6c 65 6d  |1),picture%(elem|
000033e0  65 6e 74 25 2d 32 2c 30  29 2c 70 69 63 74 75 72  |ent%-2,0),pictur|
000033f0  65 25 28 65 6c 65 6d 65  6e 74 25 2d 31 2c 31 29  |e%(element%-1,1)|
00003400  2c 70 69 63 74 75 72 65  25 28 65 6c 65 6d 65 6e  |,picture%(elemen|
00003410  74 25 2d 31 2c 30 29 2c  70 69 63 74 75 72 65 25  |t%-1,0),picture%|
00003420  28 65 6c 65 6d 65 6e 74  25 2d 32 2c 32 29 2c 31  |(element%-2,2),1|
00003430  29 0d 13 42 08 20 20 20  cd 0d 13 4c 07 20 20 cc  |)..B.   ...L.  .|
00003440  0d 13 56 1e 20 20 20 c8  99 20 22 57 69 6d 70 5f  |..V.   .. "Wimp_|
00003450  53 65 74 43 6f 6c 6f 75  72 22 2c 31 33 35 0d 13  |SetColour",135..|
00003460  60 08 20 20 20 db 0d 13  6a 30 20 20 20 e7 20 70  |`.   ...j0   . p|
00003470  69 63 74 75 72 65 25 28  65 6c 65 6d 65 6e 74 25  |icture%(element%|
00003480  2d 31 2c 31 29 3e 3d 70  69 63 74 75 72 65 25 28  |-1,1)>=picture%(|
00003490  30 2c 31 29 20 8c 0d 13  74 0f 20 20 20 20 73 74  |0,1) ...t.    st|
000034a0  65 70 25 3d 31 0d 13 7e  10 20 20 20 20 73 74 61  |ep%=1..~.    sta|
000034b0  72 74 25 3d 30 0d 13 88  17 20 20 20 20 65 6e 64  |rt%=0....    end|
000034c0  25 3d 65 6c 65 6d 65 6e  74 25 2d 32 0d 13 92 08  |%=element%-2....|
000034d0  20 20 20 cc 0d 13 9c 19  20 20 20 20 73 74 61 72  |   .....    star|
000034e0  74 25 3d 65 6c 65 6d 65  6e 74 25 2d 32 0d 13 a6  |t%=element%-2...|
000034f0  0e 20 20 20 20 65 6e 64  25 3d 30 0d 13 b0 10 20  |.    end%=0.... |
00003500  20 20 20 73 74 65 70 25  3d 2d 31 0d 13 ba 08 20  |   step%=-1.... |
00003510  20 20 cd 0d 13 c4 21 20  20 20 e3 20 49 25 3d 73  |  ....!   . I%=s|
00003520  74 61 72 74 25 20 b8 20  65 6e 64 25 20 88 20 73  |tart% . end% . s|
00003530  74 65 70 25 0d 13 ce 1d  20 20 20 20 e7 20 70 69  |tep%....    . pi|
00003540  63 74 75 72 65 25 28 49  25 2c 32 29 3c 3e 30 20  |cture%(I%,2)<>0 |
00003550  8c 0d 13 d8 64 20 20 20  20 20 f2 63 79 6c 69 6e  |....d     .cylin|
00003560  64 65 72 28 70 69 63 74  75 72 65 25 28 49 25 2c  |der(picture%(I%,|
00003570  31 29 2c 70 69 63 74 75  72 65 25 28 49 25 2c 30  |1),picture%(I%,0|
00003580  29 2c 70 69 63 74 75 72  65 25 28 49 25 2b 31 2c  |),picture%(I%+1,|
00003590  31 29 2c 70 69 63 74 75  72 65 25 28 49 25 2b 31  |1),picture%(I%+1|
000035a0  2c 30 29 2c 70 69 63 74  75 72 65 25 28 49 25 2c  |,0),picture%(I%,|
000035b0  32 29 2c 31 29 0d 13 e2  09 20 20 20 20 cd 0d 13  |2),1)....    ...|
000035c0  ec 08 20 20 20 ed 0d 13  f6 07 20 20 cd 0d 14 00  |..   .....  ....|
000035d0  06 20 cc 0d 14 0a 1d 20  20 c8 99 20 22 57 69 6d  |. .....  .. "Wim|
000035e0  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 31 33 35  |p_SetColour",135|
000035f0  0d 14 14 07 20 20 db 0d  14 1e 06 20 cd 0d 14 28  |....  ..... ...(|
00003600  25 20 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |% .. "OS_SpriteO|
00003610  70 22 2c 72 30 25 2c 72  31 25 2c 72 32 25 2c 72  |p",r0%,r1%,r2%,r|
00003620  33 25 0d 14 32 05 cd 0d  14 3c 0d 63 68 61 6e 67  |3%..2....<.chang|
00003630  65 25 3d a3 0d 14 46 16  c8 99 20 22 48 6f 75 72  |e%=...F... "Hour|
00003640  67 6c 61 73 73 5f 4f 66  66 22 0d 14 50 05 e1 0d  |glass_Off"..P...|
00003650  14 5a 05 3a 0d 14 64 4c  f4 20 54 68 65 20 66 6f  |.Z.:..dL. The fo|
00003660  6c 6c 6f 77 69 6e 67 20  6c 69 6e 65 73 20 6f 66  |llowing lines of|
00003670  20 63 6f 64 65 20 61 72  65 20 74 68 6f 73 65 20  | code are those |
00003680  74 68 61 74 20 6f 72 69  67 69 6e 61 6c 6c 79 20  |that originally |
00003690  61 70 70 65 61 72 65 64  20 69 6e 20 42 41 55 2e  |appeared in BAU.|
000036a0  0d 14 6e 3f f4 20 4d 79  20 74 68 61 6e 6b 73 20  |..n?. My thanks |
000036b0  74 6f 20 52 6f 62 20 4d  69 6c 6c 65 72 20 74 68  |to Rob Miller th|
000036c0  65 79 20 67 61 76 65 20  6d 65 20 61 6c 6f 74 20  |ey gave me alot |
000036d0  74 6f 20 74 68 69 6e 6b  20 61 62 6f 75 74 2e 0d  |to think about..|
000036e0  14 78 05 3a 0d 14 82 2e  dd 20 f2 63 79 6c 69 6e  |.x.:..... .cylin|
000036f0  64 65 72 28 65 79 31 25  2c 65 77 31 25 2c 65 79  |der(ey1%,ew1%,ey|
00003700  32 25 2c 65 77 32 25 2c  63 6f 6c 25 2c 70 61 6c  |2%,ew2%,col%,pal|
00003710  25 29 0d 14 8c 36 ea 20  72 65 64 25 2c 62 6c 75  |%)...6. red%,blu|
00003720  65 25 2c 67 72 65 65 6e  25 2c 74 69 6e 74 25 2c  |e%,green%,tint%,|
00003730  72 25 2c 67 25 2c 62 25  2c 72 72 25 2c 67 67 25  |r%,g%,b%,rr%,gg%|
00003740  2c 62 62 25 2c 74 74 25  0d 14 96 17 62 25 3d 28  |,bb%,tt%....b%=(|
00003750  63 6f 6c 25 20 80 20 25  31 30 30 29 3e 3e 32 0d  |col% . %100)>>2.|
00003760  14 a0 17 72 25 3d 28 63  6f 6c 25 20 80 20 25 30  |...r%=(col% . %0|
00003770  31 30 29 3e 3e 31 0d 14  aa 14 67 25 3d 28 63 6f  |10)>>1....g%=(co|
00003780  6c 25 20 80 20 25 30 30  31 29 0d 14 b4 05 3a 0d  |l% . %001)....:.|
00003790  14 be 0e e7 20 70 72 69  6e 74 25 20 8c 0d 14 c8  |.... print% ....|
000037a0  22 20 e3 20 44 20 3d 20  2d 39 30 20 b8 20 28 32  |" . D = -90 . (2|
000037b0  37 30 2d 73 74 65 70 29  20 88 20 73 74 65 70 0d  |70-step) . step.|
000037c0  14 d2 25 20 72 65 64 25  20 20 20 3d 20 28 28 28  |..% red%   = (((|
000037d0  28 44 2b 39 30 29 20 81  20 36 30 29 20 83 20 33  |(D+90) . 60) . 3|
000037e0  29 2b 31 29 0d 14 dc 25  20 67 72 65 65 6e 25 20  |)+1)...% green% |
000037f0  3d 20 28 28 28 28 44 2b  39 30 29 20 81 20 36 30  |= ((((D+90) . 60|
00003800  29 20 83 20 33 29 2b 31  29 0d 14 e6 25 20 62 6c  |) . 3)+1)...% bl|
00003810  75 65 25 20 3d 20 20 28  28 28 28 44 2b 39 30 29  |ue% =  ((((D+90)|
00003820  20 81 20 36 30 29 20 83  20 33 29 2b 31 29 0d 14  | . 60) . 3)+1)..|
00003830  f0 21 20 74 69 6e 74 25  20 20 3d 20 28 28 28 44  |.! tint%  = (((D|
00003840  2b 39 30 29 20 81 20 31  35 29 20 80 20 33 29 0d  |+90) . 15) . 3).|
00003850  14 fa 06 20 3a 0d 15 04  16 20 e7 20 70 61 6c 25  |... :.... . pal%|
00003860  3d 32 20 80 20 44 3c 39  30 20 8c 0d 15 0e 28 20  |=2 . D<90 ....( |
00003870  20 72 65 64 25 20 20 20  3d 20 28 32 2d 28 28 28  | red%   = (2-(((|
00003880  44 2b 39 30 29 20 81 20  36 30 29 20 83 20 33 29  |D+90) . 60) . 3)|
00003890  2b 31 29 0d 15 18 28 20  20 67 72 65 65 6e 25 20  |+1)...(  green% |
000038a0  3d 20 28 32 2d 28 28 28  44 2b 39 30 29 20 81 20  |= (2-(((D+90) . |
000038b0  36 30 29 20 83 20 33 29  2b 31 29 0d 15 22 28 20  |60) . 3)+1).."( |
000038c0  20 62 6c 75 65 25 20 20  3d 20 28 32 2d 28 28 28  | blue%  = (2-(((|
000038d0  44 2b 39 30 29 20 81 20  36 30 29 20 83 20 33 29  |D+90) . 60) . 3)|
000038e0  2b 31 29 0d 15 2c 27 20  20 74 69 6e 74 25 20 20  |+1)..,'  tint%  |
000038f0  3d 20 28 31 34 37 32 2d  28 28 44 2b 39 30 29 20  |= (1472-((D+90) |
00003900  81 20 31 35 29 20 80 20  33 29 0d 15 36 06 20 cd  |. 15) . 3)..6. .|
00003910  0d 15 40 06 20 3a 0d 15  4a 10 20 74 74 25 3d 28  |..@. :..J. tt%=(|
00003920  74 69 6e 74 25 29 0d 15  54 1b 20 72 72 25 3d 28  |tint%)..T. rr%=(|
00003930  74 74 25 2b 28 72 65 64  25 3c 3c 32 29 29 2a 72  |tt%+(red%<<2))*r|
00003940  25 0d 15 5e 1d 20 67 67  25 3d 28 74 74 25 2b 28  |%..^. gg%=(tt%+(|
00003950  67 72 65 65 6e 25 3c 3c  32 29 29 2a 67 25 0d 15  |green%<<2))*g%..|
00003960  68 1c 20 62 62 25 3d 28  74 74 25 2b 28 62 6c 75  |h. bb%=(tt%+(blu|
00003970  65 25 3c 3c 32 29 29 2a  62 25 0d 15 72 40 20 63  |e%<<2))*b%..r@ c|
00003980  6f 6c 6f 75 72 25 3d 28  62 62 25 3c 3c 32 30 29  |olour%=(bb%<<20)|
00003990  2b 28 62 62 25 3c 3c 31  36 29 2b 28 67 67 25 3c  |+(bb%<<16)+(gg%<|
000039a0  3c 31 32 29 2b 28 67 67  25 3c 3c 38 29 2b 28 72  |<12)+(gg%<<8)+(r|
000039b0  72 25 3c 3c 34 29 2b 72  72 25 0d 15 7c 2a 20 c8  |r%<<4)+rr%..|* .|
000039c0  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
000039d0  65 74 47 43 4f 4c 22 2c  28 63 6f 6c 6f 75 72 25  |etGCOL",(colour%|
000039e0  3c 3c 38 29 0d 15 86 05  cc 0d 15 90 22 20 e3 20  |<<8)........" . |
000039f0  44 20 3d 20 2d 39 30 20  b8 20 28 32 37 30 2d 73  |D = -90 . (270-s|
00003a00  74 65 70 29 20 88 20 73  74 65 70 0d 15 9a 28 20  |tep) . step...( |
00003a10  72 65 64 25 20 20 20 3d  20 28 28 28 28 44 2b 39  |red%   = ((((D+9|
00003a20  30 29 20 81 20 36 30 29  20 83 20 33 29 2b 31 29  |0) . 60) . 3)+1)|
00003a30  2a 72 25 0d 15 a4 28 20  67 72 65 65 6e 25 20 3d  |*r%...( green% =|
00003a40  20 28 28 28 28 44 2b 39  30 29 20 81 20 36 30 29  | ((((D+90) . 60)|
00003a50  20 83 20 33 29 2b 31 29  2a 67 25 0d 15 ae 28 20  | . 3)+1)*g%...( |
00003a60  62 6c 75 65 25 20 3d 20  20 28 28 28 28 44 2b 39  |blue% =  ((((D+9|
00003a70  30 29 20 81 20 36 30 29  20 83 20 33 29 2b 31 29  |0) . 60) . 3)+1)|
00003a80  2a 62 25 0d 15 b8 1e 20  74 69 6e 74 25 20 20 3d  |*b%.... tint%  =|
00003a90  20 28 28 44 2b 39 30 29  20 81 20 31 35 29 2a 36  | ((D+90) . 15)*6|
00003aa0  34 0d 15 c2 06 20 3a 0d  15 cc 16 20 e7 20 70 61  |4.... :.... . pa|
00003ab0  6c 25 3d 32 20 80 20 44  3c 39 30 20 8c 0d 15 d6  |l%=2 . D<90 ....|
00003ac0  2b 20 20 72 65 64 25 20  20 20 3d 20 28 32 2d 28  |+  red%   = (2-(|
00003ad0  28 28 44 2b 39 30 29 20  81 20 36 30 29 20 83 20  |((D+90) . 60) . |
00003ae0  33 29 2b 31 29 2a 72 25  0d 15 e0 2b 20 20 67 72  |3)+1)*r%...+  gr|
00003af0  65 65 6e 25 20 3d 20 28  32 2d 28 28 28 44 2b 39  |een% = (2-(((D+9|
00003b00  30 29 20 81 20 36 30 29  20 83 20 33 29 2b 31 29  |0) . 60) . 3)+1)|
00003b10  2a 67 25 0d 15 ea 2b 20  20 62 6c 75 65 25 20 20  |*g%...+  blue%  |
00003b20  3d 20 28 32 2d 28 28 28  44 2b 39 30 29 20 81 20  |= (2-(((D+90) . |
00003b30  36 30 29 20 83 20 33 29  2b 31 29 2a 62 25 0d 15  |60) . 3)+1)*b%..|
00003b40  f4 24 20 20 74 69 6e 74  25 20 20 3d 20 31 34 37  |.$  tint%  = 147|
00003b50  32 2d 28 28 44 2b 39 30  29 20 81 20 31 35 29 2a  |2-((D+90) . 15)*|
00003b60  36 34 0d 15 fe 06 20 cd  0d 16 08 06 20 3a 0d 16  |64.... ..... :..|
00003b70  12 28 20 63 6f 6c 6f 75  72 25 3d 28 62 6c 75 65  |.( colour%=(blue|
00003b80  25 3c 3c 34 29 2b 28 67  72 65 65 6e 25 3c 3c 32  |%<<4)+(green%<<2|
00003b90  29 2b 72 65 64 25 0d 16  1c 17 20 e6 20 63 6f 6c  |)+red%.... . col|
00003ba0  6f 75 72 25 20 c8 9c 20  74 69 6e 74 25 0d 16 26  |our% .. tint%..&|
00003bb0  05 cd 0d 16 30 05 3a 0d  16 3a 1b 68 31 20 3d 20  |....0.:..:.h1 = |
00003bc0  65 77 31 25 2f 34 3a 68  32 20 3d 20 65 77 32 25  |ew1%/4:h2 = ew2%|
00003bd0  2f 34 0d 16 44 31 78 31  25 20 3d 20 b5 b2 28 44  |/4..D1x1% = ..(D|
00003be0  29 2a 65 77 31 25 20 20  20 20 20 20 3a 20 79 31  |)*ew1%      : y1|
00003bf0  25 20 3d 20 28 9b b2 28  44 29 2a 68 31 29 2b 65  |% = (..(D)*h1)+e|
00003c00  79 31 25 0d 16 4e 36 78  32 25 20 3d 20 b5 b2 28  |y1%..N6x2% = ..(|
00003c10  44 2b 73 74 65 70 29 2a  65 77 31 25 20 3a 20 79  |D+step)*ew1% : y|
00003c20  32 25 20 3d 20 28 9b b2  28 44 2b 73 74 65 70 29  |2% = (..(D+step)|
00003c30  2a 68 31 29 2b 65 79 31  25 0d 16 58 31 78 33 25  |*h1)+ey1%..X1x3%|
00003c40  20 3d 20 b5 b2 28 44 29  2a 65 77 32 25 20 20 20  | = ..(D)*ew2%   |
00003c50  20 20 20 3a 20 79 33 25  20 3d 20 28 9b b2 28 44  |   : y3% = (..(D|
00003c60  29 2a 68 32 29 2b 65 79  32 25 0d 16 62 36 78 34  |)*h2)+ey2%..b6x4|
00003c70  25 20 3d 20 b5 b2 28 44  2b 73 74 65 70 29 2a 65  |% = ..(D+step)*e|
00003c80  77 32 25 20 3a 20 79 34  25 20 3d 20 28 9b b2 28  |w2% : y4% = (..(|
00003c90  44 2b 73 74 65 70 29 2a  68 32 29 2b 65 79 32 25  |D+step)*h2)+ey2%|
00003ca0  0d 16 6c 05 3a 0d 16 76  2a f2 71 75 61 64 28 78  |..l.:..v*.quad(x|
00003cb0  31 25 2c 79 31 25 2c 78  32 25 2c 79 32 25 2c 78  |1%,y1%,x2%,y2%,x|
00003cc0  33 25 2c 79 33 25 2c 78  34 25 2c 79 34 25 29 0d  |3%,y3%,x4%,y4%).|
00003cd0  16 80 07 ed 20 44 0d 16  8a 05 3a 0d 16 94 05 e1  |.... D....:.....|
00003ce0  0d 16 9e 05 3a 0d 16 a8  2c dd 20 f2 71 75 61 64  |....:...,. .quad|
00003cf0  28 78 31 25 2c 79 31 25  2c 78 32 25 2c 79 32 25  |(x1%,y1%,x2%,y2%|
00003d00  2c 78 33 25 2c 79 33 25  2c 78 34 25 2c 79 34 25  |,x3%,y3%,x4%,y4%|
00003d10  29 0d 16 b2 1f ec 20 78  33 25 2b 33 37 35 2c 79  |)..... x3%+375,y|
00003d20  33 25 3a ec 20 78 31 25  2b 33 37 35 2c 79 31 25  |3%:. x1%+375,y1%|
00003d30  0d 16 bc 14 f0 20 38 35  2c 78 34 25 2b 33 37 35  |..... 85,x4%+375|
00003d40  2c 79 34 25 0d 16 c6 14  f0 20 38 35 2c 78 32 25  |,y4%..... 85,x2%|
00003d50  2b 33 37 35 2c 79 32 25  0d 16 d0 05 e1 0d 16 da  |+375,y2%........|
00003d60  05 3a 0d 16 e4 2a f4 20  54 68 65 20 63 6f 64 65  |.:...*. The code|
00003d70  20 61 66 74 65 72 20 74  68 69 73 20 69 73 20 6d  | after this is m|
00003d80  79 20 6f 77 6e 20 61 67  61 69 6e 2e 0d 16 ee 05  |y own again.....|
00003d90  3a 0d 16 f8 12 dd 20 f2  6d 61 6b 65 5f 73 70 72  |:..... .make_spr|
00003da0  69 74 65 0d 17 02 1f ea  20 78 65 69 67 25 2c 79  |ite..... xeig%,y|
00003db0  65 69 67 25 2c 78 73 69  7a 65 25 2c 79 73 69 7a  |eig%,xsize%,ysiz|
00003dc0  65 25 0d 17 0c 2b c8 99  20 22 4f 53 5f 52 65 61  |e%...+.. "OS_Rea|
00003dd0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00003de0  31 2c 34 20 b8 20 2c 2c  78 65 69 67 25 0d 17 16  |1,4 . ,,xeig%...|
00003df0  2b c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |+.. "OS_ReadMode|
00003e00  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 35 20 b8  |Variable",-1,5 .|
00003e10  20 2c 2c 79 65 69 67 25  0d 17 20 2b c8 99 20 22  | ,,yeig%.. +.. "|
00003e20  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00003e30  62 6c 65 22 2c 2d 31 2c  33 20 b8 20 2c 2c 63 6f  |ble",-1,3 . ,,co|
00003e40  6c 73 25 0d 17 2a 87 e7  20 63 6f 6c 73 25 3c 3e  |ls%..*.. cols%<>|
00003e50  36 33 20 8c 20 f2 72 65  70 6f 72 74 28 2d 31 2c  |63 . .report(-1,|
00003e60  22 57 61 72 6e 69 6e 67  3a 20 54 68 65 20 73 70  |"Warning: The sp|
00003e70  72 69 74 65 20 63 61 6e  20 6f 6e 6c 79 20 62 65  |rite can only be|
00003e80  20 70 72 6f 70 65 72 6c  79 20 64 69 73 70 6c 61  | properly displa|
00003e90  79 65 64 20 69 6e 20 61  20 32 35 36 20 63 6f 6c  |yed in a 256 col|
00003ea0  6f 75 72 20 6d 6f 64 65  22 29 3a 75 73 65 63 6f  |our mode"):useco|
00003eb0  6c 74 72 61 6e 73 25 3d  b9 20 8b 20 75 73 65 63  |ltrans%=. . usec|
00003ec0  6f 6c 74 72 61 6e 73 25  3d a3 0d 17 34 15 78 73  |oltrans%=...4.xs|
00003ed0  69 7a 65 25 3d 37 35 30  3e 3e 78 65 69 67 25 0d  |ize%=750>>xeig%.|
00003ee0  17 3e 19 79 73 69 7a 65  25 3d 28 37 35 30 3e 3e  |.>.ysize%=(750>>|
00003ef0  79 65 69 67 25 29 2b 31  0d 17 48 1e 73 69 7a 65  |yeig%)+1..H.size|
00003f00  25 3d 28 78 73 69 7a 65  25 2a 79 73 69 7a 65 25  |%=(xsize%*ysize%|
00003f10  29 2b 31 30 30 30 0d 17  52 2b c8 99 20 22 4f 53  |)+1000..R+.. "OS|
00003f20  5f 4d 6f 64 75 6c 65 22  2c 26 30 36 2c 2c 2c 73  |_Module",&06,,,s|
00003f30  69 7a 65 25 20 b8 20 2c  2c 64 72 61 77 73 70 72  |ize% . ,,drawspr|
00003f40  25 0d 17 5c 13 21 64 72  61 77 73 70 72 25 3d 73  |%..\.!drawspr%=s|
00003f50  69 7a 65 25 0d 17 66 11  64 72 61 77 73 70 72 25  |ize%..f.drawspr%|
00003f60  21 38 3d 31 36 0d 17 70  0b 6d 6f 64 65 25 3d eb  |!8=16..p.mode%=.|
00003f70  0d 17 7a 22 c8 99 20 22  4f 53 5f 53 70 72 69 74  |..z".. "OS_Sprit|
00003f80  65 4f 70 22 2c 26 31 30  39 2c 64 72 61 77 73 70  |eOp",&109,drawsp|
00003f90  72 25 0d 17 84 40 c8 99  20 22 4f 53 5f 53 70 72  |r%...@.. "OS_Spr|
00003fa0  69 74 65 4f 70 22 2c 26  31 30 46 2c 64 72 61 77  |iteOp",&10F,draw|
00003fb0  73 70 72 25 2c 22 70 6f  74 74 65 64 22 2c 2c 78  |spr%,"potted",,x|
00003fc0  73 69 7a 65 25 2c 79 73  69 7a 65 25 2c 6d 6f 64  |size%,ysize%,mod|
00003fd0  65 25 0d 17 8e 2b c8 99  20 22 4f 53 5f 53 70 72  |e%...+.. "OS_Spr|
00003fe0  69 74 65 4f 70 22 2c 26  31 31 38 2c 64 72 61 77  |iteOp",&118,draw|
00003ff0  73 70 72 25 2c 22 70 6f  74 74 65 64 22 0d 17 98  |spr%,"potted"...|
00004000  0d 63 68 61 6e 67 65 25  3d a3 0d 17 a2 1e f2 64  |.change%=......d|
00004010  72 61 77 5f 73 70 72 69  74 65 28 75 73 65 63 6f  |raw_sprite(useco|
00004020  6c 74 72 61 6e 73 25 29  0d 17 ac 05 e1 0d 17 b6  |ltrans%)........|
00004030  05 3a 0d 17 c0 0b dd 20  f2 69 6e 69 74 0d 17 ca  |.:..... .init...|
00004040  0b ea 20 66 69 6c 65 25  0d 17 d4 28 de 20 74 65  |.. file%...(. te|
00004050  6d 70 25 20 31 30 30 2c  62 6c 6f 63 6b 25 20 31  |mp% 100,block% 1|
00004060  30 30 30 2c 20 69 6e 64  69 72 25 20 31 30 30 30  |000, indir% 1000|
00004070  0d 17 de 34 de 20 69 63  6f 6e 5f 6d 65 6e 75 25  |...4. icon_menu%|
00004080  20 35 30 30 2c 20 65 64  69 74 5f 6d 65 6e 75 25  | 500, edit_menu%|
00004090  20 35 30 30 2c 20 64 72  61 77 5f 6d 65 6e 75 25  | 500, draw_menu%|
000040a0  20 35 30 30 0d 17 e8 0b  de 20 71 25 20 31 31 0d  | 500..... q% 11.|
000040b0  17 f2 22 de 20 74 69 6d  65 5f 61 64 64 72 25 20  |..". time_addr% |
000040c0  31 30 2c 76 61 6c 69 64  5f 61 64 64 72 25 20 31  |10,valid_addr% 1|
000040d0  30 0d 17 fc 24 de 20 72  65 63 74 25 20 31 36 2c  |0...$. rect% 16,|
000040e0  20 74 72 61 6e 73 25 20  31 36 2c 20 70 6c 6f 74  | trans% 16, plot|
000040f0  61 74 25 20 38 0d 18 06  10 64 72 61 77 5f 6f 70  |at% 8....draw_op|
00004100  65 6e 25 3d a3 0d 18 10  0e 65 6c 65 6d 65 6e 74  |en%=.....element|
00004110  25 3d 30 0d 18 1a 0d 70  6f 69 6e 74 25 3d 2d 31  |%=0....point%=-1|
00004120  0d 18 24 15 de 20 70 69  63 74 75 72 65 25 28 31  |..$.. picture%(1|
00004130  30 30 2c 32 29 0d 18 2e  14 24 74 69 6d 65 5f 61  |00,2)....$time_a|
00004140  64 64 72 25 3d 22 31 30  22 0d 18 38 17 24 76 61  |ddr%="10"..8.$va|
00004150  6c 69 64 5f 61 64 64 72  25 3d 22 41 30 2d 39 22  |lid_addr%="A0-9"|
00004160  0d 18 42 18 65 64 69 74  5f 66 69 6c 65 24 3d 22  |..B.edit_file$="|
00004170  4f 75 74 6c 69 6e 65 22  0d 18 4c 17 64 72 61 77  |Outline"..L.draw|
00004180  5f 66 69 6c 65 24 3d 22  50 6f 74 74 65 64 22 0d  |_file$="Potted".|
00004190  18 56 0e 59 45 53 3d 31  3a 4e 4f 3d 30 0d 18 60  |.V.YES=1:NO=0..`|
000041a0  0c 73 61 76 65 64 25 3d  b9 0d 18 6a 19 70 61 74  |.saved%=...j.pat|
000041b0  68 24 3d 22 3c 50 6f 74  74 65 72 79 24 44 69 72  |h$="<Pottery$Dir|
000041c0  3e 22 0d 18 74 1d 66 69  6c 65 25 3d 8e 28 70 61  |>"..t.file%=.(pa|
000041d0  74 68 24 2b 22 2e 53 70  72 69 74 65 73 22 29 0d  |th$+".Sprites").|
000041e0  18 7e 1d 73 69 7a 65 25  3d 28 a2 23 66 69 6c 65  |.~.size%=(.#file|
000041f0  25 29 2b 34 3a d9 23 66  69 6c 65 25 0d 18 88 13  |%)+4:.#file%....|
00004200  de 20 73 70 61 72 65 61  25 20 73 69 7a 65 25 0d  |. sparea% size%.|
00004210  18 92 1f 21 73 70 61 72  65 61 25 3d 73 69 7a 65  |...!sparea%=size|
00004220  25 3a 73 70 61 72 65 61  25 21 38 3d 31 36 0d 18  |%:sparea%!8=16..|
00004230  9c 32 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.2.. "OS_SpriteO|
00004240  70 22 2c 26 31 30 41 2c  73 70 61 72 65 61 25 2c  |p",&10A,sparea%,|
00004250  70 61 74 68 24 2b 22 2e  53 70 72 69 74 65 73 22  |path$+".Sprites"|
00004260  0d 18 a6 0b 71 75 69 74  25 3d a3 0d 18 b0 12 61  |....quit%=.....a|
00004270  70 70 24 3d 22 50 6f 74  74 65 72 79 22 0d 18 ba  |pp$="Pottery"...|
00004280  13 74 61 73 6b 25 3d 26  34 42 35 33 34 31 35 34  |.task%=&4B534154|
00004290  0d 18 c4 35 c8 99 20 22  57 69 6d 70 5f 49 6e 69  |...5.. "Wimp_Ini|
000042a0  74 69 61 6c 69 73 65 22  2c 32 30 30 2c 74 61 73  |tialise",200,tas|
000042b0  6b 25 2c 61 70 70 24 20  b8 20 2c 74 61 73 6b 5f  |k%,app$ . ,task_|
000042c0  68 61 6e 64 25 0d 18 ce  22 f2 74 65 6d 70 6c 61  |hand%...".templa|
000042d0  74 65 73 28 70 61 74 68  24 2b 22 2e 54 65 6d 70  |tes(path$+".Temp|
000042e0  6c 61 74 65 73 22 29 0d  18 d8 0a f2 6d 65 6e 75  |lates").....menu|
000042f0  73 0d 18 e2 1e f2 69 63  6f 6e 62 61 72 28 22 21  |s.....iconbar("!|
00004300  22 2b 61 70 70 24 2c 22  72 69 67 68 74 22 29 0d  |"+app$,"right").|
00004310  18 ec 10 f2 6d 61 6b 65  5f 73 70 72 69 74 65 0d  |....make_sprite.|
00004320  18 f6 0e f2 64 72 61 67  5f 69 6e 69 74 0d 19 00  |....drag_init...|
00004330  05 e1 0d 19 0a 05 3a 0d  19 14 0a dd 20 f2 66 69  |......:..... .fi|
00004340  6e 0d 19 1e 28 c8 99 20  22 57 69 6d 70 5f 43 6c  |n...(.. "Wimp_Cl|
00004350  6f 73 65 44 6f 77 6e 22  2c 74 61 73 6b 5f 68 61  |oseDown",task_ha|
00004360  6e 64 25 2c 74 61 73 6b  25 0d 19 28 20 c8 99 20  |nd%,task%..( .. |
00004370  22 4f 53 5f 4d 6f 64 75  6c 65 22 2c 26 30 37 2c  |"OS_Module",&07,|
00004380  2c 64 72 61 77 73 70 72  25 0d 19 32 05 e0 0d 19  |,drawspr%..2....|
00004390  3c 05 e1 0d 19 46 05 3a  0d 19 50 17 dd 20 f2 74  |<....F.:..P.. .t|
000043a0  65 6d 70 6c 61 74 65 73  28 66 69 6c 65 24 29 0d  |emplates(file$).|
000043b0  19 5a 21 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.Z!.. "Wimp_Open|
000043c0  54 65 6d 70 6c 61 74 65  22 2c 2c 66 69 6c 65 24  |Template",,file$|
000043d0  0d 19 64 0e 24 71 25 3d  22 69 6e 66 6f 22 0d 19  |..d.$q%="info"..|
000043e0  6e 4d c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |nM.. "Wimp_LoadT|
000043f0  65 6d 70 6c 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |emplate",,block%|
00004400  2c 69 6e 64 69 72 25 2c  69 6e 64 69 72 25 2b 31  |,indir%,indir%+1|
00004410  30 30 30 2c 2d 31 2c 71  25 2c 30 20 b8 20 2c 2c  |000,-1,q%,0 . ,,|
00004420  6e 65 78 74 5f 69 6e 64  69 72 25 0d 19 78 2f c8  |next_indir%..x/.|
00004430  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00004440  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
00004450  69 6e 66 6f 5f 68 61 6e  64 25 0d 19 82 0e 24 71  |info_hand%....$q|
00004460  25 3d 22 73 61 76 65 22  0d 19 8c 52 c8 99 20 22  |%="save"...R.. "|
00004470  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00004480  65 22 2c 2c 62 6c 6f 63  6b 25 2c 6e 65 78 74 5f  |e",,block%,next_|
00004490  69 6e 64 69 72 25 2c 69  6e 64 69 72 25 2b 31 30  |indir%,indir%+10|
000044a0  30 30 2c 2d 31 2c 71 25  2c 30 20 b8 20 2c 2c 6e  |00,-1,q%,0 . ,,n|
000044b0  65 78 74 5f 69 6e 64 69  72 25 0d 19 96 2f c8 99  |ext_indir%.../..|
000044c0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
000044d0  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 73  |dow",,block% . s|
000044e0  61 76 65 5f 68 61 6e 64  25 0d 19 a0 0e 24 71 25  |ave_hand%....$q%|
000044f0  3d 22 65 64 69 74 22 0d  19 aa 52 c8 99 20 22 57  |="edit"...R.. "W|
00004500  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00004510  22 2c 2c 62 6c 6f 63 6b  25 2c 6e 65 78 74 5f 69  |",,block%,next_i|
00004520  6e 64 69 72 25 2c 69 6e  64 69 72 25 2b 31 30 30  |ndir%,indir%+100|
00004530  30 2c 2d 31 2c 71 25 2c  30 20 b8 20 2c 2c 6e 65  |0,-1,q%,0 . ,,ne|
00004540  78 74 5f 69 6e 64 69 72  25 0d 19 b4 15 62 6c 6f  |xt_indir%....blo|
00004550  63 6b 25 21 36 34 3d 73  70 61 72 65 61 25 0d 19  |ck%!64=sparea%..|
00004560  be 2f c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |./.. "Wimp_Creat|
00004570  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00004580  20 b8 20 65 64 69 74 5f  68 61 6e 64 25 0d 19 c8  | . edit_hand%...|
00004590  0e 24 71 25 3d 22 64 72  61 77 22 0d 19 d2 52 c8  |.$q%="draw"...R.|
000045a0  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
000045b0  6c 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 2c 6e 65  |late",,block%,ne|
000045c0  78 74 5f 69 6e 64 69 72  25 2c 69 6e 64 69 72 25  |xt_indir%,indir%|
000045d0  2b 31 30 30 30 2c 2d 31  2c 71 25 2c 30 20 b8 20  |+1000,-1,q%,0 . |
000045e0  2c 2c 6e 65 78 74 5f 69  6e 64 69 72 25 0d 19 dc  |,,next_indir%...|
000045f0  2f c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |/.. "Wimp_Create|
00004600  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 20  |Window",,block% |
00004610  b8 20 64 72 61 77 5f 68  61 6e 64 25 0d 19 e6 1b  |. draw_hand%....|
00004620  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00004630  6d 70 6c 61 74 65 22 0d  19 f0 16 21 62 6c 6f 63  |mplate"....!bloc|
00004640  6b 25 3d 73 61 76 65 5f  68 61 6e 64 25 0d 19 fa  |k%=save_hand%...|
00004650  0e 62 6c 6f 63 6b 25 21  34 3d 30 0d 1a 04 22 c8  |.block%!4=0...".|
00004660  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00004670  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 1a 0e  |tate",,block%...|
00004680  18 74 79 70 65 5f 61 64  64 72 25 3d 62 6c 6f 63  |.type_addr%=bloc|
00004690  6b 25 21 32 38 0d 1a 18  0e 62 6c 6f 63 6b 25 21  |k%!28....block%!|
000046a0  34 3d 31 0d 1a 22 22 c8  99 20 22 57 69 6d 70 5f  |4=1.."".. "Wimp_|
000046b0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
000046c0  6c 6f 63 6b 25 0d 1a 2c  17 66 69 6c 65 6e 61 6d  |lock%..,.filenam|
000046d0  65 25 3d 62 6c 6f 63 6b  25 21 32 38 0d 1a 36 05  |e%=block%!28..6.|
000046e0  e1 0d 1a 40 05 3a 0d 1a  4a 0c dd 20 f2 6d 65 6e  |...@.:..J.. .men|
000046f0  75 73 0d 1a 54 08 ea 20  62 25 0d 1a 5e 05 3a 0d  |us..T.. b%..^.:.|
00004700  1a 68 16 f4 20 54 68 65  20 69 63 6f 6e 62 61 72  |.h.. The iconbar|
00004710  20 6d 65 6e 75 0d 1a 72  11 62 25 3d 69 63 6f 6e  | menu..r.b%=icon|
00004720  5f 6d 65 6e 75 25 0d 1a  7c 1d f2 68 65 61 64 65  |_menu%..|..heade|
00004730  72 28 62 25 2c 22 50 6f  74 74 65 72 79 22 2c 31  |r(b%,"Pottery",1|
00004740  30 30 29 0d 1a 86 2a f2  69 74 65 6d 28 62 25 2c  |00)...*.item(b%,|
00004750  22 49 6e 66 6f 22 2c 4e  4f 2c 30 2c 69 6e 66 6f  |"Info",NO,0,info|
00004760  5f 68 61 6e 64 25 2c 4e  4f 2c 2d 31 29 0d 1a 90  |_hand%,NO,-1)...|
00004770  23 f2 69 74 65 6d 28 62  25 2c 22 51 75 69 74 22  |#.item(b%,"Quit"|
00004780  2c 59 45 53 2c 30 2c 2d  31 2c 4e 4f 2c 2d 31 29  |,YES,0,-1,NO,-1)|
00004790  0d 1a 9a 05 3a 0d 1a a4  13 f4 20 54 68 65 20 65  |....:..... The e|
000047a0  64 69 74 20 6d 65 6e 75  0d 1a ae 11 62 25 3d 65  |dit menu....b%=e|
000047b0  64 69 74 5f 6d 65 6e 75  25 0d 1a b8 1a f2 68 65  |dit_menu%.....he|
000047c0  61 64 65 72 28 62 25 2c  22 45 64 69 74 22 2c 31  |ader(b%,"Edit",1|
000047d0  38 35 29 0d 1a c2 31 f2  69 74 65 6d 28 62 25 2c  |85)...1.item(b%,|
000047e0  22 43 6f 6c 6f 75 72 73  22 2c 4e 4f 2c 30 2c 65  |"Colours",NO,0,e|
000047f0  64 69 74 5f 6d 65 6e 75  25 2b 31 37 32 2c 4e 4f  |dit_menu%+172,NO|
00004800  2c 2d 31 29 0d 1a cc 29  f2 69 74 65 6d 28 62 25  |,-1)...).item(b%|
00004810  2c 22 44 65 6c 65 74 65  20 6c 61 73 74 22 2c 4e  |,"Delete last",N|
00004820  4f 2c 30 2c 2d 31 2c 4e  4f 2c 2d 31 29 0d 1a d6  |O,0,-1,NO,-1)...|
00004830  27 f2 69 74 65 6d 28 62  25 2c 22 43 6c 65 61 72  |'.item(b%,"Clear|
00004840  20 61 6c 6c 22 2c 4e 4f  2c 30 2c 2d 31 2c 4e 4f  | all",NO,0,-1,NO|
00004850  2c 2d 31 29 0d 1a e0 27  f2 69 74 65 6d 28 62 25  |,-1)...'.item(b%|
00004860  2c 22 4f 70 65 6e 20 64  72 61 77 22 2c 4e 4f 2c  |,"Open draw",NO,|
00004870  32 2c 2d 31 2c 4e 4f 2c  2d 31 29 0d 1a ea 2a f2  |2,-1,NO,-1)...*.|
00004880  69 74 65 6d 28 62 25 2c  22 53 61 76 65 22 2c 4e  |item(b%,"Save",N|
00004890  4f 2c 30 2c 73 61 76 65  5f 68 61 6e 64 25 2c 4e  |O,0,save_hand%,N|
000048a0  4f 2c 2d 31 29 0d 1a f4  24 f2 69 74 65 6d 28 62  |O,-1)...$.item(b|
000048b0  25 2c 22 50 72 69 6e 74  22 2c 59 45 53 2c 30 2c  |%,"Print",YES,0,|
000048c0  2d 31 2c 4e 4f 2c 2d 31  29 0d 1a fe 1d f2 68 65  |-1,NO,-1).....he|
000048d0  61 64 65 72 28 62 25 2c  22 43 6f 6c 6f 75 72 73  |ader(b%,"Colours|
000048e0  22 2c 31 30 30 29 0d 1b  08 11 62 6c 75 65 5f 74  |",100)....blue_t|
000048f0  69 63 6b 25 3d 62 25 0d  1b 12 29 f2 69 74 65 6d  |ick%=b%...).item|
00004900  28 62 25 2c 22 42 6c 75  65 22 2c 4e 4f 2c 31 2c  |(b%,"Blue",NO,1,|
00004910  2d 31 2c 4e 4f 2c 26 46  37 30 30 30 30 32 31 29  |-1,NO,&F7000021)|
00004920  0d 1b 1c 10 72 65 64 5f  74 69 63 6b 25 3d 62 25  |....red_tick%=b%|
00004930  0d 1b 26 28 f2 69 74 65  6d 28 62 25 2c 22 52 65  |..&(.item(b%,"Re|
00004940  64 22 2c 4e 4f 2c 31 2c  2d 31 2c 4e 4f 2c 26 42  |d",NO,1,-1,NO,&B|
00004950  37 30 30 30 30 32 31 29  0d 1b 30 12 67 72 65 65  |7000021)..0.gree|
00004960  6e 5f 74 69 63 6b 25 3d  62 25 0d 1b 3a 2b f2 69  |n_tick%=b%..:+.i|
00004970  74 65 6d 28 62 25 2c 22  47 72 65 65 6e 22 2c 59  |tem(b%,"Green",Y|
00004980  45 53 2c 31 2c 2d 31 2c  4e 4f 2c 26 41 37 30 30  |ES,1,-1,NO,&A700|
00004990  30 30 32 31 29 0d 1b 44  05 3a 0d 1b 4e 13 f4 20  |0021)..D.:..N.. |
000049a0  54 68 65 20 64 72 61 77  20 6d 65 6e 75 0d 1b 58  |The draw menu..X|
000049b0  11 62 25 3d 64 72 61 77  5f 6d 65 6e 75 25 0d 1b  |.b%=draw_menu%..|
000049c0  62 1a f2 68 65 61 64 65  72 28 62 25 2c 22 44 72  |b..header(b%,"Dr|
000049d0  61 77 22 2c 31 31 30 29  0d 1b 6c 30 f2 69 74 65  |aw",110)..l0.ite|
000049e0  6d 28 62 25 2c 22 55 70  64 61 74 65 22 2c 4e 4f  |m(b%,"Update",NO|
000049f0  2c 32 2c 64 72 61 77 5f  6d 65 6e 75 25 2b 31 30  |,2,draw_menu%+10|
00004a00  30 2c 4e 4f 2c 2d 31 29  0d 1b 76 2a f2 69 74 65  |0,NO,-1)..v*.ite|
00004a10  6d 28 62 25 2c 22 53 61  76 65 22 2c 4e 4f 2c 30  |m(b%,"Save",NO,0|
00004a20  2c 73 61 76 65 5f 68 61  6e 64 25 2c 4e 4f 2c 2d  |,save_hand%,NO,-|
00004a30  31 29 0d 1b 80 24 f2 69  74 65 6d 28 62 25 2c 22  |1)...$.item(b%,"|
00004a40  50 72 69 6e 74 22 2c 59  45 53 2c 30 2c 2d 31 2c  |Print",YES,0,-1,|
00004a50  4e 4f 2c 2d 31 29 0d 1b  8a 1c f2 68 65 61 64 65  |NO,-1).....heade|
00004a60  72 28 62 25 2c 22 55 70  64 61 74 65 22 2c 31 37  |r(b%,"Update",17|
00004a70  30 29 0d 1b 94 21 f2 69  74 65 6d 28 62 25 2c 22  |0)...!.item(b%,"|
00004a80  4e 6f 77 22 2c 4e 4f 2c  30 2c 2d 31 2c 4e 4f 2c  |Now",NO,0,-1,NO,|
00004a90  2d 31 29 0d 1b 9e 11 63  6f 6e 74 5f 74 69 63 6b  |-1)....cont_tick|
00004aa0  25 3d 62 25 0d 1b a8 29  f2 69 74 65 6d 28 62 25  |%=b%...).item(b%|
00004ab0  2c 22 43 6f 6e 74 69 6e  75 6f 75 73 22 2c 59 45  |,"Continuous",YE|
00004ac0  53 2c 31 2c 2d 31 2c 4e  4f 2c 2d 31 29 0d 1b b2  |S,1,-1,NO,-1)...|
00004ad0  05 e1 0d 1b bc 05 3a 0d  1b c6 19 dd 20 f2 68 65  |......:..... .he|
00004ae0  61 64 65 72 28 f8 20 61  25 2c 61 24 2c 77 25 29  |ader(. a%,a$,w%)|
00004af0  0d 1b d0 0a 24 61 25 3d  61 24 0d 1b da 13 61 25  |....$a%=a$....a%|
00004b00  21 31 32 3d 26 30 30 30  37 30 32 30 37 0d 1b e4  |!12=&00070207...|
00004b10  0c 61 25 21 31 36 3d 77  25 0d 1b ee 0c 61 25 21  |.a%!16=w%....a%!|
00004b20  32 30 3d 34 34 0d 1b f8  0b 61 25 21 32 34 3d 30  |20=44....a%!24=0|
00004b30  0d 1c 02 0a 61 25 2b 3d  32 38 0d 1c 0c 05 e1 0d  |....a%+=28......|
00004b40  1c 16 05 3a 0d 1c 20 42  dd 20 f2 69 74 65 6d 28  |...:.. B. .item(|
00004b50  f8 20 61 64 64 72 25 2c  69 74 65 6d 24 2c 6c 61  |. addr%,item$,la|
00004b60  73 74 25 2c 6d 65 6e 66  6c 61 67 73 25 2c 70 74  |st%,menflags%,pt|
00004b70  72 25 2c 73 68 61 64 65  64 25 2c 69 63 6f 6e 66  |r%,shaded%,iconf|
00004b80  6c 61 67 73 25 29 0d 1c  2a 10 ea 20 61 24 2c 70  |lags%)..*.. a$,p|
00004b90  31 25 2c 70 32 25 0d 1c  34 24 61 64 64 72 25 21  |1%,p2%..4$addr%!|
00004ba0  30 3d 28 28 6c 61 73 74  25 3c 3c 37 29 20 84 20  |0=((last%<<7) . |
00004bb0  6d 65 6e 66 6c 61 67 73  25 29 0d 1c 3e 10 61 64  |menflags%)..>.ad|
00004bc0  64 72 25 21 34 3d 70 74  72 25 0d 1c 48 29 e7 20  |dr%!4=ptr%..H). |
00004bd0  69 63 6f 6e 66 6c 61 67  73 25 3d 2d 31 20 8c 20  |iconflags%=-1 . |
00004be0  69 63 6f 6e 66 6c 61 67  73 25 3d 26 37 30 30 30  |iconflags%=&7000|
00004bf0  30 32 31 0d 1c 52 27 69  63 6f 6e 66 6c 61 67 73  |021..R'iconflags|
00004c00  25 3d 69 63 6f 6e 66 6c  61 67 73 25 20 84 20 73  |%=iconflags% . s|
00004c10  68 61 64 65 64 25 3c 3c  32 32 0d 1c 5c 16 61 64  |haded%<<22..\.ad|
00004c20  64 72 25 21 38 3d 69 63  6f 6e 66 6c 61 67 73 25  |dr%!8=iconflags%|
00004c30  0d 1c 66 16 e7 20 c0 69  74 65 6d 24 2c 32 29 3d  |..f.. .item$,2)=|
00004c40  22 2a 2a 22 20 8c 0d 1c  70 1d 20 69 74 65 6d 24  |"**" ...p. item$|
00004c50  3d c2 69 74 65 6d 24 2c  28 a9 69 74 65 6d 24 2d  |=.item$,(.item$-|
00004c60  32 29 29 0d 1c 7a 14 20  70 31 25 3d a7 69 74 65  |2))..z. p1%=.ite|
00004c70  6d 24 2c 22 2c 22 29 0d  1c 84 13 20 61 24 3d c0  |m$,",").... a$=.|
00004c80  69 74 65 6d 24 2c 70 31  25 29 0d 1c 8e 13 20 61  |item$,p1%).... a|
00004c90  64 64 72 25 21 31 32 3d  a0 28 61 24 29 0d 1c 98  |ddr%!12=.(a$)...|
00004ca0  1a 20 70 32 25 3d a7 69  74 65 6d 24 2c 22 2c 22  |. p2%=.item$,","|
00004cb0  2c 70 31 25 2b 31 29 0d  1c a2 19 20 61 24 3d c1  |,p1%+1).... a$=.|
00004cc0  69 74 65 6d 24 2c 70 31  25 2b 31 2c 70 32 25 29  |item$,p1%+1,p2%)|
00004cd0  0d 1c ac 13 20 61 64 64  72 25 21 31 36 3d a0 28  |.... addr%!16=.(|
00004ce0  61 24 29 0d 1c b6 1c 20  61 24 3d c2 69 74 65 6d  |a$).... a$=.item|
00004cf0  24 2c a9 28 69 74 65 6d  24 29 2d 70 32 25 29 0d  |$,.(item$)-p2%).|
00004d00  1c c0 13 20 61 64 64 72  25 21 32 30 3d a0 28 61  |... addr%!20=.(a|
00004d10  24 29 0d 1c ca 05 cc 0d  1c d4 16 20 24 28 61 64  |$)......... $(ad|
00004d20  64 72 25 2b 31 32 29 3d  69 74 65 6d 24 0d 1c de  |dr%+12)=item$...|
00004d30  05 cd 0d 1c e8 0d 61 64  64 72 25 2b 3d 32 34 0d  |......addr%+=24.|
00004d40  1c f2 05 e1 0d 1c fc 05  3a 0d 1d 06 15 dd 20 f2  |........:..... .|
00004d50  69 63 6f 6e 62 61 72 28  61 24 2c 70 24 29 0d 1d  |iconbar(a$,p$)..|
00004d60  10 08 ea 20 70 25 0d 1d  1a 0b c8 8e 20 70 24 20  |... p%...... p$ |
00004d70  ca 0d 1d 24 14 20 c9 20  22 72 69 67 68 74 22 3a  |...$. . "right":|
00004d80  70 25 3d 2d 31 0d 1d 2e  14 20 c9 20 22 6c 65 66  |p%=-1.... . "lef|
00004d90  74 22 20 3a 70 25 3d 2d  32 0d 1d 38 39 20 7f 20  |t" :p%=-2..89 . |
00004da0  f2 72 65 70 6f 72 74 28  30 2c 22 49 6e 76 61 6c  |.report(0,"Inval|
00004db0  69 64 20 32 6e 64 20 70  61 72 61 6d 65 74 65 72  |id 2nd parameter|
00004dc0  20 74 6f 20 50 52 4f 43  69 63 6f 6e 62 61 72 2e  | to PROCiconbar.|
00004dd0  22 29 0d 1d 42 05 cb 0d  1d 4c 0f 62 6c 6f 63 6b  |")..B....L.block|
00004de0  25 21 30 3d 70 25 0d 1d  56 0e 62 6c 6f 63 6b 25  |%!0=p%..V.block%|
00004df0  21 34 3d 30 0d 1d 60 0e  62 6c 6f 63 6b 25 21 38  |!4=0..`.block%!8|
00004e00  3d 30 0d 1d 6a 10 62 6c  6f 63 6b 25 21 31 32 3d  |=0..j.block%!12=|
00004e10  36 38 0d 1d 74 10 62 6c  6f 63 6b 25 21 31 36 3d  |68..t.block%!16=|
00004e20  36 38 0d 1d 7e 13 62 6c  6f 63 6b 25 21 32 30 3d  |68..~.block%!20=|
00004e30  26 33 30 30 32 0d 1d 88  13 24 28 62 6c 6f 63 6b  |&3002....$(block|
00004e40  25 2b 32 34 29 3d 61 24  0d 1d 92 2d c8 99 20 22  |%+24)=a$...-.. "|
00004e50  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00004e60  2c 2c 62 6c 6f 63 6b 25  20 b8 20 69 62 61 72 5f  |,,block% . ibar_|
00004e70  68 61 6e 64 25 0d 1d 9c  05 e1 0d 1d a6 05 3a 0d  |hand%.........:.|
00004e80  1d b0 11 dd 20 a4 73 74  72 69 6e 67 28 61 25 29  |.... .string(a%)|
00004e90  0d 1d ba 08 ea 20 61 24  0d 1d c4 0d c8 95 20 3f  |..... a$...... ?|
00004ea0  61 25 3c 3e 30 0d 1d ce  14 61 24 2b 3d bd 28 3f  |a%<>0....a$+=.(?|
00004eb0  61 25 29 3a 61 25 2b 3d  31 0d 1d d8 05 ce 0d 1d  |a%):a%+=1.......|
00004ec0  e2 07 3d 61 24 0d 1d ec  05 3a 0d 1d f6 10 dd 20  |..=a$....:..... |
00004ed0  f2 73 61 76 65 5f 65 64  69 74 0d 1e 00 09 ea 20  |.save_edit..... |
00004ee0  66 68 25 0d 1e 0a 15 66  68 25 3d ae 28 65 64 69  |fh%....fh%=.(edi|
00004ef0  74 5f 66 69 6c 65 24 29  0d 1e 14 13 d5 23 66 68  |t_file$).....#fh|
00004f00  25 2c 22 50 6f 74 74 65  72 79 22 0d 1e 1e 12 f1  |%,"Pottery".....|
00004f10  23 66 68 25 2c 65 6c 65  6d 65 6e 74 25 0d 1e 28  |#fh%,element%..(|
00004f20  17 e3 20 49 25 3d 30 20  b8 20 65 6c 65 6d 65 6e  |.. I%=0 . elemen|
00004f30  74 25 2d 31 0d 1e 32 37  20 f1 23 66 68 25 2c 70  |t%-1..27 .#fh%,p|
00004f40  69 63 74 75 72 65 25 28  49 25 2c 30 29 2c 70 69  |icture%(I%,0),pi|
00004f50  63 74 75 72 65 25 28 49  25 2c 31 29 2c 70 69 63  |cture%(I%,1),pic|
00004f60  74 75 72 65 25 28 49 25  2c 32 29 0d 1e 3c 05 ed  |ture%(I%,2)..<..|
00004f70  0d 1e 46 09 d9 23 66 68  25 0d 1e 50 27 ff 28 22  |..F..#fh%..P'.("|
00004f80  53 65 74 74 79 70 65 20  22 2b 65 64 69 74 5f 66  |Settype "+edit_f|
00004f90  69 6c 65 24 2b 22 20 50  6f 74 74 65 72 79 22 29  |ile$+" Pottery")|
00004fa0  0d 1e 5a 0c 73 61 76 65  64 25 3d b9 0d 1e 64 05  |..Z.saved%=...d.|
00004fb0  e1 0d 1e 6e 05 3a 0d 1e  78 14 dd 20 f2 6c 6f 61  |...n.:..x.. .loa|
00004fc0  64 5f 65 64 69 74 28 61  24 29 0d 1e 82 1c ea 20  |d_edit(a$)..... |
00004fd0  66 68 25 2c 69 6e 70 24  2c 62 24 2c 63 24 2c 63  |fh%,inp$,b$,c$,c|
00004fe0  6f 6c 25 2c 49 25 0d 1e  8c 0d 66 68 25 3d 8e 28  |ol%,I%....fh%=.(|
00004ff0  61 24 29 0d 1e 96 0e 69  6e 70 24 3d be 23 66 68  |a$)....inp$=.#fh|
00005000  25 0d 1e a0 5f e7 20 69  6e 70 24 3c 3e 22 50 6f  |%..._. inp$<>"Po|
00005010  74 74 65 72 79 22 20 80  20 69 6e 70 24 3c 3e 22  |ttery" . inp$<>"|
00005020  53 68 61 70 65 22 20 8c  20 d9 23 66 68 25 3a 85  |Shape" . .#fh%:.|
00005030  20 31 30 30 30 2c 22 54  68 69 73 20 69 73 20 6e  | 1000,"This is n|
00005040  6f 74 20 61 20 66 69 6c  65 20 73 75 69 74 61 62  |ot a file suitab|
00005050  6c 65 20 66 6f 72 20 50  6f 74 74 65 72 79 2e 22  |le for Pottery."|
00005060  0d 1e aa 16 e7 20 69 6e  70 24 3d 22 50 6f 74 74  |..... inp$="Pott|
00005070  65 72 79 22 20 8c 0d 1e  b4 13 20 e8 23 66 68 25  |ery" ..... .#fh%|
00005080  2c 65 6c 65 6d 65 6e 74  25 0d 1e be 18 20 e3 20  |,element%.... . |
00005090  49 25 3d 30 20 b8 20 65  6c 65 6d 65 6e 74 25 2d  |I%=0 . element%-|
000050a0  31 0d 1e c8 38 20 20 e8  23 66 68 25 2c 70 69 63  |1...8  .#fh%,pic|
000050b0  74 75 72 65 25 28 49 25  2c 30 29 2c 70 69 63 74  |ture%(I%,0),pict|
000050c0  75 72 65 25 28 49 25 2c  31 29 2c 70 69 63 74 75  |ure%(I%,1),pictu|
000050d0  72 65 25 28 49 25 2c 32  29 0d 1e d2 06 20 ed 0d  |re%(I%,2).... ..|
000050e0  1e dc 12 20 65 64 69 74  5f 66 69 6c 65 24 3d 61  |... edit_file$=a|
000050f0  24 0d 1e e6 05 cc 0d 1e  f0 16 20 65 6c 65 6d 65  |$......... eleme|
00005100  6e 74 25 3d 30 3a 63 6f  6c 25 3d 37 0d 1e fa 1e  |nt%=0:col%=7....|
00005110  20 c8 95 20 ac 20 c5 23  66 68 25 20 80 20 65 6c  | .. . .#fh% . el|
00005120  65 6d 65 6e 74 25 3c 31  30 30 0d 1f 04 10 20 20  |ement%<100....  |
00005130  69 6e 70 24 3d be 23 66  68 25 0d 1f 0e 11 20 20  |inp$=.#fh%....  |
00005140  62 24 3d c0 69 6e 70 24  2c 34 29 0d 1f 18 19 20  |b$=.inp$,4).... |
00005150  20 63 24 3d c2 69 6e 70  24 2c a9 28 69 6e 70 24  | c$=.inp$,.(inp$|
00005160  29 2d 34 29 0d 1f 22 0d  20 20 c8 8e 20 62 24 20  |)-4)..".  .. b$ |
00005170  ca 0d 1f 2c 2a 20 20 20  20 c9 20 22 67 63 6f 6c  |...,*    . "gcol|
00005180  22 3a 63 6f 6c 25 3d a4  6c 6f 6f 6b 75 70 5f 63  |":col%=.lookup_c|
00005190  6f 6c 28 63 24 2c 63 6f  6c 25 29 0d 1f 36 21 20  |ol(c$,col%)..6! |
000051a0  20 20 20 c9 20 22 6d 6f  76 65 22 3a f2 73 65 74  |   . "move":.set|
000051b0  5f 70 6f 69 6e 74 28 63  24 2c 30 29 0d 1f 40 24  |_point(c$,0)..@$|
000051c0  20 20 20 20 c9 20 22 64  72 61 77 22 3a f2 73 65  |    . "draw":.se|
000051d0  74 5f 70 6f 69 6e 74 28  63 24 2c 63 6f 6c 25 29  |t_point(c$,col%)|
000051e0  0d 1f 4a 07 20 20 cb 0d  1f 54 06 20 ce 0d 1f 5e  |..J.  ...T. ...^|
000051f0  0d 20 73 61 76 65 64 25  3d a3 0d 1f 68 05 cd 0d  |. saved%=...h...|
00005200  1f 72 09 d9 23 66 68 25  0d 1f 7c 29 f2 66 6f 72  |.r..#fh%..|).for|
00005210  63 65 5f 72 65 64 72 61  77 28 65 64 69 74 5f 68  |ce_redraw(edit_h|
00005220  61 6e 64 25 2c 39 30 2c  2d 31 2c 2d 31 2c 2d 31  |and%,90,-1,-1,-1|
00005230  29 0d 1f 86 1e f2 64 72  61 77 5f 73 70 72 69 74  |).....draw_sprit|
00005240  65 28 75 73 65 63 6f 6c  74 72 61 6e 73 25 29 0d  |e(usecoltrans%).|
00005250  1f 90 29 f2 66 6f 72 63  65 5f 72 65 64 72 61 77  |..).force_redraw|
00005260  28 64 72 61 77 5f 68 61  6e 64 25 2c 2d 31 2c 2d  |(draw_hand%,-1,-|
00005270  31 2c 2d 31 2c 2d 31 29  0d 1f 9a 05 e1 0d 1f a4  |1,-1,-1)........|
00005280  05 3a 0d 1f ae 16 dd 20  a4 67 65 74 6c 65 61 66  |.:..... .getleaf|
00005290  6e 61 6d 65 28 61 24 29  0d 1f b8 0f c8 95 20 a7  |name(a$)...... .|
000052a0  61 24 2c 22 2e 22 29 0d  1f c2 16 61 24 3d c1 61  |a$,".")....a$=.a|
000052b0  24 2c a7 61 24 2c 22 2e  22 29 2b 31 29 0d 1f cc  |$,.a$,".")+1)...|
000052c0  05 ce 0d 1f d6 0a 3d 61  24 2b bd 30 0d 1f e0 05  |......=a$+.0....|
000052d0  3a 0d 1f ea 11 dd 20 f2  70 72 69 6e 74 5f 65 64  |:..... .print_ed|
000052e0  69 74 0d 1f f4 1b ea 20  6d 6f 72 65 25 2c 49 25  |it..... more%,I%|
000052f0  2c 66 69 72 73 74 25 2c  6c 25 2c 62 25 0d 1f fe  |,first%,l%,b%...|
00005300  07 ea 20 85 0d 20 08 3a  ee 20 85 20 ea 3a f7 20  |.. .. .:. . .:. |
00005310  85 3a f2 72 65 70 6f 72  74 28 2d 31 2c 22 50 72  |.:.report(-1,"Pr|
00005320  69 6e 74 65 72 20 64 72  69 76 65 72 20 6e 6f 74  |inter driver not|
00005330  20 61 76 61 69 6c 61 62  6c 65 22 29 3a e1 0d 20  | available"):.. |
00005340  12 15 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.... "Hourglass_|
00005350  4f 6e 22 0d 20 1c 15 70  66 25 3d ae 28 22 70 72  |On". ..pf%=.("pr|
00005360  69 6e 74 65 72 3a 22 29  0d 20 26 28 c8 99 20 22  |inter:"). &(.. "|
00005370  50 44 72 69 76 65 72 5f  53 65 6c 65 63 74 4a 6f  |PDriver_SelectJo|
00005380  62 22 2c 70 66 25 2c 22  50 6f 74 74 65 72 79 22  |b",pf%,"Pottery"|
00005390  0d 20 30 07 f7 20 85 0d  20 3a 07 ea 20 85 0d 20  |. 0.. .. :.. .. |
000053a0  44 51 ee 20 85 20 ea 3a  f7 20 85 3a c8 99 20 22  |DQ. . .:. .:.. "|
000053b0  50 44 72 69 76 65 72 5f  41 62 6f 72 74 4a 6f 62  |PDriver_AbortJob|
000053c0  22 2c 70 66 25 3a d9 23  70 66 25 3a c8 99 20 22  |",pf%:.#pf%:.. "|
000053d0  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 3a f2  |Hourglass_Off":.|
000053e0  72 65 70 6f 72 74 28 2d  31 2c f6 24 29 3a e1 0d  |report(-1,.$):..|
000053f0  20 4e 24 c8 99 20 22 50  44 72 69 76 65 72 5f 50  | N$.. "PDriver_P|
00005400  61 67 65 53 69 7a 65 22  20 b8 20 2c 2c 2c 6c 25  |ageSize" . ,,,l%|
00005410  2c 62 25 0d 20 58 16 21  72 65 63 74 25 3d 30 3a  |,b%. X.!rect%=0:|
00005420  72 65 63 74 25 21 34 3d  30 0d 20 62 1c 72 65 63  |rect%!4=0. b.rec|
00005430  74 25 21 38 3d 34 33 38  3a 72 65 63 74 25 21 31  |t%!8=438:rect%!1|
00005440  32 3d 37 35 30 0d 20 6c  1c 21 74 72 61 6e 73 25  |2=750. l.!trans%|
00005450  3d 31 3c 3c 31 37 3a 74  72 61 6e 73 25 21 34 3d  |=1<<17:trans%!4=|
00005460  30 0d 20 76 1e 74 72 61  6e 73 25 21 38 3d 30 3a  |0. v.trans%!8=0:|
00005470  74 72 61 6e 73 25 21 31  32 3d 31 3c 3c 31 37 0d  |trans%!12=1<<17.|
00005480  20 80 2a 21 70 6c 6f 74  61 74 25 3d 32 2a 6c 25  | .*!plotat%=2*l%|
00005490  2b 37 32 30 30 30 3a 70  6c 6f 74 61 74 25 21 34  |+72000:plotat%!4|
000054a0  3d 62 25 2b 37 32 30 30  30 0d 20 8a 37 c8 99 20  |=b%+72000. .7.. |
000054b0  22 50 44 72 69 76 65 72  5f 47 69 76 65 52 65 63  |"PDriver_GiveRec|
000054c0  74 61 6e 67 6c 65 22 2c  30 2c 72 65 63 74 25 2c  |tangle",0,rect%,|
000054d0  74 72 61 6e 73 25 2c 70  6c 6f 74 61 74 25 2c 30  |trans%,plotat%,0|
000054e0  0d 20 94 2e c8 99 20 22  50 44 72 69 76 65 72 5f  |. .... "PDriver_|
000054f0  44 72 61 77 50 61 67 65  22 2c 31 2c 62 6c 6f 63  |DrawPage",1,bloc|
00005500  6b 25 2c 30 2c 30 20 b8  20 6d 6f 72 65 25 0d 20  |k%,0,0 . more%. |
00005510  9e 1e c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |.... "ColourTran|
00005520  73 5f 53 65 74 47 43 4f  4c 22 2c 30 0d 20 a8 0c  |s_SetGCOL",0. ..|
00005530  c8 95 20 6d 6f 72 65 25  0d 20 b2 10 20 86 20 30  |.. more%. .. . 0|
00005540  2c 30 2c 30 2c 37 35 30  0d 20 bc 12 20 49 25 3d  |,0,0,750. .. I%=|
00005550  30 3a 66 69 72 73 74 25  3d b9 0d 20 c6 13 20 c8  |0:first%=.. .. .|
00005560  95 20 49 25 3c 65 6c 65  6d 65 6e 74 25 0d 20 d0  |. I%<element%. .|
00005570  11 20 20 20 e7 20 66 69  72 73 74 25 20 8c 0d 20  |.   . first% .. |
00005580  da 28 20 20 20 20 20 ec  20 70 69 63 74 75 72 65  |.(     . picture|
00005590  25 28 49 25 2c 30 29 2c  70 69 63 74 75 72 65 25  |%(I%,0),picture%|
000055a0  28 49 25 2c 31 29 0d 20  e4 11 20 20 20 20 20 66  |(I%,1). ..     f|
000055b0  69 72 73 74 25 3d a3 0d  20 ee 0a 20 20 20 20 20  |irst%=.. ..     |
000055c0  cc 0d 20 f8 28 20 20 20  20 20 df 20 70 69 63 74  |.. .(     . pict|
000055d0  75 72 65 25 28 49 25 2c  30 29 2c 70 69 63 74 75  |ure%(I%,0),pictu|
000055e0  72 65 25 28 49 25 2c 31  29 0d 21 02 08 20 20 20  |re%(I%,1).!..   |
000055f0  cd 0d 21 0c 0c 20 20 20  49 25 2b 3d 31 0d 21 16  |..!..   I%+=1.!.|
00005600  06 20 ce 0d 21 20 2e 20  c8 99 20 22 50 44 72 69  |. ..! . .. "PDri|
00005610  76 65 72 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |ver_GetRectangle|
00005620  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 6d 6f 72 65  |",,block% . more|
00005630  25 0d 21 2a 05 ce 0d 21  34 1b c8 99 20 22 50 44  |%.!*...!4... "PD|
00005640  72 69 76 65 72 5f 45 6e  64 4a 6f 62 22 2c 70 66  |river_EndJob",pf|
00005650  25 0d 21 3e 16 c8 99 20  22 48 6f 75 72 67 6c 61  |%.!>... "Hourgla|
00005660  73 73 5f 4f 66 66 22 0d  21 48 09 d9 23 70 66 25  |ss_Off".!H..#pf%|
00005670  0d 21 52 05 e1 0d 21 5c  05 3a 0d 21 66 11 dd 20  |.!R...!\.:.!f.. |
00005680  f2 70 72 69 6e 74 5f 64  72 61 77 0d 21 70 15 c8  |.print_draw.!p..|
00005690  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
000056a0  0d 21 7a 07 ea 20 85 0d  21 84 40 ee 20 85 20 ea  |.!z.. ..!.@. . .|
000056b0  3a f7 20 85 3a d9 23 70  66 25 3a f2 72 65 70 6f  |:. .:.#pf%:.repo|
000056c0  72 74 28 2d 31 2c 22 50  72 69 6e 74 65 72 20 64  |rt(-1,"Printer d|
000056d0  72 69 76 65 72 20 6e 6f  74 20 61 76 61 69 6c 61  |river not availa|
000056e0  62 6c 65 22 29 3a e1 0d  21 8e 15 70 66 25 3d ae  |ble"):..!..pf%=.|
000056f0  28 22 70 72 69 6e 74 65  72 3a 22 29 0d 21 98 28  |("printer:").!.(|
00005700  c8 99 20 22 50 44 72 69  76 65 72 5f 53 65 6c 65  |.. "PDriver_Sele|
00005710  63 74 4a 6f 62 22 2c 70  66 25 2c 22 50 6f 74 74  |ctJob",pf%,"Pott|
00005720  65 72 79 22 0d 21 a2 07  f7 20 85 0d 21 ac 13 f2  |ery".!... ..!...|
00005730  64 72 61 77 5f 73 70 72  69 74 65 28 b9 29 0d 21  |draw_sprite(.).!|
00005740  b6 07 ea 20 85 0d 21 c0  51 ee 20 85 20 ea 3a f7  |... ..!.Q. . .:.|
00005750  20 85 3a c8 99 20 22 50  44 72 69 76 65 72 5f 41  | .:.. "PDriver_A|
00005760  62 6f 72 74 4a 6f 62 22  2c 70 66 25 3a d9 23 70  |bortJob",pf%:.#p|
00005770  66 25 3a c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |f%:.. "Hourglass|
00005780  5f 4f 66 66 22 3a f2 72  65 70 6f 72 74 28 2d 31  |_Off":.report(-1|
00005790  2c f6 24 29 3a e1 0d 21  ca 24 c8 99 20 22 50 44  |,.$):..!.$.. "PD|
000057a0  72 69 76 65 72 5f 50 61  67 65 53 69 7a 65 22 20  |river_PageSize" |
000057b0  b8 20 2c 2c 2c 6c 25 2c  62 25 0d 21 d4 16 21 72  |. ,,,l%,b%.!..!r|
000057c0  65 63 74 25 3d 30 3a 72  65 63 74 25 21 34 3d 30  |ect%=0:rect%!4=0|
000057d0  0d 21 de 1c 72 65 63 74  25 21 38 3d 37 35 30 3a  |.!..rect%!8=750:|
000057e0  72 65 63 74 25 21 31 32  3d 37 35 30 0d 21 e8 1c  |rect%!12=750.!..|
000057f0  21 74 72 61 6e 73 25 3d  31 3c 3c 31 36 3a 74 72  |!trans%=1<<16:tr|
00005800  61 6e 73 25 21 34 3d 30  0d 21 f2 1e 74 72 61 6e  |ans%!4=0.!..tran|
00005810  73 25 21 38 3d 30 3a 74  72 61 6e 73 25 21 31 32  |s%!8=0:trans%!12|
00005820  3d 31 3c 3c 31 36 0d 21  fc 2b 21 70 6c 6f 74 61  |=1<<16.!.+!plota|
00005830  74 25 3d 32 2a 6c 25 2b  37 32 30 30 30 3a 70 6c  |t%=2*l%+72000:pl|
00005840  6f 74 61 74 25 21 34 3d  62 25 2b 33 36 30 30 30  |otat%!4=b%+36000|
00005850  30 0d 22 06 37 c8 99 20  22 50 44 72 69 76 65 72  |0.".7.. "PDriver|
00005860  5f 47 69 76 65 52 65 63  74 61 6e 67 6c 65 22 2c  |_GiveRectangle",|
00005870  30 2c 72 65 63 74 25 2c  74 72 61 6e 73 25 2c 70  |0,rect%,trans%,p|
00005880  6c 6f 74 61 74 25 2c 30  0d 22 10 2e c8 99 20 22  |lotat%,0.".... "|
00005890  50 44 72 69 76 65 72 5f  44 72 61 77 50 61 67 65  |PDriver_DrawPage|
000058a0  22 2c 31 2c 62 6c 6f 63  6b 25 2c 30 2c 30 20 b8  |",1,block%,0,0 .|
000058b0  20 6d 6f 72 65 25 0d 22  1a 0c c8 95 20 6d 6f 72  | more%.".... mor|
000058c0  65 25 0d 22 24 32 20 c8  99 20 22 4f 53 5f 53 70  |e%."$2 .. "OS_Sp|
000058d0  72 69 74 65 4f 70 22 2c  26 31 32 32 2c 64 72 61  |riteOp",&122,dra|
000058e0  77 73 70 72 25 2c 22 70  6f 74 74 65 64 22 2c 30  |wspr%,"potted",0|
000058f0  2c 30 2c 30 0d 22 2e 2e  20 c8 99 20 22 50 44 72  |,0,0.".. .. "PDr|
00005900  69 76 65 72 5f 47 65 74  52 65 63 74 61 6e 67 6c  |iver_GetRectangl|
00005910  65 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 6d 6f 72  |e",,block% . mor|
00005920  65 25 0d 22 38 05 ce 0d  22 42 1b c8 99 20 22 50  |e%."8..."B... "P|
00005930  44 72 69 76 65 72 5f 45  6e 64 4a 6f 62 22 2c 70  |Driver_EndJob",p|
00005940  66 25 0d 22 4c 16 c8 99  20 22 48 6f 75 72 67 6c  |f%."L... "Hourgl|
00005950  61 73 73 5f 4f 66 66 22  0d 22 56 09 d9 23 70 66  |ass_Off"."V..#pf|
00005960  25 0d 22 60 05 e1 0d 22  6a 05 3a 0d 22 74 10 dd  |%."`..."j.:."t..|
00005970  20 f2 64 72 61 67 5f 69  6e 69 74 0d 22 7e 29 64  | .drag_init."~)d|
00005980  72 61 67 5f 73 74 61 72  74 25 3d a4 73 77 69 28  |rag_start%=.swi(|
00005990  22 44 72 61 67 41 53 70  72 69 74 65 5f 53 74 61  |"DragASprite_Sta|
000059a0  72 74 22 29 0d 22 88 27  64 72 61 67 5f 73 74 6f  |rt").".'drag_sto|
000059b0  70 25 3d a4 73 77 69 28  22 44 72 61 67 41 53 70  |p%=.swi("DragASp|
000059c0  72 69 74 65 5f 53 74 6f  70 22 29 0d 22 92 20 c8  |rite_Stop").". .|
000059d0  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 36 31 2c  |. "OS_Byte",161,|
000059e0  32 38 20 b8 20 2c 2c 63  6d 6f 73 0d 22 9c 2f e7  |28 . ,,cmos."./.|
000059f0  20 28 63 6d 6f 73 20 80  20 32 29 3d 30 20 64 72  | (cmos . 2)=0 dr|
00005a00  61 67 5f 73 74 61 72 74  25 3d 2d 31 3a 64 72 61  |ag_start%=-1:dra|
00005a10  67 5f 73 74 6f 70 25 3d  2d 31 0d 22 a6 05 e1 0d  |g_stop%=-1."....|
00005a20  22 b0 05 3a 0d 22 ba 10  dd 20 a4 73 77 69 28 73  |"..:."... .swi(s|
00005a30  77 69 24 29 0d 22 c4 31  c8 99 20 22 58 4f 53 5f  |wi$).".1.. "XOS_|
00005a40  53 57 49 4e 75 6d 62 65  72 46 72 6f 6d 53 74 72  |SWINumberFromStr|
00005a50  69 6e 67 22 2c 2c 73 77  69 24 20 b8 20 73 77 69  |ing",,swi$ . swi|
00005a60  3b 66 6c 61 67 0d 22 ce  17 e7 20 28 66 6c 61 67  |;flag."... (flag|
00005a70  20 80 20 31 29 20 73 77  69 3d 2d 31 0d 22 d8 08  | . 1) swi=-1."..|
00005a80  3d 73 77 69 0d 22 e2 05  3a 0d 22 ec 1a dd 20 a4  |=swi."..:."... .|
00005a90  6c 6f 6f 6b 75 70 5f 63  6f 6c 28 61 24 2c 6f 6c  |lookup_col(a$,ol|
00005aa0  64 25 29 0d 22 f6 0d ea  20 72 65 73 75 6c 74 25  |d%)."... result%|
00005ab0  0d 23 00 0b c8 8e 20 61  24 20 ca 0d 23 0a 20 20  |.#.... a$ ..#.  |
00005ac0  c9 20 22 67 72 65 79 22  2c 22 77 68 69 74 65 22  |. "grey","white"|
00005ad0  20 3a 72 65 73 75 6c 74  25 3d 37 0d 23 14 20 20  | :result%=7.#.  |
00005ae0  c9 20 22 6d 61 67 65 6e  74 61 22 20 20 20 20 20  |. "magenta"     |
00005af0  20 3a 72 65 73 75 6c 74  25 3d 36 0d 23 1e 20 20  | :result%=6.#.  |
00005b00  c9 20 22 63 79 61 6e 22  20 20 20 20 20 20 20 20  |. "cyan"        |
00005b10  20 3a 72 65 73 75 6c 74  25 3d 35 0d 23 28 20 20  | :result%=5.#(  |
00005b20  c9 20 22 62 6c 75 65 22  20 20 20 20 20 20 20 20  |. "blue"        |
00005b30  20 3a 72 65 73 75 6c 74  25 3d 34 0d 23 32 20 20  | :result%=4.#2  |
00005b40  c9 20 22 79 65 6c 6c 6f  77 22 20 20 20 20 20 20  |. "yellow"      |
00005b50  20 3a 72 65 73 75 6c 74  25 3d 33 0d 23 3c 20 20  | :result%=3.#<  |
00005b60  c9 20 22 72 65 64 22 20  20 20 20 20 20 20 20 20  |. "red"         |
00005b70  20 3a 72 65 73 75 6c 74  25 3d 32 0d 23 46 20 20  | :result%=2.#F  |
00005b80  c9 20 22 67 72 65 65 6e  22 20 20 20 20 20 20 20  |. "green"       |
00005b90  20 3a 72 65 73 75 6c 74  25 3d 31 0d 23 50 20 20  | :result%=1.#P  |
00005ba0  c9 20 22 63 6c 65 61 72  22 2c 22 62 6c 61 63 6b  |. "clear","black|
00005bb0  22 3a 72 65 73 75 6c 74  25 3d 30 0d 23 5a 13 20  |":result%=0.#Z. |
00005bc0  7f 20 72 65 73 75 6c 74  25 3d 6f 6c 64 25 0d 23  |. result%=old%.#|
00005bd0  64 05 cb 0d 23 6e 0c 3d  72 65 73 75 6c 74 25 0d  |d...#n.=result%.|
00005be0  23 78 05 3a 0d 23 82 17  dd 20 f2 73 65 74 5f 70  |#x.:.#... .set_p|
00005bf0  6f 69 6e 74 28 61 24 2c  61 25 29 0d 23 8c 0b ea  |oint(a$,a%).#...|
00005c00  20 70 25 2c 62 24 0d 23  96 0f 70 25 3d a7 61 24  | p%,b$.#..p%=.a$|
00005c10  2c 22 2c 22 29 0d 23 a0  14 62 24 3d c2 61 24 2c  |,",").#..b$=.a$,|
00005c20  a9 28 61 24 29 2d 70 25  29 0d 23 aa 1e 70 69 63  |.(a$)-p%).#..pic|
00005c30  74 75 72 65 25 28 65 6c  65 6d 65 6e 74 25 2c 30  |ture%(element%,0|
00005c40  29 3d a0 28 61 24 29 0d  23 b4 1e 70 69 63 74 75  |)=.(a$).#..pictu|
00005c50  72 65 25 28 65 6c 65 6d  65 6e 74 25 2c 31 29 3d  |re%(element%,1)=|
00005c60  a0 28 62 24 29 0d 23 be  1b 70 69 63 74 75 72 65  |.(b$).#..picture|
00005c70  25 28 65 6c 65 6d 65 6e  74 25 2c 32 29 3d 61 25  |%(element%,2)=a%|
00005c80  0d 23 c8 0f 65 6c 65 6d  65 6e 74 25 2b 3d 31 0d  |.#..element%+=1.|
00005c90  23 d2 05 e1 0d ff                                 |#.....|
00005c96

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