Home » Archimedes archive » Archimedes World » AW-1993-05.adf » AWMay93 » !AWMay93/Goodies/LogoV2/!LogoV2/!RunImage

!AWMay93/Goodies/LogoV2/!LogoV2/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1993-05.adf » AWMay93
Filename: !AWMay93/Goodies/LogoV2/!LogoV2/!RunImage
Read OK: ✔
File size: 876B bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > !RunImage
   20:
   30REM *********************************************************
   40REM * This version is totally free from advertising Graham! *
   50REM *********************************************************
   60:
   70REM **************************************************
   80REM *                --   LoGo    --                 *
   90REM *        Simple Turtle Graphics Generator        *
  100REM *       By Duncan F. McPherson Version 1.0       *
  110REM *              (c) 27th June 1992                *
  120REM * Updated 11/1/92 To work with RISC OS 3  By DFM *
  130REM **************************************************
  140:
  150ON ERROR VDU4:PRINTTAB(0,0);REPORT$;" at line ";ERL;"     ":END
  160PROCvariables:PROCcreatespritearea:PROClogovars
  170version=FNwimpinit(2.00,progname$)
  180$iconsprite="Siconbar":$icontext="Waiting"+CHR$0
  190iconbar=FNmakeicon(-1,0,-16,128,84,&1700310B,iconsprite,icontext)
  200icpnt=FNtemplate(tempname$,"<"+progname$+"$Dir>.Templates",icpnt,&1200,han%)
  210mainwin=FNcrwin(2,176,1238,980,&FF000002,1,iwd%,ihe%,3,icpnt,40):icpnt+=40
  220PROCsetwindowtitletext(mainwin,progname$)
  230PROCtemplatevars:PROCcreatesprite(spritename$,iwd%,ihe%,12)
  240PROCreadcoords:PROCupdatecoords:PROCreadcommandicons
  250status%=0:drawfl%=FALSE:PROCprogramfinished:PROCsetuphelp
  260PROCunselectable(program,10):PROCdrawicon
  270:
  280quit%=FALSE:end%=TRUE
  290ON ERROR PROCerror(progname$)
  300REPEAT
  310IF quit%<>TRUE PROCpoll(0)
  320UNTIL quit%
  330SYS "Wimp_CloseDown":END
  340:
  350REM -------------------------------------------
  360REM |   Wimp Polling related procedures       |
  370REM -------------------------------------------
  380:
  390DEFPROCpoll(mask%)
  400SYS "Wimp_Poll",mask%,q% TO reasoncode%
  410  CASE reasoncode% OF
  420  WHEN 0:IF end%=FALSE PROCrunprogram
  430  WHEN 1:PROCredraw_window_request
  440  WHEN 2:PROCopen_window_request(q%!0)
  450  WHEN 3:PROCclose_window_request(q%!0)
  460  WHEN 6:PROCmouse_click(q%!0,q%!4,q%!8,q%!12,q%!16)
  470  WHEN 7:PROCdragfinished
  480  WHEN 8:PROCkey_pressed(q%!0,q%!4,q%!24)
  490  WHEN 9:PROCmenu_selection(q%!0,q%!4,q%!8,q%!12)
  500  WHEN 17,18:PROCrecieve
  510  ENDCASE
  520ENDPROC
  530:
  540DEFPROCredraw_window_request
  550SYS "Wimp_RedrawWindow",,q% TO more%
  560WHILE more%
  570PROCredrawsprite(q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)
  580SYS "Wimp_GetRectangle",,q% TO more%
  590ENDWHILE
  600ENDPROC
  610:
  620DEFPROCopen_window_request(handle%)
  630IF handle%=mainwin PROCopenmainwindow ELSE SYS "Wimp_OpenWindow",,q%
  640ENDPROC
  650:
  660DEFPROCclose_window_request(handle%)
  670  CASE handle% OF
  680  WHEN mainwin,coords,command
  690  q%!0=mainwin:SYS "Wimp_CloseWindow",,q%
  700  q%!0=coords:SYS "Wimp_CloseWindow",,q%
  710  q%!0=command:SYS "Wimp_CloseWindow",,q%
  720  OTHERWISE:SYS "Wimp_CloseWindow",,q%
  730  ENDCASE
  740ENDPROC
  750:
  760DEFPROCmouse_click(x%,y%,b%,handle%,icon%)
  770  CASE handle% OF
  780  WHEN -2:CASE b% OF
  790          WHEN 2:PROCiconbarmenu
  800          WHEN 4:PROCfrontmainwin:PROCopentofront(command):IF end%=TRUE PROCputcaret(command,11)
  810          ENDCASE
  820  WHEN mainwin,command,coords:CASE b% OF
  830          WHEN 2:PROCmainmenu
  840          WHEN 4,1:PROCopentofront(command)
  850                   IF status%<2 PROCputcaret(command,11)
  860          ENDCASE
  870  WHEN save:CASE icon% OF
  880          WHEN 3:savhandle%=save:PROCsavedrag
  890          WHEN 0:savhandle%=save:PROCsaveok
  900          ENDCASE
  910  WHEN program:CASE icon% OF
  920          WHEN 3:savhandle%=program:PROCsavedrag
  930          WHEN 7:PROCdrawicon
  940          WHEN 10:IF status%=1 PROCstartprogram
  950                  IF status%=2 PROCpauseprogram
  960          WHEN 12:IF status%=2 PROCprogramfinished
  970                  IF status%=3 PROCunpauseprogram
  980          WHEN 23:savhandle%=-1:PROCsavedrag
  990          ENDCASE
 1000  WHEN help:PROChelp(icon%)
 1010  ENDCASE
 1020ENDPROC
 1030:
 1040DEFPROCkey_pressed(window%,icon%,key%)
 1050IF window%=save AND icon%=0 AND key%=13 savhandle%=save:PROCsaveok
 1060IF window%=command AND key%=13 THEN
 1070PROCscrollup:com$=FNreadicontext(command,11)
 1080PROCseticontext(command,11,""):PROCseticontext(command,5,"LoGo:")
 1090PROCputcaret(command,11):PROCcommandline(com$)
 1100ELSE
 1110SYS "Wimp_ProcessKey",key%
 1120ENDIF:ENDPROC
 1130:
 1140DEFPROCmenu_selection(opt1%,opt2%,opt3%,opt4%)
 1150  CASE menuhandle% OF
 1160  WHEN 0:CASE opt1% OF
 1170         WHEN 1:quit%=TRUE
 1180         ENDCASE
 1190  WHEN 1 :CASE opt1% OF
 1200          WHEN 0:PROCopentofront(program)
 1210          WHEN 2:PROCopentofront(help)
 1220          ENDCASE
 1230  ENDCASE
 1240SYS "Wimp_GetPointerInfo",,workblock%
 1250IF workblock%!8=1 SYS "Wimp_CreateMenu",,menutree%
 1260ENDPROC
 1270:
 1280DEFPROCrecieve
 1290IF q%!16=0 quit%=TRUE
 1300IF q%!16=2 PROCdatasave:ENDPROC
 1310IF q%!16=3 IF q%!40=&FFF PROCloadprogram(FNgetstring(q%+44))
 1320ENDPROC
 1330:
 1340REM --------------------------------------------------
 1350REM |      Program Specific Functions & Procedures   |
 1360REM --------------------------------------------------
 1370:
 1380DEFFNgetstring(address%)
 1390A$="":REPEAT:char%=?address%
 1400IF char%>31 A$=A$+CHR$(char%)
 1410address%+=1:UNTIL char%<32:=A$
 1420:
 1430DEFPROChelp(icon%)
 1440IF icon%<13 ENDPROC
 1450RESTORE 1600
 1460FOR number%=13 TO icon%:READ com$,syntax$,abbrev$,purp$
 1470NEXT:PROCseticontext(help,10,syntax$)
 1480PROCseticontext(help,11,abbrev$)
 1490PROCseticontext(help,12,purp$)
 1500ENDPROC
 1510:
 1520DEFPROCsetuphelp
 1530RESTORE 1600
 1540FOR icon%=13 TO 36
 1550READ com$,syntax$,abbrev$,purp$
 1560PROCseticontext(help,icon%,com$)
 1570NEXT
 1580ENDPROC
 1590:
 1600DATA "FORWARD","Forward <Distance>","F.","This command moves the turtle forward a secified distance"
 1610DATA "BACK","Back <Distance>","B.","This command moves the turtle backwards the specified distance"
 1620DATA "LEFT","Left <Angle>","L.","Turns the turtle anti-clockwise through <angle>  degrees"
 1630DATA "RIGHT","Right <Angle>","R.","Turns the turtle clockwise through <angle>  degrees"
 1640DATA "ANGLE","Angle <angle>","A.","Sets the turtle angle to <angle> degrees"
 1650DATA "PENCOLOUR","PenColour <colour>","PenC.","Sets the drawing colour to <colour"
 1660DATA "PENDOWN","PenDown","PenD.","Tells the turtle to draw lines behind it"
 1670DATA "PENUP","PenUp","PenU.","Stops the turtle drawing lines behind it"
 1680DATA "CLEAR","Clear","Cl.","Clears the logo window to a white background"
 1690DATA "HOME","Home","Ho.","Moves the turtle to the home position"
 1700DATA "SETHOME","SetHome","SetH.","Makes the current position the home position"
 1710DATA "RESTART","ReStart","ReS.","Resets the logo system completely"
 1720DATA "HELP","Help <command>","H.","Gives help on <command>"
 1730DATA "/","/","/","Allows comments to be inserted in textfile programs"
 1740DATA "RUN","Run","Run","Tells logo to start the current program"
 1750DATA "FINISH","Finish","Finish","Tells the turtle that the program is finished"
 1760DATA "","","",""
 1770DATA "","","",""
 1780DATA "[","[ <number>","[","Creates a loop to be repeated <number> times"
 1790DATA "]","]","]","Closes the current loop"
 1800DATA "TO","To <name>","To","Tells the turtle how to draw <name> when it is asked to"
 1810DATA "ENDTO","EndTo","EndTo","Finishes defining a TO subroutine"
 1820DATA "","","",""
 1830DATA "","","",""
 1840:
 1850DEFPROCiconbarmenu
 1860menutree%=menublock%:menuhandle%=0
 1870ptr%=FNcrmu("Info>info,Quit",progname$,menublock%)
 1880SYS "Wimp_CreateMenu",,menublock%,x%-64,178
 1890ENDPROC
 1900:
 1910DEFPROCmainmenu
 1920ptr%=menublock%:menuhandle%=1
 1930menu2=ptr%:ptr%=FNcrmu("Restart,Help>help","Misc",menu2)
 1940menu1=ptr%
 1950ptr%=FNcrmu("Program,-Save>save,Help,Info>info",progname$,menu1)
 1960SYS "Wimp_CreateMenu",,menu1,x%,y%
 1970menutree%=menu1:ENDPROC
 1980:
 1990DEFFNturtlemoved
 2000IF oldturtlex<>turtlexpos OR oldturtley<>turtleypos OR oldturtleangle<>turtleangle THEN =TRUE ELSE =FALSE
 2010:
 2020DEFPROCmoveturtle
 2030IF turtlexpos=oldturtlex AND turtleypos=oldturtley THEN
 2040PROCupdateturtle(oldturtlex-42,-ihe%+oldturtley-44,84,88)
 2050ELSE
 2060PROCupdateturtle(oldturtlex-42,-ihe%+oldturtley-44,84,88)
 2070PROCupdateturtle(turtlexpos-42,-ihe%+turtleypos-44,84,88)
 2080IF turtlexpos>oldturtlex x%=oldturtlex:w%=turtlexpos-oldturtlex ELSE x%=turtlexpos:w%=oldturtlex-turtlexpos
 2090IF turtleypos>oldturtley y%=oldturtley:h%=turtleypos-oldturtley ELSE y%=turtleypos:h%=oldturtley-turtleypos
 2100IF pen=TRUE PROCupdateturtle(x%-2,-ihe%+y%-4,w%+4,h%+8)
 2110ENDIF:ENDPROC
 2120:
 2130DEFPROCupdateturtle(x%,y%,w%,h%)
 2140workblock%!0=mainwin:workblock%!4=x%:workblock%!8=y%
 2150workblock%!12=x%+w%:workblock%!16=y%+h%
 2160SYS "Wimp_UpdateWindow",,workblock% TO more%
 2170WHILE more%
 2180PROCredrawsprite(workblock%!4,workblock%!8,workblock%!12,workblock%!16,workblock%!20,workblock%!24)
 2190SYS "Wimp_GetRectangle",,workblock% TO more%
 2200ENDWHILE:ENDPROC
 2210:
 2220DEFPROCupdatecoords
 2230$q%=STRING$(30,CHR$(0)):q%!0=coords
 2240$xicon=STR$(INT(turtlexpos)):q%!4=0:SYS "Wimp_SetIconState",,q%
 2250$yicon=STR$(INT(turtleypos)):q%!4=1:SYS "Wimp_SetIconState",,q%
 2260ang%=turtleangle MOD 360:IF ang%<0 ang%=360+ang%
 2270$angicon=STR$(ang%):q%!4=2:SYS "Wimp_SetIconState",,q%
 2280IF pen=TRUE $penicon="Down" ELSE $penicon="Up"
 2290q%!4=6:SYS "Wimp_SetIconState",,q%
 2300q%!4=7:$colicon=STR$(pencolour):SYS "Wimp_SetIconState",,q%
 2310PROCseticonbaccol(coords,7,pencolour)
 2320ENDPROC
 2330:
 2340DEFPROCreadcoords
 2350q%!0=coords:q%!4=0:SYS "Wimp_GetIconState",,q%:xicon=q%!28
 2360q%!0=coords:q%!4=1:SYS "Wimp_GetIconState",,q%:yicon=q%!28
 2370q%!0=coords:q%!4=2:SYS "Wimp_GetIconState",,q%:angicon=q%!28
 2380q%!0=coords:q%!4=6:SYS "Wimp_GetIconState",,q%:penicon=q%!28
 2390q%!0=coords:q%!4=7:SYS "Wimp_GetIconState",,q%:colicon=q%!28
 2400q%!0=program:q%!4=16:SYS "Wimp_GetIconState",,q%:posicon=q%!28
 2410ENDPROC
 2420:
 2430DEFPROCopenmainwindow
 2440workblock%!0=coords:SYS "Wimp_GetWindowState",,workblock%
 2450height%=workblock%!16-workblock%!8:workblock%!16=q%!8+height%
 2460workblock%!4=q%!4:workblock%!8=q%!8:workblock%!12=q%!12
 2470workblock%!16=q%!8+height%
 2480workblock%!28=q%!28:SYS "Wimp_OpenWindow",,workblock%
 2490q%!28=coords:SYS "Wimp_OpenWindow",,q%
 2500ENDPROC
 2510:
 2520DEFPROCfrontmainwin
 2530q%!0=mainwin:SYS "Wimp_GetWindowState",,q%:q%!28=-1
 2540q%!4=2:q%!8=176:q%!12=1238:q%!16=980
 2550PROCopenmainwindow:ENDPROC
 2560:
 2570DEFPROCtemplatevars
 2580info=han%!0:save=han%!4:coords=han%!8:command=han%!12:help=han%!16
 2590program=han%!20
 2600ENDPROC
 2610:
 2620DEFPROCvariables
 2630DIM q% &300,menublock% &200,workblock% &700,iconsblock% &1200
 2640DIM han% 80,coltrans% 16,scalefac% 16,spritearea% 81*1024
 2650progname$="LoGo":tempname$="info,save,coords,command,help,program"
 2660icpnt=iconsblock%:DIM menuitem$(30),commandicon%(12)
 2670spritename$="default":iwd%=1280:ihe%=1024
 2680comstring$="":savhandle%=0:status%=0
 2690DIM icontext 20,iconsprite 20
 2700ENDPROC
 2710:
 2720DEFPROClogovars
 2730homexpos=640:homeypos=512:homeangle=0
 2740turtlexpos=homexpos:turtleypos=homeypos:turtleangle=homeangle
 2750pen=TRUE:pencolour=13
 2760oldturtlex=turtlexpos:oldturtley=turtleypos:oldturtleangle=turtleangle
 2770to%=0:DIM tosub$(256),tosub%(256)
 2780DIM substack%(200),loopstack%(200):stack%=0:lstack%=0
 2790DIM logofile% 20*1024,commandline% 200
 2800DIM drawfile% 60*1024:REM a 60k drawfile maximum
 2810DIM cols% 80
 2820ENDPROC
 2830:
 2840DEFPROCredrawsprite(minx%,miny%,maxx%,maxy%,scx%,scy%)
 2850SYS "Wimp_ReadPixTrans",&100,spritearea%,spritename$,,,,scalefac%,coltrans%
 2860xo%=minx%-scx%:x%=xo%
 2870yo%=maxy%-scy%:y%=yo%-ihe%
 2880SYS "OS_SpriteOp",308,spritearea%,spritename$,x%,y%,0,scalefac%,coltrans%
 2890PROCdrawturtle(x%+turtlexpos,y%+turtleypos,11,40,turtleangle)
 2900ENDPROC
 2910:
 2920DEFPROCcreatespritearea
 2930spritearea%!0=81*1024:spritearea%!8=16
 2940SYS "OS_SpriteOp",265,spritearea%
 2950ENDPROC
 2960:
 2970DEFPROCinscommand(command$)
 2980PROClogocommand(command$)
 2990IF FNturtlemoved=TRUE PROCmoveturtle
 3000oldturtlex=turtlexpos:oldturtley=turtleypos:oldturtleangle=turtleangle
 3010PROCupdatecoords
 3020ENDPROC
 3030:
 3040DEFPROCcreatesprite(name$,width%,height%,mode%)
 3050SYS "OS_SpriteOp",271,spritearea%,name$,0,width%/2,height%/4,mode%
 3060ENDPROC
 3070:
 3080DEFPROCreadcommandicons
 3090workblock%!0=command:FOR icon%=0 TO 11
 3100workblock%!4=icon%:SYS "Wimp_GetIconState",,workblock%
 3110commandicon%(icon%)=workblock%!28:NEXT:ENDPROC
 3120:
 3130DEFPROCscrollup
 3140workblock%!0=command:workblock%!4=0:workblock%!8=0:workblock%!12=0
 3150FOR icon%=1 TO 5
 3160$(commandicon%(icon%-1))=$(commandicon%(icon%))
 3170workblock%!4=icon%-1:SYS "Wimp_SetIconState",,workblock%
 3180NEXT
 3190FOR icon%=7 TO 11
 3200$(commandicon%(icon%-1))=$(commandicon%(icon%))
 3210workblock%!4=icon%-1:SYS "Wimp_SetIconState",,workblock%
 3220NEXT
 3230ENDPROC
 3240:
 3250DEFPROClogoerror(message$)
 3260SYS "Hourglass_Smash"
 3270IF INKEY -113 ERROR 255,"You pressed ESCAPE"
 3280PROCseticontext(command,5,"Error"):PROCseticontext(command,11,message$)
 3290PROCscrollup
 3300PROCseticontext(command,11,STRING$(30,CHR$0))
 3310PROCseticontext(command,5,"LoGo:")
 3320SYS "Wimp_GetCaretPosition",,workblock%
 3330IF workblock%!0=command AND workblock%!4=11 SYS "Wimp_SetCaretPosition",-1:PROCputcaret(command,11)
 3340IF status%>1 status%=1:PROCprogramfinished
 3350IF INKEY -113 ERROR 255,"You pressed ESCAPE"
 3360endline%=TRUE
 3370ENDPROC
 3380:
 3390DEFPROCdrawturtle(x%,y%,col%,size%,angle%)
 3400SYS "Wimp_SetColour",col%
 3410MOVE x%+(size%*SIN(RAD(angle%))),y%+(size%*COS(RAD(angle%)))
 3420MOVE x%+(size%*SIN(RAD(angle%+135))),y%+(size%*COS(RAD(angle%+135)))
 3430PLOT 85,x%,y%
 3440MOVE x%+(size%*SIN(RAD(angle%-135))),y%+(size%*COS(RAD(angle%-135)))
 3450PLOT 85,x%+(size%*SIN(RAD(angle%))),y%+(size%*COS(RAD(angle%)))
 3460DRAW x%,y%
 3470ENDPROC
 3480:
 3490REM -------------------------------------
 3500REM |    Save & Load Procedures         |
 3510REM -------------------------------------
 3520:
 3530DEF FNsavename
 3540workblock%!0=savhandle%:workblock%!4=2
 3550IF savhandle%=-1 workblock%!0=program:workblock%!4=21
 3560SYS "Wimp_GetIconState",,workblock%
 3570A$="":A%=workblock%!28:REPEAT:A$=A$+CHR$?A%:A%=A%+1:UNTIL ?A%=0 OR ?A%=13
 3580=A$+CHR$0
 3590:
 3600DEFPROCsavename(A$)
 3610workblock%!0=savhandle%:workblock%!4=2
 3620IF savhandle%=-1 workblock%!0=program:workblock%!4=21
 3630SYS "Wimp_GetIconState",,workblock%
 3640$(workblock%!28)=A$
 3650ENDPROC
 3660:
 3670DEFPROCsavedrag
 3680q%!0=savhandle%:IF savhandle%=-1 q%!0=program
 3690SYS "Wimp_GetWindowState",,q%
 3700xo%=q%!4-q%!20:yo%=q%!16-q%!24
 3710IF savhandle%=-1 q%!4=23 ELSE q%!4=3
 3720SYS "Wimp_GetIconState",,q%
 3730q%!0=savhandle%:q%!4=5:q%!8=xo%+q%!8:q%!12=yo%+q%!12:q%!16=xo%+q%!16
 3740q%!20=yo%+q%!20:q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF
 3750SYS "Wimp_DragBox",,q%
 3760ENDPROC
 3770:
 3780DEFPROCdragfinished
 3790SYS "Wimp_GetPointerInfo",,q%
 3800q%!20=q%!12:q%!24=q%!16:q%!28=q%!0:q%!32=q%!4
 3810IF savhandle%=save q%!36=81*1024
 3820IF savhandle%=program q%!36=10
 3830IF savhandle%=-1 q%!36=10
 3840q%!0=256:q%!12=0:q%!16=1
 3850IF savhandle%=save q%!40=&FF9
 3860IF savhandle%=program q%!40=&AFF
 3870IF savhandle%=-1 q%!40=&FFF
 3880$(q%+44)=FNgetleafname(FNsavename)
 3890SYS "Wimp_SendMessage",17,q%,q%!20,q%!24
 3900ENDPROC
 3910:
 3920DEFFNgetleafname(A$)
 3930WHILE INSTR(A$,".")
 3940A$=MID$(A$,INSTR(A$,".")+1)
 3950ENDWHILE:=A$+CHR$0
 3960:
 3970DEFPROCdatasave
 3980fullname$="":a%=0:b%=q%?(44+a%)
 3990WHILE b%<>0
 4000fullname$=fullname$+CHR$(b%):a%=a%+1:b%=q%?(44+a%)
 4010ENDWHILE
 4020IF savhandle%=save PROCsavesprite(fullname$)
 4030IF savhandle%=program q%!36=0
 4040IF savhandle%=-1 q%!36=0
 4050IF q%!36<>-1 AND savhandle%<>-1 PROCseticontext(savhandle%,2,fullname$)
 4060IF q%!36<>-1 AND savhandle%=-1 PROCseticontext(program,21,fullname$)
 4070q%!12=q%!8:q%!16=3:q%!0=256:SYS "Wimp_SendMessage",18,q%,q%!20,q%!24
 4080IF savhandle%<>program AND savhandle%<>-1 SYS "Wimp_CreateMenu",,-1
 4090ENDPROC
 4100:
 4110DEFPROCsaveok
 4120A$=FNsavename
 4130IF INSTR(A$,".")=0 ERROR 1,"To save, drag the icon to a directory viewer"
 4140IF savhandle%=save PROCsavesprite(A$)
 4150SYS "Wimp_CreateMenu",,-1
 4160ENDPROC
 4170:
 4180DEFPROCsavesprite(A$)
 4190SYS "OS_SpriteOp",268,spritearea%,A$:ENDPROC
 4200:
 4210REM --------------------------------------------------
 4220REM |        Universal Functions & Procedure         |
 4230REM --------------------------------------------------
 4240:
 4250DEFPROCseticonbaccol(window%,icon%,col%)
 4260A$="&"+STR$~col%+"0000000"
 4270workblock%!0=window%:workblock%!4=icon%:workblock%!8=EVAL(A$)
 4280workblock%!12=&F0000000:SYS "Wimp_SetIconState",,workblock%
 4290ENDPROC
 4300:
 4310DEFPROCseticonforcol(window%,icon%,col%)
 4320A$="&0"+STR$~col%+"000000"
 4330workblock%!0=window%:workblock%!4=icon%:workblock%!8=EVAL(A$)
 4340workblock%!12=&0F000000:SYS "Wimp_SetIconState",,workblock%
 4350ENDPROC
 4360:
 4370DEFFNwindowopen(window%)
 4380workblock%!0=window%:SYS "Wimp_GetWindowState",,workblock%
 4390flags%=workblock%!32:open%=flags% AND 1<<16
 4400IF open%>0 =TRUE ELSE =FALSE
 4410:
 4420DEFPROCsetbuttontype(window%,icon%,type%)
 4430workblock%!0=window%:workblock%!4=icon%
 4440workblock%!8=EVAL("&0000"+STR$~type%+"000")
 4450workblock%!12=&0000F000:SYS "Wimp_SetIconState",,workblock%
 4460ENDPROC
 4470:
 4480DEFPROCunselectable(window%,icon%)
 4490PROCseticonforcol(window%,icon%,2)
 4500workblock%!0=window%:workblock%!4=icon%
 4510workblock%!8=&400000:workblock%!12=&400000
 4520SYS "Wimp_SetIconState",,workblock%:ENDPROC
 4530:
 4540DEFPROCeoricon(window%,icon%)
 4550q%!0=window%:q%!4=icon%:q%!8=1<<21:q%!12=1<<21
 4560SYS "Wimp_SetIconState",,q%:ENDPROC
 4570:
 4580DEFPROCunicon(window%,icon%)
 4590q%!0=window%:q%!4=icon%:q%!8=0:q%!12=1<<21
 4600SYS "Wimp_SetIconState",,q%:ENDPROC
 4610:
 4620DEFFNiconeor(window%,icon%)
 4630q%!0=window%:q%!4=icon%:SYS "Wimp_GetIconState",,q%
 4640IF (q%!24 AND 1<<21)>0 THEN =TRUE ELSE =FALSE
 4650:
 4660DEFPROCselectable(window%,icon%)
 4670PROCseticonforcol(window%,icon%,7)
 4680workblock%!0=window%:workblock%!4=icon%
 4690workblock%!8=0:workblock%!12=&400000
 4700SYS "Wimp_SetIconState",,workblock%:ENDPROC
 4710:
 4720DEFFNreadicontext(window%,icon%)
 4730workblock%!0=window%:workblock%!4=icon%
 4740SYS "Wimp_GetIconState",,workblock%
 4750=$(workblock%!28)
 4760:
 4770DEFPROCseticontext(window%,icon%,text$):LOCAL len%
 4780workblock%!0=window%:workblock%!4=icon%
 4790SYS "Wimp_GetIconState",,workblock%
 4800len%=workblock%!36
 4810$(workblock%!28)=LEFT$(text$,len%-1):workblock%!8=0:workblock%!12=0
 4820SYS "Wimp_SetIconState",,workblock%
 4830ENDPROC
 4840:
 4850DEFPROCopenwindow(handle%)
 4860workblock%!0=handle%:SYS "Wimp_GetWindowState",,workblock%
 4870SYS "Wimp_OpenWindow",,workblock%
 4880ENDPROC
 4890:
 4900DEFPROCsetwindowtitletext(handle%,text$):LOCAL len%
 4910workblock%!0=handle%:SYS "Wimp_GetWindowInfo",,workblock%
 4920len%=workblock%!84:text$=LEFT$(text$,len%-1)
 4930$(workblock%!76)=text$+CHR$(0):ENDPROC
 4940:
 4950DEFPROCopentofront(handle%)
 4960workblock%!0=handle%
 4970SYS "Wimp_GetWindowInfo",,workblock%:workblock%!28=-1
 4980SYS "Wimp_OpenWindow",,workblock%
 4990ENDPROC
 5000:
 5010DEFPROCputcaret(window%,icon%)
 5020SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,0
 5030ENDPROC
 5040:
 5050DEFPROCdisowncaret
 5060SYS "Wimp_SetCaretPosition",-1:ENDPROC
 5070:
 5080DEFFNmenu(text$,width%,height%,gap%)
 5090$P%=LEFT$(text$,11)+CHR$0:P%+=12
 5100[OPT 0
 5110EQUB 7:EQUB 2:EQUB 7:EQUB 0    ;Four definable menu colours
 5120EQUD width%*16                 ;Width of menu (OS Units)
 5130EQUD height%                   ;Height of one item (OS Units)
 5140EQUD gap%                      ;Vertical gap between items (OS Units)
 5150]:=0
 5160:
 5170DEFFNmenuitem(text$,flags%,submenu%,icon%,last%)
 5180IF last%=TRUE flags%=flags% OR &80
 5190[OPT 0
 5200EQUD flags%                    ;Menu flags
 5210EQUD submenu%                  ;Submenu pointer (-1 if none)
 5220EQUD icon%                     ;Menu item icon flags (as for a normal icon)
 5230]:$P%=LEFT$(text$,11)+CHR$0:P%+=12:=0
 5240:
 5250DEFFNpar(sep$)
 5260i1%=i%+1:i%=INSTR(menustring$+sep$,sep$,i1%)
 5270=MID$(menustring$,i1%,i%-i1%)
 5280:
 5290DEFFNcrmu(menustring$,mutitle$,address%)
 5300number%=-1:i%=0:width%=LEN(mutitle$)-2:P%=address%
 5310REPEAT:number%+=1:menuitem$(number%)=FNpar(",")
 5320UNTIL menuitem$(number%)="":number%-=1
 5330[OPT 0:FNmenu(mutitle$,width%,40,0):]
 5340FOR menuitem%=0 TO number%
 5350itemflags%=FNmenuitemflags(menuitem%)
 5360iconflags%=&07000021
 5370submenu%=FNsubmenupointer(menuitem%)
 5380IF menuitem%=number% lastopt%=TRUE ELSE lastopt%=FALSE
 5390IF LEN(menuitem$(menuitem%))>width% width%=LEN(menuitem$(menuitem%))
 5400[OPT 0
 5410FNmenuitem(menuitem$(menuitem%),itemflags%,submenu%,iconflags%,lastopt%)
 5420]:NEXT:width%+=1:addr%=P%:P%=address%:[OPT 0:FNmenu(mutitle$,width%,40,0)
 5430]:=addr%
 5440:
 5450DEFFNsubmenupointer(A%)
 5460A$=menuitem$(A%):i%=INSTR(A$,">"):IF i%=0 =-1
 5470B$=RIGHT$(A$,LEN(A$)-i%):menuitem$(A%)=LEFT$(A$,i%-1)
 5480IF LEFT$(B$,1)=">" THEN =EVAL(RIGHT$(B$,LEN(B$)-1))
 5490=EVAL(B$)
 5500:
 5510DEFFNmenuitemflags(A%)
 5520A$=menuitem$(A%):flags%=0
 5530IF INSTR(A$,"�")>0 A$=FNoutchar(A$,"�"):flags%+=1
 5540IF INSTR(A$,"-")>0 A$=FNoutchar(A$,"-"):flags%+=2
 5550menuitem$(A%)=A$:=flags%
 5560:
 5570DEFFNoutchar(C$,D$)
 5580i%=INSTR(C$,D$):=LEFT$(C$,i%-1)+RIGHT$(C$,LEN(C$)-i%)
 5590:
 5600DEFFNtemplate(temp$,filename$,addr%,size%,handleaddr%):LOCAL number%,i%
 5610SYS "Wimp_OpenTemplate",,filename$
 5620number%=-1:i%=0:size%+=addr%
 5630REPEAT:number%+=1:name$=FNpartemp(","):IF name$<>"" THEN
 5640SYS "Wimp_LoadTemplate",,workblock%,addr%,size%,-1,name$ TO ,,addr%
 5650SYS "Wimp_CreateWindow",,workblock% TO !(handleaddr%+(4*number%))
 5660ENDIF:UNTIL name$="":SYS "Wimp_CloseTemplate":=addr%
 5670:
 5680DEFFNpartemp(sep$)
 5690i1%=i%+1:i%=INSTR(temp$+sep$,sep$,i1%)
 5700=MID$(temp$,i1%,i%-i1%)
 5710:
 5720DEFFNmakeicon(window%,minx%,miny%,maxx%,maxy%,flags%,sprite%,text%)
 5730workblock%!0=window%:workblock%!4=minx%:workblock%!8=miny%
 5740workblock%!12=maxx%:workblock%!16=maxy%
 5750workblock%!20=flags%:workblock%!24=text%:workblock%!28=sprite%
 5760workblock%!32=20
 5770SYS "Wimp_CreateIcon",,workblock% TO iconhandle%:=iconhandle%
 5780:
 5790DEFPROCerror(name$)
 5800IF ERR=26 PROClogoerror("Bad logo parameter"):ENDPROC
 5810workblock%!0=ERR:LOCAL clicked_on%
 5820$(workblock%+4)=REPORT$+" (internal error code "+STR$(ERL)+")"+CHR$(0)
 5830IF ERR=255 $(workblock%+4)=REPORT$
 5840SYS "Wimp_ReportError",workblock%,3,name$ TO ,clicked_on%
 5850IF clicked_on%=2 quit%=TRUE
 5860ENDPROC
 5870:
 5880DEFFNwimpinit(knownversion,taskname$)
 5890SYS "Wimp_Initialise",100*knownversion,&4B534154,taskname$ TO version
 5900=version
 5910:
 5920DEFFNcrwin(x%,y%,w%,h%,flags%,bcol%,xe%,ye%,waf%,title%,length%)
 5930$workblock%=STRING$(92,CHR$(0)):REM Fill the window block with zeros
 5940workblock%!0=x%:workblock%!4=y%:workblock%!8=x%+w%:workblock%!12=y%+h%
 5950workblock%!24=-1:workblock%!28=flags%
 5960workblock%?32=7:workblock%?33=2:workblock%?34=7:workblock%?35=bcol%
 5970workblock%?36=3:workblock%?37=1:workblock%?38=12
 5980workblock%!44=-ye%:workblock%!48=xe%
 5990workblock%!56=&13D:workblock%!60=waf%<<12
 6000workblock%!72=title%:workblock%!76=-1:workblock%!80=length%
 6010SYS "Wimp_CreateWindow",,workblock% TO handle%
 6020=handle%
 6030:
 6040DEFPROCinfo(name$,purpose$,author$,version$)
 6050PROCseticontext(info,12,name$)
 6060PROCseticontext(info,13,purpose$)
 6070PROCseticontext(info,14,author$)
 6080PROCseticontext(info,15,version$)
 6090ENDPROC
 6100:
 6110REM --------------------------------------------------
 6120REM |      Logo Interpreter Procedures               |
 6130REM --------------------------------------------------
 6140:
 6150DEFPROClogocommand(command$)
 6160command$=FNnospcs(command$)
 6170command$=FNletcase(command$)
 6180command$=FNexpandcommand(command$)
 6190IF LEFT$(command$,7)="FORWARD"   PROCforward(EVAL(RIGHT$(command$,LEN(command$)-7)))
 6200IF LEFT$(command$,4)="BACK"      PROCback(EVAL(RIGHT$(command$,LEN(command$)-4)))
 6210IF LEFT$(command$,4)="LEFT"      PROCleft(EVAL(RIGHT$(command$,LEN(command$)-4)))
 6220IF LEFT$(command$,5)="RIGHT"     PROCright(EVAL(RIGHT$(command$,LEN(command$)-5)))
 6230IF LEFT$(command$,5)="ANGLE"     PROCangle(EVAL(RIGHT$(command$,LEN(command$)-5)))
 6240IF LEFT$(command$,4)="HELP"      PROChelpcom(RIGHT$(command$,LEN(command$)-4))
 6250IF LEFT$(command$,4)="HOME"      PROChome
 6260IF LEFT$(command$,5)="CLEAR"     PROCclear
 6270IF LEFT$(command$,5)="PENUP"     PROCpenup
 6280IF LEFT$(command$,7)="PENDOWN"   PROCpendown
 6290IF LEFT$(command$,9)="PENCOLOUR" PROCpencolour(EVAL(RIGHT$(command$,LEN(command$)-9)))
 6300IF LEFT$(command$,3)="RUN"       AND status%=1:PROCstartprogram
 6310IF LEFT$(command$,7)="RESTART"   PROCrestart
 6320IF LEFT$(command$,7)="SETHOME"   PROCsethome
 6330ENDPROC
 6340:
 6350DEFPROCloadprogram(filename$)
 6360SYS "OS_File",12,filename$,logofile%,0 TO ,,,,filesize%
 6370PROCtosearch(logofile%,filesize%)
 6380PROCopentofront(program)
 6390PROCseticontext(program,13,STR$(filesize%))
 6400PROCseticontext(program,16,"0%")
 6410PROCseticontext(program,8,filename$)
 6420PROCseticontext(program,10,"Run"):PROCseticontext(program,12,"Abort")
 6430PROCselectable(program,10):PROCunselectable(program,12)
 6440PROCseticontext(command,5,"Info:"):PROCseticontext(command,11,"Program loaded. "+STR$(to%)+" routines. Type RUN to begin")
 6450PROCscrollup
 6460PROCseticontext(command,5,"LoGo:"):PROCseticontext(command,11,"")
 6470status%=1:ENDPROC
 6480:
 6490DEFPROCstartprogram
 6500end%=FALSE:PROCsetbuttontype(command,11,0):PROCdisowncaret
 6510point%=logofile%:status%=2
 6520PROCseticontext(program,16,"0%")
 6530PROCselectable(program,10):PROCselectable(program,12)
 6540PROCseticontext(program,10,"Pause"):PROCseticontext(program,12,"Abort")
 6550PROCunselectable(program,2):PROCunselectable(program,21)
 6560PROCunselectable(program,3):PROCunselectable(program,22)
 6570PROCunselectable(program,7):PROCunselectable(program,23)
 6580PROCseticontext(-2,iconbar,"Running")
 6590PROCsetupdrawfile
 6600ENDPROC
 6610:
 6620DEFPROCrunprogram
 6630perscent%=(((point%-logofile%)/filesize%)*100)
 6640$posicon=STR$(perscent%)+"%":q%!0=program:q%!4=16:q%!8=0:q%!12=0
 6650SYS "Wimp_SetIconState",,q%
 6660A$=FNcomstring(point%):point%=FNgetcommand(point%)
 6670Error$="":comnum%=FNprogcom(A$)
 6680IF comnum%<15 AND Error$="" PROCinscommand(A$)
 6690IF Error$<>""               PROClogoerror(Error$):end%=TRUE
 6700IF point%>=logofile%+filesize%                    end%=TRUE
 6710IF end%=TRUE                PROCprogramfinished
 6720ENDPROC
 6730:
 6740DEFPROCprogramfinished
 6750end%=TRUE:status%=1
 6760PROCsetbuttontype(command,11,15)
 6770IF FNwindowopen(command) PROCputcaret(command,11)
 6780PROCselectable(program,2):PROCselectable(program,21)
 6790PROCselectable(program,3):PROCselectable(program,22)
 6800PROCselectable(program,7):PROCselectable(program,23)
 6810PROCselectable(program,10):PROCunselectable(program,12)
 6820PROCseticontext(program,10,"RUN"):PROCseticontext(program,12,"Abort")
 6830PROCseticontext(-2,iconbar,"Waiting")
 6840PROCsavedrawfile
 6850IF FNiconeor(program,7) THEN
 6860PROCselectable(program,3):PROCselectable(program,2)
 6870ELSE
 6880PROCunselectable(program,3):PROCunselectable(program,2)
 6890ENDIF
 6900ENDPROC
 6910:
 6920DEFPROCpauseprogram
 6930IF point%=logofile% ENDPROC
 6940end%=TRUE:status%=3:PROCseticontext(program,12,"Restart")
 6950PROCunselectable(program,10):PROCseticontext(-2,iconbar," Paused "):ENDPROC
 6960:
 6970DEFPROCunpauseprogram
 6980end%=FALSE:status%=2:PROCseticontext(program,12,"Abort")
 6990PROCselectable(program,10):PROCseticontext(-2,iconbar,"Running"):ENDPROC
 7000:
 7010REM ----------------------------------------------------
 7020REM |    Procedures for dealing with typed commands    |
 7030REM ----------------------------------------------------
 7040:
 7050DEFPROCcommandline(A$)
 7060IF status%<>1 OR end%=FALSE ENDPROC
 7070lstack%=0:stack%=0:endline%=FALSE
 7080$commandline%=A$+CHR$(0):commandlen%=LEN(A$):point%=commandline%
 7090SYS "Hourglass_On"
 7100REPEAT:A$=FNcomstring(point%):point%=FNgetcommand(point%)
 7110Error$="":comnum%=FNprogcom(A$)
 7120IF INKEY -113 ERROR 255,"You pressed ESCAPE"
 7130IF comnum%<15 AND Error$="" PROCinscommand(A$)
 7140IF Error$<>""               PROClogoerror(Error$):endline%=TRUE
 7150IF point%>=commandline%+commandlen%               endline%=TRUE
 7160IF INKEY -113 ERROR 255,"You pressed ESCAPE"
 7170UNTIL endline%=TRUE OR end%=FALSE
 7180SYS "Hourglass_Off":ENDPROC
 7190:
 7200DEFFNgetcommand(addr%)
 7210REPEAT:A%=?addr%:addr%+=1:UNTIL A%<32 OR A%=127 OR A%=ASC(":"):=addr%
 7220:
 7230DEFFNcomstring(addr%)
 7240A$="":REPEAT
 7250A%=?addr%:addr%+=1:IF A%>31 AND A%<>127 AND A%<> ASC(":") A$+=CHR$(A%)
 7260UNTIL A%<32 OR A%=127 OR A%=ASC(":"):=A$
 7270:
 7280DEF FNnormcmnd(A$)
 7290n%=1:N%=0:RESTORE 7350:REPEAT
 7300READ F$,C%:IF FNabbrev(A$,F$,C%)>0 THEN N%=n%
 7310n%+=1:UNTIL F$="EEND"
 7320IF N%=n%-1 N%=0
 7330=N%
 7340:
 7350DATA FORWARD,1,BACK,1,LEFT,1,RIGHT,1
 7360DATA ANGLE,1,CLEAR,2,HOME,2
 7370DATA PENUP,4,PENDOWN,4,PENCOLOUR,4
 7380DATA SETHOME,4,RESTART,3,HELP,1
 7390DATA RUN,2,TO,0,ENDTO,0,[,0,],0
 7400DATA FINISH,3,/,0,EEND,0
 7410:
 7420DEFFNexpandcommand(A$)
 7430N%=FNnormcmnd(A$):IF N%=0 =A$
 7440RESTORE 7350:FOR X%=1 TO N%
 7450READ com$,abb%:NEXT:abbre%=FNabbrev(A$,com$,abb%)
 7460=com$+RIGHT$(A$,LEN(A$)-abbre%)
 7470:
 7480DEF FNletcase(A$):LOCAL n%,B$,A%,C$
 7490IF A$="" =""
 7500FOR n%=1 TO LEN(A$)
 7510A%=ASC(MID$(A$,n%,1))
 7520IF A%>96 AND A%<123 THEN A%=A%-32
 7530B$=LEFT$(A$,n%-1):C$=RIGHT$(A$,LEN(A$)-n%):A$=B$+CHR$A%+C$
 7540NEXT:=A$
 7550:
 7560DEF FNnospcs(A$)
 7570L%=1:R%=LEN(A$):N%=-1:REPEAT:N%=N%+1
 7580IF MID$(A$,N%,1)=" " L%=N%+1
 7590UNTIL N%=LEN(A$) OR MID$(A$,N%+1,1)<>" "
 7600N%=LEN(A$)+1:REPEAT:N%=N%-1
 7610IF MID$(A$,N%,1)=" " R%=N%-L%
 7620UNTIL MID$(A$,N%,1)<>" "
 7630=MID$(A$,L%,R%)
 7640:
 7650DEF FNalpha(A$)
 7660N%=FALSE:FOR n%=1 TO LEN(A$)
 7670IF ASC(MID$(A$,n%,1))<65 OR ASC(MID$(A$,n%,1))>90 N%=TRUE
 7680NEXT:=N%
 7690:
 7700DEFFNabbrev(C$,B$,C%)
 7710IF LEFT$(C$,LEN(B$))=B$ =LEN(B$)
 7720E%=0:FOR D%=C% TO (LEN(B$)-1)
 7730IF LEFT$(C$,D%+1)=(LEFT$(B$,D%)+".") THEN E%=D%+1
 7740NEXT:=E%
 7750:
 7760DEF FNparams(A%,A$):LOCAL n%,B$,C%
 7770RESTORE 7350:FOR n%=1 TO A%
 7780READ B$,C%:NEXT:A%=FNabbrev(A$,B$,C%)
 7790A$=RIGHT$(A$,LEN(A$)-A%):=FNnospcs(A$)
 7800:
 7810DEFFNprogcom(com$)
 7820com$=FNnospcs(com$):com$=FNletcase(com$):com$=FNexpandcommand(com$)
 7830comnum%=FNnormcmnd(com$):subnum%=FNsubno(com$)
 7840B$=FNparams(comnum%,com$)
 7850IF com$=""                                     =255
 7860IF subnum%>-1 AND comnum%=0 PROCtosub(subnum%):=255
 7870IF comnum%=0       Error$="No such subroutine":=255
 7880IF comnum%<15                                  =comnum%
 7890ON (comnum%-14) PROCcomment,PROCendto,PROCnewloop(EVAL(B$)),PROCendloop,PROCprogramfinished,PROCcomment:=comnum%
 7900:
 7910REM -------------------------------------
 7920REM |  Loop & To Subroutine Handlers    |
 7930REM -------------------------------------
 7940:
 7950DEFPROCnewloop(number%)
 7960loopstack%(lstack%)=point%:loopstack%(lstack%+1)=number%:lstack%+=2
 7970ENDPROC
 7980:
 7990DEFPROCendloop
 8000number%=loopstack%(lstack%-1)
 8010IF number%-1>0 THEN
 8020point%=loopstack%(lstack%-2):loopstack%(lstack%-1)-=1
 8030ELSE
 8040lstack%-=2
 8050PROCclosepath
 8060ENDIF:ENDPROC
 8070:
 8080DEFPROCtosub(subnum%)
 8090substack%(stack%)=point%:stack%+=1:point%=tosub%(subnum%)
 8100ENDPROC
 8110:
 8120DEFFNsubno(name$)
 8130number%=-1:FOR num%=0 TO to%-1:IF tosub$(num%)=name$ AND name$<>"" number%=num%
 8140NEXT:=number%
 8150:
 8160DEFPROCtosearch(address%,size%)
 8170FOR X%=0 TO 99:tosub$(X%)="":NEXT
 8180SYS "Hourglass_On"
 8190point%=address%:stack%=0:lstack%=0:to%=0
 8200REPEAT:A$=FNcomstring(point%):point%=FNgetcommand(point%)
 8210A$=FNnospcs(A$):A$=FNletcase(A$)
 8220IF LEFT$(A$,2)="TO" PROCto(FNparams(15,A$))
 8230UNTIL point%>=address%+size%
 8240SYS "Hourglass_Off"
 8250ENDPROC
 8260:
 8270DEFPROCto(B$)
 8280IF to%=100 Error$="Too many TO subroutines defined":ENDPROC
 8290IF FNalpha(B$) ENDPROC
 8300IF FNsubno(B$)>-1 THEN no%=FNsubno(B$) ELSE no%=to%:to%+=1
 8310tosub$(no%)=B$:tosub%(no%)=point%:ENDPROC
 8320:
 8330DEFPROCendto:to$=""
 8340IF stack%=0 Error$="Not in a TO subroutine":ENDPROC
 8350stack%-=1:point%=substack%(stack%):ENDPROC
 8360:
 8370DEFPROCcomment:ENDPROC
 8380:
 8390REM --------------------------------------------------
 8400REM |        Turtle Movement Procedures              |
 8410REM --------------------------------------------------
 8420:
 8430DEFPROCforward(distance)
 8440turtlexpos+=distance*SIN(RAD(turtleangle))
 8450turtleypos+=distance*COS(RAD(turtleangle))
 8460PROCmessagecode(1,distance)
 8470IF pen=FALSE ENDPROC
 8480SYS "OS_SpriteOp",316,spritearea%,spritename$ TO R0,R1,R2,R3
 8490GCOL 0,pencolour:MOVE oldturtlex,oldturtley:DRAW turtlexpos,turtleypos
 8500SYS "OS_SpriteOp",R0,R1,R2,R3
 8510PROCdrawline(oldturtlex,oldturtley,turtlexpos,turtleypos,pencolour)
 8520ENDPROC
 8530:
 8540DEFPROCback(distance)
 8550turtlexpos-=distance*SIN(RAD(turtleangle))
 8560turtleypos-=distance*COS(RAD(turtleangle))
 8570PROCmessagecode(2,distance)
 8580IF pen=FALSE ENDPROC
 8590SYS "OS_SpriteOp",316,spritearea%,spritename$ TO R0,R1,R2,R3
 8600GCOL 0,pencolour:MOVE oldturtlex,oldturtley:DRAW turtlexpos,turtleypos
 8610SYS "OS_SpriteOp",R0,R1,R2,R3
 8620PROCdrawline(oldturtlex,oldturtley,turtlexpos,turtleypos,pencolour)
 8630ENDPROC
 8640:
 8650DEFPROCleft(degrees)
 8660PROCmessagecode(3,degrees)
 8670turtleangle-=degrees
 8680ENDPROC
 8690:
 8700DEFPROCright(degrees)
 8710PROCmessagecode(4,degrees)
 8720turtleangle+=degrees
 8730ENDPROC
 8740:
 8750DEFPROCangle(angle)
 8760ang%=turtleangle MOD 360:IF ang%<0 ang%=360+ang%
 8770angl%=angle MOD 360:IF ang%<0 ang%=360+ang%
 8780IF ang%>angl% left%=ang%-angl%:right%=360-left% ELSE right%=ang%-angl%:left%=360-right%
 8790IF right%<0 left%=360+right%:right%=360-left%
 8800IF left%<0 right%=360+right%:left%=360-right%
 8810IF right%<left% PROCmessagecode(4,right%) ELSE PROCmessagecode(3,left%)
 8820turtleangle=angle
 8830ENDPROC
 8840:
 8850DEFPROCpenup
 8860PROCmessagecode(5,0)
 8870pen=FALSE:PROCclosepath
 8880ENDPROC
 8890:
 8900DEFPROCpendown
 8910PROCmessagecode(6,0)
 8920pen=TRUE
 8930ENDPROC
 8940:
 8950DEFPROCpencolour(colour)
 8960PROCmessagecode(7,colour)
 8970pencolour=colour:PROCclosepath
 8980ENDPROC
 8990:
 9000DEFPROCclear
 9010SYS "OS_SpriteOp",316,spritearea%,spritename$ TO R0,R1,R2,R3
 9020GCOL 0,0:MOVE 0,0:PLOT 97,iwd%,ihe%
 9030SYS "OS_SpriteOp",R0,R1,R2,R3
 9040PROCupdateturtle(0,-ihe%,iwd%,ihe%)
 9050ENDPROC
 9060:
 9070DEFPROCmoveto(xcoord,ycoord)
 9080opposite=(turtlexpos-xcoord):adjacent=(turtleypos-ycoord)
 9090IF adjacent=0 angle=0 ELSE angle=DEG(ATN(opposite/adjacent))
 9100IF opposite<0 AND adjacent<0 angle-=180
 9110IF opposite>0 AND adjacent<0 angle+=180
 9120distance=SQR((opposite*opposite)+(adjacent*adjacent))
 9130PROCangle(angle):PROCback(distance)
 9140ENDPROC
 9150:
 9160DEFPROChome
 9170IF pen=TRUE PROCpenup:T%=1 ELSE T%=0
 9180PROCpenup:PROCmoveto(homexpos,homeypos):PROCangle(homeangle)
 9190IF T%=1 PROCpendown
 9200ENDPROC
 9210:
 9220DEFPROCsethome
 9230ang%=turtleangle MOD 360:IF ang%<0 ang%=360+ang%
 9240homexpos=turtlexpos:homeypos=turtleypos:homeangle=turtleangle
 9250PROCseticontext(command,5,"Info:")
 9260PROCseticontext(command,11,"Home set to "+STR$(INT(homexpos))+","+STR$(INT(homeypos))+","+STR$(ang%)+"�.")
 9270PROCscrollup:PROCseticontext(command,5,"LoGo:"):PROCseticontext(command,11,"")
 9280ENDPROC
 9290:
 9300DEFPROCrestart
 9310homexpos=640:homeypos=512:homeangle=0
 9320PROChome:PROCclear
 9330PROCseticontext(command,5,"Info:")
 9340PROCseticontext(command,11,"Logo reset at "+TIME$):PROCscrollup
 9350PROCseticontext(command,5,"LoGo:"):PROCseticontext(command,11,"")
 9360ENDPROC
 9370:
 9380DEFPROChelpcom(com$)
 9390com$=FNnospcs(com$):com$=FNletcase(com$)
 9400com$=FNexpandcommand(com$)
 9410IF com$="" com$="HELP"
 9420RESTORE 1600:N%=0:FOR X%=1 TO 24
 9430READ A$,B$,C$,D$:IF A$=com$ AND A$<>"" syntax$=B$:abbrev$=C$:purp$=D$:N%=X%
 9440NEXT:IF N%=0 syntax$="":abbrev$="":purp$=""
 9450PROCseticontext(command,5,"")
 9460PROCseticontext(command,11,"Syntax:"+syntax$):PROCscrollup
 9470PROCseticontext(command,5,"")
 9480PROCseticontext(command,11,purp$):PROCscrollup
 9490PROCseticontext(command,5,"LoGo:"):PROCseticontext(command,11,"")
 9500ENDPROC
 9510:
 9520REM --------------------------------------
 9530REM |       Message passing routines     |
 9540REM --------------------------------------
 9550:
 9560DEFPROCmessagecode(code%,parameter)
 9570q%!0=100:q%!4=0:q%!8=0:q%!12=0:q%!16=&4C4F474F
 9580q%!20=code%:$(q%+24)=STR$(parameter)+CHR$(0)
 9590SYS "Wimp_SendMessage",17,q%,0
 9600ENDPROC
 9610:
 9620REM --------------------------------------
 9630REM |    Drawfile generation routine     |
 9640REM --------------------------------------
 9650:
 9660DEFPROCsetupdrawfile
 9670drpoint%=drawfile%
 9680$drpoint%="Draw":drpoint%+=4
 9690!drpoint%=201:drpoint%+=4:REM        Major version stamp
 9700!drpoint%=0:drpoint%+=4:REM          Minor version stamp
 9710$drpoint%=LEFT$("Logo"+STRING$(12," "),12):drpoint%+=12
 9720drpoint%!0=FNxdraw(0):drpoint%!4=FNydraw(0)
 9730drpoint%!8=FNxdraw(1280):drpoint%!12=FNydraw(1024):drpoint%+=16
 9740path%=FALSE:drawfl%=FNiconeor(program,7)
 9750SYS "Wimp_ReadPalette",,cols%
 9760ENDPROC
 9770:
 9780DEFFNxdraw(x):=INT(x*256)
 9790DEFFNydraw(y):=INT(y*256)
 9800DEFFNcdraw(c%):c%=c% MOD 16
 9810IF c%>=0 THEN =!(cols%+c%*4) AND &FFFFFF00 ELSE =-1
 9820:
 9830DEFPROCopenpath(x1,y1,x2,y2,col%)
 9840IF path%=TRUE PROCclosepath
 9850x1%=FNxdraw(x1):y1%=FNydraw(y1):x2%=FNxdraw(x2):y2%=FNydraw(y2)
 9860objaddr%=drpoint%:path%=TRUE
 9870bx%=x1%:by%=y1%:bx1%=x2%:by1%=y2%:IF bx%>bx1% SWAP bx%,bx1%
 9880IF by%>by1% SWAP by%,by1%
 9890drpoint%=FNobjecthead(drpoint%,2,0,bx%,by%,bx1%,by1%)
 9900!drpoint%=-1:drpoint%+=4:REM               Fill colour
 9910!drpoint%=FNcdraw(col%):drpoint%+=4:REM    Line colour
 9920!drpoint%=0:drpoint%+=4:REM                Line width (thin=0)
 9930!drpoint%=&42:drpoint%+=4:REM              Draw path object flags
 9940drpoint%=FNtag(drpoint%,2,x1%,y1%)
 9950drpoint%=FNtag(drpoint%,8,x2%,y2%)
 9960ENDPROC
 9970:
 9980DEFFNtag(addr%,tag%,x%,y%)
 9990!addr%=tag%:addr%+=4:REM                   Tag identifier
10000IF tag%=0 =addr%
10010!addr%=x%:addr%+=4:REM                     X draw coord
10020!addr%=y%:addr%+=4:REM                     Y draw coord
10030=addr%
10040:
10050DEFFNobjecthead(addr%,type%,size%,x1%,y1%,x2%,y2%)
10060!addr%=type%:addr%+=4:REM                  Object type
10070!addr%=size%:addr%+=4:REM                  Object size (bytes)
10080!addr%=x1%:addr%+=4:REM                    X low bounding box coord
10090!addr%=y1%:addr%+=4:REM                    Y low bounding box coord
10100!addr%=x2%:addr%+=4:REM                    X high bounding box coord
10110!addr%=y2%:addr%+=4:REM                    Y high bounding box coord
10120=addr%
10130:
10140DEFPROCsavedrawfile
10150IF drawfl%=FALSE ENDPROC
10160PROCclosepath
10170filename$=FNreadicontext(program,2)
10180SYS "OS_File",10,filename$,&AFF,,drawfile%,drpoint%
10190ENDPROC
10200:
10210DEFPROCaddtopath(x1,y1)
10220drpoint%=FNtag(drpoint%,8,FNxdraw(x1),FNydraw(y1))
10230bx%=FNxdraw(x1):by%=FNydraw(y1)
10240IF bx%<objaddr%!8 objaddr%!8=bx%
10250IF bx%>objaddr%!16 objaddr%!16=bx%
10260IF by%<objaddr%!12 objaddr%!12=by%
10270IF by%>objaddr%!20 objaddr%!20=by%
10280ENDPROC
10290:
10300DEFPROCclosepath
10310IF drawfl%=FALSE ENDPROC
10320IF path%=FALSE ENDPROC
10330path%=FALSE:drpoint%=FNtag(drpoint%,0,0,0)
10340objaddr%!4=drpoint%-objaddr%:ENDPROC
10350:
10360DEFPROCdrawline(x1,y1,x2,y2,col%)
10370IF drawfl%=FALSE ENDPROC
10380IF path%=FALSE THEN
10390PROCopenpath(x1,y1,x2,y2,col%)
10400ELSE
10410PROCaddtopath(x2,y2)
10420ENDIF:ENDPROC
10430:
10440DEFPROCdrawicon
10450IF FNiconeor(program,7) THEN
10460PROCunicon(program,7)
10470PROCunselectable(program,3):PROCunselectable(program,2)
10480ELSE
10490PROCeoricon(program,7)
10500PROCselectable(program,3):PROCselectable(program,2)
10510ENDIF:ENDPROC
10520ENDPROC


� > !RunImage
:
?� *********************************************************
(?� * This version is totally free from advertising Graham! *
2?� *********************************************************
<:
F8� **************************************************
P8� *                --   LoGo    --                 *
Z8� *        Simple Turtle Graphics Generator        *
d8� *       By Duncan F. McPherson Version 1.0       *
n8� *              (c) 27th June 1992                *
x8� * Updated 11/1/92 To work with RISC OS 3  By DFM *
�8� **************************************************
�:
�,� � �4:�0,0);�$;" at line ";�;"     ":�
�*�variables:�createspritearea:�logovars
�%version=�wimpinit(2.00,progname$)
�1$iconsprite="Siconbar":$icontext="Waiting"+�0
�Diconbar=�makeicon(-1,0,-16,128,84,&1700310B,iconsprite,icontext)
�Oicpnt=�template(tempname$,"<"+progname$+"$Dir>.Templates",icpnt,&1200,han%)
�Mmainwin=�crwin(2,176,1238,980,&FF000002,1,iwd%,ihe%,3,icpnt,40):icpnt+=40
�*�setwindowtitletext(mainwin,progname$)
�9�templatevars:�createsprite(spritename$,iwd%,ihe%,12)
�/�readcoords:�updatecoords:�readcommandicons
�3status%=0:drawfl%=�:�programfinished:�setuphelp
'�unselectable(program,10):�drawicon
:
quit%=�:end%=�
"� � �error(progname$)
,�
6� quit%<>� �poll(0)
@� quit%
Jș "Wimp_CloseDown":�
T:
^1� -------------------------------------------
h1� |   Wimp Polling related procedures       |
r1� -------------------------------------------
|:
���poll(mask%)
�)ș "Wimp_Poll",mask%,q% � reasoncode%
�  Ȏ reasoncode% �
�  � 0:� end%=� �runprogram
�   � 1:�redraw_window_request
�$  � 2:�open_window_request(q%!0)
�%  � 3:�close_window_request(q%!0)
�2  � 6:�mouse_click(q%!0,q%!4,q%!8,q%!12,q%!16)
�  � 7:�dragfinished
�'  � 8:�key_pressed(q%!0,q%!4,q%!24)
�/  � 9:�menu_selection(q%!0,q%!4,q%!8,q%!12)
�  � 17,18:�recieve
�  �
�
:
��redraw_window_request
&&ș "Wimp_RedrawWindow",,q% � more%
0ȕ more%
:4�redrawsprite(q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)
D&ș "Wimp_GetRectangle",,q% � more%
N�
X�
b:
l"��open_window_request(handle%)
v@� handle%=mainwin �openmainwindow � ș "Wimp_OpenWindow",,q%
��
�:
�#��close_window_request(handle%)
�  Ȏ handle% �
�  � mainwin,coords,command
�,  q%!0=mainwin:ș "Wimp_CloseWindow",,q%
�+  q%!0=coords:ș "Wimp_CloseWindow",,q%
�,  q%!0=command:ș "Wimp_CloseWindow",,q%
�!  :ș "Wimp_CloseWindow",,q%
�  �
��
�:
�)��mouse_click(x%,y%,b%,handle%,icon%)
  Ȏ handle% �
  � -2:Ȏ b% �
          � 2:�iconbarmenu
 T          � 4:�frontmainwin:�opentofront(command):� end%=� �putcaret(command,11)
*          �
4&  � mainwin,command,coords:Ȏ b% �
>          � 2:�mainmenu
H)          � 4,1:�opentofront(command)
R8                   � status%<2 �putcaret(command,11)
\          �
f  � save:Ȏ icon% �
p+          � 3:savhandle%=save:�savedrag
z)          � 0:savhandle%=save:�saveok
�          �
�  � program:Ȏ icon% �
�.          � 3:savhandle%=program:�savedrag
�          � 7:�drawicon
�,          � 10:� status%=1 �startprogram
�/                  � status%=2 �pauseprogram
�/          � 12:� status%=2 �programfinished
�1                  � status%=3 �unpauseprogram
�*          � 23:savhandle%=-1:�savedrag
�          �
�  � help:�help(icon%)
�  �
��
:
%��key_pressed(window%,icon%,key%)
>� window%=save � icon%=0 � key%=13 savhandle%=save:�saveok
$!� window%=command � key%=13 �
.,�scrollup:com$=�readicontext(command,11)
8?�seticontext(command,11,""):�seticontext(command,5,"LoGo:")
B,�putcaret(command,11):�commandline(com$)
L�
Vș "Wimp_ProcessKey",key%
`�:�
j:
t-��menu_selection(opt1%,opt2%,opt3%,opt4%)
~  Ȏ menuhandle% �
�  � 0:Ȏ opt1% �
�         � 1:quit%=�
�         �
�  � 1 :Ȏ opt1% �
�'          � 0:�opentofront(program)
�$          � 2:�opentofront(help)
�          �
�  �
�(ș "Wimp_GetPointerInfo",,workblock%
�4� workblock%!8=1 ș "Wimp_CreateMenu",,menutree%
��
�:

��recieve

� q%!16=0 quit%=�
� q%!16=2 �datasave:�
:� q%!16=3 � q%!40=&FFF �loadprogram(�getstring(q%+44))
(�
2:
<8� --------------------------------------------------
F8� |      Program Specific Functions & Procedures   |
P8� --------------------------------------------------
Z:
dݤgetstring(address%)
nA$="":�:char%=?address%
x� char%>31 A$=A$+�(char%)
�address%+=1:� char%<32:=A$
�:
���help(icon%)
�� icon%<13 �
�
� �D@F
�5� number%=13 � icon%:� com$,syntax$,abbrev$,purp$
�#�:�seticontext(help,10,syntax$)
�!�seticontext(help,11,abbrev$)
��seticontext(help,12,purp$)
��
�:
���setuphelp
�
� �D@F
� icon%=13 � 36
 � com$,syntax$,abbrev$,purp$
!�seticontext(help,icon%,com$)
"�
,�
6:
@e� "FORWARD","Forward <Distance>","F.","This command moves the turtle forward a secified distance"
Jd� "BACK","Back <Distance>","B.","This command moves the turtle backwards the specified distance"
T[� "LEFT","Left <Angle>","L.","Turns the turtle anti-clockwise through <angle>  degrees"
^X� "RIGHT","Right <Angle>","R.","Turns the turtle clockwise through <angle>  degrees"
hM� "ANGLE","Angle <angle>","A.","Sets the turtle angle to <angle> degrees"
rS� "PENCOLOUR","PenColour <colour>","PenC.","Sets the drawing colour to <colour"
|L� "PENDOWN","PenDown","PenD.","Tells the turtle to draw lines behind it"
�H� "PENUP","PenUp","PenU.","Stops the turtle drawing lines behind it"
�J� "CLEAR","Clear","Cl.","Clears the logo window to a white background"
�A� "HOME","Home","Ho.","Moves the turtle to the home position"
�P� "SETHOME","SetHome","SetH.","Makes the current position the home position"
�D� "RESTART","ReStart","ReS.","Resets the logo system completely"
�<� "HELP","Help <command>","H.","Gives help on <command>"
�G� "/","/","/","Allows comments to be inserted in textfile programs"
�A� "RUN","Run","Run","Tells logo to start the current program"
�P� "FINISH","Finish","Finish","Tells the turtle that the program is finished"
�� "","","",""
�� "","","",""
�I� "[","[ <number>","[","Creates a loop to be repeated <number> times"
�+� "]","]","]","Closes the current loop"
U� "TO","To <name>","To","Tells the turtle how to draw <name> when it is asked to"
A� "ENDTO","EndTo","EndTo","Finishes defining a TO subroutine"
� "","","",""
&� "","","",""
0:
:��iconbarmenu
D&menutree%=menublock%:menuhandle%=0
N5ptr%=�crmu("Info>info,Quit",progname$,menublock%)
X.ș "Wimp_CreateMenu",,menublock%,x%-64,178
b�
l:
v��mainmenu
�!ptr%=menublock%:menuhandle%=1
�;menu2=ptr%:ptr%=�crmu("Restart,Help>help","Misc",menu2)
�menu1=ptr%
�Cptr%=�crmu("Program,-Save>save,Help,Info>info",progname$,menu1)
�%ș "Wimp_CreateMenu",,menu1,x%,y%
�menutree%=menu1:�
�:
�ݤturtlemoved
�]� oldturtlex<>turtlexpos � oldturtley<>turtleypos � oldturtleangle<>turtleangle � =� � =�
�:
���moveturtle
�5� turtlexpos=oldturtlex � turtleypos=oldturtley �
�:�updateturtle(oldturtlex-42,-ihe%+oldturtley-44,84,88)
�
:�updateturtle(oldturtlex-42,-ihe%+oldturtley-44,84,88)
:�updateturtle(turtlexpos-42,-ihe%+turtleypos-44,84,88)
 k� turtlexpos>oldturtlex x%=oldturtlex:w%=turtlexpos-oldturtlex � x%=turtlexpos:w%=oldturtlex-turtlexpos
*k� turtleypos>oldturtley y%=oldturtley:h%=turtleypos-oldturtley � y%=turtleypos:h%=oldturtley-turtleypos
44� pen=� �updateturtle(x%-2,-ihe%+y%-4,w%+4,h%+8)
>�:�
H:
R��updateturtle(x%,y%,w%,h%)
\8workblock%!0=mainwin:workblock%!4=x%:workblock%!8=y%
f+workblock%!12=x%+w%:workblock%!16=y%+h%
p.ș "Wimp_UpdateWindow",,workblock% � more%
zȕ more%
�d�redrawsprite(workblock%!4,workblock%!8,workblock%!12,workblock%!16,workblock%!20,workblock%!24)
�.ș "Wimp_GetRectangle",,workblock% � more%
��:�
�:
���updatecoords
�$q%=�30,�(0)):q%!0=coords
�=$xicon=�(�(turtlexpos)):q%!4=0:ș "Wimp_SetIconState",,q%
�=$yicon=�(�(turtleypos)):q%!4=1:ș "Wimp_SetIconState",,q%
�1ang%=turtleangle � 360:� ang%<0 ang%=360+ang%
�6$angicon=�(ang%):q%!4=2:ș "Wimp_SetIconState",,q%
�+� pen=� $penicon="Down" � $penicon="Up"
�%q%!4=6:ș "Wimp_SetIconState",,q%
�;q%!4=7:$colicon=�(pencolour):ș "Wimp_SetIconState",,q%
	&�seticonbaccol(coords,7,pencolour)
	�
	:
	$��readcoords
	.=q%!0=coords:q%!4=0:ș "Wimp_GetIconState",,q%:xicon=q%!28
	8=q%!0=coords:q%!4=1:ș "Wimp_GetIconState",,q%:yicon=q%!28
	B?q%!0=coords:q%!4=2:ș "Wimp_GetIconState",,q%:angicon=q%!28
	L?q%!0=coords:q%!4=6:ș "Wimp_GetIconState",,q%:penicon=q%!28
	V?q%!0=coords:q%!4=7:ș "Wimp_GetIconState",,q%:colicon=q%!28
	`Aq%!0=program:q%!4=16:ș "Wimp_GetIconState",,q%:posicon=q%!28
	j�
	t:
	~��openmainwindow
	�<workblock%!0=coords:ș "Wimp_GetWindowState",,workblock%
	�Aheight%=workblock%!16-workblock%!8:workblock%!16=q%!8+height%
	�;workblock%!4=q%!4:workblock%!8=q%!8:workblock%!12=q%!12
	�workblock%!16=q%!8+height%
	�8workblock%!28=q%!28:ș "Wimp_OpenWindow",,workblock%
	�)q%!28=coords:ș "Wimp_OpenWindow",,q%
	��
	�:
	���frontmainwin
	�6q%!0=mainwin:ș "Wimp_GetWindowState",,q%:q%!28=-1
	�(q%!4=2:q%!8=176:q%!12=1238:q%!16=980
	��openmainwindow:�
:

��templatevars
Finfo=han%!0:save=han%!4:coords=han%!8:command=han%!12:help=han%!16
program=han%!20
(�
2:
<��variables
F?� q% &300,menublock% &200,workblock% &700,iconsblock% &1200
P;� han% 80,coltrans% 16,scalefac% 16,spritearea% 81*1024
ZFprogname$="LoGo":tempname$="info,save,coords,command,help,program"
d6icpnt=iconsblock%:� menuitem$(30),commandicon%(12)
n-spritename$="default":iwd%=1280:ihe%=1024
x(comstring$="":savhandle%=0:status%=0
�� icontext 20,iconsprite 20
��
�:
���logovars
�)homexpos=640:homeypos=512:homeangle=0
�Aturtlexpos=homexpos:turtleypos=homeypos:turtleangle=homeangle
�pen=�:pencolour=13
�Joldturtlex=turtlexpos:oldturtley=turtleypos:oldturtleangle=turtleangle
�#to%=0:� tosub$(256),tosub%(256)
�7� substack%(200),loopstack%(200):stack%=0:lstack%=0
�(� logofile% 20*1024,commandline% 200
�0� drawfile% 60*1024:� a 60k drawfile maximum
�� cols% 80
�
:
5��redrawsprite(minx%,miny%,maxx%,maxy%,scx%,scy%)
"Nș "Wimp_ReadPixTrans",&100,spritearea%,spritename$,,,,scalefac%,coltrans%
,xo%=minx%-scx%:x%=xo%
6yo%=maxy%-scy%:y%=yo%-ihe%
@Lș "OS_SpriteOp",308,spritearea%,spritename$,x%,y%,0,scalefac%,coltrans%
J>�drawturtle(x%+turtlexpos,y%+turtleypos,11,40,turtleangle)
T�
^:
h��createspritearea
r*spritearea%!0=81*1024:spritearea%!8=16
|$ș "OS_SpriteOp",265,spritearea%
��
�:
���inscommand(command$)
��logocommand(command$)
� � �turtlemoved=� �moveturtle
�Joldturtlex=turtlexpos:oldturtley=turtleypos:oldturtleangle=turtleangle
��updatecoords
��
�:
�.��createsprite(name$,width%,height%,mode%)
�Eș "OS_SpriteOp",271,spritearea%,name$,0,width%/2,height%/4,mode%
��
�:
��readcommandicons
'workblock%!0=command:� icon%=0 � 11
9workblock%!4=icon%:ș "Wimp_GetIconState",,workblock%
&)commandicon%(icon%)=workblock%!28:�:�
0:
:��scrollup
DFworkblock%!0=command:workblock%!4=0:workblock%!8=0:workblock%!12=0
N� icon%=1 � 5
X3$(commandicon%(icon%-1))=$(commandicon%(icon%))
b;workblock%!4=icon%-1:ș "Wimp_SetIconState",,workblock%
l�
v� icon%=7 � 11
�3$(commandicon%(icon%-1))=$(commandicon%(icon%))
�;workblock%!4=icon%-1:ș "Wimp_SetIconState",,workblock%
��
��
�:
���logoerror(message$)
�ș "Hourglass_Smash"
�'� � -113 � 255,"You pressed ESCAPE"
�E�seticontext(command,5,"Error"):�seticontext(command,11,message$)
�
�scrollup
�$�seticontext(command,11,�30,�0))
�#�seticontext(command,5,"LoGo:")
�*ș "Wimp_GetCaretPosition",,workblock%

`� workblock%!0=command � workblock%!4=11 ș "Wimp_SetCaretPosition",-1:�putcaret(command,11)

*� status%>1 status%=1:�programfinished

'� � -113 � 255,"You pressed ESCAPE"

 endline%=�

*�

4:

>)��drawturtle(x%,y%,col%,size%,angle%)

Hș "Wimp_SetColour",col%

R5� x%+(size%*�(�(angle%))),y%+(size%*�(�(angle%)))

\=� x%+(size%*�(�(angle%+135))),y%+(size%*�(�(angle%+135)))

f� 85,x%,y%

p=� x%+(size%*�(�(angle%-135))),y%+(size%*�(�(angle%-135)))

z8� 85,x%+(size%*�(�(angle%))),y%+(size%*�(�(angle%)))

�� x%,y%

��

�:

�+� -------------------------------------

�+� |    Save & Load Procedures         |

�+� -------------------------------------

�:

�� �savename

�*workblock%!0=savhandle%:workblock%!4=2

�8� savhandle%=-1 workblock%!0=program:workblock%!4=21

�&ș "Wimp_GetIconState",,workblock%

�@A$="":A%=workblock%!28:�:A$=A$+�?A%:A%=A%+1:� ?A%=0 � ?A%=13

�
=A$+�0
:
��savename(A$)
*workblock%!0=savhandle%:workblock%!4=2
$8� savhandle%=-1 workblock%!0=program:workblock%!4=21
.&ș "Wimp_GetIconState",,workblock%
8$(workblock%!28)=A$
B�
L:
V��savedrag
`0q%!0=savhandle%:� savhandle%=-1 q%!0=program
j ș "Wimp_GetWindowState",,q%
t"xo%=q%!4-q%!20:yo%=q%!16-q%!24
~$� savhandle%=-1 q%!4=23 � q%!4=3
�ș "Wimp_GetIconState",,q%
�Hq%!0=savhandle%:q%!4=5:q%!8=xo%+q%!8:q%!12=yo%+q%!12:q%!16=xo%+q%!16
�Cq%!20=yo%+q%!20:q%!24=0:q%!28=0:q%!32=&7FFFFFFF:q%!36=&7FFFFFFF
�ș "Wimp_DragBox",,q%
��
�:
���dragfinished
� ș "Wimp_GetPointerInfo",,q%
�1q%!20=q%!12:q%!24=q%!16:q%!28=q%!0:q%!32=q%!4
�#� savhandle%=save q%!36=81*1024
�!� savhandle%=program q%!36=10
�� savhandle%=-1 q%!36=10
q%!0=256:q%!12=0:q%!16=1

 � savhandle%=save q%!40=&FF9
#� savhandle%=program q%!40=&AFF
� savhandle%=-1 q%!40=&FFF
($$(q%+44)=�getleafname(�savename)
2+ș "Wimp_SendMessage",17,q%,q%!20,q%!24
<�
F:
Pݤgetleafname(A$)
Zȕ �A$,".")
dA$=�A$,�A$,".")+1)
n�:=A$+�0
x:
���datasave
�#fullname$="":a%=0:b%=q%?(44+a%)
�ȕ b%<>0
�3fullname$=fullname$+�(b%):a%=a%+1:b%=q%?(44+a%)
��
�,� savhandle%=save �savesprite(fullname$)
� � savhandle%=program q%!36=0
�� savhandle%=-1 q%!36=0
�E� q%!36<>-1 � savhandle%<>-1 �seticontext(savhandle%,2,fullname$)
�B� q%!36<>-1 � savhandle%=-1 �seticontext(program,21,fullname$)
�Gq%!12=q%!8:q%!16=3:q%!0=256:ș "Wimp_SendMessage",18,q%,q%!20,q%!24
�C� savhandle%<>program � savhandle%<>-1 ș "Wimp_CreateMenu",,-1
��
:
��saveok
A$=�savename
"C� �A$,".")=0 � 1,"To save, drag the icon to a directory viewer"
,%� savhandle%=save �savesprite(A$)
6ș "Wimp_CreateMenu",,-1
@�
J:
T��savesprite(A$)
^)ș "OS_SpriteOp",268,spritearea%,A$:�
h:
r8� --------------------------------------------------
|8� |        Universal Functions & Procedure         |
�8� --------------------------------------------------
�:
�'��seticonbaccol(window%,icon%,col%)
�A$="&"+�~col%+"0000000"
�>workblock%!0=window%:workblock%!4=icon%:workblock%!8=�(A$)
�>workblock%!12=&F0000000:ș "Wimp_SetIconState",,workblock%
��
�:
�'��seticonforcol(window%,icon%,col%)
�A$="&0"+�~col%+"000000"
�>workblock%!0=window%:workblock%!4=icon%:workblock%!8=�(A$)
�>workblock%!12=&0F000000:ș "Wimp_SetIconState",,workblock%
��
:
ݤwindowopen(window%)
=workblock%!0=window%:ș "Wimp_GetWindowState",,workblock%
&-flags%=workblock%!32:open%=flags% � 1<<16
0� open%>0 =� � =�
::
D(��setbuttontype(window%,icon%,type%)
N+workblock%!0=window%:workblock%!4=icon%
X)workblock%!8=�("&0000"+�~type%+"000")
b>workblock%!12=&0000F000:ș "Wimp_SetIconState",,workblock%
l�
v:
�!��unselectable(window%,icon%)
�#�seticonforcol(window%,icon%,2)
�+workblock%!0=window%:workblock%!4=icon%
�.workblock%!8=&400000:workblock%!12=&400000
�(ș "Wimp_SetIconState",,workblock%:�
�:
���eoricon(window%,icon%)
�2q%!0=window%:q%!4=icon%:q%!8=1<<21:q%!12=1<<21
� ș "Wimp_SetIconState",,q%:�
�:
���unicon(window%,icon%)
�.q%!0=window%:q%!4=icon%:q%!8=0:q%!12=1<<21
� ș "Wimp_SetIconState",,q%:�
:
ݤiconeor(window%,icon%)
6q%!0=window%:q%!4=icon%:ș "Wimp_GetIconState",,q%
 !� (q%!24 � 1<<21)>0 � =� � =�
*:
4��selectable(window%,icon%)
>#�seticonforcol(window%,icon%,7)
H+workblock%!0=window%:workblock%!4=icon%
R(workblock%!8=0:workblock%!12=&400000
\(ș "Wimp_SetIconState",,workblock%:�
f:
p!ݤreadicontext(window%,icon%)
z+workblock%!0=window%:workblock%!4=icon%
�&ș "Wimp_GetIconState",,workblock%
�=$(workblock%!28)
�:
�-��seticontext(window%,icon%,text$):� len%
�+workblock%!0=window%:workblock%!4=icon%
�&ș "Wimp_GetIconState",,workblock%
�len%=workblock%!36
�B$(workblock%!28)=�text$,len%-1):workblock%!8=0:workblock%!12=0
�&ș "Wimp_SetIconState",,workblock%
��
�:
���openwindow(handle%)
�=workblock%!0=handle%:ș "Wimp_GetWindowState",,workblock%
$ș "Wimp_OpenWindow",,workblock%
�
:
$.��setwindowtitletext(handle%,text$):� len%
.<workblock%!0=handle%:ș "Wimp_GetWindowInfo",,workblock%
8+len%=workblock%!84:text$=�text$,len%-1)
B!$(workblock%!76)=text$+�(0):�
L:
V��opentofront(handle%)
`workblock%!0=handle%
j8ș "Wimp_GetWindowInfo",,workblock%:workblock%!28=-1
t$ș "Wimp_OpenWindow",,workblock%
~�
�:
���putcaret(window%,icon%)
�3ș "Wimp_SetCaretPosition",window%,icon%,,,-1,0
��
�:
���disowncaret
�#ș "Wimp_SetCaretPosition",-1:�
�:
�%ݤmenu(text$,width%,height%,gap%)
�$P%=�text$,11)+�0:P%+=12
�
[OPT 0
�?EQUB 7:EQUB 2:EQUB 7:EQUB 0    ;Four definable menu colours
<EQUD width%*16                 ;Width of menu (OS Units)

AEQUD height%                   ;Height of one item (OS Units)
IEQUD gap%                      ;Vertical gap between items (OS Units)
]:=0
(:
21ݤmenuitem(text$,flags%,submenu%,icon%,last%)
<!� last%=� flags%=flags% � &80
F
[OPT 0
P.EQUD flags%                    ;Menu flags
Z@EQUD submenu%                  ;Submenu pointer (-1 if none)
dOEQUD icon%                     ;Menu item icon flags (as for a normal icon)
n!]:$P%=�text$,11)+�0:P%+=12:=0
x:
�ݤpar(sep$)
�+i1%=i%+1:i%=�menustring$+sep$,sep$,i1%)
�=�menustring$,i1%,i%-i1%)
�:
�)ݤcrmu(menustring$,mutitle$,address%)
�4number%=-1:i%=0:width%=�(mutitle$)-2:P%=address%
�-�:number%+=1:menuitem$(number%)=�par(",")
�&� menuitem$(number%)="":number%-=1
�([OPT 0:�menu(mutitle$,width%,40,0):]
�� menuitem%=0 � number%
�(itemflags%=�menuitemflags(menuitem%)
�iconflags%=&07000021
�'submenu%=�submenupointer(menuitem%)
/� menuitem%=number% lastopt%=� � lastopt%=�
C� �(menuitem$(menuitem%))>width% width%=�(menuitem$(menuitem%))

[OPT 0
"K�menuitem(menuitem$(menuitem%),itemflags%,submenu%,iconflags%,lastopt%)
,I]:�:width%+=1:addr%=P%:P%=address%:[OPT 0:�menu(mutitle$,width%,40,0)
6]:=addr%
@:
Jݤsubmenupointer(A%)
T+A$=menuitem$(A%):i%=�A$,">"):� i%=0 =-1
^,B$=�A$,�(A$)-i%):menuitem$(A%)=�A$,i%-1)
h#� �B$,1)=">" � =�(�B$,�(B$)-1))
r
=�(B$)
|:
�ݤmenuitemflags(A%)
�A$=menuitem$(A%):flags%=0
�.� �A$,"�")>0 A$=�outchar(A$,"�"):flags%+=1
�.� �A$,"-")>0 A$=�outchar(A$,"-"):flags%+=2
�menuitem$(A%)=A$:=flags%
�:
�ݤoutchar(C$,D$)
�'i%=�C$,D$):=�C$,i%-1)+�C$,�(C$)-i%)
�:
�Dݤtemplate(temp$,filename$,addr%,size%,handleaddr%):� number%,i%
�%ș "Wimp_OpenTemplate",,filename$
� number%=-1:i%=0:size%+=addr%
�2�:number%+=1:name$=�partemp(","):� name$<>"" �
Eș "Wimp_LoadTemplate",,workblock%,addr%,size%,-1,name$ � ,,addr%
Cș "Wimp_CreateWindow",,workblock% � !(handleaddr%+(4*number%))
/�:� name$="":ș "Wimp_CloseTemplate":=addr%
&:
0ݤpartemp(sep$)
:%i1%=i%+1:i%=�temp$+sep$,sep$,i1%)
D=�temp$,i1%,i%-i1%)
N:
XDݤmakeicon(window%,minx%,miny%,maxx%,maxy%,flags%,sprite%,text%)
b>workblock%!0=window%:workblock%!4=minx%:workblock%!8=miny%
l+workblock%!12=maxx%:workblock%!16=maxy%
vBworkblock%!20=flags%:workblock%!24=text%:workblock%!28=sprite%
�workblock%!32=20
�?ș "Wimp_CreateIcon",,workblock% � iconhandle%:=iconhandle%
�:
���error(name$)
�-� �=26 �logoerror("Bad logo parameter"):�
� workblock%!0=�:� clicked_on%
�=$(workblock%+4)=�$+" (internal error code "+�(�)+")"+�(0)
�� �=255 $(workblock%+4)=�$
�;ș "Wimp_ReportError",workblock%,3,name$ � ,clicked_on%
�� clicked_on%=2 quit%=�
��
�:
�&ݤwimpinit(knownversion,taskname$)
Gș "Wimp_Initialise",100*knownversion,&4B534154,taskname$ � version
=version
:
 Aݤcrwin(x%,y%,w%,h%,flags%,bcol%,xe%,ye%,waf%,title%,length%)
*<$workblock%=�92,�(0)):� Fill the window block with zeros
4Jworkblock%!0=x%:workblock%!4=y%:workblock%!8=x%+w%:workblock%!12=y%+h%
>)workblock%!24=-1:workblock%!28=flags%
HGworkblock%?32=7:workblock%?33=2:workblock%?34=7:workblock%?35=bcol%
R4workblock%?36=3:workblock%?37=1:workblock%?38=12
\(workblock%!44=-ye%:workblock%!48=xe%
f-workblock%!56=&13D:workblock%!60=waf%<<12
p?workblock%!72=title%:workblock%!76=-1:workblock%!80=length%
z0ș "Wimp_CreateWindow",,workblock% � handle%
�=handle%
�:
�+��info(name$,purpose$,author$,version$)
��seticontext(info,12,name$)
�"�seticontext(info,13,purpose$)
�!�seticontext(info,14,author$)
�"�seticontext(info,15,version$)
��
�:
�8� --------------------------------------------------
�8� |      Logo Interpreter Procedures               |
�8� --------------------------------------------------
�:
��logocommand(command$)
command$=�nospcs(command$)
command$=�letcase(command$)
$%command$=�expandcommand(command$)
.D� �command$,7)="FORWARD"   �forward(�(�command$,�(command$)-7)))
8A� �command$,4)="BACK"      �back(�(�command$,�(command$)-4)))
BA� �command$,4)="LEFT"      �left(�(�command$,�(command$)-4)))
LB� �command$,5)="RIGHT"     �right(�(�command$,�(command$)-5)))
VB� �command$,5)="ANGLE"     �angle(�(�command$,�(command$)-5)))
`A� �command$,4)="HELP"      �helpcom(�command$,�(command$)-4))
j$� �command$,4)="HOME"      �home
t%� �command$,5)="CLEAR"     �clear
~%� �command$,5)="PENUP"     �penup
�'� �command$,7)="PENDOWN"   �pendown
�F� �command$,9)="PENCOLOUR" �pencolour(�(�command$,�(command$)-9)))
�8� �command$,3)="RUN"       � status%=1:�startprogram
�'� �command$,7)="RESTART"   �restart
�'� �command$,7)="SETHOME"   �sethome
��
�:
���loadprogram(filename$)
�9ș "OS_File",12,filename$,logofile%,0 � ,,,,filesize%
�"�tosearch(logofile%,filesize%)
��opentofront(program)
�)�seticontext(program,13,�(filesize%))
!�seticontext(program,16,"0%")

%�seticontext(program,8,filename$)
C�seticontext(program,10,"Run"):�seticontext(program,12,"Abort")
5�selectable(program,10):�unselectable(program,12)
(u�seticontext(command,5,"Info:"):�seticontext(command,11,"Program loaded. "+�(to%)+" routines. Type RUN to begin")
2
�scrollup
<?�seticontext(command,5,"LoGo:"):�seticontext(command,11,"")
Fstatus%=1:�
P:
Z��startprogram
d4end%=�:�setbuttontype(command,11,0):�disowncaret
npoint%=logofile%:status%=2
x!�seticontext(program,16,"0%")
�3�selectable(program,10):�selectable(program,12)
�E�seticontext(program,10,"Pause"):�seticontext(program,12,"Abort")
�6�unselectable(program,2):�unselectable(program,21)
�6�unselectable(program,3):�unselectable(program,22)
�6�unselectable(program,7):�unselectable(program,23)
�&�seticontext(-2,iconbar,"Running")
��setupdrawfile
��
�:
���runprogram
�2perscent%=(((point%-logofile%)/filesize%)*100)
�A$posicon=�(perscent%)+"%":q%!0=program:q%!4=16:q%!8=0:q%!12=0
�ș "Wimp_SetIconState",,q%
4A$=�comstring(point%):point%=�getcommand(point%)
"Error$="":comnum%=�progcom(A$)
,� comnum%<15 � Error$="" �inscommand(A$)
"8� Error$<>""               �logoerror(Error$):end%=�
,;� point%>=logofile%+filesize%                    end%=�
6,� end%=�                �programfinished
@�
J:
T��programfinished
^end%=�:status%=1
h!�setbuttontype(command,11,15)
r0� �windowopen(command) �putcaret(command,11)
|2�selectable(program,2):�selectable(program,21)
�2�selectable(program,3):�selectable(program,22)
�2�selectable(program,7):�selectable(program,23)
�5�selectable(program,10):�unselectable(program,12)
�C�seticontext(program,10,"RUN"):�seticontext(program,12,"Abort")
�&�seticontext(-2,iconbar,"Waiting")
��savedrawfile
�� �iconeor(program,7) �
�1�selectable(program,3):�selectable(program,2)
��
�5�unselectable(program,3):�unselectable(program,2)
��
��
�:
��pauseprogram
� point%=logofile% �
7end%=�:status%=3:�seticontext(program,12,"Restart")
&C�unselectable(program,10):�seticontext(-2,iconbar," Paused "):�
0:
:��unpauseprogram
D5end%=�:status%=2:�seticontext(program,12,"Abort")
N@�selectable(program,10):�seticontext(-2,iconbar,"Running"):�
X:
b:� ----------------------------------------------------
l:� |    Procedures for dealing with typed commands    |
v:� ----------------------------------------------------
�:
���commandline(A$)
�� status%<>1 � end%=� �
�!lstack%=0:stack%=0:endline%=�
�?$commandline%=A$+�(0):commandlen%=�(A$):point%=commandline%
�ș "Hourglass_On"
�6�:A$=�comstring(point%):point%=�getcommand(point%)
�"Error$="":comnum%=�progcom(A$)
�'� � -113 � 255,"You pressed ESCAPE"
�,� comnum%<15 � Error$="" �inscommand(A$)
�<� Error$<>""               �logoerror(Error$):endline%=�
�?� point%>=commandline%+commandlen%               endline%=�
�'� � -113 � 255,"You pressed ESCAPE"
� endline%=� � end%=�
ș "Hourglass_Off":�
:
 ݤgetcommand(addr%)
*<�:A%=?addr%:addr%+=1:� A%<32 � A%=127 � A%=�(":"):=addr%
4:
>ݤcomstring(addr%)
HA$="":�
R@A%=?addr%:addr%+=1:� A%>31 � A%<>127 � A%<> �(":") A$+=�(A%)
\$� A%<32 � A%=127 � A%=�(":"):=A$
f:
p� �normcmnd(A$)
zn%=1:N%=0:� �tv\:�
�)� F$,C%:� �abbrev(A$,F$,C%)>0 � N%=n%
�n%+=1:� F$="EEND"
�� N%=n%-1 N%=0
�=N%
�:
�%� FORWARD,1,BACK,1,LEFT,1,RIGHT,1
�� ANGLE,1,CLEAR,2,HOME,2
�#� PENUP,4,PENDOWN,4,PENCOLOUR,4
� � SETHOME,4,RESTART,3,HELP,1
� � RUN,2,TO,0,ENDTO,0,[,0,],0
�� FINISH,3,/,0,EEND,0
�:
�ݤexpandcommand(A$)
N%=�normcmnd(A$):� N%=0 =A$
� �tv\:� X%=1 � N%
.� com$,abb%:�:abbre%=�abbrev(A$,com$,abb%)
$=com$+�A$,�(A$)-abbre%)
.:
8 � �letcase(A$):� n%,B$,A%,C$
B� A$="" =""
L� n%=1 � �(A$)
VA%=�(�A$,n%,1))
`� A%>96 � A%<123 � A%=A%-32
j.B$=�A$,n%-1):C$=�A$,�(A$)-n%):A$=B$+�A%+C$
t	�:=A$
~:
�� �nospcs(A$)
�!L%=1:R%=�(A$):N%=-1:�:N%=N%+1
�� �A$,N%,1)=" " L%=N%+1
�!� N%=�(A$) � �A$,N%+1,1)<>" "
�N%=�(A$)+1:�:N%=N%-1
�� �A$,N%,1)=" " R%=N%-L%
�� �A$,N%,1)<>" "
�=�A$,L%,R%)
�:
�� �alpha(A$)
�N%=�:� n%=1 � �(A$)
�,� �(�A$,n%,1))<65 � �(�A$,n%,1))>90 N%=�
	�:=N%

:
ݤabbrev(C$,B$,C%)
� �C$,�(B$))=B$ =�(B$)
(E%=0:� D%=C% � (�(B$)-1)
2'� �C$,D%+1)=(�B$,D%)+".") � E%=D%+1
<	�:=E%
F:
P� �params(A%,A$):� n%,B$,C%
Z� �tv\:� n%=1 � A%
d"� B$,C%:�:A%=�abbrev(A$,B$,C%)
n!A$=�A$,�(A$)-A%):=�nospcs(A$)
x:
�ݤprogcom(com$)
�Dcom$=�nospcs(com$):com$=�letcase(com$):com$=�expandcommand(com$)
�0comnum%=�normcmnd(com$):subnum%=�subno(com$)
�B$=�params(comnum%,com$)
�6� com$=""                                     =255
�1� subnum%>-1 � comnum%=0 �tosub(subnum%):=255
�6� comnum%=0       Error$="No such subroutine":=255
�:� comnum%<15                                  =comnum%
�^� (comnum%-14) �comment,�endto,�newloop(�(B$)),�endloop,�programfinished,�comment:=comnum%
�:
�+� -------------------------------------
�+� |  Loop & To Subroutine Handlers    |
�+� -------------------------------------
:
��newloop(number%)
Gloopstack%(lstack%)=point%:loopstack%(lstack%+1)=number%:lstack%+=2
"�
,:
6
��endloop
@!number%=loopstack%(lstack%-1)
J� number%-1>0 �
T9point%=loopstack%(lstack%-2):loopstack%(lstack%-1)-=1
^�
hlstack%-=2
r�closepath
|�:�
�:
���tosub(subnum%)
�=substack%(stack%)=point%:stack%+=1:point%=tosub%(subnum%)
��
�:
�ݤsubno(name$)
�Mnumber%=-1:� num%=0 � to%-1:� tosub$(num%)=name$ � name$<>"" number%=num%
��:=number%
�:
���tosearch(address%,size%)
�� X%=0 � 99:tosub$(X%)="":�
�ș "Hourglass_On"
�,point%=address%:stack%=0:lstack%=0:to%=0
 6�:A$=�comstring(point%):point%=�getcommand(point%)
 "A$=�nospcs(A$):A$=�letcase(A$)
 %� �A$,2)="TO" �to(�params(15,A$))
 &� point%>=address%+size%
 0ș "Hourglass_Off"
 :�
 D:
 N��to(B$)
 X8� to%=100 Error$="Too many TO subroutines defined":�
 b� �alpha(B$) �
 l5� �subno(B$)>-1 � no%=�subno(B$) � no%=to%:to%+=1
 v'tosub$(no%)=B$:tosub%(no%)=point%:�
 �:
 ���endto:to$=""
 �0� stack%=0 Error$="Not in a TO subroutine":�
 �(stack%-=1:point%=substack%(stack%):�
 �:
 ���comment:�
 �:
 �8� --------------------------------------------------
 �8� |        Turtle Movement Procedures              |
 �8� --------------------------------------------------
 �:
 ���forward(distance)
 �*turtlexpos+=distance*�(�(turtleangle))
!*turtleypos+=distance*�(�(turtleangle))
!�messagecode(1,distance)
!
� pen=� �
! >ș "OS_SpriteOp",316,spritearea%,spritename$ � R0,R1,R2,R3
!*A� 0,pencolour:� oldturtlex,oldturtley:� turtlexpos,turtleypos
!4 ș "OS_SpriteOp",R0,R1,R2,R3
!>D�drawline(oldturtlex,oldturtley,turtlexpos,turtleypos,pencolour)
!H�
!R:
!\��back(distance)
!f*turtlexpos-=distance*�(�(turtleangle))
!p*turtleypos-=distance*�(�(turtleangle))
!z�messagecode(2,distance)
!�
� pen=� �
!�>ș "OS_SpriteOp",316,spritearea%,spritename$ � R0,R1,R2,R3
!�A� 0,pencolour:� oldturtlex,oldturtley:� turtlexpos,turtleypos
!� ș "OS_SpriteOp",R0,R1,R2,R3
!�D�drawline(oldturtlex,oldturtley,turtlexpos,turtleypos,pencolour)
!��
!�:
!���left(degrees)
!��messagecode(3,degrees)
!�turtleangle-=degrees
!��
!�:
!���right(degrees)
"�messagecode(4,degrees)
"turtleangle+=degrees
"�
"$:
".��angle(angle)
"81ang%=turtleangle � 360:� ang%<0 ang%=360+ang%
"B,angl%=angle � 360:� ang%<0 ang%=360+ang%
"LW� ang%>angl% left%=ang%-angl%:right%=360-left% � right%=ang%-angl%:left%=360-right%
"V0� right%<0 left%=360+right%:right%=360-left%
"`0� left%<0 right%=360+right%:left%=360-right%
"jA� right%<left% �messagecode(4,right%) � �messagecode(3,left%)
"tturtleangle=angle
"~�
"�:
"���penup
"��messagecode(5,0)
"�pen=�:�closepath
"��
"�:
"�
��pendown
"��messagecode(6,0)
"�	pen=�
"��
"�:
"���pencolour(colour)
#�messagecode(7,colour)
#
pencolour=colour:�closepath
#�
#:
#(��clear
#2>ș "OS_SpriteOp",316,spritearea%,spritename$ � R0,R1,R2,R3
#<� 0,0:� 0,0:� 97,iwd%,ihe%
#F ș "OS_SpriteOp",R0,R1,R2,R3
#P$�updateturtle(0,-ihe%,iwd%,ihe%)
#Z�
#d:
#n��moveto(xcoord,ycoord)
#x=opposite=(turtlexpos-xcoord):adjacent=(turtleypos-ycoord)
#�8� adjacent=0 angle=0 � angle=�(�(opposite/adjacent))
#�(� opposite<0 � adjacent<0 angle-=180
#�(� opposite>0 � adjacent<0 angle+=180
#�7distance=�((opposite*opposite)+(adjacent*adjacent))
#�!�angle(angle):�back(distance)
#��
#�:
#�
��home
#�� pen=� �penup:T%=1 � T%=0
#�7�penup:�moveto(homexpos,homeypos):�angle(homeangle)
#�� T%=1 �pendown
#��
#�:
$
��sethome
$1ang%=turtleangle � 360:� ang%<0 ang%=360+ang%
$Ahomexpos=turtlexpos:homeypos=turtleypos:homeangle=turtleangle
$"#�seticontext(command,5,"Info:")
$,^�seticontext(command,11,"Home set to "+�(�(homexpos))+","+�(�(homeypos))+","+�(ang%)+"�.")
$6I�scrollup:�seticontext(command,5,"LoGo:"):�seticontext(command,11,"")
$@�
$J:
$T
��restart
$^)homexpos=640:homeypos=512:homeangle=0
$h�home:�clear
$r#�seticontext(command,5,"Info:")
$|:�seticontext(command,11,"Logo reset at "+�$):�scrollup
$�?�seticontext(command,5,"LoGo:"):�seticontext(command,11,"")
$��
$�:
$���helpcom(com$)
$�*com$=�nospcs(com$):com$=�letcase(com$)
$�com$=�expandcommand(com$)
$�� com$="" com$="HELP"
$�� �D@F:N%=0:� X%=1 � 24
$�I� A$,B$,C$,D$:� A$=com$ � A$<>"" syntax$=B$:abbrev$=C$:purp$=D$:N%=X%
$�+�:� N%=0 syntax$="":abbrev$="":purp$=""
$��seticontext(command,5,"")
$�8�seticontext(command,11,"Syntax:"+syntax$):�scrollup
$��seticontext(command,5,"")
%,�seticontext(command,11,purp$):�scrollup
%?�seticontext(command,5,"LoGo:"):�seticontext(command,11,"")
%�
%&:
%0,� --------------------------------------
%:,� |       Message passing routines     |
%D,� --------------------------------------
%N:
%X"��messagecode(code%,parameter)
%b2q%!0=100:q%!4=0:q%!8=0:q%!12=0:q%!16=&4C4F474F
%l*q%!20=code%:$(q%+24)=�(parameter)+�(0)
%v!ș "Wimp_SendMessage",17,q%,0
%��
%�:
%�,� --------------------------------------
%�,� |    Drawfile generation routine     |
%�,� --------------------------------------
%�:
%���setupdrawfile
%�drpoint%=drawfile%
%� $drpoint%="Draw":drpoint%+=4
%�:!drpoint%=201:drpoint%+=4:�        Major version stamp
%�:!drpoint%=0:drpoint%+=4:�          Minor version stamp
%�/$drpoint%=�"Logo"+�12," "),12):drpoint%+=12
%�-drpoint%!0=�xdraw(0):drpoint%!4=�ydraw(0)
&Adrpoint%!8=�xdraw(1280):drpoint%!12=�ydraw(1024):drpoint%+=16
&'path%=�:drawfl%=�iconeor(program,7)
& ș "Wimp_ReadPalette",,cols%
& �
&*:
&4ݤxdraw(x):=�(x*256)
&>ݤydraw(y):=�(y*256)
&Hݤcdraw(c%):c%=c% � 16
&R.� c%>=0 � =!(cols%+c%*4) � &FFFFFF00 � =-1
&\:
&f ��openpath(x1,y1,x2,y2,col%)
&p� path%=� �closepath
&z?x1%=�xdraw(x1):y1%=�ydraw(y1):x2%=�xdraw(x2):y2%=�ydraw(y2)
&�objaddr%=drpoint%:path%=�
&�<bx%=x1%:by%=y1%:bx1%=x2%:by1%=y2%:� bx%>bx1% Ȕ bx%,bx1%
&�� by%>by1% Ȕ by%,by1%
&�8drpoint%=�objecthead(drpoint%,2,0,bx%,by%,bx1%,by1%)
&�8!drpoint%=-1:drpoint%+=4:�               Fill colour
&�7!drpoint%=�cdraw(col%):drpoint%+=4:�    Line colour
&�@!drpoint%=0:drpoint%+=4:�                Line width (thin=0)
&�C!drpoint%=&42:drpoint%+=4:�              Draw path object flags
&�%drpoint%=�tag(drpoint%,2,x1%,y1%)
&�%drpoint%=�tag(drpoint%,8,x2%,y2%)
&��
&�:
&�ݤtag(addr%,tag%,x%,y%)
';!addr%=tag%:addr%+=4:�                   Tag identifier
'� tag%=0 =addr%
'9!addr%=x%:addr%+=4:�                     X draw coord
'$9!addr%=y%:addr%+=4:�                     Y draw coord
'.
=addr%
'8:
'B3ݤobjecthead(addr%,type%,size%,x1%,y1%,x2%,y2%)
'L8!addr%=type%:addr%+=4:�                  Object type
'V@!addr%=size%:addr%+=4:�                  Object size (bytes)
'`E!addr%=x1%:addr%+=4:�                    X low bounding box coord
'jE!addr%=y1%:addr%+=4:�                    Y low bounding box coord
'tF!addr%=x2%:addr%+=4:�                    X high bounding box coord
'~F!addr%=y2%:addr%+=4:�                    Y high bounding box coord
'�
=addr%
'�:
'���savedrawfile
'�� drawfl%=� �
'��closepath
'�&filename$=�readicontext(program,2)
'�6ș "OS_File",10,filename$,&AFF,,drawfile%,drpoint%
'��
'�:
'���addtopath(x1,y1)
'�3drpoint%=�tag(drpoint%,8,�xdraw(x1),�ydraw(y1))
'�!bx%=�xdraw(x1):by%=�ydraw(y1)
(#� bx%<objaddr%!8 objaddr%!8=bx%
(
%� bx%>objaddr%!16 objaddr%!16=bx%
(%� by%<objaddr%!12 objaddr%!12=by%
(%� by%>objaddr%!20 objaddr%!20=by%
((�
(2:
(<��closepath
(F� drawfl%=� �
(P� path%=� �
(Z)path%=�:drpoint%=�tag(drpoint%,0,0,0)
(d"objaddr%!4=drpoint%-objaddr%:�
(n:
(x ��drawline(x1,y1,x2,y2,col%)
(�� drawfl%=� �
(�� path%=� �
(��openpath(x1,y1,x2,y2,col%)
(��
(��addtopath(x2,y2)
(��:�
(�:
(���drawicon
(�� �iconeor(program,7) �
(��unicon(program,7)
(�5�unselectable(program,3):�unselectable(program,2)
(��
(��eoricon(program,7)
)1�selectable(program,3):�selectable(program,2)
)�:�
)�
�
00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 05 3a 0d 00  1e 3f f4 20 2a 2a 2a 2a  |e....:...?. ****|
00000020  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000050  2a 2a 2a 2a 2a 0d 00 28  3f f4 20 2a 20 54 68 69  |*****..(?. * Thi|
00000060  73 20 76 65 72 73 69 6f  6e 20 69 73 20 74 6f 74  |s version is tot|
00000070  61 6c 6c 79 20 66 72 65  65 20 66 72 6f 6d 20 61  |ally free from a|
00000080  64 76 65 72 74 69 73 69  6e 67 20 47 72 61 68 61  |dvertising Graha|
00000090  6d 21 20 2a 0d 00 32 3f  f4 20 2a 2a 2a 2a 2a 2a  |m! *..2?. ******|
000000a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000000d0  2a 2a 2a 0d 00 3c 05 3a  0d 00 46 38 f4 20 2a 2a  |***..<.:..F8. **|
000000e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000110  0d 00 50 38 f4 20 2a 20  20 20 20 20 20 20 20 20  |..P8. *         |
00000120  20 20 20 20 20 20 20 2d  2d 20 20 20 4c 6f 47 6f  |       --   LoGo|
00000130  20 20 20 20 2d 2d 20 20  20 20 20 20 20 20 20 20  |    --          |
00000140  20 20 20 20 20 20 20 2a  0d 00 5a 38 f4 20 2a 20  |       *..Z8. * |
00000150  20 20 20 20 20 20 20 53  69 6d 70 6c 65 20 54 75  |       Simple Tu|
00000160  72 74 6c 65 20 47 72 61  70 68 69 63 73 20 47 65  |rtle Graphics Ge|
00000170  6e 65 72 61 74 6f 72 20  20 20 20 20 20 20 20 2a  |nerator        *|
00000180  0d 00 64 38 f4 20 2a 20  20 20 20 20 20 20 42 79  |..d8. *       By|
00000190  20 44 75 6e 63 61 6e 20  46 2e 20 4d 63 50 68 65  | Duncan F. McPhe|
000001a0  72 73 6f 6e 20 56 65 72  73 69 6f 6e 20 31 2e 30  |rson Version 1.0|
000001b0  20 20 20 20 20 20 20 2a  0d 00 6e 38 f4 20 2a 20  |       *..n8. * |
000001c0  20 20 20 20 20 20 20 20  20 20 20 20 20 28 63 29  |             (c)|
000001d0  20 32 37 74 68 20 4a 75  6e 65 20 31 39 39 32 20  | 27th June 1992 |
000001e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
000001f0  0d 00 78 38 f4 20 2a 20  55 70 64 61 74 65 64 20  |..x8. * Updated |
00000200  31 31 2f 31 2f 39 32 20  54 6f 20 77 6f 72 6b 20  |11/1/92 To work |
00000210  77 69 74 68 20 52 49 53  43 20 4f 53 20 33 20 20  |with RISC OS 3  |
00000220  42 79 20 44 46 4d 20 2a  0d 00 82 38 f4 20 2a 2a  |By DFM *...8. **|
00000230  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000260  0d 00 8c 05 3a 0d 00 96  2c ee 20 85 20 ef 34 3a  |....:...,. . .4:|
00000270  f1 8a 30 2c 30 29 3b f6  24 3b 22 20 61 74 20 6c  |..0,0);.$;" at l|
00000280  69 6e 65 20 22 3b 9e 3b  22 20 20 20 20 20 22 3a  |ine ";.;"     ":|
00000290  e0 0d 00 a0 2a f2 76 61  72 69 61 62 6c 65 73 3a  |....*.variables:|
000002a0  f2 63 72 65 61 74 65 73  70 72 69 74 65 61 72 65  |.createspriteare|
000002b0  61 3a f2 6c 6f 67 6f 76  61 72 73 0d 00 aa 25 76  |a:.logovars...%v|
000002c0  65 72 73 69 6f 6e 3d a4  77 69 6d 70 69 6e 69 74  |ersion=.wimpinit|
000002d0  28 32 2e 30 30 2c 70 72  6f 67 6e 61 6d 65 24 29  |(2.00,progname$)|
000002e0  0d 00 b4 31 24 69 63 6f  6e 73 70 72 69 74 65 3d  |...1$iconsprite=|
000002f0  22 53 69 63 6f 6e 62 61  72 22 3a 24 69 63 6f 6e  |"Siconbar":$icon|
00000300  74 65 78 74 3d 22 57 61  69 74 69 6e 67 22 2b bd  |text="Waiting"+.|
00000310  30 0d 00 be 44 69 63 6f  6e 62 61 72 3d a4 6d 61  |0...Diconbar=.ma|
00000320  6b 65 69 63 6f 6e 28 2d  31 2c 30 2c 2d 31 36 2c  |keicon(-1,0,-16,|
00000330  31 32 38 2c 38 34 2c 26  31 37 30 30 33 31 30 42  |128,84,&1700310B|
00000340  2c 69 63 6f 6e 73 70 72  69 74 65 2c 69 63 6f 6e  |,iconsprite,icon|
00000350  74 65 78 74 29 0d 00 c8  4f 69 63 70 6e 74 3d a4  |text)...Oicpnt=.|
00000360  74 65 6d 70 6c 61 74 65  28 74 65 6d 70 6e 61 6d  |template(tempnam|
00000370  65 24 2c 22 3c 22 2b 70  72 6f 67 6e 61 6d 65 24  |e$,"<"+progname$|
00000380  2b 22 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |+"$Dir>.Template|
00000390  73 22 2c 69 63 70 6e 74  2c 26 31 32 30 30 2c 68  |s",icpnt,&1200,h|
000003a0  61 6e 25 29 0d 00 d2 4d  6d 61 69 6e 77 69 6e 3d  |an%)...Mmainwin=|
000003b0  a4 63 72 77 69 6e 28 32  2c 31 37 36 2c 31 32 33  |.crwin(2,176,123|
000003c0  38 2c 39 38 30 2c 26 46  46 30 30 30 30 30 32 2c  |8,980,&FF000002,|
000003d0  31 2c 69 77 64 25 2c 69  68 65 25 2c 33 2c 69 63  |1,iwd%,ihe%,3,ic|
000003e0  70 6e 74 2c 34 30 29 3a  69 63 70 6e 74 2b 3d 34  |pnt,40):icpnt+=4|
000003f0  30 0d 00 dc 2a f2 73 65  74 77 69 6e 64 6f 77 74  |0...*.setwindowt|
00000400  69 74 6c 65 74 65 78 74  28 6d 61 69 6e 77 69 6e  |itletext(mainwin|
00000410  2c 70 72 6f 67 6e 61 6d  65 24 29 0d 00 e6 39 f2  |,progname$)...9.|
00000420  74 65 6d 70 6c 61 74 65  76 61 72 73 3a f2 63 72  |templatevars:.cr|
00000430  65 61 74 65 73 70 72 69  74 65 28 73 70 72 69 74  |eatesprite(sprit|
00000440  65 6e 61 6d 65 24 2c 69  77 64 25 2c 69 68 65 25  |ename$,iwd%,ihe%|
00000450  2c 31 32 29 0d 00 f0 2f  f2 72 65 61 64 63 6f 6f  |,12).../.readcoo|
00000460  72 64 73 3a f2 75 70 64  61 74 65 63 6f 6f 72 64  |rds:.updatecoord|
00000470  73 3a f2 72 65 61 64 63  6f 6d 6d 61 6e 64 69 63  |s:.readcommandic|
00000480  6f 6e 73 0d 00 fa 33 73  74 61 74 75 73 25 3d 30  |ons...3status%=0|
00000490  3a 64 72 61 77 66 6c 25  3d a3 3a f2 70 72 6f 67  |:drawfl%=.:.prog|
000004a0  72 61 6d 66 69 6e 69 73  68 65 64 3a f2 73 65 74  |ramfinished:.set|
000004b0  75 70 68 65 6c 70 0d 01  04 27 f2 75 6e 73 65 6c  |uphelp...'.unsel|
000004c0  65 63 74 61 62 6c 65 28  70 72 6f 67 72 61 6d 2c  |ectable(program,|
000004d0  31 30 29 3a f2 64 72 61  77 69 63 6f 6e 0d 01 0e  |10):.drawicon...|
000004e0  05 3a 0d 01 18 12 71 75  69 74 25 3d a3 3a 65 6e  |.:....quit%=.:en|
000004f0  64 25 3d b9 0d 01 22 19  ee 20 85 20 f2 65 72 72  |d%=...".. . .err|
00000500  6f 72 28 70 72 6f 67 6e  61 6d 65 24 29 0d 01 2c  |or(progname$)..,|
00000510  05 f5 0d 01 36 17 e7 20  71 75 69 74 25 3c 3e b9  |....6.. quit%<>.|
00000520  20 f2 70 6f 6c 6c 28 30  29 0d 01 40 0b fd 20 71  | .poll(0)..@.. q|
00000530  75 69 74 25 0d 01 4a 19  c8 99 20 22 57 69 6d 70  |uit%..J... "Wimp|
00000540  5f 43 6c 6f 73 65 44 6f  77 6e 22 3a e0 0d 01 54  |_CloseDown":...T|
00000550  05 3a 0d 01 5e 31 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |.:..^1. --------|
00000560  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000580  2d 2d 2d 0d 01 68 31 f4  20 7c 20 20 20 57 69 6d  |---..h1. |   Wim|
00000590  70 20 50 6f 6c 6c 69 6e  67 20 72 65 6c 61 74 65  |p Polling relate|
000005a0  64 20 70 72 6f 63 65 64  75 72 65 73 20 20 20 20  |d procedures    |
000005b0  20 20 20 7c 0d 01 72 31  f4 20 2d 2d 2d 2d 2d 2d  |   |..r1. ------|
000005c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005e0  2d 2d 2d 2d 2d 0d 01 7c  05 3a 0d 01 86 11 dd f2  |-----..|.:......|
000005f0  70 6f 6c 6c 28 6d 61 73  6b 25 29 0d 01 90 29 c8  |poll(mask%)...).|
00000600  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 6d 61  |. "Wimp_Poll",ma|
00000610  73 6b 25 2c 71 25 20 b8  20 72 65 61 73 6f 6e 63  |sk%,q% . reasonc|
00000620  6f 64 65 25 0d 01 9a 16  20 20 c8 8e 20 72 65 61  |ode%....  .. rea|
00000630  73 6f 6e 63 6f 64 65 25  20 ca 0d 01 a4 1e 20 20  |soncode% .....  |
00000640  c9 20 30 3a e7 20 65 6e  64 25 3d a3 20 f2 72 75  |. 0:. end%=. .ru|
00000650  6e 70 72 6f 67 72 61 6d  0d 01 ae 20 20 20 c9 20  |nprogram...   . |
00000660  31 3a f2 72 65 64 72 61  77 5f 77 69 6e 64 6f 77  |1:.redraw_window|
00000670  5f 72 65 71 75 65 73 74  0d 01 b8 24 20 20 c9 20  |_request...$  . |
00000680  32 3a f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 5f 72  |2:.open_window_r|
00000690  65 71 75 65 73 74 28 71  25 21 30 29 0d 01 c2 25  |equest(q%!0)...%|
000006a0  20 20 c9 20 33 3a f2 63  6c 6f 73 65 5f 77 69 6e  |  . 3:.close_win|
000006b0  64 6f 77 5f 72 65 71 75  65 73 74 28 71 25 21 30  |dow_request(q%!0|
000006c0  29 0d 01 cc 32 20 20 c9  20 36 3a f2 6d 6f 75 73  |)...2  . 6:.mous|
000006d0  65 5f 63 6c 69 63 6b 28  71 25 21 30 2c 71 25 21  |e_click(q%!0,q%!|
000006e0  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
000006f0  31 36 29 0d 01 d6 17 20  20 c9 20 37 3a f2 64 72  |16)....  . 7:.dr|
00000700  61 67 66 69 6e 69 73 68  65 64 0d 01 e0 27 20 20  |agfinished...'  |
00000710  c9 20 38 3a f2 6b 65 79  5f 70 72 65 73 73 65 64  |. 8:.key_pressed|
00000720  28 71 25 21 30 2c 71 25  21 34 2c 71 25 21 32 34  |(q%!0,q%!4,q%!24|
00000730  29 0d 01 ea 2f 20 20 c9  20 39 3a f2 6d 65 6e 75  |).../  . 9:.menu|
00000740  5f 73 65 6c 65 63 74 69  6f 6e 28 71 25 21 30 2c  |_selection(q%!0,|
00000750  71 25 21 34 2c 71 25 21  38 2c 71 25 21 31 32 29  |q%!4,q%!8,q%!12)|
00000760  0d 01 f4 16 20 20 c9 20  31 37 2c 31 38 3a f2 72  |....  . 17,18:.r|
00000770  65 63 69 65 76 65 0d 01  fe 07 20 20 cb 0d 02 08  |ecieve....  ....|
00000780  05 e1 0d 02 12 05 3a 0d  02 1c 1b dd f2 72 65 64  |......:......red|
00000790  72 61 77 5f 77 69 6e 64  6f 77 5f 72 65 71 75 65  |raw_window_reque|
000007a0  73 74 0d 02 26 26 c8 99  20 22 57 69 6d 70 5f 52  |st..&&.. "Wimp_R|
000007b0  65 64 72 61 77 57 69 6e  64 6f 77 22 2c 2c 71 25  |edrawWindow",,q%|
000007c0  20 b8 20 6d 6f 72 65 25  0d 02 30 0c c8 95 20 6d  | . more%..0... m|
000007d0  6f 72 65 25 0d 02 3a 34  f2 72 65 64 72 61 77 73  |ore%..:4.redraws|
000007e0  70 72 69 74 65 28 71 25  21 34 2c 71 25 21 38 2c  |prite(q%!4,q%!8,|
000007f0  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
00000800  30 2c 71 25 21 32 34 29  0d 02 44 26 c8 99 20 22  |0,q%!24)..D&.. "|
00000810  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
00000820  65 22 2c 2c 71 25 20 b8  20 6d 6f 72 65 25 0d 02  |e",,q% . more%..|
00000830  4e 05 ce 0d 02 58 05 e1  0d 02 62 05 3a 0d 02 6c  |N....X....b.:..l|
00000840  22 dd f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 5f 72  |"..open_window_r|
00000850  65 71 75 65 73 74 28 68  61 6e 64 6c 65 25 29 0d  |equest(handle%).|
00000860  02 76 40 e7 20 68 61 6e  64 6c 65 25 3d 6d 61 69  |.v@. handle%=mai|
00000870  6e 77 69 6e 20 f2 6f 70  65 6e 6d 61 69 6e 77 69  |nwin .openmainwi|
00000880  6e 64 6f 77 20 8b 20 c8  99 20 22 57 69 6d 70 5f  |ndow . .. "Wimp_|
00000890  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
000008a0  02 80 05 e1 0d 02 8a 05  3a 0d 02 94 23 dd f2 63  |........:...#..c|
000008b0  6c 6f 73 65 5f 77 69 6e  64 6f 77 5f 72 65 71 75  |lose_window_requ|
000008c0  65 73 74 28 68 61 6e 64  6c 65 25 29 0d 02 9e 12  |est(handle%)....|
000008d0  20 20 c8 8e 20 68 61 6e  64 6c 65 25 20 ca 0d 02  |  .. handle% ...|
000008e0  a8 1e 20 20 c9 20 6d 61  69 6e 77 69 6e 2c 63 6f  |..  . mainwin,co|
000008f0  6f 72 64 73 2c 63 6f 6d  6d 61 6e 64 0d 02 b2 2c  |ords,command...,|
00000900  20 20 71 25 21 30 3d 6d  61 69 6e 77 69 6e 3a c8  |  q%!0=mainwin:.|
00000910  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00000920  64 6f 77 22 2c 2c 71 25  0d 02 bc 2b 20 20 71 25  |dow",,q%...+  q%|
00000930  21 30 3d 63 6f 6f 72 64  73 3a c8 99 20 22 57 69  |!0=coords:.. "Wi|
00000940  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000950  2c 71 25 0d 02 c6 2c 20  20 71 25 21 30 3d 63 6f  |,q%...,  q%!0=co|
00000960  6d 6d 61 6e 64 3a c8 99  20 22 57 69 6d 70 5f 43  |mmand:.. "Wimp_C|
00000970  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |loseWindow",,q%.|
00000980  02 d0 21 20 20 7f 3a c8  99 20 22 57 69 6d 70 5f  |..!  .:.. "Wimp_|
00000990  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |CloseWindow",,q%|
000009a0  0d 02 da 07 20 20 cb 0d  02 e4 05 e1 0d 02 ee 05  |....  ..........|
000009b0  3a 0d 02 f8 29 dd f2 6d  6f 75 73 65 5f 63 6c 69  |:...)..mouse_cli|
000009c0  63 6b 28 78 25 2c 79 25  2c 62 25 2c 68 61 6e 64  |ck(x%,y%,b%,hand|
000009d0  6c 65 25 2c 69 63 6f 6e  25 29 0d 03 02 12 20 20  |le%,icon%)....  |
000009e0  c8 8e 20 68 61 6e 64 6c  65 25 20 ca 0d 03 0c 12  |.. handle% .....|
000009f0  20 20 c9 20 2d 32 3a c8  8e 20 62 25 20 ca 0d 03  |  . -2:.. b% ...|
00000a00  16 1e 20 20 20 20 20 20  20 20 20 20 c9 20 32 3a  |..          . 2:|
00000a10  f2 69 63 6f 6e 62 61 72  6d 65 6e 75 0d 03 20 54  |.iconbarmenu.. T|
00000a20  20 20 20 20 20 20 20 20  20 20 c9 20 34 3a f2 66  |          . 4:.f|
00000a30  72 6f 6e 74 6d 61 69 6e  77 69 6e 3a f2 6f 70 65  |rontmainwin:.ope|
00000a40  6e 74 6f 66 72 6f 6e 74  28 63 6f 6d 6d 61 6e 64  |ntofront(command|
00000a50  29 3a e7 20 65 6e 64 25  3d b9 20 f2 70 75 74 63  |):. end%=. .putc|
00000a60  61 72 65 74 28 63 6f 6d  6d 61 6e 64 2c 31 31 29  |aret(command,11)|
00000a70  0d 03 2a 0f 20 20 20 20  20 20 20 20 20 20 cb 0d  |..*.          ..|
00000a80  03 34 26 20 20 c9 20 6d  61 69 6e 77 69 6e 2c 63  |.4&  . mainwin,c|
00000a90  6f 6d 6d 61 6e 64 2c 63  6f 6f 72 64 73 3a c8 8e  |ommand,coords:..|
00000aa0  20 62 25 20 ca 0d 03 3e  1b 20 20 20 20 20 20 20  | b% ...>.       |
00000ab0  20 20 20 c9 20 32 3a f2  6d 61 69 6e 6d 65 6e 75  |   . 2:.mainmenu|
00000ac0  0d 03 48 29 20 20 20 20  20 20 20 20 20 20 c9 20  |..H)          . |
00000ad0  34 2c 31 3a f2 6f 70 65  6e 74 6f 66 72 6f 6e 74  |4,1:.opentofront|
00000ae0  28 63 6f 6d 6d 61 6e 64  29 0d 03 52 38 20 20 20  |(command)..R8   |
00000af0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b00  e7 20 73 74 61 74 75 73  25 3c 32 20 f2 70 75 74  |. status%<2 .put|
00000b10  63 61 72 65 74 28 63 6f  6d 6d 61 6e 64 2c 31 31  |caret(command,11|
00000b20  29 0d 03 5c 0f 20 20 20  20 20 20 20 20 20 20 cb  |)..\.          .|
00000b30  0d 03 66 17 20 20 c9 20  73 61 76 65 3a c8 8e 20  |..f.  . save:.. |
00000b40  69 63 6f 6e 25 20 ca 0d  03 70 2b 20 20 20 20 20  |icon% ...p+     |
00000b50  20 20 20 20 20 c9 20 33  3a 73 61 76 68 61 6e 64  |     . 3:savhand|
00000b60  6c 65 25 3d 73 61 76 65  3a f2 73 61 76 65 64 72  |le%=save:.savedr|
00000b70  61 67 0d 03 7a 29 20 20  20 20 20 20 20 20 20 20  |ag..z)          |
00000b80  c9 20 30 3a 73 61 76 68  61 6e 64 6c 65 25 3d 73  |. 0:savhandle%=s|
00000b90  61 76 65 3a f2 73 61 76  65 6f 6b 0d 03 84 0f 20  |ave:.saveok.... |
00000ba0  20 20 20 20 20 20 20 20  20 cb 0d 03 8e 1a 20 20  |         .....  |
00000bb0  c9 20 70 72 6f 67 72 61  6d 3a c8 8e 20 69 63 6f  |. program:.. ico|
00000bc0  6e 25 20 ca 0d 03 98 2e  20 20 20 20 20 20 20 20  |n% .....        |
00000bd0  20 20 c9 20 33 3a 73 61  76 68 61 6e 64 6c 65 25  |  . 3:savhandle%|
00000be0  3d 70 72 6f 67 72 61 6d  3a f2 73 61 76 65 64 72  |=program:.savedr|
00000bf0  61 67 0d 03 a2 1b 20 20  20 20 20 20 20 20 20 20  |ag....          |
00000c00  c9 20 37 3a f2 64 72 61  77 69 63 6f 6e 0d 03 ac  |. 7:.drawicon...|
00000c10  2c 20 20 20 20 20 20 20  20 20 20 c9 20 31 30 3a  |,          . 10:|
00000c20  e7 20 73 74 61 74 75 73  25 3d 31 20 f2 73 74 61  |. status%=1 .sta|
00000c30  72 74 70 72 6f 67 72 61  6d 0d 03 b6 2f 20 20 20  |rtprogram.../   |
00000c40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 e7  |               .|
00000c50  20 73 74 61 74 75 73 25  3d 32 20 f2 70 61 75 73  | status%=2 .paus|
00000c60  65 70 72 6f 67 72 61 6d  0d 03 c0 2f 20 20 20 20  |eprogram.../    |
00000c70  20 20 20 20 20 20 c9 20  31 32 3a e7 20 73 74 61  |      . 12:. sta|
00000c80  74 75 73 25 3d 32 20 f2  70 72 6f 67 72 61 6d 66  |tus%=2 .programf|
00000c90  69 6e 69 73 68 65 64 0d  03 ca 31 20 20 20 20 20  |inished...1     |
00000ca0  20 20 20 20 20 20 20 20  20 20 20 20 20 e7 20 73  |             . s|
00000cb0  74 61 74 75 73 25 3d 33  20 f2 75 6e 70 61 75 73  |tatus%=3 .unpaus|
00000cc0  65 70 72 6f 67 72 61 6d  0d 03 d4 2a 20 20 20 20  |eprogram...*    |
00000cd0  20 20 20 20 20 20 c9 20  32 33 3a 73 61 76 68 61  |      . 23:savha|
00000ce0  6e 64 6c 65 25 3d 2d 31  3a f2 73 61 76 65 64 72  |ndle%=-1:.savedr|
00000cf0  61 67 0d 03 de 0f 20 20  20 20 20 20 20 20 20 20  |ag....          |
00000d00  cb 0d 03 e8 19 20 20 c9  20 68 65 6c 70 3a f2 68  |.....  . help:.h|
00000d10  65 6c 70 28 69 63 6f 6e  25 29 0d 03 f2 07 20 20  |elp(icon%)....  |
00000d20  cb 0d 03 fc 05 e1 0d 04  06 05 3a 0d 04 10 25 dd  |..........:...%.|
00000d30  f2 6b 65 79 5f 70 72 65  73 73 65 64 28 77 69 6e  |.key_pressed(win|
00000d40  64 6f 77 25 2c 69 63 6f  6e 25 2c 6b 65 79 25 29  |dow%,icon%,key%)|
00000d50  0d 04 1a 3e e7 20 77 69  6e 64 6f 77 25 3d 73 61  |...>. window%=sa|
00000d60  76 65 20 80 20 69 63 6f  6e 25 3d 30 20 80 20 6b  |ve . icon%=0 . k|
00000d70  65 79 25 3d 31 33 20 73  61 76 68 61 6e 64 6c 65  |ey%=13 savhandle|
00000d80  25 3d 73 61 76 65 3a f2  73 61 76 65 6f 6b 0d 04  |%=save:.saveok..|
00000d90  24 21 e7 20 77 69 6e 64  6f 77 25 3d 63 6f 6d 6d  |$!. window%=comm|
00000da0  61 6e 64 20 80 20 6b 65  79 25 3d 31 33 20 8c 0d  |and . key%=13 ..|
00000db0  04 2e 2c f2 73 63 72 6f  6c 6c 75 70 3a 63 6f 6d  |..,.scrollup:com|
00000dc0  24 3d a4 72 65 61 64 69  63 6f 6e 74 65 78 74 28  |$=.readicontext(|
00000dd0  63 6f 6d 6d 61 6e 64 2c  31 31 29 0d 04 38 3f f2  |command,11)..8?.|
00000de0  73 65 74 69 63 6f 6e 74  65 78 74 28 63 6f 6d 6d  |seticontext(comm|
00000df0  61 6e 64 2c 31 31 2c 22  22 29 3a f2 73 65 74 69  |and,11,""):.seti|
00000e00  63 6f 6e 74 65 78 74 28  63 6f 6d 6d 61 6e 64 2c  |context(command,|
00000e10  35 2c 22 4c 6f 47 6f 3a  22 29 0d 04 42 2c f2 70  |5,"LoGo:")..B,.p|
00000e20  75 74 63 61 72 65 74 28  63 6f 6d 6d 61 6e 64 2c  |utcaret(command,|
00000e30  31 31 29 3a f2 63 6f 6d  6d 61 6e 64 6c 69 6e 65  |11):.commandline|
00000e40  28 63 6f 6d 24 29 0d 04  4c 05 cc 0d 04 56 1d c8  |(com$)..L....V..|
00000e50  99 20 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |. "Wimp_ProcessK|
00000e60  65 79 22 2c 6b 65 79 25  0d 04 60 07 cd 3a e1 0d  |ey",key%..`..:..|
00000e70  04 6a 05 3a 0d 04 74 2d  dd f2 6d 65 6e 75 5f 73  |.j.:..t-..menu_s|
00000e80  65 6c 65 63 74 69 6f 6e  28 6f 70 74 31 25 2c 6f  |election(opt1%,o|
00000e90  70 74 32 25 2c 6f 70 74  33 25 2c 6f 70 74 34 25  |pt2%,opt3%,opt4%|
00000ea0  29 0d 04 7e 16 20 20 c8  8e 20 6d 65 6e 75 68 61  |)..~.  .. menuha|
00000eb0  6e 64 6c 65 25 20 ca 0d  04 88 14 20 20 c9 20 30  |ndle% .....  . 0|
00000ec0  3a c8 8e 20 6f 70 74 31  25 20 ca 0d 04 92 18 20  |:.. opt1% ..... |
00000ed0  20 20 20 20 20 20 20 20  c9 20 31 3a 71 75 69 74  |        . 1:quit|
00000ee0  25 3d b9 0d 04 9c 0e 20  20 20 20 20 20 20 20 20  |%=.....         |
00000ef0  cb 0d 04 a6 15 20 20 c9  20 31 20 3a c8 8e 20 6f  |.....  . 1 :.. o|
00000f00  70 74 31 25 20 ca 0d 04  b0 27 20 20 20 20 20 20  |pt1% ....'      |
00000f10  20 20 20 20 c9 20 30 3a  f2 6f 70 65 6e 74 6f 66  |    . 0:.opentof|
00000f20  72 6f 6e 74 28 70 72 6f  67 72 61 6d 29 0d 04 ba  |ront(program)...|
00000f30  24 20 20 20 20 20 20 20  20 20 20 c9 20 32 3a f2  |$          . 2:.|
00000f40  6f 70 65 6e 74 6f 66 72  6f 6e 74 28 68 65 6c 70  |opentofront(help|
00000f50  29 0d 04 c4 0f 20 20 20  20 20 20 20 20 20 20 cb  |)....          .|
00000f60  0d 04 ce 07 20 20 cb 0d  04 d8 28 c8 99 20 22 57  |....  ....(.. "W|
00000f70  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00000f80  66 6f 22 2c 2c 77 6f 72  6b 62 6c 6f 63 6b 25 0d  |fo",,workblock%.|
00000f90  04 e2 34 e7 20 77 6f 72  6b 62 6c 6f 63 6b 25 21  |..4. workblock%!|
00000fa0  38 3d 31 20 c8 99 20 22  57 69 6d 70 5f 43 72 65  |8=1 .. "Wimp_Cre|
00000fb0  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 74 72  |ateMenu",,menutr|
00000fc0  65 65 25 0d 04 ec 05 e1  0d 04 f6 05 3a 0d 05 00  |ee%.........:...|
00000fd0  0d dd f2 72 65 63 69 65  76 65 0d 05 0a 15 e7 20  |...recieve..... |
00000fe0  71 25 21 31 36 3d 30 20  71 75 69 74 25 3d b9 0d  |q%!16=0 quit%=..|
00000ff0  05 14 19 e7 20 71 25 21  31 36 3d 32 20 f2 64 61  |.... q%!16=2 .da|
00001000  74 61 73 61 76 65 3a e1  0d 05 1e 3a e7 20 71 25  |tasave:....:. q%|
00001010  21 31 36 3d 33 20 e7 20  71 25 21 34 30 3d 26 46  |!16=3 . q%!40=&F|
00001020  46 46 20 f2 6c 6f 61 64  70 72 6f 67 72 61 6d 28  |FF .loadprogram(|
00001030  a4 67 65 74 73 74 72 69  6e 67 28 71 25 2b 34 34  |.getstring(q%+44|
00001040  29 29 0d 05 28 05 e1 0d  05 32 05 3a 0d 05 3c 38  |))..(....2.:..<8|
00001050  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00001060  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001080  2d 2d 2d 2d 0d 05 46 38  f4 20 7c 20 20 20 20 20  |----..F8. |     |
00001090  20 50 72 6f 67 72 61 6d  20 53 70 65 63 69 66 69  | Program Specifi|
000010a0  63 20 46 75 6e 63 74 69  6f 6e 73 20 26 20 50 72  |c Functions & Pr|
000010b0  6f 63 65 64 75 72 65 73  20 20 20 7c 0d 05 50 38  |ocedures   |..P8|
000010c0  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
000010d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000010f0  2d 2d 2d 2d 0d 05 5a 05  3a 0d 05 64 19 dd a4 67  |----..Z.:..d...g|
00001100  65 74 73 74 72 69 6e 67  28 61 64 64 72 65 73 73  |etstring(address|
00001110  25 29 0d 05 6e 1b 41 24  3d 22 22 3a f5 3a 63 68  |%)..n.A$="":.:ch|
00001120  61 72 25 3d 3f 61 64 64  72 65 73 73 25 0d 05 78  |ar%=?address%..x|
00001130  1d e7 20 63 68 61 72 25  3e 33 31 20 41 24 3d 41  |.. char%>31 A$=A|
00001140  24 2b bd 28 63 68 61 72  25 29 0d 05 82 1e 61 64  |$+.(char%)....ad|
00001150  64 72 65 73 73 25 2b 3d  31 3a fd 20 63 68 61 72  |dress%+=1:. char|
00001160  25 3c 33 32 3a 3d 41 24  0d 05 8c 05 3a 0d 05 96  |%<32:=A$....:...|
00001170  11 dd f2 68 65 6c 70 28  69 63 6f 6e 25 29 0d 05  |...help(icon%)..|
00001180  a0 10 e7 20 69 63 6f 6e  25 3c 31 33 20 e1 0d 05  |... icon%<13 ...|
00001190  aa 0a f7 20 8d 44 40 46  0d 05 b4 35 e3 20 6e 75  |... .D@F...5. nu|
000011a0  6d 62 65 72 25 3d 31 33  20 b8 20 69 63 6f 6e 25  |mber%=13 . icon%|
000011b0  3a f3 20 63 6f 6d 24 2c  73 79 6e 74 61 78 24 2c  |:. com$,syntax$,|
000011c0  61 62 62 72 65 76 24 2c  70 75 72 70 24 0d 05 be  |abbrev$,purp$...|
000011d0  23 ed 3a f2 73 65 74 69  63 6f 6e 74 65 78 74 28  |#.:.seticontext(|
000011e0  68 65 6c 70 2c 31 30 2c  73 79 6e 74 61 78 24 29  |help,10,syntax$)|
000011f0  0d 05 c8 21 f2 73 65 74  69 63 6f 6e 74 65 78 74  |...!.seticontext|
00001200  28 68 65 6c 70 2c 31 31  2c 61 62 62 72 65 76 24  |(help,11,abbrev$|
00001210  29 0d 05 d2 1f f2 73 65  74 69 63 6f 6e 74 65 78  |).....seticontex|
00001220  74 28 68 65 6c 70 2c 31  32 2c 70 75 72 70 24 29  |t(help,12,purp$)|
00001230  0d 05 dc 05 e1 0d 05 e6  05 3a 0d 05 f0 0f dd f2  |.........:......|
00001240  73 65 74 75 70 68 65 6c  70 0d 05 fa 0a f7 20 8d  |setuphelp..... .|
00001250  44 40 46 0d 06 04 13 e3  20 69 63 6f 6e 25 3d 31  |D@F..... icon%=1|
00001260  33 20 b8 20 33 36 0d 06  0e 20 f3 20 63 6f 6d 24  |3 . 36... . com$|
00001270  2c 73 79 6e 74 61 78 24  2c 61 62 62 72 65 76 24  |,syntax$,abbrev$|
00001280  2c 70 75 72 70 24 0d 06  18 21 f2 73 65 74 69 63  |,purp$...!.setic|
00001290  6f 6e 74 65 78 74 28 68  65 6c 70 2c 69 63 6f 6e  |ontext(help,icon|
000012a0  25 2c 63 6f 6d 24 29 0d  06 22 05 ed 0d 06 2c 05  |%,com$).."....,.|
000012b0  e1 0d 06 36 05 3a 0d 06  40 65 dc 20 22 46 4f 52  |...6.:..@e. "FOR|
000012c0  57 41 52 44 22 2c 22 46  6f 72 77 61 72 64 20 3c  |WARD","Forward <|
000012d0  44 69 73 74 61 6e 63 65  3e 22 2c 22 46 2e 22 2c  |Distance>","F.",|
000012e0  22 54 68 69 73 20 63 6f  6d 6d 61 6e 64 20 6d 6f  |"This command mo|
000012f0  76 65 73 20 74 68 65 20  74 75 72 74 6c 65 20 66  |ves the turtle f|
00001300  6f 72 77 61 72 64 20 61  20 73 65 63 69 66 69 65  |orward a secifie|
00001310  64 20 64 69 73 74 61 6e  63 65 22 0d 06 4a 64 dc  |d distance"..Jd.|
00001320  20 22 42 41 43 4b 22 2c  22 42 61 63 6b 20 3c 44  | "BACK","Back <D|
00001330  69 73 74 61 6e 63 65 3e  22 2c 22 42 2e 22 2c 22  |istance>","B.","|
00001340  54 68 69 73 20 63 6f 6d  6d 61 6e 64 20 6d 6f 76  |This command mov|
00001350  65 73 20 74 68 65 20 74  75 72 74 6c 65 20 62 61  |es the turtle ba|
00001360  63 6b 77 61 72 64 73 20  74 68 65 20 73 70 65 63  |ckwards the spec|
00001370  69 66 69 65 64 20 64 69  73 74 61 6e 63 65 22 0d  |ified distance".|
00001380  06 54 5b dc 20 22 4c 45  46 54 22 2c 22 4c 65 66  |.T[. "LEFT","Lef|
00001390  74 20 3c 41 6e 67 6c 65  3e 22 2c 22 4c 2e 22 2c  |t <Angle>","L.",|
000013a0  22 54 75 72 6e 73 20 74  68 65 20 74 75 72 74 6c  |"Turns the turtl|
000013b0  65 20 61 6e 74 69 2d 63  6c 6f 63 6b 77 69 73 65  |e anti-clockwise|
000013c0  20 74 68 72 6f 75 67 68  20 3c 61 6e 67 6c 65 3e  | through <angle>|
000013d0  20 20 64 65 67 72 65 65  73 22 0d 06 5e 58 dc 20  |  degrees"..^X. |
000013e0  22 52 49 47 48 54 22 2c  22 52 69 67 68 74 20 3c  |"RIGHT","Right <|
000013f0  41 6e 67 6c 65 3e 22 2c  22 52 2e 22 2c 22 54 75  |Angle>","R.","Tu|
00001400  72 6e 73 20 74 68 65 20  74 75 72 74 6c 65 20 63  |rns the turtle c|
00001410  6c 6f 63 6b 77 69 73 65  20 74 68 72 6f 75 67 68  |lockwise through|
00001420  20 3c 61 6e 67 6c 65 3e  20 20 64 65 67 72 65 65  | <angle>  degree|
00001430  73 22 0d 06 68 4d dc 20  22 41 4e 47 4c 45 22 2c  |s"..hM. "ANGLE",|
00001440  22 41 6e 67 6c 65 20 3c  61 6e 67 6c 65 3e 22 2c  |"Angle <angle>",|
00001450  22 41 2e 22 2c 22 53 65  74 73 20 74 68 65 20 74  |"A.","Sets the t|
00001460  75 72 74 6c 65 20 61 6e  67 6c 65 20 74 6f 20 3c  |urtle angle to <|
00001470  61 6e 67 6c 65 3e 20 64  65 67 72 65 65 73 22 0d  |angle> degrees".|
00001480  06 72 53 dc 20 22 50 45  4e 43 4f 4c 4f 55 52 22  |.rS. "PENCOLOUR"|
00001490  2c 22 50 65 6e 43 6f 6c  6f 75 72 20 3c 63 6f 6c  |,"PenColour <col|
000014a0  6f 75 72 3e 22 2c 22 50  65 6e 43 2e 22 2c 22 53  |our>","PenC.","S|
000014b0  65 74 73 20 74 68 65 20  64 72 61 77 69 6e 67 20  |ets the drawing |
000014c0  63 6f 6c 6f 75 72 20 74  6f 20 3c 63 6f 6c 6f 75  |colour to <colou|
000014d0  72 22 0d 06 7c 4c dc 20  22 50 45 4e 44 4f 57 4e  |r"..|L. "PENDOWN|
000014e0  22 2c 22 50 65 6e 44 6f  77 6e 22 2c 22 50 65 6e  |","PenDown","Pen|
000014f0  44 2e 22 2c 22 54 65 6c  6c 73 20 74 68 65 20 74  |D.","Tells the t|
00001500  75 72 74 6c 65 20 74 6f  20 64 72 61 77 20 6c 69  |urtle to draw li|
00001510  6e 65 73 20 62 65 68 69  6e 64 20 69 74 22 0d 06  |nes behind it"..|
00001520  86 48 dc 20 22 50 45 4e  55 50 22 2c 22 50 65 6e  |.H. "PENUP","Pen|
00001530  55 70 22 2c 22 50 65 6e  55 2e 22 2c 22 53 74 6f  |Up","PenU.","Sto|
00001540  70 73 20 74 68 65 20 74  75 72 74 6c 65 20 64 72  |ps the turtle dr|
00001550  61 77 69 6e 67 20 6c 69  6e 65 73 20 62 65 68 69  |awing lines behi|
00001560  6e 64 20 69 74 22 0d 06  90 4a dc 20 22 43 4c 45  |nd it"...J. "CLE|
00001570  41 52 22 2c 22 43 6c 65  61 72 22 2c 22 43 6c 2e  |AR","Clear","Cl.|
00001580  22 2c 22 43 6c 65 61 72  73 20 74 68 65 20 6c 6f  |","Clears the lo|
00001590  67 6f 20 77 69 6e 64 6f  77 20 74 6f 20 61 20 77  |go window to a w|
000015a0  68 69 74 65 20 62 61 63  6b 67 72 6f 75 6e 64 22  |hite background"|
000015b0  0d 06 9a 41 dc 20 22 48  4f 4d 45 22 2c 22 48 6f  |...A. "HOME","Ho|
000015c0  6d 65 22 2c 22 48 6f 2e  22 2c 22 4d 6f 76 65 73  |me","Ho.","Moves|
000015d0  20 74 68 65 20 74 75 72  74 6c 65 20 74 6f 20 74  | the turtle to t|
000015e0  68 65 20 68 6f 6d 65 20  70 6f 73 69 74 69 6f 6e  |he home position|
000015f0  22 0d 06 a4 50 dc 20 22  53 45 54 48 4f 4d 45 22  |"...P. "SETHOME"|
00001600  2c 22 53 65 74 48 6f 6d  65 22 2c 22 53 65 74 48  |,"SetHome","SetH|
00001610  2e 22 2c 22 4d 61 6b 65  73 20 74 68 65 20 63 75  |.","Makes the cu|
00001620  72 72 65 6e 74 20 70 6f  73 69 74 69 6f 6e 20 74  |rrent position t|
00001630  68 65 20 68 6f 6d 65 20  70 6f 73 69 74 69 6f 6e  |he home position|
00001640  22 0d 06 ae 44 dc 20 22  52 45 53 54 41 52 54 22  |"...D. "RESTART"|
00001650  2c 22 52 65 53 74 61 72  74 22 2c 22 52 65 53 2e  |,"ReStart","ReS.|
00001660  22 2c 22 52 65 73 65 74  73 20 74 68 65 20 6c 6f  |","Resets the lo|
00001670  67 6f 20 73 79 73 74 65  6d 20 63 6f 6d 70 6c 65  |go system comple|
00001680  74 65 6c 79 22 0d 06 b8  3c dc 20 22 48 45 4c 50  |tely"...<. "HELP|
00001690  22 2c 22 48 65 6c 70 20  3c 63 6f 6d 6d 61 6e 64  |","Help <command|
000016a0  3e 22 2c 22 48 2e 22 2c  22 47 69 76 65 73 20 68  |>","H.","Gives h|
000016b0  65 6c 70 20 6f 6e 20 3c  63 6f 6d 6d 61 6e 64 3e  |elp on <command>|
000016c0  22 0d 06 c2 47 dc 20 22  2f 22 2c 22 2f 22 2c 22  |"...G. "/","/","|
000016d0  2f 22 2c 22 41 6c 6c 6f  77 73 20 63 6f 6d 6d 65  |/","Allows comme|
000016e0  6e 74 73 20 74 6f 20 62  65 20 69 6e 73 65 72 74  |nts to be insert|
000016f0  65 64 20 69 6e 20 74 65  78 74 66 69 6c 65 20 70  |ed in textfile p|
00001700  72 6f 67 72 61 6d 73 22  0d 06 cc 41 dc 20 22 52  |rograms"...A. "R|
00001710  55 4e 22 2c 22 52 75 6e  22 2c 22 52 75 6e 22 2c  |UN","Run","Run",|
00001720  22 54 65 6c 6c 73 20 6c  6f 67 6f 20 74 6f 20 73  |"Tells logo to s|
00001730  74 61 72 74 20 74 68 65  20 63 75 72 72 65 6e 74  |tart the current|
00001740  20 70 72 6f 67 72 61 6d  22 0d 06 d6 50 dc 20 22  | program"...P. "|
00001750  46 49 4e 49 53 48 22 2c  22 46 69 6e 69 73 68 22  |FINISH","Finish"|
00001760  2c 22 46 69 6e 69 73 68  22 2c 22 54 65 6c 6c 73  |,"Finish","Tells|
00001770  20 74 68 65 20 74 75 72  74 6c 65 20 74 68 61 74  | the turtle that|
00001780  20 74 68 65 20 70 72 6f  67 72 61 6d 20 69 73 20  | the program is |
00001790  66 69 6e 69 73 68 65 64  22 0d 06 e0 11 dc 20 22  |finished"..... "|
000017a0  22 2c 22 22 2c 22 22 2c  22 22 0d 06 ea 11 dc 20  |","","",""..... |
000017b0  22 22 2c 22 22 2c 22 22  2c 22 22 0d 06 f4 49 dc  |"","","",""...I.|
000017c0  20 22 5b 22 2c 22 5b 20  3c 6e 75 6d 62 65 72 3e  | "[","[ <number>|
000017d0  22 2c 22 5b 22 2c 22 43  72 65 61 74 65 73 20 61  |","[","Creates a|
000017e0  20 6c 6f 6f 70 20 74 6f  20 62 65 20 72 65 70 65  | loop to be repe|
000017f0  61 74 65 64 20 3c 6e 75  6d 62 65 72 3e 20 74 69  |ated <number> ti|
00001800  6d 65 73 22 0d 06 fe 2b  dc 20 22 5d 22 2c 22 5d  |mes"...+. "]","]|
00001810  22 2c 22 5d 22 2c 22 43  6c 6f 73 65 73 20 74 68  |","]","Closes th|
00001820  65 20 63 75 72 72 65 6e  74 20 6c 6f 6f 70 22 0d  |e current loop".|
00001830  07 08 55 dc 20 22 54 4f  22 2c 22 54 6f 20 3c 6e  |..U. "TO","To <n|
00001840  61 6d 65 3e 22 2c 22 54  6f 22 2c 22 54 65 6c 6c  |ame>","To","Tell|
00001850  73 20 74 68 65 20 74 75  72 74 6c 65 20 68 6f 77  |s the turtle how|
00001860  20 74 6f 20 64 72 61 77  20 3c 6e 61 6d 65 3e 20  | to draw <name> |
00001870  77 68 65 6e 20 69 74 20  69 73 20 61 73 6b 65 64  |when it is asked|
00001880  20 74 6f 22 0d 07 12 41  dc 20 22 45 4e 44 54 4f  | to"...A. "ENDTO|
00001890  22 2c 22 45 6e 64 54 6f  22 2c 22 45 6e 64 54 6f  |","EndTo","EndTo|
000018a0  22 2c 22 46 69 6e 69 73  68 65 73 20 64 65 66 69  |","Finishes defi|
000018b0  6e 69 6e 67 20 61 20 54  4f 20 73 75 62 72 6f 75  |ning a TO subrou|
000018c0  74 69 6e 65 22 0d 07 1c  11 dc 20 22 22 2c 22 22  |tine"..... "",""|
000018d0  2c 22 22 2c 22 22 0d 07  26 11 dc 20 22 22 2c 22  |,"",""..&.. "","|
000018e0  22 2c 22 22 2c 22 22 0d  07 30 05 3a 0d 07 3a 11  |","",""..0.:..:.|
000018f0  dd f2 69 63 6f 6e 62 61  72 6d 65 6e 75 0d 07 44  |..iconbarmenu..D|
00001900  26 6d 65 6e 75 74 72 65  65 25 3d 6d 65 6e 75 62  |&menutree%=menub|
00001910  6c 6f 63 6b 25 3a 6d 65  6e 75 68 61 6e 64 6c 65  |lock%:menuhandle|
00001920  25 3d 30 0d 07 4e 35 70  74 72 25 3d a4 63 72 6d  |%=0..N5ptr%=.crm|
00001930  75 28 22 49 6e 66 6f 3e  69 6e 66 6f 2c 51 75 69  |u("Info>info,Qui|
00001940  74 22 2c 70 72 6f 67 6e  61 6d 65 24 2c 6d 65 6e  |t",progname$,men|
00001950  75 62 6c 6f 63 6b 25 29  0d 07 58 2e c8 99 20 22  |ublock%)..X... "|
00001960  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001970  2c 2c 6d 65 6e 75 62 6c  6f 63 6b 25 2c 78 25 2d  |,,menublock%,x%-|
00001980  36 34 2c 31 37 38 0d 07  62 05 e1 0d 07 6c 05 3a  |64,178..b....l.:|
00001990  0d 07 76 0e dd f2 6d 61  69 6e 6d 65 6e 75 0d 07  |..v...mainmenu..|
000019a0  80 21 70 74 72 25 3d 6d  65 6e 75 62 6c 6f 63 6b  |.!ptr%=menublock|
000019b0  25 3a 6d 65 6e 75 68 61  6e 64 6c 65 25 3d 31 0d  |%:menuhandle%=1.|
000019c0  07 8a 3b 6d 65 6e 75 32  3d 70 74 72 25 3a 70 74  |..;menu2=ptr%:pt|
000019d0  72 25 3d a4 63 72 6d 75  28 22 52 65 73 74 61 72  |r%=.crmu("Restar|
000019e0  74 2c 48 65 6c 70 3e 68  65 6c 70 22 2c 22 4d 69  |t,Help>help","Mi|
000019f0  73 63 22 2c 6d 65 6e 75  32 29 0d 07 94 0e 6d 65  |sc",menu2)....me|
00001a00  6e 75 31 3d 70 74 72 25  0d 07 9e 43 70 74 72 25  |nu1=ptr%...Cptr%|
00001a10  3d a4 63 72 6d 75 28 22  50 72 6f 67 72 61 6d 2c  |=.crmu("Program,|
00001a20  2d 53 61 76 65 3e 73 61  76 65 2c 48 65 6c 70 2c  |-Save>save,Help,|
00001a30  49 6e 66 6f 3e 69 6e 66  6f 22 2c 70 72 6f 67 6e  |Info>info",progn|
00001a40  61 6d 65 24 2c 6d 65 6e  75 31 29 0d 07 a8 25 c8  |ame$,menu1)...%.|
00001a50  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001a60  6e 75 22 2c 2c 6d 65 6e  75 31 2c 78 25 2c 79 25  |nu",,menu1,x%,y%|
00001a70  0d 07 b2 15 6d 65 6e 75  74 72 65 65 25 3d 6d 65  |....menutree%=me|
00001a80  6e 75 31 3a e1 0d 07 bc  05 3a 0d 07 c6 11 dd a4  |nu1:.....:......|
00001a90  74 75 72 74 6c 65 6d 6f  76 65 64 0d 07 d0 5d e7  |turtlemoved...].|
00001aa0  20 6f 6c 64 74 75 72 74  6c 65 78 3c 3e 74 75 72  | oldturtlex<>tur|
00001ab0  74 6c 65 78 70 6f 73 20  84 20 6f 6c 64 74 75 72  |tlexpos . oldtur|
00001ac0  74 6c 65 79 3c 3e 74 75  72 74 6c 65 79 70 6f 73  |tley<>turtleypos|
00001ad0  20 84 20 6f 6c 64 74 75  72 74 6c 65 61 6e 67 6c  | . oldturtleangl|
00001ae0  65 3c 3e 74 75 72 74 6c  65 61 6e 67 6c 65 20 8c  |e<>turtleangle .|
00001af0  20 3d b9 20 8b 20 3d a3  0d 07 da 05 3a 0d 07 e4  | =. . =.....:...|
00001b00  10 dd f2 6d 6f 76 65 74  75 72 74 6c 65 0d 07 ee  |...moveturtle...|
00001b10  35 e7 20 74 75 72 74 6c  65 78 70 6f 73 3d 6f 6c  |5. turtlexpos=ol|
00001b20  64 74 75 72 74 6c 65 78  20 80 20 74 75 72 74 6c  |dturtlex . turtl|
00001b30  65 79 70 6f 73 3d 6f 6c  64 74 75 72 74 6c 65 79  |eypos=oldturtley|
00001b40  20 8c 0d 07 f8 3a f2 75  70 64 61 74 65 74 75 72  | ....:.updatetur|
00001b50  74 6c 65 28 6f 6c 64 74  75 72 74 6c 65 78 2d 34  |tle(oldturtlex-4|
00001b60  32 2c 2d 69 68 65 25 2b  6f 6c 64 74 75 72 74 6c  |2,-ihe%+oldturtl|
00001b70  65 79 2d 34 34 2c 38 34  2c 38 38 29 0d 08 02 05  |ey-44,84,88)....|
00001b80  cc 0d 08 0c 3a f2 75 70  64 61 74 65 74 75 72 74  |....:.updateturt|
00001b90  6c 65 28 6f 6c 64 74 75  72 74 6c 65 78 2d 34 32  |le(oldturtlex-42|
00001ba0  2c 2d 69 68 65 25 2b 6f  6c 64 74 75 72 74 6c 65  |,-ihe%+oldturtle|
00001bb0  79 2d 34 34 2c 38 34 2c  38 38 29 0d 08 16 3a f2  |y-44,84,88)...:.|
00001bc0  75 70 64 61 74 65 74 75  72 74 6c 65 28 74 75 72  |updateturtle(tur|
00001bd0  74 6c 65 78 70 6f 73 2d  34 32 2c 2d 69 68 65 25  |tlexpos-42,-ihe%|
00001be0  2b 74 75 72 74 6c 65 79  70 6f 73 2d 34 34 2c 38  |+turtleypos-44,8|
00001bf0  34 2c 38 38 29 0d 08 20  6b e7 20 74 75 72 74 6c  |4,88).. k. turtl|
00001c00  65 78 70 6f 73 3e 6f 6c  64 74 75 72 74 6c 65 78  |expos>oldturtlex|
00001c10  20 78 25 3d 6f 6c 64 74  75 72 74 6c 65 78 3a 77  | x%=oldturtlex:w|
00001c20  25 3d 74 75 72 74 6c 65  78 70 6f 73 2d 6f 6c 64  |%=turtlexpos-old|
00001c30  74 75 72 74 6c 65 78 20  8b 20 78 25 3d 74 75 72  |turtlex . x%=tur|
00001c40  74 6c 65 78 70 6f 73 3a  77 25 3d 6f 6c 64 74 75  |tlexpos:w%=oldtu|
00001c50  72 74 6c 65 78 2d 74 75  72 74 6c 65 78 70 6f 73  |rtlex-turtlexpos|
00001c60  0d 08 2a 6b e7 20 74 75  72 74 6c 65 79 70 6f 73  |..*k. turtleypos|
00001c70  3e 6f 6c 64 74 75 72 74  6c 65 79 20 79 25 3d 6f  |>oldturtley y%=o|
00001c80  6c 64 74 75 72 74 6c 65  79 3a 68 25 3d 74 75 72  |ldturtley:h%=tur|
00001c90  74 6c 65 79 70 6f 73 2d  6f 6c 64 74 75 72 74 6c  |tleypos-oldturtl|
00001ca0  65 79 20 8b 20 79 25 3d  74 75 72 74 6c 65 79 70  |ey . y%=turtleyp|
00001cb0  6f 73 3a 68 25 3d 6f 6c  64 74 75 72 74 6c 65 79  |os:h%=oldturtley|
00001cc0  2d 74 75 72 74 6c 65 79  70 6f 73 0d 08 34 34 e7  |-turtleypos..44.|
00001cd0  20 70 65 6e 3d b9 20 f2  75 70 64 61 74 65 74 75  | pen=. .updatetu|
00001ce0  72 74 6c 65 28 78 25 2d  32 2c 2d 69 68 65 25 2b  |rtle(x%-2,-ihe%+|
00001cf0  79 25 2d 34 2c 77 25 2b  34 2c 68 25 2b 38 29 0d  |y%-4,w%+4,h%+8).|
00001d00  08 3e 07 cd 3a e1 0d 08  48 05 3a 0d 08 52 1f dd  |.>..:...H.:..R..|
00001d10  f2 75 70 64 61 74 65 74  75 72 74 6c 65 28 78 25  |.updateturtle(x%|
00001d20  2c 79 25 2c 77 25 2c 68  25 29 0d 08 5c 38 77 6f  |,y%,w%,h%)..\8wo|
00001d30  72 6b 62 6c 6f 63 6b 25  21 30 3d 6d 61 69 6e 77  |rkblock%!0=mainw|
00001d40  69 6e 3a 77 6f 72 6b 62  6c 6f 63 6b 25 21 34 3d  |in:workblock%!4=|
00001d50  78 25 3a 77 6f 72 6b 62  6c 6f 63 6b 25 21 38 3d  |x%:workblock%!8=|
00001d60  79 25 0d 08 66 2b 77 6f  72 6b 62 6c 6f 63 6b 25  |y%..f+workblock%|
00001d70  21 31 32 3d 78 25 2b 77  25 3a 77 6f 72 6b 62 6c  |!12=x%+w%:workbl|
00001d80  6f 63 6b 25 21 31 36 3d  79 25 2b 68 25 0d 08 70  |ock%!16=y%+h%..p|
00001d90  2e c8 99 20 22 57 69 6d  70 5f 55 70 64 61 74 65  |... "Wimp_Update|
00001da0  57 69 6e 64 6f 77 22 2c  2c 77 6f 72 6b 62 6c 6f  |Window",,workblo|
00001db0  63 6b 25 20 b8 20 6d 6f  72 65 25 0d 08 7a 0c c8  |ck% . more%..z..|
00001dc0  95 20 6d 6f 72 65 25 0d  08 84 64 f2 72 65 64 72  |. more%...d.redr|
00001dd0  61 77 73 70 72 69 74 65  28 77 6f 72 6b 62 6c 6f  |awsprite(workblo|
00001de0  63 6b 25 21 34 2c 77 6f  72 6b 62 6c 6f 63 6b 25  |ck%!4,workblock%|
00001df0  21 38 2c 77 6f 72 6b 62  6c 6f 63 6b 25 21 31 32  |!8,workblock%!12|
00001e00  2c 77 6f 72 6b 62 6c 6f  63 6b 25 21 31 36 2c 77  |,workblock%!16,w|
00001e10  6f 72 6b 62 6c 6f 63 6b  25 21 32 30 2c 77 6f 72  |orkblock%!20,wor|
00001e20  6b 62 6c 6f 63 6b 25 21  32 34 29 0d 08 8e 2e c8  |kblock%!24).....|
00001e30  99 20 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |. "Wimp_GetRecta|
00001e40  6e 67 6c 65 22 2c 2c 77  6f 72 6b 62 6c 6f 63 6b  |ngle",,workblock|
00001e50  25 20 b8 20 6d 6f 72 65  25 0d 08 98 07 ce 3a e1  |% . more%.....:.|
00001e60  0d 08 a2 05 3a 0d 08 ac  12 dd f2 75 70 64 61 74  |....:......updat|
00001e70  65 63 6f 6f 72 64 73 0d  08 b6 1d 24 71 25 3d c4  |ecoords....$q%=.|
00001e80  33 30 2c bd 28 30 29 29  3a 71 25 21 30 3d 63 6f  |30,.(0)):q%!0=co|
00001e90  6f 72 64 73 0d 08 c0 3d  24 78 69 63 6f 6e 3d c3  |ords...=$xicon=.|
00001ea0  28 a8 28 74 75 72 74 6c  65 78 70 6f 73 29 29 3a  |(.(turtlexpos)):|
00001eb0  71 25 21 34 3d 30 3a c8  99 20 22 57 69 6d 70 5f  |q%!4=0:.. "Wimp_|
00001ec0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |SetIconState",,q|
00001ed0  25 0d 08 ca 3d 24 79 69  63 6f 6e 3d c3 28 a8 28  |%...=$yicon=.(.(|
00001ee0  74 75 72 74 6c 65 79 70  6f 73 29 29 3a 71 25 21  |turtleypos)):q%!|
00001ef0  34 3d 31 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |4=1:.. "Wimp_Set|
00001f00  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 08  |IconState",,q%..|
00001f10  d4 31 61 6e 67 25 3d 74  75 72 74 6c 65 61 6e 67  |.1ang%=turtleang|
00001f20  6c 65 20 83 20 33 36 30  3a e7 20 61 6e 67 25 3c  |le . 360:. ang%<|
00001f30  30 20 61 6e 67 25 3d 33  36 30 2b 61 6e 67 25 0d  |0 ang%=360+ang%.|
00001f40  08 de 36 24 61 6e 67 69  63 6f 6e 3d c3 28 61 6e  |..6$angicon=.(an|
00001f50  67 25 29 3a 71 25 21 34  3d 32 3a c8 99 20 22 57  |g%):q%!4=2:.. "W|
00001f60  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001f70  22 2c 2c 71 25 0d 08 e8  2b e7 20 70 65 6e 3d b9  |",,q%...+. pen=.|
00001f80  20 24 70 65 6e 69 63 6f  6e 3d 22 44 6f 77 6e 22  | $penicon="Down"|
00001f90  20 8b 20 24 70 65 6e 69  63 6f 6e 3d 22 55 70 22  | . $penicon="Up"|
00001fa0  0d 08 f2 25 71 25 21 34  3d 36 3a c8 99 20 22 57  |...%q%!4=6:.. "W|
00001fb0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001fc0  22 2c 2c 71 25 0d 08 fc  3b 71 25 21 34 3d 37 3a  |",,q%...;q%!4=7:|
00001fd0  24 63 6f 6c 69 63 6f 6e  3d c3 28 70 65 6e 63 6f  |$colicon=.(penco|
00001fe0  6c 6f 75 72 29 3a c8 99  20 22 57 69 6d 70 5f 53  |lour):.. "Wimp_S|
00001ff0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00002000  0d 09 06 26 f2 73 65 74  69 63 6f 6e 62 61 63 63  |...&.seticonbacc|
00002010  6f 6c 28 63 6f 6f 72 64  73 2c 37 2c 70 65 6e 63  |ol(coords,7,penc|
00002020  6f 6c 6f 75 72 29 0d 09  10 05 e1 0d 09 1a 05 3a  |olour).........:|
00002030  0d 09 24 10 dd f2 72 65  61 64 63 6f 6f 72 64 73  |..$...readcoords|
00002040  0d 09 2e 3d 71 25 21 30  3d 63 6f 6f 72 64 73 3a  |...=q%!0=coords:|
00002050  71 25 21 34 3d 30 3a c8  99 20 22 57 69 6d 70 5f  |q%!4=0:.. "Wimp_|
00002060  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
00002070  25 3a 78 69 63 6f 6e 3d  71 25 21 32 38 0d 09 38  |%:xicon=q%!28..8|
00002080  3d 71 25 21 30 3d 63 6f  6f 72 64 73 3a 71 25 21  |=q%!0=coords:q%!|
00002090  34 3d 31 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |4=1:.. "Wimp_Get|
000020a0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 3a 79  |IconState",,q%:y|
000020b0  69 63 6f 6e 3d 71 25 21  32 38 0d 09 42 3f 71 25  |icon=q%!28..B?q%|
000020c0  21 30 3d 63 6f 6f 72 64  73 3a 71 25 21 34 3d 32  |!0=coords:q%!4=2|
000020d0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |:.. "Wimp_GetIco|
000020e0  6e 53 74 61 74 65 22 2c  2c 71 25 3a 61 6e 67 69  |nState",,q%:angi|
000020f0  63 6f 6e 3d 71 25 21 32  38 0d 09 4c 3f 71 25 21  |con=q%!28..L?q%!|
00002100  30 3d 63 6f 6f 72 64 73  3a 71 25 21 34 3d 36 3a  |0=coords:q%!4=6:|
00002110  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00002120  53 74 61 74 65 22 2c 2c  71 25 3a 70 65 6e 69 63  |State",,q%:penic|
00002130  6f 6e 3d 71 25 21 32 38  0d 09 56 3f 71 25 21 30  |on=q%!28..V?q%!0|
00002140  3d 63 6f 6f 72 64 73 3a  71 25 21 34 3d 37 3a c8  |=coords:q%!4=7:.|
00002150  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00002160  74 61 74 65 22 2c 2c 71  25 3a 63 6f 6c 69 63 6f  |tate",,q%:colico|
00002170  6e 3d 71 25 21 32 38 0d  09 60 41 71 25 21 30 3d  |n=q%!28..`Aq%!0=|
00002180  70 72 6f 67 72 61 6d 3a  71 25 21 34 3d 31 36 3a  |program:q%!4=16:|
00002190  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
000021a0  53 74 61 74 65 22 2c 2c  71 25 3a 70 6f 73 69 63  |State",,q%:posic|
000021b0  6f 6e 3d 71 25 21 32 38  0d 09 6a 05 e1 0d 09 74  |on=q%!28..j....t|
000021c0  05 3a 0d 09 7e 14 dd f2  6f 70 65 6e 6d 61 69 6e  |.:..~...openmain|
000021d0  77 69 6e 64 6f 77 0d 09  88 3c 77 6f 72 6b 62 6c  |window...<workbl|
000021e0  6f 63 6b 25 21 30 3d 63  6f 6f 72 64 73 3a c8 99  |ock%!0=coords:..|
000021f0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00002200  53 74 61 74 65 22 2c 2c  77 6f 72 6b 62 6c 6f 63  |State",,workbloc|
00002210  6b 25 0d 09 92 41 68 65  69 67 68 74 25 3d 77 6f  |k%...Aheight%=wo|
00002220  72 6b 62 6c 6f 63 6b 25  21 31 36 2d 77 6f 72 6b  |rkblock%!16-work|
00002230  62 6c 6f 63 6b 25 21 38  3a 77 6f 72 6b 62 6c 6f  |block%!8:workblo|
00002240  63 6b 25 21 31 36 3d 71  25 21 38 2b 68 65 69 67  |ck%!16=q%!8+heig|
00002250  68 74 25 0d 09 9c 3b 77  6f 72 6b 62 6c 6f 63 6b  |ht%...;workblock|
00002260  25 21 34 3d 71 25 21 34  3a 77 6f 72 6b 62 6c 6f  |%!4=q%!4:workblo|
00002270  63 6b 25 21 38 3d 71 25  21 38 3a 77 6f 72 6b 62  |ck%!8=q%!8:workb|
00002280  6c 6f 63 6b 25 21 31 32  3d 71 25 21 31 32 0d 09  |lock%!12=q%!12..|
00002290  a6 1e 77 6f 72 6b 62 6c  6f 63 6b 25 21 31 36 3d  |..workblock%!16=|
000022a0  71 25 21 38 2b 68 65 69  67 68 74 25 0d 09 b0 38  |q%!8+height%...8|
000022b0  77 6f 72 6b 62 6c 6f 63  6b 25 21 32 38 3d 71 25  |workblock%!28=q%|
000022c0  21 32 38 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |!28:.. "Wimp_Ope|
000022d0  6e 57 69 6e 64 6f 77 22  2c 2c 77 6f 72 6b 62 6c  |nWindow",,workbl|
000022e0  6f 63 6b 25 0d 09 ba 29  71 25 21 32 38 3d 63 6f  |ock%...)q%!28=co|
000022f0  6f 72 64 73 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |ords:.. "Wimp_Op|
00002300  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 09 c4  |enWindow",,q%...|
00002310  05 e1 0d 09 ce 05 3a 0d  09 d8 12 dd f2 66 72 6f  |......:......fro|
00002320  6e 74 6d 61 69 6e 77 69  6e 0d 09 e2 36 71 25 21  |ntmainwin...6q%!|
00002330  30 3d 6d 61 69 6e 77 69  6e 3a c8 99 20 22 57 69  |0=mainwin:.. "Wi|
00002340  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00002350  65 22 2c 2c 71 25 3a 71  25 21 32 38 3d 2d 31 0d  |e",,q%:q%!28=-1.|
00002360  09 ec 28 71 25 21 34 3d  32 3a 71 25 21 38 3d 31  |..(q%!4=2:q%!8=1|
00002370  37 36 3a 71 25 21 31 32  3d 31 32 33 38 3a 71 25  |76:q%!12=1238:q%|
00002380  21 31 36 3d 39 38 30 0d  09 f6 15 f2 6f 70 65 6e  |!16=980.....open|
00002390  6d 61 69 6e 77 69 6e 64  6f 77 3a e1 0d 0a 00 05  |mainwindow:.....|
000023a0  3a 0d 0a 0a 12 dd f2 74  65 6d 70 6c 61 74 65 76  |:......templatev|
000023b0  61 72 73 0d 0a 14 46 69  6e 66 6f 3d 68 61 6e 25  |ars...Finfo=han%|
000023c0  21 30 3a 73 61 76 65 3d  68 61 6e 25 21 34 3a 63  |!0:save=han%!4:c|
000023d0  6f 6f 72 64 73 3d 68 61  6e 25 21 38 3a 63 6f 6d  |oords=han%!8:com|
000023e0  6d 61 6e 64 3d 68 61 6e  25 21 31 32 3a 68 65 6c  |mand=han%!12:hel|
000023f0  70 3d 68 61 6e 25 21 31  36 0d 0a 1e 13 70 72 6f  |p=han%!16....pro|
00002400  67 72 61 6d 3d 68 61 6e  25 21 32 30 0d 0a 28 05  |gram=han%!20..(.|
00002410  e1 0d 0a 32 05 3a 0d 0a  3c 0f dd f2 76 61 72 69  |...2.:..<...vari|
00002420  61 62 6c 65 73 0d 0a 46  3f de 20 71 25 20 26 33  |ables..F?. q% &3|
00002430  30 30 2c 6d 65 6e 75 62  6c 6f 63 6b 25 20 26 32  |00,menublock% &2|
00002440  30 30 2c 77 6f 72 6b 62  6c 6f 63 6b 25 20 26 37  |00,workblock% &7|
00002450  30 30 2c 69 63 6f 6e 73  62 6c 6f 63 6b 25 20 26  |00,iconsblock% &|
00002460  31 32 30 30 0d 0a 50 3b  de 20 68 61 6e 25 20 38  |1200..P;. han% 8|
00002470  30 2c 63 6f 6c 74 72 61  6e 73 25 20 31 36 2c 73  |0,coltrans% 16,s|
00002480  63 61 6c 65 66 61 63 25  20 31 36 2c 73 70 72 69  |calefac% 16,spri|
00002490  74 65 61 72 65 61 25 20  38 31 2a 31 30 32 34 0d  |tearea% 81*1024.|
000024a0  0a 5a 46 70 72 6f 67 6e  61 6d 65 24 3d 22 4c 6f  |.ZFprogname$="Lo|
000024b0  47 6f 22 3a 74 65 6d 70  6e 61 6d 65 24 3d 22 69  |Go":tempname$="i|
000024c0  6e 66 6f 2c 73 61 76 65  2c 63 6f 6f 72 64 73 2c  |nfo,save,coords,|
000024d0  63 6f 6d 6d 61 6e 64 2c  68 65 6c 70 2c 70 72 6f  |command,help,pro|
000024e0  67 72 61 6d 22 0d 0a 64  36 69 63 70 6e 74 3d 69  |gram"..d6icpnt=i|
000024f0  63 6f 6e 73 62 6c 6f 63  6b 25 3a de 20 6d 65 6e  |consblock%:. men|
00002500  75 69 74 65 6d 24 28 33  30 29 2c 63 6f 6d 6d 61  |uitem$(30),comma|
00002510  6e 64 69 63 6f 6e 25 28  31 32 29 0d 0a 6e 2d 73  |ndicon%(12)..n-s|
00002520  70 72 69 74 65 6e 61 6d  65 24 3d 22 64 65 66 61  |pritename$="defa|
00002530  75 6c 74 22 3a 69 77 64  25 3d 31 32 38 30 3a 69  |ult":iwd%=1280:i|
00002540  68 65 25 3d 31 30 32 34  0d 0a 78 28 63 6f 6d 73  |he%=1024..x(coms|
00002550  74 72 69 6e 67 24 3d 22  22 3a 73 61 76 68 61 6e  |tring$="":savhan|
00002560  64 6c 65 25 3d 30 3a 73  74 61 74 75 73 25 3d 30  |dle%=0:status%=0|
00002570  0d 0a 82 1f de 20 69 63  6f 6e 74 65 78 74 20 32  |..... icontext 2|
00002580  30 2c 69 63 6f 6e 73 70  72 69 74 65 20 32 30 0d  |0,iconsprite 20.|
00002590  0a 8c 05 e1 0d 0a 96 05  3a 0d 0a a0 0e dd f2 6c  |........:......l|
000025a0  6f 67 6f 76 61 72 73 0d  0a aa 29 68 6f 6d 65 78  |ogovars...)homex|
000025b0  70 6f 73 3d 36 34 30 3a  68 6f 6d 65 79 70 6f 73  |pos=640:homeypos|
000025c0  3d 35 31 32 3a 68 6f 6d  65 61 6e 67 6c 65 3d 30  |=512:homeangle=0|
000025d0  0d 0a b4 41 74 75 72 74  6c 65 78 70 6f 73 3d 68  |...Aturtlexpos=h|
000025e0  6f 6d 65 78 70 6f 73 3a  74 75 72 74 6c 65 79 70  |omexpos:turtleyp|
000025f0  6f 73 3d 68 6f 6d 65 79  70 6f 73 3a 74 75 72 74  |os=homeypos:turt|
00002600  6c 65 61 6e 67 6c 65 3d  68 6f 6d 65 61 6e 67 6c  |leangle=homeangl|
00002610  65 0d 0a be 16 70 65 6e  3d b9 3a 70 65 6e 63 6f  |e....pen=.:penco|
00002620  6c 6f 75 72 3d 31 33 0d  0a c8 4a 6f 6c 64 74 75  |lour=13...Joldtu|
00002630  72 74 6c 65 78 3d 74 75  72 74 6c 65 78 70 6f 73  |rtlex=turtlexpos|
00002640  3a 6f 6c 64 74 75 72 74  6c 65 79 3d 74 75 72 74  |:oldturtley=turt|
00002650  6c 65 79 70 6f 73 3a 6f  6c 64 74 75 72 74 6c 65  |leypos:oldturtle|
00002660  61 6e 67 6c 65 3d 74 75  72 74 6c 65 61 6e 67 6c  |angle=turtleangl|
00002670  65 0d 0a d2 23 74 6f 25  3d 30 3a de 20 74 6f 73  |e...#to%=0:. tos|
00002680  75 62 24 28 32 35 36 29  2c 74 6f 73 75 62 25 28  |ub$(256),tosub%(|
00002690  32 35 36 29 0d 0a dc 37  de 20 73 75 62 73 74 61  |256)...7. substa|
000026a0  63 6b 25 28 32 30 30 29  2c 6c 6f 6f 70 73 74 61  |ck%(200),loopsta|
000026b0  63 6b 25 28 32 30 30 29  3a 73 74 61 63 6b 25 3d  |ck%(200):stack%=|
000026c0  30 3a 6c 73 74 61 63 6b  25 3d 30 0d 0a e6 28 de  |0:lstack%=0...(.|
000026d0  20 6c 6f 67 6f 66 69 6c  65 25 20 32 30 2a 31 30  | logofile% 20*10|
000026e0  32 34 2c 63 6f 6d 6d 61  6e 64 6c 69 6e 65 25 20  |24,commandline% |
000026f0  32 30 30 0d 0a f0 30 de  20 64 72 61 77 66 69 6c  |200...0. drawfil|
00002700  65 25 20 36 30 2a 31 30  32 34 3a f4 20 61 20 36  |e% 60*1024:. a 6|
00002710  30 6b 20 64 72 61 77 66  69 6c 65 20 6d 61 78 69  |0k drawfile maxi|
00002720  6d 75 6d 0d 0a fa 0e de  20 63 6f 6c 73 25 20 38  |mum..... cols% 8|
00002730  30 0d 0b 04 05 e1 0d 0b  0e 05 3a 0d 0b 18 35 dd  |0.........:...5.|
00002740  f2 72 65 64 72 61 77 73  70 72 69 74 65 28 6d 69  |.redrawsprite(mi|
00002750  6e 78 25 2c 6d 69 6e 79  25 2c 6d 61 78 78 25 2c  |nx%,miny%,maxx%,|
00002760  6d 61 78 79 25 2c 73 63  78 25 2c 73 63 79 25 29  |maxy%,scx%,scy%)|
00002770  0d 0b 22 4e c8 99 20 22  57 69 6d 70 5f 52 65 61  |.."N.. "Wimp_Rea|
00002780  64 50 69 78 54 72 61 6e  73 22 2c 26 31 30 30 2c  |dPixTrans",&100,|
00002790  73 70 72 69 74 65 61 72  65 61 25 2c 73 70 72 69  |spritearea%,spri|
000027a0  74 65 6e 61 6d 65 24 2c  2c 2c 2c 73 63 61 6c 65  |tename$,,,,scale|
000027b0  66 61 63 25 2c 63 6f 6c  74 72 61 6e 73 25 0d 0b  |fac%,coltrans%..|
000027c0  2c 19 78 6f 25 3d 6d 69  6e 78 25 2d 73 63 78 25  |,.xo%=minx%-scx%|
000027d0  3a 78 25 3d 78 6f 25 0d  0b 36 1e 79 6f 25 3d 6d  |:x%=xo%..6.yo%=m|
000027e0  61 78 79 25 2d 73 63 79  25 3a 79 25 3d 79 6f 25  |axy%-scy%:y%=yo%|
000027f0  2d 69 68 65 25 0d 0b 40  4c c8 99 20 22 4f 53 5f  |-ihe%..@L.. "OS_|
00002800  53 70 72 69 74 65 4f 70  22 2c 33 30 38 2c 73 70  |SpriteOp",308,sp|
00002810  72 69 74 65 61 72 65 61  25 2c 73 70 72 69 74 65  |ritearea%,sprite|
00002820  6e 61 6d 65 24 2c 78 25  2c 79 25 2c 30 2c 73 63  |name$,x%,y%,0,sc|
00002830  61 6c 65 66 61 63 25 2c  63 6f 6c 74 72 61 6e 73  |alefac%,coltrans|
00002840  25 0d 0b 4a 3e f2 64 72  61 77 74 75 72 74 6c 65  |%..J>.drawturtle|
00002850  28 78 25 2b 74 75 72 74  6c 65 78 70 6f 73 2c 79  |(x%+turtlexpos,y|
00002860  25 2b 74 75 72 74 6c 65  79 70 6f 73 2c 31 31 2c  |%+turtleypos,11,|
00002870  34 30 2c 74 75 72 74 6c  65 61 6e 67 6c 65 29 0d  |40,turtleangle).|
00002880  0b 54 05 e1 0d 0b 5e 05  3a 0d 0b 68 16 dd f2 63  |.T....^.:..h...c|
00002890  72 65 61 74 65 73 70 72  69 74 65 61 72 65 61 0d  |reatespritearea.|
000028a0  0b 72 2a 73 70 72 69 74  65 61 72 65 61 25 21 30  |.r*spritearea%!0|
000028b0  3d 38 31 2a 31 30 32 34  3a 73 70 72 69 74 65 61  |=81*1024:spritea|
000028c0  72 65 61 25 21 38 3d 31  36 0d 0b 7c 24 c8 99 20  |rea%!8=16..|$.. |
000028d0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 36  |"OS_SpriteOp",26|
000028e0  35 2c 73 70 72 69 74 65  61 72 65 61 25 0d 0b 86  |5,spritearea%...|
000028f0  05 e1 0d 0b 90 05 3a 0d  0b 9a 1a dd f2 69 6e 73  |......:......ins|
00002900  63 6f 6d 6d 61 6e 64 28  63 6f 6d 6d 61 6e 64 24  |command(command$|
00002910  29 0d 0b a4 1a f2 6c 6f  67 6f 63 6f 6d 6d 61 6e  |).....logocomman|
00002920  64 28 63 6f 6d 6d 61 6e  64 24 29 0d 0b ae 20 e7  |d(command$)... .|
00002930  20 a4 74 75 72 74 6c 65  6d 6f 76 65 64 3d b9 20  | .turtlemoved=. |
00002940  f2 6d 6f 76 65 74 75 72  74 6c 65 0d 0b b8 4a 6f  |.moveturtle...Jo|
00002950  6c 64 74 75 72 74 6c 65  78 3d 74 75 72 74 6c 65  |ldturtlex=turtle|
00002960  78 70 6f 73 3a 6f 6c 64  74 75 72 74 6c 65 79 3d  |xpos:oldturtley=|
00002970  74 75 72 74 6c 65 79 70  6f 73 3a 6f 6c 64 74 75  |turtleypos:oldtu|
00002980  72 74 6c 65 61 6e 67 6c  65 3d 74 75 72 74 6c 65  |rtleangle=turtle|
00002990  61 6e 67 6c 65 0d 0b c2  11 f2 75 70 64 61 74 65  |angle.....update|
000029a0  63 6f 6f 72 64 73 0d 0b  cc 05 e1 0d 0b d6 05 3a  |coords.........:|
000029b0  0d 0b e0 2e dd f2 63 72  65 61 74 65 73 70 72 69  |......createspri|
000029c0  74 65 28 6e 61 6d 65 24  2c 77 69 64 74 68 25 2c  |te(name$,width%,|
000029d0  68 65 69 67 68 74 25 2c  6d 6f 64 65 25 29 0d 0b  |height%,mode%)..|
000029e0  ea 45 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.E.. "OS_SpriteO|
000029f0  70 22 2c 32 37 31 2c 73  70 72 69 74 65 61 72 65  |p",271,spriteare|
00002a00  61 25 2c 6e 61 6d 65 24  2c 30 2c 77 69 64 74 68  |a%,name$,0,width|
00002a10  25 2f 32 2c 68 65 69 67  68 74 25 2f 34 2c 6d 6f  |%/2,height%/4,mo|
00002a20  64 65 25 0d 0b f4 05 e1  0d 0b fe 05 3a 0d 0c 08  |de%.........:...|
00002a30  16 dd f2 72 65 61 64 63  6f 6d 6d 61 6e 64 69 63  |...readcommandic|
00002a40  6f 6e 73 0d 0c 12 27 77  6f 72 6b 62 6c 6f 63 6b  |ons...'workblock|
00002a50  25 21 30 3d 63 6f 6d 6d  61 6e 64 3a e3 20 69 63  |%!0=command:. ic|
00002a60  6f 6e 25 3d 30 20 b8 20  31 31 0d 0c 1c 39 77 6f  |on%=0 . 11...9wo|
00002a70  72 6b 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 25  |rkblock%!4=icon%|
00002a80  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |:.. "Wimp_GetIco|
00002a90  6e 53 74 61 74 65 22 2c  2c 77 6f 72 6b 62 6c 6f  |nState",,workblo|
00002aa0  63 6b 25 0d 0c 26 29 63  6f 6d 6d 61 6e 64 69 63  |ck%..&)commandic|
00002ab0  6f 6e 25 28 69 63 6f 6e  25 29 3d 77 6f 72 6b 62  |on%(icon%)=workb|
00002ac0  6c 6f 63 6b 25 21 32 38  3a ed 3a e1 0d 0c 30 05  |lock%!28:.:...0.|
00002ad0  3a 0d 0c 3a 0e dd f2 73  63 72 6f 6c 6c 75 70 0d  |:..:...scrollup.|
00002ae0  0c 44 46 77 6f 72 6b 62  6c 6f 63 6b 25 21 30 3d  |.DFworkblock%!0=|
00002af0  63 6f 6d 6d 61 6e 64 3a  77 6f 72 6b 62 6c 6f 63  |command:workbloc|
00002b00  6b 25 21 34 3d 30 3a 77  6f 72 6b 62 6c 6f 63 6b  |k%!4=0:workblock|
00002b10  25 21 38 3d 30 3a 77 6f  72 6b 62 6c 6f 63 6b 25  |%!8=0:workblock%|
00002b20  21 31 32 3d 30 0d 0c 4e  11 e3 20 69 63 6f 6e 25  |!12=0..N.. icon%|
00002b30  3d 31 20 b8 20 35 0d 0c  58 33 24 28 63 6f 6d 6d  |=1 . 5..X3$(comm|
00002b40  61 6e 64 69 63 6f 6e 25  28 69 63 6f 6e 25 2d 31  |andicon%(icon%-1|
00002b50  29 29 3d 24 28 63 6f 6d  6d 61 6e 64 69 63 6f 6e  |))=$(commandicon|
00002b60  25 28 69 63 6f 6e 25 29  29 0d 0c 62 3b 77 6f 72  |%(icon%))..b;wor|
00002b70  6b 62 6c 6f 63 6b 25 21  34 3d 69 63 6f 6e 25 2d  |kblock%!4=icon%-|
00002b80  31 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |1:.. "Wimp_SetIc|
00002b90  6f 6e 53 74 61 74 65 22  2c 2c 77 6f 72 6b 62 6c  |onState",,workbl|
00002ba0  6f 63 6b 25 0d 0c 6c 05  ed 0d 0c 76 12 e3 20 69  |ock%..l....v.. i|
00002bb0  63 6f 6e 25 3d 37 20 b8  20 31 31 0d 0c 80 33 24  |con%=7 . 11...3$|
00002bc0  28 63 6f 6d 6d 61 6e 64  69 63 6f 6e 25 28 69 63  |(commandicon%(ic|
00002bd0  6f 6e 25 2d 31 29 29 3d  24 28 63 6f 6d 6d 61 6e  |on%-1))=$(comman|
00002be0  64 69 63 6f 6e 25 28 69  63 6f 6e 25 29 29 0d 0c  |dicon%(icon%))..|
00002bf0  8a 3b 77 6f 72 6b 62 6c  6f 63 6b 25 21 34 3d 69  |.;workblock%!4=i|
00002c00  63 6f 6e 25 2d 31 3a c8  99 20 22 57 69 6d 70 5f  |con%-1:.. "Wimp_|
00002c10  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
00002c20  6f 72 6b 62 6c 6f 63 6b  25 0d 0c 94 05 ed 0d 0c  |orkblock%.......|
00002c30  9e 05 e1 0d 0c a8 05 3a  0d 0c b2 19 dd f2 6c 6f  |.......:......lo|
00002c40  67 6f 65 72 72 6f 72 28  6d 65 73 73 61 67 65 24  |goerror(message$|
00002c50  29 0d 0c bc 18 c8 99 20  22 48 6f 75 72 67 6c 61  |)...... "Hourgla|
00002c60  73 73 5f 53 6d 61 73 68  22 0d 0c c6 27 e7 20 a6  |ss_Smash"...'. .|
00002c70  20 2d 31 31 33 20 85 20  32 35 35 2c 22 59 6f 75  | -113 . 255,"You|
00002c80  20 70 72 65 73 73 65 64  20 45 53 43 41 50 45 22  | pressed ESCAPE"|
00002c90  0d 0c d0 45 f2 73 65 74  69 63 6f 6e 74 65 78 74  |...E.seticontext|
00002ca0  28 63 6f 6d 6d 61 6e 64  2c 35 2c 22 45 72 72 6f  |(command,5,"Erro|
00002cb0  72 22 29 3a f2 73 65 74  69 63 6f 6e 74 65 78 74  |r"):.seticontext|
00002cc0  28 63 6f 6d 6d 61 6e 64  2c 31 31 2c 6d 65 73 73  |(command,11,mess|
00002cd0  61 67 65 24 29 0d 0c da  0d f2 73 63 72 6f 6c 6c  |age$).....scroll|
00002ce0  75 70 0d 0c e4 24 f2 73  65 74 69 63 6f 6e 74 65  |up...$.seticonte|
00002cf0  78 74 28 63 6f 6d 6d 61  6e 64 2c 31 31 2c c4 33  |xt(command,11,.3|
00002d00  30 2c bd 30 29 29 0d 0c  ee 23 f2 73 65 74 69 63  |0,.0))...#.setic|
00002d10  6f 6e 74 65 78 74 28 63  6f 6d 6d 61 6e 64 2c 35  |ontext(command,5|
00002d20  2c 22 4c 6f 47 6f 3a 22  29 0d 0c f8 2a c8 99 20  |,"LoGo:")...*.. |
00002d30  22 57 69 6d 70 5f 47 65  74 43 61 72 65 74 50 6f  |"Wimp_GetCaretPo|
00002d40  73 69 74 69 6f 6e 22 2c  2c 77 6f 72 6b 62 6c 6f  |sition",,workblo|
00002d50  63 6b 25 0d 0d 02 60 e7  20 77 6f 72 6b 62 6c 6f  |ck%...`. workblo|
00002d60  63 6b 25 21 30 3d 63 6f  6d 6d 61 6e 64 20 80 20  |ck%!0=command . |
00002d70  77 6f 72 6b 62 6c 6f 63  6b 25 21 34 3d 31 31 20  |workblock%!4=11 |
00002d80  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00002d90  74 50 6f 73 69 74 69 6f  6e 22 2c 2d 31 3a f2 70  |tPosition",-1:.p|
00002da0  75 74 63 61 72 65 74 28  63 6f 6d 6d 61 6e 64 2c  |utcaret(command,|
00002db0  31 31 29 0d 0d 0c 2a e7  20 73 74 61 74 75 73 25  |11)...*. status%|
00002dc0  3e 31 20 73 74 61 74 75  73 25 3d 31 3a f2 70 72  |>1 status%=1:.pr|
00002dd0  6f 67 72 61 6d 66 69 6e  69 73 68 65 64 0d 0d 16  |ogramfinished...|
00002de0  27 e7 20 a6 20 2d 31 31  33 20 85 20 32 35 35 2c  |'. . -113 . 255,|
00002df0  22 59 6f 75 20 70 72 65  73 73 65 64 20 45 53 43  |"You pressed ESC|
00002e00  41 50 45 22 0d 0d 20 0e  65 6e 64 6c 69 6e 65 25  |APE".. .endline%|
00002e10  3d b9 0d 0d 2a 05 e1 0d  0d 34 05 3a 0d 0d 3e 29  |=...*....4.:..>)|
00002e20  dd f2 64 72 61 77 74 75  72 74 6c 65 28 78 25 2c  |..drawturtle(x%,|
00002e30  79 25 2c 63 6f 6c 25 2c  73 69 7a 65 25 2c 61 6e  |y%,col%,size%,an|
00002e40  67 6c 65 25 29 0d 0d 48  1c c8 99 20 22 57 69 6d  |gle%)..H... "Wim|
00002e50  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 63 6f 6c  |p_SetColour",col|
00002e60  25 0d 0d 52 35 ec 20 78  25 2b 28 73 69 7a 65 25  |%..R5. x%+(size%|
00002e70  2a b5 28 b2 28 61 6e 67  6c 65 25 29 29 29 2c 79  |*.(.(angle%))),y|
00002e80  25 2b 28 73 69 7a 65 25  2a 9b 28 b2 28 61 6e 67  |%+(size%*.(.(ang|
00002e90  6c 65 25 29 29 29 0d 0d  5c 3d ec 20 78 25 2b 28  |le%)))..\=. x%+(|
00002ea0  73 69 7a 65 25 2a b5 28  b2 28 61 6e 67 6c 65 25  |size%*.(.(angle%|
00002eb0  2b 31 33 35 29 29 29 2c  79 25 2b 28 73 69 7a 65  |+135))),y%+(size|
00002ec0  25 2a 9b 28 b2 28 61 6e  67 6c 65 25 2b 31 33 35  |%*.(.(angle%+135|
00002ed0  29 29 29 0d 0d 66 0e f0  20 38 35 2c 78 25 2c 79  |)))..f.. 85,x%,y|
00002ee0  25 0d 0d 70 3d ec 20 78  25 2b 28 73 69 7a 65 25  |%..p=. x%+(size%|
00002ef0  2a b5 28 b2 28 61 6e 67  6c 65 25 2d 31 33 35 29  |*.(.(angle%-135)|
00002f00  29 29 2c 79 25 2b 28 73  69 7a 65 25 2a 9b 28 b2  |)),y%+(size%*.(.|
00002f10  28 61 6e 67 6c 65 25 2d  31 33 35 29 29 29 0d 0d  |(angle%-135)))..|
00002f20  7a 38 f0 20 38 35 2c 78  25 2b 28 73 69 7a 65 25  |z8. 85,x%+(size%|
00002f30  2a b5 28 b2 28 61 6e 67  6c 65 25 29 29 29 2c 79  |*.(.(angle%))),y|
00002f40  25 2b 28 73 69 7a 65 25  2a 9b 28 b2 28 61 6e 67  |%+(size%*.(.(ang|
00002f50  6c 65 25 29 29 29 0d 0d  84 0b df 20 78 25 2c 79  |le%)))..... x%,y|
00002f60  25 0d 0d 8e 05 e1 0d 0d  98 05 3a 0d 0d a2 2b f4  |%.........:...+.|
00002f70  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00002f80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002f90  2d 2d 2d 2d 2d 2d 0d 0d  ac 2b f4 20 7c 20 20 20  |------...+. |   |
00002fa0  20 53 61 76 65 20 26 20  4c 6f 61 64 20 50 72 6f  | Save & Load Pro|
00002fb0  63 65 64 75 72 65 73 20  20 20 20 20 20 20 20 20  |cedures         |
00002fc0  7c 0d 0d b6 2b f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  ||...+. ---------|
00002fd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002fe0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 0d c0 05  |------------....|
00002ff0  3a 0d 0d ca 0f dd 20 a4  73 61 76 65 6e 61 6d 65  |:..... .savename|
00003000  0d 0d d4 2a 77 6f 72 6b  62 6c 6f 63 6b 25 21 30  |...*workblock%!0|
00003010  3d 73 61 76 68 61 6e 64  6c 65 25 3a 77 6f 72 6b  |=savhandle%:work|
00003020  62 6c 6f 63 6b 25 21 34  3d 32 0d 0d de 38 e7 20  |block%!4=2...8. |
00003030  73 61 76 68 61 6e 64 6c  65 25 3d 2d 31 20 77 6f  |savhandle%=-1 wo|
00003040  72 6b 62 6c 6f 63 6b 25  21 30 3d 70 72 6f 67 72  |rkblock%!0=progr|
00003050  61 6d 3a 77 6f 72 6b 62  6c 6f 63 6b 25 21 34 3d  |am:workblock%!4=|
00003060  32 31 0d 0d e8 26 c8 99  20 22 57 69 6d 70 5f 47  |21...&.. "Wimp_G|
00003070  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 6f  |etIconState",,wo|
00003080  72 6b 62 6c 6f 63 6b 25  0d 0d f2 40 41 24 3d 22  |rkblock%...@A$="|
00003090  22 3a 41 25 3d 77 6f 72  6b 62 6c 6f 63 6b 25 21  |":A%=workblock%!|
000030a0  32 38 3a f5 3a 41 24 3d  41 24 2b bd 3f 41 25 3a  |28:.:A$=A$+.?A%:|
000030b0  41 25 3d 41 25 2b 31 3a  fd 20 3f 41 25 3d 30 20  |A%=A%+1:. ?A%=0 |
000030c0  84 20 3f 41 25 3d 31 33  0d 0d fc 0a 3d 41 24 2b  |. ?A%=13....=A$+|
000030d0  bd 30 0d 0e 06 05 3a 0d  0e 10 12 dd f2 73 61 76  |.0....:......sav|
000030e0  65 6e 61 6d 65 28 41 24  29 0d 0e 1a 2a 77 6f 72  |ename(A$)...*wor|
000030f0  6b 62 6c 6f 63 6b 25 21  30 3d 73 61 76 68 61 6e  |kblock%!0=savhan|
00003100  64 6c 65 25 3a 77 6f 72  6b 62 6c 6f 63 6b 25 21  |dle%:workblock%!|
00003110  34 3d 32 0d 0e 24 38 e7  20 73 61 76 68 61 6e 64  |4=2..$8. savhand|
00003120  6c 65 25 3d 2d 31 20 77  6f 72 6b 62 6c 6f 63 6b  |le%=-1 workblock|
00003130  25 21 30 3d 70 72 6f 67  72 61 6d 3a 77 6f 72 6b  |%!0=program:work|
00003140  62 6c 6f 63 6b 25 21 34  3d 32 31 0d 0e 2e 26 c8  |block%!4=21...&.|
00003150  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00003160  74 61 74 65 22 2c 2c 77  6f 72 6b 62 6c 6f 63 6b  |tate",,workblock|
00003170  25 0d 0e 38 17 24 28 77  6f 72 6b 62 6c 6f 63 6b  |%..8.$(workblock|
00003180  25 21 32 38 29 3d 41 24  0d 0e 42 05 e1 0d 0e 4c  |%!28)=A$..B....L|
00003190  05 3a 0d 0e 56 0e dd f2  73 61 76 65 64 72 61 67  |.:..V...savedrag|
000031a0  0d 0e 60 30 71 25 21 30  3d 73 61 76 68 61 6e 64  |..`0q%!0=savhand|
000031b0  6c 65 25 3a e7 20 73 61  76 68 61 6e 64 6c 65 25  |le%:. savhandle%|
000031c0  3d 2d 31 20 71 25 21 30  3d 70 72 6f 67 72 61 6d  |=-1 q%!0=program|
000031d0  0d 0e 6a 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..j .. "Wimp_Get|
000031e0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
000031f0  0d 0e 74 22 78 6f 25 3d  71 25 21 34 2d 71 25 21  |..t"xo%=q%!4-q%!|
00003200  32 30 3a 79 6f 25 3d 71  25 21 31 36 2d 71 25 21  |20:yo%=q%!16-q%!|
00003210  32 34 0d 0e 7e 24 e7 20  73 61 76 68 61 6e 64 6c  |24..~$. savhandl|
00003220  65 25 3d 2d 31 20 71 25  21 34 3d 32 33 20 8b 20  |e%=-1 q%!4=23 . |
00003230  71 25 21 34 3d 33 0d 0e  88 1e c8 99 20 22 57 69  |q%!4=3...... "Wi|
00003240  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00003250  2c 2c 71 25 0d 0e 92 48  71 25 21 30 3d 73 61 76  |,,q%...Hq%!0=sav|
00003260  68 61 6e 64 6c 65 25 3a  71 25 21 34 3d 35 3a 71  |handle%:q%!4=5:q|
00003270  25 21 38 3d 78 6f 25 2b  71 25 21 38 3a 71 25 21  |%!8=xo%+q%!8:q%!|
00003280  31 32 3d 79 6f 25 2b 71  25 21 31 32 3a 71 25 21  |12=yo%+q%!12:q%!|
00003290  31 36 3d 78 6f 25 2b 71  25 21 31 36 0d 0e 9c 43  |16=xo%+q%!16...C|
000032a0  71 25 21 32 30 3d 79 6f  25 2b 71 25 21 32 30 3a  |q%!20=yo%+q%!20:|
000032b0  71 25 21 32 34 3d 30 3a  71 25 21 32 38 3d 30 3a  |q%!24=0:q%!28=0:|
000032c0  71 25 21 33 32 3d 26 37  46 46 46 46 46 46 46 3a  |q%!32=&7FFFFFFF:|
000032d0  71 25 21 33 36 3d 26 37  46 46 46 46 46 46 46 0d  |q%!36=&7FFFFFFF.|
000032e0  0e a6 19 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |..... "Wimp_Drag|
000032f0  42 6f 78 22 2c 2c 71 25  0d 0e b0 05 e1 0d 0e ba  |Box",,q%........|
00003300  05 3a 0d 0e c4 12 dd f2  64 72 61 67 66 69 6e 69  |.:......dragfini|
00003310  73 68 65 64 0d 0e ce 20  c8 99 20 22 57 69 6d 70  |shed... .. "Wimp|
00003320  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00003330  2c 2c 71 25 0d 0e d8 31  71 25 21 32 30 3d 71 25  |,,q%...1q%!20=q%|
00003340  21 31 32 3a 71 25 21 32  34 3d 71 25 21 31 36 3a  |!12:q%!24=q%!16:|
00003350  71 25 21 32 38 3d 71 25  21 30 3a 71 25 21 33 32  |q%!28=q%!0:q%!32|
00003360  3d 71 25 21 34 0d 0e e2  23 e7 20 73 61 76 68 61  |=q%!4...#. savha|
00003370  6e 64 6c 65 25 3d 73 61  76 65 20 71 25 21 33 36  |ndle%=save q%!36|
00003380  3d 38 31 2a 31 30 32 34  0d 0e ec 21 e7 20 73 61  |=81*1024...!. sa|
00003390  76 68 61 6e 64 6c 65 25  3d 70 72 6f 67 72 61 6d  |vhandle%=program|
000033a0  20 71 25 21 33 36 3d 31  30 0d 0e f6 1c e7 20 73  | q%!36=10..... s|
000033b0  61 76 68 61 6e 64 6c 65  25 3d 2d 31 20 71 25 21  |avhandle%=-1 q%!|
000033c0  33 36 3d 31 30 0d 0f 00  1c 71 25 21 30 3d 32 35  |36=10....q%!0=25|
000033d0  36 3a 71 25 21 31 32 3d  30 3a 71 25 21 31 36 3d  |6:q%!12=0:q%!16=|
000033e0  31 0d 0f 0a 20 e7 20 73  61 76 68 61 6e 64 6c 65  |1... . savhandle|
000033f0  25 3d 73 61 76 65 20 71  25 21 34 30 3d 26 46 46  |%=save q%!40=&FF|
00003400  39 0d 0f 14 23 e7 20 73  61 76 68 61 6e 64 6c 65  |9...#. savhandle|
00003410  25 3d 70 72 6f 67 72 61  6d 20 71 25 21 34 30 3d  |%=program q%!40=|
00003420  26 41 46 46 0d 0f 1e 1e  e7 20 73 61 76 68 61 6e  |&AFF..... savhan|
00003430  64 6c 65 25 3d 2d 31 20  71 25 21 34 30 3d 26 46  |dle%=-1 q%!40=&F|
00003440  46 46 0d 0f 28 24 24 28  71 25 2b 34 34 29 3d a4  |FF..($$(q%+44)=.|
00003450  67 65 74 6c 65 61 66 6e  61 6d 65 28 a4 73 61 76  |getleafname(.sav|
00003460  65 6e 61 6d 65 29 0d 0f  32 2b c8 99 20 22 57 69  |ename)..2+.. "Wi|
00003470  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00003480  31 37 2c 71 25 2c 71 25  21 32 30 2c 71 25 21 32  |17,q%,q%!20,q%!2|
00003490  34 0d 0f 3c 05 e1 0d 0f  46 05 3a 0d 0f 50 15 dd  |4..<....F.:..P..|
000034a0  a4 67 65 74 6c 65 61 66  6e 61 6d 65 28 41 24 29  |.getleafname(A$)|
000034b0  0d 0f 5a 0f c8 95 20 a7  41 24 2c 22 2e 22 29 0d  |..Z... .A$,".").|
000034c0  0f 64 16 41 24 3d c1 41  24 2c a7 41 24 2c 22 2e  |.d.A$=.A$,.A$,".|
000034d0  22 29 2b 31 29 0d 0f 6e  0c ce 3a 3d 41 24 2b bd  |")+1)..n..:=A$+.|
000034e0  30 0d 0f 78 05 3a 0d 0f  82 0e dd f2 64 61 74 61  |0..x.:......data|
000034f0  73 61 76 65 0d 0f 8c 23  66 75 6c 6c 6e 61 6d 65  |save...#fullname|
00003500  24 3d 22 22 3a 61 25 3d  30 3a 62 25 3d 71 25 3f  |$="":a%=0:b%=q%?|
00003510  28 34 34 2b 61 25 29 0d  0f 96 0c c8 95 20 62 25  |(44+a%)...... b%|
00003520  3c 3e 30 0d 0f a0 33 66  75 6c 6c 6e 61 6d 65 24  |<>0...3fullname$|
00003530  3d 66 75 6c 6c 6e 61 6d  65 24 2b bd 28 62 25 29  |=fullname$+.(b%)|
00003540  3a 61 25 3d 61 25 2b 31  3a 62 25 3d 71 25 3f 28  |:a%=a%+1:b%=q%?(|
00003550  34 34 2b 61 25 29 0d 0f  aa 05 ce 0d 0f b4 2c e7  |44+a%)........,.|
00003560  20 73 61 76 68 61 6e 64  6c 65 25 3d 73 61 76 65  | savhandle%=save|
00003570  20 f2 73 61 76 65 73 70  72 69 74 65 28 66 75 6c  | .savesprite(ful|
00003580  6c 6e 61 6d 65 24 29 0d  0f be 20 e7 20 73 61 76  |lname$)... . sav|
00003590  68 61 6e 64 6c 65 25 3d  70 72 6f 67 72 61 6d 20  |handle%=program |
000035a0  71 25 21 33 36 3d 30 0d  0f c8 1b e7 20 73 61 76  |q%!36=0..... sav|
000035b0  68 61 6e 64 6c 65 25 3d  2d 31 20 71 25 21 33 36  |handle%=-1 q%!36|
000035c0  3d 30 0d 0f d2 45 e7 20  71 25 21 33 36 3c 3e 2d  |=0...E. q%!36<>-|
000035d0  31 20 80 20 73 61 76 68  61 6e 64 6c 65 25 3c 3e  |1 . savhandle%<>|
000035e0  2d 31 20 f2 73 65 74 69  63 6f 6e 74 65 78 74 28  |-1 .seticontext(|
000035f0  73 61 76 68 61 6e 64 6c  65 25 2c 32 2c 66 75 6c  |savhandle%,2,ful|
00003600  6c 6e 61 6d 65 24 29 0d  0f dc 42 e7 20 71 25 21  |lname$)...B. q%!|
00003610  33 36 3c 3e 2d 31 20 80  20 73 61 76 68 61 6e 64  |36<>-1 . savhand|
00003620  6c 65 25 3d 2d 31 20 f2  73 65 74 69 63 6f 6e 74  |le%=-1 .seticont|
00003630  65 78 74 28 70 72 6f 67  72 61 6d 2c 32 31 2c 66  |ext(program,21,f|
00003640  75 6c 6c 6e 61 6d 65 24  29 0d 0f e6 47 71 25 21  |ullname$)...Gq%!|
00003650  31 32 3d 71 25 21 38 3a  71 25 21 31 36 3d 33 3a  |12=q%!8:q%!16=3:|
00003660  71 25 21 30 3d 32 35 36  3a c8 99 20 22 57 69 6d  |q%!0=256:.. "Wim|
00003670  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00003680  38 2c 71 25 2c 71 25 21  32 30 2c 71 25 21 32 34  |8,q%,q%!20,q%!24|
00003690  0d 0f f0 43 e7 20 73 61  76 68 61 6e 64 6c 65 25  |...C. savhandle%|
000036a0  3c 3e 70 72 6f 67 72 61  6d 20 80 20 73 61 76 68  |<>program . savh|
000036b0  61 6e 64 6c 65 25 3c 3e  2d 31 20 c8 99 20 22 57  |andle%<>-1 .. "W|
000036c0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000036d0  2c 2d 31 0d 0f fa 05 e1  0d 10 04 05 3a 0d 10 0e  |,-1.........:...|
000036e0  0c dd f2 73 61 76 65 6f  6b 0d 10 18 10 41 24 3d  |...saveok....A$=|
000036f0  a4 73 61 76 65 6e 61 6d  65 0d 10 22 43 e7 20 a7  |.savename.."C. .|
00003700  41 24 2c 22 2e 22 29 3d  30 20 85 20 31 2c 22 54  |A$,".")=0 . 1,"T|
00003710  6f 20 73 61 76 65 2c 20  64 72 61 67 20 74 68 65  |o save, drag the|
00003720  20 69 63 6f 6e 20 74 6f  20 61 20 64 69 72 65 63  | icon to a direc|
00003730  74 6f 72 79 20 76 69 65  77 65 72 22 0d 10 2c 25  |tory viewer"..,%|
00003740  e7 20 73 61 76 68 61 6e  64 6c 65 25 3d 73 61 76  |. savhandle%=sav|
00003750  65 20 f2 73 61 76 65 73  70 72 69 74 65 28 41 24  |e .savesprite(A$|
00003760  29 0d 10 36 1c c8 99 20  22 57 69 6d 70 5f 43 72  |)..6... "Wimp_Cr|
00003770  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 10 40  |eateMenu",,-1..@|
00003780  05 e1 0d 10 4a 05 3a 0d  10 54 14 dd f2 73 61 76  |....J.:..T...sav|
00003790  65 73 70 72 69 74 65 28  41 24 29 0d 10 5e 29 c8  |esprite(A$)..^).|
000037a0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
000037b0  32 36 38 2c 73 70 72 69  74 65 61 72 65 61 25 2c  |268,spritearea%,|
000037c0  41 24 3a e1 0d 10 68 05  3a 0d 10 72 38 f4 20 2d  |A$:...h.:..r8. -|
000037d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003800  2d 0d 10 7c 38 f4 20 7c  20 20 20 20 20 20 20 20  |-..|8. |        |
00003810  55 6e 69 76 65 72 73 61  6c 20 46 75 6e 63 74 69  |Universal Functi|
00003820  6f 6e 73 20 26 20 50 72  6f 63 65 64 75 72 65 20  |ons & Procedure |
00003830  20 20 20 20 20 20 20 20  7c 0d 10 86 38 f4 20 2d  |        |...8. -|
00003840  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003870  2d 0d 10 90 05 3a 0d 10  9a 27 dd f2 73 65 74 69  |-....:...'..seti|
00003880  63 6f 6e 62 61 63 63 6f  6c 28 77 69 6e 64 6f 77  |conbaccol(window|
00003890  25 2c 69 63 6f 6e 25 2c  63 6f 6c 25 29 0d 10 a4  |%,icon%,col%)...|
000038a0  1b 41 24 3d 22 26 22 2b  c3 7e 63 6f 6c 25 2b 22  |.A$="&"+.~col%+"|
000038b0  30 30 30 30 30 30 30 22  0d 10 ae 3e 77 6f 72 6b  |0000000"...>work|
000038c0  62 6c 6f 63 6b 25 21 30  3d 77 69 6e 64 6f 77 25  |block%!0=window%|
000038d0  3a 77 6f 72 6b 62 6c 6f  63 6b 25 21 34 3d 69 63  |:workblock%!4=ic|
000038e0  6f 6e 25 3a 77 6f 72 6b  62 6c 6f 63 6b 25 21 38  |on%:workblock%!8|
000038f0  3d a0 28 41 24 29 0d 10  b8 3e 77 6f 72 6b 62 6c  |=.(A$)...>workbl|
00003900  6f 63 6b 25 21 31 32 3d  26 46 30 30 30 30 30 30  |ock%!12=&F000000|
00003910  30 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |0:.. "Wimp_SetIc|
00003920  6f 6e 53 74 61 74 65 22  2c 2c 77 6f 72 6b 62 6c  |onState",,workbl|
00003930  6f 63 6b 25 0d 10 c2 05  e1 0d 10 cc 05 3a 0d 10  |ock%.........:..|
00003940  d6 27 dd f2 73 65 74 69  63 6f 6e 66 6f 72 63 6f  |.'..seticonforco|
00003950  6c 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |l(window%,icon%,|
00003960  63 6f 6c 25 29 0d 10 e0  1b 41 24 3d 22 26 30 22  |col%)....A$="&0"|
00003970  2b c3 7e 63 6f 6c 25 2b  22 30 30 30 30 30 30 22  |+.~col%+"000000"|
00003980  0d 10 ea 3e 77 6f 72 6b  62 6c 6f 63 6b 25 21 30  |...>workblock%!0|
00003990  3d 77 69 6e 64 6f 77 25  3a 77 6f 72 6b 62 6c 6f  |=window%:workblo|
000039a0  63 6b 25 21 34 3d 69 63  6f 6e 25 3a 77 6f 72 6b  |ck%!4=icon%:work|
000039b0  62 6c 6f 63 6b 25 21 38  3d a0 28 41 24 29 0d 10  |block%!8=.(A$)..|
000039c0  f4 3e 77 6f 72 6b 62 6c  6f 63 6b 25 21 31 32 3d  |.>workblock%!12=|
000039d0  26 30 46 30 30 30 30 30  30 3a c8 99 20 22 57 69  |&0F000000:.. "Wi|
000039e0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000039f0  2c 2c 77 6f 72 6b 62 6c  6f 63 6b 25 0d 10 fe 05  |,,workblock%....|
00003a00  e1 0d 11 08 05 3a 0d 11  12 19 dd a4 77 69 6e 64  |.....:......wind|
00003a10  6f 77 6f 70 65 6e 28 77  69 6e 64 6f 77 25 29 0d  |owopen(window%).|
00003a20  11 1c 3d 77 6f 72 6b 62  6c 6f 63 6b 25 21 30 3d  |..=workblock%!0=|
00003a30  77 69 6e 64 6f 77 25 3a  c8 99 20 22 57 69 6d 70  |window%:.. "Wimp|
00003a40  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00003a50  2c 2c 77 6f 72 6b 62 6c  6f 63 6b 25 0d 11 26 2d  |,,workblock%..&-|
00003a60  66 6c 61 67 73 25 3d 77  6f 72 6b 62 6c 6f 63 6b  |flags%=workblock|
00003a70  25 21 33 32 3a 6f 70 65  6e 25 3d 66 6c 61 67 73  |%!32:open%=flags|
00003a80  25 20 80 20 31 3c 3c 31  36 0d 11 30 15 e7 20 6f  |% . 1<<16..0.. o|
00003a90  70 65 6e 25 3e 30 20 3d  b9 20 8b 20 3d a3 0d 11  |pen%>0 =. . =...|
00003aa0  3a 05 3a 0d 11 44 28 dd  f2 73 65 74 62 75 74 74  |:.:..D(..setbutt|
00003ab0  6f 6e 74 79 70 65 28 77  69 6e 64 6f 77 25 2c 69  |ontype(window%,i|
00003ac0  63 6f 6e 25 2c 74 79 70  65 25 29 0d 11 4e 2b 77  |con%,type%)..N+w|
00003ad0  6f 72 6b 62 6c 6f 63 6b  25 21 30 3d 77 69 6e 64  |orkblock%!0=wind|
00003ae0  6f 77 25 3a 77 6f 72 6b  62 6c 6f 63 6b 25 21 34  |ow%:workblock%!4|
00003af0  3d 69 63 6f 6e 25 0d 11  58 29 77 6f 72 6b 62 6c  |=icon%..X)workbl|
00003b00  6f 63 6b 25 21 38 3d a0  28 22 26 30 30 30 30 22  |ock%!8=.("&0000"|
00003b10  2b c3 7e 74 79 70 65 25  2b 22 30 30 30 22 29 0d  |+.~type%+"000").|
00003b20  11 62 3e 77 6f 72 6b 62  6c 6f 63 6b 25 21 31 32  |.b>workblock%!12|
00003b30  3d 26 30 30 30 30 46 30  30 30 3a c8 99 20 22 57  |=&0000F000:.. "W|
00003b40  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00003b50  22 2c 2c 77 6f 72 6b 62  6c 6f 63 6b 25 0d 11 6c  |",,workblock%..l|
00003b60  05 e1 0d 11 76 05 3a 0d  11 80 21 dd f2 75 6e 73  |....v.:...!..uns|
00003b70  65 6c 65 63 74 61 62 6c  65 28 77 69 6e 64 6f 77  |electable(window|
00003b80  25 2c 69 63 6f 6e 25 29  0d 11 8a 23 f2 73 65 74  |%,icon%)...#.set|
00003b90  69 63 6f 6e 66 6f 72 63  6f 6c 28 77 69 6e 64 6f  |iconforcol(windo|
00003ba0  77 25 2c 69 63 6f 6e 25  2c 32 29 0d 11 94 2b 77  |w%,icon%,2)...+w|
00003bb0  6f 72 6b 62 6c 6f 63 6b  25 21 30 3d 77 69 6e 64  |orkblock%!0=wind|
00003bc0  6f 77 25 3a 77 6f 72 6b  62 6c 6f 63 6b 25 21 34  |ow%:workblock%!4|
00003bd0  3d 69 63 6f 6e 25 0d 11  9e 2e 77 6f 72 6b 62 6c  |=icon%....workbl|
00003be0  6f 63 6b 25 21 38 3d 26  34 30 30 30 30 30 3a 77  |ock%!8=&400000:w|
00003bf0  6f 72 6b 62 6c 6f 63 6b  25 21 31 32 3d 26 34 30  |orkblock%!12=&40|
00003c00  30 30 30 30 0d 11 a8 28  c8 99 20 22 57 69 6d 70  |0000...(.. "Wimp|
00003c10  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00003c20  77 6f 72 6b 62 6c 6f 63  6b 25 3a e1 0d 11 b2 05  |workblock%:.....|
00003c30  3a 0d 11 bc 1c dd f2 65  6f 72 69 63 6f 6e 28 77  |:......eoricon(w|
00003c40  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 11 c6  |indow%,icon%)...|
00003c50  32 71 25 21 30 3d 77 69  6e 64 6f 77 25 3a 71 25  |2q%!0=window%:q%|
00003c60  21 34 3d 69 63 6f 6e 25  3a 71 25 21 38 3d 31 3c  |!4=icon%:q%!8=1<|
00003c70  3c 32 31 3a 71 25 21 31  32 3d 31 3c 3c 32 31 0d  |<21:q%!12=1<<21.|
00003c80  11 d0 20 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |.. .. "Wimp_SetI|
00003c90  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 3a e1 0d  |conState",,q%:..|
00003ca0  11 da 05 3a 0d 11 e4 1b  dd f2 75 6e 69 63 6f 6e  |...:......unicon|
00003cb0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
00003cc0  11 ee 2e 71 25 21 30 3d  77 69 6e 64 6f 77 25 3a  |...q%!0=window%:|
00003cd0  71 25 21 34 3d 69 63 6f  6e 25 3a 71 25 21 38 3d  |q%!4=icon%:q%!8=|
00003ce0  30 3a 71 25 21 31 32 3d  31 3c 3c 32 31 0d 11 f8  |0:q%!12=1<<21...|
00003cf0  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  | .. "Wimp_SetIco|
00003d00  6e 53 74 61 74 65 22 2c  2c 71 25 3a e1 0d 12 02  |nState",,q%:....|
00003d10  05 3a 0d 12 0c 1c dd a4  69 63 6f 6e 65 6f 72 28  |.:......iconeor(|
00003d20  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 12  |window%,icon%)..|
00003d30  16 36 71 25 21 30 3d 77  69 6e 64 6f 77 25 3a 71  |.6q%!0=window%:q|
00003d40  25 21 34 3d 69 63 6f 6e  25 3a c8 99 20 22 57 69  |%!4=icon%:.. "Wi|
00003d50  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00003d60  2c 2c 71 25 0d 12 20 21  e7 20 28 71 25 21 32 34  |,,q%.. !. (q%!24|
00003d70  20 80 20 31 3c 3c 32 31  29 3e 30 20 8c 20 3d b9  | . 1<<21)>0 . =.|
00003d80  20 8b 20 3d a3 0d 12 2a  05 3a 0d 12 34 1f dd f2  | . =...*.:..4...|
00003d90  73 65 6c 65 63 74 61 62  6c 65 28 77 69 6e 64 6f  |selectable(windo|
00003da0  77 25 2c 69 63 6f 6e 25  29 0d 12 3e 23 f2 73 65  |w%,icon%)..>#.se|
00003db0  74 69 63 6f 6e 66 6f 72  63 6f 6c 28 77 69 6e 64  |ticonforcol(wind|
00003dc0  6f 77 25 2c 69 63 6f 6e  25 2c 37 29 0d 12 48 2b  |ow%,icon%,7)..H+|
00003dd0  77 6f 72 6b 62 6c 6f 63  6b 25 21 30 3d 77 69 6e  |workblock%!0=win|
00003de0  64 6f 77 25 3a 77 6f 72  6b 62 6c 6f 63 6b 25 21  |dow%:workblock%!|
00003df0  34 3d 69 63 6f 6e 25 0d  12 52 28 77 6f 72 6b 62  |4=icon%..R(workb|
00003e00  6c 6f 63 6b 25 21 38 3d  30 3a 77 6f 72 6b 62 6c  |lock%!8=0:workbl|
00003e10  6f 63 6b 25 21 31 32 3d  26 34 30 30 30 30 30 0d  |ock%!12=&400000.|
00003e20  12 5c 28 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |.\(.. "Wimp_SetI|
00003e30  63 6f 6e 53 74 61 74 65  22 2c 2c 77 6f 72 6b 62  |conState",,workb|
00003e40  6c 6f 63 6b 25 3a e1 0d  12 66 05 3a 0d 12 70 21  |lock%:...f.:..p!|
00003e50  dd a4 72 65 61 64 69 63  6f 6e 74 65 78 74 28 77  |..readicontext(w|
00003e60  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 12 7a  |indow%,icon%)..z|
00003e70  2b 77 6f 72 6b 62 6c 6f  63 6b 25 21 30 3d 77 69  |+workblock%!0=wi|
00003e80  6e 64 6f 77 25 3a 77 6f  72 6b 62 6c 6f 63 6b 25  |ndow%:workblock%|
00003e90  21 34 3d 69 63 6f 6e 25  0d 12 84 26 c8 99 20 22  |!4=icon%...&.. "|
00003ea0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00003eb0  65 22 2c 2c 77 6f 72 6b  62 6c 6f 63 6b 25 0d 12  |e",,workblock%..|
00003ec0  8e 15 3d 24 28 77 6f 72  6b 62 6c 6f 63 6b 25 21  |..=$(workblock%!|
00003ed0  32 38 29 0d 12 98 05 3a  0d 12 a2 2d dd f2 73 65  |28)....:...-..se|
00003ee0  74 69 63 6f 6e 74 65 78  74 28 77 69 6e 64 6f 77  |ticontext(window|
00003ef0  25 2c 69 63 6f 6e 25 2c  74 65 78 74 24 29 3a ea  |%,icon%,text$):.|
00003f00  20 6c 65 6e 25 0d 12 ac  2b 77 6f 72 6b 62 6c 6f  | len%...+workblo|
00003f10  63 6b 25 21 30 3d 77 69  6e 64 6f 77 25 3a 77 6f  |ck%!0=window%:wo|
00003f20  72 6b 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 25  |rkblock%!4=icon%|
00003f30  0d 12 b6 26 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...&.. "Wimp_Get|
00003f40  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 6f 72 6b  |IconState",,work|
00003f50  62 6c 6f 63 6b 25 0d 12  c0 16 6c 65 6e 25 3d 77  |block%....len%=w|
00003f60  6f 72 6b 62 6c 6f 63 6b  25 21 33 36 0d 12 ca 42  |orkblock%!36...B|
00003f70  24 28 77 6f 72 6b 62 6c  6f 63 6b 25 21 32 38 29  |$(workblock%!28)|
00003f80  3d c0 74 65 78 74 24 2c  6c 65 6e 25 2d 31 29 3a  |=.text$,len%-1):|
00003f90  77 6f 72 6b 62 6c 6f 63  6b 25 21 38 3d 30 3a 77  |workblock%!8=0:w|
00003fa0  6f 72 6b 62 6c 6f 63 6b  25 21 31 32 3d 30 0d 12  |orkblock%!12=0..|
00003fb0  d4 26 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.&.. "Wimp_SetIc|
00003fc0  6f 6e 53 74 61 74 65 22  2c 2c 77 6f 72 6b 62 6c  |onState",,workbl|
00003fd0  6f 63 6b 25 0d 12 de 05  e1 0d 12 e8 05 3a 0d 12  |ock%.........:..|
00003fe0  f2 19 dd f2 6f 70 65 6e  77 69 6e 64 6f 77 28 68  |....openwindow(h|
00003ff0  61 6e 64 6c 65 25 29 0d  12 fc 3d 77 6f 72 6b 62  |andle%)...=workb|
00004000  6c 6f 63 6b 25 21 30 3d  68 61 6e 64 6c 65 25 3a  |lock%!0=handle%:|
00004010  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00004020  6f 77 53 74 61 74 65 22  2c 2c 77 6f 72 6b 62 6c  |owState",,workbl|
00004030  6f 63 6b 25 0d 13 06 24  c8 99 20 22 57 69 6d 70  |ock%...$.. "Wimp|
00004040  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 6f  |_OpenWindow",,wo|
00004050  72 6b 62 6c 6f 63 6b 25  0d 13 10 05 e1 0d 13 1a  |rkblock%........|
00004060  05 3a 0d 13 24 2e dd f2  73 65 74 77 69 6e 64 6f  |.:..$...setwindo|
00004070  77 74 69 74 6c 65 74 65  78 74 28 68 61 6e 64 6c  |wtitletext(handl|
00004080  65 25 2c 74 65 78 74 24  29 3a ea 20 6c 65 6e 25  |e%,text$):. len%|
00004090  0d 13 2e 3c 77 6f 72 6b  62 6c 6f 63 6b 25 21 30  |...<workblock%!0|
000040a0  3d 68 61 6e 64 6c 65 25  3a c8 99 20 22 57 69 6d  |=handle%:.. "Wim|
000040b0  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
000040c0  2c 2c 77 6f 72 6b 62 6c  6f 63 6b 25 0d 13 38 2b  |,,workblock%..8+|
000040d0  6c 65 6e 25 3d 77 6f 72  6b 62 6c 6f 63 6b 25 21  |len%=workblock%!|
000040e0  38 34 3a 74 65 78 74 24  3d c0 74 65 78 74 24 2c  |84:text$=.text$,|
000040f0  6c 65 6e 25 2d 31 29 0d  13 42 21 24 28 77 6f 72  |len%-1)..B!$(wor|
00004100  6b 62 6c 6f 63 6b 25 21  37 36 29 3d 74 65 78 74  |kblock%!76)=text|
00004110  24 2b bd 28 30 29 3a e1  0d 13 4c 05 3a 0d 13 56  |$+.(0):...L.:..V|
00004120  1a dd f2 6f 70 65 6e 74  6f 66 72 6f 6e 74 28 68  |...opentofront(h|
00004130  61 6e 64 6c 65 25 29 0d  13 60 18 77 6f 72 6b 62  |andle%)..`.workb|
00004140  6c 6f 63 6b 25 21 30 3d  68 61 6e 64 6c 65 25 0d  |lock%!0=handle%.|
00004150  13 6a 38 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |.j8.. "Wimp_GetW|
00004160  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 77 6f 72 6b  |indowInfo",,work|
00004170  62 6c 6f 63 6b 25 3a 77  6f 72 6b 62 6c 6f 63 6b  |block%:workblock|
00004180  25 21 32 38 3d 2d 31 0d  13 74 24 c8 99 20 22 57  |%!28=-1..t$.. "W|
00004190  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000041a0  2c 77 6f 72 6b 62 6c 6f  63 6b 25 0d 13 7e 05 e1  |,workblock%..~..|
000041b0  0d 13 88 05 3a 0d 13 92  1d dd f2 70 75 74 63 61  |....:......putca|
000041c0  72 65 74 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ret(window%,icon|
000041d0  25 29 0d 13 9c 33 c8 99  20 22 57 69 6d 70 5f 53  |%)...3.. "Wimp_S|
000041e0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
000041f0  2c 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 2c  |,window%,icon%,,|
00004200  2c 2d 31 2c 30 0d 13 a6  05 e1 0d 13 b0 05 3a 0d  |,-1,0.........:.|
00004210  13 ba 11 dd f2 64 69 73  6f 77 6e 63 61 72 65 74  |.....disowncaret|
00004220  0d 13 c4 23 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...#.. "Wimp_Set|
00004230  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 2d  |CaretPosition",-|
00004240  31 3a e1 0d 13 ce 05 3a  0d 13 d8 25 dd a4 6d 65  |1:.....:...%..me|
00004250  6e 75 28 74 65 78 74 24  2c 77 69 64 74 68 25 2c  |nu(text$,width%,|
00004260  68 65 69 67 68 74 25 2c  67 61 70 25 29 0d 13 e2  |height%,gap%)...|
00004270  1c 24 50 25 3d c0 74 65  78 74 24 2c 31 31 29 2b  |.$P%=.text$,11)+|
00004280  bd 30 3a 50 25 2b 3d 31  32 0d 13 ec 0a 5b 4f 50  |.0:P%+=12....[OP|
00004290  54 20 30 0d 13 f6 3f 45  51 55 42 20 37 3a 45 51  |T 0...?EQUB 7:EQ|
000042a0  55 42 20 32 3a 45 51 55  42 20 37 3a 45 51 55 42  |UB 2:EQUB 7:EQUB|
000042b0  20 30 20 20 20 20 3b 46  6f 75 72 20 64 65 66 69  | 0    ;Four defi|
000042c0  6e 61 62 6c 65 20 6d 65  6e 75 20 63 6f 6c 6f 75  |nable menu colou|
000042d0  72 73 0d 14 00 3c 45 51  55 44 20 77 69 64 74 68  |rs...<EQUD width|
000042e0  25 2a 31 36 20 20 20 20  20 20 20 20 20 20 20 20  |%*16            |
000042f0  20 20 20 20 20 3b 57 69  64 74 68 20 6f 66 20 6d  |     ;Width of m|
00004300  65 6e 75 20 28 4f 53 20  55 6e 69 74 73 29 0d 14  |enu (OS Units)..|
00004310  0a 41 45 51 55 44 20 68  65 69 67 68 74 25 20 20  |.AEQUD height%  |
00004320  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004330  20 3b 48 65 69 67 68 74  20 6f 66 20 6f 6e 65 20  | ;Height of one |
00004340  69 74 65 6d 20 28 4f 53  20 55 6e 69 74 73 29 0d  |item (OS Units).|
00004350  14 14 49 45 51 55 44 20  67 61 70 25 20 20 20 20  |..IEQUD gap%    |
00004360  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004370  20 20 3b 56 65 72 74 69  63 61 6c 20 67 61 70 20  |  ;Vertical gap |
00004380  62 65 74 77 65 65 6e 20  69 74 65 6d 73 20 28 4f  |between items (O|
00004390  53 20 55 6e 69 74 73 29  0d 14 1e 08 5d 3a 3d 30  |S Units)....]:=0|
000043a0  0d 14 28 05 3a 0d 14 32  31 dd a4 6d 65 6e 75 69  |..(.:..21..menui|
000043b0  74 65 6d 28 74 65 78 74  24 2c 66 6c 61 67 73 25  |tem(text$,flags%|
000043c0  2c 73 75 62 6d 65 6e 75  25 2c 69 63 6f 6e 25 2c  |,submenu%,icon%,|
000043d0  6c 61 73 74 25 29 0d 14  3c 21 e7 20 6c 61 73 74  |last%)..<!. last|
000043e0  25 3d b9 20 66 6c 61 67  73 25 3d 66 6c 61 67 73  |%=. flags%=flags|
000043f0  25 20 84 20 26 38 30 0d  14 46 0a 5b 4f 50 54 20  |% . &80..F.[OPT |
00004400  30 0d 14 50 2e 45 51 55  44 20 66 6c 61 67 73 25  |0..P.EQUD flags%|
00004410  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004420  20 20 20 20 3b 4d 65 6e  75 20 66 6c 61 67 73 0d  |    ;Menu flags.|
00004430  14 5a 40 45 51 55 44 20  73 75 62 6d 65 6e 75 25  |.Z@EQUD submenu%|
00004440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004450  20 20 3b 53 75 62 6d 65  6e 75 20 70 6f 69 6e 74  |  ;Submenu point|
00004460  65 72 20 28 2d 31 20 69  66 20 6e 6f 6e 65 29 0d  |er (-1 if none).|
00004470  14 64 4f 45 51 55 44 20  69 63 6f 6e 25 20 20 20  |.dOEQUD icon%   |
00004480  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004490  20 20 3b 4d 65 6e 75 20  69 74 65 6d 20 69 63 6f  |  ;Menu item ico|
000044a0  6e 20 66 6c 61 67 73 20  28 61 73 20 66 6f 72 20  |n flags (as for |
000044b0  61 20 6e 6f 72 6d 61 6c  20 69 63 6f 6e 29 0d 14  |a normal icon)..|
000044c0  6e 21 5d 3a 24 50 25 3d  c0 74 65 78 74 24 2c 31  |n!]:$P%=.text$,1|
000044d0  31 29 2b bd 30 3a 50 25  2b 3d 31 32 3a 3d 30 0d  |1)+.0:P%+=12:=0.|
000044e0  14 78 05 3a 0d 14 82 0f  dd a4 70 61 72 28 73 65  |.x.:......par(se|
000044f0  70 24 29 0d 14 8c 2b 69  31 25 3d 69 25 2b 31 3a  |p$)...+i1%=i%+1:|
00004500  69 25 3d a7 6d 65 6e 75  73 74 72 69 6e 67 24 2b  |i%=.menustring$+|
00004510  73 65 70 24 2c 73 65 70  24 2c 69 31 25 29 0d 14  |sep$,sep$,i1%)..|
00004520  96 1d 3d c1 6d 65 6e 75  73 74 72 69 6e 67 24 2c  |..=.menustring$,|
00004530  69 31 25 2c 69 25 2d 69  31 25 29 0d 14 a0 05 3a  |i1%,i%-i1%)....:|
00004540  0d 14 aa 29 dd a4 63 72  6d 75 28 6d 65 6e 75 73  |...)..crmu(menus|
00004550  74 72 69 6e 67 24 2c 6d  75 74 69 74 6c 65 24 2c  |tring$,mutitle$,|
00004560  61 64 64 72 65 73 73 25  29 0d 14 b4 34 6e 75 6d  |address%)...4num|
00004570  62 65 72 25 3d 2d 31 3a  69 25 3d 30 3a 77 69 64  |ber%=-1:i%=0:wid|
00004580  74 68 25 3d a9 28 6d 75  74 69 74 6c 65 24 29 2d  |th%=.(mutitle$)-|
00004590  32 3a 50 25 3d 61 64 64  72 65 73 73 25 0d 14 be  |2:P%=address%...|
000045a0  2d f5 3a 6e 75 6d 62 65  72 25 2b 3d 31 3a 6d 65  |-.:number%+=1:me|
000045b0  6e 75 69 74 65 6d 24 28  6e 75 6d 62 65 72 25 29  |nuitem$(number%)|
000045c0  3d a4 70 61 72 28 22 2c  22 29 0d 14 c8 26 fd 20  |=.par(",")...&. |
000045d0  6d 65 6e 75 69 74 65 6d  24 28 6e 75 6d 62 65 72  |menuitem$(number|
000045e0  25 29 3d 22 22 3a 6e 75  6d 62 65 72 25 2d 3d 31  |%)="":number%-=1|
000045f0  0d 14 d2 28 5b 4f 50 54  20 30 3a a4 6d 65 6e 75  |...([OPT 0:.menu|
00004600  28 6d 75 74 69 74 6c 65  24 2c 77 69 64 74 68 25  |(mutitle$,width%|
00004610  2c 34 30 2c 30 29 3a 5d  0d 14 dc 1b e3 20 6d 65  |,40,0):]..... me|
00004620  6e 75 69 74 65 6d 25 3d  30 20 b8 20 6e 75 6d 62  |nuitem%=0 . numb|
00004630  65 72 25 0d 14 e6 28 69  74 65 6d 66 6c 61 67 73  |er%...(itemflags|
00004640  25 3d a4 6d 65 6e 75 69  74 65 6d 66 6c 61 67 73  |%=.menuitemflags|
00004650  28 6d 65 6e 75 69 74 65  6d 25 29 0d 14 f0 18 69  |(menuitem%)....i|
00004660  63 6f 6e 66 6c 61 67 73  25 3d 26 30 37 30 30 30  |conflags%=&07000|
00004670  30 32 31 0d 14 fa 27 73  75 62 6d 65 6e 75 25 3d  |021...'submenu%=|
00004680  a4 73 75 62 6d 65 6e 75  70 6f 69 6e 74 65 72 28  |.submenupointer(|
00004690  6d 65 6e 75 69 74 65 6d  25 29 0d 15 04 2f e7 20  |menuitem%).../. |
000046a0  6d 65 6e 75 69 74 65 6d  25 3d 6e 75 6d 62 65 72  |menuitem%=number|
000046b0  25 20 6c 61 73 74 6f 70  74 25 3d b9 20 8b 20 6c  |% lastopt%=. . l|
000046c0  61 73 74 6f 70 74 25 3d  a3 0d 15 0e 43 e7 20 a9  |astopt%=....C. .|
000046d0  28 6d 65 6e 75 69 74 65  6d 24 28 6d 65 6e 75 69  |(menuitem$(menui|
000046e0  74 65 6d 25 29 29 3e 77  69 64 74 68 25 20 77 69  |tem%))>width% wi|
000046f0  64 74 68 25 3d a9 28 6d  65 6e 75 69 74 65 6d 24  |dth%=.(menuitem$|
00004700  28 6d 65 6e 75 69 74 65  6d 25 29 29 0d 15 18 0a  |(menuitem%))....|
00004710  5b 4f 50 54 20 30 0d 15  22 4b a4 6d 65 6e 75 69  |[OPT 0.."K.menui|
00004720  74 65 6d 28 6d 65 6e 75  69 74 65 6d 24 28 6d 65  |tem(menuitem$(me|
00004730  6e 75 69 74 65 6d 25 29  2c 69 74 65 6d 66 6c 61  |nuitem%),itemfla|
00004740  67 73 25 2c 73 75 62 6d  65 6e 75 25 2c 69 63 6f  |gs%,submenu%,ico|
00004750  6e 66 6c 61 67 73 25 2c  6c 61 73 74 6f 70 74 25  |nflags%,lastopt%|
00004760  29 0d 15 2c 49 5d 3a ed  3a 77 69 64 74 68 25 2b  |)..,I]:.:width%+|
00004770  3d 31 3a 61 64 64 72 25  3d 50 25 3a 50 25 3d 61  |=1:addr%=P%:P%=a|
00004780  64 64 72 65 73 73 25 3a  5b 4f 50 54 20 30 3a a4  |ddress%:[OPT 0:.|
00004790  6d 65 6e 75 28 6d 75 74  69 74 6c 65 24 2c 77 69  |menu(mutitle$,wi|
000047a0  64 74 68 25 2c 34 30 2c  30 29 0d 15 36 0c 5d 3a  |dth%,40,0)..6.]:|
000047b0  3d 61 64 64 72 25 0d 15  40 05 3a 0d 15 4a 18 dd  |=addr%..@.:..J..|
000047c0  a4 73 75 62 6d 65 6e 75  70 6f 69 6e 74 65 72 28  |.submenupointer(|
000047d0  41 25 29 0d 15 54 2b 41  24 3d 6d 65 6e 75 69 74  |A%)..T+A$=menuit|
000047e0  65 6d 24 28 41 25 29 3a  69 25 3d a7 41 24 2c 22  |em$(A%):i%=.A$,"|
000047f0  3e 22 29 3a e7 20 69 25  3d 30 20 3d 2d 31 0d 15  |>"):. i%=0 =-1..|
00004800  5e 2c 42 24 3d c2 41 24  2c a9 28 41 24 29 2d 69  |^,B$=.A$,.(A$)-i|
00004810  25 29 3a 6d 65 6e 75 69  74 65 6d 24 28 41 25 29  |%):menuitem$(A%)|
00004820  3d c0 41 24 2c 69 25 2d  31 29 0d 15 68 23 e7 20  |=.A$,i%-1)..h#. |
00004830  c0 42 24 2c 31 29 3d 22  3e 22 20 8c 20 3d a0 28  |.B$,1)=">" . =.(|
00004840  c2 42 24 2c a9 28 42 24  29 2d 31 29 29 0d 15 72  |.B$,.(B$)-1))..r|
00004850  0a 3d a0 28 42 24 29 0d  15 7c 05 3a 0d 15 86 17  |.=.(B$)..|.:....|
00004860  dd a4 6d 65 6e 75 69 74  65 6d 66 6c 61 67 73 28  |..menuitemflags(|
00004870  41 25 29 0d 15 90 1d 41  24 3d 6d 65 6e 75 69 74  |A%)....A$=menuit|
00004880  65 6d 24 28 41 25 29 3a  66 6c 61 67 73 25 3d 30  |em$(A%):flags%=0|
00004890  0d 15 9a 2e e7 20 a7 41  24 2c 22 80 22 29 3e 30  |..... .A$,".")>0|
000048a0  20 41 24 3d a4 6f 75 74  63 68 61 72 28 41 24 2c  | A$=.outchar(A$,|
000048b0  22 80 22 29 3a 66 6c 61  67 73 25 2b 3d 31 0d 15  |"."):flags%+=1..|
000048c0  a4 2e e7 20 a7 41 24 2c  22 2d 22 29 3e 30 20 41  |... .A$,"-")>0 A|
000048d0  24 3d a4 6f 75 74 63 68  61 72 28 41 24 2c 22 2d  |$=.outchar(A$,"-|
000048e0  22 29 3a 66 6c 61 67 73  25 2b 3d 32 0d 15 ae 1c  |"):flags%+=2....|
000048f0  6d 65 6e 75 69 74 65 6d  24 28 41 25 29 3d 41 24  |menuitem$(A%)=A$|
00004900  3a 3d 66 6c 61 67 73 25  0d 15 b8 05 3a 0d 15 c2  |:=flags%....:...|
00004910  14 dd a4 6f 75 74 63 68  61 72 28 43 24 2c 44 24  |...outchar(C$,D$|
00004920  29 0d 15 cc 27 69 25 3d  a7 43 24 2c 44 24 29 3a  |)...'i%=.C$,D$):|
00004930  3d c0 43 24 2c 69 25 2d  31 29 2b c2 43 24 2c a9  |=.C$,i%-1)+.C$,.|
00004940  28 43 24 29 2d 69 25 29  0d 15 d6 05 3a 0d 15 e0  |(C$)-i%)....:...|
00004950  44 dd a4 74 65 6d 70 6c  61 74 65 28 74 65 6d 70  |D..template(temp|
00004960  24 2c 66 69 6c 65 6e 61  6d 65 24 2c 61 64 64 72  |$,filename$,addr|
00004970  25 2c 73 69 7a 65 25 2c  68 61 6e 64 6c 65 61 64  |%,size%,handlead|
00004980  64 72 25 29 3a ea 20 6e  75 6d 62 65 72 25 2c 69  |dr%):. number%,i|
00004990  25 0d 15 ea 25 c8 99 20  22 57 69 6d 70 5f 4f 70  |%...%.. "Wimp_Op|
000049a0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 66 69 6c  |enTemplate",,fil|
000049b0  65 6e 61 6d 65 24 0d 15  f4 20 6e 75 6d 62 65 72  |ename$... number|
000049c0  25 3d 2d 31 3a 69 25 3d  30 3a 73 69 7a 65 25 2b  |%=-1:i%=0:size%+|
000049d0  3d 61 64 64 72 25 0d 15  fe 32 f5 3a 6e 75 6d 62  |=addr%...2.:numb|
000049e0  65 72 25 2b 3d 31 3a 6e  61 6d 65 24 3d a4 70 61  |er%+=1:name$=.pa|
000049f0  72 74 65 6d 70 28 22 2c  22 29 3a e7 20 6e 61 6d  |rtemp(","):. nam|
00004a00  65 24 3c 3e 22 22 20 8c  0d 16 08 45 c8 99 20 22  |e$<>"" ....E.. "|
00004a10  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00004a20  65 22 2c 2c 77 6f 72 6b  62 6c 6f 63 6b 25 2c 61  |e",,workblock%,a|
00004a30  64 64 72 25 2c 73 69 7a  65 25 2c 2d 31 2c 6e 61  |ddr%,size%,-1,na|
00004a40  6d 65 24 20 b8 20 2c 2c  61 64 64 72 25 0d 16 12  |me$ . ,,addr%...|
00004a50  43 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |C.. "Wimp_Create|
00004a60  57 69 6e 64 6f 77 22 2c  2c 77 6f 72 6b 62 6c 6f  |Window",,workblo|
00004a70  63 6b 25 20 b8 20 21 28  68 61 6e 64 6c 65 61 64  |ck% . !(handlead|
00004a80  64 72 25 2b 28 34 2a 6e  75 6d 62 65 72 25 29 29  |dr%+(4*number%))|
00004a90  0d 16 1c 2f cd 3a fd 20  6e 61 6d 65 24 3d 22 22  |.../.:. name$=""|
00004aa0  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |:.. "Wimp_CloseT|
00004ab0  65 6d 70 6c 61 74 65 22  3a 3d 61 64 64 72 25 0d  |emplate":=addr%.|
00004ac0  16 26 05 3a 0d 16 30 13  dd a4 70 61 72 74 65 6d  |.&.:..0...partem|
00004ad0  70 28 73 65 70 24 29 0d  16 3a 25 69 31 25 3d 69  |p(sep$)..:%i1%=i|
00004ae0  25 2b 31 3a 69 25 3d a7  74 65 6d 70 24 2b 73 65  |%+1:i%=.temp$+se|
00004af0  70 24 2c 73 65 70 24 2c  69 31 25 29 0d 16 44 17  |p$,sep$,i1%)..D.|
00004b00  3d c1 74 65 6d 70 24 2c  69 31 25 2c 69 25 2d 69  |=.temp$,i1%,i%-i|
00004b10  31 25 29 0d 16 4e 05 3a  0d 16 58 44 dd a4 6d 61  |1%)..N.:..XD..ma|
00004b20  6b 65 69 63 6f 6e 28 77  69 6e 64 6f 77 25 2c 6d  |keicon(window%,m|
00004b30  69 6e 78 25 2c 6d 69 6e  79 25 2c 6d 61 78 78 25  |inx%,miny%,maxx%|
00004b40  2c 6d 61 78 79 25 2c 66  6c 61 67 73 25 2c 73 70  |,maxy%,flags%,sp|
00004b50  72 69 74 65 25 2c 74 65  78 74 25 29 0d 16 62 3e  |rite%,text%)..b>|
00004b60  77 6f 72 6b 62 6c 6f 63  6b 25 21 30 3d 77 69 6e  |workblock%!0=win|
00004b70  64 6f 77 25 3a 77 6f 72  6b 62 6c 6f 63 6b 25 21  |dow%:workblock%!|
00004b80  34 3d 6d 69 6e 78 25 3a  77 6f 72 6b 62 6c 6f 63  |4=minx%:workbloc|
00004b90  6b 25 21 38 3d 6d 69 6e  79 25 0d 16 6c 2b 77 6f  |k%!8=miny%..l+wo|
00004ba0  72 6b 62 6c 6f 63 6b 25  21 31 32 3d 6d 61 78 78  |rkblock%!12=maxx|
00004bb0  25 3a 77 6f 72 6b 62 6c  6f 63 6b 25 21 31 36 3d  |%:workblock%!16=|
00004bc0  6d 61 78 79 25 0d 16 76  42 77 6f 72 6b 62 6c 6f  |maxy%..vBworkblo|
00004bd0  63 6b 25 21 32 30 3d 66  6c 61 67 73 25 3a 77 6f  |ck%!20=flags%:wo|
00004be0  72 6b 62 6c 6f 63 6b 25  21 32 34 3d 74 65 78 74  |rkblock%!24=text|
00004bf0  25 3a 77 6f 72 6b 62 6c  6f 63 6b 25 21 32 38 3d  |%:workblock%!28=|
00004c00  73 70 72 69 74 65 25 0d  16 80 14 77 6f 72 6b 62  |sprite%....workb|
00004c10  6c 6f 63 6b 25 21 33 32  3d 32 30 0d 16 8a 3f c8  |lock%!32=20...?.|
00004c20  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00004c30  6f 6e 22 2c 2c 77 6f 72  6b 62 6c 6f 63 6b 25 20  |on",,workblock% |
00004c40  b8 20 69 63 6f 6e 68 61  6e 64 6c 65 25 3a 3d 69  |. iconhandle%:=i|
00004c50  63 6f 6e 68 61 6e 64 6c  65 25 0d 16 94 05 3a 0d  |conhandle%....:.|
00004c60  16 9e 12 dd f2 65 72 72  6f 72 28 6e 61 6d 65 24  |.....error(name$|
00004c70  29 0d 16 a8 2d e7 20 9f  3d 32 36 20 f2 6c 6f 67  |)...-. .=26 .log|
00004c80  6f 65 72 72 6f 72 28 22  42 61 64 20 6c 6f 67 6f  |oerror("Bad logo|
00004c90  20 70 61 72 61 6d 65 74  65 72 22 29 3a e1 0d 16  | parameter"):...|
00004ca0  b2 20 77 6f 72 6b 62 6c  6f 63 6b 25 21 30 3d 9f  |. workblock%!0=.|
00004cb0  3a ea 20 63 6c 69 63 6b  65 64 5f 6f 6e 25 0d 16  |:. clicked_on%..|
00004cc0  bc 3d 24 28 77 6f 72 6b  62 6c 6f 63 6b 25 2b 34  |.=$(workblock%+4|
00004cd0  29 3d f6 24 2b 22 20 28  69 6e 74 65 72 6e 61 6c  |)=.$+" (internal|
00004ce0  20 65 72 72 6f 72 20 63  6f 64 65 20 22 2b c3 28  | error code "+.(|
00004cf0  9e 29 2b 22 29 22 2b bd  28 30 29 0d 16 c6 1e e7  |.)+")"+.(0).....|
00004d00  20 9f 3d 32 35 35 20 24  28 77 6f 72 6b 62 6c 6f  | .=255 $(workblo|
00004d10  63 6b 25 2b 34 29 3d f6  24 0d 16 d0 3b c8 99 20  |ck%+4)=.$...;.. |
00004d20  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00004d30  72 22 2c 77 6f 72 6b 62  6c 6f 63 6b 25 2c 33 2c  |r",workblock%,3,|
00004d40  6e 61 6d 65 24 20 b8 20  2c 63 6c 69 63 6b 65 64  |name$ . ,clicked|
00004d50  5f 6f 6e 25 0d 16 da 1b  e7 20 63 6c 69 63 6b 65  |_on%..... clicke|
00004d60  64 5f 6f 6e 25 3d 32 20  71 75 69 74 25 3d b9 0d  |d_on%=2 quit%=..|
00004d70  16 e4 05 e1 0d 16 ee 05  3a 0d 16 f8 26 dd a4 77  |........:...&..w|
00004d80  69 6d 70 69 6e 69 74 28  6b 6e 6f 77 6e 76 65 72  |impinit(knownver|
00004d90  73 69 6f 6e 2c 74 61 73  6b 6e 61 6d 65 24 29 0d  |sion,taskname$).|
00004da0  17 02 47 c8 99 20 22 57  69 6d 70 5f 49 6e 69 74  |..G.. "Wimp_Init|
00004db0  69 61 6c 69 73 65 22 2c  31 30 30 2a 6b 6e 6f 77  |ialise",100*know|
00004dc0  6e 76 65 72 73 69 6f 6e  2c 26 34 42 35 33 34 31  |nversion,&4B5341|
00004dd0  35 34 2c 74 61 73 6b 6e  61 6d 65 24 20 b8 20 76  |54,taskname$ . v|
00004de0  65 72 73 69 6f 6e 0d 17  0c 0c 3d 76 65 72 73 69  |ersion....=versi|
00004df0  6f 6e 0d 17 16 05 3a 0d  17 20 41 dd a4 63 72 77  |on....:.. A..crw|
00004e00  69 6e 28 78 25 2c 79 25  2c 77 25 2c 68 25 2c 66  |in(x%,y%,w%,h%,f|
00004e10  6c 61 67 73 25 2c 62 63  6f 6c 25 2c 78 65 25 2c  |lags%,bcol%,xe%,|
00004e20  79 65 25 2c 77 61 66 25  2c 74 69 74 6c 65 25 2c  |ye%,waf%,title%,|
00004e30  6c 65 6e 67 74 68 25 29  0d 17 2a 3c 24 77 6f 72  |length%)..*<$wor|
00004e40  6b 62 6c 6f 63 6b 25 3d  c4 39 32 2c bd 28 30 29  |kblock%=.92,.(0)|
00004e50  29 3a f4 20 46 69 6c 6c  20 74 68 65 20 77 69 6e  |):. Fill the win|
00004e60  64 6f 77 20 62 6c 6f 63  6b 20 77 69 74 68 20 7a  |dow block with z|
00004e70  65 72 6f 73 0d 17 34 4a  77 6f 72 6b 62 6c 6f 63  |eros..4Jworkbloc|
00004e80  6b 25 21 30 3d 78 25 3a  77 6f 72 6b 62 6c 6f 63  |k%!0=x%:workbloc|
00004e90  6b 25 21 34 3d 79 25 3a  77 6f 72 6b 62 6c 6f 63  |k%!4=y%:workbloc|
00004ea0  6b 25 21 38 3d 78 25 2b  77 25 3a 77 6f 72 6b 62  |k%!8=x%+w%:workb|
00004eb0  6c 6f 63 6b 25 21 31 32  3d 79 25 2b 68 25 0d 17  |lock%!12=y%+h%..|
00004ec0  3e 29 77 6f 72 6b 62 6c  6f 63 6b 25 21 32 34 3d  |>)workblock%!24=|
00004ed0  2d 31 3a 77 6f 72 6b 62  6c 6f 63 6b 25 21 32 38  |-1:workblock%!28|
00004ee0  3d 66 6c 61 67 73 25 0d  17 48 47 77 6f 72 6b 62  |=flags%..HGworkb|
00004ef0  6c 6f 63 6b 25 3f 33 32  3d 37 3a 77 6f 72 6b 62  |lock%?32=7:workb|
00004f00  6c 6f 63 6b 25 3f 33 33  3d 32 3a 77 6f 72 6b 62  |lock%?33=2:workb|
00004f10  6c 6f 63 6b 25 3f 33 34  3d 37 3a 77 6f 72 6b 62  |lock%?34=7:workb|
00004f20  6c 6f 63 6b 25 3f 33 35  3d 62 63 6f 6c 25 0d 17  |lock%?35=bcol%..|
00004f30  52 34 77 6f 72 6b 62 6c  6f 63 6b 25 3f 33 36 3d  |R4workblock%?36=|
00004f40  33 3a 77 6f 72 6b 62 6c  6f 63 6b 25 3f 33 37 3d  |3:workblock%?37=|
00004f50  31 3a 77 6f 72 6b 62 6c  6f 63 6b 25 3f 33 38 3d  |1:workblock%?38=|
00004f60  31 32 0d 17 5c 28 77 6f  72 6b 62 6c 6f 63 6b 25  |12..\(workblock%|
00004f70  21 34 34 3d 2d 79 65 25  3a 77 6f 72 6b 62 6c 6f  |!44=-ye%:workblo|
00004f80  63 6b 25 21 34 38 3d 78  65 25 0d 17 66 2d 77 6f  |ck%!48=xe%..f-wo|
00004f90  72 6b 62 6c 6f 63 6b 25  21 35 36 3d 26 31 33 44  |rkblock%!56=&13D|
00004fa0  3a 77 6f 72 6b 62 6c 6f  63 6b 25 21 36 30 3d 77  |:workblock%!60=w|
00004fb0  61 66 25 3c 3c 31 32 0d  17 70 3f 77 6f 72 6b 62  |af%<<12..p?workb|
00004fc0  6c 6f 63 6b 25 21 37 32  3d 74 69 74 6c 65 25 3a  |lock%!72=title%:|
00004fd0  77 6f 72 6b 62 6c 6f 63  6b 25 21 37 36 3d 2d 31  |workblock%!76=-1|
00004fe0  3a 77 6f 72 6b 62 6c 6f  63 6b 25 21 38 30 3d 6c  |:workblock%!80=l|
00004ff0  65 6e 67 74 68 25 0d 17  7a 30 c8 99 20 22 57 69  |ength%..z0.. "Wi|
00005000  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00005010  2c 2c 77 6f 72 6b 62 6c  6f 63 6b 25 20 b8 20 68  |,,workblock% . h|
00005020  61 6e 64 6c 65 25 0d 17  84 0c 3d 68 61 6e 64 6c  |andle%....=handl|
00005030  65 25 0d 17 8e 05 3a 0d  17 98 2b dd f2 69 6e 66  |e%....:...+..inf|
00005040  6f 28 6e 61 6d 65 24 2c  70 75 72 70 6f 73 65 24  |o(name$,purpose$|
00005050  2c 61 75 74 68 6f 72 24  2c 76 65 72 73 69 6f 6e  |,author$,version|
00005060  24 29 0d 17 a2 1f f2 73  65 74 69 63 6f 6e 74 65  |$).....seticonte|
00005070  78 74 28 69 6e 66 6f 2c  31 32 2c 6e 61 6d 65 24  |xt(info,12,name$|
00005080  29 0d 17 ac 22 f2 73 65  74 69 63 6f 6e 74 65 78  |)...".seticontex|
00005090  74 28 69 6e 66 6f 2c 31  33 2c 70 75 72 70 6f 73  |t(info,13,purpos|
000050a0  65 24 29 0d 17 b6 21 f2  73 65 74 69 63 6f 6e 74  |e$)...!.seticont|
000050b0  65 78 74 28 69 6e 66 6f  2c 31 34 2c 61 75 74 68  |ext(info,14,auth|
000050c0  6f 72 24 29 0d 17 c0 22  f2 73 65 74 69 63 6f 6e  |or$)...".seticon|
000050d0  74 65 78 74 28 69 6e 66  6f 2c 31 35 2c 76 65 72  |text(info,15,ver|
000050e0  73 69 6f 6e 24 29 0d 17  ca 05 e1 0d 17 d4 05 3a  |sion$).........:|
000050f0  0d 17 de 38 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...8. ----------|
00005100  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005120  2d 2d 2d 2d 2d 2d 2d 2d  0d 17 e8 38 f4 20 7c 20  |--------...8. | |
00005130  20 20 20 20 20 4c 6f 67  6f 20 49 6e 74 65 72 70  |     Logo Interp|
00005140  72 65 74 65 72 20 50 72  6f 63 65 64 75 72 65 73  |reter Procedures|
00005150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 7c  |               ||
00005160  0d 17 f2 38 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...8. ----------|
00005170  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005190  2d 2d 2d 2d 2d 2d 2d 2d  0d 17 fc 05 3a 0d 18 06  |--------....:...|
000051a0  1b dd f2 6c 6f 67 6f 63  6f 6d 6d 61 6e 64 28 63  |...logocommand(c|
000051b0  6f 6d 6d 61 6e 64 24 29  0d 18 10 1e 63 6f 6d 6d  |ommand$)....comm|
000051c0  61 6e 64 24 3d a4 6e 6f  73 70 63 73 28 63 6f 6d  |and$=.nospcs(com|
000051d0  6d 61 6e 64 24 29 0d 18  1a 1f 63 6f 6d 6d 61 6e  |mand$)....comman|
000051e0  64 24 3d a4 6c 65 74 63  61 73 65 28 63 6f 6d 6d  |d$=.letcase(comm|
000051f0  61 6e 64 24 29 0d 18 24  25 63 6f 6d 6d 61 6e 64  |and$)..$%command|
00005200  24 3d a4 65 78 70 61 6e  64 63 6f 6d 6d 61 6e 64  |$=.expandcommand|
00005210  28 63 6f 6d 6d 61 6e 64  24 29 0d 18 2e 44 e7 20  |(command$)...D. |
00005220  c0 63 6f 6d 6d 61 6e 64  24 2c 37 29 3d 22 46 4f  |.command$,7)="FO|
00005230  52 57 41 52 44 22 20 20  20 f2 66 6f 72 77 61 72  |RWARD"   .forwar|
00005240  64 28 a0 28 c2 63 6f 6d  6d 61 6e 64 24 2c a9 28  |d(.(.command$,.(|
00005250  63 6f 6d 6d 61 6e 64 24  29 2d 37 29 29 29 0d 18  |command$)-7)))..|
00005260  38 41 e7 20 c0 63 6f 6d  6d 61 6e 64 24 2c 34 29  |8A. .command$,4)|
00005270  3d 22 42 41 43 4b 22 20  20 20 20 20 20 f2 62 61  |="BACK"      .ba|
00005280  63 6b 28 a0 28 c2 63 6f  6d 6d 61 6e 64 24 2c a9  |ck(.(.command$,.|
00005290  28 63 6f 6d 6d 61 6e 64  24 29 2d 34 29 29 29 0d  |(command$)-4))).|
000052a0  18 42 41 e7 20 c0 63 6f  6d 6d 61 6e 64 24 2c 34  |.BA. .command$,4|
000052b0  29 3d 22 4c 45 46 54 22  20 20 20 20 20 20 f2 6c  |)="LEFT"      .l|
000052c0  65 66 74 28 a0 28 c2 63  6f 6d 6d 61 6e 64 24 2c  |eft(.(.command$,|
000052d0  a9 28 63 6f 6d 6d 61 6e  64 24 29 2d 34 29 29 29  |.(command$)-4)))|
000052e0  0d 18 4c 42 e7 20 c0 63  6f 6d 6d 61 6e 64 24 2c  |..LB. .command$,|
000052f0  35 29 3d 22 52 49 47 48  54 22 20 20 20 20 20 f2  |5)="RIGHT"     .|
00005300  72 69 67 68 74 28 a0 28  c2 63 6f 6d 6d 61 6e 64  |right(.(.command|
00005310  24 2c a9 28 63 6f 6d 6d  61 6e 64 24 29 2d 35 29  |$,.(command$)-5)|
00005320  29 29 0d 18 56 42 e7 20  c0 63 6f 6d 6d 61 6e 64  |))..VB. .command|
00005330  24 2c 35 29 3d 22 41 4e  47 4c 45 22 20 20 20 20  |$,5)="ANGLE"    |
00005340  20 f2 61 6e 67 6c 65 28  a0 28 c2 63 6f 6d 6d 61  | .angle(.(.comma|
00005350  6e 64 24 2c a9 28 63 6f  6d 6d 61 6e 64 24 29 2d  |nd$,.(command$)-|
00005360  35 29 29 29 0d 18 60 41  e7 20 c0 63 6f 6d 6d 61  |5)))..`A. .comma|
00005370  6e 64 24 2c 34 29 3d 22  48 45 4c 50 22 20 20 20  |nd$,4)="HELP"   |
00005380  20 20 20 f2 68 65 6c 70  63 6f 6d 28 c2 63 6f 6d  |   .helpcom(.com|
00005390  6d 61 6e 64 24 2c a9 28  63 6f 6d 6d 61 6e 64 24  |mand$,.(command$|
000053a0  29 2d 34 29 29 0d 18 6a  24 e7 20 c0 63 6f 6d 6d  |)-4))..j$. .comm|
000053b0  61 6e 64 24 2c 34 29 3d  22 48 4f 4d 45 22 20 20  |and$,4)="HOME"  |
000053c0  20 20 20 20 f2 68 6f 6d  65 0d 18 74 25 e7 20 c0  |    .home..t%. .|
000053d0  63 6f 6d 6d 61 6e 64 24  2c 35 29 3d 22 43 4c 45  |command$,5)="CLE|
000053e0  41 52 22 20 20 20 20 20  f2 63 6c 65 61 72 0d 18  |AR"     .clear..|
000053f0  7e 25 e7 20 c0 63 6f 6d  6d 61 6e 64 24 2c 35 29  |~%. .command$,5)|
00005400  3d 22 50 45 4e 55 50 22  20 20 20 20 20 f2 70 65  |="PENUP"     .pe|
00005410  6e 75 70 0d 18 88 27 e7  20 c0 63 6f 6d 6d 61 6e  |nup...'. .comman|
00005420  64 24 2c 37 29 3d 22 50  45 4e 44 4f 57 4e 22 20  |d$,7)="PENDOWN" |
00005430  20 20 f2 70 65 6e 64 6f  77 6e 0d 18 92 46 e7 20  |  .pendown...F. |
00005440  c0 63 6f 6d 6d 61 6e 64  24 2c 39 29 3d 22 50 45  |.command$,9)="PE|
00005450  4e 43 4f 4c 4f 55 52 22  20 f2 70 65 6e 63 6f 6c  |NCOLOUR" .pencol|
00005460  6f 75 72 28 a0 28 c2 63  6f 6d 6d 61 6e 64 24 2c  |our(.(.command$,|
00005470  a9 28 63 6f 6d 6d 61 6e  64 24 29 2d 39 29 29 29  |.(command$)-9)))|
00005480  0d 18 9c 38 e7 20 c0 63  6f 6d 6d 61 6e 64 24 2c  |...8. .command$,|
00005490  33 29 3d 22 52 55 4e 22  20 20 20 20 20 20 20 80  |3)="RUN"       .|
000054a0  20 73 74 61 74 75 73 25  3d 31 3a f2 73 74 61 72  | status%=1:.star|
000054b0  74 70 72 6f 67 72 61 6d  0d 18 a6 27 e7 20 c0 63  |tprogram...'. .c|
000054c0  6f 6d 6d 61 6e 64 24 2c  37 29 3d 22 52 45 53 54  |ommand$,7)="REST|
000054d0  41 52 54 22 20 20 20 f2  72 65 73 74 61 72 74 0d  |ART"   .restart.|
000054e0  18 b0 27 e7 20 c0 63 6f  6d 6d 61 6e 64 24 2c 37  |..'. .command$,7|
000054f0  29 3d 22 53 45 54 48 4f  4d 45 22 20 20 20 f2 73  |)="SETHOME"   .s|
00005500  65 74 68 6f 6d 65 0d 18  ba 05 e1 0d 18 c4 05 3a  |ethome.........:|
00005510  0d 18 ce 1c dd f2 6c 6f  61 64 70 72 6f 67 72 61  |......loadprogra|
00005520  6d 28 66 69 6c 65 6e 61  6d 65 24 29 0d 18 d8 39  |m(filename$)...9|
00005530  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 31 32 2c  |.. "OS_File",12,|
00005540  66 69 6c 65 6e 61 6d 65  24 2c 6c 6f 67 6f 66 69  |filename$,logofi|
00005550  6c 65 25 2c 30 20 b8 20  2c 2c 2c 2c 66 69 6c 65  |le%,0 . ,,,,file|
00005560  73 69 7a 65 25 0d 18 e2  22 f2 74 6f 73 65 61 72  |size%...".tosear|
00005570  63 68 28 6c 6f 67 6f 66  69 6c 65 25 2c 66 69 6c  |ch(logofile%,fil|
00005580  65 73 69 7a 65 25 29 0d  18 ec 19 f2 6f 70 65 6e  |esize%).....open|
00005590  74 6f 66 72 6f 6e 74 28  70 72 6f 67 72 61 6d 29  |tofront(program)|
000055a0  0d 18 f6 29 f2 73 65 74  69 63 6f 6e 74 65 78 74  |...).seticontext|
000055b0  28 70 72 6f 67 72 61 6d  2c 31 33 2c c3 28 66 69  |(program,13,.(fi|
000055c0  6c 65 73 69 7a 65 25 29  29 0d 19 00 21 f2 73 65  |lesize%))...!.se|
000055d0  74 69 63 6f 6e 74 65 78  74 28 70 72 6f 67 72 61  |ticontext(progra|
000055e0  6d 2c 31 36 2c 22 30 25  22 29 0d 19 0a 25 f2 73  |m,16,"0%")...%.s|
000055f0  65 74 69 63 6f 6e 74 65  78 74 28 70 72 6f 67 72  |eticontext(progr|
00005600  61 6d 2c 38 2c 66 69 6c  65 6e 61 6d 65 24 29 0d  |am,8,filename$).|
00005610  19 14 43 f2 73 65 74 69  63 6f 6e 74 65 78 74 28  |..C.seticontext(|
00005620  70 72 6f 67 72 61 6d 2c  31 30 2c 22 52 75 6e 22  |program,10,"Run"|
00005630  29 3a f2 73 65 74 69 63  6f 6e 74 65 78 74 28 70  |):.seticontext(p|
00005640  72 6f 67 72 61 6d 2c 31  32 2c 22 41 62 6f 72 74  |rogram,12,"Abort|
00005650  22 29 0d 19 1e 35 f2 73  65 6c 65 63 74 61 62 6c  |")...5.selectabl|
00005660  65 28 70 72 6f 67 72 61  6d 2c 31 30 29 3a f2 75  |e(program,10):.u|
00005670  6e 73 65 6c 65 63 74 61  62 6c 65 28 70 72 6f 67  |nselectable(prog|
00005680  72 61 6d 2c 31 32 29 0d  19 28 75 f2 73 65 74 69  |ram,12)..(u.seti|
00005690  63 6f 6e 74 65 78 74 28  63 6f 6d 6d 61 6e 64 2c  |context(command,|
000056a0  35 2c 22 49 6e 66 6f 3a  22 29 3a f2 73 65 74 69  |5,"Info:"):.seti|
000056b0  63 6f 6e 74 65 78 74 28  63 6f 6d 6d 61 6e 64 2c  |context(command,|
000056c0  31 31 2c 22 50 72 6f 67  72 61 6d 20 6c 6f 61 64  |11,"Program load|
000056d0  65 64 2e 20 22 2b c3 28  74 6f 25 29 2b 22 20 72  |ed. "+.(to%)+" r|
000056e0  6f 75 74 69 6e 65 73 2e  20 54 79 70 65 20 52 55  |outines. Type RU|
000056f0  4e 20 74 6f 20 62 65 67  69 6e 22 29 0d 19 32 0d  |N to begin")..2.|
00005700  f2 73 63 72 6f 6c 6c 75  70 0d 19 3c 3f f2 73 65  |.scrollup..<?.se|
00005710  74 69 63 6f 6e 74 65 78  74 28 63 6f 6d 6d 61 6e  |ticontext(comman|
00005720  64 2c 35 2c 22 4c 6f 47  6f 3a 22 29 3a f2 73 65  |d,5,"LoGo:"):.se|
00005730  74 69 63 6f 6e 74 65 78  74 28 63 6f 6d 6d 61 6e  |ticontext(comman|
00005740  64 2c 31 31 2c 22 22 29  0d 19 46 0f 73 74 61 74  |d,11,"")..F.stat|
00005750  75 73 25 3d 31 3a e1 0d  19 50 05 3a 0d 19 5a 12  |us%=1:...P.:..Z.|
00005760  dd f2 73 74 61 72 74 70  72 6f 67 72 61 6d 0d 19  |..startprogram..|
00005770  64 34 65 6e 64 25 3d a3  3a f2 73 65 74 62 75 74  |d4end%=.:.setbut|
00005780  74 6f 6e 74 79 70 65 28  63 6f 6d 6d 61 6e 64 2c  |tontype(command,|
00005790  31 31 2c 30 29 3a f2 64  69 73 6f 77 6e 63 61 72  |11,0):.disowncar|
000057a0  65 74 0d 19 6e 1e 70 6f  69 6e 74 25 3d 6c 6f 67  |et..n.point%=log|
000057b0  6f 66 69 6c 65 25 3a 73  74 61 74 75 73 25 3d 32  |ofile%:status%=2|
000057c0  0d 19 78 21 f2 73 65 74  69 63 6f 6e 74 65 78 74  |..x!.seticontext|
000057d0  28 70 72 6f 67 72 61 6d  2c 31 36 2c 22 30 25 22  |(program,16,"0%"|
000057e0  29 0d 19 82 33 f2 73 65  6c 65 63 74 61 62 6c 65  |)...3.selectable|
000057f0  28 70 72 6f 67 72 61 6d  2c 31 30 29 3a f2 73 65  |(program,10):.se|
00005800  6c 65 63 74 61 62 6c 65  28 70 72 6f 67 72 61 6d  |lectable(program|
00005810  2c 31 32 29 0d 19 8c 45  f2 73 65 74 69 63 6f 6e  |,12)...E.seticon|
00005820  74 65 78 74 28 70 72 6f  67 72 61 6d 2c 31 30 2c  |text(program,10,|
00005830  22 50 61 75 73 65 22 29  3a f2 73 65 74 69 63 6f  |"Pause"):.setico|
00005840  6e 74 65 78 74 28 70 72  6f 67 72 61 6d 2c 31 32  |ntext(program,12|
00005850  2c 22 41 62 6f 72 74 22  29 0d 19 96 36 f2 75 6e  |,"Abort")...6.un|
00005860  73 65 6c 65 63 74 61 62  6c 65 28 70 72 6f 67 72  |selectable(progr|
00005870  61 6d 2c 32 29 3a f2 75  6e 73 65 6c 65 63 74 61  |am,2):.unselecta|
00005880  62 6c 65 28 70 72 6f 67  72 61 6d 2c 32 31 29 0d  |ble(program,21).|
00005890  19 a0 36 f2 75 6e 73 65  6c 65 63 74 61 62 6c 65  |..6.unselectable|
000058a0  28 70 72 6f 67 72 61 6d  2c 33 29 3a f2 75 6e 73  |(program,3):.uns|
000058b0  65 6c 65 63 74 61 62 6c  65 28 70 72 6f 67 72 61  |electable(progra|
000058c0  6d 2c 32 32 29 0d 19 aa  36 f2 75 6e 73 65 6c 65  |m,22)...6.unsele|
000058d0  63 74 61 62 6c 65 28 70  72 6f 67 72 61 6d 2c 37  |ctable(program,7|
000058e0  29 3a f2 75 6e 73 65 6c  65 63 74 61 62 6c 65 28  |):.unselectable(|
000058f0  70 72 6f 67 72 61 6d 2c  32 33 29 0d 19 b4 26 f2  |program,23)...&.|
00005900  73 65 74 69 63 6f 6e 74  65 78 74 28 2d 32 2c 69  |seticontext(-2,i|
00005910  63 6f 6e 62 61 72 2c 22  52 75 6e 6e 69 6e 67 22  |conbar,"Running"|
00005920  29 0d 19 be 12 f2 73 65  74 75 70 64 72 61 77 66  |).....setupdrawf|
00005930  69 6c 65 0d 19 c8 05 e1  0d 19 d2 05 3a 0d 19 dc  |ile.........:...|
00005940  10 dd f2 72 75 6e 70 72  6f 67 72 61 6d 0d 19 e6  |...runprogram...|
00005950  32 70 65 72 73 63 65 6e  74 25 3d 28 28 28 70 6f  |2perscent%=(((po|
00005960  69 6e 74 25 2d 6c 6f 67  6f 66 69 6c 65 25 29 2f  |int%-logofile%)/|
00005970  66 69 6c 65 73 69 7a 65  25 29 2a 31 30 30 29 0d  |filesize%)*100).|
00005980  19 f0 41 24 70 6f 73 69  63 6f 6e 3d c3 28 70 65  |..A$posicon=.(pe|
00005990  72 73 63 65 6e 74 25 29  2b 22 25 22 3a 71 25 21  |rscent%)+"%":q%!|
000059a0  30 3d 70 72 6f 67 72 61  6d 3a 71 25 21 34 3d 31  |0=program:q%!4=1|
000059b0  36 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 30  |6:q%!8=0:q%!12=0|
000059c0  0d 19 fa 1e c8 99 20 22  57 69 6d 70 5f 53 65 74  |...... "Wimp_Set|
000059d0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 1a  |IconState",,q%..|
000059e0  04 34 41 24 3d a4 63 6f  6d 73 74 72 69 6e 67 28  |.4A$=.comstring(|
000059f0  70 6f 69 6e 74 25 29 3a  70 6f 69 6e 74 25 3d a4  |point%):point%=.|
00005a00  67 65 74 63 6f 6d 6d 61  6e 64 28 70 6f 69 6e 74  |getcommand(point|
00005a10  25 29 0d 1a 0e 22 45 72  72 6f 72 24 3d 22 22 3a  |%)..."Error$="":|
00005a20  63 6f 6d 6e 75 6d 25 3d  a4 70 72 6f 67 63 6f 6d  |comnum%=.progcom|
00005a30  28 41 24 29 0d 1a 18 2c  e7 20 63 6f 6d 6e 75 6d  |(A$)...,. comnum|
00005a40  25 3c 31 35 20 80 20 45  72 72 6f 72 24 3d 22 22  |%<15 . Error$=""|
00005a50  20 f2 69 6e 73 63 6f 6d  6d 61 6e 64 28 41 24 29  | .inscommand(A$)|
00005a60  0d 1a 22 38 e7 20 45 72  72 6f 72 24 3c 3e 22 22  |.."8. Error$<>""|
00005a70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f2  |               .|
00005a80  6c 6f 67 6f 65 72 72 6f  72 28 45 72 72 6f 72 24  |logoerror(Error$|
00005a90  29 3a 65 6e 64 25 3d b9  0d 1a 2c 3b e7 20 70 6f  |):end%=...,;. po|
00005aa0  69 6e 74 25 3e 3d 6c 6f  67 6f 66 69 6c 65 25 2b  |int%>=logofile%+|
00005ab0  66 69 6c 65 73 69 7a 65  25 20 20 20 20 20 20 20  |filesize%       |
00005ac0  20 20 20 20 20 20 20 20  20 20 20 20 20 65 6e 64  |             end|
00005ad0  25 3d b9 0d 1a 36 2c e7  20 65 6e 64 25 3d b9 20  |%=...6,. end%=. |
00005ae0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f2  |               .|
00005af0  70 72 6f 67 72 61 6d 66  69 6e 69 73 68 65 64 0d  |programfinished.|
00005b00  1a 40 05 e1 0d 1a 4a 05  3a 0d 1a 54 15 dd f2 70  |.@....J.:..T...p|
00005b10  72 6f 67 72 61 6d 66 69  6e 69 73 68 65 64 0d 1a  |rogramfinished..|
00005b20  5e 14 65 6e 64 25 3d b9  3a 73 74 61 74 75 73 25  |^.end%=.:status%|
00005b30  3d 31 0d 1a 68 21 f2 73  65 74 62 75 74 74 6f 6e  |=1..h!.setbutton|
00005b40  74 79 70 65 28 63 6f 6d  6d 61 6e 64 2c 31 31 2c  |type(command,11,|
00005b50  31 35 29 0d 1a 72 30 e7  20 a4 77 69 6e 64 6f 77  |15)..r0. .window|
00005b60  6f 70 65 6e 28 63 6f 6d  6d 61 6e 64 29 20 f2 70  |open(command) .p|
00005b70  75 74 63 61 72 65 74 28  63 6f 6d 6d 61 6e 64 2c  |utcaret(command,|
00005b80  31 31 29 0d 1a 7c 32 f2  73 65 6c 65 63 74 61 62  |11)..|2.selectab|
00005b90  6c 65 28 70 72 6f 67 72  61 6d 2c 32 29 3a f2 73  |le(program,2):.s|
00005ba0  65 6c 65 63 74 61 62 6c  65 28 70 72 6f 67 72 61  |electable(progra|
00005bb0  6d 2c 32 31 29 0d 1a 86  32 f2 73 65 6c 65 63 74  |m,21)...2.select|
00005bc0  61 62 6c 65 28 70 72 6f  67 72 61 6d 2c 33 29 3a  |able(program,3):|
00005bd0  f2 73 65 6c 65 63 74 61  62 6c 65 28 70 72 6f 67  |.selectable(prog|
00005be0  72 61 6d 2c 32 32 29 0d  1a 90 32 f2 73 65 6c 65  |ram,22)...2.sele|
00005bf0  63 74 61 62 6c 65 28 70  72 6f 67 72 61 6d 2c 37  |ctable(program,7|
00005c00  29 3a f2 73 65 6c 65 63  74 61 62 6c 65 28 70 72  |):.selectable(pr|
00005c10  6f 67 72 61 6d 2c 32 33  29 0d 1a 9a 35 f2 73 65  |ogram,23)...5.se|
00005c20  6c 65 63 74 61 62 6c 65  28 70 72 6f 67 72 61 6d  |lectable(program|
00005c30  2c 31 30 29 3a f2 75 6e  73 65 6c 65 63 74 61 62  |,10):.unselectab|
00005c40  6c 65 28 70 72 6f 67 72  61 6d 2c 31 32 29 0d 1a  |le(program,12)..|
00005c50  a4 43 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 70  |.C.seticontext(p|
00005c60  72 6f 67 72 61 6d 2c 31  30 2c 22 52 55 4e 22 29  |rogram,10,"RUN")|
00005c70  3a f2 73 65 74 69 63 6f  6e 74 65 78 74 28 70 72  |:.seticontext(pr|
00005c80  6f 67 72 61 6d 2c 31 32  2c 22 41 62 6f 72 74 22  |ogram,12,"Abort"|
00005c90  29 0d 1a ae 26 f2 73 65  74 69 63 6f 6e 74 65 78  |)...&.seticontex|
00005ca0  74 28 2d 32 2c 69 63 6f  6e 62 61 72 2c 22 57 61  |t(-2,iconbar,"Wa|
00005cb0  69 74 69 6e 67 22 29 0d  1a b8 11 f2 73 61 76 65  |iting").....save|
00005cc0  64 72 61 77 66 69 6c 65  0d 1a c2 1b e7 20 a4 69  |drawfile..... .i|
00005cd0  63 6f 6e 65 6f 72 28 70  72 6f 67 72 61 6d 2c 37  |coneor(program,7|
00005ce0  29 20 8c 0d 1a cc 31 f2  73 65 6c 65 63 74 61 62  |) ....1.selectab|
00005cf0  6c 65 28 70 72 6f 67 72  61 6d 2c 33 29 3a f2 73  |le(program,3):.s|
00005d00  65 6c 65 63 74 61 62 6c  65 28 70 72 6f 67 72 61  |electable(progra|
00005d10  6d 2c 32 29 0d 1a d6 05  cc 0d 1a e0 35 f2 75 6e  |m,2)........5.un|
00005d20  73 65 6c 65 63 74 61 62  6c 65 28 70 72 6f 67 72  |selectable(progr|
00005d30  61 6d 2c 33 29 3a f2 75  6e 73 65 6c 65 63 74 61  |am,3):.unselecta|
00005d40  62 6c 65 28 70 72 6f 67  72 61 6d 2c 32 29 0d 1a  |ble(program,2)..|
00005d50  ea 05 cd 0d 1a f4 05 e1  0d 1a fe 05 3a 0d 1b 08  |............:...|
00005d60  12 dd f2 70 61 75 73 65  70 72 6f 67 72 61 6d 0d  |...pauseprogram.|
00005d70  1b 12 18 e7 20 70 6f 69  6e 74 25 3d 6c 6f 67 6f  |.... point%=logo|
00005d80  66 69 6c 65 25 20 e1 0d  1b 1c 37 65 6e 64 25 3d  |file% ....7end%=|
00005d90  b9 3a 73 74 61 74 75 73  25 3d 33 3a f2 73 65 74  |.:status%=3:.set|
00005da0  69 63 6f 6e 74 65 78 74  28 70 72 6f 67 72 61 6d  |icontext(program|
00005db0  2c 31 32 2c 22 52 65 73  74 61 72 74 22 29 0d 1b  |,12,"Restart")..|
00005dc0  26 43 f2 75 6e 73 65 6c  65 63 74 61 62 6c 65 28  |&C.unselectable(|
00005dd0  70 72 6f 67 72 61 6d 2c  31 30 29 3a f2 73 65 74  |program,10):.set|
00005de0  69 63 6f 6e 74 65 78 74  28 2d 32 2c 69 63 6f 6e  |icontext(-2,icon|
00005df0  62 61 72 2c 22 20 50 61  75 73 65 64 20 22 29 3a  |bar," Paused "):|
00005e00  e1 0d 1b 30 05 3a 0d 1b  3a 14 dd f2 75 6e 70 61  |...0.:..:...unpa|
00005e10  75 73 65 70 72 6f 67 72  61 6d 0d 1b 44 35 65 6e  |useprogram..D5en|
00005e20  64 25 3d a3 3a 73 74 61  74 75 73 25 3d 32 3a f2  |d%=.:status%=2:.|
00005e30  73 65 74 69 63 6f 6e 74  65 78 74 28 70 72 6f 67  |seticontext(prog|
00005e40  72 61 6d 2c 31 32 2c 22  41 62 6f 72 74 22 29 0d  |ram,12,"Abort").|
00005e50  1b 4e 40 f2 73 65 6c 65  63 74 61 62 6c 65 28 70  |.N@.selectable(p|
00005e60  72 6f 67 72 61 6d 2c 31  30 29 3a f2 73 65 74 69  |rogram,10):.seti|
00005e70  63 6f 6e 74 65 78 74 28  2d 32 2c 69 63 6f 6e 62  |context(-2,iconb|
00005e80  61 72 2c 22 52 75 6e 6e  69 6e 67 22 29 3a e1 0d  |ar,"Running"):..|
00005e90  1b 58 05 3a 0d 1b 62 3a  f4 20 2d 2d 2d 2d 2d 2d  |.X.:..b:. ------|
00005ea0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005ec0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 1b  |--------------..|
00005ed0  6c 3a f4 20 7c 20 20 20  20 50 72 6f 63 65 64 75  |l:. |    Procedu|
00005ee0  72 65 73 20 66 6f 72 20  64 65 61 6c 69 6e 67 20  |res for dealing |
00005ef0  77 69 74 68 20 74 79 70  65 64 20 63 6f 6d 6d 61  |with typed comma|
00005f00  6e 64 73 20 20 20 20 7c  0d 1b 76 3a f4 20 2d 2d  |nds    |..v:. --|
00005f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005f40  2d 2d 0d 1b 80 05 3a 0d  1b 8a 15 dd f2 63 6f 6d  |--....:......com|
00005f50  6d 61 6e 64 6c 69 6e 65  28 41 24 29 0d 1b 94 1b  |mandline(A$)....|
00005f60  e7 20 73 74 61 74 75 73  25 3c 3e 31 20 84 20 65  |. status%<>1 . e|
00005f70  6e 64 25 3d a3 20 e1 0d  1b 9e 21 6c 73 74 61 63  |nd%=. ....!lstac|
00005f80  6b 25 3d 30 3a 73 74 61  63 6b 25 3d 30 3a 65 6e  |k%=0:stack%=0:en|
00005f90  64 6c 69 6e 65 25 3d a3  0d 1b a8 3f 24 63 6f 6d  |dline%=....?$com|
00005fa0  6d 61 6e 64 6c 69 6e 65  25 3d 41 24 2b bd 28 30  |mandline%=A$+.(0|
00005fb0  29 3a 63 6f 6d 6d 61 6e  64 6c 65 6e 25 3d a9 28  |):commandlen%=.(|
00005fc0  41 24 29 3a 70 6f 69 6e  74 25 3d 63 6f 6d 6d 61  |A$):point%=comma|
00005fd0  6e 64 6c 69 6e 65 25 0d  1b b2 15 c8 99 20 22 48  |ndline%...... "H|
00005fe0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 1b bc 36  |ourglass_On"...6|
00005ff0  f5 3a 41 24 3d a4 63 6f  6d 73 74 72 69 6e 67 28  |.:A$=.comstring(|
00006000  70 6f 69 6e 74 25 29 3a  70 6f 69 6e 74 25 3d a4  |point%):point%=.|
00006010  67 65 74 63 6f 6d 6d 61  6e 64 28 70 6f 69 6e 74  |getcommand(point|
00006020  25 29 0d 1b c6 22 45 72  72 6f 72 24 3d 22 22 3a  |%)..."Error$="":|
00006030  63 6f 6d 6e 75 6d 25 3d  a4 70 72 6f 67 63 6f 6d  |comnum%=.progcom|
00006040  28 41 24 29 0d 1b d0 27  e7 20 a6 20 2d 31 31 33  |(A$)...'. . -113|
00006050  20 85 20 32 35 35 2c 22  59 6f 75 20 70 72 65 73  | . 255,"You pres|
00006060  73 65 64 20 45 53 43 41  50 45 22 0d 1b da 2c e7  |sed ESCAPE"...,.|
00006070  20 63 6f 6d 6e 75 6d 25  3c 31 35 20 80 20 45 72  | comnum%<15 . Er|
00006080  72 6f 72 24 3d 22 22 20  f2 69 6e 73 63 6f 6d 6d  |ror$="" .inscomm|
00006090  61 6e 64 28 41 24 29 0d  1b e4 3c e7 20 45 72 72  |and(A$)...<. Err|
000060a0  6f 72 24 3c 3e 22 22 20  20 20 20 20 20 20 20 20  |or$<>""         |
000060b0  20 20 20 20 20 20 f2 6c  6f 67 6f 65 72 72 6f 72  |      .logoerror|
000060c0  28 45 72 72 6f 72 24 29  3a 65 6e 64 6c 69 6e 65  |(Error$):endline|
000060d0  25 3d b9 0d 1b ee 3f e7  20 70 6f 69 6e 74 25 3e  |%=....?. point%>|
000060e0  3d 63 6f 6d 6d 61 6e 64  6c 69 6e 65 25 2b 63 6f  |=commandline%+co|
000060f0  6d 6d 61 6e 64 6c 65 6e  25 20 20 20 20 20 20 20  |mmandlen%       |
00006100  20 20 20 20 20 20 20 20  65 6e 64 6c 69 6e 65 25  |        endline%|
00006110  3d b9 0d 1b f8 27 e7 20  a6 20 2d 31 31 33 20 85  |=....'. . -113 .|
00006120  20 32 35 35 2c 22 59 6f  75 20 70 72 65 73 73 65  | 255,"You presse|
00006130  64 20 45 53 43 41 50 45  22 0d 1c 02 19 fd 20 65  |d ESCAPE"..... e|
00006140  6e 64 6c 69 6e 65 25 3d  b9 20 84 20 65 6e 64 25  |ndline%=. . end%|
00006150  3d a3 0d 1c 0c 18 c8 99  20 22 48 6f 75 72 67 6c  |=....... "Hourgl|
00006160  61 73 73 5f 4f 66 66 22  3a e1 0d 1c 16 05 3a 0d  |ass_Off":.....:.|
00006170  1c 20 17 dd a4 67 65 74  63 6f 6d 6d 61 6e 64 28  |. ...getcommand(|
00006180  61 64 64 72 25 29 0d 1c  2a 3c f5 3a 41 25 3d 3f  |addr%)..*<.:A%=?|
00006190  61 64 64 72 25 3a 61 64  64 72 25 2b 3d 31 3a fd  |addr%:addr%+=1:.|
000061a0  20 41 25 3c 33 32 20 84  20 41 25 3d 31 32 37 20  | A%<32 . A%=127 |
000061b0  84 20 41 25 3d 97 28 22  3a 22 29 3a 3d 61 64 64  |. A%=.(":"):=add|
000061c0  72 25 0d 1c 34 05 3a 0d  1c 3e 16 dd a4 63 6f 6d  |r%..4.:..>...com|
000061d0  73 74 72 69 6e 67 28 61  64 64 72 25 29 0d 1c 48  |string(addr%)..H|
000061e0  0b 41 24 3d 22 22 3a f5  0d 1c 52 40 41 25 3d 3f  |.A$="":...R@A%=?|
000061f0  61 64 64 72 25 3a 61 64  64 72 25 2b 3d 31 3a e7  |addr%:addr%+=1:.|
00006200  20 41 25 3e 33 31 20 80  20 41 25 3c 3e 31 32 37  | A%>31 . A%<>127|
00006210  20 80 20 41 25 3c 3e 20  97 28 22 3a 22 29 20 41  | . A%<> .(":") A|
00006220  24 2b 3d bd 28 41 25 29  0d 1c 5c 24 fd 20 41 25  |$+=.(A%)..\$. A%|
00006230  3c 33 32 20 84 20 41 25  3d 31 32 37 20 84 20 41  |<32 . A%=127 . A|
00006240  25 3d 97 28 22 3a 22 29  3a 3d 41 24 0d 1c 66 05  |%=.(":"):=A$..f.|
00006250  3a 0d 1c 70 13 dd 20 a4  6e 6f 72 6d 63 6d 6e 64  |:..p.. .normcmnd|
00006260  28 41 24 29 0d 1c 7a 16  6e 25 3d 31 3a 4e 25 3d  |(A$)..z.n%=1:N%=|
00006270  30 3a f7 20 8d 74 76 5c  3a f5 0d 1c 84 29 f3 20  |0:. .tv\:....). |
00006280  46 24 2c 43 25 3a e7 20  a4 61 62 62 72 65 76 28  |F$,C%:. .abbrev(|
00006290  41 24 2c 46 24 2c 43 25  29 3e 30 20 8c 20 4e 25  |A$,F$,C%)>0 . N%|
000062a0  3d 6e 25 0d 1c 8e 15 6e  25 2b 3d 31 3a fd 20 46  |=n%....n%+=1:. F|
000062b0  24 3d 22 45 45 4e 44 22  0d 1c 98 12 e7 20 4e 25  |$="EEND"..... N%|
000062c0  3d 6e 25 2d 31 20 4e 25  3d 30 0d 1c a2 07 3d 4e  |=n%-1 N%=0....=N|
000062d0  25 0d 1c ac 05 3a 0d 1c  b6 25 dc 20 46 4f 52 57  |%....:...%. FORW|
000062e0  41 52 44 2c 31 2c 42 41  43 4b 2c 31 2c 4c 45 46  |ARD,1,BACK,1,LEF|
000062f0  54 2c 31 2c 52 49 47 48  54 2c 31 0d 1c c0 1c dc  |T,1,RIGHT,1.....|
00006300  20 41 4e 47 4c 45 2c 31  2c 43 4c 45 41 52 2c 32  | ANGLE,1,CLEAR,2|
00006310  2c 48 4f 4d 45 2c 32 0d  1c ca 23 dc 20 50 45 4e  |,HOME,2...#. PEN|
00006320  55 50 2c 34 2c 50 45 4e  44 4f 57 4e 2c 34 2c 50  |UP,4,PENDOWN,4,P|
00006330  45 4e 43 4f 4c 4f 55 52  2c 34 0d 1c d4 20 dc 20  |ENCOLOUR,4... . |
00006340  53 45 54 48 4f 4d 45 2c  34 2c 52 45 53 54 41 52  |SETHOME,4,RESTAR|
00006350  54 2c 33 2c 48 45 4c 50  2c 31 0d 1c de 20 dc 20  |T,3,HELP,1... . |
00006360  52 55 4e 2c 32 2c 54 4f  2c 30 2c 45 4e 44 54 4f  |RUN,2,TO,0,ENDTO|
00006370  2c 30 2c 5b 2c 30 2c 5d  2c 30 0d 1c e8 19 dc 20  |,0,[,0,],0..... |
00006380  46 49 4e 49 53 48 2c 33  2c 2f 2c 30 2c 45 45 4e  |FINISH,3,/,0,EEN|
00006390  44 2c 30 0d 1c f2 05 3a  0d 1c fc 17 dd a4 65 78  |D,0....:......ex|
000063a0  70 61 6e 64 63 6f 6d 6d  61 6e 64 28 41 24 29 0d  |pandcommand(A$).|
000063b0  1d 06 1f 4e 25 3d a4 6e  6f 72 6d 63 6d 6e 64 28  |...N%=.normcmnd(|
000063c0  41 24 29 3a e7 20 4e 25  3d 30 20 3d 41 24 0d 1d  |A$):. N%=0 =A$..|
000063d0  10 16 f7 20 8d 74 76 5c  3a e3 20 58 25 3d 31 20  |... .tv\:. X%=1 |
000063e0  b8 20 4e 25 0d 1d 1a 2e  f3 20 63 6f 6d 24 2c 61  |. N%..... com$,a|
000063f0  62 62 25 3a ed 3a 61 62  62 72 65 25 3d a4 61 62  |bb%:.:abbre%=.ab|
00006400  62 72 65 76 28 41 24 2c  63 6f 6d 24 2c 61 62 62  |brev(A$,com$,abb|
00006410  25 29 0d 1d 24 1b 3d 63  6f 6d 24 2b c2 41 24 2c  |%)..$.=com$+.A$,|
00006420  a9 28 41 24 29 2d 61 62  62 72 65 25 29 0d 1d 2e  |.(A$)-abbre%)...|
00006430  05 3a 0d 1d 38 20 dd 20  a4 6c 65 74 63 61 73 65  |.:..8 . .letcase|
00006440  28 41 24 29 3a ea 20 6e  25 2c 42 24 2c 41 25 2c  |(A$):. n%,B$,A%,|
00006450  43 24 0d 1d 42 0f e7 20  41 24 3d 22 22 20 3d 22  |C$..B.. A$="" ="|
00006460  22 0d 1d 4c 12 e3 20 6e  25 3d 31 20 b8 20 a9 28  |"..L.. n%=1 . .(|
00006470  41 24 29 0d 1d 56 13 41  25 3d 97 28 c1 41 24 2c  |A$)..V.A%=.(.A$,|
00006480  6e 25 2c 31 29 29 0d 1d  60 1f e7 20 41 25 3e 39  |n%,1))..`.. A%>9|
00006490  36 20 80 20 41 25 3c 31  32 33 20 8c 20 41 25 3d  |6 . A%<123 . A%=|
000064a0  41 25 2d 33 32 0d 1d 6a  2e 42 24 3d c0 41 24 2c  |A%-32..j.B$=.A$,|
000064b0  6e 25 2d 31 29 3a 43 24  3d c2 41 24 2c a9 28 41  |n%-1):C$=.A$,.(A|
000064c0  24 29 2d 6e 25 29 3a 41  24 3d 42 24 2b bd 41 25  |$)-n%):A$=B$+.A%|
000064d0  2b 43 24 0d 1d 74 09 ed  3a 3d 41 24 0d 1d 7e 05  |+C$..t..:=A$..~.|
000064e0  3a 0d 1d 88 11 dd 20 a4  6e 6f 73 70 63 73 28 41  |:..... .nospcs(A|
000064f0  24 29 0d 1d 92 21 4c 25  3d 31 3a 52 25 3d a9 28  |$)...!L%=1:R%=.(|
00006500  41 24 29 3a 4e 25 3d 2d  31 3a f5 3a 4e 25 3d 4e  |A$):N%=-1:.:N%=N|
00006510  25 2b 31 0d 1d 9c 1b e7  20 c1 41 24 2c 4e 25 2c  |%+1..... .A$,N%,|
00006520  31 29 3d 22 20 22 20 4c  25 3d 4e 25 2b 31 0d 1d  |1)=" " L%=N%+1..|
00006530  a6 21 fd 20 4e 25 3d a9  28 41 24 29 20 84 20 c1  |.!. N%=.(A$) . .|
00006540  41 24 2c 4e 25 2b 31 2c  31 29 3c 3e 22 20 22 0d  |A$,N%+1,1)<>" ".|
00006550  1d b0 18 4e 25 3d a9 28  41 24 29 2b 31 3a f5 3a  |...N%=.(A$)+1:.:|
00006560  4e 25 3d 4e 25 2d 31 0d  1d ba 1c e7 20 c1 41 24  |N%=N%-1..... .A$|
00006570  2c 4e 25 2c 31 29 3d 22  20 22 20 52 25 3d 4e 25  |,N%,1)=" " R%=N%|
00006580  2d 4c 25 0d 1d c4 14 fd  20 c1 41 24 2c 4e 25 2c  |-L%..... .A$,N%,|
00006590  31 29 3c 3e 22 20 22 0d  1d ce 0f 3d c1 41 24 2c  |1)<>" "....=.A$,|
000065a0  4c 25 2c 52 25 29 0d 1d  d8 05 3a 0d 1d e2 10 dd  |L%,R%)....:.....|
000065b0  20 a4 61 6c 70 68 61 28  41 24 29 0d 1d ec 17 4e  | .alpha(A$)....N|
000065c0  25 3d a3 3a e3 20 6e 25  3d 31 20 b8 20 a9 28 41  |%=.:. n%=1 . .(A|
000065d0  24 29 0d 1d f6 2c e7 20  97 28 c1 41 24 2c 6e 25  |$)...,. .(.A$,n%|
000065e0  2c 31 29 29 3c 36 35 20  84 20 97 28 c1 41 24 2c  |,1))<65 . .(.A$,|
000065f0  6e 25 2c 31 29 29 3e 39  30 20 4e 25 3d b9 0d 1e  |n%,1))>90 N%=...|
00006600  00 09 ed 3a 3d 4e 25 0d  1e 0a 05 3a 0d 1e 14 16  |...:=N%....:....|
00006610  dd a4 61 62 62 72 65 76  28 43 24 2c 42 24 2c 43  |..abbrev(C$,B$,C|
00006620  25 29 0d 1e 1e 1a e7 20  c0 43 24 2c a9 28 42 24  |%)..... .C$,.(B$|
00006630  29 29 3d 42 24 20 3d a9  28 42 24 29 0d 1e 28 1c  |))=B$ =.(B$)..(.|
00006640  45 25 3d 30 3a e3 20 44  25 3d 43 25 20 b8 20 28  |E%=0:. D%=C% . (|
00006650  a9 28 42 24 29 2d 31 29  0d 1e 32 27 e7 20 c0 43  |.(B$)-1)..2'. .C|
00006660  24 2c 44 25 2b 31 29 3d  28 c0 42 24 2c 44 25 29  |$,D%+1)=(.B$,D%)|
00006670  2b 22 2e 22 29 20 8c 20  45 25 3d 44 25 2b 31 0d  |+".") . E%=D%+1.|
00006680  1e 3c 09 ed 3a 3d 45 25  0d 1e 46 05 3a 0d 1e 50  |.<..:=E%..F.:..P|
00006690  1f dd 20 a4 70 61 72 61  6d 73 28 41 25 2c 41 24  |.. .params(A%,A$|
000066a0  29 3a ea 20 6e 25 2c 42  24 2c 43 25 0d 1e 5a 16  |):. n%,B$,C%..Z.|
000066b0  f7 20 8d 74 76 5c 3a e3  20 6e 25 3d 31 20 b8 20  |. .tv\:. n%=1 . |
000066c0  41 25 0d 1e 64 22 f3 20  42 24 2c 43 25 3a ed 3a  |A%..d". B$,C%:.:|
000066d0  41 25 3d a4 61 62 62 72  65 76 28 41 24 2c 42 24  |A%=.abbrev(A$,B$|
000066e0  2c 43 25 29 0d 1e 6e 21  41 24 3d c2 41 24 2c a9  |,C%)..n!A$=.A$,.|
000066f0  28 41 24 29 2d 41 25 29  3a 3d a4 6e 6f 73 70 63  |(A$)-A%):=.nospc|
00006700  73 28 41 24 29 0d 1e 78  05 3a 0d 1e 82 13 dd a4  |s(A$)..x.:......|
00006710  70 72 6f 67 63 6f 6d 28  63 6f 6d 24 29 0d 1e 8c  |progcom(com$)...|
00006720  44 63 6f 6d 24 3d a4 6e  6f 73 70 63 73 28 63 6f  |Dcom$=.nospcs(co|
00006730  6d 24 29 3a 63 6f 6d 24  3d a4 6c 65 74 63 61 73  |m$):com$=.letcas|
00006740  65 28 63 6f 6d 24 29 3a  63 6f 6d 24 3d a4 65 78  |e(com$):com$=.ex|
00006750  70 61 6e 64 63 6f 6d 6d  61 6e 64 28 63 6f 6d 24  |pandcommand(com$|
00006760  29 0d 1e 96 30 63 6f 6d  6e 75 6d 25 3d a4 6e 6f  |)...0comnum%=.no|
00006770  72 6d 63 6d 6e 64 28 63  6f 6d 24 29 3a 73 75 62  |rmcmnd(com$):sub|
00006780  6e 75 6d 25 3d a4 73 75  62 6e 6f 28 63 6f 6d 24  |num%=.subno(com$|
00006790  29 0d 1e a0 1c 42 24 3d  a4 70 61 72 61 6d 73 28  |)....B$=.params(|
000067a0  63 6f 6d 6e 75 6d 25 2c  63 6f 6d 24 29 0d 1e aa  |comnum%,com$)...|
000067b0  36 e7 20 63 6f 6d 24 3d  22 22 20 20 20 20 20 20  |6. com$=""      |
000067c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000067d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3d  |               =|
000067e0  32 35 35 0d 1e b4 31 e7  20 73 75 62 6e 75 6d 25  |255...1. subnum%|
000067f0  3e 2d 31 20 80 20 63 6f  6d 6e 75 6d 25 3d 30 20  |>-1 . comnum%=0 |
00006800  f2 74 6f 73 75 62 28 73  75 62 6e 75 6d 25 29 3a  |.tosub(subnum%):|
00006810  3d 32 35 35 0d 1e be 36  e7 20 63 6f 6d 6e 75 6d  |=255...6. comnum|
00006820  25 3d 30 20 20 20 20 20  20 20 45 72 72 6f 72 24  |%=0       Error$|
00006830  3d 22 4e 6f 20 73 75 63  68 20 73 75 62 72 6f 75  |="No such subrou|
00006840  74 69 6e 65 22 3a 3d 32  35 35 0d 1e c8 3a e7 20  |tine":=255...:. |
00006850  63 6f 6d 6e 75 6d 25 3c  31 35 20 20 20 20 20 20  |comnum%<15      |
00006860  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006870  20 20 20 20 20 20 20 20  20 20 20 20 3d 63 6f 6d  |            =com|
00006880  6e 75 6d 25 0d 1e d2 5e  ee 20 28 63 6f 6d 6e 75  |num%...^. (comnu|
00006890  6d 25 2d 31 34 29 20 f2  63 6f 6d 6d 65 6e 74 2c  |m%-14) .comment,|
000068a0  f2 65 6e 64 74 6f 2c f2  6e 65 77 6c 6f 6f 70 28  |.endto,.newloop(|
000068b0  a0 28 42 24 29 29 2c f2  65 6e 64 6c 6f 6f 70 2c  |.(B$)),.endloop,|
000068c0  f2 70 72 6f 67 72 61 6d  66 69 6e 69 73 68 65 64  |.programfinished|
000068d0  2c f2 63 6f 6d 6d 65 6e  74 3a 3d 63 6f 6d 6e 75  |,.comment:=comnu|
000068e0  6d 25 0d 1e dc 05 3a 0d  1e e6 2b f4 20 2d 2d 2d  |m%....:...+. ---|
000068f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00006910  2d 2d 0d 1e f0 2b f4 20  7c 20 20 4c 6f 6f 70 20  |--...+. |  Loop |
00006920  26 20 54 6f 20 53 75 62  72 6f 75 74 69 6e 65 20  |& To Subroutine |
00006930  48 61 6e 64 6c 65 72 73  20 20 20 20 7c 0d 1e fa  |Handlers    |...|
00006940  2b f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |+. -------------|
00006950  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00006960  2d 2d 2d 2d 2d 2d 2d 2d  0d 1f 04 05 3a 0d 1f 0e  |--------....:...|
00006970  16 dd f2 6e 65 77 6c 6f  6f 70 28 6e 75 6d 62 65  |...newloop(numbe|
00006980  72 25 29 0d 1f 18 47 6c  6f 6f 70 73 74 61 63 6b  |r%)...Gloopstack|
00006990  25 28 6c 73 74 61 63 6b  25 29 3d 70 6f 69 6e 74  |%(lstack%)=point|
000069a0  25 3a 6c 6f 6f 70 73 74  61 63 6b 25 28 6c 73 74  |%:loopstack%(lst|
000069b0  61 63 6b 25 2b 31 29 3d  6e 75 6d 62 65 72 25 3a  |ack%+1)=number%:|
000069c0  6c 73 74 61 63 6b 25 2b  3d 32 0d 1f 22 05 e1 0d  |lstack%+=2.."...|
000069d0  1f 2c 05 3a 0d 1f 36 0d  dd f2 65 6e 64 6c 6f 6f  |.,.:..6...endloo|
000069e0  70 0d 1f 40 21 6e 75 6d  62 65 72 25 3d 6c 6f 6f  |p..@!number%=loo|
000069f0  70 73 74 61 63 6b 25 28  6c 73 74 61 63 6b 25 2d  |pstack%(lstack%-|
00006a00  31 29 0d 1f 4a 13 e7 20  6e 75 6d 62 65 72 25 2d  |1)..J.. number%-|
00006a10  31 3e 30 20 8c 0d 1f 54  39 70 6f 69 6e 74 25 3d  |1>0 ...T9point%=|
00006a20  6c 6f 6f 70 73 74 61 63  6b 25 28 6c 73 74 61 63  |loopstack%(lstac|
00006a30  6b 25 2d 32 29 3a 6c 6f  6f 70 73 74 61 63 6b 25  |k%-2):loopstack%|
00006a40  28 6c 73 74 61 63 6b 25  2d 31 29 2d 3d 31 0d 1f  |(lstack%-1)-=1..|
00006a50  5e 05 cc 0d 1f 68 0e 6c  73 74 61 63 6b 25 2d 3d  |^....h.lstack%-=|
00006a60  32 0d 1f 72 0e f2 63 6c  6f 73 65 70 61 74 68 0d  |2..r..closepath.|
00006a70  1f 7c 07 cd 3a e1 0d 1f  86 05 3a 0d 1f 90 14 dd  |.|..:.....:.....|
00006a80  f2 74 6f 73 75 62 28 73  75 62 6e 75 6d 25 29 0d  |.tosub(subnum%).|
00006a90  1f 9a 3d 73 75 62 73 74  61 63 6b 25 28 73 74 61  |..=substack%(sta|
00006aa0  63 6b 25 29 3d 70 6f 69  6e 74 25 3a 73 74 61 63  |ck%)=point%:stac|
00006ab0  6b 25 2b 3d 31 3a 70 6f  69 6e 74 25 3d 74 6f 73  |k%+=1:point%=tos|
00006ac0  75 62 25 28 73 75 62 6e  75 6d 25 29 0d 1f a4 05  |ub%(subnum%)....|
00006ad0  e1 0d 1f ae 05 3a 0d 1f  b8 12 dd a4 73 75 62 6e  |.....:......subn|
00006ae0  6f 28 6e 61 6d 65 24 29  0d 1f c2 4d 6e 75 6d 62  |o(name$)...Mnumb|
00006af0  65 72 25 3d 2d 31 3a e3  20 6e 75 6d 25 3d 30 20  |er%=-1:. num%=0 |
00006b00  b8 20 74 6f 25 2d 31 3a  e7 20 74 6f 73 75 62 24  |. to%-1:. tosub$|
00006b10  28 6e 75 6d 25 29 3d 6e  61 6d 65 24 20 80 20 6e  |(num%)=name$ . n|
00006b20  61 6d 65 24 3c 3e 22 22  20 6e 75 6d 62 65 72 25  |ame$<>"" number%|
00006b30  3d 6e 75 6d 25 0d 1f cc  0e ed 3a 3d 6e 75 6d 62  |=num%.....:=numb|
00006b40  65 72 25 0d 1f d6 05 3a  0d 1f e0 1e dd f2 74 6f  |er%....:......to|
00006b50  73 65 61 72 63 68 28 61  64 64 72 65 73 73 25 2c  |search(address%,|
00006b60  73 69 7a 65 25 29 0d 1f  ea 1f e3 20 58 25 3d 30  |size%)..... X%=0|
00006b70  20 b8 20 39 39 3a 74 6f  73 75 62 24 28 58 25 29  | . 99:tosub$(X%)|
00006b80  3d 22 22 3a ed 0d 1f f4  15 c8 99 20 22 48 6f 75  |="":....... "Hou|
00006b90  72 67 6c 61 73 73 5f 4f  6e 22 0d 1f fe 2c 70 6f  |rglass_On"...,po|
00006ba0  69 6e 74 25 3d 61 64 64  72 65 73 73 25 3a 73 74  |int%=address%:st|
00006bb0  61 63 6b 25 3d 30 3a 6c  73 74 61 63 6b 25 3d 30  |ack%=0:lstack%=0|
00006bc0  3a 74 6f 25 3d 30 0d 20  08 36 f5 3a 41 24 3d a4  |:to%=0. .6.:A$=.|
00006bd0  63 6f 6d 73 74 72 69 6e  67 28 70 6f 69 6e 74 25  |comstring(point%|
00006be0  29 3a 70 6f 69 6e 74 25  3d a4 67 65 74 63 6f 6d  |):point%=.getcom|
00006bf0  6d 61 6e 64 28 70 6f 69  6e 74 25 29 0d 20 12 22  |mand(point%). ."|
00006c00  41 24 3d a4 6e 6f 73 70  63 73 28 41 24 29 3a 41  |A$=.nospcs(A$):A|
00006c10  24 3d a4 6c 65 74 63 61  73 65 28 41 24 29 0d 20  |$=.letcase(A$). |
00006c20  1c 25 e7 20 c0 41 24 2c  32 29 3d 22 54 4f 22 20  |.%. .A$,2)="TO" |
00006c30  f2 74 6f 28 a4 70 61 72  61 6d 73 28 31 35 2c 41  |.to(.params(15,A|
00006c40  24 29 29 0d 20 26 1c fd  20 70 6f 69 6e 74 25 3e  |$)). &.. point%>|
00006c50  3d 61 64 64 72 65 73 73  25 2b 73 69 7a 65 25 0d  |=address%+size%.|
00006c60  20 30 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  | 0... "Hourglass|
00006c70  5f 4f 66 66 22 0d 20 3a  05 e1 0d 20 44 05 3a 0d  |_Off". :... D.:.|
00006c80  20 4e 0c dd f2 74 6f 28  42 24 29 0d 20 58 38 e7  | N...to(B$). X8.|
00006c90  20 74 6f 25 3d 31 30 30  20 45 72 72 6f 72 24 3d  | to%=100 Error$=|
00006ca0  22 54 6f 6f 20 6d 61 6e  79 20 54 4f 20 73 75 62  |"Too many TO sub|
00006cb0  72 6f 75 74 69 6e 65 73  20 64 65 66 69 6e 65 64  |routines defined|
00006cc0  22 3a e1 0d 20 62 12 e7  20 a4 61 6c 70 68 61 28  |":.. b.. .alpha(|
00006cd0  42 24 29 20 e1 0d 20 6c  35 e7 20 a4 73 75 62 6e  |B$) .. l5. .subn|
00006ce0  6f 28 42 24 29 3e 2d 31  20 8c 20 6e 6f 25 3d a4  |o(B$)>-1 . no%=.|
00006cf0  73 75 62 6e 6f 28 42 24  29 20 8b 20 6e 6f 25 3d  |subno(B$) . no%=|
00006d00  74 6f 25 3a 74 6f 25 2b  3d 31 0d 20 76 27 74 6f  |to%:to%+=1. v'to|
00006d10  73 75 62 24 28 6e 6f 25  29 3d 42 24 3a 74 6f 73  |sub$(no%)=B$:tos|
00006d20  75 62 25 28 6e 6f 25 29  3d 70 6f 69 6e 74 25 3a  |ub%(no%)=point%:|
00006d30  e1 0d 20 80 05 3a 0d 20  8a 12 dd f2 65 6e 64 74  |.. ..:. ....endt|
00006d40  6f 3a 74 6f 24 3d 22 22  0d 20 94 30 e7 20 73 74  |o:to$="". .0. st|
00006d50  61 63 6b 25 3d 30 20 45  72 72 6f 72 24 3d 22 4e  |ack%=0 Error$="N|
00006d60  6f 74 20 69 6e 20 61 20  54 4f 20 73 75 62 72 6f  |ot in a TO subro|
00006d70  75 74 69 6e 65 22 3a e1  0d 20 9e 28 73 74 61 63  |utine":.. .(stac|
00006d80  6b 25 2d 3d 31 3a 70 6f  69 6e 74 25 3d 73 75 62  |k%-=1:point%=sub|
00006d90  73 74 61 63 6b 25 28 73  74 61 63 6b 25 29 3a e1  |stack%(stack%):.|
00006da0  0d 20 a8 05 3a 0d 20 b2  0f dd f2 63 6f 6d 6d 65  |. ..:. ....comme|
00006db0  6e 74 3a e1 0d 20 bc 05  3a 0d 20 c6 38 f4 20 2d  |nt:.. ..:. .8. -|
00006dc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00006df0  2d 0d 20 d0 38 f4 20 7c  20 20 20 20 20 20 20 20  |-. .8. |        |
00006e00  54 75 72 74 6c 65 20 4d  6f 76 65 6d 65 6e 74 20  |Turtle Movement |
00006e10  50 72 6f 63 65 64 75 72  65 73 20 20 20 20 20 20  |Procedures      |
00006e20  20 20 20 20 20 20 20 20  7c 0d 20 da 38 f4 20 2d  |        |. .8. -|
00006e30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00006e60  2d 0d 20 e4 05 3a 0d 20  ee 17 dd f2 66 6f 72 77  |-. ..:. ....forw|
00006e70  61 72 64 28 64 69 73 74  61 6e 63 65 29 0d 20 f8  |ard(distance). .|
00006e80  2a 74 75 72 74 6c 65 78  70 6f 73 2b 3d 64 69 73  |*turtlexpos+=dis|
00006e90  74 61 6e 63 65 2a b5 28  b2 28 74 75 72 74 6c 65  |tance*.(.(turtle|
00006ea0  61 6e 67 6c 65 29 29 0d  21 02 2a 74 75 72 74 6c  |angle)).!.*turtl|
00006eb0  65 79 70 6f 73 2b 3d 64  69 73 74 61 6e 63 65 2a  |eypos+=distance*|
00006ec0  9b 28 b2 28 74 75 72 74  6c 65 61 6e 67 6c 65 29  |.(.(turtleangle)|
00006ed0  29 0d 21 0c 1c f2 6d 65  73 73 61 67 65 63 6f 64  |).!...messagecod|
00006ee0  65 28 31 2c 64 69 73 74  61 6e 63 65 29 0d 21 16  |e(1,distance).!.|
00006ef0  0d e7 20 70 65 6e 3d a3  20 e1 0d 21 20 3e c8 99  |.. pen=. ..! >..|
00006f00  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 33  | "OS_SpriteOp",3|
00006f10  31 36 2c 73 70 72 69 74  65 61 72 65 61 25 2c 73  |16,spritearea%,s|
00006f20  70 72 69 74 65 6e 61 6d  65 24 20 b8 20 52 30 2c  |pritename$ . R0,|
00006f30  52 31 2c 52 32 2c 52 33  0d 21 2a 41 e6 20 30 2c  |R1,R2,R3.!*A. 0,|
00006f40  70 65 6e 63 6f 6c 6f 75  72 3a ec 20 6f 6c 64 74  |pencolour:. oldt|
00006f50  75 72 74 6c 65 78 2c 6f  6c 64 74 75 72 74 6c 65  |urtlex,oldturtle|
00006f60  79 3a df 20 74 75 72 74  6c 65 78 70 6f 73 2c 74  |y:. turtlexpos,t|
00006f70  75 72 74 6c 65 79 70 6f  73 0d 21 34 20 c8 99 20  |urtleypos.!4 .. |
00006f80  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 52 30  |"OS_SpriteOp",R0|
00006f90  2c 52 31 2c 52 32 2c 52  33 0d 21 3e 44 f2 64 72  |,R1,R2,R3.!>D.dr|
00006fa0  61 77 6c 69 6e 65 28 6f  6c 64 74 75 72 74 6c 65  |awline(oldturtle|
00006fb0  78 2c 6f 6c 64 74 75 72  74 6c 65 79 2c 74 75 72  |x,oldturtley,tur|
00006fc0  74 6c 65 78 70 6f 73 2c  74 75 72 74 6c 65 79 70  |tlexpos,turtleyp|
00006fd0  6f 73 2c 70 65 6e 63 6f  6c 6f 75 72 29 0d 21 48  |os,pencolour).!H|
00006fe0  05 e1 0d 21 52 05 3a 0d  21 5c 14 dd f2 62 61 63  |...!R.:.!\...bac|
00006ff0  6b 28 64 69 73 74 61 6e  63 65 29 0d 21 66 2a 74  |k(distance).!f*t|
00007000  75 72 74 6c 65 78 70 6f  73 2d 3d 64 69 73 74 61  |urtlexpos-=dista|
00007010  6e 63 65 2a b5 28 b2 28  74 75 72 74 6c 65 61 6e  |nce*.(.(turtlean|
00007020  67 6c 65 29 29 0d 21 70  2a 74 75 72 74 6c 65 79  |gle)).!p*turtley|
00007030  70 6f 73 2d 3d 64 69 73  74 61 6e 63 65 2a 9b 28  |pos-=distance*.(|
00007040  b2 28 74 75 72 74 6c 65  61 6e 67 6c 65 29 29 0d  |.(turtleangle)).|
00007050  21 7a 1c f2 6d 65 73 73  61 67 65 63 6f 64 65 28  |!z..messagecode(|
00007060  32 2c 64 69 73 74 61 6e  63 65 29 0d 21 84 0d e7  |2,distance).!...|
00007070  20 70 65 6e 3d a3 20 e1  0d 21 8e 3e c8 99 20 22  | pen=. ..!.>.. "|
00007080  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 33 31 36  |OS_SpriteOp",316|
00007090  2c 73 70 72 69 74 65 61  72 65 61 25 2c 73 70 72  |,spritearea%,spr|
000070a0  69 74 65 6e 61 6d 65 24  20 b8 20 52 30 2c 52 31  |itename$ . R0,R1|
000070b0  2c 52 32 2c 52 33 0d 21  98 41 e6 20 30 2c 70 65  |,R2,R3.!.A. 0,pe|
000070c0  6e 63 6f 6c 6f 75 72 3a  ec 20 6f 6c 64 74 75 72  |ncolour:. oldtur|
000070d0  74 6c 65 78 2c 6f 6c 64  74 75 72 74 6c 65 79 3a  |tlex,oldturtley:|
000070e0  df 20 74 75 72 74 6c 65  78 70 6f 73 2c 74 75 72  |. turtlexpos,tur|
000070f0  74 6c 65 79 70 6f 73 0d  21 a2 20 c8 99 20 22 4f  |tleypos.!. .. "O|
00007100  53 5f 53 70 72 69 74 65  4f 70 22 2c 52 30 2c 52  |S_SpriteOp",R0,R|
00007110  31 2c 52 32 2c 52 33 0d  21 ac 44 f2 64 72 61 77  |1,R2,R3.!.D.draw|
00007120  6c 69 6e 65 28 6f 6c 64  74 75 72 74 6c 65 78 2c  |line(oldturtlex,|
00007130  6f 6c 64 74 75 72 74 6c  65 79 2c 74 75 72 74 6c  |oldturtley,turtl|
00007140  65 78 70 6f 73 2c 74 75  72 74 6c 65 79 70 6f 73  |expos,turtleypos|
00007150  2c 70 65 6e 63 6f 6c 6f  75 72 29 0d 21 b6 05 e1  |,pencolour).!...|
00007160  0d 21 c0 05 3a 0d 21 ca  13 dd f2 6c 65 66 74 28  |.!..:.!....left(|
00007170  64 65 67 72 65 65 73 29  0d 21 d4 1b f2 6d 65 73  |degrees).!...mes|
00007180  73 61 67 65 63 6f 64 65  28 33 2c 64 65 67 72 65  |sagecode(3,degre|
00007190  65 73 29 0d 21 de 18 74  75 72 74 6c 65 61 6e 67  |es).!..turtleang|
000071a0  6c 65 2d 3d 64 65 67 72  65 65 73 0d 21 e8 05 e1  |le-=degrees.!...|
000071b0  0d 21 f2 05 3a 0d 21 fc  14 dd f2 72 69 67 68 74  |.!..:.!....right|
000071c0  28 64 65 67 72 65 65 73  29 0d 22 06 1b f2 6d 65  |(degrees)."...me|
000071d0  73 73 61 67 65 63 6f 64  65 28 34 2c 64 65 67 72  |ssagecode(4,degr|
000071e0  65 65 73 29 0d 22 10 18  74 75 72 74 6c 65 61 6e  |ees)."..turtlean|
000071f0  67 6c 65 2b 3d 64 65 67  72 65 65 73 0d 22 1a 05  |gle+=degrees."..|
00007200  e1 0d 22 24 05 3a 0d 22  2e 12 dd f2 61 6e 67 6c  |.."$.:."....angl|
00007210  65 28 61 6e 67 6c 65 29  0d 22 38 31 61 6e 67 25  |e(angle)."81ang%|
00007220  3d 74 75 72 74 6c 65 61  6e 67 6c 65 20 83 20 33  |=turtleangle . 3|
00007230  36 30 3a e7 20 61 6e 67  25 3c 30 20 61 6e 67 25  |60:. ang%<0 ang%|
00007240  3d 33 36 30 2b 61 6e 67  25 0d 22 42 2c 61 6e 67  |=360+ang%."B,ang|
00007250  6c 25 3d 61 6e 67 6c 65  20 83 20 33 36 30 3a e7  |l%=angle . 360:.|
00007260  20 61 6e 67 25 3c 30 20  61 6e 67 25 3d 33 36 30  | ang%<0 ang%=360|
00007270  2b 61 6e 67 25 0d 22 4c  57 e7 20 61 6e 67 25 3e  |+ang%."LW. ang%>|
00007280  61 6e 67 6c 25 20 6c 65  66 74 25 3d 61 6e 67 25  |angl% left%=ang%|
00007290  2d 61 6e 67 6c 25 3a 72  69 67 68 74 25 3d 33 36  |-angl%:right%=36|
000072a0  30 2d 6c 65 66 74 25 20  8b 20 72 69 67 68 74 25  |0-left% . right%|
000072b0  3d 61 6e 67 25 2d 61 6e  67 6c 25 3a 6c 65 66 74  |=ang%-angl%:left|
000072c0  25 3d 33 36 30 2d 72 69  67 68 74 25 0d 22 56 30  |%=360-right%."V0|
000072d0  e7 20 72 69 67 68 74 25  3c 30 20 6c 65 66 74 25  |. right%<0 left%|
000072e0  3d 33 36 30 2b 72 69 67  68 74 25 3a 72 69 67 68  |=360+right%:righ|
000072f0  74 25 3d 33 36 30 2d 6c  65 66 74 25 0d 22 60 30  |t%=360-left%."`0|
00007300  e7 20 6c 65 66 74 25 3c  30 20 72 69 67 68 74 25  |. left%<0 right%|
00007310  3d 33 36 30 2b 72 69 67  68 74 25 3a 6c 65 66 74  |=360+right%:left|
00007320  25 3d 33 36 30 2d 72 69  67 68 74 25 0d 22 6a 41  |%=360-right%."jA|
00007330  e7 20 72 69 67 68 74 25  3c 6c 65 66 74 25 20 f2  |. right%<left% .|
00007340  6d 65 73 73 61 67 65 63  6f 64 65 28 34 2c 72 69  |messagecode(4,ri|
00007350  67 68 74 25 29 20 8b 20  f2 6d 65 73 73 61 67 65  |ght%) . .message|
00007360  63 6f 64 65 28 33 2c 6c  65 66 74 25 29 0d 22 74  |code(3,left%)."t|
00007370  15 74 75 72 74 6c 65 61  6e 67 6c 65 3d 61 6e 67  |.turtleangle=ang|
00007380  6c 65 0d 22 7e 05 e1 0d  22 88 05 3a 0d 22 92 0b  |le."~..."..:."..|
00007390  dd f2 70 65 6e 75 70 0d  22 9c 15 f2 6d 65 73 73  |..penup."...mess|
000073a0  61 67 65 63 6f 64 65 28  35 2c 30 29 0d 22 a6 14  |agecode(5,0)."..|
000073b0  70 65 6e 3d a3 3a f2 63  6c 6f 73 65 70 61 74 68  |pen=.:.closepath|
000073c0  0d 22 b0 05 e1 0d 22 ba  05 3a 0d 22 c4 0d dd f2  |."...."..:."....|
000073d0  70 65 6e 64 6f 77 6e 0d  22 ce 15 f2 6d 65 73 73  |pendown."...mess|
000073e0  61 67 65 63 6f 64 65 28  36 2c 30 29 0d 22 d8 09  |agecode(6,0)."..|
000073f0  70 65 6e 3d b9 0d 22 e2  05 e1 0d 22 ec 05 3a 0d  |pen=.."...."..:.|
00007400  22 f6 17 dd f2 70 65 6e  63 6f 6c 6f 75 72 28 63  |"....pencolour(c|
00007410  6f 6c 6f 75 72 29 0d 23  00 1a f2 6d 65 73 73 61  |olour).#...messa|
00007420  67 65 63 6f 64 65 28 37  2c 63 6f 6c 6f 75 72 29  |gecode(7,colour)|
00007430  0d 23 0a 1f 70 65 6e 63  6f 6c 6f 75 72 3d 63 6f  |.#..pencolour=co|
00007440  6c 6f 75 72 3a f2 63 6c  6f 73 65 70 61 74 68 0d  |lour:.closepath.|
00007450  23 14 05 e1 0d 23 1e 05  3a 0d 23 28 0b dd f2 63  |#....#..:.#(...c|
00007460  6c 65 61 72 0d 23 32 3e  c8 99 20 22 4f 53 5f 53  |lear.#2>.. "OS_S|
00007470  70 72 69 74 65 4f 70 22  2c 33 31 36 2c 73 70 72  |priteOp",316,spr|
00007480  69 74 65 61 72 65 61 25  2c 73 70 72 69 74 65 6e  |itearea%,spriten|
00007490  61 6d 65 24 20 b8 20 52  30 2c 52 31 2c 52 32 2c  |ame$ . R0,R1,R2,|
000074a0  52 33 0d 23 3c 1e e6 20  30 2c 30 3a ec 20 30 2c  |R3.#<.. 0,0:. 0,|
000074b0  30 3a f0 20 39 37 2c 69  77 64 25 2c 69 68 65 25  |0:. 97,iwd%,ihe%|
000074c0  0d 23 46 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  |.#F .. "OS_Sprit|
000074d0  65 4f 70 22 2c 52 30 2c  52 31 2c 52 32 2c 52 33  |eOp",R0,R1,R2,R3|
000074e0  0d 23 50 24 f2 75 70 64  61 74 65 74 75 72 74 6c  |.#P$.updateturtl|
000074f0  65 28 30 2c 2d 69 68 65  25 2c 69 77 64 25 2c 69  |e(0,-ihe%,iwd%,i|
00007500  68 65 25 29 0d 23 5a 05  e1 0d 23 64 05 3a 0d 23  |he%).#Z...#d.:.#|
00007510  6e 1b dd f2 6d 6f 76 65  74 6f 28 78 63 6f 6f 72  |n...moveto(xcoor|
00007520  64 2c 79 63 6f 6f 72 64  29 0d 23 78 3d 6f 70 70  |d,ycoord).#x=opp|
00007530  6f 73 69 74 65 3d 28 74  75 72 74 6c 65 78 70 6f  |osite=(turtlexpo|
00007540  73 2d 78 63 6f 6f 72 64  29 3a 61 64 6a 61 63 65  |s-xcoord):adjace|
00007550  6e 74 3d 28 74 75 72 74  6c 65 79 70 6f 73 2d 79  |nt=(turtleypos-y|
00007560  63 6f 6f 72 64 29 0d 23  82 38 e7 20 61 64 6a 61  |coord).#.8. adja|
00007570  63 65 6e 74 3d 30 20 61  6e 67 6c 65 3d 30 20 8b  |cent=0 angle=0 .|
00007580  20 61 6e 67 6c 65 3d 9d  28 99 28 6f 70 70 6f 73  | angle=.(.(oppos|
00007590  69 74 65 2f 61 64 6a 61  63 65 6e 74 29 29 0d 23  |ite/adjacent)).#|
000075a0  8c 28 e7 20 6f 70 70 6f  73 69 74 65 3c 30 20 80  |.(. opposite<0 .|
000075b0  20 61 64 6a 61 63 65 6e  74 3c 30 20 61 6e 67 6c  | adjacent<0 angl|
000075c0  65 2d 3d 31 38 30 0d 23  96 28 e7 20 6f 70 70 6f  |e-=180.#.(. oppo|
000075d0  73 69 74 65 3e 30 20 80  20 61 64 6a 61 63 65 6e  |site>0 . adjacen|
000075e0  74 3c 30 20 61 6e 67 6c  65 2b 3d 31 38 30 0d 23  |t<0 angle+=180.#|
000075f0  a0 37 64 69 73 74 61 6e  63 65 3d b6 28 28 6f 70  |.7distance=.((op|
00007600  70 6f 73 69 74 65 2a 6f  70 70 6f 73 69 74 65 29  |posite*opposite)|
00007610  2b 28 61 64 6a 61 63 65  6e 74 2a 61 64 6a 61 63  |+(adjacent*adjac|
00007620  65 6e 74 29 29 0d 23 aa  21 f2 61 6e 67 6c 65 28  |ent)).#.!.angle(|
00007630  61 6e 67 6c 65 29 3a f2  62 61 63 6b 28 64 69 73  |angle):.back(dis|
00007640  74 61 6e 63 65 29 0d 23  b4 05 e1 0d 23 be 05 3a  |tance).#....#..:|
00007650  0d 23 c8 0a dd f2 68 6f  6d 65 0d 23 d2 1e e7 20  |.#....home.#... |
00007660  70 65 6e 3d b9 20 f2 70  65 6e 75 70 3a 54 25 3d  |pen=. .penup:T%=|
00007670  31 20 8b 20 54 25 3d 30  0d 23 dc 37 f2 70 65 6e  |1 . T%=0.#.7.pen|
00007680  75 70 3a f2 6d 6f 76 65  74 6f 28 68 6f 6d 65 78  |up:.moveto(homex|
00007690  70 6f 73 2c 68 6f 6d 65  79 70 6f 73 29 3a f2 61  |pos,homeypos):.a|
000076a0  6e 67 6c 65 28 68 6f 6d  65 61 6e 67 6c 65 29 0d  |ngle(homeangle).|
000076b0  23 e6 13 e7 20 54 25 3d  31 20 f2 70 65 6e 64 6f  |#... T%=1 .pendo|
000076c0  77 6e 0d 23 f0 05 e1 0d  23 fa 05 3a 0d 24 04 0d  |wn.#....#..:.$..|
000076d0  dd f2 73 65 74 68 6f 6d  65 0d 24 0e 31 61 6e 67  |..sethome.$.1ang|
000076e0  25 3d 74 75 72 74 6c 65  61 6e 67 6c 65 20 83 20  |%=turtleangle . |
000076f0  33 36 30 3a e7 20 61 6e  67 25 3c 30 20 61 6e 67  |360:. ang%<0 ang|
00007700  25 3d 33 36 30 2b 61 6e  67 25 0d 24 18 41 68 6f  |%=360+ang%.$.Aho|
00007710  6d 65 78 70 6f 73 3d 74  75 72 74 6c 65 78 70 6f  |mexpos=turtlexpo|
00007720  73 3a 68 6f 6d 65 79 70  6f 73 3d 74 75 72 74 6c  |s:homeypos=turtl|
00007730  65 79 70 6f 73 3a 68 6f  6d 65 61 6e 67 6c 65 3d  |eypos:homeangle=|
00007740  74 75 72 74 6c 65 61 6e  67 6c 65 0d 24 22 23 f2  |turtleangle.$"#.|
00007750  73 65 74 69 63 6f 6e 74  65 78 74 28 63 6f 6d 6d  |seticontext(comm|
00007760  61 6e 64 2c 35 2c 22 49  6e 66 6f 3a 22 29 0d 24  |and,5,"Info:").$|
00007770  2c 5e f2 73 65 74 69 63  6f 6e 74 65 78 74 28 63  |,^.seticontext(c|
00007780  6f 6d 6d 61 6e 64 2c 31  31 2c 22 48 6f 6d 65 20  |ommand,11,"Home |
00007790  73 65 74 20 74 6f 20 22  2b c3 28 a8 28 68 6f 6d  |set to "+.(.(hom|
000077a0  65 78 70 6f 73 29 29 2b  22 2c 22 2b c3 28 a8 28  |expos))+","+.(.(|
000077b0  68 6f 6d 65 79 70 6f 73  29 29 2b 22 2c 22 2b c3  |homeypos))+","+.|
000077c0  28 61 6e 67 25 29 2b 22  b0 2e 22 29 0d 24 36 49  |(ang%)+"..").$6I|
000077d0  f2 73 63 72 6f 6c 6c 75  70 3a f2 73 65 74 69 63  |.scrollup:.setic|
000077e0  6f 6e 74 65 78 74 28 63  6f 6d 6d 61 6e 64 2c 35  |ontext(command,5|
000077f0  2c 22 4c 6f 47 6f 3a 22  29 3a f2 73 65 74 69 63  |,"LoGo:"):.setic|
00007800  6f 6e 74 65 78 74 28 63  6f 6d 6d 61 6e 64 2c 31  |ontext(command,1|
00007810  31 2c 22 22 29 0d 24 40  05 e1 0d 24 4a 05 3a 0d  |1,"").$@...$J.:.|
00007820  24 54 0d dd f2 72 65 73  74 61 72 74 0d 24 5e 29  |$T...restart.$^)|
00007830  68 6f 6d 65 78 70 6f 73  3d 36 34 30 3a 68 6f 6d  |homexpos=640:hom|
00007840  65 79 70 6f 73 3d 35 31  32 3a 68 6f 6d 65 61 6e  |eypos=512:homean|
00007850  67 6c 65 3d 30 0d 24 68  10 f2 68 6f 6d 65 3a f2  |gle=0.$h..home:.|
00007860  63 6c 65 61 72 0d 24 72  23 f2 73 65 74 69 63 6f  |clear.$r#.setico|
00007870  6e 74 65 78 74 28 63 6f  6d 6d 61 6e 64 2c 35 2c  |ntext(command,5,|
00007880  22 49 6e 66 6f 3a 22 29  0d 24 7c 3a f2 73 65 74  |"Info:").$|:.set|
00007890  69 63 6f 6e 74 65 78 74  28 63 6f 6d 6d 61 6e 64  |icontext(command|
000078a0  2c 31 31 2c 22 4c 6f 67  6f 20 72 65 73 65 74 20  |,11,"Logo reset |
000078b0  61 74 20 22 2b 91 24 29  3a f2 73 63 72 6f 6c 6c  |at "+.$):.scroll|
000078c0  75 70 0d 24 86 3f f2 73  65 74 69 63 6f 6e 74 65  |up.$.?.seticonte|
000078d0  78 74 28 63 6f 6d 6d 61  6e 64 2c 35 2c 22 4c 6f  |xt(command,5,"Lo|
000078e0  47 6f 3a 22 29 3a f2 73  65 74 69 63 6f 6e 74 65  |Go:"):.seticonte|
000078f0  78 74 28 63 6f 6d 6d 61  6e 64 2c 31 31 2c 22 22  |xt(command,11,""|
00007900  29 0d 24 90 05 e1 0d 24  9a 05 3a 0d 24 a4 13 dd  |).$....$..:.$...|
00007910  f2 68 65 6c 70 63 6f 6d  28 63 6f 6d 24 29 0d 24  |.helpcom(com$).$|
00007920  ae 2a 63 6f 6d 24 3d a4  6e 6f 73 70 63 73 28 63  |.*com$=.nospcs(c|
00007930  6f 6d 24 29 3a 63 6f 6d  24 3d a4 6c 65 74 63 61  |om$):com$=.letca|
00007940  73 65 28 63 6f 6d 24 29  0d 24 b8 1d 63 6f 6d 24  |se(com$).$..com$|
00007950  3d a4 65 78 70 61 6e 64  63 6f 6d 6d 61 6e 64 28  |=.expandcommand(|
00007960  63 6f 6d 24 29 0d 24 c2  19 e7 20 63 6f 6d 24 3d  |com$).$... com$=|
00007970  22 22 20 63 6f 6d 24 3d  22 48 45 4c 50 22 0d 24  |"" com$="HELP".$|
00007980  cc 1b f7 20 8d 44 40 46  3a 4e 25 3d 30 3a e3 20  |... .D@F:N%=0:. |
00007990  58 25 3d 31 20 b8 20 32  34 0d 24 d6 49 f3 20 41  |X%=1 . 24.$.I. A|
000079a0  24 2c 42 24 2c 43 24 2c  44 24 3a e7 20 41 24 3d  |$,B$,C$,D$:. A$=|
000079b0  63 6f 6d 24 20 80 20 41  24 3c 3e 22 22 20 73 79  |com$ . A$<>"" sy|
000079c0  6e 74 61 78 24 3d 42 24  3a 61 62 62 72 65 76 24  |ntax$=B$:abbrev$|
000079d0  3d 43 24 3a 70 75 72 70  24 3d 44 24 3a 4e 25 3d  |=C$:purp$=D$:N%=|
000079e0  58 25 0d 24 e0 2b ed 3a  e7 20 4e 25 3d 30 20 73  |X%.$.+.:. N%=0 s|
000079f0  79 6e 74 61 78 24 3d 22  22 3a 61 62 62 72 65 76  |yntax$="":abbrev|
00007a00  24 3d 22 22 3a 70 75 72  70 24 3d 22 22 0d 24 ea  |$="":purp$="".$.|
00007a10  1e f2 73 65 74 69 63 6f  6e 74 65 78 74 28 63 6f  |..seticontext(co|
00007a20  6d 6d 61 6e 64 2c 35 2c  22 22 29 0d 24 f4 38 f2  |mmand,5,"").$.8.|
00007a30  73 65 74 69 63 6f 6e 74  65 78 74 28 63 6f 6d 6d  |seticontext(comm|
00007a40  61 6e 64 2c 31 31 2c 22  53 79 6e 74 61 78 3a 22  |and,11,"Syntax:"|
00007a50  2b 73 79 6e 74 61 78 24  29 3a f2 73 63 72 6f 6c  |+syntax$):.scrol|
00007a60  6c 75 70 0d 24 fe 1e f2  73 65 74 69 63 6f 6e 74  |lup.$...seticont|
00007a70  65 78 74 28 63 6f 6d 6d  61 6e 64 2c 35 2c 22 22  |ext(command,5,""|
00007a80  29 0d 25 08 2c f2 73 65  74 69 63 6f 6e 74 65 78  |).%.,.seticontex|
00007a90  74 28 63 6f 6d 6d 61 6e  64 2c 31 31 2c 70 75 72  |t(command,11,pur|
00007aa0  70 24 29 3a f2 73 63 72  6f 6c 6c 75 70 0d 25 12  |p$):.scrollup.%.|
00007ab0  3f f2 73 65 74 69 63 6f  6e 74 65 78 74 28 63 6f  |?.seticontext(co|
00007ac0  6d 6d 61 6e 64 2c 35 2c  22 4c 6f 47 6f 3a 22 29  |mmand,5,"LoGo:")|
00007ad0  3a f2 73 65 74 69 63 6f  6e 74 65 78 74 28 63 6f  |:.seticontext(co|
00007ae0  6d 6d 61 6e 64 2c 31 31  2c 22 22 29 0d 25 1c 05  |mmand,11,"").%..|
00007af0  e1 0d 25 26 05 3a 0d 25  30 2c f4 20 2d 2d 2d 2d  |..%&.:.%0,. ----|
00007b00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00007b20  2d 2d 0d 25 3a 2c f4 20  7c 20 20 20 20 20 20 20  |--.%:,. |       |
00007b30  4d 65 73 73 61 67 65 20  70 61 73 73 69 6e 67 20  |Message passing |
00007b40  72 6f 75 74 69 6e 65 73  20 20 20 20 20 7c 0d 25  |routines     |.%|
00007b50  44 2c f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |D,. ------------|
00007b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00007b70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 25 4e 05 3a 0d  |----------.%N.:.|
00007b80  25 58 22 dd f2 6d 65 73  73 61 67 65 63 6f 64 65  |%X"..messagecode|
00007b90  28 63 6f 64 65 25 2c 70  61 72 61 6d 65 74 65 72  |(code%,parameter|
00007ba0  29 0d 25 62 32 71 25 21  30 3d 31 30 30 3a 71 25  |).%b2q%!0=100:q%|
00007bb0  21 34 3d 30 3a 71 25 21  38 3d 30 3a 71 25 21 31  |!4=0:q%!8=0:q%!1|
00007bc0  32 3d 30 3a 71 25 21 31  36 3d 26 34 43 34 46 34  |2=0:q%!16=&4C4F4|
00007bd0  37 34 46 0d 25 6c 2a 71  25 21 32 30 3d 63 6f 64  |74F.%l*q%!20=cod|
00007be0  65 25 3a 24 28 71 25 2b  32 34 29 3d c3 28 70 61  |e%:$(q%+24)=.(pa|
00007bf0  72 61 6d 65 74 65 72 29  2b bd 28 30 29 0d 25 76  |rameter)+.(0).%v|
00007c00  21 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |!.. "Wimp_SendMe|
00007c10  73 73 61 67 65 22 2c 31  37 2c 71 25 2c 30 0d 25  |ssage",17,q%,0.%|
00007c20  80 05 e1 0d 25 8a 05 3a  0d 25 94 2c f4 20 2d 2d  |....%..:.%.,. --|
00007c30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00007c50  2d 2d 2d 2d 0d 25 9e 2c  f4 20 7c 20 20 20 20 44  |----.%.,. |    D|
00007c60  72 61 77 66 69 6c 65 20  67 65 6e 65 72 61 74 69  |rawfile generati|
00007c70  6f 6e 20 72 6f 75 74 69  6e 65 20 20 20 20 20 7c  |on routine     ||
00007c80  0d 25 a8 2c f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.%.,. ----------|
00007c90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00007ca0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 25 b2 05  |------------.%..|
00007cb0  3a 0d 25 bc 13 dd f2 73  65 74 75 70 64 72 61 77  |:.%....setupdraw|
00007cc0  66 69 6c 65 0d 25 c6 16  64 72 70 6f 69 6e 74 25  |file.%..drpoint%|
00007cd0  3d 64 72 61 77 66 69 6c  65 25 0d 25 d0 20 24 64  |=drawfile%.%. $d|
00007ce0  72 70 6f 69 6e 74 25 3d  22 44 72 61 77 22 3a 64  |rpoint%="Draw":d|
00007cf0  72 70 6f 69 6e 74 25 2b  3d 34 0d 25 da 3a 21 64  |rpoint%+=4.%.:!d|
00007d00  72 70 6f 69 6e 74 25 3d  32 30 31 3a 64 72 70 6f  |rpoint%=201:drpo|
00007d10  69 6e 74 25 2b 3d 34 3a  f4 20 20 20 20 20 20 20  |int%+=4:.       |
00007d20  20 4d 61 6a 6f 72 20 76  65 72 73 69 6f 6e 20 73  | Major version s|
00007d30  74 61 6d 70 0d 25 e4 3a  21 64 72 70 6f 69 6e 74  |tamp.%.:!drpoint|
00007d40  25 3d 30 3a 64 72 70 6f  69 6e 74 25 2b 3d 34 3a  |%=0:drpoint%+=4:|
00007d50  f4 20 20 20 20 20 20 20  20 20 20 4d 69 6e 6f 72  |.          Minor|
00007d60  20 76 65 72 73 69 6f 6e  20 73 74 61 6d 70 0d 25  | version stamp.%|
00007d70  ee 2f 24 64 72 70 6f 69  6e 74 25 3d c0 22 4c 6f  |./$drpoint%=."Lo|
00007d80  67 6f 22 2b c4 31 32 2c  22 20 22 29 2c 31 32 29  |go"+.12," "),12)|
00007d90  3a 64 72 70 6f 69 6e 74  25 2b 3d 31 32 0d 25 f8  |:drpoint%+=12.%.|
00007da0  2d 64 72 70 6f 69 6e 74  25 21 30 3d a4 78 64 72  |-drpoint%!0=.xdr|
00007db0  61 77 28 30 29 3a 64 72  70 6f 69 6e 74 25 21 34  |aw(0):drpoint%!4|
00007dc0  3d a4 79 64 72 61 77 28  30 29 0d 26 02 41 64 72  |=.ydraw(0).&.Adr|
00007dd0  70 6f 69 6e 74 25 21 38  3d a4 78 64 72 61 77 28  |point%!8=.xdraw(|
00007de0  31 32 38 30 29 3a 64 72  70 6f 69 6e 74 25 21 31  |1280):drpoint%!1|
00007df0  32 3d a4 79 64 72 61 77  28 31 30 32 34 29 3a 64  |2=.ydraw(1024):d|
00007e00  72 70 6f 69 6e 74 25 2b  3d 31 36 0d 26 0c 27 70  |rpoint%+=16.&.'p|
00007e10  61 74 68 25 3d a3 3a 64  72 61 77 66 6c 25 3d a4  |ath%=.:drawfl%=.|
00007e20  69 63 6f 6e 65 6f 72 28  70 72 6f 67 72 61 6d 2c  |iconeor(program,|
00007e30  37 29 0d 26 16 20 c8 99  20 22 57 69 6d 70 5f 52  |7).&. .. "Wimp_R|
00007e40  65 61 64 50 61 6c 65 74  74 65 22 2c 2c 63 6f 6c  |eadPalette",,col|
00007e50  73 25 0d 26 20 05 e1 0d  26 2a 05 3a 0d 26 34 18  |s%.& ...&*.:.&4.|
00007e60  dd a4 78 64 72 61 77 28  78 29 3a 3d a8 28 78 2a  |..xdraw(x):=.(x*|
00007e70  32 35 36 29 0d 26 3e 18  dd a4 79 64 72 61 77 28  |256).&>...ydraw(|
00007e80  79 29 3a 3d a8 28 79 2a  32 35 36 29 0d 26 48 1a  |y):=.(y*256).&H.|
00007e90  dd a4 63 64 72 61 77 28  63 25 29 3a 63 25 3d 63  |..cdraw(c%):c%=c|
00007ea0  25 20 83 20 31 36 0d 26  52 2e e7 20 63 25 3e 3d  |% . 16.&R.. c%>=|
00007eb0  30 20 8c 20 3d 21 28 63  6f 6c 73 25 2b 63 25 2a  |0 . =!(cols%+c%*|
00007ec0  34 29 20 80 20 26 46 46  46 46 46 46 30 30 20 8b  |4) . &FFFFFF00 .|
00007ed0  20 3d 2d 31 0d 26 5c 05  3a 0d 26 66 20 dd f2 6f  | =-1.&\.:.&f ..o|
00007ee0  70 65 6e 70 61 74 68 28  78 31 2c 79 31 2c 78 32  |penpath(x1,y1,x2|
00007ef0  2c 79 32 2c 63 6f 6c 25  29 0d 26 70 18 e7 20 70  |,y2,col%).&p.. p|
00007f00  61 74 68 25 3d b9 20 f2  63 6c 6f 73 65 70 61 74  |ath%=. .closepat|
00007f10  68 0d 26 7a 3f 78 31 25  3d a4 78 64 72 61 77 28  |h.&z?x1%=.xdraw(|
00007f20  78 31 29 3a 79 31 25 3d  a4 79 64 72 61 77 28 79  |x1):y1%=.ydraw(y|
00007f30  31 29 3a 78 32 25 3d a4  78 64 72 61 77 28 78 32  |1):x2%=.xdraw(x2|
00007f40  29 3a 79 32 25 3d a4 79  64 72 61 77 28 79 32 29  |):y2%=.ydraw(y2)|
00007f50  0d 26 84 1d 6f 62 6a 61  64 64 72 25 3d 64 72 70  |.&..objaddr%=drp|
00007f60  6f 69 6e 74 25 3a 70 61  74 68 25 3d b9 0d 26 8e  |oint%:path%=..&.|
00007f70  3c 62 78 25 3d 78 31 25  3a 62 79 25 3d 79 31 25  |<bx%=x1%:by%=y1%|
00007f80  3a 62 78 31 25 3d 78 32  25 3a 62 79 31 25 3d 79  |:bx1%=x2%:by1%=y|
00007f90  32 25 3a e7 20 62 78 25  3e 62 78 31 25 20 c8 94  |2%:. bx%>bx1% ..|
00007fa0  20 62 78 25 2c 62 78 31  25 0d 26 98 1a e7 20 62  | bx%,bx1%.&... b|
00007fb0  79 25 3e 62 79 31 25 20  c8 94 20 62 79 25 2c 62  |y%>by1% .. by%,b|
00007fc0  79 31 25 0d 26 a2 38 64  72 70 6f 69 6e 74 25 3d  |y1%.&.8drpoint%=|
00007fd0  a4 6f 62 6a 65 63 74 68  65 61 64 28 64 72 70 6f  |.objecthead(drpo|
00007fe0  69 6e 74 25 2c 32 2c 30  2c 62 78 25 2c 62 79 25  |int%,2,0,bx%,by%|
00007ff0  2c 62 78 31 25 2c 62 79  31 25 29 0d 26 ac 38 21  |,bx1%,by1%).&.8!|
00008000  64 72 70 6f 69 6e 74 25  3d 2d 31 3a 64 72 70 6f  |drpoint%=-1:drpo|
00008010  69 6e 74 25 2b 3d 34 3a  f4 20 20 20 20 20 20 20  |int%+=4:.       |
00008020  20 20 20 20 20 20 20 20  46 69 6c 6c 20 63 6f 6c  |        Fill col|
00008030  6f 75 72 0d 26 b6 37 21  64 72 70 6f 69 6e 74 25  |our.&.7!drpoint%|
00008040  3d a4 63 64 72 61 77 28  63 6f 6c 25 29 3a 64 72  |=.cdraw(col%):dr|
00008050  70 6f 69 6e 74 25 2b 3d  34 3a f4 20 20 20 20 4c  |point%+=4:.    L|
00008060  69 6e 65 20 63 6f 6c 6f  75 72 0d 26 c0 40 21 64  |ine colour.&.@!d|
00008070  72 70 6f 69 6e 74 25 3d  30 3a 64 72 70 6f 69 6e  |rpoint%=0:drpoin|
00008080  74 25 2b 3d 34 3a f4 20  20 20 20 20 20 20 20 20  |t%+=4:.         |
00008090  20 20 20 20 20 20 20 4c  69 6e 65 20 77 69 64 74  |       Line widt|
000080a0  68 20 28 74 68 69 6e 3d  30 29 0d 26 ca 43 21 64  |h (thin=0).&.C!d|
000080b0  72 70 6f 69 6e 74 25 3d  26 34 32 3a 64 72 70 6f  |rpoint%=&42:drpo|
000080c0  69 6e 74 25 2b 3d 34 3a  f4 20 20 20 20 20 20 20  |int%+=4:.       |
000080d0  20 20 20 20 20 20 20 44  72 61 77 20 70 61 74 68  |       Draw path|
000080e0  20 6f 62 6a 65 63 74 20  66 6c 61 67 73 0d 26 d4  | object flags.&.|
000080f0  25 64 72 70 6f 69 6e 74  25 3d a4 74 61 67 28 64  |%drpoint%=.tag(d|
00008100  72 70 6f 69 6e 74 25 2c  32 2c 78 31 25 2c 79 31  |rpoint%,2,x1%,y1|
00008110  25 29 0d 26 de 25 64 72  70 6f 69 6e 74 25 3d a4  |%).&.%drpoint%=.|
00008120  74 61 67 28 64 72 70 6f  69 6e 74 25 2c 38 2c 78  |tag(drpoint%,8,x|
00008130  32 25 2c 79 32 25 29 0d  26 e8 05 e1 0d 26 f2 05  |2%,y2%).&....&..|
00008140  3a 0d 26 fc 1b dd a4 74  61 67 28 61 64 64 72 25  |:.&....tag(addr%|
00008150  2c 74 61 67 25 2c 78 25  2c 79 25 29 0d 27 06 3b  |,tag%,x%,y%).'.;|
00008160  21 61 64 64 72 25 3d 74  61 67 25 3a 61 64 64 72  |!addr%=tag%:addr|
00008170  25 2b 3d 34 3a f4 20 20  20 20 20 20 20 20 20 20  |%+=4:.          |
00008180  20 20 20 20 20 20 20 20  20 54 61 67 20 69 64 65  |         Tag ide|
00008190  6e 74 69 66 69 65 72 0d  27 10 13 e7 20 74 61 67  |ntifier.'... tag|
000081a0  25 3d 30 20 3d 61 64 64  72 25 0d 27 1a 39 21 61  |%=0 =addr%.'.9!a|
000081b0  64 64 72 25 3d 78 25 3a  61 64 64 72 25 2b 3d 34  |ddr%=x%:addr%+=4|
000081c0  3a f4 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.              |
000081d0  20 20 20 20 20 20 20 58  20 64 72 61 77 20 63 6f  |       X draw co|
000081e0  6f 72 64 0d 27 24 39 21  61 64 64 72 25 3d 79 25  |ord.'$9!addr%=y%|
000081f0  3a 61 64 64 72 25 2b 3d  34 3a f4 20 20 20 20 20  |:addr%+=4:.     |
00008200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00008210  59 20 64 72 61 77 20 63  6f 6f 72 64 0d 27 2e 0a  |Y draw coord.'..|
00008220  3d 61 64 64 72 25 0d 27  38 05 3a 0d 27 42 33 dd  |=addr%.'8.:.'B3.|
00008230  a4 6f 62 6a 65 63 74 68  65 61 64 28 61 64 64 72  |.objecthead(addr|
00008240  25 2c 74 79 70 65 25 2c  73 69 7a 65 25 2c 78 31  |%,type%,size%,x1|
00008250  25 2c 79 31 25 2c 78 32  25 2c 79 32 25 29 0d 27  |%,y1%,x2%,y2%).'|
00008260  4c 38 21 61 64 64 72 25  3d 74 79 70 65 25 3a 61  |L8!addr%=type%:a|
00008270  64 64 72 25 2b 3d 34 3a  f4 20 20 20 20 20 20 20  |ddr%+=4:.       |
00008280  20 20 20 20 20 20 20 20  20 20 20 4f 62 6a 65 63  |           Objec|
00008290  74 20 74 79 70 65 0d 27  56 40 21 61 64 64 72 25  |t type.'V@!addr%|
000082a0  3d 73 69 7a 65 25 3a 61  64 64 72 25 2b 3d 34 3a  |=size%:addr%+=4:|
000082b0  f4 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000082c0  20 20 20 4f 62 6a 65 63  74 20 73 69 7a 65 20 28  |   Object size (|
000082d0  62 79 74 65 73 29 0d 27  60 45 21 61 64 64 72 25  |bytes).'`E!addr%|
000082e0  3d 78 31 25 3a 61 64 64  72 25 2b 3d 34 3a f4 20  |=x1%:addr%+=4:. |
000082f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00008300  20 20 20 58 20 6c 6f 77  20 62 6f 75 6e 64 69 6e  |   X low boundin|
00008310  67 20 62 6f 78 20 63 6f  6f 72 64 0d 27 6a 45 21  |g box coord.'jE!|
00008320  61 64 64 72 25 3d 79 31  25 3a 61 64 64 72 25 2b  |addr%=y1%:addr%+|
00008330  3d 34 3a f4 20 20 20 20  20 20 20 20 20 20 20 20  |=4:.            |
00008340  20 20 20 20 20 20 20 20  59 20 6c 6f 77 20 62 6f  |        Y low bo|
00008350  75 6e 64 69 6e 67 20 62  6f 78 20 63 6f 6f 72 64  |unding box coord|
00008360  0d 27 74 46 21 61 64 64  72 25 3d 78 32 25 3a 61  |.'tF!addr%=x2%:a|
00008370  64 64 72 25 2b 3d 34 3a  f4 20 20 20 20 20 20 20  |ddr%+=4:.       |
00008380  20 20 20 20 20 20 20 20  20 20 20 20 20 58 20 68  |             X h|
00008390  69 67 68 20 62 6f 75 6e  64 69 6e 67 20 62 6f 78  |igh bounding box|
000083a0  20 63 6f 6f 72 64 0d 27  7e 46 21 61 64 64 72 25  | coord.'~F!addr%|
000083b0  3d 79 32 25 3a 61 64 64  72 25 2b 3d 34 3a f4 20  |=y2%:addr%+=4:. |
000083c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000083d0  20 20 20 59 20 68 69 67  68 20 62 6f 75 6e 64 69  |   Y high boundi|
000083e0  6e 67 20 62 6f 78 20 63  6f 6f 72 64 0d 27 88 0a  |ng box coord.'..|
000083f0  3d 61 64 64 72 25 0d 27  92 05 3a 0d 27 9c 12 dd  |=addr%.'..:.'...|
00008400  f2 73 61 76 65 64 72 61  77 66 69 6c 65 0d 27 a6  |.savedrawfile.'.|
00008410  11 e7 20 64 72 61 77 66  6c 25 3d a3 20 e1 0d 27  |.. drawfl%=. ..'|
00008420  b0 0e f2 63 6c 6f 73 65  70 61 74 68 0d 27 ba 26  |...closepath.'.&|
00008430  66 69 6c 65 6e 61 6d 65  24 3d a4 72 65 61 64 69  |filename$=.readi|
00008440  63 6f 6e 74 65 78 74 28  70 72 6f 67 72 61 6d 2c  |context(program,|
00008450  32 29 0d 27 c4 36 c8 99  20 22 4f 53 5f 46 69 6c  |2).'.6.. "OS_Fil|
00008460  65 22 2c 31 30 2c 66 69  6c 65 6e 61 6d 65 24 2c  |e",10,filename$,|
00008470  26 41 46 46 2c 2c 64 72  61 77 66 69 6c 65 25 2c  |&AFF,,drawfile%,|
00008480  64 72 70 6f 69 6e 74 25  0d 27 ce 05 e1 0d 27 d8  |drpoint%.'....'.|
00008490  05 3a 0d 27 e2 16 dd f2  61 64 64 74 6f 70 61 74  |.:.'....addtopat|
000084a0  68 28 78 31 2c 79 31 29  0d 27 ec 33 64 72 70 6f  |h(x1,y1).'.3drpo|
000084b0  69 6e 74 25 3d a4 74 61  67 28 64 72 70 6f 69 6e  |int%=.tag(drpoin|
000084c0  74 25 2c 38 2c a4 78 64  72 61 77 28 78 31 29 2c  |t%,8,.xdraw(x1),|
000084d0  a4 79 64 72 61 77 28 79  31 29 29 0d 27 f6 21 62  |.ydraw(y1)).'.!b|
000084e0  78 25 3d a4 78 64 72 61  77 28 78 31 29 3a 62 79  |x%=.xdraw(x1):by|
000084f0  25 3d a4 79 64 72 61 77  28 79 31 29 0d 28 00 23  |%=.ydraw(y1).(.#|
00008500  e7 20 62 78 25 3c 6f 62  6a 61 64 64 72 25 21 38  |. bx%<objaddr%!8|
00008510  20 6f 62 6a 61 64 64 72  25 21 38 3d 62 78 25 0d  | objaddr%!8=bx%.|
00008520  28 0a 25 e7 20 62 78 25  3e 6f 62 6a 61 64 64 72  |(.%. bx%>objaddr|
00008530  25 21 31 36 20 6f 62 6a  61 64 64 72 25 21 31 36  |%!16 objaddr%!16|
00008540  3d 62 78 25 0d 28 14 25  e7 20 62 79 25 3c 6f 62  |=bx%.(.%. by%<ob|
00008550  6a 61 64 64 72 25 21 31  32 20 6f 62 6a 61 64 64  |jaddr%!12 objadd|
00008560  72 25 21 31 32 3d 62 79  25 0d 28 1e 25 e7 20 62  |r%!12=by%.(.%. b|
00008570  79 25 3e 6f 62 6a 61 64  64 72 25 21 32 30 20 6f  |y%>objaddr%!20 o|
00008580  62 6a 61 64 64 72 25 21  32 30 3d 62 79 25 0d 28  |bjaddr%!20=by%.(|
00008590  28 05 e1 0d 28 32 05 3a  0d 28 3c 0f dd f2 63 6c  |(...(2.:.(<...cl|
000085a0  6f 73 65 70 61 74 68 0d  28 46 11 e7 20 64 72 61  |osepath.(F.. dra|
000085b0  77 66 6c 25 3d a3 20 e1  0d 28 50 0f e7 20 70 61  |wfl%=. ..(P.. pa|
000085c0  74 68 25 3d a3 20 e1 0d  28 5a 29 70 61 74 68 25  |th%=. ..(Z)path%|
000085d0  3d a3 3a 64 72 70 6f 69  6e 74 25 3d a4 74 61 67  |=.:drpoint%=.tag|
000085e0  28 64 72 70 6f 69 6e 74  25 2c 30 2c 30 2c 30 29  |(drpoint%,0,0,0)|
000085f0  0d 28 64 22 6f 62 6a 61  64 64 72 25 21 34 3d 64  |.(d"objaddr%!4=d|
00008600  72 70 6f 69 6e 74 25 2d  6f 62 6a 61 64 64 72 25  |rpoint%-objaddr%|
00008610  3a e1 0d 28 6e 05 3a 0d  28 78 20 dd f2 64 72 61  |:..(n.:.(x ..dra|
00008620  77 6c 69 6e 65 28 78 31  2c 79 31 2c 78 32 2c 79  |wline(x1,y1,x2,y|
00008630  32 2c 63 6f 6c 25 29 0d  28 82 11 e7 20 64 72 61  |2,col%).(... dra|
00008640  77 66 6c 25 3d a3 20 e1  0d 28 8c 0f e7 20 70 61  |wfl%=. ..(... pa|
00008650  74 68 25 3d a3 20 8c 0d  28 96 1f f2 6f 70 65 6e  |th%=. ..(...open|
00008660  70 61 74 68 28 78 31 2c  79 31 2c 78 32 2c 79 32  |path(x1,y1,x2,y2|
00008670  2c 63 6f 6c 25 29 0d 28  a0 05 cc 0d 28 aa 15 f2  |,col%).(....(...|
00008680  61 64 64 74 6f 70 61 74  68 28 78 32 2c 79 32 29  |addtopath(x2,y2)|
00008690  0d 28 b4 07 cd 3a e1 0d  28 be 05 3a 0d 28 c8 0e  |.(...:..(..:.(..|
000086a0  dd f2 64 72 61 77 69 63  6f 6e 0d 28 d2 1b e7 20  |..drawicon.(... |
000086b0  a4 69 63 6f 6e 65 6f 72  28 70 72 6f 67 72 61 6d  |.iconeor(program|
000086c0  2c 37 29 20 8c 0d 28 dc  16 f2 75 6e 69 63 6f 6e  |,7) ..(...unicon|
000086d0  28 70 72 6f 67 72 61 6d  2c 37 29 0d 28 e6 35 f2  |(program,7).(.5.|
000086e0  75 6e 73 65 6c 65 63 74  61 62 6c 65 28 70 72 6f  |unselectable(pro|
000086f0  67 72 61 6d 2c 33 29 3a  f2 75 6e 73 65 6c 65 63  |gram,3):.unselec|
00008700  74 61 62 6c 65 28 70 72  6f 67 72 61 6d 2c 32 29  |table(program,2)|
00008710  0d 28 f0 05 cc 0d 28 fa  17 f2 65 6f 72 69 63 6f  |.(....(...eorico|
00008720  6e 28 70 72 6f 67 72 61  6d 2c 37 29 0d 29 04 31  |n(program,7).).1|
00008730  f2 73 65 6c 65 63 74 61  62 6c 65 28 70 72 6f 67  |.selectable(prog|
00008740  72 61 6d 2c 33 29 3a f2  73 65 6c 65 63 74 61 62  |ram,3):.selectab|
00008750  6c 65 28 70 72 6f 67 72  61 6d 2c 32 29 0d 29 0e  |le(program,2).).|
00008760  07 cd 3a e1 0d 29 18 05  e1 0d ff                 |..:..).....|
0000876b

© Dominic Ford 2021–2025.

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