Home » Archimedes archive » Archimedes World » AW-1993-03.adf » AWMar93 » !AWMar93/Goodies/Technique/!Technique/!RunImage

!AWMar93/Goodies/Technique/!Technique/!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-03.adf » AWMar93
Filename: !AWMar93/Goodies/Technique/!Technique/!RunImage
Read OK:
File size: 489F bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>!RunImage
   20CLEAR:DIMaa% 4:$aa%="TASK":ba%=TRUE:SYS"Wimp_Initialise",200,!aa%,"Technique"TOca%,da%:i=0:j=7:k=7:PROCw
   30DIMq% 9280,ea% 500,fa% 500,ga% 1000,ha% 500,ia% 500,ja% 750,ka% 1000,la% 500,ma% 500,na% 500,oa% 500,pa% 500,qa% 1000:DIMH% 768,ra% -1:sa%=H%:S%=OPENIN"<Utils$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%:DIMn% T%:SYS"OS_SpriteOp",265,n%
   40SYS"OS_SpriteOp",266,n%,"<Utils$Dir>.Sprites":SYS"Wimp_OpenTemplate",,"<Utils$Dir>.Templates":SYS"Wimp_LoadTemplate",,q%,ea%,ea%+500,-1,"Utils",0:q%!64=n%:SYS"Wimp_CreateWindow",,q%TOta%:SYS"Wimp_LoadTemplate",,q%,fa%,fa%+500,-1,"Info",0
   50q%!64=n%:SYS"Wimp_CreateWindow",,q%TOua%:SYS"Wimp_LoadTemplate",,q%,ga%,ga%+1000,-1,"FileTypes",0:SYS"Wimp_CreateWindow",,q%TOp%:SYS"Wimp_LoadTemplate",,q%,ha%,ha%+500,-1,"Calculator",0:q%!64=n%:SYS"Wimp_CreateWindow",,q%TOva%
   60SYS"Wimp_LoadTemplate",,q%,ia%,ia%+500,-1,"files",0:q%!64=n%:SYS"Wimp_CreateWindow",,q%TOU%:SYS"Wimp_LoadTemplate",,q%,ja%,ja%+500,-1,"Sound",0:q%!64=n%:SYS"Wimp_CreateWindow",,q%TOt%:SYS"Wimp_LoadTemplate",,q%,ka%,ka%+1000,-1,"Characters",0
   70q%!64=n%:SYS"Wimp_CreateWindow",,q%TOwa%:SYS"Wimp_LoadTemplate",,q%,la%,la%+500,-1,"desktop",0:q%!64=n%:SYS"Wimp_CreateWindow",,q%TOj%:SYS"Wimp_LoadTemplate",,q%,ma%,ma%+500,-1,"clock",0:q%!64=n%:SYS"Wimp_CreateWindow",,q%TOxa%
   80SYS"Wimp_LoadTemplate",,q%,na%,na%+500,-1,"fkeys",0:q%!64=n%:SYS"Wimp_CreateWindow",,q%TOya%:SYS"Wimp_LoadTemplate",,q%,oa%,oa%+500,-1,"rename",0:SYS"Wimp_CreateWindow",,q%TOE%:SYS"Wimp_LoadTemplate",,q%,pa%,pa%+500,-1,"save",0
   90SYS"Wimp_CreateWindow",,q%TOV%:SYS"Wimp_LoadTemplate",,q%,qa%,qa%+1000,-1,"misc",0:q%!64=n%:SYS"Wimp_CreateWindow",,q%TOk%:SYS"Wimp_CloseTemplate":d%=FNe:r$="Version 5.14 26-12-92":PROCa(q%,ua%,4,r$,0):PROCc("0"):PROCx:ONERRORPROCi
  100PROCy:PROCz:PROCA:PROCh:PROCj:ONERRORPROCi
  110SYSh,,-1:PROCk:W%=za%:Z%=_%:Aa%=FALSE:REPEAT:SYSBa%,0,q%TOA%:CASEA%OF
  120WHEN0:PROCB
  130WHEN2:PROCe(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
  140WHEN3:PROCg(!q%)
  150WHEN6:PROCC(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%)
  160WHEN7:PROCD
  170WHEN8:PROCE
  180WHEN9:PROCF(q%)
  190WHEN17,18:PROCG(q%)
  200ENDCASE
  210UNTILFALSE
  220DEFPROCG(b):Ca%=b!8:CASEb!16OF
  230WHEN0:PROCl:END
  240WHEN1282:PROCH(b)
  250WHEN3:IFb!4<>da%PROCI(b)
  260WHEN2:IFDa%THEN
  270PROCJ(FNb(q%+44)):Da%=FALSE:SYS"Wimp_GetPointerInfo",,q%:q%!20=q%!12:q%!24=q%!16:q%!28=!q%:q%!32=q%!4:!q%=44:q%!12=Ca%:q%!16=3:q%!40=0:SYS"Wimp_SendMessage",17,q%
  280WHEN 8:IFNOTFNh("Are you SURE you want to leave to desktop???") THEN q%!12=q%!8:q%!16=8:SYS"Wimp_SendMessage",17,q%,q%!4
  290WHEN262337:PROCj
  300ENDCASE
  310ENDPROC
  320DEFPROCC(za%,_%,b%,e%,a%,Ea%,M%):IF(b%AND2)ANDe%<>ya%THEN
  330PROCK(101,">Info,Save Status,>Save Config,Quit","Technique")
  340ENDIF
  350IF(b%AND5)THEN
  360IFe%>-1THENPROCd(e%)
  370CASEe%OF
  380WHENta%:CASEa%OF
  390WHEN0:PROCb(p%)
  400WHEN1:PROCb(xa%)
  410WHEN2:PROCb(U%)
  420WHEN3:PROCb(t%)
  430WHEN4:PROCb(wa%)
  440WHEN5:Fa%=NOTFa%:IFFa%:PROCL(ya%)ELSEPROCg(ya%)
  450WHEN6:PROCb(va%)
  460WHEN7:PROCb(j%)
  470WHEN9:PROCb(k%)
  480ENDCASE
  490WHEN-2:PROCb(ta%)
  500WHENva%:LOCALERROR:ONERRORLOCALPROCm
  510IFGa%THEN
  520IFa%=33:PROCn
  530ELSE:CASEa%OF
  540WHEN17,18,19,20,21,22,23,24,25,26:PROCM(CHR$(a%-17+ASC"0"))
  550WHEN27:PROCN
  560WHEN28:PROCf("=")
  570WHEN29:PROCf("+")
  580WHEN30:PROCf("-")
  590WHEN31:PROCf("*")
  600WHEN32:PROCf("/")
  610WHEN33:PROCn
  620WHEN34,-1
  630ENDCASE
  640ENDIF
  650RESTOREERROR
  660WHENp%:CASEa%OF
  670WHEN24,25,26,27:PROCO
  680ENDCASE
  690WHENt%:CASEa%OF
  700WHEN0,1:PROCo
  710WHEN2,3:PROCp
  720WHEN6,7,8,9,10,11,12:PROCP(a%)
  730WHEN4,14:PROCQ(a%)
  740ENDCASE
  750WHENwa%:SYS"Wimp_ProcessKey",a%+32
  760WHENya%:PROCR(a%+1)
  770WHENj%:CASEa%OF
  780WHEN0,2:PROCS
  790WHEN1,3:PROCq
  800WHEN10:PROCT
  810WHEN4,7:PROCr(a%)
  820WHEN11,12,13,14,15,16,17,18:PROCs(a%)
  830ENDCASE
  840WHENE%:IFa%=3:PROCt(E%):Ha%=E%
  850WHENV%:IFa%=3:PROCt(V%):Ha%=V%
  860WHENk%:CASEa%OF
  870WHEN0,13:OSCLI"Filer_Opendir serial:"
  880WHEN1,14:OSCLI"Filer_Opendir printer:"
  890WHEN2,15:OSCLI"Filer_Opendir null:"
  900WHEN19:OSCLI"RMKill FileCore%ADFS":OSCLI"RMReinit ADFS":ERROR 123,"You should now be able to save your work. Restart the system ASAP"
  910WHEN16,17:PROCU
  920WHEN3,5,6,20,21,22:PROCV(a%)
  930WHEN18:PROCW
  940WHEN9,11:PROCX(a%)
  950ENDCASE
  960WHENU%:CASEa%OF
  970WHEN2:PROCY
  980WHEN5:PROCZ
  990ENDCASE
 1000ENDCASE
 1010ENDIF
 1020ENDPROC
 1030DEFPROCg(e%):SYSf,,q%:IFq%!8AND1THENPROCb(ta%)
 1040PROCd(e%):W%=D%:Z%=I%:Aa%=FALSE:PROC_(e%):ENDPROC
 1050DEFPROCl:SYS"Wimp_CloseDown":ENDPROC
 1060DEFPROCK(e%,k$,t$):Ia%=e%:h%=H%:i%=0:h%!20=40:$h%=t$:h%?12=k:h%?13=2:h%?14=j:h%?15=i:h%!16=190:h%!24=0:h%+=28:REPEATl$=FNf(","):PROC`(l$):UNTILl$="":h%!-24=(h%!-24)OR128:IF_%<256_%=256
 1070SYSl,,H%,za%-128,_%:ENDPROC
 1080DEFPROC`(e$):IFe$="":ENDPROC
 1090!h%=0:CASEe$OF
 1100WHEN">Info":h%!4=ua%
 1110WHEN">Save Config":h%!4=V%
 1120OTHERWISE:h%!4=-1
 1130ENDCASE
 1140h%!8=&7000021:IFLEFT$(e$,1)=">":$(h%+12)=MID$(e$,2)ELSE$(h%+12)=e$
 1150h%+=24:ENDPROC
 1160DEFFNf(m$):Ja%=i%+1:i%=INSTR(k$+m$,m$,Ja%):=MID$(k$,Ja%,i%-Ja%)
 1170DEFPROCF(Ka%):SYSm,,H%,Ka%,STRING$(200," ")TO,,,a$:IFa$=""THENENDPROC
 1180CASEIa%OF
 1190WHEN101:CASEa$OF
 1200WHEN"Quit":PROCl:END
 1210WHEN"Save Status":PROCaa
 1220ENDCASE
 1230ENDCASE
 1240ENDPROC
 1250DEFPROCb(e%):IFe%=-1THENENDPROC
 1260PROCd(e%):PROCe(e%,D%,I%,J%,F%,K%,L%,-1):ENDPROC
 1270DEFPROCL(e%):PROCd(e%):PROCe(e%,D%,I%,J%,F%,K%,L%,0):ENDPROC
 1290DEFPROCe(e%,D%,I%,J%,F%,K%,L%,La%):IFe%=-1THENENDPROC
 1300q%!0=e%:q%!28=La%:q%!4=D%:q%!8=I%:q%!12=J%:q%!16=F%:q%!20=K%:q%!24=L%:SYSn,,q%:ENDPROC
 1310DEFPROCd(e%):!q%=e%:SYSc,,q%:PROCca(q%+4):La%=q%!28:Ma%=q%!32:ENDPROC
 1320DEFPROCca(q%):D%=!q%:I%=q%!4:J%=q%!8:F%=q%!12:K%=q%!16:L%=q%!20:Na%=D%-K%:Oa%=F%-L%:ENDPROC
 1330DEFPROC_(e%):!q%=e%:SYSo,,q%:ENDPROC
 1340DEFPROCw:a=(1<<18)+(3<<6):y=a+1:n=a+5:o=a+6:Ba%=a+7:z=a+8:A=a+9:Pa%=a+10:c=a+11:f=a+15:h=a+16:l=a+20:m=a+21:SYS"OS_SWINumberFromString",,"Wimp_SetColour"TOQa%:ENDPROC
 1350DEFPROCk:SYSf,,q%:za%=!q%:_%=q%!4:b%=q%!8:e%=q%!12:a%=q%!16:Ea%=q%!20:ENDPROC
 1360DEFPROCi:PROCg(E%):SYSh,,-1:!H%=ERR:$(H%+4)=REPORT$+CHR$0:SYS"Wimp_ReportError",H%,1,"Technique":ENDPROC
 1380DEFFNe:!q%=-1:q%!4=0:q%!8=0:q%!12=63:q%!16=68:q%!20=8450:j$="!Technique":DIMq%!24 (LENj$+1):$(q%!24)=j$:q%!28=n%:q%!32=LENj$+1:SYS"Wimp_CreateIcon",,q%TORa%:=Ra%
 1390DEFFNa(b,`%,N%,u$,g):b!0=`%:b!4=N%:SYS"Wimp_GetIconState",,b:SYS"Wimp_DeleteIcon",,b:b!4=b!8:b!8=b!12:b!12=b!16:b!16=b!20:b!20=b!24:$(b+24)=u$:SYS"Wimp_CreateIcon",,bTON%:IFgTHENSYS"Wimp_ForceRedraw",b!0,b!4,b!8,b!12,b!16
 1400=N%
 1410DEFPROCa(q%,`%,N%,v$,g):q%!0=`%:q%!4=N%:SYS"Wimp_GetIconState",,q%:$(q%!28)=v$:IFgTHEN
 1420SYS"Wimp_ForceRedraw",`%,q%!8,q%!12,q%!16,q%!20
 1430ENDIF
 1440ENDPROC
 1450DEFFNd(q%,`%,N%):q%!0=`%:q%!4=N%:SYS"Wimp_GetIconState",,q%:=$(q%!28)
 1460DEFPROCH(q%):Sa%=q%!4:Ta%=q%!8:Ua%=q%!24:e%=q%!32:a%=q%!36:IFe%>2:!q%=e%:SYSc,,q%
 1470CASEe%OF
 1480WHENta%:!q%=e%:SYSc,,q%:CASEq%!36OF
 1490WHEN0:a$="Click SELECT to open filetypes window"
 1500WHEN1:a$="Click SELECT to open clock and date-stamp window"
 1510WHEN2:a$="Click SELECT to open file operations window"
 1520WHEN3:a$="Click SELECT to open audio control window"
 1530WHEN4:a$="Click SELECT to open character set window"
 1540WHEN5:a$="Click SELECT to open function key strip"
 1550WHEN6:a$="Click SELECT to open a poor desktop calculator"
 1560WHEN7:a$="Click SELECT to open desktop screen window"
 1570WHEN8:a$="Drag a Config file here to load the computer's configuration"
 1580WHEN9:a$="Click SELECT to open miscellaneous utilities window"
 1590ENDCASE
 1600WHENV%:a$="Drag icon with SELECT to save computer's configuration"
 1610WHENya%:a$="Click SELECT to emulate pressing funtion key"
 1620WHENt%:!q%=e%:SYSc,,q%:CASEq%!36OF
 1630WHEN0,1:a$="Click SELECT to toggle the audio system on/off"
 1640WHEN2,3:a$="Click SELECT to toggle the internal speaker on/off"
 1650WHEN4,14:a$="Click SELECT to alter the sound channel of which you want to change the stereo position"
 1660WHEN15,16:a$="The sound channel whose stereo position you can alter"
 1670WHEN6,7,8,9,10,11,12:a$="Click SELECT to set the stereo position of the sound channel indicated above"
 1680OTHERWISEa$="The sound system window"
 1690ENDCASE
 1700WHENxa%:!q%=e%:SYSc,,q%:CASEq%!36OF
 1710WHEN2:a$="Todays date, UNLESS this was running at midnight, in which case it's yesterday's date..."
 1720OTHERWISEa$="The real time clock. Drag a file or files here to date stamp them"
 1730ENDCASE
 1740WHENU%:!q%=e%:SYSc,,q%:CASEq%!36OF
 1750WHEN0:a$="Drag a text,obey, or exec file here to *TYPE it"
 1760WHEN1:a$="Drag a file here to *DUMP it"
 1770WHEN2:a$="Click SELECT to enter BASIC. Drag a basic program here to load it into BASIC"
 1780WHEN3:a$="Drag a directory or application here to open its filer window"
 1790WHEN4:a$="Drag a file here to move it swiftly"
 1800WHEN5:a$="Drag a file here to (un)lock it. Click SELECT to toggle lock/unlock"
 1810WHEN6:a$="Drag file(s) onto the trashcan to delete them"
 1820WHEN7:a$="Drag file(s) here to completely obliterate them"
 1830ENDCASE
 1840WHENj%:!q%=e%:SYSc,,q%:CASEq%!36OF
 1850WHEN0,2:a$="Click SELECT to toggle the screen blanker on/off"
 1860WHEN1,3:a$="Click SELECT to toggle whether you can effect the screen blanker by moving the mouse to the bottom left hand corner of the screen"
 1870WHEN15,16,17,18,11,12,13,14:a$="Click SELECT to choose what goes on when the screen is blanked"
 1880WHEN10:a$="Click SELECT to redraw the desktop screen. Use to initialise font setting changes, or if you have covered the desktop with a screen. The icon inverts when under the pointer so you can find it"
 1890WHEN4,7:a$="Click SELECT to alter the delay before the screen blanker comes on"
 1900WHEN5,8,9:a$="The delay before the screen blanker comes on"
 1910WHEN23:a$="The number of colours supported by the current desktop mode"
 1920WHEN19,20:a$="The number of the desktop mode currently in use"
 1930WHEN22:a$="The height of the screen, in pixels"
 1940WHEN21:a$="The width of the screen, in pixels"
 1950OTHERWISEa$="Control the desktop display from this window"
 1960ENDCASE
 1970WHENk%:!q%=e%:SYSc,,q%:CASEq%!36OF
 1980WHEN16,17:a$="Click SELECT to toggle the ROM speed - increases speed by about 10%. Not suitable for ARM3 or ARM250 machines, or machines with hard discs"
 1990WHEN1,14:a$="Click SELECT to open a window for the printer: device"
 2000WHEN0,13:a$="Click SELECT to open a window for the serial: device"
 2010WHEN2,15:a$="Click SELECT to open a window for the null: device"
 2020WHEN19:a$="Click SELECT to repair 'FileCore in use' errors"
 2030WHEN4,7,8:a$="Enter a CLI string here"
 2040WHEN3,5,6,20,21,22:a$="Click SELECT to send the string to the right to the CLI"
 2050WHEN9,11:a$="Click SELECT to alter the speed of the mouse"
 2060WHEN10,12:a$="As it says in the icon itself, this is the speed of the mouse"
 2070WHEN18:a$="Click SELECT to close all files, dismount all filing systems, park all hard disc heads, ready to leave desktop"
 2080OTHERWISE:a$="Miscellaneous operations available in this window"
 2090ENDCASE
 2100WHENva%:a$="An incredibly bad implementation of a desktop calculator. As bad as Acorn's own, if not worse. Very Poor!"
 2110WHENwa%:!q%=e%:SYSc,,q%:a$="Click SELECT or press SHIFT to enter ASCII character "+CHR$(32+q%!36)+" = "+STR$(32+q%!36)+" (&"+STR$~(32+q%!36)+") as if from the keyboard"
 2120WHENua%:a$="This is Big Shirl's Technique Info window. Why are you using interactive help on it??"
 2130WHENp%:SYSc,,q%:CASEq%!36OF
 2140WHEN0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:a$="Drag file(s) onto one of these icons to set its file type appropriately"
 2150WHEN16,17,18,19,33,34,35,36:a$="This is the icon (if there is one) of the file type stored here. Drag a file here to have its fileype stored/set"
 2160WHEN20,21,22,23:a$="This is the number (hex) of the filetype stored here"
 2170WHEN24,26:a$="Click SELECT to indicate that files dragged onto the icons above will have their filetypes stored"
 2180WHEN25,27:a$="Click SELECT to indicate that files dragged onto the icons above will have their filetypes set as indicated by the icons"
 2190ENDCASE
 2200OTHERWISEa$="Click SELECT to open Big Shirl's main Technique window"
 2210ENDCASE
 2220!q%=((20+LEN(a$)+1)+3)ANDNOT3:q%!12=Ta%:q%!16=1283:$(q%+20)=a$:q%?(20+LENa$)=0:SYS"Wimp_SendMessage",17,q%,Sa%:ENDPROC
 2230DEFPROCE:CASE!q%OF
 2240WHEN0
 2250OTHERWISE:CASEq%!24OF
 2260WHEN27:SYS"Wimp_SetCaretPosition",0,0
 2270OTHERWISE:SYS"Wimp_ProcessKey",q%!24
 2280ENDCASE
 2290ENDCASE
 2300ENDPROC
 2310DEFFNc(q%):=q%!40
 2320DEFFNb(s%):LOCALn$:WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE:=n$
 2330DEFPROCx:Va%=1:Wa%=0:Xa%=3:Da%=FALSE:Ya%=FALSE:r%=900:PROCr(7):Za%=0:_a%=0:TIME=0:O%=TRUE:G%=FALSE:DIM`a% 512,ab% 512:p=FNg(E%,2):$p="Null":u%=0:bb%=0:v%=1:DIMb%(8):b%()=0:Q%=TRUE:R%=FALSE:DIMc%(15)
 2340c%()=4091,4077,4095,4075,4089,4094,4090,4088,4092,4086,4087,3004,2815,4085,4076,4093:DIMa%(3):a%()=2815,2815,2815,2815:cb%=TRUE:Ga%=FALSE:e=0:c$="0":h$="=":d$=c$:Fa%=FALSE:DIMa$(3):g$=RIGHT$(TIME$,8):o$=g$:PROCa(q%,xa%,2,LEFT$(TIME$,15),0):l%=4:db%=FALSE:ENDPROC
 2350DEFPROCB:g$=RIGHT$(TIME$,8):IFg$<>o$THEN
 2360PROCa(q%,xa%,1,g$,-1):o$=g$
 2370ENDIF
 2380IFG%THEN
 2390MOUSEX%,Y%,B%:IFX%+Y%=0THENPROCu
 2400ENDIF
 2410IFINKEY(-1)AND(TIME-_a%)>20THEN
 2420SYSf,,q%:IFq%!12<>wa%THEN
 2430ELSE:eb%=32+(q%!16):SYS"Wimp_ProcessKey",eb%:_a%=TIME
 2440ENDIF
 2450ENDIF
 2460IFO%THEN
 2470MOUSEm%,fb%,o%:IFm%+fb%<>u%+bb%ORo%OR!d<>0THEN
 2480Za%=TIME
 2490ELSEIF(TIME-Za%)>r%THENPROCu
 2500!d=0
 2510ENDIF
 2520u%=m%:bb%=fb%
 2530ENDIF
 2540!d=0:ENDPROC
 2550DEFPROCI(q%):p$=FNb(q%+44):PROCk:gb%=q%!12:a%=q%!16:CASEgb%OF
 2560WHENU%:CASEa%OF
 2570WHEN0:PROCda
 2580WHEN1:PROCea
 2590WHEN2:PROCfa
 2600WHEN3:PROCga
 2610WHEN4,8:PROCha(E%)
 2620WHEN5:PROCia
 2630WHEN7:PROCja
 2640ENDCASE
 2650WHENxa%:OSCLI("Stamp "+FNb(q%+44))
 2660WHENta%:IFa%=8:PROCka(FNb(q%+44))
 2670WHENp%:CASETRUEOF
 2680WHENa%<16:PROCla(a%)
 2690WHEN(a%<37ANDa%>32):PROCv(a%-33)
 2700WHEN(a%<24ANDa%>19):PROCv(a%-20)
 2710ENDCASE
 2720ENDCASE
 2730ENDPROC
 2740DEFPROCda:IFFNc(q%)=4095ORFNc(q%)=4094ORFNc(q%)=4075THEN
 2750OSCLI"Key 12 Type "+FNb(q%+44)+"|T|L|N|M":OSCLI"FX138 0 204":OSCLI"FX138 0 204"
 2760ENDIF
 2770ENDPROC
 2780DEFPROCea:IFFNc(q%)=4096ORFNc(q%)=8192THENENDPROC
 2790OSCLI"Key 12 DUMP "+FNb(q%+44)+"|T|L|N|M":OSCLI"FX138 0 204":OSCLI"FX138 0 204":ENDPROC
 2800DEFPROCfa:IFFNc(q%)=4091THEN
 2810OSCLI"Key 12 BASIC -load "+FNb(q%+44)+"|T|L|M":OSCLI"FX138 0 204":OSCLI"FX138 0 204"
 2820ENDIF
 2830ENDPROC
 2840DEFPROCga:IFFNc(q%)=4096ORFNc(q%)=8192THEN
 2850OSCLI"Filer_OpenDir "+FNb(q%+44)
 2860ENDIF
 2870ENDPROC
 2880DEFPROCja:OSCLI"Wipe "+FNb(q%+44)+" R F ~C ~V":ENDPROC
 2890DEFPROCn:Ga%=FALSE:e=0:c$="0":h$="=":d$=c$:PROCc(d$):ENDPROC
 2900DEFPROCM(i$):IFLENc$-SGN(INSTR(c$,"."))<8THEN
 2910IFc$="0":c$=i$ELSEc$=c$+i$
 2920ENDIF
 2930d$=c$:PROCc(d$):ENDPROC
 2940DEFPROCN:IFINSTR(c$,".")=0ANDLENc$<8:c$=c$+"."
 2950d$=c$:PROCc(d$):ENDPROC
 2960DEFPROCf(i$):LOCAL@%:@%=16910097:IFh$="=":e=VALd$ELSEe=EVAL(STR$e+h$+d$)
 2970c$="0":h$=i$:PROCc(STR$e):ENDPROC
 2980DEFPROCc(b$):q=VALb$:IFABSq>=&5F5E100:PROCm:ENDPROC
 2990WHILERIGHT$(b$,1)="0"ANDINSTR(b$,".")>0:b$=LEFT$(b$,LEN(b$)-1):ENDWHILE:b$=LEFT$(b$,8+SGN(INSTR(b$,"."))+SGN(INSTR(b$,"-"))):IFRIGHT$(b$,1)=".":b$=LEFT$(b$,LEN(b$)-1)
 3000IFb$="-0":b$="0"
 3010d$=b$:PROCa(q%,va%,34,d$,-1):ENDPROC
 3020DEFPROCm:d$="-ERROR-":Ga%=TRUE:c$="-ERROR-":b$="0":a%=-1:PROCc(d$):ENDPROC
 3030DEFPROCla(g%):f$=FNb(q%+44):OSCLI"SetType "+f$+" "+STR$~(c%(g%))+" { > null: }":ENDPROC
 3040DEFPROCv(g%):IFcb%THEN
 3050hb%=FNc(q%):a%(g%)=hb%:d%=FNa(q%,p%,g%+33,"file_"+STR$~hb%,-1):PROCa(q%,p%,g%+20,STR$~hb%,-1)
 3060ELSE:hb%=a%(g%):f$=FNb(q%+44):OSCLI"SetType "+f$+" "+STR$~hb%+" { > null: }"
 3070ENDIF
 3080ENDPROC
 3090DEFPROCO:IFa%=24ORa%=26THEN
 3100d%=FNa(q%,p%,24,"on",-1):d%=FNa(q%,p%,25,"off",-1):cb%=TRUE
 3110ELSE:d%=FNa(q%,p%,24,"off",-1):d%=FNa(q%,p%,25,"on",-1):cb%=FALSE
 3120ENDIF
 3130ENDPROC
 3140DEFFNh(w$):SYS"Wimp_ReportError","**** "+w$,23,"Message from Technique"TO,ib%:Ya%=TRUE:=(ib%=1)
 3150DEFPROCo:Q%=NOTQ%:IFQ%THEN
 3160d%=FNa(q%,t%,1,"bon",-1):OSCLI"Audio On { > null: }":VDU7
 3170ELSE:d%=FNa(q%,t%,1,"boff",-1):OSCLI"Audio Off { > null: }"
 3180ENDIF
 3190ENDPROC
 3200DEFPROCp:R%=NOTR%:IFR%THEN
 3210d%=FNa(q%,t%,2,"bon",-1):OSCLI"Speaker On { > null: }":VDU7
 3220ELSE:d%=FNa(q%,t%,2,"boff",-1):OSCLI"Speaker Off { > null: }":VDU7
 3230ENDIF
 3240ENDPROC
 3250DEFPROCQ(a%):IFa%=4THEN
 3260v%-=1:IFv%<1:v%=8
 3270ELSE:v%+=1:IFv%>8:v%=1
 3280ENDIF
 3290PROCh:PROCa(q%,t%,16,STR$(v%),-1)
 3300ENDIF
 3310ENDPROC
 3320DEFPROCP(g%):b%(v%)=g%-9:STEREOv%,40*(g%-9):PROCh:ENDPROC
 3330DEFPROCh:FORf%=6TO12:d%=FNa(q%,t%,f%,"off",-1):NEXT:d%=FNa(q%,t%,9+b%(v%),"on",-1):ENDPROC
 3340DEFPROCS:O%=NOTO%:IFO%THEN
 3350d%=FNa(q%,j%,0,"bon",-1)
 3360ELSE:d%=FNa(q%,j%,0,"boff",-1)
 3370ENDIF
 3380ENDPROC
 3390DEFPROCq:G%=NOTG%:IFG%THEN
 3400d%=FNa(q%,j%,1,"bon",-1)
 3410ELSE:d%=FNa(q%,j%,1,"boff",-1)
 3420ENDIF
 3430ENDPROC
 3440DEFPROCR(g%):IFg%>12:g%-=12
 3450CASEg%OF
 3460WHEN10,11,12:g%+=448
 3470OTHERWISE:g%+=384
 3480ENDCASE
 3490SYS"Wimp_ProcessKey",g%:ENDPROC
 3500DEFPROCu:jb%=MODE:MODE0:OFF:MOUSEOFF:TIME=0:REPEAT:UNTILTIME>150:d%=EVAL("FN"+STR$(Va%)):SYS"Wimp_SetMode",jb%:MOUSEON1
 3510!d=0:ENDPROC
 3520DEFPROCT:SYS"Wimp_ForceRedraw",-1,0,0,kb%<<lb%,mb%<<nb%:ENDPROC
 3530DEFPROCr(g%):IFg%=4THENr%-=100ELSEr%+=100
 3540IFr%<500THENr%=500
 3550IFr%>60000THENr%=60000
 3560PROCa(q%,j%,8,STR$(r%DIV100),-1):ENDPROC
 3570DEFPROCJ(s$):IFHa%=E%THEN
 3580OSCLI"RENAME "+p$+" "+s$+FNi(p$)+" { > null: }"
 3590ELSE:PROCma(s$+FNd(q%,V%,0))
 3600ENDIF
 3610PROCg(E%):ENDPROC
 3620DEFPROCt(Ha%):LOCALx%,y%,ob%:!q%=Ha%:SYS"Wimp_GetWindowState",,q%:ob%=q%!16-q%!8:x%=q%!4:y%=q%!8:q%!4=Xa%:SYS"Wimp_GetIconState",,q%:q%!8+=x%:q%!12+=y%+ob%:q%!16+=x%:q%!20+=y%+ob%:q%!24=0:q%!28=0:q%!32=1279:q%!36=1023:!q%=0:q%!4=5:Da%=TRUE
 3630SYS"Wimp_DragBox",,q%:ENDPROC
 3640DEFPROCna(pb%,a%):!`a%=pb%:`a%!4=a%:SYS"Wimp_GetIconState",,`a%:ENDPROC
 3650DEFFNg(pb%,a%):PROCna(pb%,a%):=`a%!28
 3660DEFPROCD:IFDa%THEN
 3670SYS"Wimp_GetPointerInfo",,q%:q%!32=q%!4:q%!28=!q%:q%!24=q%!16:q%!20=q%!12:q%!16=1:q%!12=0:q%!36=0:q%!40=0:$(q%+44)="":!q%=60:SYS"Wimp_SendMessage",17,q%,q%!20
 3680ENDIF
 3690ENDPROC
 3700DEFPROCha(e%):PROCd(e%):W%=za%-(D%+J%)/2:Z%=_%-(F%+64):PROCe(e%,D%+W%,I%+Z%,J%+W%,F%+Z%,K%,L%,-1):ENDPROC
 3710DEFFNi(s$):e$=s$:WHILEINSTR(s$,":")>0:s$=MID$(s$,INSTR(s$,":")+1):ENDWHILE:WHILEINSTR(s$,".")>0:s$=MID$(s$,INSTR(s$,".")+1):ENDWHILE:x$=LEFT$(e$,LEN(e$)-LEN(s$)-1):=s$
 3720DEFPROCma(f$):qb%=OPENOUTf$:FORf%=1TO239:SYS"OS_Byte",161,f%TO,,rb%:BPUT#qb%,rb%:NEXT:CLOSE#qb%:SYS"OS_File",18,f$,256
 3730*FX138 0 27
 3740ENDPROC
 3750DEFPROCka(f$):qb%=OPENINf$:FORf%=1TO239:rb%=BGET#qb%:SYS"OS_Byte",162,f%,rb%:NEXT:CLOSE#qb%:ENDPROC
 3760DEFPROCU:sb%=NOTsb%:IFsb%THEN
 3770d%=FNa(q%,k%,16,"bon",-1):SYS"OS_UpdateMEMC",64,64
 3780ELSE:d%=FNa(q%,k%,16,"boff",-1):SYS"OS_UpdateMEMC",0,64
 3790ENDIF
 3800ENDPROC
 3810DEFPROCW:IFFNh("Are you sure you wish to shutdown the system?")THEN
 3820OSCLI"Shut":OSCLI"Close":OSCLI"NoDIR":OSCLI"NoURD":OSCLI"NoLIB":OSCLI"Dismount":OSCLI"ShutDown"
 3830IFFNh("All files closed, hard discs parked, file servers logged-off. Click on OK to reset the machine, or on CANCEL to keep the desktop as it is")THEN
 3840*FX200 2
 3850DIMzk% 32:P%=zk%:[:OPT 0:MOV 0,#&3800000:LDR 1,[0]:STR 1,[1,-1]:SWI "XOS_EnterOS":TEQP PC,#&FC000003:MOV PC,#0:]:CALLzk%
 3860ENDIF
 3870ENDIF
 3880ENDPROC
 3890DEFPROCX(a%):IFa%=9THEN
 3900l%=l%-1:IFl%<1:l%=9
 3910ELSE:l%=l%+1:IFl%>9:l%=1
 3920ENDIF
 3930PROCa(q%,k%,12,STR$(l%),-1):MOUSESTEPl%:ENDPROC
 3940DEFPROCV(a%):IFa%=20:a%=3
 3950IFa%=21:a%=5
 3960IFa%=22:a%=6
 3970IFa%=3:a$(1)=FNd(q%,k%,4)
 3980IFa%=5:a$(2)=FNd(q%,k%,7)
 3990IFa%=6:a$(3)=FNd(q%,k%,8)
 4000tb%=a%DIV2:SYS"Wimp_SetCaretPosition",0,0:SYS"Wimp_StartTask",a$(tb%):ENDPROC
 4010DEFPROCia:IFdb%THENOSCLI"ACCESS "+FNb(q%+44)+" WR"
 4020IFNOTdb%THENOSCLI"ACCESS "+FNb(q%+44)+" LWR"
 4030ENDPROC
 4040DEFPROCs(g%):IFg%>14:g%-=4
 4050g%-=10:Va%=g%:FORf%=15TO18:r=FNa(q%,j%,f%,"off",-1):NEXT:r=FNa(q%,j%,14+Va%,"on",-1):ENDPROC
 4060DEFPROCz:SYS"OS_Module",6,,,16TO,,ub%:IFub%<25165824THENERROR123,"No room in RMA"
 4070FORvb%=0TO2STEP2:P%=ub%:[OPT vb%:.s:CMP1,#0:STREQ0,d:MOV PC,14:.d:EQUD0: ]:NEXT:SYS"OS_Claim",20,s,0:wb%=TRUE:ENDPROC
 4080DEFPROCj:SYS"XOS_ReadModeVariable",MODE,4TO,,lb%:SYS"XOS_ReadModeVariable",MODE,5TO,,nb%:SYS"XOS_ReadModeVariable",MODE,11TO,,xb%:SYS"XOS_ReadModeVariable",MODE,12TO,,yb%:kb%=xb%+1:mb%=yb%+1:SYS"XOS_ReadModeVariable",MODE,3TO,,zb%:IFzb%=63:zb%=255
 4090PROCa(q%,j%,21,STR$(kb%),-1):PROCa(q%,j%,22,STR$(mb%),-1):PROCa(q%,j%,19,STR$(MODE),-1):PROCa(q%,j%,23,STR$(zb%+1)+" colours",-1):ENDPROC
 4100DEFFN1:MODE9:OFF:C=0:FORf%=1TO15:COLOURf%,0,0,0:NEXT:MOUSEu%,bb%,o%:FORY=0TO1024:Y+=9+RND(20):FORX=0TO1280STEP8+RND(9):C+=1:GCOLC:IFC>14THENC=0
 4110POINTX,Y:NEXT,:REPEAT:MOUSEm%,fb%,o%:IFm%<>u%ORo%OR!dTHEN=m%
 4120FORK=1TO15:VDU19,K,7;0;:A$=INKEY$(1):WAIT:VDU19,K,0;0;:NEXT
 4130UNTIL0:=m%
 4140DEFFN2:f%=0:MOUSEu%,bb%,o%:REPEAT:MOUSEm%,fb%,o%:IFf%=0THEN
 4150COLOUR1,RND(255),RND(255),RND(255):CLS:f%=0:w%=800:Ab%=4:Bb%=4:z%=200:C%=100:x%=RND(400/Bb%)*Bb%:y%=RND(400/Bb%)*Bb%:Cb%=RND(Ab%)*Bb%:Db%=RND(Ab%)*Bb%
 4160ENDIF
 4170f%+=1:WAIT:MOVEx%+z%,y%+C%:PLOT6,x%+z%,(w%-y%)+C%:PLOT6,(w%-x%)+z%,(w%-y%)+C%:PLOT6,(w%-x%)+z%,y%+C%:PLOT6,x%+z%,y%+C%:MOVEy%+z%,x%+C%:PLOT6,y%+z%,(w%-x%)+C%:PLOT6,(w%-y%)+z%,(w%-x%)+C%:PLOT6,(w%-y%)+z%,x%+C%:PLOT6,y%+z%,x%+C%:x%=x%+Cb%:IFx%>w%ORx%<0:Cb%=-Cb%
 4180y%=y%+Db%:IFy%>w%ORy%<0:Db%=-Db%
 4190IFf%>200:f%=0
 4200UNTILu%<>m%ORo%OR!d:=f%
 4210DEFFN4:MOUSEu%,bb%,o%:REPEAT:MOUSEm%,fb%,o%:UNTILu%<>m%ORo%OR!d:=m%
 4220DEFFN3:MOUSEu%,bb%,o%:REPEAT:MOUSEm%,fb%,o%:VDU5
 4230GCOL3,1:Eb%=RND(1100):Fb%=RND(1000):MOVEEb%,Fb%:q$=TIME$:PRINTq$:MOVEEb%,Fb%:TIME=0:REPEATUNTILTIME>85:PRINTq$:UNTILu%<>m%ORo%OR!d:VDU4
 4240=m%
 4250DEFPROCY:OSCLI"Key 12 BASIC|V|@|L|T|M"
 4260*FX138 0 204
 4270*FX138 0 204
 4280ENDPROC
 4290DEFPROCZ:db%=NOTdb%:IFdb%THENd%=FNa(q%,U%,5,"unlock",-1)
 4300IFNOTdb%THENd%=FNa(q%,U%,5,"lock",-1)
 4310ENDPROC
 4320DEFPROCaa:a$(1)=FNd(q%,k%,4):a$(2)=FNd(q%,k%,7):a$(3)=FNd(q%,k%,8):d%=OPENOUT"<Utils$Dir>.Status":FORf%=0TO3:BPUT#d%,STR$(a%(f%)):NEXT:BPUT#d%,STR$(Q%):BPUT#d%,STR$(R%):FORf%=1TO8:BPUT#d%,STR$(b%(f%)):NEXT:BPUT#d%,STR$(O%):BPUT#d%,STR$(G%):BPUT#d%,STR$(Va%):BPUT#d%,STR$(r%):FORf%=1TO3:BPUT#d%,a$(f%):NEXT
 4330BPUT#d%,STR$(l%):CLOSE#d%:ENDPROC
 4340DEFPROCy:d%=OPENIN"<Utils$Dir>.Status":FORf%=0TO3:a%(f%)=VAL(GET$#d%):NEXT:Q%=VAL(GET$#d%):R%=VAL(GET$#d%):FORf%=1TO8:b%(f%)=VAL(GET$#d%):NEXT:O%=VAL(GET$#d%):G%=VAL(GET$#d%):Va%=VAL(GET$#d%):r%=VAL(GET$#d%):FORf%=1TO3:a$(f%)=GET$#d%:NEXT:l%=VAL(GET$#d%):CLOSE#d%
 4350PROCa(q%,k%,12,STR$(l%),0):MOUSESTEPl%:IFO%:d%=FNa(q%,j%,0,"bon",0)ELSEd%=FNa(q%,j%,0,"boff",0)
 4360R%=NOTR%:PROCp:Q%=NOTQ%:PROCo:PROCa(q%,k%,4,a$(1),0):PROCa(q%,k%,7,a$(2),0):PROCa(q%,k%,8,a$(3),0):G%=NOTG%:PROCq:PROCs(Va%+10):PROCa(q%,j%,8,STR$(r%DIV100),-1):ENDPROC
 4370DEFPROCA:FORf%=33TO36:d%=FNa(q%,p%,f%,"file_"+STR$~(a%(f%-33)),0):PROCa(q%,p%,f%-33+20,STR$~(a%(f%-33)),0):NEXT:ENDPROC

�>!RunImage
^�:�aa% 4:$aa%="TASK":ba%=�:ș"Wimp_Initialise",200,!aa%,"Technique"�ca%,da%:i=0:j=7:k=7:�w
��q% 9280,ea% 500,fa% 500,ga% 1000,ha% 500,ia% 500,ja% 750,ka% 1000,la% 500,ma% 500,na% 500,oa% 500,pa% 500,qa% 1000:�H% 768,ra% -1:sa%=H%:S%=�"<Utils$Dir>.Sprites":T%=�#S%+16:�#S%:�n% T%:ș"OS_SpriteOp",265,n%
(�ș"OS_SpriteOp",266,n%,"<Utils$Dir>.Sprites":ș"Wimp_OpenTemplate",,"<Utils$Dir>.Templates":ș"Wimp_LoadTemplate",,q%,ea%,ea%+500,-1,"Utils",0:q%!64=n%:ș"Wimp_CreateWindow",,q%�ta%:ș"Wimp_LoadTemplate",,q%,fa%,fa%+500,-1,"Info",0
2�q%!64=n%:ș"Wimp_CreateWindow",,q%�ua%:ș"Wimp_LoadTemplate",,q%,ga%,ga%+1000,-1,"FileTypes",0:ș"Wimp_CreateWindow",,q%�p%:ș"Wimp_LoadTemplate",,q%,ha%,ha%+500,-1,"Calculator",0:q%!64=n%:ș"Wimp_CreateWindow",,q%�va%
<�ș"Wimp_LoadTemplate",,q%,ia%,ia%+500,-1,"files",0:q%!64=n%:ș"Wimp_CreateWindow",,q%�U%:ș"Wimp_LoadTemplate",,q%,ja%,ja%+500,-1,"Sound",0:q%!64=n%:ș"Wimp_CreateWindow",,q%�t%:ș"Wimp_LoadTemplate",,q%,ka%,ka%+1000,-1,"Characters",0
F�q%!64=n%:ș"Wimp_CreateWindow",,q%�wa%:ș"Wimp_LoadTemplate",,q%,la%,la%+500,-1,"desktop",0:q%!64=n%:ș"Wimp_CreateWindow",,q%�j%:ș"Wimp_LoadTemplate",,q%,ma%,ma%+500,-1,"clock",0:q%!64=n%:ș"Wimp_CreateWindow",,q%�xa%
P�ș"Wimp_LoadTemplate",,q%,na%,na%+500,-1,"fkeys",0:q%!64=n%:ș"Wimp_CreateWindow",,q%�ya%:ș"Wimp_LoadTemplate",,q%,oa%,oa%+500,-1,"rename",0:ș"Wimp_CreateWindow",,q%�E%:ș"Wimp_LoadTemplate",,q%,pa%,pa%+500,-1,"save",0
Z�ș"Wimp_CreateWindow",,q%�V%:ș"Wimp_LoadTemplate",,q%,qa%,qa%+1000,-1,"misc",0:q%!64=n%:ș"Wimp_CreateWindow",,q%�k%:ș"Wimp_CloseTemplate":d%=�e:r$="Version 5.14 26-12-92":�a(q%,ua%,4,r$,0):�c("0"):�x:��i
d�y:�z:�A:�h:�j:��i
n7șh,,-1:�k:W%=za%:Z%=_%:Aa%=�:�:șBa%,0,q%�A%:ȎA%�
x	�0:�B
�6�2:�e(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
��3:�g(!q%)
�-�6:�C(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%)
�	�7:�D
�	�8:�E
�
�9:�F(q%)
��17,18:�G(q%)
��
���
���G(b):Ca%=b!8:Ȏb!16�
��0:�l:�
��1282:�H(b)
��3:�b!4<>da%�I(b)
�2:�Da%�
��J(�b(q%+44)):Da%=�:ș"Wimp_GetPointerInfo",,q%:q%!20=q%!12:q%!24=q%!16:q%!28=!q%:q%!32=q%!4:!q%=44:q%!12=Ca%:q%!16=3:q%!40=0:ș"Wimp_SendMessage",17,q%
q� 8:笤h("Are you SURE you want to leave to desktop???") � q%!12=q%!8:q%!16=8:ș"Wimp_SendMessage",17,q%,q%!4
"�262337:�j
,�
6�
@0��C(za%,_%,b%,e%,a%,Ea%,M%):�(b%�2)�e%<>ya%�
J=�K(101,">Info,Save Status,>Save Config,Quit","Technique")
T�
^�(b%�5)�
h�e%>-1��d(e%)
r	Ȏe%�
|�ta%:Ȏa%�
�
�0:�b(p%)
��1:�b(xa%)
�
�2:�b(U%)
�
�3:�b(t%)
��4:�b(wa%)
�$�5:Fa%=�Fa%:�Fa%:�L(ya%)��g(ya%)
��6:�b(va%)
�
�7:�b(j%)
�
�9:�b(k%)
��
��-2:�b(ta%)
��va%:�:���m
�	�Ga%�

�a%=33:�n
�:Ȏa%�
4�17,18,19,20,21,22,23,24,25,26:�M(�(a%-17+�"0"))
&
�27:�N
0�28:�f("=")
:�29:�f("+")
D�30:�f("-")
N�31:�f("*")
X�32:�f("/")
b
�33:�n
l
�34,-1
v�
��
���
�
�p%:Ȏa%�
��24,25,26,27:�O
��
�
�t%:Ȏa%�
��0,1:�o
��2,3:�p
��6,7,8,9,10,11,12:�P(a%)
��4,14:�Q(a%)
��
�"�wa%:ș"Wimp_ProcessKey",a%+32
��ya%:�R(a%+1)

�j%:Ȏa%�
�0,2:�S
�1,3:�q
 
�10:�T
*�4,7:�r(a%)
4#�11,12,13,14,15,16,17,18:�s(a%)
>�
H�E%:�a%=3:�t(E%):Ha%=E%
R�V%:�a%=3:�t(V%):Ha%=V%
\
�k%:Ȏa%�
f"�0,13:�"Filer_Opendir serial:"
p#�1,14:�"Filer_Opendir printer:"
z �2,15:�"Filer_Opendir null:"
�z�19:�"RMKill FileCore%ADFS":�"RMReinit ADFS":� 123,"You should now be able to save your work. Restart the system ASAP"
�
�16,17:�U
��3,5,6,20,21,22:�V(a%)
�
�18:�W
��9,11:�X(a%)
��
�
�U%:Ȏa%�
�	�2:�Y
�	�5:�Z
��
��
��
��
#��g(e%):șf,,q%:�q%!8�1��b(ta%)
%�d(e%):W%=D%:Z%=I%:Aa%=�:�_(e%):�
��l:ș"Wimp_CloseDown":�
$���K(e%,k$,t$):Ia%=e%:h%=H%:i%=0:h%!20=40:$h%=t$:h%?12=k:h%?13=2:h%?14=j:h%?15=i:h%!16=190:h%!24=0:h%+=28:�l$=�f(","):�`(l$):�l$="":h%!-24=(h%!-24)�128:�_%<256_%=256
.șl,,H%,za%-128,_%:�
8��`(e$):�e$="":�
B!h%=0:Ȏe$�
L�">Info":h%!4=ua%
V�">Save Config":h%!4=V%
`
:h%!4=-1
j�
t9h%!8=&7000021:�e$,1)=">":$(h%+12)=�e$,2)�$(h%+12)=e$
~h%+=24:�
�7ݤf(m$):Ja%=i%+1:i%=�k$+m$,m$,Ja%):=�k$,Ja%,i%-Ja%)
�1��F(Ka%):șm,,H%,Ka%,�200," ")�,,,a$:�a$=""��
�
ȎIa%�
��101:Ȏa$�
��"Quit":�l:�
��"Save Status":�aa
��
��
��
���b(e%):�e%=-1��
�(�d(e%):�e(e%,D%,I%,J%,F%,K%,L%,-1):�
�/��L(e%):�d(e%):�e(e%,D%,I%,J%,F%,K%,L%,0):�

*��e(e%,D%,I%,J%,F%,K%,L%,La%):�e%=-1��
Sq%!0=e%:q%!28=La%:q%!4=D%:q%!8=I%:q%!12=J%:q%!16=F%:q%!20=K%:q%!24=L%:șn,,q%:�
:��d(e%):!q%=e%:șc,,q%:�ca(q%+4):La%=q%!28:Ma%=q%!32:�
(T��ca(q%):D%=!q%:I%=q%!4:J%=q%!8:F%=q%!12:K%=q%!16:L%=q%!20:Na%=D%-K%:Oa%=F%-L%:�
2��_(e%):!q%=e%:șo,,q%:�
<���w:a=(1<<18)+(3<<6):y=a+1:n=a+5:o=a+6:Ba%=a+7:z=a+8:A=a+9:Pa%=a+10:c=a+11:f=a+15:h=a+16:l=a+20:m=a+21:ș"OS_SWINumberFromString",,"Wimp_SetColour"�Qa%:�
FE��k:șf,,q%:za%=!q%:_%=q%!4:b%=q%!8:e%=q%!12:a%=q%!16:Ea%=q%!20:�
PR��i:�g(E%):șh,,-1:!H%=�:$(H%+4)=�$+�0:ș"Wimp_ReportError",H%,1,"Technique":�
d�ݤe:!q%=-1:q%!4=0:q%!8=0:q%!12=63:q%!16=68:q%!20=8450:j$="!Technique":�q%!24 (�j$+1):$(q%!24)=j$:q%!28=n%:q%!32=�j$+1:ș"Wimp_CreateIcon",,q%�Ra%:=Ra%
n�ݤa(b,`%,N%,u$,g):b!0=`%:b!4=N%:ș"Wimp_GetIconState",,b:ș"Wimp_DeleteIcon",,b:b!4=b!8:b!8=b!12:b!12=b!16:b!16=b!20:b!20=b!24:$(b+24)=u$:ș"Wimp_CreateIcon",,b�N%:�g�ș"Wimp_ForceRedraw",b!0,b!4,b!8,b!12,b!16
x=N%
�P��a(q%,`%,N%,v$,g):q%!0=`%:q%!4=N%:ș"Wimp_GetIconState",,q%:$(q%!28)=v$:�g�
�2ș"Wimp_ForceRedraw",`%,q%!8,q%!12,q%!16,q%!20
��
��
�Eݤd(q%,`%,N%):q%!0=`%:q%!4=N%:ș"Wimp_GetIconState",,q%:=$(q%!28)
�N��H(q%):Sa%=q%!4:Ta%=q%!8:Ua%=q%!24:e%=q%!32:a%=q%!36:�e%>2:!q%=e%:șc,,q%
�	Ȏe%�
� �ta%:!q%=e%:șc,,q%:Ȏq%!36�
�1�0:a$="Click SELECT to open filetypes window"
�<�1:a$="Click SELECT to open clock and date-stamp window"
�7�2:a$="Click SELECT to open file operations window"
�5�3:a$="Click SELECT to open audio control window"
�5�4:a$="Click SELECT to open character set window"
3�5:a$="Click SELECT to open function key strip"
:�6:a$="Click SELECT to open a poor desktop calculator"
6�7:a$="Click SELECT to open desktop screen window"
"H�8:a$="Drag a Config file here to load the computer's configuration"
,?�9:a$="Click SELECT to open miscellaneous utilities window"
6�
@C�V%:a$="Drag icon with SELECT to save computer's configuration"
J:�ya%:a$="Click SELECT to emulate pressing funtion key"
T�t%:!q%=e%:șc,,q%:Ȏq%!36�
^<�0,1:a$="Click SELECT to toggle the audio system on/off"
h@�2,3:a$="Click SELECT to toggle the internal speaker on/off"
rf�4,14:a$="Click SELECT to alter the sound channel of which you want to change the stereo position"
|E�15,16:a$="The sound channel whose stereo position you can alter"
�g�6,7,8,9,10,11,12:a$="Click SELECT to set the stereo position of the sound channel indicated above"
�!a$="The sound system window"
��
� �xa%:!q%=e%:șc,,q%:Ȏq%!36�
�d�2:a$="Todays date, UNLESS this was running at midnight, in which case it's yesterday's date..."
�Ka$="The real time clock. Drag a file or files here to date stamp them"
��
��U%:!q%=e%:șc,,q%:Ȏq%!36�
�;�0:a$="Drag a text,obey, or exec file here to *TYPE it"
�(�1:a$="Drag a file here to *DUMP it"
�X�2:a$="Click SELECT to enter BASIC. Drag a basic program here to load it into BASIC"
�I�3:a$="Drag a directory or application here to open its filer window"
�/�4:a$="Drag a file here to move it swiftly"
O�5:a$="Drag a file here to (un)lock it. Click SELECT to toggle lock/unlock"
9�6:a$="Drag file(s) onto the trashcan to delete them"
;�7:a$="Drag file(s) here to completely obliterate them"
&�
0�j%:!q%=e%:șc,,q%:Ȏq%!36�
:>�0,2:a$="Click SELECT to toggle the screen blanker on/off"
D��1,3:a$="Click SELECT to toggle whether you can effect the screen blanker by moving the mouse to the bottom left hand corner of the screen"
N`�15,16,17,18,11,12,13,14:a$="Click SELECT to choose what goes on when the screen is blanked"
X��10:a$="Click SELECT to redraw the desktop screen. Use to initialise font setting changes, or if you have covered the desktop with a screen. The icon inverts when under the pointer so you can find it"
bP�4,7:a$="Click SELECT to alter the delay before the screen blanker comes on"
l<�5,8,9:a$="The delay before the screen blanker comes on"
vH�23:a$="The number of colours supported by the current desktop mode"
�?�19,20:a$="The number of the desktop mode currently in use"
�0�22:a$="The height of the screen, in pixels"
�/�21:a$="The width of the screen, in pixels"
�6a$="Control the desktop display from this window"
��
��k%:!q%=e%:șc,,q%:Ȏq%!36�
���16,17:a$="Click SELECT to toggle the ROM speed - increases speed by about 10%. Not suitable for ARM3 or ARM250 machines, or machines with hard discs"
�D�1,14:a$="Click SELECT to open a window for the printer: device"
�C�0,13:a$="Click SELECT to open a window for the serial: device"
�A�2,15:a$="Click SELECT to open a window for the null: device"
�<�19:a$="Click SELECT to repair 'FileCore in use' errors"
�'�4,7,8:a$="Enter a CLI string here"
�P�3,5,6,20,21,22:a$="Click SELECT to send the string to the right to the CLI"
;�9,11:a$="Click SELECT to alter the speed of the mouse"
M�10,12:a$="As it says in the icon itself, this is the speed of the mouse"
{�18:a$="Click SELECT to close all files, dismount all filing systems, park all hard disc heads, ready to leave desktop"
 <:a$="Miscellaneous operations available in this window"
*�
4w�va%:a$="An incredibly bad implementation of a desktop calculator. As bad as Acorn's own, if not worse. Very Poor!"
>��wa%:!q%=e%:șc,,q%:a$="Click SELECT or press SHIFT to enter ASCII character "+�(32+q%!36)+" = "+�(32+q%!36)+" (&"+�~(32+q%!36)+") as if from the keyboard"
Hc�ua%:a$="This is Big Shirl's Technique Info window. Why are you using interactive help on it??"
R�p%:șc,,q%:Ȏq%!36�
\w�0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15:a$="Drag file(s) onto one of these icons to set its file type appropriately"
f��16,17,18,19,33,34,35,36:a$="This is the icon (if there is one) of the file type stored here. Drag a file here to have its fileype stored/set"
pJ�20,21,22,23:a$="This is the number (hex) of the filetype stored here"
zq�24,26:a$="Click SELECT to indicate that files dragged onto the icons above will have their filetypes stored"
���25,27:a$="Click SELECT to indicate that files dragged onto the icons above will have their filetypes set as indicated by the icons"
��
�@a$="Click SELECT to open Big Shirl's main Technique window"
��
�k!q%=((20+�(a$)+1)+3)��3:q%!12=Ta%:q%!16=1283:$(q%+20)=a$:q%?(20+�a$)=0:ș"Wimp_SendMessage",17,q%,Sa%:�
���E:Ȏ!q%�
��0
�:Ȏq%!24�
�%�27:ș"Wimp_SetCaretPosition",0,0
�:ș"Wimp_ProcessKey",q%!24
��
��
��
	ݤc(q%):=q%!40
	*ݤb(s%):�n$:ȕ?s%:n$+=�?s%:s%+=1:�:=n$
	���x:Va%=1:Wa%=0:Xa%=3:Da%=�:Ya%=�:r%=900:�r(7):Za%=0:_a%=0:�=0:O%=�:G%=�:�`a% 512,ab% 512:p=�g(E%,2):$p="Null":u%=0:bb%=0:v%=1:�b%(8):b%()=0:Q%=�:R%=�:�c%(15)
	$�c%()=4091,4077,4095,4075,4089,4094,4090,4088,4092,4086,4087,3004,2815,4085,4076,4093:�a%(3):a%()=2815,2815,2815,2815:cb%=�:Ga%=�:e=0:c$="0":h$="=":d$=c$:Fa%=�:�a$(3):g$=‘$,8):o$=g$:�a(q%,xa%,2,��$,15),0):l%=4:db%=�:�
	.��B:g$=‘$,8):�g$<>o$�
	8�a(q%,xa%,1,g$,-1):o$=g$
	B�
	L�G%�
	VȗX%,Y%,B%:�X%+Y%=0��u
	`�
	j�(-1)�(�-_a%)>20�
	tșf,,q%:�q%!12<>wa%�
	~2�:eb%=32+(q%!16):ș"Wimp_ProcessKey",eb%:_a%=�
	��
	��
	��O%�
	�)ȗm%,fb%,o%:�m%+fb%<>u%+bb%�o%�!d<>0�
	�	Za%=�
	���(�-Za%)>r%��u
	�!d=0
	��
	�u%=m%:bb%=fb%
	��
	�
!d=0:�
	�5��I(q%):p$=�b(q%+44):�k:gb%=q%!12:a%=q%!16:Ȏgb%�

�U%:Ȏa%�


�0:�da

�1:�ea

�2:�fa
(
�3:�ga
2�4,8:�ha(E%)
<
�5:�ia
F
�7:�ja
P�
Z�xa%:�("Stamp "+�b(q%+44))
d�ta%:�a%=8:�ka(�b(q%+44))
n�p%:Ȏ��
x�a%<16:�la(a%)
��(a%<37�a%>32):�v(a%-33)
��(a%<24�a%>19):�v(a%-20)
��
��
��
�.��da:�c(q%)=4095��c(q%)=4094��c(q%)=4075�
�F�"Key 12 Type "+�b(q%+44)+"|T|L|N|M":�"FX138 0 204":�"FX138 0 204"
��
��
�#��ea:�c(q%)=4096��c(q%)=8192��
�H�"Key 12 DUMP "+�b(q%+44)+"|T|L|N|M":�"FX138 0 204":�"FX138 0 204":�
���fa:�c(q%)=4091�
�K�"Key 12 BASIC -load "+�b(q%+44)+"|T|L|M":�"FX138 0 204":�"FX138 0 204"
�
�
"��ga:�c(q%)=4096��c(q%)=8192�
"�"Filer_OpenDir "+�b(q%+44)
,�
6�
@*��ja:�"Wipe "+�b(q%+44)+" R F ~C ~V":�
J.��n:Ga%=�:e=0:c$="0":h$="=":d$=c$:�c(d$):�
T��M(i$):�c$-�(�c$,"."))<8�
^�c$="0":c$=i$�c$=c$+i$
h�
rd$=c$:�c(d$):�
|#��N:�c$,".")=0��c$<8:c$=c$+"."
�d$=c$:�c(d$):�
�7��f(i$):�@%:@%=16910097:�h$="=":e=�d$�e=�(�e+h$+d$)
�c$="0":h$=i$:�c(�e):�
�$��c(b$):q=�b$:�q>=&5F5E100:�m:�
�kȕ�b$,1)="0"��b$,".")>0:b$=�b$,�(b$)-1):�:b$=�b$,8+�(�b$,"."))+�(�b$,"-"))):��b$,1)=".":b$=�b$,�(b$)-1)
��b$="-0":b$="0"
�d$=b$:�a(q%,va%,34,d$,-1):�
�=��m:d$="-ERROR-":Ga%=�:c$="-ERROR-":b$="0":a%=-1:�c(d$):�
�H��la(g%):f$=�b(q%+44):�"SetType "+f$+" "+�~(c%(g%))+" { > null: }":�
���v(g%):�cb%�
�Vhb%=�c(q%):a%(g%)=hb%:d%=�a(q%,p%,g%+33,"file_"+�~hb%,-1):�a(q%,p%,g%+20,�~hb%,-1)
�E�:hb%=a%(g%):f$=�b(q%+44):�"SetType "+f$+" "+�~hb%+" { > null: }"
��
�
��O:�a%=24�a%=26�
:d%=�a(q%,p%,24,"on",-1):d%=�a(q%,p%,25,"off",-1):cb%=�
&<�:d%=�a(q%,p%,24,"off",-1):d%=�a(q%,p%,25,"on",-1):cb%=�
0�
:�
D[ݤh(w$):ș"Wimp_ReportError","**** "+w$,23,"Message from Technique"�,ib%:Ya%=�:=(ib%=1)
N��o:Q%=�Q%:�Q%�
X6d%=�a(q%,t%,1,"bon",-1):�"Audio On { > null: }":�7
b7�:d%=�a(q%,t%,1,"boff",-1):�"Audio Off { > null: }"
l�
v�
���p:R%=�R%:�R%�
�8d%=�a(q%,t%,2,"bon",-1):�"Speaker On { > null: }":�7
�<�:d%=�a(q%,t%,2,"boff",-1):�"Speaker Off { > null: }":�7
��
��
���Q(a%):�a%=4�
�v%-=1:�v%<1:v%=8
��:v%+=1:�v%>8:v%=1
��
��h:�a(q%,t%,16,�(v%),-1)
��
��
�+��P(g%):b%(v%)=g%-9:Ȣv%,40*(g%-9):�h:�

K��h:�f%=6�12:d%=�a(q%,t%,f%,"off",-1):�:d%=�a(q%,t%,9+b%(v%),"on",-1):�

��S:O%=�O%:�O%�

d%=�a(q%,j%,0,"bon",-1)

 �:d%=�a(q%,j%,0,"boff",-1)

*�

4�

>��q:G%=�G%:�G%�

Hd%=�a(q%,j%,1,"bon",-1)

R�:d%=�a(q%,j%,1,"boff",-1)

\�

f�

p��R(g%):�g%>12:g%-=12

z	Ȏg%�

��10,11,12:g%+=448

�
:g%+=384

��

�ș"Wimp_ProcessKey",g%:�

�O��u:jb%=�:�0:�:ȗ�:�=0:�:��>150:d%=�("FN"+�(Va%)):ș"Wimp_SetMode",jb%:ȗ�1

�
!d=0:�

�7��T:ș"Wimp_ForceRedraw",-1,0,0,kb%<<lb%,mb%<<nb%:�

�!��r(g%):�g%=4�r%-=100�r%+=100

��r%<500�r%=500

��r%>60000�r%=60000

��a(q%,j%,8,�(r%�100),-1):�

���J(s$):�Ha%=E%�

�.�"RENAME "+p$+" "+s$+�i(p$)+" { > null: }"
�:�ma(s$+�d(q%,V%,0))
�
�g(E%):�
$���t(Ha%):�x%,y%,ob%:!q%=Ha%:ș"Wimp_GetWindowState",,q%:ob%=q%!16-q%!8:x%=q%!4:y%=q%!8:q%!4=Xa%:ș"Wimp_GetIconState",,q%:q%!8+=x%:q%!12+=y%+ob%:q%!16+=x%:q%!20+=y%+ob%:q%!24=0:q%!28=0:q%!32=1279:q%!36=1023:!q%=0:q%!4=5:Da%=�
.ș"Wimp_DragBox",,q%:�
8?��na(pb%,a%):!`a%=pb%:`a%!4=a%:ș"Wimp_GetIconState",,`a%:�
B#ݤg(pb%,a%):�na(pb%,a%):=`a%!28
L
��D:�Da%�
V�ș"Wimp_GetPointerInfo",,q%:q%!32=q%!4:q%!28=!q%:q%!24=q%!16:q%!20=q%!12:q%!16=1:q%!12=0:q%!36=0:q%!40=0:$(q%+44)="":!q%=60:ș"Wimp_SendMessage",17,q%,q%!20
`�
j�
t\��ha(e%):�d(e%):W%=za%-(D%+J%)/2:Z%=_%-(F%+64):�e(e%,D%+W%,I%+Z%,J%+W%,F%+Z%,K%,L%,-1):�
~oݤi(s$):e$=s$:ȕ�s$,":")>0:s$=�s$,�s$,":")+1):�:ȕ�s$,".")>0:s$=�s$,�s$,".")+1):�:x$=�e$,�(e$)-�(s$)-1):=s$
�_��ma(f$):qb%=�f$:�f%=1�239:ș"OS_Byte",161,f%�,,rb%:�#qb%,rb%:�:�#qb%:ș"OS_File",18,f$,256
�*FX138 0 27
��
�I��ka(f$):qb%=�f$:�f%=1�239:rb%=�#qb%:ș"OS_Byte",162,f%,rb%:�:�#qb%:�
���U:sb%=�sb%:�sb%�
�4d%=�a(q%,k%,16,"bon",-1):ș"OS_UpdateMEMC",64,64
�6�:d%=�a(q%,k%,16,"boff",-1):ș"OS_UpdateMEMC",0,64
��
��
�=��W:�h("Are you sure you wish to shutdown the system?")�
�G�"Shut":�"Close":�"NoDIR":�"NoURD":�"NoLIB":�"Dismount":�"ShutDown"
���h("All files closed, hard discs parked, file servers logged-off. Click on OK to reset the machine, or on CANCEL to keep the desktop as it is")�
*FX200 2

w�zk% 32:P%=zk%:[:OPT 0:MOV 0,#&3800000:LDR 1,[0]:STR 1,[1,-1]:SWI "XOS_EnterOS":TEQP PC,#&FC000003:MOV PC,#0:]:�zk%
�
�
(�
2��X(a%):�a%=9�
<l%=l%-1:�l%<1:l%=9
F�:l%=l%+1:�l%>9:l%=1
P�
Z!�a(q%,k%,12,�(l%),-1):ȗ�l%:�
d��V(a%):�a%=20:a%=3
n�a%=21:a%=5
x�a%=22:a%=6
��a%=3:a$(1)=�d(q%,k%,4)
��a%=5:a$(2)=�d(q%,k%,7)
��a%=6:a$(3)=�d(q%,k%,8)
�Gtb%=a%�2:ș"Wimp_SetCaretPosition",0,0:ș"Wimp_StartTask",a$(tb%):�
�(��ia:�db%��"ACCESS "+�b(q%+44)+" WR"
�%�db%��"ACCESS "+�b(q%+44)+" LWR"
��
���s(g%):�g%>14:g%-=4
�Rg%-=10:Va%=g%:�f%=15�18:r=�a(q%,j%,f%,"off",-1):�:r=�a(q%,j%,14+Va%,"on",-1):�
�F��z:ș"OS_Module",6,,,16�,,ub%:�ub%<25165824��123,"No room in RMA"
�f�vb%=0�2�2:P%=ub%:[OPT vb%:.s:CMP1,#0:STREQ0,d:MOV PC,14:.d:EQUD0: ]:�:ș"OS_Claim",20,s,0:wb%=�:�
����j:ș"XOS_ReadModeVariable",�,4�,,lb%:ș"XOS_ReadModeVariable",�,5�,,nb%:ș"XOS_ReadModeVariable",�,11�,,xb%:ș"XOS_ReadModeVariable",�,12�,,yb%:kb%=xb%+1:mb%=yb%+1:ș"XOS_ReadModeVariable",�,3�,,zb%:�zb%=63:zb%=255
�l�a(q%,j%,21,�(kb%),-1):�a(q%,j%,22,�(mb%),-1):�a(q%,j%,19,�(�),-1):�a(q%,j%,23,�(zb%+1)+" colours",-1):�
iݤ1:�9:�:C=0:�f%=1�15:�f%,0,0,0:�:ȗu%,bb%,o%:�Y=0�1024:Y+=9+�(20):�X=0�1280�8+�(9):C+=1:�C:�C>14�C=0
,ȒX,Y:�,:�:ȗm%,fb%,o%:�m%<>u%�o%�!d�=m%
.�K=1�15:�19,K,7;0;:A$=�(1):Ȗ:�19,K,0;0;:�
"
�0:=m%
,-ݤ2:f%=0:ȗu%,bb%,o%:�:ȗm%,fb%,o%:�f%=0�
6��1,�(255),�(255),�(255):�:f%=0:w%=800:Ab%=4:Bb%=4:z%=200:C%=100:x%=�(400/Bb%)*Bb%:y%=�(400/Bb%)*Bb%:Cb%=�(Ab%)*Bb%:Db%=�(Ab%)*Bb%
@�
J�f%+=1:Ȗ:�x%+z%,y%+C%:�6,x%+z%,(w%-y%)+C%:�6,(w%-x%)+z%,(w%-y%)+C%:�6,(w%-x%)+z%,y%+C%:�6,x%+z%,y%+C%:�y%+z%,x%+C%:�6,y%+z%,(w%-x%)+C%:�6,(w%-y%)+z%,(w%-x%)+C%:�6,(w%-y%)+z%,x%+C%:�6,y%+z%,x%+C%:x%=x%+Cb%:�x%>w%�x%<0:Cb%=-Cb%
T"y%=y%+Db%:�y%>w%�y%<0:Db%=-Db%
^�f%>200:f%=0
h�u%<>m%�o%�!d:=f%
r3ݤ4:ȗu%,bb%,o%:�:ȗm%,fb%,o%:�u%<>m%�o%�!d:=m%
|$ݤ3:ȗu%,bb%,o%:�:ȗm%,fb%,o%:�5
�\�3,1:Eb%=�(1100):Fb%=�(1000):�Eb%,Fb%:q$=�$:�q$:�Eb%,Fb%:�=0:���>85:�q$:�u%<>m%�o%�!d:�4
�=m%
�!��Y:�"Key 12 BASIC|V|@|L|T|M"
�*FX138 0 204
�*FX138 0 204
��
�0��Z:db%=�db%:�db%�d%=�a(q%,U%,5,"unlock",-1)
�"�db%�d%=�a(q%,U%,5,"lock",-1)
��
����aa:a$(1)=�d(q%,k%,4):a$(2)=�d(q%,k%,7):a$(3)=�d(q%,k%,8):d%=�"<Utils$Dir>.Status":�f%=0�3:�#d%,�(a%(f%)):�:�#d%,�(Q%):�#d%,�(R%):�f%=1�8:�#d%,�(b%(f%)):�:�#d%,�(O%):�#d%,�(G%):�#d%,�(Va%):�#d%,�(r%):�f%=1�3:�#d%,a$(f%):�
��#d%,�(l%):�#d%:�
���y:d%=�"<Utils$Dir>.Status":�f%=0�3:a%(f%)=�(�#d%):�:Q%=�(�#d%):R%=�(�#d%):�f%=1�8:b%(f%)=�(�#d%):�:O%=�(�#d%):G%=�(�#d%):Va%=�(�#d%):r%=�(�#d%):�f%=1�3:a$(f%)=�#d%:�:l%=�(�#d%):�#d%
�Q�a(q%,k%,12,�(l%),0):ȗ�l%:�O%:d%=�a(q%,j%,0,"bon",0)�d%=�a(q%,j%,0,"boff",0)
�R%=�R%:�p:Q%=�Q%:�o:�a(q%,k%,4,a$(1),0):�a(q%,k%,7,a$(2),0):�a(q%,k%,8,a$(3),0):G%=�G%:�q:�s(Va%+10):�a(q%,j%,8,�(r%�100),-1):�
`��A:�f%=33�36:d%=�a(q%,p%,f%,"file_"+�~(a%(f%-33)),0):�a(q%,p%,f%-33+20,�~(a%(f%-33)),0):�:�
�
00000000  0d 00 0a 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 14 5e d8 3a de 61 61  25 20 34 3a 24 61 61 25  |..^.:.aa% 4:$aa%|
00000020  3d 22 54 41 53 4b 22 3a  62 61 25 3d b9 3a c8 99  |="TASK":ba%=.:..|
00000030  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000040  22 2c 32 30 30 2c 21 61  61 25 2c 22 54 65 63 68  |",200,!aa%,"Tech|
00000050  6e 69 71 75 65 22 b8 63  61 25 2c 64 61 25 3a 69  |nique".ca%,da%:i|
00000060  3d 30 3a 6a 3d 37 3a 6b  3d 37 3a f2 77 0d 00 1e  |=0:j=7:k=7:.w...|
00000070  d5 de 71 25 20 39 32 38  30 2c 65 61 25 20 35 30  |..q% 9280,ea% 50|
00000080  30 2c 66 61 25 20 35 30  30 2c 67 61 25 20 31 30  |0,fa% 500,ga% 10|
00000090  30 30 2c 68 61 25 20 35  30 30 2c 69 61 25 20 35  |00,ha% 500,ia% 5|
000000a0  30 30 2c 6a 61 25 20 37  35 30 2c 6b 61 25 20 31  |00,ja% 750,ka% 1|
000000b0  30 30 30 2c 6c 61 25 20  35 30 30 2c 6d 61 25 20  |000,la% 500,ma% |
000000c0  35 30 30 2c 6e 61 25 20  35 30 30 2c 6f 61 25 20  |500,na% 500,oa% |
000000d0  35 30 30 2c 70 61 25 20  35 30 30 2c 71 61 25 20  |500,pa% 500,qa% |
000000e0  31 30 30 30 3a de 48 25  20 37 36 38 2c 72 61 25  |1000:.H% 768,ra%|
000000f0  20 2d 31 3a 73 61 25 3d  48 25 3a 53 25 3d 8e 22  | -1:sa%=H%:S%=."|
00000100  3c 55 74 69 6c 73 24 44  69 72 3e 2e 53 70 72 69  |<Utils$Dir>.Spri|
00000110  74 65 73 22 3a 54 25 3d  a2 23 53 25 2b 31 36 3a  |tes":T%=.#S%+16:|
00000120  d9 23 53 25 3a de 6e 25  20 54 25 3a c8 99 22 4f  |.#S%:.n% T%:.."O|
00000130  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 36 35 2c  |S_SpriteOp",265,|
00000140  6e 25 0d 00 28 eb c8 99  22 4f 53 5f 53 70 72 69  |n%..(..."OS_Spri|
00000150  74 65 4f 70 22 2c 32 36  36 2c 6e 25 2c 22 3c 55  |teOp",266,n%,"<U|
00000160  74 69 6c 73 24 44 69 72  3e 2e 53 70 72 69 74 65  |tils$Dir>.Sprite|
00000170  73 22 3a c8 99 22 57 69  6d 70 5f 4f 70 65 6e 54  |s":.."Wimp_OpenT|
00000180  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 55 74 69 6c  |emplate",,"<Util|
00000190  73 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |s$Dir>.Templates|
000001a0  22 3a c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |":.."Wimp_LoadTe|
000001b0  6d 70 6c 61 74 65 22 2c  2c 71 25 2c 65 61 25 2c  |mplate",,q%,ea%,|
000001c0  65 61 25 2b 35 30 30 2c  2d 31 2c 22 55 74 69 6c  |ea%+500,-1,"Util|
000001d0  73 22 2c 30 3a 71 25 21  36 34 3d 6e 25 3a c8 99  |s",0:q%!64=n%:..|
000001e0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000001f0  6f 77 22 2c 2c 71 25 b8  74 61 25 3a c8 99 22 57  |ow",,q%.ta%:.."W|
00000200  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000210  22 2c 2c 71 25 2c 66 61  25 2c 66 61 25 2b 35 30  |",,q%,fa%,fa%+50|
00000220  30 2c 2d 31 2c 22 49 6e  66 6f 22 2c 30 0d 00 32  |0,-1,"Info",0..2|
00000230  de 71 25 21 36 34 3d 6e  25 3a c8 99 22 57 69 6d  |.q%!64=n%:.."Wim|
00000240  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000250  2c 71 25 b8 75 61 25 3a  c8 99 22 57 69 6d 70 5f  |,q%.ua%:.."Wimp_|
00000260  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
00000270  25 2c 67 61 25 2c 67 61  25 2b 31 30 30 30 2c 2d  |%,ga%,ga%+1000,-|
00000280  31 2c 22 46 69 6c 65 54  79 70 65 73 22 2c 30 3a  |1,"FileTypes",0:|
00000290  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
000002a0  6e 64 6f 77 22 2c 2c 71  25 b8 70 25 3a c8 99 22  |ndow",,q%.p%:.."|
000002b0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000002c0  65 22 2c 2c 71 25 2c 68  61 25 2c 68 61 25 2b 35  |e",,q%,ha%,ha%+5|
000002d0  30 30 2c 2d 31 2c 22 43  61 6c 63 75 6c 61 74 6f  |00,-1,"Calculato|
000002e0  72 22 2c 30 3a 71 25 21  36 34 3d 6e 25 3a c8 99  |r",0:q%!64=n%:..|
000002f0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000300  6f 77 22 2c 2c 71 25 b8  76 61 25 0d 00 3c ee c8  |ow",,q%.va%..<..|
00000310  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00000320  61 74 65 22 2c 2c 71 25  2c 69 61 25 2c 69 61 25  |ate",,q%,ia%,ia%|
00000330  2b 35 30 30 2c 2d 31 2c  22 66 69 6c 65 73 22 2c  |+500,-1,"files",|
00000340  30 3a 71 25 21 36 34 3d  6e 25 3a c8 99 22 57 69  |0:q%!64=n%:.."Wi|
00000350  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000360  2c 2c 71 25 b8 55 25 3a  c8 99 22 57 69 6d 70 5f  |,,q%.U%:.."Wimp_|
00000370  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 71  |LoadTemplate",,q|
00000380  25 2c 6a 61 25 2c 6a 61  25 2b 35 30 30 2c 2d 31  |%,ja%,ja%+500,-1|
00000390  2c 22 53 6f 75 6e 64 22  2c 30 3a 71 25 21 36 34  |,"Sound",0:q%!64|
000003a0  3d 6e 25 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |=n%:.."Wimp_Crea|
000003b0  74 65 57 69 6e 64 6f 77  22 2c 2c 71 25 b8 74 25  |teWindow",,q%.t%|
000003c0  3a c8 99 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |:.."Wimp_LoadTem|
000003d0  70 6c 61 74 65 22 2c 2c  71 25 2c 6b 61 25 2c 6b  |plate",,q%,ka%,k|
000003e0  61 25 2b 31 30 30 30 2c  2d 31 2c 22 43 68 61 72  |a%+1000,-1,"Char|
000003f0  61 63 74 65 72 73 22 2c  30 0d 00 46 df 71 25 21  |acters",0..F.q%!|
00000400  36 34 3d 6e 25 3a c8 99  22 57 69 6d 70 5f 43 72  |64=n%:.."Wimp_Cr|
00000410  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 b8  |eateWindow",,q%.|
00000420  77 61 25 3a c8 99 22 57  69 6d 70 5f 4c 6f 61 64  |wa%:.."Wimp_Load|
00000430  54 65 6d 70 6c 61 74 65  22 2c 2c 71 25 2c 6c 61  |Template",,q%,la|
00000440  25 2c 6c 61 25 2b 35 30  30 2c 2d 31 2c 22 64 65  |%,la%+500,-1,"de|
00000450  73 6b 74 6f 70 22 2c 30  3a 71 25 21 36 34 3d 6e  |sktop",0:q%!64=n|
00000460  25 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |%:.."Wimp_Create|
00000470  57 69 6e 64 6f 77 22 2c  2c 71 25 b8 6a 25 3a c8  |Window",,q%.j%:.|
00000480  99 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  |."Wimp_LoadTempl|
00000490  61 74 65 22 2c 2c 71 25  2c 6d 61 25 2c 6d 61 25  |ate",,q%,ma%,ma%|
000004a0  2b 35 30 30 2c 2d 31 2c  22 63 6c 6f 63 6b 22 2c  |+500,-1,"clock",|
000004b0  30 3a 71 25 21 36 34 3d  6e 25 3a c8 99 22 57 69  |0:q%!64=n%:.."Wi|
000004c0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000004d0  2c 2c 71 25 b8 78 61 25  0d 00 50 e0 c8 99 22 57  |,,q%.xa%..P..."W|
000004e0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000004f0  22 2c 2c 71 25 2c 6e 61  25 2c 6e 61 25 2b 35 30  |",,q%,na%,na%+50|
00000500  30 2c 2d 31 2c 22 66 6b  65 79 73 22 2c 30 3a 71  |0,-1,"fkeys",0:q|
00000510  25 21 36 34 3d 6e 25 3a  c8 99 22 57 69 6d 70 5f  |%!64=n%:.."Wimp_|
00000520  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
00000530  25 b8 79 61 25 3a c8 99  22 57 69 6d 70 5f 4c 6f  |%.ya%:.."Wimp_Lo|
00000540  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 71 25 2c  |adTemplate",,q%,|
00000550  6f 61 25 2c 6f 61 25 2b  35 30 30 2c 2d 31 2c 22  |oa%,oa%+500,-1,"|
00000560  72 65 6e 61 6d 65 22 2c  30 3a c8 99 22 57 69 6d  |rename",0:.."Wim|
00000570  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000580  2c 71 25 b8 45 25 3a c8  99 22 57 69 6d 70 5f 4c  |,q%.E%:.."Wimp_L|
00000590  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 71 25  |oadTemplate",,q%|
000005a0  2c 70 61 25 2c 70 61 25  2b 35 30 30 2c 2d 31 2c  |,pa%,pa%+500,-1,|
000005b0  22 73 61 76 65 22 2c 30  0d 00 5a d3 c8 99 22 57  |"save",0..Z..."W|
000005c0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
000005d0  22 2c 2c 71 25 b8 56 25  3a c8 99 22 57 69 6d 70  |",,q%.V%:.."Wimp|
000005e0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000005f0  71 25 2c 71 61 25 2c 71  61 25 2b 31 30 30 30 2c  |q%,qa%,qa%+1000,|
00000600  2d 31 2c 22 6d 69 73 63  22 2c 30 3a 71 25 21 36  |-1,"misc",0:q%!6|
00000610  34 3d 6e 25 3a c8 99 22  57 69 6d 70 5f 43 72 65  |4=n%:.."Wimp_Cre|
00000620  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 b8 6b  |ateWindow",,q%.k|
00000630  25 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |%:.."Wimp_CloseT|
00000640  65 6d 70 6c 61 74 65 22  3a 64 25 3d a4 65 3a 72  |emplate":d%=.e:r|
00000650  24 3d 22 56 65 72 73 69  6f 6e 20 35 2e 31 34 20  |$="Version 5.14 |
00000660  32 36 2d 31 32 2d 39 32  22 3a f2 61 28 71 25 2c  |26-12-92":.a(q%,|
00000670  75 61 25 2c 34 2c 72 24  2c 30 29 3a f2 63 28 22  |ua%,4,r$,0):.c("|
00000680  30 22 29 3a f2 78 3a ee  85 f2 69 0d 00 64 17 f2  |0"):.x:...i..d..|
00000690  79 3a f2 7a 3a f2 41 3a  f2 68 3a f2 6a 3a ee 85  |y:.z:.A:.h:.j:..|
000006a0  f2 69 0d 00 6e 37 c8 99  68 2c 2c 2d 31 3a f2 6b  |.i..n7..h,,-1:.k|
000006b0  3a 57 25 3d 7a 61 25 3a  5a 25 3d 5f 25 3a 41 61  |:W%=za%:Z%=_%:Aa|
000006c0  25 3d a3 3a f5 3a c8 99  42 61 25 2c 30 2c 71 25  |%=.:.:..Ba%,0,q%|
000006d0  b8 41 25 3a c8 8e 41 25  ca 0d 00 78 09 c9 30 3a  |.A%:..A%...x..0:|
000006e0  f2 42 0d 00 82 36 c9 32  3a f2 65 28 21 71 25 2c  |.B...6.2:.e(!q%,|
000006f0  71 25 21 34 2c 71 25 21  38 2c 71 25 21 31 32 2c  |q%!4,q%!8,q%!12,|
00000700  71 25 21 31 36 2c 71 25  21 32 30 2c 71 25 21 32  |q%!16,q%!20,q%!2|
00000710  34 2c 71 25 21 32 38 29  0d 00 8c 0e c9 33 3a f2  |4,q%!28).....3:.|
00000720  67 28 21 71 25 29 0d 00  96 2d c9 36 3a f2 43 28  |g(!q%)...-.6:.C(|
00000730  21 71 25 2c 71 25 21 34  2c 71 25 21 38 2c 71 25  |!q%,q%!4,q%!8,q%|
00000740  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 2c  |!12,q%!16,q%!20,|
00000750  71 25 29 0d 00 a0 09 c9  37 3a f2 44 0d 00 aa 09  |q%).....7:.D....|
00000760  c9 38 3a f2 45 0d 00 b4  0d c9 39 3a f2 46 28 71  |.8:.E.....9:.F(q|
00000770  25 29 0d 00 be 11 c9 31  37 2c 31 38 3a f2 47 28  |%).....17,18:.G(|
00000780  71 25 29 0d 00 c8 05 cb  0d 00 d2 06 fd a3 0d 00  |q%).............|
00000790  dc 1a dd f2 47 28 62 29  3a 43 61 25 3d 62 21 38  |....G(b):Ca%=b!8|
000007a0  3a c8 8e 62 21 31 36 ca  0d 00 e6 0b c9 30 3a f2  |:..b!16......0:.|
000007b0  6c 3a e0 0d 00 f0 0f c9  31 32 38 32 3a f2 48 28  |l:......1282:.H(|
000007c0  62 29 0d 00 fa 15 c9 33  3a e7 62 21 34 3c 3e 64  |b).....3:.b!4<>d|
000007d0  61 25 f2 49 28 62 29 0d  01 04 0c c9 32 3a e7 44  |a%.I(b).....2:.D|
000007e0  61 25 8c 0d 01 0e 9c f2  4a 28 a4 62 28 71 25 2b  |a%......J(.b(q%+|
000007f0  34 34 29 29 3a 44 61 25  3d a3 3a c8 99 22 57 69  |44)):Da%=.:.."Wi|
00000800  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000810  6f 22 2c 2c 71 25 3a 71  25 21 32 30 3d 71 25 21  |o",,q%:q%!20=q%!|
00000820  31 32 3a 71 25 21 32 34  3d 71 25 21 31 36 3a 71  |12:q%!24=q%!16:q|
00000830  25 21 32 38 3d 21 71 25  3a 71 25 21 33 32 3d 71  |%!28=!q%:q%!32=q|
00000840  25 21 34 3a 21 71 25 3d  34 34 3a 71 25 21 31 32  |%!4:!q%=44:q%!12|
00000850  3d 43 61 25 3a 71 25 21  31 36 3d 33 3a 71 25 21  |=Ca%:q%!16=3:q%!|
00000860  34 30 3d 30 3a c8 99 22  57 69 6d 70 5f 53 65 6e  |40=0:.."Wimp_Sen|
00000870  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 0d  |dMessage",17,q%.|
00000880  01 18 71 c9 20 38 3a e7  ac a4 68 28 22 41 72 65  |..q. 8:...h("Are|
00000890  20 79 6f 75 20 53 55 52  45 20 79 6f 75 20 77 61  | you SURE you wa|
000008a0  6e 74 20 74 6f 20 6c 65  61 76 65 20 74 6f 20 64  |nt to leave to d|
000008b0  65 73 6b 74 6f 70 3f 3f  3f 22 29 20 8c 20 71 25  |esktop???") . q%|
000008c0  21 31 32 3d 71 25 21 38  3a 71 25 21 31 36 3d 38  |!12=q%!8:q%!16=8|
000008d0  3a c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |:.."Wimp_SendMes|
000008e0  73 61 67 65 22 2c 31 37  2c 71 25 2c 71 25 21 34  |sage",17,q%,q%!4|
000008f0  0d 01 22 0e c9 32 36 32  33 33 37 3a f2 6a 0d 01  |.."..262337:.j..|
00000900  2c 05 cb 0d 01 36 05 e1  0d 01 40 30 dd f2 43 28  |,....6....@0..C(|
00000910  7a 61 25 2c 5f 25 2c 62  25 2c 65 25 2c 61 25 2c  |za%,_%,b%,e%,a%,|
00000920  45 61 25 2c 4d 25 29 3a  e7 28 62 25 80 32 29 80  |Ea%,M%):.(b%.2).|
00000930  65 25 3c 3e 79 61 25 8c  0d 01 4a 3d f2 4b 28 31  |e%<>ya%...J=.K(1|
00000940  30 31 2c 22 3e 49 6e 66  6f 2c 53 61 76 65 20 53  |01,">Info,Save S|
00000950  74 61 74 75 73 2c 3e 53  61 76 65 20 43 6f 6e 66  |tatus,>Save Conf|
00000960  69 67 2c 51 75 69 74 22  2c 22 54 65 63 68 6e 69  |ig,Quit","Techni|
00000970  71 75 65 22 29 0d 01 54  05 cd 0d 01 5e 0c e7 28  |que")..T....^..(|
00000980  62 25 80 35 29 8c 0d 01  68 11 e7 65 25 3e 2d 31  |b%.5)...h..e%>-1|
00000990  8c f2 64 28 65 25 29 0d  01 72 09 c8 8e 65 25 ca  |..d(e%)..r...e%.|
000009a0  0d 01 7c 0e c9 74 61 25  3a c8 8e 61 25 ca 0d 01  |..|..ta%:..a%...|
000009b0  86 0d c9 30 3a f2 62 28  70 25 29 0d 01 90 0e c9  |...0:.b(p%).....|
000009c0  31 3a f2 62 28 78 61 25  29 0d 01 9a 0d c9 32 3a  |1:.b(xa%).....2:|
000009d0  f2 62 28 55 25 29 0d 01  a4 0d c9 33 3a f2 62 28  |.b(U%).....3:.b(|
000009e0  74 25 29 0d 01 ae 0e c9  34 3a f2 62 28 77 61 25  |t%).....4:.b(wa%|
000009f0  29 0d 01 b8 24 c9 35 3a  46 61 25 3d ac 46 61 25  |)...$.5:Fa%=.Fa%|
00000a00  3a e7 46 61 25 3a f2 4c  28 79 61 25 29 8b f2 67  |:.Fa%:.L(ya%)..g|
00000a10  28 79 61 25 29 0d 01 c2  0e c9 36 3a f2 62 28 76  |(ya%).....6:.b(v|
00000a20  61 25 29 0d 01 cc 0d c9  37 3a f2 62 28 6a 25 29  |a%).....7:.b(j%)|
00000a30  0d 01 d6 0d c9 39 3a f2  62 28 6b 25 29 0d 01 e0  |.....9:.b(k%)...|
00000a40  05 cb 0d 01 ea 0f c9 2d  32 3a f2 62 28 74 61 25  |.......-2:.b(ta%|
00000a50  29 0d 01 f4 11 c9 76 61  25 3a ea 85 3a ee 85 ea  |).....va%:..:...|
00000a60  f2 6d 0d 01 fe 09 e7 47  61 25 8c 0d 02 08 0d e7  |.m.....Ga%......|
00000a70  61 25 3d 33 33 3a f2 6e  0d 02 12 0b cc 3a c8 8e  |a%=33:.n.....:..|
00000a80  61 25 ca 0d 02 1c 34 c9  31 37 2c 31 38 2c 31 39  |a%....4.17,18,19|
00000a90  2c 32 30 2c 32 31 2c 32  32 2c 32 33 2c 32 34 2c  |,20,21,22,23,24,|
00000aa0  32 35 2c 32 36 3a f2 4d  28 bd 28 61 25 2d 31 37  |25,26:.M(.(a%-17|
00000ab0  2b 97 22 30 22 29 29 0d  02 26 0a c9 32 37 3a f2  |+."0"))..&..27:.|
00000ac0  4e 0d 02 30 0f c9 32 38  3a f2 66 28 22 3d 22 29  |N..0..28:.f("=")|
00000ad0  0d 02 3a 0f c9 32 39 3a  f2 66 28 22 2b 22 29 0d  |..:..29:.f("+").|
00000ae0  02 44 0f c9 33 30 3a f2  66 28 22 2d 22 29 0d 02  |.D..30:.f("-")..|
00000af0  4e 0f c9 33 31 3a f2 66  28 22 2a 22 29 0d 02 58  |N..31:.f("*")..X|
00000b00  0f c9 33 32 3a f2 66 28  22 2f 22 29 0d 02 62 0a  |..32:.f("/")..b.|
00000b10  c9 33 33 3a f2 6e 0d 02  6c 0a c9 33 34 2c 2d 31  |.33:.n..l..34,-1|
00000b20  0d 02 76 05 cb 0d 02 80  05 cd 0d 02 8a 06 f7 85  |..v.............|
00000b30  0d 02 94 0d c9 70 25 3a  c8 8e 61 25 ca 0d 02 9e  |.....p%:..a%....|
00000b40  13 c9 32 34 2c 32 35 2c  32 36 2c 32 37 3a f2 4f  |..24,25,26,27:.O|
00000b50  0d 02 a8 05 cb 0d 02 b2  0d c9 74 25 3a c8 8e 61  |..........t%:..a|
00000b60  25 ca 0d 02 bc 0b c9 30  2c 31 3a f2 6f 0d 02 c6  |%......0,1:.o...|
00000b70  0b c9 32 2c 33 3a f2 70  0d 02 d0 1c c9 36 2c 37  |..2,3:.p.....6,7|
00000b80  2c 38 2c 39 2c 31 30 2c  31 31 2c 31 32 3a f2 50  |,8,9,10,11,12:.P|
00000b90  28 61 25 29 0d 02 da 10  c9 34 2c 31 34 3a f2 51  |(a%).....4,14:.Q|
00000ba0  28 61 25 29 0d 02 e4 05  cb 0d 02 ee 22 c9 77 61  |(a%)........".wa|
00000bb0  25 3a c8 99 22 57 69 6d  70 5f 50 72 6f 63 65 73  |%:.."Wimp_Proces|
00000bc0  73 4b 65 79 22 2c 61 25  2b 33 32 0d 02 f8 11 c9  |sKey",a%+32.....|
00000bd0  79 61 25 3a f2 52 28 61  25 2b 31 29 0d 03 02 0d  |ya%:.R(a%+1)....|
00000be0  c9 6a 25 3a c8 8e 61 25  ca 0d 03 0c 0b c9 30 2c  |.j%:..a%......0,|
00000bf0  32 3a f2 53 0d 03 16 0b  c9 31 2c 33 3a f2 71 0d  |2:.S.....1,3:.q.|
00000c00  03 20 0a c9 31 30 3a f2  54 0d 03 2a 0f c9 34 2c  |. ..10:.T..*..4,|
00000c10  37 3a f2 72 28 61 25 29  0d 03 34 23 c9 31 31 2c  |7:.r(a%)..4#.11,|
00000c20  31 32 2c 31 33 2c 31 34  2c 31 35 2c 31 36 2c 31  |12,13,14,15,16,1|
00000c30  37 2c 31 38 3a f2 73 28  61 25 29 0d 03 3e 05 cb  |7,18:.s(a%)..>..|
00000c40  0d 03 48 1b c9 45 25 3a  e7 61 25 3d 33 3a f2 74  |..H..E%:.a%=3:.t|
00000c50  28 45 25 29 3a 48 61 25  3d 45 25 0d 03 52 1b c9  |(E%):Ha%=E%..R..|
00000c60  56 25 3a e7 61 25 3d 33  3a f2 74 28 56 25 29 3a  |V%:.a%=3:.t(V%):|
00000c70  48 61 25 3d 56 25 0d 03  5c 0d c9 6b 25 3a c8 8e  |Ha%=V%..\..k%:..|
00000c80  61 25 ca 0d 03 66 22 c9  30 2c 31 33 3a ff 22 46  |a%...f".0,13:."F|
00000c90  69 6c 65 72 5f 4f 70 65  6e 64 69 72 20 73 65 72  |iler_Opendir ser|
00000ca0  69 61 6c 3a 22 0d 03 70  23 c9 31 2c 31 34 3a ff  |ial:"..p#.1,14:.|
00000cb0  22 46 69 6c 65 72 5f 4f  70 65 6e 64 69 72 20 70  |"Filer_Opendir p|
00000cc0  72 69 6e 74 65 72 3a 22  0d 03 7a 20 c9 32 2c 31  |rinter:"..z .2,1|
00000cd0  35 3a ff 22 46 69 6c 65  72 5f 4f 70 65 6e 64 69  |5:."Filer_Opendi|
00000ce0  72 20 6e 75 6c 6c 3a 22  0d 03 84 7a c9 31 39 3a  |r null:"...z.19:|
00000cf0  ff 22 52 4d 4b 69 6c 6c  20 46 69 6c 65 43 6f 72  |."RMKill FileCor|
00000d00  65 25 41 44 46 53 22 3a  ff 22 52 4d 52 65 69 6e  |e%ADFS":."RMRein|
00000d10  69 74 20 41 44 46 53 22  3a 85 20 31 32 33 2c 22  |it ADFS":. 123,"|
00000d20  59 6f 75 20 73 68 6f 75  6c 64 20 6e 6f 77 20 62  |You should now b|
00000d30  65 20 61 62 6c 65 20 74  6f 20 73 61 76 65 20 79  |e able to save y|
00000d40  6f 75 72 20 77 6f 72 6b  2e 20 52 65 73 74 61 72  |our work. Restar|
00000d50  74 20 74 68 65 20 73 79  73 74 65 6d 20 41 53 41  |t the system ASA|
00000d60  50 22 0d 03 8e 0d c9 31  36 2c 31 37 3a f2 55 0d  |P".....16,17:.U.|
00000d70  03 98 1a c9 33 2c 35 2c  36 2c 32 30 2c 32 31 2c  |....3,5,6,20,21,|
00000d80  32 32 3a f2 56 28 61 25  29 0d 03 a2 0a c9 31 38  |22:.V(a%).....18|
00000d90  3a f2 57 0d 03 ac 10 c9  39 2c 31 31 3a f2 58 28  |:.W.....9,11:.X(|
00000da0  61 25 29 0d 03 b6 05 cb  0d 03 c0 0d c9 55 25 3a  |a%)..........U%:|
00000db0  c8 8e 61 25 ca 0d 03 ca  09 c9 32 3a f2 59 0d 03  |..a%......2:.Y..|
00000dc0  d4 09 c9 35 3a f2 5a 0d  03 de 05 cb 0d 03 e8 05  |...5:.Z.........|
00000dd0  cb 0d 03 f2 05 cd 0d 03  fc 05 e1 0d 04 06 23 dd  |..............#.|
00000de0  f2 67 28 65 25 29 3a c8  99 66 2c 2c 71 25 3a e7  |.g(e%):..f,,q%:.|
00000df0  71 25 21 38 80 31 8c f2  62 28 74 61 25 29 0d 04  |q%!8.1..b(ta%)..|
00000e00  10 25 f2 64 28 65 25 29  3a 57 25 3d 44 25 3a 5a  |.%.d(e%):W%=D%:Z|
00000e10  25 3d 49 25 3a 41 61 25  3d a3 3a f2 5f 28 65 25  |%=I%:Aa%=.:._(e%|
00000e20  29 3a e1 0d 04 1a 1c dd  f2 6c 3a c8 99 22 57 69  |):.......l:.."Wi|
00000e30  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a e1 0d  |mp_CloseDown":..|
00000e40  04 24 a8 dd f2 4b 28 65  25 2c 6b 24 2c 74 24 29  |.$...K(e%,k$,t$)|
00000e50  3a 49 61 25 3d 65 25 3a  68 25 3d 48 25 3a 69 25  |:Ia%=e%:h%=H%:i%|
00000e60  3d 30 3a 68 25 21 32 30  3d 34 30 3a 24 68 25 3d  |=0:h%!20=40:$h%=|
00000e70  74 24 3a 68 25 3f 31 32  3d 6b 3a 68 25 3f 31 33  |t$:h%?12=k:h%?13|
00000e80  3d 32 3a 68 25 3f 31 34  3d 6a 3a 68 25 3f 31 35  |=2:h%?14=j:h%?15|
00000e90  3d 69 3a 68 25 21 31 36  3d 31 39 30 3a 68 25 21  |=i:h%!16=190:h%!|
00000ea0  32 34 3d 30 3a 68 25 2b  3d 32 38 3a f5 6c 24 3d  |24=0:h%+=28:.l$=|
00000eb0  a4 66 28 22 2c 22 29 3a  f2 60 28 6c 24 29 3a fd  |.f(","):.`(l$):.|
00000ec0  6c 24 3d 22 22 3a 68 25  21 2d 32 34 3d 28 68 25  |l$="":h%!-24=(h%|
00000ed0  21 2d 32 34 29 84 31 32  38 3a e7 5f 25 3c 32 35  |!-24).128:._%<25|
00000ee0  36 5f 25 3d 32 35 36 0d  04 2e 18 c8 99 6c 2c 2c  |6_%=256......l,,|
00000ef0  48 25 2c 7a 61 25 2d 31  32 38 2c 5f 25 3a e1 0d  |H%,za%-128,_%:..|
00000f00  04 38 14 dd f2 60 28 65  24 29 3a e7 65 24 3d 22  |.8...`(e$):.e$="|
00000f10  22 3a e1 0d 04 42 0f 21  68 25 3d 30 3a c8 8e 65  |":...B.!h%=0:..e|
00000f20  24 ca 0d 04 4c 15 c9 22  3e 49 6e 66 6f 22 3a 68  |$...L..">Info":h|
00000f30  25 21 34 3d 75 61 25 0d  04 56 1b c9 22 3e 53 61  |%!4=ua%..V..">Sa|
00000f40  76 65 20 43 6f 6e 66 69  67 22 3a 68 25 21 34 3d  |ve Config":h%!4=|
00000f50  56 25 0d 04 60 0d 7f 3a  68 25 21 34 3d 2d 31 0d  |V%..`..:h%!4=-1.|
00000f60  04 6a 05 cb 0d 04 74 39  68 25 21 38 3d 26 37 30  |.j....t9h%!8=&70|
00000f70  30 30 30 32 31 3a e7 c0  65 24 2c 31 29 3d 22 3e  |00021:..e$,1)=">|
00000f80  22 3a 24 28 68 25 2b 31  32 29 3d c1 65 24 2c 32  |":$(h%+12)=.e$,2|
00000f90  29 8b 24 28 68 25 2b 31  32 29 3d 65 24 0d 04 7e  |).$(h%+12)=e$..~|
00000fa0  0c 68 25 2b 3d 32 34 3a  e1 0d 04 88 37 dd a4 66  |.h%+=24:....7..f|
00000fb0  28 6d 24 29 3a 4a 61 25  3d 69 25 2b 31 3a 69 25  |(m$):Ja%=i%+1:i%|
00000fc0  3d a7 6b 24 2b 6d 24 2c  6d 24 2c 4a 61 25 29 3a  |=.k$+m$,m$,Ja%):|
00000fd0  3d c1 6b 24 2c 4a 61 25  2c 69 25 2d 4a 61 25 29  |=.k$,Ja%,i%-Ja%)|
00000fe0  0d 04 92 31 dd f2 46 28  4b 61 25 29 3a c8 99 6d  |...1..F(Ka%):..m|
00000ff0  2c 2c 48 25 2c 4b 61 25  2c c4 32 30 30 2c 22 20  |,,H%,Ka%,.200," |
00001000  22 29 b8 2c 2c 2c 61 24  3a e7 61 24 3d 22 22 8c  |").,,,a$:.a$="".|
00001010  e1 0d 04 9c 0a c8 8e 49  61 25 ca 0d 04 a6 0e c9  |.......Ia%......|
00001020  31 30 31 3a c8 8e 61 24  ca 0d 04 b0 10 c9 22 51  |101:..a$......"Q|
00001030  75 69 74 22 3a f2 6c 3a  e0 0d 04 ba 16 c9 22 53  |uit":.l:......"S|
00001040  61 76 65 20 53 74 61 74  75 73 22 3a f2 61 61 0d  |ave Status":.aa.|
00001050  04 c4 05 cb 0d 04 ce 05  cb 0d 04 d8 05 e1 0d 04  |................|
00001060  e2 14 dd f2 62 28 65 25  29 3a e7 65 25 3d 2d 31  |....b(e%):.e%=-1|
00001070  8c e1 0d 04 ec 28 f2 64  28 65 25 29 3a f2 65 28  |.....(.d(e%):.e(|
00001080  65 25 2c 44 25 2c 49 25  2c 4a 25 2c 46 25 2c 4b  |e%,D%,I%,J%,F%,K|
00001090  25 2c 4c 25 2c 2d 31 29  3a e1 0d 04 f6 2f dd f2  |%,L%,-1):..../..|
000010a0  4c 28 65 25 29 3a f2 64  28 65 25 29 3a f2 65 28  |L(e%):.d(e%):.e(|
000010b0  65 25 2c 44 25 2c 49 25  2c 4a 25 2c 46 25 2c 4b  |e%,D%,I%,J%,F%,K|
000010c0  25 2c 4c 25 2c 30 29 3a  e1 0d 05 0a 2a dd f2 65  |%,L%,0):....*..e|
000010d0  28 65 25 2c 44 25 2c 49  25 2c 4a 25 2c 46 25 2c  |(e%,D%,I%,J%,F%,|
000010e0  4b 25 2c 4c 25 2c 4c 61  25 29 3a e7 65 25 3d 2d  |K%,L%,La%):.e%=-|
000010f0  31 8c e1 0d 05 14 53 71  25 21 30 3d 65 25 3a 71  |1.....Sq%!0=e%:q|
00001100  25 21 32 38 3d 4c 61 25  3a 71 25 21 34 3d 44 25  |%!28=La%:q%!4=D%|
00001110  3a 71 25 21 38 3d 49 25  3a 71 25 21 31 32 3d 4a  |:q%!8=I%:q%!12=J|
00001120  25 3a 71 25 21 31 36 3d  46 25 3a 71 25 21 32 30  |%:q%!16=F%:q%!20|
00001130  3d 4b 25 3a 71 25 21 32  34 3d 4c 25 3a c8 99 6e  |=K%:q%!24=L%:..n|
00001140  2c 2c 71 25 3a e1 0d 05  1e 3a dd f2 64 28 65 25  |,,q%:....:..d(e%|
00001150  29 3a 21 71 25 3d 65 25  3a c8 99 63 2c 2c 71 25  |):!q%=e%:..c,,q%|
00001160  3a f2 63 61 28 71 25 2b  34 29 3a 4c 61 25 3d 71  |:.ca(q%+4):La%=q|
00001170  25 21 32 38 3a 4d 61 25  3d 71 25 21 33 32 3a e1  |%!28:Ma%=q%!32:.|
00001180  0d 05 28 54 dd f2 63 61  28 71 25 29 3a 44 25 3d  |..(T..ca(q%):D%=|
00001190  21 71 25 3a 49 25 3d 71  25 21 34 3a 4a 25 3d 71  |!q%:I%=q%!4:J%=q|
000011a0  25 21 38 3a 46 25 3d 71  25 21 31 32 3a 4b 25 3d  |%!8:F%=q%!12:K%=|
000011b0  71 25 21 31 36 3a 4c 25  3d 71 25 21 32 30 3a 4e  |q%!16:L%=q%!20:N|
000011c0  61 25 3d 44 25 2d 4b 25  3a 4f 61 25 3d 46 25 2d  |a%=D%-K%:Oa%=F%-|
000011d0  4c 25 3a e1 0d 05 32 1c  dd f2 5f 28 65 25 29 3a  |L%:...2..._(e%):|
000011e0  21 71 25 3d 65 25 3a c8  99 6f 2c 2c 71 25 3a e1  |!q%=e%:..o,,q%:.|
000011f0  0d 05 3c 9d dd f2 77 3a  61 3d 28 31 3c 3c 31 38  |..<...w:a=(1<<18|
00001200  29 2b 28 33 3c 3c 36 29  3a 79 3d 61 2b 31 3a 6e  |)+(3<<6):y=a+1:n|
00001210  3d 61 2b 35 3a 6f 3d 61  2b 36 3a 42 61 25 3d 61  |=a+5:o=a+6:Ba%=a|
00001220  2b 37 3a 7a 3d 61 2b 38  3a 41 3d 61 2b 39 3a 50  |+7:z=a+8:A=a+9:P|
00001230  61 25 3d 61 2b 31 30 3a  63 3d 61 2b 31 31 3a 66  |a%=a+10:c=a+11:f|
00001240  3d 61 2b 31 35 3a 68 3d  61 2b 31 36 3a 6c 3d 61  |=a+15:h=a+16:l=a|
00001250  2b 32 30 3a 6d 3d 61 2b  32 31 3a c8 99 22 4f 53  |+20:m=a+21:.."OS|
00001260  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
00001270  72 69 6e 67 22 2c 2c 22  57 69 6d 70 5f 53 65 74  |ring",,"Wimp_Set|
00001280  43 6f 6c 6f 75 72 22 b8  51 61 25 3a e1 0d 05 46  |Colour".Qa%:...F|
00001290  45 dd f2 6b 3a c8 99 66  2c 2c 71 25 3a 7a 61 25  |E..k:..f,,q%:za%|
000012a0  3d 21 71 25 3a 5f 25 3d  71 25 21 34 3a 62 25 3d  |=!q%:_%=q%!4:b%=|
000012b0  71 25 21 38 3a 65 25 3d  71 25 21 31 32 3a 61 25  |q%!8:e%=q%!12:a%|
000012c0  3d 71 25 21 31 36 3a 45  61 25 3d 71 25 21 32 30  |=q%!16:Ea%=q%!20|
000012d0  3a e1 0d 05 50 52 dd f2  69 3a f2 67 28 45 25 29  |:...PR..i:.g(E%)|
000012e0  3a c8 99 68 2c 2c 2d 31  3a 21 48 25 3d 9f 3a 24  |:..h,,-1:!H%=.:$|
000012f0  28 48 25 2b 34 29 3d f6  24 2b bd 30 3a c8 99 22  |(H%+4)=.$+.0:.."|
00001300  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00001310  22 2c 48 25 2c 31 2c 22  54 65 63 68 6e 69 71 75  |",H%,1,"Techniqu|
00001320  65 22 3a e1 0d 05 64 9a  dd a4 65 3a 21 71 25 3d  |e":...d...e:!q%=|
00001330  2d 31 3a 71 25 21 34 3d  30 3a 71 25 21 38 3d 30  |-1:q%!4=0:q%!8=0|
00001340  3a 71 25 21 31 32 3d 36  33 3a 71 25 21 31 36 3d  |:q%!12=63:q%!16=|
00001350  36 38 3a 71 25 21 32 30  3d 38 34 35 30 3a 6a 24  |68:q%!20=8450:j$|
00001360  3d 22 21 54 65 63 68 6e  69 71 75 65 22 3a de 71  |="!Technique":.q|
00001370  25 21 32 34 20 28 a9 6a  24 2b 31 29 3a 24 28 71  |%!24 (.j$+1):$(q|
00001380  25 21 32 34 29 3d 6a 24  3a 71 25 21 32 38 3d 6e  |%!24)=j$:q%!28=n|
00001390  25 3a 71 25 21 33 32 3d  a9 6a 24 2b 31 3a c8 99  |%:q%!32=.j$+1:..|
000013a0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000013b0  22 2c 2c 71 25 b8 52 61  25 3a 3d 52 61 25 0d 05  |",,q%.Ra%:=Ra%..|
000013c0  6e d5 dd a4 61 28 62 2c  60 25 2c 4e 25 2c 75 24  |n...a(b,`%,N%,u$|
000013d0  2c 67 29 3a 62 21 30 3d  60 25 3a 62 21 34 3d 4e  |,g):b!0=`%:b!4=N|
000013e0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.."Wimp_GetIco|
000013f0  6e 53 74 61 74 65 22 2c  2c 62 3a c8 99 22 57 69  |nState",,b:.."Wi|
00001400  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
00001410  62 3a 62 21 34 3d 62 21  38 3a 62 21 38 3d 62 21  |b:b!4=b!8:b!8=b!|
00001420  31 32 3a 62 21 31 32 3d  62 21 31 36 3a 62 21 31  |12:b!12=b!16:b!1|
00001430  36 3d 62 21 32 30 3a 62  21 32 30 3d 62 21 32 34  |6=b!20:b!20=b!24|
00001440  3a 24 28 62 2b 32 34 29  3d 75 24 3a c8 99 22 57  |:$(b+24)=u$:.."W|
00001450  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00001460  2c 62 b8 4e 25 3a e7 67  8c c8 99 22 57 69 6d 70  |,b.N%:.g..."Wimp|
00001470  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 62 21  |_ForceRedraw",b!|
00001480  30 2c 62 21 34 2c 62 21  38 2c 62 21 31 32 2c 62  |0,b!4,b!8,b!12,b|
00001490  21 31 36 0d 05 78 07 3d  4e 25 0d 05 82 50 dd f2  |!16..x.=N%...P..|
000014a0  61 28 71 25 2c 60 25 2c  4e 25 2c 76 24 2c 67 29  |a(q%,`%,N%,v$,g)|
000014b0  3a 71 25 21 30 3d 60 25  3a 71 25 21 34 3d 4e 25  |:q%!0=`%:q%!4=N%|
000014c0  3a c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |:.."Wimp_GetIcon|
000014d0  53 74 61 74 65 22 2c 2c  71 25 3a 24 28 71 25 21  |State",,q%:$(q%!|
000014e0  32 38 29 3d 76 24 3a e7  67 8c 0d 05 8c 32 c8 99  |28)=v$:.g....2..|
000014f0  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00001500  77 22 2c 60 25 2c 71 25  21 38 2c 71 25 21 31 32  |w",`%,q%!8,q%!12|
00001510  2c 71 25 21 31 36 2c 71  25 21 32 30 0d 05 96 05  |,q%!16,q%!20....|
00001520  cd 0d 05 a0 05 e1 0d 05  aa 45 dd a4 64 28 71 25  |.........E..d(q%|
00001530  2c 60 25 2c 4e 25 29 3a  71 25 21 30 3d 60 25 3a  |,`%,N%):q%!0=`%:|
00001540  71 25 21 34 3d 4e 25 3a  c8 99 22 57 69 6d 70 5f  |q%!4=N%:.."Wimp_|
00001550  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
00001560  25 3a 3d 24 28 71 25 21  32 38 29 0d 05 b4 4e dd  |%:=$(q%!28)...N.|
00001570  f2 48 28 71 25 29 3a 53  61 25 3d 71 25 21 34 3a  |.H(q%):Sa%=q%!4:|
00001580  54 61 25 3d 71 25 21 38  3a 55 61 25 3d 71 25 21  |Ta%=q%!8:Ua%=q%!|
00001590  32 34 3a 65 25 3d 71 25  21 33 32 3a 61 25 3d 71  |24:e%=q%!32:a%=q|
000015a0  25 21 33 36 3a e7 65 25  3e 32 3a 21 71 25 3d 65  |%!36:.e%>2:!q%=e|
000015b0  25 3a c8 99 63 2c 2c 71  25 0d 05 be 09 c8 8e 65  |%:..c,,q%......e|
000015c0  25 ca 0d 05 c8 20 c9 74  61 25 3a 21 71 25 3d 65  |%.... .ta%:!q%=e|
000015d0  25 3a c8 99 63 2c 2c 71  25 3a c8 8e 71 25 21 33  |%:..c,,q%:..q%!3|
000015e0  36 ca 0d 05 d2 31 c9 30  3a 61 24 3d 22 43 6c 69  |6....1.0:a$="Cli|
000015f0  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 6f 70 65  |ck SELECT to ope|
00001600  6e 20 66 69 6c 65 74 79  70 65 73 20 77 69 6e 64  |n filetypes wind|
00001610  6f 77 22 0d 05 dc 3c c9  31 3a 61 24 3d 22 43 6c  |ow"...<.1:a$="Cl|
00001620  69 63 6b 20 53 45 4c 45  43 54 20 74 6f 20 6f 70  |ick SELECT to op|
00001630  65 6e 20 63 6c 6f 63 6b  20 61 6e 64 20 64 61 74  |en clock and dat|
00001640  65 2d 73 74 61 6d 70 20  77 69 6e 64 6f 77 22 0d  |e-stamp window".|
00001650  05 e6 37 c9 32 3a 61 24  3d 22 43 6c 69 63 6b 20  |..7.2:a$="Click |
00001660  53 45 4c 45 43 54 20 74  6f 20 6f 70 65 6e 20 66  |SELECT to open f|
00001670  69 6c 65 20 6f 70 65 72  61 74 69 6f 6e 73 20 77  |ile operations w|
00001680  69 6e 64 6f 77 22 0d 05  f0 35 c9 33 3a 61 24 3d  |indow"...5.3:a$=|
00001690  22 43 6c 69 63 6b 20 53  45 4c 45 43 54 20 74 6f  |"Click SELECT to|
000016a0  20 6f 70 65 6e 20 61 75  64 69 6f 20 63 6f 6e 74  | open audio cont|
000016b0  72 6f 6c 20 77 69 6e 64  6f 77 22 0d 05 fa 35 c9  |rol window"...5.|
000016c0  34 3a 61 24 3d 22 43 6c  69 63 6b 20 53 45 4c 45  |4:a$="Click SELE|
000016d0  43 54 20 74 6f 20 6f 70  65 6e 20 63 68 61 72 61  |CT to open chara|
000016e0  63 74 65 72 20 73 65 74  20 77 69 6e 64 6f 77 22  |cter set window"|
000016f0  0d 06 04 33 c9 35 3a 61  24 3d 22 43 6c 69 63 6b  |...3.5:a$="Click|
00001700  20 53 45 4c 45 43 54 20  74 6f 20 6f 70 65 6e 20  | SELECT to open |
00001710  66 75 6e 63 74 69 6f 6e  20 6b 65 79 20 73 74 72  |function key str|
00001720  69 70 22 0d 06 0e 3a c9  36 3a 61 24 3d 22 43 6c  |ip"...:.6:a$="Cl|
00001730  69 63 6b 20 53 45 4c 45  43 54 20 74 6f 20 6f 70  |ick SELECT to op|
00001740  65 6e 20 61 20 70 6f 6f  72 20 64 65 73 6b 74 6f  |en a poor deskto|
00001750  70 20 63 61 6c 63 75 6c  61 74 6f 72 22 0d 06 18  |p calculator"...|
00001760  36 c9 37 3a 61 24 3d 22  43 6c 69 63 6b 20 53 45  |6.7:a$="Click SE|
00001770  4c 45 43 54 20 74 6f 20  6f 70 65 6e 20 64 65 73  |LECT to open des|
00001780  6b 74 6f 70 20 73 63 72  65 65 6e 20 77 69 6e 64  |ktop screen wind|
00001790  6f 77 22 0d 06 22 48 c9  38 3a 61 24 3d 22 44 72  |ow".."H.8:a$="Dr|
000017a0  61 67 20 61 20 43 6f 6e  66 69 67 20 66 69 6c 65  |ag a Config file|
000017b0  20 68 65 72 65 20 74 6f  20 6c 6f 61 64 20 74 68  | here to load th|
000017c0  65 20 63 6f 6d 70 75 74  65 72 27 73 20 63 6f 6e  |e computer's con|
000017d0  66 69 67 75 72 61 74 69  6f 6e 22 0d 06 2c 3f c9  |figuration"..,?.|
000017e0  39 3a 61 24 3d 22 43 6c  69 63 6b 20 53 45 4c 45  |9:a$="Click SELE|
000017f0  43 54 20 74 6f 20 6f 70  65 6e 20 6d 69 73 63 65  |CT to open misce|
00001800  6c 6c 61 6e 65 6f 75 73  20 75 74 69 6c 69 74 69  |llaneous utiliti|
00001810  65 73 20 77 69 6e 64 6f  77 22 0d 06 36 05 cb 0d  |es window"..6...|
00001820  06 40 43 c9 56 25 3a 61  24 3d 22 44 72 61 67 20  |.@C.V%:a$="Drag |
00001830  69 63 6f 6e 20 77 69 74  68 20 53 45 4c 45 43 54  |icon with SELECT|
00001840  20 74 6f 20 73 61 76 65  20 63 6f 6d 70 75 74 65  | to save compute|
00001850  72 27 73 20 63 6f 6e 66  69 67 75 72 61 74 69 6f  |r's configuratio|
00001860  6e 22 0d 06 4a 3a c9 79  61 25 3a 61 24 3d 22 43  |n"..J:.ya%:a$="C|
00001870  6c 69 63 6b 20 53 45 4c  45 43 54 20 74 6f 20 65  |lick SELECT to e|
00001880  6d 75 6c 61 74 65 20 70  72 65 73 73 69 6e 67 20  |mulate pressing |
00001890  66 75 6e 74 69 6f 6e 20  6b 65 79 22 0d 06 54 1f  |funtion key"..T.|
000018a0  c9 74 25 3a 21 71 25 3d  65 25 3a c8 99 63 2c 2c  |.t%:!q%=e%:..c,,|
000018b0  71 25 3a c8 8e 71 25 21  33 36 ca 0d 06 5e 3c c9  |q%:..q%!36...^<.|
000018c0  30 2c 31 3a 61 24 3d 22  43 6c 69 63 6b 20 53 45  |0,1:a$="Click SE|
000018d0  4c 45 43 54 20 74 6f 20  74 6f 67 67 6c 65 20 74  |LECT to toggle t|
000018e0  68 65 20 61 75 64 69 6f  20 73 79 73 74 65 6d 20  |he audio system |
000018f0  6f 6e 2f 6f 66 66 22 0d  06 68 40 c9 32 2c 33 3a  |on/off"..h@.2,3:|
00001900  61 24 3d 22 43 6c 69 63  6b 20 53 45 4c 45 43 54  |a$="Click SELECT|
00001910  20 74 6f 20 74 6f 67 67  6c 65 20 74 68 65 20 69  | to toggle the i|
00001920  6e 74 65 72 6e 61 6c 20  73 70 65 61 6b 65 72 20  |nternal speaker |
00001930  6f 6e 2f 6f 66 66 22 0d  06 72 66 c9 34 2c 31 34  |on/off"..rf.4,14|
00001940  3a 61 24 3d 22 43 6c 69  63 6b 20 53 45 4c 45 43  |:a$="Click SELEC|
00001950  54 20 74 6f 20 61 6c 74  65 72 20 74 68 65 20 73  |T to alter the s|
00001960  6f 75 6e 64 20 63 68 61  6e 6e 65 6c 20 6f 66 20  |ound channel of |
00001970  77 68 69 63 68 20 79 6f  75 20 77 61 6e 74 20 74  |which you want t|
00001980  6f 20 63 68 61 6e 67 65  20 74 68 65 20 73 74 65  |o change the ste|
00001990  72 65 6f 20 70 6f 73 69  74 69 6f 6e 22 0d 06 7c  |reo position"..||
000019a0  45 c9 31 35 2c 31 36 3a  61 24 3d 22 54 68 65 20  |E.15,16:a$="The |
000019b0  73 6f 75 6e 64 20 63 68  61 6e 6e 65 6c 20 77 68  |sound channel wh|
000019c0  6f 73 65 20 73 74 65 72  65 6f 20 70 6f 73 69 74  |ose stereo posit|
000019d0  69 6f 6e 20 79 6f 75 20  63 61 6e 20 61 6c 74 65  |ion you can alte|
000019e0  72 22 0d 06 86 67 c9 36  2c 37 2c 38 2c 39 2c 31  |r"...g.6,7,8,9,1|
000019f0  30 2c 31 31 2c 31 32 3a  61 24 3d 22 43 6c 69 63  |0,11,12:a$="Clic|
00001a00  6b 20 53 45 4c 45 43 54  20 74 6f 20 73 65 74 20  |k SELECT to set |
00001a10  74 68 65 20 73 74 65 72  65 6f 20 70 6f 73 69 74  |the stereo posit|
00001a20  69 6f 6e 20 6f 66 20 74  68 65 20 73 6f 75 6e 64  |ion of the sound|
00001a30  20 63 68 61 6e 6e 65 6c  20 69 6e 64 69 63 61 74  | channel indicat|
00001a40  65 64 20 61 62 6f 76 65  22 0d 06 90 21 7f 61 24  |ed above"...!.a$|
00001a50  3d 22 54 68 65 20 73 6f  75 6e 64 20 73 79 73 74  |="The sound syst|
00001a60  65 6d 20 77 69 6e 64 6f  77 22 0d 06 9a 05 cb 0d  |em window"......|
00001a70  06 a4 20 c9 78 61 25 3a  21 71 25 3d 65 25 3a c8  |.. .xa%:!q%=e%:.|
00001a80  99 63 2c 2c 71 25 3a c8  8e 71 25 21 33 36 ca 0d  |.c,,q%:..q%!36..|
00001a90  06 ae 64 c9 32 3a 61 24  3d 22 54 6f 64 61 79 73  |..d.2:a$="Todays|
00001aa0  20 64 61 74 65 2c 20 55  4e 4c 45 53 53 20 74 68  | date, UNLESS th|
00001ab0  69 73 20 77 61 73 20 72  75 6e 6e 69 6e 67 20 61  |is was running a|
00001ac0  74 20 6d 69 64 6e 69 67  68 74 2c 20 69 6e 20 77  |t midnight, in w|
00001ad0  68 69 63 68 20 63 61 73  65 20 69 74 27 73 20 79  |hich case it's y|
00001ae0  65 73 74 65 72 64 61 79  27 73 20 64 61 74 65 2e  |esterday's date.|
00001af0  2e 2e 22 0d 06 b8 4b 7f  61 24 3d 22 54 68 65 20  |.."...K.a$="The |
00001b00  72 65 61 6c 20 74 69 6d  65 20 63 6c 6f 63 6b 2e  |real time clock.|
00001b10  20 44 72 61 67 20 61 20  66 69 6c 65 20 6f 72 20  | Drag a file or |
00001b20  66 69 6c 65 73 20 68 65  72 65 20 74 6f 20 64 61  |files here to da|
00001b30  74 65 20 73 74 61 6d 70  20 74 68 65 6d 22 0d 06  |te stamp them"..|
00001b40  c2 05 cb 0d 06 cc 1f c9  55 25 3a 21 71 25 3d 65  |........U%:!q%=e|
00001b50  25 3a c8 99 63 2c 2c 71  25 3a c8 8e 71 25 21 33  |%:..c,,q%:..q%!3|
00001b60  36 ca 0d 06 d6 3b c9 30  3a 61 24 3d 22 44 72 61  |6....;.0:a$="Dra|
00001b70  67 20 61 20 74 65 78 74  2c 6f 62 65 79 2c 20 6f  |g a text,obey, o|
00001b80  72 20 65 78 65 63 20 66  69 6c 65 20 68 65 72 65  |r exec file here|
00001b90  20 74 6f 20 2a 54 59 50  45 20 69 74 22 0d 06 e0  | to *TYPE it"...|
00001ba0  28 c9 31 3a 61 24 3d 22  44 72 61 67 20 61 20 66  |(.1:a$="Drag a f|
00001bb0  69 6c 65 20 68 65 72 65  20 74 6f 20 2a 44 55 4d  |ile here to *DUM|
00001bc0  50 20 69 74 22 0d 06 ea  58 c9 32 3a 61 24 3d 22  |P it"...X.2:a$="|
00001bd0  43 6c 69 63 6b 20 53 45  4c 45 43 54 20 74 6f 20  |Click SELECT to |
00001be0  65 6e 74 65 72 20 42 41  53 49 43 2e 20 44 72 61  |enter BASIC. Dra|
00001bf0  67 20 61 20 62 61 73 69  63 20 70 72 6f 67 72 61  |g a basic progra|
00001c00  6d 20 68 65 72 65 20 74  6f 20 6c 6f 61 64 20 69  |m here to load i|
00001c10  74 20 69 6e 74 6f 20 42  41 53 49 43 22 0d 06 f4  |t into BASIC"...|
00001c20  49 c9 33 3a 61 24 3d 22  44 72 61 67 20 61 20 64  |I.3:a$="Drag a d|
00001c30  69 72 65 63 74 6f 72 79  20 6f 72 20 61 70 70 6c  |irectory or appl|
00001c40  69 63 61 74 69 6f 6e 20  68 65 72 65 20 74 6f 20  |ication here to |
00001c50  6f 70 65 6e 20 69 74 73  20 66 69 6c 65 72 20 77  |open its filer w|
00001c60  69 6e 64 6f 77 22 0d 06  fe 2f c9 34 3a 61 24 3d  |indow".../.4:a$=|
00001c70  22 44 72 61 67 20 61 20  66 69 6c 65 20 68 65 72  |"Drag a file her|
00001c80  65 20 74 6f 20 6d 6f 76  65 20 69 74 20 73 77 69  |e to move it swi|
00001c90  66 74 6c 79 22 0d 07 08  4f c9 35 3a 61 24 3d 22  |ftly"...O.5:a$="|
00001ca0  44 72 61 67 20 61 20 66  69 6c 65 20 68 65 72 65  |Drag a file here|
00001cb0  20 74 6f 20 28 75 6e 29  6c 6f 63 6b 20 69 74 2e  | to (un)lock it.|
00001cc0  20 43 6c 69 63 6b 20 53  45 4c 45 43 54 20 74 6f  | Click SELECT to|
00001cd0  20 74 6f 67 67 6c 65 20  6c 6f 63 6b 2f 75 6e 6c  | toggle lock/unl|
00001ce0  6f 63 6b 22 0d 07 12 39  c9 36 3a 61 24 3d 22 44  |ock"...9.6:a$="D|
00001cf0  72 61 67 20 66 69 6c 65  28 73 29 20 6f 6e 74 6f  |rag file(s) onto|
00001d00  20 74 68 65 20 74 72 61  73 68 63 61 6e 20 74 6f  | the trashcan to|
00001d10  20 64 65 6c 65 74 65 20  74 68 65 6d 22 0d 07 1c  | delete them"...|
00001d20  3b c9 37 3a 61 24 3d 22  44 72 61 67 20 66 69 6c  |;.7:a$="Drag fil|
00001d30  65 28 73 29 20 68 65 72  65 20 74 6f 20 63 6f 6d  |e(s) here to com|
00001d40  70 6c 65 74 65 6c 79 20  6f 62 6c 69 74 65 72 61  |pletely oblitera|
00001d50  74 65 20 74 68 65 6d 22  0d 07 26 05 cb 0d 07 30  |te them"..&....0|
00001d60  1f c9 6a 25 3a 21 71 25  3d 65 25 3a c8 99 63 2c  |..j%:!q%=e%:..c,|
00001d70  2c 71 25 3a c8 8e 71 25  21 33 36 ca 0d 07 3a 3e  |,q%:..q%!36...:>|
00001d80  c9 30 2c 32 3a 61 24 3d  22 43 6c 69 63 6b 20 53  |.0,2:a$="Click S|
00001d90  45 4c 45 43 54 20 74 6f  20 74 6f 67 67 6c 65 20  |ELECT to toggle |
00001da0  74 68 65 20 73 63 72 65  65 6e 20 62 6c 61 6e 6b  |the screen blank|
00001db0  65 72 20 6f 6e 2f 6f 66  66 22 0d 07 44 8f c9 31  |er on/off"..D..1|
00001dc0  2c 33 3a 61 24 3d 22 43  6c 69 63 6b 20 53 45 4c  |,3:a$="Click SEL|
00001dd0  45 43 54 20 74 6f 20 74  6f 67 67 6c 65 20 77 68  |ECT to toggle wh|
00001de0  65 74 68 65 72 20 79 6f  75 20 63 61 6e 20 65 66  |ether you can ef|
00001df0  66 65 63 74 20 74 68 65  20 73 63 72 65 65 6e 20  |fect the screen |
00001e00  62 6c 61 6e 6b 65 72 20  62 79 20 6d 6f 76 69 6e  |blanker by movin|
00001e10  67 20 74 68 65 20 6d 6f  75 73 65 20 74 6f 20 74  |g the mouse to t|
00001e20  68 65 20 62 6f 74 74 6f  6d 20 6c 65 66 74 20 68  |he bottom left h|
00001e30  61 6e 64 20 63 6f 72 6e  65 72 20 6f 66 20 74 68  |and corner of th|
00001e40  65 20 73 63 72 65 65 6e  22 0d 07 4e 60 c9 31 35  |e screen"..N`.15|
00001e50  2c 31 36 2c 31 37 2c 31  38 2c 31 31 2c 31 32 2c  |,16,17,18,11,12,|
00001e60  31 33 2c 31 34 3a 61 24  3d 22 43 6c 69 63 6b 20  |13,14:a$="Click |
00001e70  53 45 4c 45 43 54 20 74  6f 20 63 68 6f 6f 73 65  |SELECT to choose|
00001e80  20 77 68 61 74 20 67 6f  65 73 20 6f 6e 20 77 68  | what goes on wh|
00001e90  65 6e 20 74 68 65 20 73  63 72 65 65 6e 20 69 73  |en the screen is|
00001ea0  20 62 6c 61 6e 6b 65 64  22 0d 07 58 cc c9 31 30  | blanked"..X..10|
00001eb0  3a 61 24 3d 22 43 6c 69  63 6b 20 53 45 4c 45 43  |:a$="Click SELEC|
00001ec0  54 20 74 6f 20 72 65 64  72 61 77 20 74 68 65 20  |T to redraw the |
00001ed0  64 65 73 6b 74 6f 70 20  73 63 72 65 65 6e 2e 20  |desktop screen. |
00001ee0  55 73 65 20 74 6f 20 69  6e 69 74 69 61 6c 69 73  |Use to initialis|
00001ef0  65 20 66 6f 6e 74 20 73  65 74 74 69 6e 67 20 63  |e font setting c|
00001f00  68 61 6e 67 65 73 2c 20  6f 72 20 69 66 20 79 6f  |hanges, or if yo|
00001f10  75 20 68 61 76 65 20 63  6f 76 65 72 65 64 20 74  |u have covered t|
00001f20  68 65 20 64 65 73 6b 74  6f 70 20 77 69 74 68 20  |he desktop with |
00001f30  61 20 73 63 72 65 65 6e  2e 20 54 68 65 20 69 63  |a screen. The ic|
00001f40  6f 6e 20 69 6e 76 65 72  74 73 20 77 68 65 6e 20  |on inverts when |
00001f50  75 6e 64 65 72 20 74 68  65 20 70 6f 69 6e 74 65  |under the pointe|
00001f60  72 20 73 6f 20 79 6f 75  20 63 61 6e 20 66 69 6e  |r so you can fin|
00001f70  64 20 69 74 22 0d 07 62  50 c9 34 2c 37 3a 61 24  |d it"..bP.4,7:a$|
00001f80  3d 22 43 6c 69 63 6b 20  53 45 4c 45 43 54 20 74  |="Click SELECT t|
00001f90  6f 20 61 6c 74 65 72 20  74 68 65 20 64 65 6c 61  |o alter the dela|
00001fa0  79 20 62 65 66 6f 72 65  20 74 68 65 20 73 63 72  |y before the scr|
00001fb0  65 65 6e 20 62 6c 61 6e  6b 65 72 20 63 6f 6d 65  |een blanker come|
00001fc0  73 20 6f 6e 22 0d 07 6c  3c c9 35 2c 38 2c 39 3a  |s on"..l<.5,8,9:|
00001fd0  61 24 3d 22 54 68 65 20  64 65 6c 61 79 20 62 65  |a$="The delay be|
00001fe0  66 6f 72 65 20 74 68 65  20 73 63 72 65 65 6e 20  |fore the screen |
00001ff0  62 6c 61 6e 6b 65 72 20  63 6f 6d 65 73 20 6f 6e  |blanker comes on|
00002000  22 0d 07 76 48 c9 32 33  3a 61 24 3d 22 54 68 65  |"..vH.23:a$="The|
00002010  20 6e 75 6d 62 65 72 20  6f 66 20 63 6f 6c 6f 75  | number of colou|
00002020  72 73 20 73 75 70 70 6f  72 74 65 64 20 62 79 20  |rs supported by |
00002030  74 68 65 20 63 75 72 72  65 6e 74 20 64 65 73 6b  |the current desk|
00002040  74 6f 70 20 6d 6f 64 65  22 0d 07 80 3f c9 31 39  |top mode"...?.19|
00002050  2c 32 30 3a 61 24 3d 22  54 68 65 20 6e 75 6d 62  |,20:a$="The numb|
00002060  65 72 20 6f 66 20 74 68  65 20 64 65 73 6b 74 6f  |er of the deskto|
00002070  70 20 6d 6f 64 65 20 63  75 72 72 65 6e 74 6c 79  |p mode currently|
00002080  20 69 6e 20 75 73 65 22  0d 07 8a 30 c9 32 32 3a  | in use"...0.22:|
00002090  61 24 3d 22 54 68 65 20  68 65 69 67 68 74 20 6f  |a$="The height o|
000020a0  66 20 74 68 65 20 73 63  72 65 65 6e 2c 20 69 6e  |f the screen, in|
000020b0  20 70 69 78 65 6c 73 22  0d 07 94 2f c9 32 31 3a  | pixels".../.21:|
000020c0  61 24 3d 22 54 68 65 20  77 69 64 74 68 20 6f 66  |a$="The width of|
000020d0  20 74 68 65 20 73 63 72  65 65 6e 2c 20 69 6e 20  | the screen, in |
000020e0  70 69 78 65 6c 73 22 0d  07 9e 36 7f 61 24 3d 22  |pixels"...6.a$="|
000020f0  43 6f 6e 74 72 6f 6c 20  74 68 65 20 64 65 73 6b  |Control the desk|
00002100  74 6f 70 20 64 69 73 70  6c 61 79 20 66 72 6f 6d  |top display from|
00002110  20 74 68 69 73 20 77 69  6e 64 6f 77 22 0d 07 a8  | this window"...|
00002120  05 cb 0d 07 b2 1f c9 6b  25 3a 21 71 25 3d 65 25  |.......k%:!q%=e%|
00002130  3a c8 99 63 2c 2c 71 25  3a c8 8e 71 25 21 33 36  |:..c,,q%:..q%!36|
00002140  ca 0d 07 bc 9a c9 31 36  2c 31 37 3a 61 24 3d 22  |......16,17:a$="|
00002150  43 6c 69 63 6b 20 53 45  4c 45 43 54 20 74 6f 20  |Click SELECT to |
00002160  74 6f 67 67 6c 65 20 74  68 65 20 52 4f 4d 20 73  |toggle the ROM s|
00002170  70 65 65 64 20 2d 20 69  6e 63 72 65 61 73 65 73  |peed - increases|
00002180  20 73 70 65 65 64 20 62  79 20 61 62 6f 75 74 20  | speed by about |
00002190  31 30 25 2e 20 4e 6f 74  20 73 75 69 74 61 62 6c  |10%. Not suitabl|
000021a0  65 20 66 6f 72 20 41 52  4d 33 20 6f 72 20 41 52  |e for ARM3 or AR|
000021b0  4d 32 35 30 20 6d 61 63  68 69 6e 65 73 2c 20 6f  |M250 machines, o|
000021c0  72 20 6d 61 63 68 69 6e  65 73 20 77 69 74 68 20  |r machines with |
000021d0  68 61 72 64 20 64 69 73  63 73 22 0d 07 c6 44 c9  |hard discs"...D.|
000021e0  31 2c 31 34 3a 61 24 3d  22 43 6c 69 63 6b 20 53  |1,14:a$="Click S|
000021f0  45 4c 45 43 54 20 74 6f  20 6f 70 65 6e 20 61 20  |ELECT to open a |
00002200  77 69 6e 64 6f 77 20 66  6f 72 20 74 68 65 20 70  |window for the p|
00002210  72 69 6e 74 65 72 3a 20  64 65 76 69 63 65 22 0d  |rinter: device".|
00002220  07 d0 43 c9 30 2c 31 33  3a 61 24 3d 22 43 6c 69  |..C.0,13:a$="Cli|
00002230  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 6f 70 65  |ck SELECT to ope|
00002240  6e 20 61 20 77 69 6e 64  6f 77 20 66 6f 72 20 74  |n a window for t|
00002250  68 65 20 73 65 72 69 61  6c 3a 20 64 65 76 69 63  |he serial: devic|
00002260  65 22 0d 07 da 41 c9 32  2c 31 35 3a 61 24 3d 22  |e"...A.2,15:a$="|
00002270  43 6c 69 63 6b 20 53 45  4c 45 43 54 20 74 6f 20  |Click SELECT to |
00002280  6f 70 65 6e 20 61 20 77  69 6e 64 6f 77 20 66 6f  |open a window fo|
00002290  72 20 74 68 65 20 6e 75  6c 6c 3a 20 64 65 76 69  |r the null: devi|
000022a0  63 65 22 0d 07 e4 3c c9  31 39 3a 61 24 3d 22 43  |ce"...<.19:a$="C|
000022b0  6c 69 63 6b 20 53 45 4c  45 43 54 20 74 6f 20 72  |lick SELECT to r|
000022c0  65 70 61 69 72 20 27 46  69 6c 65 43 6f 72 65 20  |epair 'FileCore |
000022d0  69 6e 20 75 73 65 27 20  65 72 72 6f 72 73 22 0d  |in use' errors".|
000022e0  07 ee 27 c9 34 2c 37 2c  38 3a 61 24 3d 22 45 6e  |..'.4,7,8:a$="En|
000022f0  74 65 72 20 61 20 43 4c  49 20 73 74 72 69 6e 67  |ter a CLI string|
00002300  20 68 65 72 65 22 0d 07  f8 50 c9 33 2c 35 2c 36  | here"...P.3,5,6|
00002310  2c 32 30 2c 32 31 2c 32  32 3a 61 24 3d 22 43 6c  |,20,21,22:a$="Cl|
00002320  69 63 6b 20 53 45 4c 45  43 54 20 74 6f 20 73 65  |ick SELECT to se|
00002330  6e 64 20 74 68 65 20 73  74 72 69 6e 67 20 74 6f  |nd the string to|
00002340  20 74 68 65 20 72 69 67  68 74 20 74 6f 20 74 68  | the right to th|
00002350  65 20 43 4c 49 22 0d 08  02 3b c9 39 2c 31 31 3a  |e CLI"...;.9,11:|
00002360  61 24 3d 22 43 6c 69 63  6b 20 53 45 4c 45 43 54  |a$="Click SELECT|
00002370  20 74 6f 20 61 6c 74 65  72 20 74 68 65 20 73 70  | to alter the sp|
00002380  65 65 64 20 6f 66 20 74  68 65 20 6d 6f 75 73 65  |eed of the mouse|
00002390  22 0d 08 0c 4d c9 31 30  2c 31 32 3a 61 24 3d 22  |"...M.10,12:a$="|
000023a0  41 73 20 69 74 20 73 61  79 73 20 69 6e 20 74 68  |As it says in th|
000023b0  65 20 69 63 6f 6e 20 69  74 73 65 6c 66 2c 20 74  |e icon itself, t|
000023c0  68 69 73 20 69 73 20 74  68 65 20 73 70 65 65 64  |his is the speed|
000023d0  20 6f 66 20 74 68 65 20  6d 6f 75 73 65 22 0d 08  | of the mouse"..|
000023e0  16 7b c9 31 38 3a 61 24  3d 22 43 6c 69 63 6b 20  |.{.18:a$="Click |
000023f0  53 45 4c 45 43 54 20 74  6f 20 63 6c 6f 73 65 20  |SELECT to close |
00002400  61 6c 6c 20 66 69 6c 65  73 2c 20 64 69 73 6d 6f  |all files, dismo|
00002410  75 6e 74 20 61 6c 6c 20  66 69 6c 69 6e 67 20 73  |unt all filing s|
00002420  79 73 74 65 6d 73 2c 20  70 61 72 6b 20 61 6c 6c  |ystems, park all|
00002430  20 68 61 72 64 20 64 69  73 63 20 68 65 61 64 73  | hard disc heads|
00002440  2c 20 72 65 61 64 79 20  74 6f 20 6c 65 61 76 65  |, ready to leave|
00002450  20 64 65 73 6b 74 6f 70  22 0d 08 20 3c 7f 3a 61  | desktop".. <.:a|
00002460  24 3d 22 4d 69 73 63 65  6c 6c 61 6e 65 6f 75 73  |$="Miscellaneous|
00002470  20 6f 70 65 72 61 74 69  6f 6e 73 20 61 76 61 69  | operations avai|
00002480  6c 61 62 6c 65 20 69 6e  20 74 68 69 73 20 77 69  |lable in this wi|
00002490  6e 64 6f 77 22 0d 08 2a  05 cb 0d 08 34 77 c9 76  |ndow"..*....4w.v|
000024a0  61 25 3a 61 24 3d 22 41  6e 20 69 6e 63 72 65 64  |a%:a$="An incred|
000024b0  69 62 6c 79 20 62 61 64  20 69 6d 70 6c 65 6d 65  |ibly bad impleme|
000024c0  6e 74 61 74 69 6f 6e 20  6f 66 20 61 20 64 65 73  |ntation of a des|
000024d0  6b 74 6f 70 20 63 61 6c  63 75 6c 61 74 6f 72 2e  |ktop calculator.|
000024e0  20 41 73 20 62 61 64 20  61 73 20 41 63 6f 72 6e  | As bad as Acorn|
000024f0  27 73 20 6f 77 6e 2c 20  69 66 20 6e 6f 74 20 77  |'s own, if not w|
00002500  6f 72 73 65 2e 20 56 65  72 79 20 50 6f 6f 72 21  |orse. Very Poor!|
00002510  22 0d 08 3e 9f c9 77 61  25 3a 21 71 25 3d 65 25  |"..>..wa%:!q%=e%|
00002520  3a c8 99 63 2c 2c 71 25  3a 61 24 3d 22 43 6c 69  |:..c,,q%:a$="Cli|
00002530  63 6b 20 53 45 4c 45 43  54 20 6f 72 20 70 72 65  |ck SELECT or pre|
00002540  73 73 20 53 48 49 46 54  20 74 6f 20 65 6e 74 65  |ss SHIFT to ente|
00002550  72 20 41 53 43 49 49 20  63 68 61 72 61 63 74 65  |r ASCII characte|
00002560  72 20 22 2b bd 28 33 32  2b 71 25 21 33 36 29 2b  |r "+.(32+q%!36)+|
00002570  22 20 3d 20 22 2b c3 28  33 32 2b 71 25 21 33 36  |" = "+.(32+q%!36|
00002580  29 2b 22 20 28 26 22 2b  c3 7e 28 33 32 2b 71 25  |)+" (&"+.~(32+q%|
00002590  21 33 36 29 2b 22 29 20  61 73 20 69 66 20 66 72  |!36)+") as if fr|
000025a0  6f 6d 20 74 68 65 20 6b  65 79 62 6f 61 72 64 22  |om the keyboard"|
000025b0  0d 08 48 63 c9 75 61 25  3a 61 24 3d 22 54 68 69  |..Hc.ua%:a$="Thi|
000025c0  73 20 69 73 20 42 69 67  20 53 68 69 72 6c 27 73  |s is Big Shirl's|
000025d0  20 54 65 63 68 6e 69 71  75 65 20 49 6e 66 6f 20  | Technique Info |
000025e0  77 69 6e 64 6f 77 2e 20  57 68 79 20 61 72 65 20  |window. Why are |
000025f0  79 6f 75 20 75 73 69 6e  67 20 69 6e 74 65 72 61  |you using intera|
00002600  63 74 69 76 65 20 68 65  6c 70 20 6f 6e 20 69 74  |ctive help on it|
00002610  3f 3f 22 0d 08 52 18 c9  70 25 3a c8 99 63 2c 2c  |??"..R..p%:..c,,|
00002620  71 25 3a c8 8e 71 25 21  33 36 ca 0d 08 5c 77 c9  |q%:..q%!36...\w.|
00002630  30 2c 31 2c 32 2c 33 2c  34 2c 35 2c 36 2c 37 2c  |0,1,2,3,4,5,6,7,|
00002640  38 2c 39 2c 31 30 2c 31  31 2c 31 32 2c 31 33 2c  |8,9,10,11,12,13,|
00002650  31 34 2c 31 35 3a 61 24  3d 22 44 72 61 67 20 66  |14,15:a$="Drag f|
00002660  69 6c 65 28 73 29 20 6f  6e 74 6f 20 6f 6e 65 20  |ile(s) onto one |
00002670  6f 66 20 74 68 65 73 65  20 69 63 6f 6e 73 20 74  |of these icons t|
00002680  6f 20 73 65 74 20 69 74  73 20 66 69 6c 65 20 74  |o set its file t|
00002690  79 70 65 20 61 70 70 72  6f 70 72 69 61 74 65 6c  |ype appropriatel|
000026a0  79 22 0d 08 66 92 c9 31  36 2c 31 37 2c 31 38 2c  |y"..f..16,17,18,|
000026b0  31 39 2c 33 33 2c 33 34  2c 33 35 2c 33 36 3a 61  |19,33,34,35,36:a|
000026c0  24 3d 22 54 68 69 73 20  69 73 20 74 68 65 20 69  |$="This is the i|
000026d0  63 6f 6e 20 28 69 66 20  74 68 65 72 65 20 69 73  |con (if there is|
000026e0  20 6f 6e 65 29 20 6f 66  20 74 68 65 20 66 69 6c  | one) of the fil|
000026f0  65 20 74 79 70 65 20 73  74 6f 72 65 64 20 68 65  |e type stored he|
00002700  72 65 2e 20 44 72 61 67  20 61 20 66 69 6c 65 20  |re. Drag a file |
00002710  68 65 72 65 20 74 6f 20  68 61 76 65 20 69 74 73  |here to have its|
00002720  20 66 69 6c 65 79 70 65  20 73 74 6f 72 65 64 2f  | fileype stored/|
00002730  73 65 74 22 0d 08 70 4a  c9 32 30 2c 32 31 2c 32  |set"..pJ.20,21,2|
00002740  32 2c 32 33 3a 61 24 3d  22 54 68 69 73 20 69 73  |2,23:a$="This is|
00002750  20 74 68 65 20 6e 75 6d  62 65 72 20 28 68 65 78  | the number (hex|
00002760  29 20 6f 66 20 74 68 65  20 66 69 6c 65 74 79 70  |) of the filetyp|
00002770  65 20 73 74 6f 72 65 64  20 68 65 72 65 22 0d 08  |e stored here"..|
00002780  7a 71 c9 32 34 2c 32 36  3a 61 24 3d 22 43 6c 69  |zq.24,26:a$="Cli|
00002790  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 69 6e 64  |ck SELECT to ind|
000027a0  69 63 61 74 65 20 74 68  61 74 20 66 69 6c 65 73  |icate that files|
000027b0  20 64 72 61 67 67 65 64  20 6f 6e 74 6f 20 74 68  | dragged onto th|
000027c0  65 20 69 63 6f 6e 73 20  61 62 6f 76 65 20 77 69  |e icons above wi|
000027d0  6c 6c 20 68 61 76 65 20  74 68 65 69 72 20 66 69  |ll have their fi|
000027e0  6c 65 74 79 70 65 73 20  73 74 6f 72 65 64 22 0d  |letypes stored".|
000027f0  08 84 88 c9 32 35 2c 32  37 3a 61 24 3d 22 43 6c  |....25,27:a$="Cl|
00002800  69 63 6b 20 53 45 4c 45  43 54 20 74 6f 20 69 6e  |ick SELECT to in|
00002810  64 69 63 61 74 65 20 74  68 61 74 20 66 69 6c 65  |dicate that file|
00002820  73 20 64 72 61 67 67 65  64 20 6f 6e 74 6f 20 74  |s dragged onto t|
00002830  68 65 20 69 63 6f 6e 73  20 61 62 6f 76 65 20 77  |he icons above w|
00002840  69 6c 6c 20 68 61 76 65  20 74 68 65 69 72 20 66  |ill have their f|
00002850  69 6c 65 74 79 70 65 73  20 73 65 74 20 61 73 20  |iletypes set as |
00002860  69 6e 64 69 63 61 74 65  64 20 62 79 20 74 68 65  |indicated by the|
00002870  20 69 63 6f 6e 73 22 0d  08 8e 05 cb 0d 08 98 40  | icons"........@|
00002880  7f 61 24 3d 22 43 6c 69  63 6b 20 53 45 4c 45 43  |.a$="Click SELEC|
00002890  54 20 74 6f 20 6f 70 65  6e 20 42 69 67 20 53 68  |T to open Big Sh|
000028a0  69 72 6c 27 73 20 6d 61  69 6e 20 54 65 63 68 6e  |irl's main Techn|
000028b0  69 71 75 65 20 77 69 6e  64 6f 77 22 0d 08 a2 05  |ique window"....|
000028c0  cb 0d 08 ac 6b 21 71 25  3d 28 28 32 30 2b a9 28  |....k!q%=((20+.(|
000028d0  61 24 29 2b 31 29 2b 33  29 80 ac 33 3a 71 25 21  |a$)+1)+3)..3:q%!|
000028e0  31 32 3d 54 61 25 3a 71  25 21 31 36 3d 31 32 38  |12=Ta%:q%!16=128|
000028f0  33 3a 24 28 71 25 2b 32  30 29 3d 61 24 3a 71 25  |3:$(q%+20)=a$:q%|
00002900  3f 28 32 30 2b a9 61 24  29 3d 30 3a c8 99 22 57  |?(20+.a$)=0:.."W|
00002910  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00002920  2c 31 37 2c 71 25 2c 53  61 25 3a e1 0d 08 b6 0e  |,17,q%,Sa%:.....|
00002930  dd f2 45 3a c8 8e 21 71  25 ca 0d 08 c0 06 c9 30  |..E:..!q%......0|
00002940  0d 08 ca 0e 7f 3a c8 8e  71 25 21 32 34 ca 0d 08  |.....:..q%!24...|
00002950  d4 25 c9 32 37 3a c8 99  22 57 69 6d 70 5f 53 65  |.%.27:.."Wimp_Se|
00002960  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00002970  30 2c 30 0d 08 de 1f 7f  3a c8 99 22 57 69 6d 70  |0,0.....:.."Wimp|
00002980  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 71 25 21  |_ProcessKey",q%!|
00002990  32 34 0d 08 e8 05 cb 0d  08 f2 05 cb 0d 08 fc 05  |24..............|
000029a0  e1 0d 09 06 12 dd a4 63  28 71 25 29 3a 3d 71 25  |.......c(q%):=q%|
000029b0  21 34 30 0d 09 10 2a dd  a4 62 28 73 25 29 3a ea  |!40...*..b(s%):.|
000029c0  6e 24 3a c8 95 3f 73 25  3a 6e 24 2b 3d bd 3f 73  |n$:..?s%:n$+=.?s|
000029d0  25 3a 73 25 2b 3d 31 3a  ce 3a 3d 6e 24 0d 09 1a  |%:s%+=1:.:=n$...|
000029e0  a2 dd f2 78 3a 56 61 25  3d 31 3a 57 61 25 3d 30  |...x:Va%=1:Wa%=0|
000029f0  3a 58 61 25 3d 33 3a 44  61 25 3d a3 3a 59 61 25  |:Xa%=3:Da%=.:Ya%|
00002a00  3d a3 3a 72 25 3d 39 30  30 3a f2 72 28 37 29 3a  |=.:r%=900:.r(7):|
00002a10  5a 61 25 3d 30 3a 5f 61  25 3d 30 3a d1 3d 30 3a  |Za%=0:_a%=0:.=0:|
00002a20  4f 25 3d b9 3a 47 25 3d  a3 3a de 60 61 25 20 35  |O%=.:G%=.:.`a% 5|
00002a30  31 32 2c 61 62 25 20 35  31 32 3a 70 3d a4 67 28  |12,ab% 512:p=.g(|
00002a40  45 25 2c 32 29 3a 24 70  3d 22 4e 75 6c 6c 22 3a  |E%,2):$p="Null":|
00002a50  75 25 3d 30 3a 62 62 25  3d 30 3a 76 25 3d 31 3a  |u%=0:bb%=0:v%=1:|
00002a60  de 62 25 28 38 29 3a 62  25 28 29 3d 30 3a 51 25  |.b%(8):b%()=0:Q%|
00002a70  3d b9 3a 52 25 3d a3 3a  de 63 25 28 31 35 29 0d  |=.:R%=.:.c%(15).|
00002a80  09 24 dd 63 25 28 29 3d  34 30 39 31 2c 34 30 37  |.$.c%()=4091,407|
00002a90  37 2c 34 30 39 35 2c 34  30 37 35 2c 34 30 38 39  |7,4095,4075,4089|
00002aa0  2c 34 30 39 34 2c 34 30  39 30 2c 34 30 38 38 2c  |,4094,4090,4088,|
00002ab0  34 30 39 32 2c 34 30 38  36 2c 34 30 38 37 2c 33  |4092,4086,4087,3|
00002ac0  30 30 34 2c 32 38 31 35  2c 34 30 38 35 2c 34 30  |004,2815,4085,40|
00002ad0  37 36 2c 34 30 39 33 3a  de 61 25 28 33 29 3a 61  |76,4093:.a%(3):a|
00002ae0  25 28 29 3d 32 38 31 35  2c 32 38 31 35 2c 32 38  |%()=2815,2815,28|
00002af0  31 35 2c 32 38 31 35 3a  63 62 25 3d b9 3a 47 61  |15,2815:cb%=.:Ga|
00002b00  25 3d a3 3a 65 3d 30 3a  63 24 3d 22 30 22 3a 68  |%=.:e=0:c$="0":h|
00002b10  24 3d 22 3d 22 3a 64 24  3d 63 24 3a 46 61 25 3d  |$="=":d$=c$:Fa%=|
00002b20  a3 3a de 61 24 28 33 29  3a 67 24 3d c2 91 24 2c  |.:.a$(3):g$=..$,|
00002b30  38 29 3a 6f 24 3d 67 24  3a f2 61 28 71 25 2c 78  |8):o$=g$:.a(q%,x|
00002b40  61 25 2c 32 2c c0 91 24  2c 31 35 29 2c 30 29 3a  |a%,2,..$,15),0):|
00002b50  6c 25 3d 34 3a 64 62 25  3d a3 3a e1 0d 09 2e 1a  |l%=4:db%=.:.....|
00002b60  dd f2 42 3a 67 24 3d c2  91 24 2c 38 29 3a e7 67  |..B:g$=..$,8):.g|
00002b70  24 3c 3e 6f 24 8c 0d 09  38 1c f2 61 28 71 25 2c  |$<>o$...8..a(q%,|
00002b80  78 61 25 2c 31 2c 67 24  2c 2d 31 29 3a 6f 24 3d  |xa%,1,g$,-1):o$=|
00002b90  67 24 0d 09 42 05 cd 0d  09 4c 08 e7 47 25 8c 0d  |g$..B....L..G%..|
00002ba0  09 56 1a c8 97 58 25 2c  59 25 2c 42 25 3a e7 58  |.V...X%,Y%,B%:.X|
00002bb0  25 2b 59 25 3d 30 8c f2  75 0d 09 60 05 cd 0d 09  |%+Y%=0..u..`....|
00002bc0  6a 16 e7 a6 28 2d 31 29  80 28 91 2d 5f 61 25 29  |j...(-1).(.-_a%)|
00002bd0  3e 32 30 8c 0d 09 74 18  c8 99 66 2c 2c 71 25 3a  |>20...t...f,,q%:|
00002be0  e7 71 25 21 31 32 3c 3e  77 61 25 8c 0d 09 7e 32  |.q%!12<>wa%...~2|
00002bf0  cc 3a 65 62 25 3d 33 32  2b 28 71 25 21 31 36 29  |.:eb%=32+(q%!16)|
00002c00  3a c8 99 22 57 69 6d 70  5f 50 72 6f 63 65 73 73  |:.."Wimp_Process|
00002c10  4b 65 79 22 2c 65 62 25  3a 5f 61 25 3d 91 0d 09  |Key",eb%:_a%=...|
00002c20  88 05 cd 0d 09 92 05 cd  0d 09 9c 08 e7 4f 25 8c  |.............O%.|
00002c30  0d 09 a6 29 c8 97 6d 25  2c 66 62 25 2c 6f 25 3a  |...)..m%,fb%,o%:|
00002c40  e7 6d 25 2b 66 62 25 3c  3e 75 25 2b 62 62 25 84  |.m%+fb%<>u%+bb%.|
00002c50  6f 25 84 21 64 3c 3e 30  8c 0d 09 b0 09 5a 61 25  |o%.!d<>0.....Za%|
00002c60  3d 91 0d 09 ba 13 cc e7  28 91 2d 5a 61 25 29 3e  |=.......(.-Za%)>|
00002c70  72 25 8c f2 75 0d 09 c4  08 21 64 3d 30 0d 09 ce  |r%..u....!d=0...|
00002c80  05 cd 0d 09 d8 11 75 25  3d 6d 25 3a 62 62 25 3d  |......u%=m%:bb%=|
00002c90  66 62 25 0d 09 e2 05 cd  0d 09 ec 0a 21 64 3d 30  |fb%.........!d=0|
00002ca0  3a e1 0d 09 f6 35 dd f2  49 28 71 25 29 3a 70 24  |:....5..I(q%):p$|
00002cb0  3d a4 62 28 71 25 2b 34  34 29 3a f2 6b 3a 67 62  |=.b(q%+44):.k:gb|
00002cc0  25 3d 71 25 21 31 32 3a  61 25 3d 71 25 21 31 36  |%=q%!12:a%=q%!16|
00002cd0  3a c8 8e 67 62 25 ca 0d  0a 00 0d c9 55 25 3a c8  |:..gb%......U%:.|
00002ce0  8e 61 25 ca 0d 0a 0a 0a  c9 30 3a f2 64 61 0d 0a  |.a%......0:.da..|
00002cf0  14 0a c9 31 3a f2 65 61  0d 0a 1e 0a c9 32 3a f2  |...1:.ea.....2:.|
00002d00  66 61 0d 0a 28 0a c9 33  3a f2 67 61 0d 0a 32 10  |fa..(..3:.ga..2.|
00002d10  c9 34 2c 38 3a f2 68 61  28 45 25 29 0d 0a 3c 0a  |.4,8:.ha(E%)..<.|
00002d20  c9 35 3a f2 69 61 0d 0a  46 0a c9 37 3a f2 6a 61  |.5:.ia..F..7:.ja|
00002d30  0d 0a 50 05 cb 0d 0a 5a  1e c9 78 61 25 3a ff 28  |..P....Z..xa%:.(|
00002d40  22 53 74 61 6d 70 20 22  2b a4 62 28 71 25 2b 34  |"Stamp "+.b(q%+4|
00002d50  34 29 29 0d 0a 64 1d c9  74 61 25 3a e7 61 25 3d  |4))..d..ta%:.a%=|
00002d60  38 3a f2 6b 61 28 a4 62  28 71 25 2b 34 34 29 29  |8:.ka(.b(q%+44))|
00002d70  0d 0a 6e 0c c9 70 25 3a  c8 8e b9 ca 0d 0a 78 12  |..n..p%:......x.|
00002d80  c9 61 25 3c 31 36 3a f2  6c 61 28 61 25 29 0d 0a  |.a%<16:.la(a%)..|
00002d90  82 1c c9 28 61 25 3c 33  37 80 61 25 3e 33 32 29  |...(a%<37.a%>32)|
00002da0  3a f2 76 28 61 25 2d 33  33 29 0d 0a 8c 1c c9 28  |:.v(a%-33).....(|
00002db0  61 25 3c 32 34 80 61 25  3e 31 39 29 3a f2 76 28  |a%<24.a%>19):.v(|
00002dc0  61 25 2d 32 30 29 0d 0a  96 05 cb 0d 0a a0 05 cb  |a%-20)..........|
00002dd0  0d 0a aa 05 e1 0d 0a b4  2e dd f2 64 61 3a e7 a4  |...........da:..|
00002de0  63 28 71 25 29 3d 34 30  39 35 84 a4 63 28 71 25  |c(q%)=4095..c(q%|
00002df0  29 3d 34 30 39 34 84 a4  63 28 71 25 29 3d 34 30  |)=4094..c(q%)=40|
00002e00  37 35 8c 0d 0a be 46 ff  22 4b 65 79 20 31 32 20  |75....F."Key 12 |
00002e10  54 79 70 65 20 22 2b a4  62 28 71 25 2b 34 34 29  |Type "+.b(q%+44)|
00002e20  2b 22 7c 54 7c 4c 7c 4e  7c 4d 22 3a ff 22 46 58  |+"|T|L|N|M":."FX|
00002e30  31 33 38 20 30 20 32 30  34 22 3a ff 22 46 58 31  |138 0 204":."FX1|
00002e40  33 38 20 30 20 32 30 34  22 0d 0a c8 05 cd 0d 0a  |38 0 204".......|
00002e50  d2 05 e1 0d 0a dc 23 dd  f2 65 61 3a e7 a4 63 28  |......#..ea:..c(|
00002e60  71 25 29 3d 34 30 39 36  84 a4 63 28 71 25 29 3d  |q%)=4096..c(q%)=|
00002e70  38 31 39 32 8c e1 0d 0a  e6 48 ff 22 4b 65 79 20  |8192.....H."Key |
00002e80  31 32 20 44 55 4d 50 20  22 2b a4 62 28 71 25 2b  |12 DUMP "+.b(q%+|
00002e90  34 34 29 2b 22 7c 54 7c  4c 7c 4e 7c 4d 22 3a ff  |44)+"|T|L|N|M":.|
00002ea0  22 46 58 31 33 38 20 30  20 32 30 34 22 3a ff 22  |"FX138 0 204":."|
00002eb0  46 58 31 33 38 20 30 20  32 30 34 22 3a e1 0d 0a  |FX138 0 204":...|
00002ec0  f0 16 dd f2 66 61 3a e7  a4 63 28 71 25 29 3d 34  |....fa:..c(q%)=4|
00002ed0  30 39 31 8c 0d 0a fa 4b  ff 22 4b 65 79 20 31 32  |091....K."Key 12|
00002ee0  20 42 41 53 49 43 20 2d  6c 6f 61 64 20 22 2b a4  | BASIC -load "+.|
00002ef0  62 28 71 25 2b 34 34 29  2b 22 7c 54 7c 4c 7c 4d  |b(q%+44)+"|T|L|M|
00002f00  22 3a ff 22 46 58 31 33  38 20 30 20 32 30 34 22  |":."FX138 0 204"|
00002f10  3a ff 22 46 58 31 33 38  20 30 20 32 30 34 22 0d  |:."FX138 0 204".|
00002f20  0b 04 05 cd 0d 0b 0e 05  e1 0d 0b 18 22 dd f2 67  |............"..g|
00002f30  61 3a e7 a4 63 28 71 25  29 3d 34 30 39 36 84 a4  |a:..c(q%)=4096..|
00002f40  63 28 71 25 29 3d 38 31  39 32 8c 0d 0b 22 1f ff  |c(q%)=8192..."..|
00002f50  22 46 69 6c 65 72 5f 4f  70 65 6e 44 69 72 20 22  |"Filer_OpenDir "|
00002f60  2b a4 62 28 71 25 2b 34  34 29 0d 0b 2c 05 cd 0d  |+.b(q%+44)..,...|
00002f70  0b 36 05 e1 0d 0b 40 2a  dd f2 6a 61 3a ff 22 57  |.6....@*..ja:."W|
00002f80  69 70 65 20 22 2b a4 62  28 71 25 2b 34 34 29 2b  |ipe "+.b(q%+44)+|
00002f90  22 20 52 20 46 20 7e 43  20 7e 56 22 3a e1 0d 0b  |" R F ~C ~V":...|
00002fa0  4a 2e dd f2 6e 3a 47 61  25 3d a3 3a 65 3d 30 3a  |J...n:Ga%=.:e=0:|
00002fb0  63 24 3d 22 30 22 3a 68  24 3d 22 3d 22 3a 64 24  |c$="0":h$="=":d$|
00002fc0  3d 63 24 3a f2 63 28 64  24 29 3a e1 0d 0b 54 1f  |=c$:.c(d$):...T.|
00002fd0  dd f2 4d 28 69 24 29 3a  e7 a9 63 24 2d b4 28 a7  |..M(i$):..c$-.(.|
00002fe0  63 24 2c 22 2e 22 29 29  3c 38 8c 0d 0b 5e 1a e7  |c$,"."))<8...^..|
00002ff0  63 24 3d 22 30 22 3a 63  24 3d 69 24 8b 63 24 3d  |c$="0":c$=i$.c$=|
00003000  63 24 2b 69 24 0d 0b 68  05 cd 0d 0b 72 12 64 24  |c$+i$..h....r.d$|
00003010  3d 63 24 3a f2 63 28 64  24 29 3a e1 0d 0b 7c 23  |=c$:.c(d$):...|#|
00003020  dd f2 4e 3a e7 a7 63 24  2c 22 2e 22 29 3d 30 80  |..N:..c$,".")=0.|
00003030  a9 63 24 3c 38 3a 63 24  3d 63 24 2b 22 2e 22 0d  |.c$<8:c$=c$+".".|
00003040  0b 86 12 64 24 3d 63 24  3a f2 63 28 64 24 29 3a  |...d$=c$:.c(d$):|
00003050  e1 0d 0b 90 37 dd f2 66  28 69 24 29 3a ea 40 25  |....7..f(i$):.@%|
00003060  3a 40 25 3d 31 36 39 31  30 30 39 37 3a e7 68 24  |:@%=16910097:.h$|
00003070  3d 22 3d 22 3a 65 3d bb  64 24 8b 65 3d a0 28 c3  |="=":e=.d$.e=.(.|
00003080  65 2b 68 24 2b 64 24 29  0d 0b 9a 19 63 24 3d 22  |e+h$+d$)....c$="|
00003090  30 22 3a 68 24 3d 69 24  3a f2 63 28 c3 65 29 3a  |0":h$=i$:.c(.e):|
000030a0  e1 0d 0b a4 24 dd f2 63  28 62 24 29 3a 71 3d bb  |....$..c(b$):q=.|
000030b0  62 24 3a e7 94 71 3e 3d  26 35 46 35 45 31 30 30  |b$:..q>=&5F5E100|
000030c0  3a f2 6d 3a e1 0d 0b ae  6b c8 95 c2 62 24 2c 31  |:.m:....k...b$,1|
000030d0  29 3d 22 30 22 80 a7 62  24 2c 22 2e 22 29 3e 30  |)="0"..b$,".")>0|
000030e0  3a 62 24 3d c0 62 24 2c  a9 28 62 24 29 2d 31 29  |:b$=.b$,.(b$)-1)|
000030f0  3a ce 3a 62 24 3d c0 62  24 2c 38 2b b4 28 a7 62  |:.:b$=.b$,8+.(.b|
00003100  24 2c 22 2e 22 29 29 2b  b4 28 a7 62 24 2c 22 2d  |$,"."))+.(.b$,"-|
00003110  22 29 29 29 3a e7 c2 62  24 2c 31 29 3d 22 2e 22  |"))):..b$,1)="."|
00003120  3a 62 24 3d c0 62 24 2c  a9 28 62 24 29 2d 31 29  |:b$=.b$,.(b$)-1)|
00003130  0d 0b b8 13 e7 62 24 3d  22 2d 30 22 3a 62 24 3d  |.....b$="-0":b$=|
00003140  22 30 22 0d 0b c2 1f 64  24 3d 62 24 3a f2 61 28  |"0"....d$=b$:.a(|
00003150  71 25 2c 76 61 25 2c 33  34 2c 64 24 2c 2d 31 29  |q%,va%,34,d$,-1)|
00003160  3a e1 0d 0b cc 3d dd f2  6d 3a 64 24 3d 22 2d 45  |:....=..m:d$="-E|
00003170  52 52 4f 52 2d 22 3a 47  61 25 3d b9 3a 63 24 3d  |RROR-":Ga%=.:c$=|
00003180  22 2d 45 52 52 4f 52 2d  22 3a 62 24 3d 22 30 22  |"-ERROR-":b$="0"|
00003190  3a 61 25 3d 2d 31 3a f2  63 28 64 24 29 3a e1 0d  |:a%=-1:.c(d$):..|
000031a0  0b d6 48 dd f2 6c 61 28  67 25 29 3a 66 24 3d a4  |..H..la(g%):f$=.|
000031b0  62 28 71 25 2b 34 34 29  3a ff 22 53 65 74 54 79  |b(q%+44):."SetTy|
000031c0  70 65 20 22 2b 66 24 2b  22 20 22 2b c3 7e 28 63  |pe "+f$+" "+.~(c|
000031d0  25 28 67 25 29 29 2b 22  20 7b 20 3e 20 6e 75 6c  |%(g%))+" { > nul|
000031e0  6c 3a 20 7d 22 3a e1 0d  0b e0 11 dd f2 76 28 67  |l: }":.......v(g|
000031f0  25 29 3a e7 63 62 25 8c  0d 0b ea 56 68 62 25 3d  |%):.cb%....Vhb%=|
00003200  a4 63 28 71 25 29 3a 61  25 28 67 25 29 3d 68 62  |.c(q%):a%(g%)=hb|
00003210  25 3a 64 25 3d a4 61 28  71 25 2c 70 25 2c 67 25  |%:d%=.a(q%,p%,g%|
00003220  2b 33 33 2c 22 66 69 6c  65 5f 22 2b c3 7e 68 62  |+33,"file_"+.~hb|
00003230  25 2c 2d 31 29 3a f2 61  28 71 25 2c 70 25 2c 67  |%,-1):.a(q%,p%,g|
00003240  25 2b 32 30 2c c3 7e 68  62 25 2c 2d 31 29 0d 0b  |%+20,.~hb%,-1)..|
00003250  f4 45 cc 3a 68 62 25 3d  61 25 28 67 25 29 3a 66  |.E.:hb%=a%(g%):f|
00003260  24 3d a4 62 28 71 25 2b  34 34 29 3a ff 22 53 65  |$=.b(q%+44):."Se|
00003270  74 54 79 70 65 20 22 2b  66 24 2b 22 20 22 2b c3  |tType "+f$+" "+.|
00003280  7e 68 62 25 2b 22 20 7b  20 3e 20 6e 75 6c 6c 3a  |~hb%+" { > null:|
00003290  20 7d 22 0d 0b fe 05 cd  0d 0c 08 05 e1 0d 0c 12  | }".............|
000032a0  15 dd f2 4f 3a e7 61 25  3d 32 34 84 61 25 3d 32  |...O:.a%=24.a%=2|
000032b0  36 8c 0d 0c 1c 3a 64 25  3d a4 61 28 71 25 2c 70  |6....:d%=.a(q%,p|
000032c0  25 2c 32 34 2c 22 6f 6e  22 2c 2d 31 29 3a 64 25  |%,24,"on",-1):d%|
000032d0  3d a4 61 28 71 25 2c 70  25 2c 32 35 2c 22 6f 66  |=.a(q%,p%,25,"of|
000032e0  66 22 2c 2d 31 29 3a 63  62 25 3d b9 0d 0c 26 3c  |f",-1):cb%=...&<|
000032f0  cc 3a 64 25 3d a4 61 28  71 25 2c 70 25 2c 32 34  |.:d%=.a(q%,p%,24|
00003300  2c 22 6f 66 66 22 2c 2d  31 29 3a 64 25 3d a4 61  |,"off",-1):d%=.a|
00003310  28 71 25 2c 70 25 2c 32  35 2c 22 6f 6e 22 2c 2d  |(q%,p%,25,"on",-|
00003320  31 29 3a 63 62 25 3d a3  0d 0c 30 05 cd 0d 0c 3a  |1):cb%=...0....:|
00003330  05 e1 0d 0c 44 5b dd a4  68 28 77 24 29 3a c8 99  |....D[..h(w$):..|
00003340  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00003350  72 22 2c 22 2a 2a 2a 2a  20 22 2b 77 24 2c 32 33  |r","**** "+w$,23|
00003360  2c 22 4d 65 73 73 61 67  65 20 66 72 6f 6d 20 54  |,"Message from T|
00003370  65 63 68 6e 69 71 75 65  22 b8 2c 69 62 25 3a 59  |echnique".,ib%:Y|
00003380  61 25 3d b9 3a 3d 28 69  62 25 3d 31 29 0d 0c 4e  |a%=.:=(ib%=1)..N|
00003390  13 dd f2 6f 3a 51 25 3d  ac 51 25 3a e7 51 25 8c  |...o:Q%=.Q%:.Q%.|
000033a0  0d 0c 58 36 64 25 3d a4  61 28 71 25 2c 74 25 2c  |..X6d%=.a(q%,t%,|
000033b0  31 2c 22 62 6f 6e 22 2c  2d 31 29 3a ff 22 41 75  |1,"bon",-1):."Au|
000033c0  64 69 6f 20 4f 6e 20 7b  20 3e 20 6e 75 6c 6c 3a  |dio On { > null:|
000033d0  20 7d 22 3a ef 37 0d 0c  62 37 cc 3a 64 25 3d a4  | }":.7..b7.:d%=.|
000033e0  61 28 71 25 2c 74 25 2c  31 2c 22 62 6f 66 66 22  |a(q%,t%,1,"boff"|
000033f0  2c 2d 31 29 3a ff 22 41  75 64 69 6f 20 4f 66 66  |,-1):."Audio Off|
00003400  20 7b 20 3e 20 6e 75 6c  6c 3a 20 7d 22 0d 0c 6c  | { > null: }"..l|
00003410  05 cd 0d 0c 76 05 e1 0d  0c 80 13 dd f2 70 3a 52  |....v........p:R|
00003420  25 3d ac 52 25 3a e7 52  25 8c 0d 0c 8a 38 64 25  |%=.R%:.R%....8d%|
00003430  3d a4 61 28 71 25 2c 74  25 2c 32 2c 22 62 6f 6e  |=.a(q%,t%,2,"bon|
00003440  22 2c 2d 31 29 3a ff 22  53 70 65 61 6b 65 72 20  |",-1):."Speaker |
00003450  4f 6e 20 7b 20 3e 20 6e  75 6c 6c 3a 20 7d 22 3a  |On { > null: }":|
00003460  ef 37 0d 0c 94 3c cc 3a  64 25 3d a4 61 28 71 25  |.7...<.:d%=.a(q%|
00003470  2c 74 25 2c 32 2c 22 62  6f 66 66 22 2c 2d 31 29  |,t%,2,"boff",-1)|
00003480  3a ff 22 53 70 65 61 6b  65 72 20 4f 66 66 20 7b  |:."Speaker Off {|
00003490  20 3e 20 6e 75 6c 6c 3a  20 7d 22 3a ef 37 0d 0c  | > null: }":.7..|
000034a0  9e 05 cd 0d 0c a8 05 e1  0d 0c b2 12 dd f2 51 28  |..............Q(|
000034b0  61 25 29 3a e7 61 25 3d  34 8c 0d 0c bc 14 76 25  |a%):.a%=4.....v%|
000034c0  2d 3d 31 3a e7 76 25 3c  31 3a 76 25 3d 38 0d 0c  |-=1:.v%<1:v%=8..|
000034d0  c6 16 cc 3a 76 25 2b 3d  31 3a e7 76 25 3e 38 3a  |...:v%+=1:.v%>8:|
000034e0  76 25 3d 31 0d 0c d0 05  cd 0d 0c da 1c f2 68 3a  |v%=1..........h:|
000034f0  f2 61 28 71 25 2c 74 25  2c 31 36 2c c3 28 76 25  |.a(q%,t%,16,.(v%|
00003500  29 2c 2d 31 29 0d 0c e4  05 cd 0d 0c ee 05 e1 0d  |),-1)...........|
00003510  0c f8 2b dd f2 50 28 67  25 29 3a 62 25 28 76 25  |..+..P(g%):b%(v%|
00003520  29 3d 67 25 2d 39 3a c8  a2 76 25 2c 34 30 2a 28  |)=g%-9:..v%,40*(|
00003530  67 25 2d 39 29 3a f2 68  3a e1 0d 0d 02 4b dd f2  |g%-9):.h:....K..|
00003540  68 3a e3 66 25 3d 36 b8  31 32 3a 64 25 3d a4 61  |h:.f%=6.12:d%=.a|
00003550  28 71 25 2c 74 25 2c 66  25 2c 22 6f 66 66 22 2c  |(q%,t%,f%,"off",|
00003560  2d 31 29 3a ed 3a 64 25  3d a4 61 28 71 25 2c 74  |-1):.:d%=.a(q%,t|
00003570  25 2c 39 2b 62 25 28 76  25 29 2c 22 6f 6e 22 2c  |%,9+b%(v%),"on",|
00003580  2d 31 29 3a e1 0d 0d 0c  13 dd f2 53 3a 4f 25 3d  |-1):.......S:O%=|
00003590  ac 4f 25 3a e7 4f 25 8c  0d 0d 16 1b 64 25 3d a4  |.O%:.O%.....d%=.|
000035a0  61 28 71 25 2c 6a 25 2c  30 2c 22 62 6f 6e 22 2c  |a(q%,j%,0,"bon",|
000035b0  2d 31 29 0d 0d 20 1e cc  3a 64 25 3d a4 61 28 71  |-1).. ..:d%=.a(q|
000035c0  25 2c 6a 25 2c 30 2c 22  62 6f 66 66 22 2c 2d 31  |%,j%,0,"boff",-1|
000035d0  29 0d 0d 2a 05 cd 0d 0d  34 05 e1 0d 0d 3e 13 dd  |)..*....4....>..|
000035e0  f2 71 3a 47 25 3d ac 47  25 3a e7 47 25 8c 0d 0d  |.q:G%=.G%:.G%...|
000035f0  48 1b 64 25 3d a4 61 28  71 25 2c 6a 25 2c 31 2c  |H.d%=.a(q%,j%,1,|
00003600  22 62 6f 6e 22 2c 2d 31  29 0d 0d 52 1e cc 3a 64  |"bon",-1)..R..:d|
00003610  25 3d a4 61 28 71 25 2c  6a 25 2c 31 2c 22 62 6f  |%=.a(q%,j%,1,"bo|
00003620  66 66 22 2c 2d 31 29 0d  0d 5c 05 cd 0d 0d 66 05  |ff",-1)..\....f.|
00003630  e1 0d 0d 70 19 dd f2 52  28 67 25 29 3a e7 67 25  |...p...R(g%):.g%|
00003640  3e 31 32 3a 67 25 2d 3d  31 32 0d 0d 7a 09 c8 8e  |>12:g%-=12..z...|
00003650  67 25 ca 0d 0d 84 15 c9  31 30 2c 31 31 2c 31 32  |g%......10,11,12|
00003660  3a 67 25 2b 3d 34 34 38  0d 0d 8e 0d 7f 3a 67 25  |:g%+=448.....:g%|
00003670  2b 3d 33 38 34 0d 0d 98  05 cb 0d 0d a2 1c c8 99  |+=384...........|
00003680  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00003690  22 2c 67 25 3a e1 0d 0d  ac 4f dd f2 75 3a 6a 62  |",g%:....O..u:jb|
000036a0  25 3d eb 3a eb 30 3a 87  3a c8 97 87 3a d1 3d 30  |%=.:.0:.:...:.=0|
000036b0  3a f5 3a fd 91 3e 31 35  30 3a 64 25 3d a0 28 22  |:.:..>150:d%=.("|
000036c0  46 4e 22 2b c3 28 56 61  25 29 29 3a c8 99 22 57  |FN"+.(Va%)):.."W|
000036d0  69 6d 70 5f 53 65 74 4d  6f 64 65 22 2c 6a 62 25  |imp_SetMode",jb%|
000036e0  3a c8 97 ee 31 0d 0d b6  0a 21 64 3d 30 3a e1 0d  |:...1....!d=0:..|
000036f0  0d c0 37 dd f2 54 3a c8  99 22 57 69 6d 70 5f 46  |..7..T:.."Wimp_F|
00003700  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 31 2c 30  |orceRedraw",-1,0|
00003710  2c 30 2c 6b 62 25 3c 3c  6c 62 25 2c 6d 62 25 3c  |,0,kb%<<lb%,mb%<|
00003720  3c 6e 62 25 3a e1 0d 0d  ca 21 dd f2 72 28 67 25  |<nb%:....!..r(g%|
00003730  29 3a e7 67 25 3d 34 8c  72 25 2d 3d 31 30 30 8b  |):.g%=4.r%-=100.|
00003740  72 25 2b 3d 31 30 30 0d  0d d4 12 e7 72 25 3c 35  |r%+=100.....r%<5|
00003750  30 30 8c 72 25 3d 35 30  30 0d 0d de 16 e7 72 25  |00.r%=500.....r%|
00003760  3e 36 30 30 30 30 8c 72  25 3d 36 30 30 30 30 0d  |>60000.r%=60000.|
00003770  0d e8 1e f2 61 28 71 25  2c 6a 25 2c 38 2c c3 28  |....a(q%,j%,8,.(|
00003780  72 25 81 31 30 30 29 2c  2d 31 29 3a e1 0d 0d f2  |r%.100),-1):....|
00003790  14 dd f2 4a 28 73 24 29  3a e7 48 61 25 3d 45 25  |...J(s$):.Ha%=E%|
000037a0  8c 0d 0d fc 2e ff 22 52  45 4e 41 4d 45 20 22 2b  |......"RENAME "+|
000037b0  70 24 2b 22 20 22 2b 73  24 2b a4 69 28 70 24 29  |p$+" "+s$+.i(p$)|
000037c0  2b 22 20 7b 20 3e 20 6e  75 6c 6c 3a 20 7d 22 0d  |+" { > null: }".|
000037d0  0e 06 19 cc 3a f2 6d 61  28 73 24 2b a4 64 28 71  |....:.ma(s$+.d(q|
000037e0  25 2c 56 25 2c 30 29 29  0d 0e 10 05 cd 0d 0e 1a  |%,V%,0))........|
000037f0  0c f2 67 28 45 25 29 3a  e1 0d 0e 24 e5 dd f2 74  |..g(E%):...$...t|
00003800  28 48 61 25 29 3a ea 78  25 2c 79 25 2c 6f 62 25  |(Ha%):.x%,y%,ob%|
00003810  3a 21 71 25 3d 48 61 25  3a c8 99 22 57 69 6d 70  |:!q%=Ha%:.."Wimp|
00003820  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00003830  2c 2c 71 25 3a 6f 62 25  3d 71 25 21 31 36 2d 71  |,,q%:ob%=q%!16-q|
00003840  25 21 38 3a 78 25 3d 71  25 21 34 3a 79 25 3d 71  |%!8:x%=q%!4:y%=q|
00003850  25 21 38 3a 71 25 21 34  3d 58 61 25 3a c8 99 22  |%!8:q%!4=Xa%:.."|
00003860  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00003870  65 22 2c 2c 71 25 3a 71  25 21 38 2b 3d 78 25 3a  |e",,q%:q%!8+=x%:|
00003880  71 25 21 31 32 2b 3d 79  25 2b 6f 62 25 3a 71 25  |q%!12+=y%+ob%:q%|
00003890  21 31 36 2b 3d 78 25 3a  71 25 21 32 30 2b 3d 79  |!16+=x%:q%!20+=y|
000038a0  25 2b 6f 62 25 3a 71 25  21 32 34 3d 30 3a 71 25  |%+ob%:q%!24=0:q%|
000038b0  21 32 38 3d 30 3a 71 25  21 33 32 3d 31 32 37 39  |!28=0:q%!32=1279|
000038c0  3a 71 25 21 33 36 3d 31  30 32 33 3a 21 71 25 3d  |:q%!36=1023:!q%=|
000038d0  30 3a 71 25 21 34 3d 35  3a 44 61 25 3d b9 0d 0e  |0:q%!4=5:Da%=...|
000038e0  2e 1a c8 99 22 57 69 6d  70 5f 44 72 61 67 42 6f  |...."Wimp_DragBo|
000038f0  78 22 2c 2c 71 25 3a e1  0d 0e 38 3f dd f2 6e 61  |x",,q%:...8?..na|
00003900  28 70 62 25 2c 61 25 29  3a 21 60 61 25 3d 70 62  |(pb%,a%):!`a%=pb|
00003910  25 3a 60 61 25 21 34 3d  61 25 3a c8 99 22 57 69  |%:`a%!4=a%:.."Wi|
00003920  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00003930  2c 2c 60 61 25 3a e1 0d  0e 42 23 dd a4 67 28 70  |,,`a%:...B#..g(p|
00003940  62 25 2c 61 25 29 3a f2  6e 61 28 70 62 25 2c 61  |b%,a%):.na(pb%,a|
00003950  25 29 3a 3d 60 61 25 21  32 38 0d 0e 4c 0d dd f2  |%):=`a%!28..L...|
00003960  44 3a e7 44 61 25 8c 0d  0e 56 a0 c8 99 22 57 69  |D:.Da%...V..."Wi|
00003970  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00003980  6f 22 2c 2c 71 25 3a 71  25 21 33 32 3d 71 25 21  |o",,q%:q%!32=q%!|
00003990  34 3a 71 25 21 32 38 3d  21 71 25 3a 71 25 21 32  |4:q%!28=!q%:q%!2|
000039a0  34 3d 71 25 21 31 36 3a  71 25 21 32 30 3d 71 25  |4=q%!16:q%!20=q%|
000039b0  21 31 32 3a 71 25 21 31  36 3d 31 3a 71 25 21 31  |!12:q%!16=1:q%!1|
000039c0  32 3d 30 3a 71 25 21 33  36 3d 30 3a 71 25 21 34  |2=0:q%!36=0:q%!4|
000039d0  30 3d 30 3a 24 28 71 25  2b 34 34 29 3d 22 22 3a  |0=0:$(q%+44)="":|
000039e0  21 71 25 3d 36 30 3a c8  99 22 57 69 6d 70 5f 53  |!q%=60:.."Wimp_S|
000039f0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
00003a00  25 2c 71 25 21 32 30 0d  0e 60 05 cd 0d 0e 6a 05  |%,q%!20..`....j.|
00003a10  e1 0d 0e 74 5c dd f2 68  61 28 65 25 29 3a f2 64  |...t\..ha(e%):.d|
00003a20  28 65 25 29 3a 57 25 3d  7a 61 25 2d 28 44 25 2b  |(e%):W%=za%-(D%+|
00003a30  4a 25 29 2f 32 3a 5a 25  3d 5f 25 2d 28 46 25 2b  |J%)/2:Z%=_%-(F%+|
00003a40  36 34 29 3a f2 65 28 65  25 2c 44 25 2b 57 25 2c  |64):.e(e%,D%+W%,|
00003a50  49 25 2b 5a 25 2c 4a 25  2b 57 25 2c 46 25 2b 5a  |I%+Z%,J%+W%,F%+Z|
00003a60  25 2c 4b 25 2c 4c 25 2c  2d 31 29 3a e1 0d 0e 7e  |%,K%,L%,-1):...~|
00003a70  6f dd a4 69 28 73 24 29  3a 65 24 3d 73 24 3a c8  |o..i(s$):e$=s$:.|
00003a80  95 a7 73 24 2c 22 3a 22  29 3e 30 3a 73 24 3d c1  |..s$,":")>0:s$=.|
00003a90  73 24 2c a7 73 24 2c 22  3a 22 29 2b 31 29 3a ce  |s$,.s$,":")+1):.|
00003aa0  3a c8 95 a7 73 24 2c 22  2e 22 29 3e 30 3a 73 24  |:...s$,".")>0:s$|
00003ab0  3d c1 73 24 2c a7 73 24  2c 22 2e 22 29 2b 31 29  |=.s$,.s$,".")+1)|
00003ac0  3a ce 3a 78 24 3d c0 65  24 2c a9 28 65 24 29 2d  |:.:x$=.e$,.(e$)-|
00003ad0  a9 28 73 24 29 2d 31 29  3a 3d 73 24 0d 0e 88 5f  |.(s$)-1):=s$..._|
00003ae0  dd f2 6d 61 28 66 24 29  3a 71 62 25 3d ae 66 24  |..ma(f$):qb%=.f$|
00003af0  3a e3 66 25 3d 31 b8 32  33 39 3a c8 99 22 4f 53  |:.f%=1.239:.."OS|
00003b00  5f 42 79 74 65 22 2c 31  36 31 2c 66 25 b8 2c 2c  |_Byte",161,f%.,,|
00003b10  72 62 25 3a d5 23 71 62  25 2c 72 62 25 3a ed 3a  |rb%:.#qb%,rb%:.:|
00003b20  d9 23 71 62 25 3a c8 99  22 4f 53 5f 46 69 6c 65  |.#qb%:.."OS_File|
00003b30  22 2c 31 38 2c 66 24 2c  32 35 36 0d 0e 92 0f 2a  |",18,f$,256....*|
00003b40  46 58 31 33 38 20 30 20  32 37 0d 0e 9c 05 e1 0d  |FX138 0 27......|
00003b50  0e a6 49 dd f2 6b 61 28  66 24 29 3a 71 62 25 3d  |..I..ka(f$):qb%=|
00003b60  8e 66 24 3a e3 66 25 3d  31 b8 32 33 39 3a 72 62  |.f$:.f%=1.239:rb|
00003b70  25 3d 9a 23 71 62 25 3a  c8 99 22 4f 53 5f 42 79  |%=.#qb%:.."OS_By|
00003b80  74 65 22 2c 31 36 32 2c  66 25 2c 72 62 25 3a ed  |te",162,f%,rb%:.|
00003b90  3a d9 23 71 62 25 3a e1  0d 0e b0 16 dd f2 55 3a  |:.#qb%:.......U:|
00003ba0  73 62 25 3d ac 73 62 25  3a e7 73 62 25 8c 0d 0e  |sb%=.sb%:.sb%...|
00003bb0  ba 34 64 25 3d a4 61 28  71 25 2c 6b 25 2c 31 36  |.4d%=.a(q%,k%,16|
00003bc0  2c 22 62 6f 6e 22 2c 2d  31 29 3a c8 99 22 4f 53  |,"bon",-1):.."OS|
00003bd0  5f 55 70 64 61 74 65 4d  45 4d 43 22 2c 36 34 2c  |_UpdateMEMC",64,|
00003be0  36 34 0d 0e c4 36 cc 3a  64 25 3d a4 61 28 71 25  |64...6.:d%=.a(q%|
00003bf0  2c 6b 25 2c 31 36 2c 22  62 6f 66 66 22 2c 2d 31  |,k%,16,"boff",-1|
00003c00  29 3a c8 99 22 4f 53 5f  55 70 64 61 74 65 4d 45  |):.."OS_UpdateME|
00003c10  4d 43 22 2c 30 2c 36 34  0d 0e ce 05 cd 0d 0e d8  |MC",0,64........|
00003c20  05 e1 0d 0e e2 3d dd f2  57 3a e7 a4 68 28 22 41  |.....=..W:..h("A|
00003c30  72 65 20 79 6f 75 20 73  75 72 65 20 79 6f 75 20  |re you sure you |
00003c40  77 69 73 68 20 74 6f 20  73 68 75 74 64 6f 77 6e  |wish to shutdown|
00003c50  20 74 68 65 20 73 79 73  74 65 6d 3f 22 29 8c 0d  | the system?")..|
00003c60  0e ec 47 ff 22 53 68 75  74 22 3a ff 22 43 6c 6f  |..G."Shut":."Clo|
00003c70  73 65 22 3a ff 22 4e 6f  44 49 52 22 3a ff 22 4e  |se":."NoDIR":."N|
00003c80  6f 55 52 44 22 3a ff 22  4e 6f 4c 49 42 22 3a ff  |oURD":."NoLIB":.|
00003c90  22 44 69 73 6d 6f 75 6e  74 22 3a ff 22 53 68 75  |"Dismount":."Shu|
00003ca0  74 44 6f 77 6e 22 0d 0e  f6 95 e7 a4 68 28 22 41  |tDown"......h("A|
00003cb0  6c 6c 20 66 69 6c 65 73  20 63 6c 6f 73 65 64 2c  |ll files closed,|
00003cc0  20 68 61 72 64 20 64 69  73 63 73 20 70 61 72 6b  | hard discs park|
00003cd0  65 64 2c 20 66 69 6c 65  20 73 65 72 76 65 72 73  |ed, file servers|
00003ce0  20 6c 6f 67 67 65 64 2d  6f 66 66 2e 20 43 6c 69  | logged-off. Cli|
00003cf0  63 6b 20 6f 6e 20 4f 4b  20 74 6f 20 72 65 73 65  |ck on OK to rese|
00003d00  74 20 74 68 65 20 6d 61  63 68 69 6e 65 2c 20 6f  |t the machine, o|
00003d10  72 20 6f 6e 20 43 41 4e  43 45 4c 20 74 6f 20 6b  |r on CANCEL to k|
00003d20  65 65 70 20 74 68 65 20  64 65 73 6b 74 6f 70 20  |eep the desktop |
00003d30  61 73 20 69 74 20 69 73  22 29 8c 0d 0f 00 0c 2a  |as it is").....*|
00003d40  46 58 32 30 30 20 32 0d  0f 0a 77 de 7a 6b 25 20  |FX200 2...w.zk% |
00003d50  33 32 3a 50 25 3d 7a 6b  25 3a 5b 3a 4f 50 54 20  |32:P%=zk%:[:OPT |
00003d60  30 3a 4d 4f 56 20 30 2c  23 26 33 38 30 30 30 30  |0:MOV 0,#&380000|
00003d70  30 3a 4c 44 52 20 31 2c  5b 30 5d 3a 53 54 52 20  |0:LDR 1,[0]:STR |
00003d80  31 2c 5b 31 2c 2d 31 5d  3a 53 57 49 20 22 58 4f  |1,[1,-1]:SWI "XO|
00003d90  53 5f 45 6e 74 65 72 4f  53 22 3a 54 45 51 50 20  |S_EnterOS":TEQP |
00003da0  50 43 2c 23 26 46 43 30  30 30 30 30 33 3a 4d 4f  |PC,#&FC000003:MO|
00003db0  56 20 50 43 2c 23 30 3a  5d 3a d6 7a 6b 25 0d 0f  |V PC,#0:]:.zk%..|
00003dc0  14 05 cd 0d 0f 1e 05 cd  0d 0f 28 05 e1 0d 0f 32  |..........(....2|
00003dd0  12 dd f2 58 28 61 25 29  3a e7 61 25 3d 39 8c 0d  |...X(a%):.a%=9..|
00003de0  0f 3c 16 6c 25 3d 6c 25  2d 31 3a e7 6c 25 3c 31  |.<.l%=l%-1:.l%<1|
00003df0  3a 6c 25 3d 39 0d 0f 46  18 cc 3a 6c 25 3d 6c 25  |:l%=9..F..:l%=l%|
00003e00  2b 31 3a e7 6c 25 3e 39  3a 6c 25 3d 31 0d 0f 50  |+1:.l%>9:l%=1..P|
00003e10  05 cd 0d 0f 5a 21 f2 61  28 71 25 2c 6b 25 2c 31  |....Z!.a(q%,k%,1|
00003e20  32 2c c3 28 6c 25 29 2c  2d 31 29 3a c8 97 88 6c  |2,.(l%),-1):...l|
00003e30  25 3a e1 0d 0f 64 17 dd  f2 56 28 61 25 29 3a e7  |%:...d...V(a%):.|
00003e40  61 25 3d 32 30 3a 61 25  3d 33 0d 0f 6e 0f e7 61  |a%=20:a%=3..n..a|
00003e50  25 3d 32 31 3a 61 25 3d  35 0d 0f 78 0f e7 61 25  |%=21:a%=5..x..a%|
00003e60  3d 32 32 3a 61 25 3d 36  0d 0f 82 1b e7 61 25 3d  |=22:a%=6.....a%=|
00003e70  33 3a 61 24 28 31 29 3d  a4 64 28 71 25 2c 6b 25  |3:a$(1)=.d(q%,k%|
00003e80  2c 34 29 0d 0f 8c 1b e7  61 25 3d 35 3a 61 24 28  |,4).....a%=5:a$(|
00003e90  32 29 3d a4 64 28 71 25  2c 6b 25 2c 37 29 0d 0f  |2)=.d(q%,k%,7)..|
00003ea0  96 1b e7 61 25 3d 36 3a  61 24 28 33 29 3d a4 64  |...a%=6:a$(3)=.d|
00003eb0  28 71 25 2c 6b 25 2c 38  29 0d 0f a0 47 74 62 25  |(q%,k%,8)...Gtb%|
00003ec0  3d 61 25 81 32 3a c8 99  22 57 69 6d 70 5f 53 65  |=a%.2:.."Wimp_Se|
00003ed0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00003ee0  30 2c 30 3a c8 99 22 57  69 6d 70 5f 53 74 61 72  |0,0:.."Wimp_Star|
00003ef0  74 54 61 73 6b 22 2c 61  24 28 74 62 25 29 3a e1  |tTask",a$(tb%):.|
00003f00  0d 0f aa 28 dd f2 69 61  3a e7 64 62 25 8c ff 22  |...(..ia:.db%.."|
00003f10  41 43 43 45 53 53 20 22  2b a4 62 28 71 25 2b 34  |ACCESS "+.b(q%+4|
00003f20  34 29 2b 22 20 57 52 22  0d 0f b4 25 e7 ac 64 62  |4)+" WR"...%..db|
00003f30  25 8c ff 22 41 43 43 45  53 53 20 22 2b a4 62 28  |%.."ACCESS "+.b(|
00003f40  71 25 2b 34 34 29 2b 22  20 4c 57 52 22 0d 0f be  |q%+44)+" LWR"...|
00003f50  05 e1 0d 0f c8 18 dd f2  73 28 67 25 29 3a e7 67  |........s(g%):.g|
00003f60  25 3e 31 34 3a 67 25 2d  3d 34 0d 0f d2 52 67 25  |%>14:g%-=4...Rg%|
00003f70  2d 3d 31 30 3a 56 61 25  3d 67 25 3a e3 66 25 3d  |-=10:Va%=g%:.f%=|
00003f80  31 35 b8 31 38 3a 72 3d  a4 61 28 71 25 2c 6a 25  |15.18:r=.a(q%,j%|
00003f90  2c 66 25 2c 22 6f 66 66  22 2c 2d 31 29 3a ed 3a  |,f%,"off",-1):.:|
00003fa0  72 3d a4 61 28 71 25 2c  6a 25 2c 31 34 2b 56 61  |r=.a(q%,j%,14+Va|
00003fb0  25 2c 22 6f 6e 22 2c 2d  31 29 3a e1 0d 0f dc 46  |%,"on",-1):....F|
00003fc0  dd f2 7a 3a c8 99 22 4f  53 5f 4d 6f 64 75 6c 65  |..z:.."OS_Module|
00003fd0  22 2c 36 2c 2c 2c 31 36  b8 2c 2c 75 62 25 3a e7  |",6,,,16.,,ub%:.|
00003fe0  75 62 25 3c 32 35 31 36  35 38 32 34 8c 85 31 32  |ub%<25165824..12|
00003ff0  33 2c 22 4e 6f 20 72 6f  6f 6d 20 69 6e 20 52 4d  |3,"No room in RM|
00004000  41 22 0d 0f e6 66 e3 76  62 25 3d 30 b8 32 88 32  |A"...f.vb%=0.2.2|
00004010  3a 50 25 3d 75 62 25 3a  5b 4f 50 54 20 76 62 25  |:P%=ub%:[OPT vb%|
00004020  3a 2e 73 3a 43 4d 50 31  2c 23 30 3a 53 54 52 45  |:.s:CMP1,#0:STRE|
00004030  51 30 2c 64 3a 4d 4f 56  20 50 43 2c 31 34 3a 2e  |Q0,d:MOV PC,14:.|
00004040  64 3a 45 51 55 44 30 3a  20 5d 3a ed 3a c8 99 22  |d:EQUD0: ]:.:.."|
00004050  4f 53 5f 43 6c 61 69 6d  22 2c 32 30 2c 73 2c 30  |OS_Claim",20,s,0|
00004060  3a 77 62 25 3d b9 3a e1  0d 0f f0 dc dd f2 6a 3a  |:wb%=.:.......j:|
00004070  c8 99 22 58 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.."XOS_ReadModeV|
00004080  61 72 69 61 62 6c 65 22  2c eb 2c 34 b8 2c 2c 6c  |ariable",.,4.,,l|
00004090  62 25 3a c8 99 22 58 4f  53 5f 52 65 61 64 4d 6f  |b%:.."XOS_ReadMo|
000040a0  64 65 56 61 72 69 61 62  6c 65 22 2c eb 2c 35 b8  |deVariable",.,5.|
000040b0  2c 2c 6e 62 25 3a c8 99  22 58 4f 53 5f 52 65 61  |,,nb%:.."XOS_Rea|
000040c0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c eb  |dModeVariable",.|
000040d0  2c 31 31 b8 2c 2c 78 62  25 3a c8 99 22 58 4f 53  |,11.,,xb%:.."XOS|
000040e0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
000040f0  65 22 2c eb 2c 31 32 b8  2c 2c 79 62 25 3a 6b 62  |e",.,12.,,yb%:kb|
00004100  25 3d 78 62 25 2b 31 3a  6d 62 25 3d 79 62 25 2b  |%=xb%+1:mb%=yb%+|
00004110  31 3a c8 99 22 58 4f 53  5f 52 65 61 64 4d 6f 64  |1:.."XOS_ReadMod|
00004120  65 56 61 72 69 61 62 6c  65 22 2c eb 2c 33 b8 2c  |eVariable",.,3.,|
00004130  2c 7a 62 25 3a e7 7a 62  25 3d 36 33 3a 7a 62 25  |,zb%:.zb%=63:zb%|
00004140  3d 32 35 35 0d 0f fa 6c  f2 61 28 71 25 2c 6a 25  |=255...l.a(q%,j%|
00004150  2c 32 31 2c c3 28 6b 62  25 29 2c 2d 31 29 3a f2  |,21,.(kb%),-1):.|
00004160  61 28 71 25 2c 6a 25 2c  32 32 2c c3 28 6d 62 25  |a(q%,j%,22,.(mb%|
00004170  29 2c 2d 31 29 3a f2 61  28 71 25 2c 6a 25 2c 31  |),-1):.a(q%,j%,1|
00004180  39 2c c3 28 eb 29 2c 2d  31 29 3a f2 61 28 71 25  |9,.(.),-1):.a(q%|
00004190  2c 6a 25 2c 32 33 2c c3  28 7a 62 25 2b 31 29 2b  |,j%,23,.(zb%+1)+|
000041a0  22 20 63 6f 6c 6f 75 72  73 22 2c 2d 31 29 3a e1  |" colours",-1):.|
000041b0  0d 10 04 69 dd a4 31 3a  eb 39 3a 87 3a 43 3d 30  |...i..1:.9:.:C=0|
000041c0  3a e3 66 25 3d 31 b8 31  35 3a fb 66 25 2c 30 2c  |:.f%=1.15:.f%,0,|
000041d0  30 2c 30 3a ed 3a c8 97  75 25 2c 62 62 25 2c 6f  |0,0:.:..u%,bb%,o|
000041e0  25 3a e3 59 3d 30 b8 31  30 32 34 3a 59 2b 3d 39  |%:.Y=0.1024:Y+=9|
000041f0  2b b3 28 32 30 29 3a e3  58 3d 30 b8 31 32 38 30  |+.(20):.X=0.1280|
00004200  88 38 2b b3 28 39 29 3a  43 2b 3d 31 3a e6 43 3a  |.8+.(9):C+=1:.C:|
00004210  e7 43 3e 31 34 8c 43 3d  30 0d 10 0e 2c c8 92 58  |.C>14.C=0...,..X|
00004220  2c 59 3a ed 2c 3a f5 3a  c8 97 6d 25 2c 66 62 25  |,Y:.,:.:..m%,fb%|
00004230  2c 6f 25 3a e7 6d 25 3c  3e 75 25 84 6f 25 84 21  |,o%:.m%<>u%.o%.!|
00004240  64 8c 3d 6d 25 0d 10 18  2e e3 4b 3d 31 b8 31 35  |d.=m%.....K=1.15|
00004250  3a ef 31 39 2c 4b 2c 37  3b 30 3b 3a 41 24 3d bf  |:.19,K,7;0;:A$=.|
00004260  28 31 29 3a c8 96 3a ef  31 39 2c 4b 2c 30 3b 30  |(1):..:.19,K,0;0|
00004270  3b 3a ed 0d 10 22 0a fd  30 3a 3d 6d 25 0d 10 2c  |;:..."..0:=m%..,|
00004280  2d dd a4 32 3a 66 25 3d  30 3a c8 97 75 25 2c 62  |-..2:f%=0:..u%,b|
00004290  62 25 2c 6f 25 3a f5 3a  c8 97 6d 25 2c 66 62 25  |b%,o%:.:..m%,fb%|
000042a0  2c 6f 25 3a e7 66 25 3d  30 8c 0d 10 36 85 fb 31  |,o%:.f%=0...6..1|
000042b0  2c b3 28 32 35 35 29 2c  b3 28 32 35 35 29 2c b3  |,.(255),.(255),.|
000042c0  28 32 35 35 29 3a db 3a  66 25 3d 30 3a 77 25 3d  |(255):.:f%=0:w%=|
000042d0  38 30 30 3a 41 62 25 3d  34 3a 42 62 25 3d 34 3a  |800:Ab%=4:Bb%=4:|
000042e0  7a 25 3d 32 30 30 3a 43  25 3d 31 30 30 3a 78 25  |z%=200:C%=100:x%|
000042f0  3d b3 28 34 30 30 2f 42  62 25 29 2a 42 62 25 3a  |=.(400/Bb%)*Bb%:|
00004300  79 25 3d b3 28 34 30 30  2f 42 62 25 29 2a 42 62  |y%=.(400/Bb%)*Bb|
00004310  25 3a 43 62 25 3d b3 28  41 62 25 29 2a 42 62 25  |%:Cb%=.(Ab%)*Bb%|
00004320  3a 44 62 25 3d b3 28 41  62 25 29 2a 42 62 25 0d  |:Db%=.(Ab%)*Bb%.|
00004330  10 40 05 cd 0d 10 4a e5  66 25 2b 3d 31 3a c8 96  |.@....J.f%+=1:..|
00004340  3a ec 78 25 2b 7a 25 2c  79 25 2b 43 25 3a f0 36  |:.x%+z%,y%+C%:.6|
00004350  2c 78 25 2b 7a 25 2c 28  77 25 2d 79 25 29 2b 43  |,x%+z%,(w%-y%)+C|
00004360  25 3a f0 36 2c 28 77 25  2d 78 25 29 2b 7a 25 2c  |%:.6,(w%-x%)+z%,|
00004370  28 77 25 2d 79 25 29 2b  43 25 3a f0 36 2c 28 77  |(w%-y%)+C%:.6,(w|
00004380  25 2d 78 25 29 2b 7a 25  2c 79 25 2b 43 25 3a f0  |%-x%)+z%,y%+C%:.|
00004390  36 2c 78 25 2b 7a 25 2c  79 25 2b 43 25 3a ec 79  |6,x%+z%,y%+C%:.y|
000043a0  25 2b 7a 25 2c 78 25 2b  43 25 3a f0 36 2c 79 25  |%+z%,x%+C%:.6,y%|
000043b0  2b 7a 25 2c 28 77 25 2d  78 25 29 2b 43 25 3a f0  |+z%,(w%-x%)+C%:.|
000043c0  36 2c 28 77 25 2d 79 25  29 2b 7a 25 2c 28 77 25  |6,(w%-y%)+z%,(w%|
000043d0  2d 78 25 29 2b 43 25 3a  f0 36 2c 28 77 25 2d 79  |-x%)+C%:.6,(w%-y|
000043e0  25 29 2b 7a 25 2c 78 25  2b 43 25 3a f0 36 2c 79  |%)+z%,x%+C%:.6,y|
000043f0  25 2b 7a 25 2c 78 25 2b  43 25 3a 78 25 3d 78 25  |%+z%,x%+C%:x%=x%|
00004400  2b 43 62 25 3a e7 78 25  3e 77 25 84 78 25 3c 30  |+Cb%:.x%>w%.x%<0|
00004410  3a 43 62 25 3d 2d 43 62  25 0d 10 54 22 79 25 3d  |:Cb%=-Cb%..T"y%=|
00004420  79 25 2b 44 62 25 3a e7  79 25 3e 77 25 84 79 25  |y%+Db%:.y%>w%.y%|
00004430  3c 30 3a 44 62 25 3d 2d  44 62 25 0d 10 5e 10 e7  |<0:Db%=-Db%..^..|
00004440  66 25 3e 32 30 30 3a 66  25 3d 30 0d 10 68 15 fd  |f%>200:f%=0..h..|
00004450  75 25 3c 3e 6d 25 84 6f  25 84 21 64 3a 3d 66 25  |u%<>m%.o%.!d:=f%|
00004460  0d 10 72 33 dd a4 34 3a  c8 97 75 25 2c 62 62 25  |..r3..4:..u%,bb%|
00004470  2c 6f 25 3a f5 3a c8 97  6d 25 2c 66 62 25 2c 6f  |,o%:.:..m%,fb%,o|
00004480  25 3a fd 75 25 3c 3e 6d  25 84 6f 25 84 21 64 3a  |%:.u%<>m%.o%.!d:|
00004490  3d 6d 25 0d 10 7c 24 dd  a4 33 3a c8 97 75 25 2c  |=m%..|$..3:..u%,|
000044a0  62 62 25 2c 6f 25 3a f5  3a c8 97 6d 25 2c 66 62  |bb%,o%:.:..m%,fb|
000044b0  25 2c 6f 25 3a ef 35 0d  10 86 5c e6 33 2c 31 3a  |%,o%:.5...\.3,1:|
000044c0  45 62 25 3d b3 28 31 31  30 30 29 3a 46 62 25 3d  |Eb%=.(1100):Fb%=|
000044d0  b3 28 31 30 30 30 29 3a  ec 45 62 25 2c 46 62 25  |.(1000):.Eb%,Fb%|
000044e0  3a 71 24 3d 91 24 3a f1  71 24 3a ec 45 62 25 2c  |:q$=.$:.q$:.Eb%,|
000044f0  46 62 25 3a d1 3d 30 3a  f5 fd 91 3e 38 35 3a f1  |Fb%:.=0:...>85:.|
00004500  71 24 3a fd 75 25 3c 3e  6d 25 84 6f 25 84 21 64  |q$:.u%<>m%.o%.!d|
00004510  3a ef 34 0d 10 90 07 3d  6d 25 0d 10 9a 21 dd f2  |:.4....=m%...!..|
00004520  59 3a ff 22 4b 65 79 20  31 32 20 42 41 53 49 43  |Y:."Key 12 BASIC|
00004530  7c 56 7c 40 7c 4c 7c 54  7c 4d 22 0d 10 a4 10 2a  ||V|@|L|T|M"....*|
00004540  46 58 31 33 38 20 30 20  32 30 34 0d 10 ae 10 2a  |FX138 0 204....*|
00004550  46 58 31 33 38 20 30 20  32 30 34 0d 10 b8 05 e1  |FX138 0 204.....|
00004560  0d 10 c2 30 dd f2 5a 3a  64 62 25 3d ac 64 62 25  |...0..Z:db%=.db%|
00004570  3a e7 64 62 25 8c 64 25  3d a4 61 28 71 25 2c 55  |:.db%.d%=.a(q%,U|
00004580  25 2c 35 2c 22 75 6e 6c  6f 63 6b 22 2c 2d 31 29  |%,5,"unlock",-1)|
00004590  0d 10 cc 22 e7 ac 64 62  25 8c 64 25 3d a4 61 28  |..."..db%.d%=.a(|
000045a0  71 25 2c 55 25 2c 35 2c  22 6c 6f 63 6b 22 2c 2d  |q%,U%,5,"lock",-|
000045b0  31 29 0d 10 d6 05 e1 0d  10 e0 e2 dd f2 61 61 3a  |1)...........aa:|
000045c0  61 24 28 31 29 3d a4 64  28 71 25 2c 6b 25 2c 34  |a$(1)=.d(q%,k%,4|
000045d0  29 3a 61 24 28 32 29 3d  a4 64 28 71 25 2c 6b 25  |):a$(2)=.d(q%,k%|
000045e0  2c 37 29 3a 61 24 28 33  29 3d a4 64 28 71 25 2c  |,7):a$(3)=.d(q%,|
000045f0  6b 25 2c 38 29 3a 64 25  3d ae 22 3c 55 74 69 6c  |k%,8):d%=."<Util|
00004600  73 24 44 69 72 3e 2e 53  74 61 74 75 73 22 3a e3  |s$Dir>.Status":.|
00004610  66 25 3d 30 b8 33 3a d5  23 64 25 2c c3 28 61 25  |f%=0.3:.#d%,.(a%|
00004620  28 66 25 29 29 3a ed 3a  d5 23 64 25 2c c3 28 51  |(f%)):.:.#d%,.(Q|
00004630  25 29 3a d5 23 64 25 2c  c3 28 52 25 29 3a e3 66  |%):.#d%,.(R%):.f|
00004640  25 3d 31 b8 38 3a d5 23  64 25 2c c3 28 62 25 28  |%=1.8:.#d%,.(b%(|
00004650  66 25 29 29 3a ed 3a d5  23 64 25 2c c3 28 4f 25  |f%)):.:.#d%,.(O%|
00004660  29 3a d5 23 64 25 2c c3  28 47 25 29 3a d5 23 64  |):.#d%,.(G%):.#d|
00004670  25 2c c3 28 56 61 25 29  3a d5 23 64 25 2c c3 28  |%,.(Va%):.#d%,.(|
00004680  72 25 29 3a e3 66 25 3d  31 b8 33 3a d5 23 64 25  |r%):.f%=1.3:.#d%|
00004690  2c 61 24 28 66 25 29 3a  ed 0d 10 ea 15 d5 23 64  |,a$(f%):......#d|
000046a0  25 2c c3 28 6c 25 29 3a  d9 23 64 25 3a e1 0d 10  |%,.(l%):.#d%:...|
000046b0  f4 bb dd f2 79 3a 64 25  3d 8e 22 3c 55 74 69 6c  |....y:d%=."<Util|
000046c0  73 24 44 69 72 3e 2e 53  74 61 74 75 73 22 3a e3  |s$Dir>.Status":.|
000046d0  66 25 3d 30 b8 33 3a 61  25 28 66 25 29 3d bb 28  |f%=0.3:a%(f%)=.(|
000046e0  be 23 64 25 29 3a ed 3a  51 25 3d bb 28 be 23 64  |.#d%):.:Q%=.(.#d|
000046f0  25 29 3a 52 25 3d bb 28  be 23 64 25 29 3a e3 66  |%):R%=.(.#d%):.f|
00004700  25 3d 31 b8 38 3a 62 25  28 66 25 29 3d bb 28 be  |%=1.8:b%(f%)=.(.|
00004710  23 64 25 29 3a ed 3a 4f  25 3d bb 28 be 23 64 25  |#d%):.:O%=.(.#d%|
00004720  29 3a 47 25 3d bb 28 be  23 64 25 29 3a 56 61 25  |):G%=.(.#d%):Va%|
00004730  3d bb 28 be 23 64 25 29  3a 72 25 3d bb 28 be 23  |=.(.#d%):r%=.(.#|
00004740  64 25 29 3a e3 66 25 3d  31 b8 33 3a 61 24 28 66  |d%):.f%=1.3:a$(f|
00004750  25 29 3d be 23 64 25 3a  ed 3a 6c 25 3d bb 28 be  |%)=.#d%:.:l%=.(.|
00004760  23 64 25 29 3a d9 23 64  25 0d 10 fe 51 f2 61 28  |#d%):.#d%...Q.a(|
00004770  71 25 2c 6b 25 2c 31 32  2c c3 28 6c 25 29 2c 30  |q%,k%,12,.(l%),0|
00004780  29 3a c8 97 88 6c 25 3a  e7 4f 25 3a 64 25 3d a4  |):...l%:.O%:d%=.|
00004790  61 28 71 25 2c 6a 25 2c  30 2c 22 62 6f 6e 22 2c  |a(q%,j%,0,"bon",|
000047a0  30 29 8b 64 25 3d a4 61  28 71 25 2c 6a 25 2c 30  |0).d%=.a(q%,j%,0|
000047b0  2c 22 62 6f 66 66 22 2c  30 29 0d 11 08 83 52 25  |,"boff",0)....R%|
000047c0  3d ac 52 25 3a f2 70 3a  51 25 3d ac 51 25 3a f2  |=.R%:.p:Q%=.Q%:.|
000047d0  6f 3a f2 61 28 71 25 2c  6b 25 2c 34 2c 61 24 28  |o:.a(q%,k%,4,a$(|
000047e0  31 29 2c 30 29 3a f2 61  28 71 25 2c 6b 25 2c 37  |1),0):.a(q%,k%,7|
000047f0  2c 61 24 28 32 29 2c 30  29 3a f2 61 28 71 25 2c  |,a$(2),0):.a(q%,|
00004800  6b 25 2c 38 2c 61 24 28  33 29 2c 30 29 3a 47 25  |k%,8,a$(3),0):G%|
00004810  3d ac 47 25 3a f2 71 3a  f2 73 28 56 61 25 2b 31  |=.G%:.q:.s(Va%+1|
00004820  30 29 3a f2 61 28 71 25  2c 6a 25 2c 38 2c c3 28  |0):.a(q%,j%,8,.(|
00004830  72 25 81 31 30 30 29 2c  2d 31 29 3a e1 0d 11 12  |r%.100),-1):....|
00004840  60 dd f2 41 3a e3 66 25  3d 33 33 b8 33 36 3a 64  |`..A:.f%=33.36:d|
00004850  25 3d a4 61 28 71 25 2c  70 25 2c 66 25 2c 22 66  |%=.a(q%,p%,f%,"f|
00004860  69 6c 65 5f 22 2b c3 7e  28 61 25 28 66 25 2d 33  |ile_"+.~(a%(f%-3|
00004870  33 29 29 2c 30 29 3a f2  61 28 71 25 2c 70 25 2c  |3)),0):.a(q%,p%,|
00004880  66 25 2d 33 33 2b 32 30  2c c3 7e 28 61 25 28 66  |f%-33+20,.~(a%(f|
00004890  25 2d 33 33 29 29 2c 30  29 3a ed 3a e1 0d ff     |%-33)),0):.:...|
0000489f