Home » Archimedes archive » Acorn User » AU 1994-02.adf » !Larger_Larger » !Larger/Setup
!Larger/Setup
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1994-02.adf » !Larger_Larger |
| Filename: | !Larger/Setup |
| Read OK: | ✔ |
| File size: | 1FCA bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>!Larger.Setup
20DEFPROCt_:wimpinit%=&400c0:wimpcreatewindow%=&400c1:wimpcreateicon%=&400c2:wimpdeleteicon%=&400c4:wimpopenwindow%=&400c5:wimpclosewindow%=&400c6:wimppoll%=&400c7:wimpredrawwindow%=&400c8:wimpsetextent%=&400d7:wimpgetrectangle%=&400ca:wimpgws%=&400cb
30wimpgwi%=&400cc:wimpsis%=&400cd:wimpgis%=&400ce:wimpgetpointerinfo%=&400cf:wimpdragbox%=&400d0:wimpforceredraw%=&400d1:wimpsetcaretpos%=&400d2:wimpgetcaretpos%=&400d3:wimpcreatemenu%=&400d4:wimpopentemplate%=&400d9:wimpclosetemplate%=&400da
40wimploadtemplate%=&400db:wimpprocesskey%=&400dc:wimpclosedown%=&400dd:wimperr%=&400df:wimpgwo%=&400e0:wimpploticon%=&400e2:wimpsm%=&400e7:wimpspriteop%=&400e9:xwimpspriteop%=&400e9+&20000:wimpbaseofspr%=&400ea:wimpreadpixtrans%=&400ed
50wimptransblk%=&400f1:largersuppwsh%=&446c0:largersupprfm%=&446c1:largersupprwof%=&446c5:ENDPROC
60DEFPROCfy:menuareatop%=menublock%+2500:menuendptr%=menublock%+100:PROCJ("Larger|Info|Save|Load|Desktop|User|Map...|Config...|Quit",menuendptr%,0,menublock%,menuareatop%)
70PROCJ("Desktop|Home|Retrieve|Cycle Windows|Cycle Tasks",menuendptr%,1,menublock%,menuareatop%):PROCJ("Pre Params|*prebuffer%,,80",menuendptr%,2,menublock%,menuareatop%):PROCJ("Post Params|*postbuffer%,,80",menuendptr%,3,menublock%,menuareatop%)
80PROCJ("Ctrl Key|*hotbuffer%,,2",menuendptr%,4,menublock%,menuareatop%):PROCJ("Filename|*runwithbuffer%,,80",menuendptr%,5,menublock%,menuareatop%)
90PROCJ("Larger|Larger|�App. '1234567890'|Select all|Clear Selection|Options|New Backdrop|Open Parent",menuendptr%,7,menublock%,menuareatop%)
100PROCJ("Application|Copy|Rename|Remove|~�Access|Count|Help|~Info|Find|Set type|:Stamp|Drag Onto|Open Parent|Ctrl Key|Pre Params|Post Params|Run With",menuendptr%,8,menublock%,menuareatop%)
110PROCJ("Name:|*renamebuf%,A~ .,19",menuendptr%,9,menublock%,menuareatop%):PROCJ("Access|Protected|:Unprotected|Public|:Private|Access details",menuendptr%,10,menublock%,menuareatop%):PROCJ("Find file:|*findbuf%,A~ .,19",menuendptr%,11,menublock%,menuareatop%)
120PROCJ("Set type|*settypebuf%,,19",menuendptr%,12,menublock%,menuareatop%):PROCJ("Options|Confirm|Verbose|Force|Newer",menuendptr%,13,menublock%,menuareatop%):PROCJ("Name:|*newdirbuf%,A~ .,11",menuendptr%,14,menublock%,menuareatop%)
130PROCJ("Save|Backdrop|System Variables|Sprites",menuendptr%,15,menublock%,menuareatop%):PROCJ("Load|Backdrop|System Variables|Sprites",menuendptr%,16,menublock%,menuareatop%):PROCs(info%,0,0):PROCs(savewindow%,0,8):PROCs(fileinfo%,6,8):PROCs(fileaccess%,4,10)
140PROCP(1,3,0):PROCP(2,13,8):PROCP(3,14,8):PROCP(4,12,8):PROCP(5,15,8):PROCP(0,0,7):PROCP(8,1,7):PROCP(9,1,8):PROCP(10,3,8):PROCP(11,7,8):PROCP(12,8,8):PROCP(13,4,7):PROCP(14,5,7):PROCP(15,1,0):PROCP(16,2,0):ENDPROC
150DEFPROCJ(A$,RETURNptr%,no%,menublock%,RETURNmenuareatop%):LOCALF$,off%,stptr%,maxw%:stptr%=ptr%:A$+="|":menublock%!(no%<<2)=ptr%:F$=FNV(A$):maxw%=FNB(LENF$-3,0):$ptr%=F$:ptr%?12=7:ptr%?13=2:ptr%?14=7:ptr%?15=0:ptr%!20=44:ptr%!24=0:off%=28:REPEAT:F$=FNV(A$):IFLEFT$(F$,1)=":"THEN
160F$=MID$(F$,2):ptr%!off%=2
170ELSE:ptr%!off%=0
180ENDIF:IFLEFT$(F$,1)="~"THEN
190F$=MID$(F$,2):ptr%!off%=(ptr%!off%)OR8
200ENDIF:IFA$=""THENptr%!off%=ptr%!off%OR(1<<7)
210ptr%!(off%+4)=-1:ptr%!(off%+8)=65569+(7<<24)+(0<<28):CASELEFT$(F$,1)OF
220WHEN"*":maxw%=FNB(maxw%,10):F$=MID$(F$,2):ptr%!off%=ptr%!off%OR(1<<2):ptr%!(off%+8)=ptr%!(off%+8)OR(1<<8):ptr%!(off%+12)=EVAL(LEFT$(F$,INSTR(F$,",")-1)):F$=MID$(F$,INSTR(F$,",")+1):menuareatop%-=INSTR(F$,","):$menuareatop%=LEFT$(F$,INSTR(F$,",")-1):ptr%!(off%+16)=menuareatop%
230ptr%!(off%+20)=EVAL(MID$(F$,INSTR(F$,",")+1))
240OTHERWISE:IFLEFT$(F$,1)="�"THEN
250ptr%!off%=ptr%!off%OR16:F$=MID$(F$,2)
260ENDIF:IFLENF$<12THEN
270$(ptr%+off%+12)=F$:maxw%=FNB(maxw%,LENF$)
280ELSE:menuareatop%-=LENF$+1:$menuareatop%=F$:ptr%!(off%+8)=ptr%!(off%+8)OR(1<<8):ptr%!(off%+12)=menuareatop%:ptr%!(off%+16)=0:ptr%!(off%+20)=LENF$:maxw%=FNB(maxw%,LENF$)
290ENDIF
300ENDCASE:off%+=24:UNTILA$="":ptr%+=off%:stptr%!16=maxw%*16+16:ENDPROC
310DEFPROCP(submenu%,item%,parentmenu%):LOCALptr%:ptr%=menublock%!(parentmenu%<<2):ptr%!(32+item%*24)=menublock%!(submenu%<<2):ENDPROC
320DEFPROCs(window%,item%,parentmenu%):LOCALptr%:ptr%=menublock%!(parentmenu%<<2):ptr%!(32+item%*24)=window%:ENDPROC
330DEFFNV(RETURNA$):LOCALj$:j$=LEFT$(A$,INSTR(A$,"|")-1):A$=MID$(A$,INSTR(A$,"|")+1):=j$
340DEFPROCjy:SYS39,"<Larger$Dir>",block2%,256:G$=FNA(block2%)+".Internal.":followcaret%=FALSE:v$="":resizeneeded%=FALSE:selective%=FALSE:filetypespr%=FALSE:hiding%=FALSE:A%()=0:shift%=FALSE:filersave%=FALSE:runscrapwhensaved%=FALSE:runscraponto%=0:setcsdkey%=426:cyclewindowskey%=442
350hidetaskkey%=410:cycletaskskey%=384:bringtofrontkey%=461:hotkeyhotkey%=127:grabbinghotkeys%=FALSE:returncaretnexttime%=FALSE:openmapatstartup%=FALSE:openmapatx%=0:openmapaty%=0:tryingtorun%=FALSE:installicon%=TRUE:largeicon%=FALSE:!noapps%=-1:!icontext%=TRUE:withshift%=TRUE
360setcsd%=FALSE:openfiler%=TRUE:scroll%=TRUE:dragasprite%=(FND(28)AND2)=2:temporaryselect%=FALSE:SYSlargersuppwsh%,-scroll%,-withshift%:closedown%=FALSE:offx%=0:offy%=0:xo%=0:yo%=0:draggingwindow%=FALSE:!A=0:nextfreebackdrop%=1:mapwindowopen%=FALSE:menuopen%=0:savingonto%=FALSE
370backdropspritearea%=0:!backdropspriteareaptr%=0:iconising%=FALSE:z$="":!P=1:!invertsel%=1:!slabsel%=1:iconbaricon%=-1:!showplinths%=1:!mask%=&401830:?runwithbuffer%=0:?renamebuf%=0:?findbuf%=0:?settypebuf%=0:?newdirbuf%=0:PROCqy:loadinprogress%=FALSE
380oldconfigpaneheight%=0:PROCfy:PROCJJ:icresponse%=FALSE:PROCny:PROCSJ:PROCA_:ENDPROC
390DEFPROCJJ:LOCALfile%,size%,error%,um%,menus%,no%,write%,V$,flag%,umw%,writeablearea%:SYS&406c0:ucomms%=0:file%=OPENIN("<Larger$Dir>.Prefs.MenuData"):IFfile%<>0THEN
400menus%=1:size%=28:error%=0:line%=0:writeablearea%=0:REPEAT:line%+=1:M$=FNL:PROCB(M$):IFM$<>""THEN
410IFLEFT$(M$,1)<>"|"THEN
420CASELEFT$(M$,1)OF
430WHEN".":IFM$="."THEN
440error%=line%
450ELSE:size%+=28:menus%+=1
460ENDIF
470WHEN"+":size%+=24:V$=MID$(M$,2):IFINSTR(V$,",")>0THENV$=LEFT$(V$,INSTR(V$,",")-1)
480PROCB(V$):flag%=TRUE:FORl%=1TOLENV$:IFMID$(V$,l%,1)<"0"ORMID$(V$,l%,1)>"9"THENflag%=FALSE
490NEXT:IFflag%THEN
500writeablearea%+=EVAL(V$)
510ELSE:error%=line%
520ENDIF
530OTHERWISE:size%+=24
540ENDCASE
550ENDIF
560ENDIF:UNTILEOF#file%ORerror%<>0:IFerror%=0ANDsize%<>28THEN
570usermenu%=FNZ(size%+menus%*4):umwrite%=FNZ(writeablearea%):umw%=umwrite%:um%=usermenu%+menus%*4:no%=0:PROCBy(um%,0,"User",no%,"",umw%):PROCh_
580ELSE:usermenu%=-1:umwrite%=0
590ENDIF:CLOSE#file%
600ELSE:usermenu%=-1:umwrite%=0
610ENDIF:SYS&406c1:ENDPROC
620DEFPROCBy(RETURNmem%,ptr%,o$,RETURNno%,O$,RETURNumw%):LOCALbaseno%,line%,w$,I$,K$,tumw%,ttumw%:PTR#file%=ptr%:line%=-1:tumw%=umw%:REPEAT:M$=FNL:PROCB(M$):IFLEFT$(M$,1)<>"."ANDM$<>""ANDLEFT$(M$,1)<>"|"THEN
630line%+=1:ucomms%+=1:IFLEFT$(M$,1)="+"THEN
640K$=LEFT$(M$,INSTR(M$,",")-1):ttumw%=tumw%:tumw%+=EVAL(MID$(K$,2))
650ENDIF:K$=MID$(M$,INSTR(M$,",")+1):IFINSTR(K$,",")>0THENK$=LEFT$(K$,INSTR(K$,",")-1)
660IFLEFT$(M$,1)="+"THEN
670S$(ucomms%)=O$+STR$(line%)+","+K$+","+STR$(ttumw%)
680ELSE:S$(ucomms%)=O$+STR$(line%)+","+K$
690ENDIF:M$=LEFT$(M$,INSTR(M$,",")-1):PROCB(M$):o$+="|"+M$
700ENDIF:UNTILEOF#file%ORLEFT$(M$,1)=".":PROCI_(o$,mem%,no%,usermenu%,umw%):baseno%=no%:PTR#file%=ptr%:line%=-1:REPEAT:M$=FNL:PROCB(M$):IFLEFT$(M$,1)<>"."ANDM$<>""ANDLEFT$(M$,1)<>"|"THEN
710line%+=1:IFINSTR(M$,",")>0THEN
720IFINSTR(M$,",",INSTR(M$,",")+1)>0THEN
730I$=LEFT$(M$,INSTR(M$,",")-1):IFLEFT$(I$,1)="+"THENI$=MID$(I$,2)
740IFLEFT$(I$,1)="-"THENI$=MID$(I$,2)
750PROCB(I$):w$=MID$(M$,INSTR(M$,",",INSTR(M$,",")+1)+1):PROCB(w$):no%+=1:PROCly(w$,I$,line%,umw%)
760ENDIF
770ENDIF
780ENDIF:UNTILEOF#file%ORLEFT$(M$,1)=".":ENDPROC
790DEFPROCly(w$,I$,item%,RETURNumw%):LOCALptr%,M$:ptr%=PTR#file%:PTR#file%=0:REPEAT:M$=FNL:PROCB(M$):UNTILEOF#file%ORM$="."+w$:IFM$="."+w$THEN
800PROCBy(mem%,PTR#file%,I$,no%,O$+STR$(item%)+",",umw%):PROCl_(no%,item%,baseno%)
810ENDIF:PTR#file%=ptr%:ENDPROC
820DEFFNL:LOCALA$:A$="":IFNOTEOF#file%THEN
830REPEAT:byte%=BGET#file%:IFbyte%>31ANDbyte%<>127THEN
840A$+=CHR$(byte%)
850ENDIF:UNTILbyte%<32ORbyte%=127OREOF#file%
860ENDIF:=A$
870DEFPROCh_:LOCALptr%:ptr%=!menublock%:ptr%!(32+4*24)=usermenu%+menus%*4:ENDPROC
880DEFPROCl_(submenu%,item%,parentmenu%):LOCALptr%:ptr%=usermenu%!(parentmenu%<<2):ptr%!(32+item%*24)=usermenu%!(submenu%<<2):ENDPROC
890DEFPROCI_(A$,RETURNptr%,no%,menublock%,RETURNumw%):LOCALF$,off%:A$+="|":menublock%!(no%<<2)=ptr%:F$=FNV(A$):$ptr%=F$:ptr%?12=7:ptr%?13=2:ptr%?14=7:ptr%?15=0:ptr%!16=12*16:ptr%!20=44:ptr%!24=0:off%=28:REPEAT:F$=FNV(A$):ptr%!off%=0:IFA$=""THENptr%!off%=ptr%!off%OR(1<<7)
900ptr%!(off%+4)=-1:ptr%!(off%+8)=65569+(7<<24)+(0<<28):IFLEFT$(F$,1)="-"THEN
910ptr%!off%=ptr%!off%OR(1<<1):F$=MID$(F$,2)
920ENDIF:CASELEFT$(F$,1)OF
930WHEN"+":F$=MID$(F$,2):ptr%!off%=ptr%!off%OR(1<<2):ptr%!(off%+8)=ptr%!(off%+8)OR(1<<8):ptr%!(off%+12)=umw%:ptr%!(off%+16)=0:ptr%!(off%+20)=EVAL(F$):?umw%=0:umw%+=EVAL(F$)
940OTHERWISE:$(ptr%+off%+12)=F$
950ENDCASE:off%+=24:UNTILA$="":ptr%+=off%:ENDPROC
960DEFPROCny:!block%=24:block%!12=0:block%!16=&400cc:block%!20=0:block%!24=0:block%!28=0:block%!36=0:SYS&400e7,17,block%,0:currenticoniser%=TRUE:ENDPROC
970DEFPROCSJ:!spritearea%=21000:spritearea%!4=16:SYS46,9+256,spritearea%:SYS46,10+256,spritearea%,"<Larger$Dir>.Sprites":!largerspriteareaptr%=spritearea%:ENDPROC
980DEFPROCA_:LOCALsize%:SYS&41500,,"<Larger$Dir>.Messages"TO,,size%:messagefd%=FNZ(size%+16):SYS&41501,messagefd%,"<Larger$Dir>.Messages",messagefd%+16:ENDPROC
990DEFFNz:=123456
�>!Larger.Setup
���t_:wimpinit%=&400c0:wimpcreatewindow%=&400c1:wimpcreateicon%=&400c2:wimpdeleteicon%=&400c4:wimpopenwindow%=&400c5:wimpclosewindow%=&400c6:wimppoll%=&400c7:wimpredrawwindow%=&400c8:wimpsetextent%=&400d7:wimpgetrectangle%=&400ca:wimpgws%=&400cb
�wimpgwi%=&400cc:wimpsis%=&400cd:wimpgis%=&400ce:wimpgetpointerinfo%=&400cf:wimpdragbox%=&400d0:wimpforceredraw%=&400d1:wimpsetcaretpos%=&400d2:wimpgetcaretpos%=&400d3:wimpcreatemenu%=&400d4:wimpopentemplate%=&400d9:wimpclosetemplate%=&400da
(�wimploadtemplate%=&400db:wimpprocesskey%=&400dc:wimpclosedown%=&400dd:wimperr%=&400df:wimpgwo%=&400e0:wimpploticon%=&400e2:wimpsm%=&400e7:wimpspriteop%=&400e9:xwimpspriteop%=&400e9+&20000:wimpbaseofspr%=&400ea:wimpreadpixtrans%=&400ed
2]wimptransblk%=&400f1:largersuppwsh%=&446c0:largersupprfm%=&446c1:largersupprwof%=&446c5:�
<���fy:menuareatop%=menublock%+2500:menuendptr%=menublock%+100:�J("Larger|Info|Save|Load|Desktop|User|Map...|Config...|Quit",menuendptr%,0,menublock%,menuareatop%)
F��J("Desktop|Home|Retrieve|Cycle Windows|Cycle Tasks",menuendptr%,1,menublock%,menuareatop%):�J("Pre Params|*prebuffer%,,80",menuendptr%,2,menublock%,menuareatop%):�J("Post Params|*postbuffer%,,80",menuendptr%,3,menublock%,menuareatop%)
P��J("Ctrl Key|*hotbuffer%,,2",menuendptr%,4,menublock%,menuareatop%):�J("Filename|*runwithbuffer%,,80",menuendptr%,5,menublock%,menuareatop%)
Z��J("Larger|Larger|�App. '1234567890'|Select all|Clear Selection|Options|New Backdrop|Open Parent",menuendptr%,7,menublock%,menuareatop%)
d��J("Application|Copy|Rename|Remove|~�Access|Count|Help|~Info|Find|Set type|:Stamp|Drag Onto|Open Parent|Ctrl Key|Pre Params|Post Params|Run With",menuendptr%,8,menublock%,menuareatop%)
n��J("Name:|*renamebuf%,A~ .,19",menuendptr%,9,menublock%,menuareatop%):�J("Access|Protected|:Unprotected|Public|:Private|Access details",menuendptr%,10,menublock%,menuareatop%):�J("Find file:|*findbuf%,A~ .,19",menuendptr%,11,menublock%,menuareatop%)
x��J("Set type|*settypebuf%,,19",menuendptr%,12,menublock%,menuareatop%):�J("Options|Confirm|Verbose|Force|Newer",menuendptr%,13,menublock%,menuareatop%):�J("Name:|*newdirbuf%,A~ .,11",menuendptr%,14,menublock%,menuareatop%)
���J("Save|Backdrop|System Variables|Sprites",menuendptr%,15,menublock%,menuareatop%):�J("Load|Backdrop|System Variables|Sprites",menuendptr%,16,menublock%,menuareatop%):�s(info%,0,0):�s(savewindow%,0,8):�s(fileinfo%,6,8):�s(fileaccess%,4,10)
���P(1,3,0):�P(2,13,8):�P(3,14,8):�P(4,12,8):�P(5,15,8):�P(0,0,7):�P(8,1,7):�P(9,1,8):�P(10,3,8):�P(11,7,8):�P(12,8,8):�P(13,4,7):�P(14,5,7):�P(15,1,0):�P(16,2,0):�
����J(A$,�ptr%,no%,menublock%,�menuareatop%):�F$,off%,stptr%,maxw%:stptr%=ptr%:A$+="|":menublock%!(no%<<2)=ptr%:F$=�V(A$):maxw%=�B(�F$-3,0):$ptr%=F$:ptr%?12=7:ptr%?13=2:ptr%?14=7:ptr%?15=0:ptr%!20=44:ptr%!24=0:off%=28:�:F$=�V(A$):�F$,1)=":"�
�F$=�F$,2):ptr%!off%=2
��:ptr%!off%=0
��:�F$,1)="~"�
�%F$=�F$,2):ptr%!off%=(ptr%!off%)�8
�'�:�A$=""�ptr%!off%=ptr%!off%�(1<<7)
�Bptr%!(off%+4)=-1:ptr%!(off%+8)=65569+(7<<24)+(0<<28):Ȏ�F$,1)�
���"*":maxw%=�B(maxw%,10):F$=�F$,2):ptr%!off%=ptr%!off%�(1<<2):ptr%!(off%+8)=ptr%!(off%+8)�(1<<8):ptr%!(off%+12)=�(�F$,�F$,",")-1)):F$=�F$,�F$,",")+1):menuareatop%-=�F$,","):$menuareatop%=�F$,�F$,",")-1):ptr%!(off%+16)=menuareatop%
�%ptr%!(off%+20)=�(�F$,�F$,",")+1))
�:�F$,1)="�"�
�$ptr%!off%=ptr%!off%�16:F$=�F$,2)
�:�F$<12�
*$(ptr%+off%+12)=F$:maxw%=�B(maxw%,�F$)
��:menuareatop%-=�F$+1:$menuareatop%=F$:ptr%!(off%+8)=ptr%!(off%+8)�(1<<8):ptr%!(off%+12)=menuareatop%:ptr%!(off%+16)=0:ptr%!(off%+20)=�F$:maxw%=�B(maxw%,�F$)
"�
,8�:off%+=24:�A$="":ptr%+=off%:stptr%!16=maxw%*16+16:�
6x��P(submenu%,item%,parentmenu%):�ptr%:ptr%=menublock%!(parentmenu%<<2):ptr%!(32+item%*24)=menublock%!(submenu%<<2):�
@f��s(window%,item%,parentmenu%):�ptr%:ptr%=menublock%!(parentmenu%<<2):ptr%!(32+item%*24)=window%:�
J:ݤV(�A$):�j$:j$=�A$,�A$,"|")-1):A$=�A$,�A$,"|")+1):=j$
T���jy:ș39,"<Larger$Dir>",block2%,256:G$=�A(block2%)+".Internal.":followcaret%=�:v$="":resizeneeded%=�:selective%=�:filetypespr%=�:hiding%=�:A%()=0:shift%=�:filersave%=�:runscrapwhensaved%=�:runscraponto%=0:setcsdkey%=426:cyclewindowskey%=442
^�hidetaskkey%=410:cycletaskskey%=384:bringtofrontkey%=461:hotkeyhotkey%=127:grabbinghotkeys%=�:returncaretnexttime%=�:openmapatstartup%=�:openmapatx%=0:openmapaty%=0:tryingtorun%=�:installicon%=�:largeicon%=�:!noapps%=-1:!icontext%=�:withshift%=�
h�setcsd%=�:openfiler%=�:scroll%=�:dragasprite%=(�D(28)�2)=2:temporaryselect%=�:șlargersuppwsh%,-scroll%,-withshift%:closedown%=�:offx%=0:offy%=0:xo%=0:yo%=0:draggingwindow%=�:!A=0:nextfreebackdrop%=1:mapwindowopen%=�:menuopen%=0:savingonto%=�
r�backdropspritearea%=0:!backdropspriteareaptr%=0:iconising%=�:z$="":!P=1:!invertsel%=1:!slabsel%=1:iconbaricon%=-1:!showplinths%=1:!mask%=&401830:?runwithbuffer%=0:?renamebuf%=0:?findbuf%=0:?settypebuf%=0:?newdirbuf%=0:�qy:loadinprogress%=�
|>oldconfigpaneheight%=0:�fy:�JJ:icresponse%=�:�ny:�SJ:�A_:�
����JJ:�file%,size%,error%,um%,menus%,no%,write%,V$,flag%,umw%,writeablearea%:ș&406c0:ucomms%=0:file%=�("<Larger$Dir>.Prefs.MenuData"):�file%<>0�
�Xmenus%=1:size%=28:error%=0:line%=0:writeablearea%=0:�:line%+=1:M$=�L:�B(M$):�M$<>""�
��M$,1)<>"|"�
�
Ȏ�M$,1)�
��".":�M$="."�
�error%=line%
��:size%+=28:menus%+=1
��
�;�"+":size%+=24:V$=�M$,2):�V$,",")>0�V$=�V$,�V$,",")-1)
�A�B(V$):flag%=�:�l%=1��V$:�V$,l%,1)<"0"��V$,l%,1)>"9"�flag%=�
�
�:�flag%�
�writeablearea%+=�(V$)
��:error%=line%
�
:size%+=24
�
&�
0-�:��#file%�error%<>0:�error%=0�size%<>28�
:�usermenu%=�Z(size%+menus%*4):umwrite%=�Z(writeablearea%):umw%=umwrite%:um%=usermenu%+menus%*4:no%=0:�By(um%,0,"User",no%,"",umw%):�h_
D �:usermenu%=-1:umwrite%=0
N
�:�#file%
X �:usermenu%=-1:umwrite%=0
b�:ș&406c1:�
l���By(�mem%,ptr%,o$,�no%,O$,�umw%):�baseno%,line%,w$,I$,K$,tumw%,ttumw%:�#file%=ptr%:line%=-1:tumw%=umw%:�:M$=�L:�B(M$):�M$,1)<>"."�M$<>""��M$,1)<>"|"�
v$line%+=1:ucomms%+=1:�M$,1)="+"�
�4K$=�M$,�M$,",")-1):ttumw%=tumw%:tumw%+=�(�K$,2))
�7�:K$=�M$,�M$,",")+1):�K$,",")>0�K$=�K$,�K$,",")-1)
��M$,1)="+"�
�0S$(ucomms%)=O$+�(line%)+","+K$+","+�(ttumw%)
�$�:S$(ucomms%)=O$+�(line%)+","+K$
�*�:M$=�M$,�M$,",")-1):�B(M$):o$+="|"+M$
���:��#file%��M$,1)=".":�I_(o$,mem%,no%,usermenu%,umw%):baseno%=no%:�#file%=ptr%:line%=-1:�:M$=�L:�B(M$):�M$,1)<>"."�M$<>""��M$,1)<>"|"�
�line%+=1:�M$,",")>0�
��M$,",",�M$,",")+1)>0�
�,I$=�M$,�M$,",")-1):�I$,1)="+"�I$=�I$,2)
��I$,1)="-"�I$=�I$,2)
�L�B(I$):w$=�M$,�M$,",",�M$,",")+1)+1):�B(w$):no%+=1:�ly(w$,I$,line%,umw%)
��
�
�:��#file%��M$,1)=".":�
i��ly(w$,I$,item%,�umw%):�ptr%,M$:ptr%=�#file%:�#file%=0:�:M$=�L:�B(M$):��#file%�M$="."+w$:�M$="."+w$�
H�By(mem%,�#file%,I$,no%,O$+�(item%)+",",umw%):�l_(no%,item%,baseno%)
*�:�#file%=ptr%:�
4 ݤL:�A$:A$="":��#file%�
>)�:byte%=�#file%:�byte%>31�byte%<>127�
HA$+=�(byte%)
R!�:�byte%<32�byte%=127��#file%
\ �:=A$
fC��h_:�ptr%:ptr%=!menublock%:ptr%!(32+4*24)=usermenu%+menus%*4:�
pw��l_(submenu%,item%,parentmenu%):�ptr%:ptr%=usermenu%!(parentmenu%<<2):ptr%!(32+item%*24)=usermenu%!(submenu%<<2):�
z���I_(A$,�ptr%,no%,menublock%,�umw%):�F$,off%:A$+="|":menublock%!(no%<<2)=ptr%:F$=�V(A$):$ptr%=F$:ptr%?12=7:ptr%?13=2:ptr%?14=7:ptr%?15=0:ptr%!16=12*16:ptr%!20=44:ptr%!24=0:off%=28:�:F$=�V(A$):ptr%!off%=0:�A$=""�ptr%!off%=ptr%!off%�(1<<7)
�Eptr%!(off%+4)=-1:ptr%!(off%+8)=65569+(7<<24)+(0<<28):�F$,1)="-"�
�(ptr%!off%=ptr%!off%�(1<<1):F$=�F$,2)
��:Ȏ�F$,1)�
���"+":F$=�F$,2):ptr%!off%=ptr%!off%�(1<<2):ptr%!(off%+8)=ptr%!(off%+8)�(1<<8):ptr%!(off%+12)=umw%:ptr%!(off%+16)=0:ptr%!(off%+20)=�(F$):?umw%=0:umw%+=�(F$)
�:$(ptr%+off%+12)=F$
�"�:off%+=24:�A$="":ptr%+=off%:�
����ny:!block%=24:block%!12=0:block%!16=&400cc:block%!20=0:block%!24=0:block%!28=0:block%!36=0:ș&400e7,17,block%,0:currenticoniser%=�:�
ʖ��SJ:!spritearea%=21000:spritearea%!4=16:ș46,9+256,spritearea%:ș46,10+256,spritearea%,"<Larger$Dir>.Sprites":!largerspriteareaptr%=spritearea%:�
ԍ��A_:�size%:ș&41500,,"<Larger$Dir>.Messages"�,,size%:messagefd%=�Z(size%+16):ș&41501,messagefd%,"<Larger$Dir>.Messages",messagefd%+16:�
�ݤz:=123456
� 00000000 0d 00 0a 13 f4 3e 21 4c 61 72 67 65 72 2e 53 65 |.....>!Larger.Se|
00000010 74 75 70 0d 00 14 f8 dd f2 74 5f 3a 77 69 6d 70 |tup......t_:wimp|
00000020 69 6e 69 74 25 3d 26 34 30 30 63 30 3a 77 69 6d |init%=&400c0:wim|
00000030 70 63 72 65 61 74 65 77 69 6e 64 6f 77 25 3d 26 |pcreatewindow%=&|
00000040 34 30 30 63 31 3a 77 69 6d 70 63 72 65 61 74 65 |400c1:wimpcreate|
00000050 69 63 6f 6e 25 3d 26 34 30 30 63 32 3a 77 69 6d |icon%=&400c2:wim|
00000060 70 64 65 6c 65 74 65 69 63 6f 6e 25 3d 26 34 30 |pdeleteicon%=&40|
00000070 30 63 34 3a 77 69 6d 70 6f 70 65 6e 77 69 6e 64 |0c4:wimpopenwind|
00000080 6f 77 25 3d 26 34 30 30 63 35 3a 77 69 6d 70 63 |ow%=&400c5:wimpc|
00000090 6c 6f 73 65 77 69 6e 64 6f 77 25 3d 26 34 30 30 |losewindow%=&400|
000000a0 63 36 3a 77 69 6d 70 70 6f 6c 6c 25 3d 26 34 30 |c6:wimppoll%=&40|
000000b0 30 63 37 3a 77 69 6d 70 72 65 64 72 61 77 77 69 |0c7:wimpredrawwi|
000000c0 6e 64 6f 77 25 3d 26 34 30 30 63 38 3a 77 69 6d |ndow%=&400c8:wim|
000000d0 70 73 65 74 65 78 74 65 6e 74 25 3d 26 34 30 30 |psetextent%=&400|
000000e0 64 37 3a 77 69 6d 70 67 65 74 72 65 63 74 61 6e |d7:wimpgetrectan|
000000f0 67 6c 65 25 3d 26 34 30 30 63 61 3a 77 69 6d 70 |gle%=&400ca:wimp|
00000100 67 77 73 25 3d 26 34 30 30 63 62 0d 00 1e f4 77 |gws%=&400cb....w|
00000110 69 6d 70 67 77 69 25 3d 26 34 30 30 63 63 3a 77 |impgwi%=&400cc:w|
00000120 69 6d 70 73 69 73 25 3d 26 34 30 30 63 64 3a 77 |impsis%=&400cd:w|
00000130 69 6d 70 67 69 73 25 3d 26 34 30 30 63 65 3a 77 |impgis%=&400ce:w|
00000140 69 6d 70 67 65 74 70 6f 69 6e 74 65 72 69 6e 66 |impgetpointerinf|
00000150 6f 25 3d 26 34 30 30 63 66 3a 77 69 6d 70 64 72 |o%=&400cf:wimpdr|
00000160 61 67 62 6f 78 25 3d 26 34 30 30 64 30 3a 77 69 |agbox%=&400d0:wi|
00000170 6d 70 66 6f 72 63 65 72 65 64 72 61 77 25 3d 26 |mpforceredraw%=&|
00000180 34 30 30 64 31 3a 77 69 6d 70 73 65 74 63 61 72 |400d1:wimpsetcar|
00000190 65 74 70 6f 73 25 3d 26 34 30 30 64 32 3a 77 69 |etpos%=&400d2:wi|
000001a0 6d 70 67 65 74 63 61 72 65 74 70 6f 73 25 3d 26 |mpgetcaretpos%=&|
000001b0 34 30 30 64 33 3a 77 69 6d 70 63 72 65 61 74 65 |400d3:wimpcreate|
000001c0 6d 65 6e 75 25 3d 26 34 30 30 64 34 3a 77 69 6d |menu%=&400d4:wim|
000001d0 70 6f 70 65 6e 74 65 6d 70 6c 61 74 65 25 3d 26 |popentemplate%=&|
000001e0 34 30 30 64 39 3a 77 69 6d 70 63 6c 6f 73 65 74 |400d9:wimpcloset|
000001f0 65 6d 70 6c 61 74 65 25 3d 26 34 30 30 64 61 0d |emplate%=&400da.|
00000200 00 28 ee 77 69 6d 70 6c 6f 61 64 74 65 6d 70 6c |.(.wimploadtempl|
00000210 61 74 65 25 3d 26 34 30 30 64 62 3a 77 69 6d 70 |ate%=&400db:wimp|
00000220 70 72 6f 63 65 73 73 6b 65 79 25 3d 26 34 30 30 |processkey%=&400|
00000230 64 63 3a 77 69 6d 70 63 6c 6f 73 65 64 6f 77 6e |dc:wimpclosedown|
00000240 25 3d 26 34 30 30 64 64 3a 77 69 6d 70 65 72 72 |%=&400dd:wimperr|
00000250 25 3d 26 34 30 30 64 66 3a 77 69 6d 70 67 77 6f |%=&400df:wimpgwo|
00000260 25 3d 26 34 30 30 65 30 3a 77 69 6d 70 70 6c 6f |%=&400e0:wimpplo|
00000270 74 69 63 6f 6e 25 3d 26 34 30 30 65 32 3a 77 69 |ticon%=&400e2:wi|
00000280 6d 70 73 6d 25 3d 26 34 30 30 65 37 3a 77 69 6d |mpsm%=&400e7:wim|
00000290 70 73 70 72 69 74 65 6f 70 25 3d 26 34 30 30 65 |pspriteop%=&400e|
000002a0 39 3a 78 77 69 6d 70 73 70 72 69 74 65 6f 70 25 |9:xwimpspriteop%|
000002b0 3d 26 34 30 30 65 39 2b 26 32 30 30 30 30 3a 77 |=&400e9+&20000:w|
000002c0 69 6d 70 62 61 73 65 6f 66 73 70 72 25 3d 26 34 |impbaseofspr%=&4|
000002d0 30 30 65 61 3a 77 69 6d 70 72 65 61 64 70 69 78 |00ea:wimpreadpix|
000002e0 74 72 61 6e 73 25 3d 26 34 30 30 65 64 0d 00 32 |trans%=&400ed..2|
000002f0 5d 77 69 6d 70 74 72 61 6e 73 62 6c 6b 25 3d 26 |]wimptransblk%=&|
00000300 34 30 30 66 31 3a 6c 61 72 67 65 72 73 75 70 70 |400f1:largersupp|
00000310 77 73 68 25 3d 26 34 34 36 63 30 3a 6c 61 72 67 |wsh%=&446c0:larg|
00000320 65 72 73 75 70 70 72 66 6d 25 3d 26 34 34 36 63 |ersupprfm%=&446c|
00000330 31 3a 6c 61 72 67 65 72 73 75 70 70 72 77 6f 66 |1:largersupprwof|
00000340 25 3d 26 34 34 36 63 35 3a e1 0d 00 3c a5 dd f2 |%=&446c5:...<...|
00000350 66 79 3a 6d 65 6e 75 61 72 65 61 74 6f 70 25 3d |fy:menuareatop%=|
00000360 6d 65 6e 75 62 6c 6f 63 6b 25 2b 32 35 30 30 3a |menublock%+2500:|
00000370 6d 65 6e 75 65 6e 64 70 74 72 25 3d 6d 65 6e 75 |menuendptr%=menu|
00000380 62 6c 6f 63 6b 25 2b 31 30 30 3a f2 4a 28 22 4c |block%+100:.J("L|
00000390 61 72 67 65 72 7c 49 6e 66 6f 7c 53 61 76 65 7c |arger|Info|Save||
000003a0 4c 6f 61 64 7c 44 65 73 6b 74 6f 70 7c 55 73 65 |Load|Desktop|Use|
000003b0 72 7c 4d 61 70 2e 2e 2e 7c 43 6f 6e 66 69 67 2e |r|Map...|Config.|
000003c0 2e 2e 7c 51 75 69 74 22 2c 6d 65 6e 75 65 6e 64 |..|Quit",menuend|
000003d0 70 74 72 25 2c 30 2c 6d 65 6e 75 62 6c 6f 63 6b |ptr%,0,menublock|
000003e0 25 2c 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 0d |%,menuareatop%).|
000003f0 00 46 ef f2 4a 28 22 44 65 73 6b 74 6f 70 7c 48 |.F..J("Desktop|H|
00000400 6f 6d 65 7c 52 65 74 72 69 65 76 65 7c 43 79 63 |ome|Retrieve|Cyc|
00000410 6c 65 20 57 69 6e 64 6f 77 73 7c 43 79 63 6c 65 |le Windows|Cycle|
00000420 20 54 61 73 6b 73 22 2c 6d 65 6e 75 65 6e 64 70 | Tasks",menuendp|
00000430 74 72 25 2c 31 2c 6d 65 6e 75 62 6c 6f 63 6b 25 |tr%,1,menublock%|
00000440 2c 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 3a f2 |,menuareatop%):.|
00000450 4a 28 22 50 72 65 20 50 61 72 61 6d 73 7c 2a 70 |J("Pre Params|*p|
00000460 72 65 62 75 66 66 65 72 25 2c 2c 38 30 22 2c 6d |rebuffer%,,80",m|
00000470 65 6e 75 65 6e 64 70 74 72 25 2c 32 2c 6d 65 6e |enuendptr%,2,men|
00000480 75 62 6c 6f 63 6b 25 2c 6d 65 6e 75 61 72 65 61 |ublock%,menuarea|
00000490 74 6f 70 25 29 3a f2 4a 28 22 50 6f 73 74 20 50 |top%):.J("Post P|
000004a0 61 72 61 6d 73 7c 2a 70 6f 73 74 62 75 66 66 65 |arams|*postbuffe|
000004b0 72 25 2c 2c 38 30 22 2c 6d 65 6e 75 65 6e 64 70 |r%,,80",menuendp|
000004c0 74 72 25 2c 33 2c 6d 65 6e 75 62 6c 6f 63 6b 25 |tr%,3,menublock%|
000004d0 2c 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 0d 00 |,menuareatop%)..|
000004e0 50 90 f2 4a 28 22 43 74 72 6c 20 4b 65 79 7c 2a |P..J("Ctrl Key|*|
000004f0 68 6f 74 62 75 66 66 65 72 25 2c 2c 32 22 2c 6d |hotbuffer%,,2",m|
00000500 65 6e 75 65 6e 64 70 74 72 25 2c 34 2c 6d 65 6e |enuendptr%,4,men|
00000510 75 62 6c 6f 63 6b 25 2c 6d 65 6e 75 61 72 65 61 |ublock%,menuarea|
00000520 74 6f 70 25 29 3a f2 4a 28 22 46 69 6c 65 6e 61 |top%):.J("Filena|
00000530 6d 65 7c 2a 72 75 6e 77 69 74 68 62 75 66 66 65 |me|*runwithbuffe|
00000540 72 25 2c 2c 38 30 22 2c 6d 65 6e 75 65 6e 64 70 |r%,,80",menuendp|
00000550 74 72 25 2c 35 2c 6d 65 6e 75 62 6c 6f 63 6b 25 |tr%,5,menublock%|
00000560 2c 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 0d 00 |,menuareatop%)..|
00000570 5a 8c f2 4a 28 22 4c 61 72 67 65 72 7c 4c 61 72 |Z..J("Larger|Lar|
00000580 67 65 72 7c a4 41 70 70 2e 20 27 31 32 33 34 35 |ger|.App. '12345|
00000590 36 37 38 39 30 27 7c 53 65 6c 65 63 74 20 61 6c |67890'|Select al|
000005a0 6c 7c 43 6c 65 61 72 20 53 65 6c 65 63 74 69 6f |l|Clear Selectio|
000005b0 6e 7c 4f 70 74 69 6f 6e 73 7c 4e 65 77 20 42 61 |n|Options|New Ba|
000005c0 63 6b 64 72 6f 70 7c 4f 70 65 6e 20 50 61 72 65 |ckdrop|Open Pare|
000005d0 6e 74 22 2c 6d 65 6e 75 65 6e 64 70 74 72 25 2c |nt",menuendptr%,|
000005e0 37 2c 6d 65 6e 75 62 6c 6f 63 6b 25 2c 6d 65 6e |7,menublock%,men|
000005f0 75 61 72 65 61 74 6f 70 25 29 0d 00 64 bc f2 4a |uareatop%)..d..J|
00000600 28 22 41 70 70 6c 69 63 61 74 69 6f 6e 7c 43 6f |("Application|Co|
00000610 70 79 7c 52 65 6e 61 6d 65 7c 52 65 6d 6f 76 65 |py|Rename|Remove|
00000620 7c 7e a4 41 63 63 65 73 73 7c 43 6f 75 6e 74 7c ||~.Access|Count||
00000630 48 65 6c 70 7c 7e 49 6e 66 6f 7c 46 69 6e 64 7c |Help|~Info|Find||
00000640 53 65 74 20 74 79 70 65 7c 3a 53 74 61 6d 70 7c |Set type|:Stamp||
00000650 44 72 61 67 20 4f 6e 74 6f 7c 4f 70 65 6e 20 50 |Drag Onto|Open P|
00000660 61 72 65 6e 74 7c 43 74 72 6c 20 4b 65 79 7c 50 |arent|Ctrl Key|P|
00000670 72 65 20 50 61 72 61 6d 73 7c 50 6f 73 74 20 50 |re Params|Post P|
00000680 61 72 61 6d 73 7c 52 75 6e 20 57 69 74 68 22 2c |arams|Run With",|
00000690 6d 65 6e 75 65 6e 64 70 74 72 25 2c 38 2c 6d 65 |menuendptr%,8,me|
000006a0 6e 75 62 6c 6f 63 6b 25 2c 6d 65 6e 75 61 72 65 |nublock%,menuare|
000006b0 61 74 6f 70 25 29 0d 00 6e fd f2 4a 28 22 4e 61 |atop%)..n..J("Na|
000006c0 6d 65 3a 7c 2a 72 65 6e 61 6d 65 62 75 66 25 2c |me:|*renamebuf%,|
000006d0 41 7e 20 2e 2c 31 39 22 2c 6d 65 6e 75 65 6e 64 |A~ .,19",menuend|
000006e0 70 74 72 25 2c 39 2c 6d 65 6e 75 62 6c 6f 63 6b |ptr%,9,menublock|
000006f0 25 2c 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 3a |%,menuareatop%):|
00000700 f2 4a 28 22 41 63 63 65 73 73 7c 50 72 6f 74 65 |.J("Access|Prote|
00000710 63 74 65 64 7c 3a 55 6e 70 72 6f 74 65 63 74 65 |cted|:Unprotecte|
00000720 64 7c 50 75 62 6c 69 63 7c 3a 50 72 69 76 61 74 |d|Public|:Privat|
00000730 65 7c 41 63 63 65 73 73 20 64 65 74 61 69 6c 73 |e|Access details|
00000740 22 2c 6d 65 6e 75 65 6e 64 70 74 72 25 2c 31 30 |",menuendptr%,10|
00000750 2c 6d 65 6e 75 62 6c 6f 63 6b 25 2c 6d 65 6e 75 |,menublock%,menu|
00000760 61 72 65 61 74 6f 70 25 29 3a f2 4a 28 22 46 69 |areatop%):.J("Fi|
00000770 6e 64 20 66 69 6c 65 3a 7c 2a 66 69 6e 64 62 75 |nd file:|*findbu|
00000780 66 25 2c 41 7e 20 2e 2c 31 39 22 2c 6d 65 6e 75 |f%,A~ .,19",menu|
00000790 65 6e 64 70 74 72 25 2c 31 31 2c 6d 65 6e 75 62 |endptr%,11,menub|
000007a0 6c 6f 63 6b 25 2c 6d 65 6e 75 61 72 65 61 74 6f |lock%,menuareato|
000007b0 70 25 29 0d 00 78 e2 f2 4a 28 22 53 65 74 20 74 |p%)..x..J("Set t|
000007c0 79 70 65 7c 2a 73 65 74 74 79 70 65 62 75 66 25 |ype|*settypebuf%|
000007d0 2c 2c 31 39 22 2c 6d 65 6e 75 65 6e 64 70 74 72 |,,19",menuendptr|
000007e0 25 2c 31 32 2c 6d 65 6e 75 62 6c 6f 63 6b 25 2c |%,12,menublock%,|
000007f0 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 3a f2 4a |menuareatop%):.J|
00000800 28 22 4f 70 74 69 6f 6e 73 7c 43 6f 6e 66 69 72 |("Options|Confir|
00000810 6d 7c 56 65 72 62 6f 73 65 7c 46 6f 72 63 65 7c |m|Verbose|Force||
00000820 4e 65 77 65 72 22 2c 6d 65 6e 75 65 6e 64 70 74 |Newer",menuendpt|
00000830 72 25 2c 31 33 2c 6d 65 6e 75 62 6c 6f 63 6b 25 |r%,13,menublock%|
00000840 2c 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 3a f2 |,menuareatop%):.|
00000850 4a 28 22 4e 61 6d 65 3a 7c 2a 6e 65 77 64 69 72 |J("Name:|*newdir|
00000860 62 75 66 25 2c 41 7e 20 2e 2c 31 31 22 2c 6d 65 |buf%,A~ .,11",me|
00000870 6e 75 65 6e 64 70 74 72 25 2c 31 34 2c 6d 65 6e |nuendptr%,14,men|
00000880 75 62 6c 6f 63 6b 25 2c 6d 65 6e 75 61 72 65 61 |ublock%,menuarea|
00000890 74 6f 70 25 29 0d 00 82 f4 f2 4a 28 22 53 61 76 |top%).....J("Sav|
000008a0 65 7c 42 61 63 6b 64 72 6f 70 7c 53 79 73 74 65 |e|Backdrop|Syste|
000008b0 6d 20 56 61 72 69 61 62 6c 65 73 7c 53 70 72 69 |m Variables|Spri|
000008c0 74 65 73 22 2c 6d 65 6e 75 65 6e 64 70 74 72 25 |tes",menuendptr%|
000008d0 2c 31 35 2c 6d 65 6e 75 62 6c 6f 63 6b 25 2c 6d |,15,menublock%,m|
000008e0 65 6e 75 61 72 65 61 74 6f 70 25 29 3a f2 4a 28 |enuareatop%):.J(|
000008f0 22 4c 6f 61 64 7c 42 61 63 6b 64 72 6f 70 7c 53 |"Load|Backdrop|S|
00000900 79 73 74 65 6d 20 56 61 72 69 61 62 6c 65 73 7c |ystem Variables||
00000910 53 70 72 69 74 65 73 22 2c 6d 65 6e 75 65 6e 64 |Sprites",menuend|
00000920 70 74 72 25 2c 31 36 2c 6d 65 6e 75 62 6c 6f 63 |ptr%,16,menubloc|
00000930 6b 25 2c 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 |k%,menuareatop%)|
00000940 3a f2 73 28 69 6e 66 6f 25 2c 30 2c 30 29 3a f2 |:.s(info%,0,0):.|
00000950 73 28 73 61 76 65 77 69 6e 64 6f 77 25 2c 30 2c |s(savewindow%,0,|
00000960 38 29 3a f2 73 28 66 69 6c 65 69 6e 66 6f 25 2c |8):.s(fileinfo%,|
00000970 36 2c 38 29 3a f2 73 28 66 69 6c 65 61 63 63 65 |6,8):.s(fileacce|
00000980 73 73 25 2c 34 2c 31 30 29 0d 00 8c a6 f2 50 28 |ss%,4,10).....P(|
00000990 31 2c 33 2c 30 29 3a f2 50 28 32 2c 31 33 2c 38 |1,3,0):.P(2,13,8|
000009a0 29 3a f2 50 28 33 2c 31 34 2c 38 29 3a f2 50 28 |):.P(3,14,8):.P(|
000009b0 34 2c 31 32 2c 38 29 3a f2 50 28 35 2c 31 35 2c |4,12,8):.P(5,15,|
000009c0 38 29 3a f2 50 28 30 2c 30 2c 37 29 3a f2 50 28 |8):.P(0,0,7):.P(|
000009d0 38 2c 31 2c 37 29 3a f2 50 28 39 2c 31 2c 38 29 |8,1,7):.P(9,1,8)|
000009e0 3a f2 50 28 31 30 2c 33 2c 38 29 3a f2 50 28 31 |:.P(10,3,8):.P(1|
000009f0 31 2c 37 2c 38 29 3a f2 50 28 31 32 2c 38 2c 38 |1,7,8):.P(12,8,8|
00000a00 29 3a f2 50 28 31 33 2c 34 2c 37 29 3a f2 50 28 |):.P(13,4,7):.P(|
00000a10 31 34 2c 35 2c 37 29 3a f2 50 28 31 35 2c 31 2c |14,5,7):.P(15,1,|
00000a20 30 29 3a f2 50 28 31 36 2c 32 2c 30 29 3a e1 0d |0):.P(16,2,0):..|
00000a30 00 96 f4 dd f2 4a 28 41 24 2c f8 70 74 72 25 2c |.....J(A$,.ptr%,|
00000a40 6e 6f 25 2c 6d 65 6e 75 62 6c 6f 63 6b 25 2c f8 |no%,menublock%,.|
00000a50 6d 65 6e 75 61 72 65 61 74 6f 70 25 29 3a ea 46 |menuareatop%):.F|
00000a60 24 2c 6f 66 66 25 2c 73 74 70 74 72 25 2c 6d 61 |$,off%,stptr%,ma|
00000a70 78 77 25 3a 73 74 70 74 72 25 3d 70 74 72 25 3a |xw%:stptr%=ptr%:|
00000a80 41 24 2b 3d 22 7c 22 3a 6d 65 6e 75 62 6c 6f 63 |A$+="|":menubloc|
00000a90 6b 25 21 28 6e 6f 25 3c 3c 32 29 3d 70 74 72 25 |k%!(no%<<2)=ptr%|
00000aa0 3a 46 24 3d a4 56 28 41 24 29 3a 6d 61 78 77 25 |:F$=.V(A$):maxw%|
00000ab0 3d a4 42 28 a9 46 24 2d 33 2c 30 29 3a 24 70 74 |=.B(.F$-3,0):$pt|
00000ac0 72 25 3d 46 24 3a 70 74 72 25 3f 31 32 3d 37 3a |r%=F$:ptr%?12=7:|
00000ad0 70 74 72 25 3f 31 33 3d 32 3a 70 74 72 25 3f 31 |ptr%?13=2:ptr%?1|
00000ae0 34 3d 37 3a 70 74 72 25 3f 31 35 3d 30 3a 70 74 |4=7:ptr%?15=0:pt|
00000af0 72 25 21 32 30 3d 34 34 3a 70 74 72 25 21 32 34 |r%!20=44:ptr%!24|
00000b00 3d 30 3a 6f 66 66 25 3d 32 38 3a f5 3a 46 24 3d |=0:off%=28:.:F$=|
00000b10 a4 56 28 41 24 29 3a e7 c0 46 24 2c 31 29 3d 22 |.V(A$):..F$,1)="|
00000b20 3a 22 8c 0d 00 a0 19 46 24 3d c1 46 24 2c 32 29 |:".....F$=.F$,2)|
00000b30 3a 70 74 72 25 21 6f 66 66 25 3d 32 0d 00 aa 11 |:ptr%!off%=2....|
00000b40 cc 3a 70 74 72 25 21 6f 66 66 25 3d 30 0d 00 b4 |.:ptr%!off%=0...|
00000b50 12 cd 3a e7 c0 46 24 2c 31 29 3d 22 7e 22 8c 0d |..:..F$,1)="~"..|
00000b60 00 be 25 46 24 3d c1 46 24 2c 32 29 3a 70 74 72 |..%F$=.F$,2):ptr|
00000b70 25 21 6f 66 66 25 3d 28 70 74 72 25 21 6f 66 66 |%!off%=(ptr%!off|
00000b80 25 29 84 38 0d 00 c8 27 cd 3a e7 41 24 3d 22 22 |%).8...'.:.A$=""|
00000b90 8c 70 74 72 25 21 6f 66 66 25 3d 70 74 72 25 21 |.ptr%!off%=ptr%!|
00000ba0 6f 66 66 25 84 28 31 3c 3c 37 29 0d 00 d2 42 70 |off%.(1<<7)...Bp|
00000bb0 74 72 25 21 28 6f 66 66 25 2b 34 29 3d 2d 31 3a |tr%!(off%+4)=-1:|
00000bc0 70 74 72 25 21 28 6f 66 66 25 2b 38 29 3d 36 35 |ptr%!(off%+8)=65|
00000bd0 35 36 39 2b 28 37 3c 3c 32 34 29 2b 28 30 3c 3c |569+(7<<24)+(0<<|
00000be0 32 38 29 3a c8 8e c0 46 24 2c 31 29 ca 0d 00 dc |28):...F$,1)....|
00000bf0 e9 c9 22 2a 22 3a 6d 61 78 77 25 3d a4 42 28 6d |.."*":maxw%=.B(m|
00000c00 61 78 77 25 2c 31 30 29 3a 46 24 3d c1 46 24 2c |axw%,10):F$=.F$,|
00000c10 32 29 3a 70 74 72 25 21 6f 66 66 25 3d 70 74 72 |2):ptr%!off%=ptr|
00000c20 25 21 6f 66 66 25 84 28 31 3c 3c 32 29 3a 70 74 |%!off%.(1<<2):pt|
00000c30 72 25 21 28 6f 66 66 25 2b 38 29 3d 70 74 72 25 |r%!(off%+8)=ptr%|
00000c40 21 28 6f 66 66 25 2b 38 29 84 28 31 3c 3c 38 29 |!(off%+8).(1<<8)|
00000c50 3a 70 74 72 25 21 28 6f 66 66 25 2b 31 32 29 3d |:ptr%!(off%+12)=|
00000c60 a0 28 c0 46 24 2c a7 46 24 2c 22 2c 22 29 2d 31 |.(.F$,.F$,",")-1|
00000c70 29 29 3a 46 24 3d c1 46 24 2c a7 46 24 2c 22 2c |)):F$=.F$,.F$,",|
00000c80 22 29 2b 31 29 3a 6d 65 6e 75 61 72 65 61 74 6f |")+1):menuareato|
00000c90 70 25 2d 3d a7 46 24 2c 22 2c 22 29 3a 24 6d 65 |p%-=.F$,","):$me|
00000ca0 6e 75 61 72 65 61 74 6f 70 25 3d c0 46 24 2c a7 |nuareatop%=.F$,.|
00000cb0 46 24 2c 22 2c 22 29 2d 31 29 3a 70 74 72 25 21 |F$,",")-1):ptr%!|
00000cc0 28 6f 66 66 25 2b 31 36 29 3d 6d 65 6e 75 61 72 |(off%+16)=menuar|
00000cd0 65 61 74 6f 70 25 0d 00 e6 25 70 74 72 25 21 28 |eatop%...%ptr%!(|
00000ce0 6f 66 66 25 2b 32 30 29 3d a0 28 c1 46 24 2c a7 |off%+20)=.(.F$,.|
00000cf0 46 24 2c 22 2c 22 29 2b 31 29 29 0d 00 f0 12 7f |F$,",")+1)).....|
00000d00 3a e7 c0 46 24 2c 31 29 3d 22 a4 22 8c 0d 00 fa |:..F$,1)="."....|
00000d10 24 70 74 72 25 21 6f 66 66 25 3d 70 74 72 25 21 |$ptr%!off%=ptr%!|
00000d20 6f 66 66 25 84 31 36 3a 46 24 3d c1 46 24 2c 32 |off%.16:F$=.F$,2|
00000d30 29 0d 01 04 0e cd 3a e7 a9 46 24 3c 31 32 8c 0d |).....:..F$<12..|
00000d40 01 0e 2a 24 28 70 74 72 25 2b 6f 66 66 25 2b 31 |..*$(ptr%+off%+1|
00000d50 32 29 3d 46 24 3a 6d 61 78 77 25 3d a4 42 28 6d |2)=F$:maxw%=.B(m|
00000d60 61 78 77 25 2c a9 46 24 29 0d 01 18 a1 cc 3a 6d |axw%,.F$).....:m|
00000d70 65 6e 75 61 72 65 61 74 6f 70 25 2d 3d a9 46 24 |enuareatop%-=.F$|
00000d80 2b 31 3a 24 6d 65 6e 75 61 72 65 61 74 6f 70 25 |+1:$menuareatop%|
00000d90 3d 46 24 3a 70 74 72 25 21 28 6f 66 66 25 2b 38 |=F$:ptr%!(off%+8|
00000da0 29 3d 70 74 72 25 21 28 6f 66 66 25 2b 38 29 84 |)=ptr%!(off%+8).|
00000db0 28 31 3c 3c 38 29 3a 70 74 72 25 21 28 6f 66 66 |(1<<8):ptr%!(off|
00000dc0 25 2b 31 32 29 3d 6d 65 6e 75 61 72 65 61 74 6f |%+12)=menuareato|
00000dd0 70 25 3a 70 74 72 25 21 28 6f 66 66 25 2b 31 36 |p%:ptr%!(off%+16|
00000de0 29 3d 30 3a 70 74 72 25 21 28 6f 66 66 25 2b 32 |)=0:ptr%!(off%+2|
00000df0 30 29 3d a9 46 24 3a 6d 61 78 77 25 3d a4 42 28 |0)=.F$:maxw%=.B(|
00000e00 6d 61 78 77 25 2c a9 46 24 29 0d 01 22 05 cd 0d |maxw%,.F$).."...|
00000e10 01 2c 38 cb 3a 6f 66 66 25 2b 3d 32 34 3a fd 41 |.,8.:off%+=24:.A|
00000e20 24 3d 22 22 3a 70 74 72 25 2b 3d 6f 66 66 25 3a |$="":ptr%+=off%:|
00000e30 73 74 70 74 72 25 21 31 36 3d 6d 61 78 77 25 2a |stptr%!16=maxw%*|
00000e40 31 36 2b 31 36 3a e1 0d 01 36 78 dd f2 50 28 73 |16+16:...6x..P(s|
00000e50 75 62 6d 65 6e 75 25 2c 69 74 65 6d 25 2c 70 61 |ubmenu%,item%,pa|
00000e60 72 65 6e 74 6d 65 6e 75 25 29 3a ea 70 74 72 25 |rentmenu%):.ptr%|
00000e70 3a 70 74 72 25 3d 6d 65 6e 75 62 6c 6f 63 6b 25 |:ptr%=menublock%|
00000e80 21 28 70 61 72 65 6e 74 6d 65 6e 75 25 3c 3c 32 |!(parentmenu%<<2|
00000e90 29 3a 70 74 72 25 21 28 33 32 2b 69 74 65 6d 25 |):ptr%!(32+item%|
00000ea0 2a 32 34 29 3d 6d 65 6e 75 62 6c 6f 63 6b 25 21 |*24)=menublock%!|
00000eb0 28 73 75 62 6d 65 6e 75 25 3c 3c 32 29 3a e1 0d |(submenu%<<2):..|
00000ec0 01 40 66 dd f2 73 28 77 69 6e 64 6f 77 25 2c 69 |.@f..s(window%,i|
00000ed0 74 65 6d 25 2c 70 61 72 65 6e 74 6d 65 6e 75 25 |tem%,parentmenu%|
00000ee0 29 3a ea 70 74 72 25 3a 70 74 72 25 3d 6d 65 6e |):.ptr%:ptr%=men|
00000ef0 75 62 6c 6f 63 6b 25 21 28 70 61 72 65 6e 74 6d |ublock%!(parentm|
00000f00 65 6e 75 25 3c 3c 32 29 3a 70 74 72 25 21 28 33 |enu%<<2):ptr%!(3|
00000f10 32 2b 69 74 65 6d 25 2a 32 34 29 3d 77 69 6e 64 |2+item%*24)=wind|
00000f20 6f 77 25 3a e1 0d 01 4a 3a dd a4 56 28 f8 41 24 |ow%:...J:..V(.A$|
00000f30 29 3a ea 6a 24 3a 6a 24 3d c0 41 24 2c a7 41 24 |):.j$:j$=.A$,.A$|
00000f40 2c 22 7c 22 29 2d 31 29 3a 41 24 3d c1 41 24 2c |,"|")-1):A$=.A$,|
00000f50 a7 41 24 2c 22 7c 22 29 2b 31 29 3a 3d 6a 24 0d |.A$,"|")+1):=j$.|
00000f60 01 54 f5 dd f2 6a 79 3a c8 99 33 39 2c 22 3c 4c |.T...jy:..39,"<L|
00000f70 61 72 67 65 72 24 44 69 72 3e 22 2c 62 6c 6f 63 |arger$Dir>",bloc|
00000f80 6b 32 25 2c 32 35 36 3a 47 24 3d a4 41 28 62 6c |k2%,256:G$=.A(bl|
00000f90 6f 63 6b 32 25 29 2b 22 2e 49 6e 74 65 72 6e 61 |ock2%)+".Interna|
00000fa0 6c 2e 22 3a 66 6f 6c 6c 6f 77 63 61 72 65 74 25 |l.":followcaret%|
00000fb0 3d a3 3a 76 24 3d 22 22 3a 72 65 73 69 7a 65 6e |=.:v$="":resizen|
00000fc0 65 65 64 65 64 25 3d a3 3a 73 65 6c 65 63 74 69 |eeded%=.:selecti|
00000fd0 76 65 25 3d a3 3a 66 69 6c 65 74 79 70 65 73 70 |ve%=.:filetypesp|
00000fe0 72 25 3d a3 3a 68 69 64 69 6e 67 25 3d a3 3a 41 |r%=.:hiding%=.:A|
00000ff0 25 28 29 3d 30 3a 73 68 69 66 74 25 3d a3 3a 66 |%()=0:shift%=.:f|
00001000 69 6c 65 72 73 61 76 65 25 3d a3 3a 72 75 6e 73 |ilersave%=.:runs|
00001010 63 72 61 70 77 68 65 6e 73 61 76 65 64 25 3d a3 |crapwhensaved%=.|
00001020 3a 72 75 6e 73 63 72 61 70 6f 6e 74 6f 25 3d 30 |:runscraponto%=0|
00001030 3a 73 65 74 63 73 64 6b 65 79 25 3d 34 32 36 3a |:setcsdkey%=426:|
00001040 63 79 63 6c 65 77 69 6e 64 6f 77 73 6b 65 79 25 |cyclewindowskey%|
00001050 3d 34 34 32 0d 01 5e f9 68 69 64 65 74 61 73 6b |=442..^.hidetask|
00001060 6b 65 79 25 3d 34 31 30 3a 63 79 63 6c 65 74 61 |key%=410:cycleta|
00001070 73 6b 73 6b 65 79 25 3d 33 38 34 3a 62 72 69 6e |skskey%=384:brin|
00001080 67 74 6f 66 72 6f 6e 74 6b 65 79 25 3d 34 36 31 |gtofrontkey%=461|
00001090 3a 68 6f 74 6b 65 79 68 6f 74 6b 65 79 25 3d 31 |:hotkeyhotkey%=1|
000010a0 32 37 3a 67 72 61 62 62 69 6e 67 68 6f 74 6b 65 |27:grabbinghotke|
000010b0 79 73 25 3d a3 3a 72 65 74 75 72 6e 63 61 72 65 |ys%=.:returncare|
000010c0 74 6e 65 78 74 74 69 6d 65 25 3d a3 3a 6f 70 65 |tnexttime%=.:ope|
000010d0 6e 6d 61 70 61 74 73 74 61 72 74 75 70 25 3d a3 |nmapatstartup%=.|
000010e0 3a 6f 70 65 6e 6d 61 70 61 74 78 25 3d 30 3a 6f |:openmapatx%=0:o|
000010f0 70 65 6e 6d 61 70 61 74 79 25 3d 30 3a 74 72 79 |penmapaty%=0:try|
00001100 69 6e 67 74 6f 72 75 6e 25 3d a3 3a 69 6e 73 74 |ingtorun%=.:inst|
00001110 61 6c 6c 69 63 6f 6e 25 3d b9 3a 6c 61 72 67 65 |allicon%=.:large|
00001120 69 63 6f 6e 25 3d a3 3a 21 6e 6f 61 70 70 73 25 |icon%=.:!noapps%|
00001130 3d 2d 31 3a 21 69 63 6f 6e 74 65 78 74 25 3d b9 |=-1:!icontext%=.|
00001140 3a 77 69 74 68 73 68 69 66 74 25 3d b9 0d 01 68 |:withshift%=...h|
00001150 f6 73 65 74 63 73 64 25 3d a3 3a 6f 70 65 6e 66 |.setcsd%=.:openf|
00001160 69 6c 65 72 25 3d b9 3a 73 63 72 6f 6c 6c 25 3d |iler%=.:scroll%=|
00001170 b9 3a 64 72 61 67 61 73 70 72 69 74 65 25 3d 28 |.:dragasprite%=(|
00001180 a4 44 28 32 38 29 80 32 29 3d 32 3a 74 65 6d 70 |.D(28).2)=2:temp|
00001190 6f 72 61 72 79 73 65 6c 65 63 74 25 3d a3 3a c8 |oraryselect%=.:.|
000011a0 99 6c 61 72 67 65 72 73 75 70 70 77 73 68 25 2c |.largersuppwsh%,|
000011b0 2d 73 63 72 6f 6c 6c 25 2c 2d 77 69 74 68 73 68 |-scroll%,-withsh|
000011c0 69 66 74 25 3a 63 6c 6f 73 65 64 6f 77 6e 25 3d |ift%:closedown%=|
000011d0 a3 3a 6f 66 66 78 25 3d 30 3a 6f 66 66 79 25 3d |.:offx%=0:offy%=|
000011e0 30 3a 78 6f 25 3d 30 3a 79 6f 25 3d 30 3a 64 72 |0:xo%=0:yo%=0:dr|
000011f0 61 67 67 69 6e 67 77 69 6e 64 6f 77 25 3d a3 3a |aggingwindow%=.:|
00001200 21 41 3d 30 3a 6e 65 78 74 66 72 65 65 62 61 63 |!A=0:nextfreebac|
00001210 6b 64 72 6f 70 25 3d 31 3a 6d 61 70 77 69 6e 64 |kdrop%=1:mapwind|
00001220 6f 77 6f 70 65 6e 25 3d a3 3a 6d 65 6e 75 6f 70 |owopen%=.:menuop|
00001230 65 6e 25 3d 30 3a 73 61 76 69 6e 67 6f 6e 74 6f |en%=0:savingonto|
00001240 25 3d a3 0d 01 72 f3 62 61 63 6b 64 72 6f 70 73 |%=...r.backdrops|
00001250 70 72 69 74 65 61 72 65 61 25 3d 30 3a 21 62 61 |pritearea%=0:!ba|
00001260 63 6b 64 72 6f 70 73 70 72 69 74 65 61 72 65 61 |ckdropspritearea|
00001270 70 74 72 25 3d 30 3a 69 63 6f 6e 69 73 69 6e 67 |ptr%=0:iconising|
00001280 25 3d a3 3a 7a 24 3d 22 22 3a 21 50 3d 31 3a 21 |%=.:z$="":!P=1:!|
00001290 69 6e 76 65 72 74 73 65 6c 25 3d 31 3a 21 73 6c |invertsel%=1:!sl|
000012a0 61 62 73 65 6c 25 3d 31 3a 69 63 6f 6e 62 61 72 |absel%=1:iconbar|
000012b0 69 63 6f 6e 25 3d 2d 31 3a 21 73 68 6f 77 70 6c |icon%=-1:!showpl|
000012c0 69 6e 74 68 73 25 3d 31 3a 21 6d 61 73 6b 25 3d |inths%=1:!mask%=|
000012d0 26 34 30 31 38 33 30 3a 3f 72 75 6e 77 69 74 68 |&401830:?runwith|
000012e0 62 75 66 66 65 72 25 3d 30 3a 3f 72 65 6e 61 6d |buffer%=0:?renam|
000012f0 65 62 75 66 25 3d 30 3a 3f 66 69 6e 64 62 75 66 |ebuf%=0:?findbuf|
00001300 25 3d 30 3a 3f 73 65 74 74 79 70 65 62 75 66 25 |%=0:?settypebuf%|
00001310 3d 30 3a 3f 6e 65 77 64 69 72 62 75 66 25 3d 30 |=0:?newdirbuf%=0|
00001320 3a f2 71 79 3a 6c 6f 61 64 69 6e 70 72 6f 67 72 |:.qy:loadinprogr|
00001330 65 73 73 25 3d a3 0d 01 7c 3e 6f 6c 64 63 6f 6e |ess%=...|>oldcon|
00001340 66 69 67 70 61 6e 65 68 65 69 67 68 74 25 3d 30 |figpaneheight%=0|
00001350 3a f2 66 79 3a f2 4a 4a 3a 69 63 72 65 73 70 6f |:.fy:.JJ:icrespo|
00001360 6e 73 65 25 3d a3 3a f2 6e 79 3a f2 53 4a 3a f2 |nse%=.:.ny:.SJ:.|
00001370 41 5f 3a e1 0d 01 86 94 dd f2 4a 4a 3a ea 66 69 |A_:.......JJ:.fi|
00001380 6c 65 25 2c 73 69 7a 65 25 2c 65 72 72 6f 72 25 |le%,size%,error%|
00001390 2c 75 6d 25 2c 6d 65 6e 75 73 25 2c 6e 6f 25 2c |,um%,menus%,no%,|
000013a0 77 72 69 74 65 25 2c 56 24 2c 66 6c 61 67 25 2c |write%,V$,flag%,|
000013b0 75 6d 77 25 2c 77 72 69 74 65 61 62 6c 65 61 72 |umw%,writeablear|
000013c0 65 61 25 3a c8 99 26 34 30 36 63 30 3a 75 63 6f |ea%:..&406c0:uco|
000013d0 6d 6d 73 25 3d 30 3a 66 69 6c 65 25 3d 8e 28 22 |mms%=0:file%=.("|
000013e0 3c 4c 61 72 67 65 72 24 44 69 72 3e 2e 50 72 65 |<Larger$Dir>.Pre|
000013f0 66 73 2e 4d 65 6e 75 44 61 74 61 22 29 3a e7 66 |fs.MenuData"):.f|
00001400 69 6c 65 25 3c 3e 30 8c 0d 01 90 58 6d 65 6e 75 |ile%<>0....Xmenu|
00001410 73 25 3d 31 3a 73 69 7a 65 25 3d 32 38 3a 65 72 |s%=1:size%=28:er|
00001420 72 6f 72 25 3d 30 3a 6c 69 6e 65 25 3d 30 3a 77 |ror%=0:line%=0:w|
00001430 72 69 74 65 61 62 6c 65 61 72 65 61 25 3d 30 3a |riteablearea%=0:|
00001440 f5 3a 6c 69 6e 65 25 2b 3d 31 3a 4d 24 3d a4 4c |.:line%+=1:M$=.L|
00001450 3a f2 42 28 4d 24 29 3a e7 4d 24 3c 3e 22 22 8c |:.B(M$):.M$<>"".|
00001460 0d 01 9a 11 e7 c0 4d 24 2c 31 29 3c 3e 22 7c 22 |......M$,1)<>"|"|
00001470 8c 0d 01 a4 0d c8 8e c0 4d 24 2c 31 29 ca 0d 01 |........M$,1)...|
00001480 ae 11 c9 22 2e 22 3a e7 4d 24 3d 22 2e 22 8c 0d |...".":.M$="."..|
00001490 01 b8 10 65 72 72 6f 72 25 3d 6c 69 6e 65 25 0d |...error%=line%.|
000014a0 01 c2 19 cc 3a 73 69 7a 65 25 2b 3d 32 38 3a 6d |....:size%+=28:m|
000014b0 65 6e 75 73 25 2b 3d 31 0d 01 cc 05 cd 0d 01 d6 |enus%+=1........|
000014c0 3b c9 22 2b 22 3a 73 69 7a 65 25 2b 3d 32 34 3a |;."+":size%+=24:|
000014d0 56 24 3d c1 4d 24 2c 32 29 3a e7 a7 56 24 2c 22 |V$=.M$,2):..V$,"|
000014e0 2c 22 29 3e 30 8c 56 24 3d c0 56 24 2c a7 56 24 |,")>0.V$=.V$,.V$|
000014f0 2c 22 2c 22 29 2d 31 29 0d 01 e0 41 f2 42 28 56 |,",")-1)...A.B(V|
00001500 24 29 3a 66 6c 61 67 25 3d b9 3a e3 6c 25 3d 31 |$):flag%=.:.l%=1|
00001510 b8 a9 56 24 3a e7 c1 56 24 2c 6c 25 2c 31 29 3c |..V$:..V$,l%,1)<|
00001520 22 30 22 84 c1 56 24 2c 6c 25 2c 31 29 3e 22 39 |"0"..V$,l%,1)>"9|
00001530 22 8c 66 6c 61 67 25 3d a3 0d 01 ea 0d ed 3a e7 |".flag%=......:.|
00001540 66 6c 61 67 25 8c 0d 01 f4 19 77 72 69 74 65 61 |flag%.....writea|
00001550 62 6c 65 61 72 65 61 25 2b 3d a0 28 56 24 29 0d |blearea%+=.(V$).|
00001560 01 fe 12 cc 3a 65 72 72 6f 72 25 3d 6c 69 6e 65 |....:error%=line|
00001570 25 0d 02 08 05 cd 0d 02 12 0f 7f 3a 73 69 7a 65 |%..........:size|
00001580 25 2b 3d 32 34 0d 02 1c 05 cb 0d 02 26 05 cd 0d |%+=24.......&...|
00001590 02 30 2d cd 3a fd c5 23 66 69 6c 65 25 84 65 72 |.0-.:..#file%.er|
000015a0 72 6f 72 25 3c 3e 30 3a e7 65 72 72 6f 72 25 3d |ror%<>0:.error%=|
000015b0 30 80 73 69 7a 65 25 3c 3e 32 38 8c 0d 02 3a 89 |0.size%<>28...:.|
000015c0 75 73 65 72 6d 65 6e 75 25 3d a4 5a 28 73 69 7a |usermenu%=.Z(siz|
000015d0 65 25 2b 6d 65 6e 75 73 25 2a 34 29 3a 75 6d 77 |e%+menus%*4):umw|
000015e0 72 69 74 65 25 3d a4 5a 28 77 72 69 74 65 61 62 |rite%=.Z(writeab|
000015f0 6c 65 61 72 65 61 25 29 3a 75 6d 77 25 3d 75 6d |learea%):umw%=um|
00001600 77 72 69 74 65 25 3a 75 6d 25 3d 75 73 65 72 6d |write%:um%=userm|
00001610 65 6e 75 25 2b 6d 65 6e 75 73 25 2a 34 3a 6e 6f |enu%+menus%*4:no|
00001620 25 3d 30 3a f2 42 79 28 75 6d 25 2c 30 2c 22 55 |%=0:.By(um%,0,"U|
00001630 73 65 72 22 2c 6e 6f 25 2c 22 22 2c 75 6d 77 25 |ser",no%,"",umw%|
00001640 29 3a f2 68 5f 0d 02 44 1d cc 3a 75 73 65 72 6d |):.h_..D..:userm|
00001650 65 6e 75 25 3d 2d 31 3a 75 6d 77 72 69 74 65 25 |enu%=-1:umwrite%|
00001660 3d 30 0d 02 4e 0d cd 3a d9 23 66 69 6c 65 25 0d |=0..N..:.#file%.|
00001670 02 58 1d cc 3a 75 73 65 72 6d 65 6e 75 25 3d 2d |.X..:usermenu%=-|
00001680 31 3a 75 6d 77 72 69 74 65 25 3d 30 0d 02 62 10 |1:umwrite%=0..b.|
00001690 cd 3a c8 99 26 34 30 36 63 31 3a e1 0d 02 6c 9b |.:..&406c1:...l.|
000016a0 dd f2 42 79 28 f8 6d 65 6d 25 2c 70 74 72 25 2c |..By(.mem%,ptr%,|
000016b0 6f 24 2c f8 6e 6f 25 2c 4f 24 2c f8 75 6d 77 25 |o$,.no%,O$,.umw%|
000016c0 29 3a ea 62 61 73 65 6e 6f 25 2c 6c 69 6e 65 25 |):.baseno%,line%|
000016d0 2c 77 24 2c 49 24 2c 4b 24 2c 74 75 6d 77 25 2c |,w$,I$,K$,tumw%,|
000016e0 74 74 75 6d 77 25 3a cf 23 66 69 6c 65 25 3d 70 |ttumw%:.#file%=p|
000016f0 74 72 25 3a 6c 69 6e 65 25 3d 2d 31 3a 74 75 6d |tr%:line%=-1:tum|
00001700 77 25 3d 75 6d 77 25 3a f5 3a 4d 24 3d a4 4c 3a |w%=umw%:.:M$=.L:|
00001710 f2 42 28 4d 24 29 3a e7 c0 4d 24 2c 31 29 3c 3e |.B(M$):..M$,1)<>|
00001720 22 2e 22 80 4d 24 3c 3e 22 22 80 c0 4d 24 2c 31 |".".M$<>""..M$,1|
00001730 29 3c 3e 22 7c 22 8c 0d 02 76 24 6c 69 6e 65 25 |)<>"|"...v$line%|
00001740 2b 3d 31 3a 75 63 6f 6d 6d 73 25 2b 3d 31 3a e7 |+=1:ucomms%+=1:.|
00001750 c0 4d 24 2c 31 29 3d 22 2b 22 8c 0d 02 80 34 4b |.M$,1)="+"....4K|
00001760 24 3d c0 4d 24 2c a7 4d 24 2c 22 2c 22 29 2d 31 |$=.M$,.M$,",")-1|
00001770 29 3a 74 74 75 6d 77 25 3d 74 75 6d 77 25 3a 74 |):ttumw%=tumw%:t|
00001780 75 6d 77 25 2b 3d a0 28 c1 4b 24 2c 32 29 29 0d |umw%+=.(.K$,2)).|
00001790 02 8a 37 cd 3a 4b 24 3d c1 4d 24 2c a7 4d 24 2c |..7.:K$=.M$,.M$,|
000017a0 22 2c 22 29 2b 31 29 3a e7 a7 4b 24 2c 22 2c 22 |",")+1):..K$,","|
000017b0 29 3e 30 8c 4b 24 3d c0 4b 24 2c a7 4b 24 2c 22 |)>0.K$=.K$,.K$,"|
000017c0 2c 22 29 2d 31 29 0d 02 94 10 e7 c0 4d 24 2c 31 |,")-1)......M$,1|
000017d0 29 3d 22 2b 22 8c 0d 02 9e 30 53 24 28 75 63 6f |)="+"....0S$(uco|
000017e0 6d 6d 73 25 29 3d 4f 24 2b c3 28 6c 69 6e 65 25 |mms%)=O$+.(line%|
000017f0 29 2b 22 2c 22 2b 4b 24 2b 22 2c 22 2b c3 28 74 |)+","+K$+","+.(t|
00001800 74 75 6d 77 25 29 0d 02 a8 24 cc 3a 53 24 28 75 |tumw%)...$.:S$(u|
00001810 63 6f 6d 6d 73 25 29 3d 4f 24 2b c3 28 6c 69 6e |comms%)=O$+.(lin|
00001820 65 25 29 2b 22 2c 22 2b 4b 24 0d 02 b2 2a cd 3a |e%)+","+K$...*.:|
00001830 4d 24 3d c0 4d 24 2c a7 4d 24 2c 22 2c 22 29 2d |M$=.M$,.M$,",")-|
00001840 31 29 3a f2 42 28 4d 24 29 3a 6f 24 2b 3d 22 7c |1):.B(M$):o$+="||
00001850 22 2b 4d 24 0d 02 bc 8b cd 3a fd c5 23 66 69 6c |"+M$.....:..#fil|
00001860 65 25 84 c0 4d 24 2c 31 29 3d 22 2e 22 3a f2 49 |e%..M$,1)=".":.I|
00001870 5f 28 6f 24 2c 6d 65 6d 25 2c 6e 6f 25 2c 75 73 |_(o$,mem%,no%,us|
00001880 65 72 6d 65 6e 75 25 2c 75 6d 77 25 29 3a 62 61 |ermenu%,umw%):ba|
00001890 73 65 6e 6f 25 3d 6e 6f 25 3a cf 23 66 69 6c 65 |seno%=no%:.#file|
000018a0 25 3d 70 74 72 25 3a 6c 69 6e 65 25 3d 2d 31 3a |%=ptr%:line%=-1:|
000018b0 f5 3a 4d 24 3d a4 4c 3a f2 42 28 4d 24 29 3a e7 |.:M$=.L:.B(M$):.|
000018c0 c0 4d 24 2c 31 29 3c 3e 22 2e 22 80 4d 24 3c 3e |.M$,1)<>".".M$<>|
000018d0 22 22 80 c0 4d 24 2c 31 29 3c 3e 22 7c 22 8c 0d |""..M$,1)<>"|"..|
000018e0 02 c6 19 6c 69 6e 65 25 2b 3d 31 3a e7 a7 4d 24 |...line%+=1:..M$|
000018f0 2c 22 2c 22 29 3e 30 8c 0d 02 d0 1b e7 a7 4d 24 |,",")>0.......M$|
00001900 2c 22 2c 22 2c a7 4d 24 2c 22 2c 22 29 2b 31 29 |,",",.M$,",")+1)|
00001910 3e 30 8c 0d 02 da 2c 49 24 3d c0 4d 24 2c a7 4d |>0....,I$=.M$,.M|
00001920 24 2c 22 2c 22 29 2d 31 29 3a e7 c0 49 24 2c 31 |$,",")-1):..I$,1|
00001930 29 3d 22 2b 22 8c 49 24 3d c1 49 24 2c 32 29 0d |)="+".I$=.I$,2).|
00001940 02 e4 19 e7 c0 49 24 2c 31 29 3d 22 2d 22 8c 49 |.....I$,1)="-".I|
00001950 24 3d c1 49 24 2c 32 29 0d 02 ee 4c f2 42 28 49 |$=.I$,2)...L.B(I|
00001960 24 29 3a 77 24 3d c1 4d 24 2c a7 4d 24 2c 22 2c |$):w$=.M$,.M$,",|
00001970 22 2c a7 4d 24 2c 22 2c 22 29 2b 31 29 2b 31 29 |",.M$,",")+1)+1)|
00001980 3a f2 42 28 77 24 29 3a 6e 6f 25 2b 3d 31 3a f2 |:.B(w$):no%+=1:.|
00001990 6c 79 28 77 24 2c 49 24 2c 6c 69 6e 65 25 2c 75 |ly(w$,I$,line%,u|
000019a0 6d 77 25 29 0d 02 f8 05 cd 0d 03 02 05 cd 0d 03 |mw%)............|
000019b0 0c 1b cd 3a fd c5 23 66 69 6c 65 25 84 c0 4d 24 |...:..#file%..M$|
000019c0 2c 31 29 3d 22 2e 22 3a e1 0d 03 16 69 dd f2 6c |,1)=".":....i..l|
000019d0 79 28 77 24 2c 49 24 2c 69 74 65 6d 25 2c f8 75 |y(w$,I$,item%,.u|
000019e0 6d 77 25 29 3a ea 70 74 72 25 2c 4d 24 3a 70 74 |mw%):.ptr%,M$:pt|
000019f0 72 25 3d 8f 23 66 69 6c 65 25 3a cf 23 66 69 6c |r%=.#file%:.#fil|
00001a00 65 25 3d 30 3a f5 3a 4d 24 3d a4 4c 3a f2 42 28 |e%=0:.:M$=.L:.B(|
00001a10 4d 24 29 3a fd c5 23 66 69 6c 65 25 84 4d 24 3d |M$):..#file%.M$=|
00001a20 22 2e 22 2b 77 24 3a e7 4d 24 3d 22 2e 22 2b 77 |"."+w$:.M$="."+w|
00001a30 24 8c 0d 03 20 48 f2 42 79 28 6d 65 6d 25 2c 8f |$... H.By(mem%,.|
00001a40 23 66 69 6c 65 25 2c 49 24 2c 6e 6f 25 2c 4f 24 |#file%,I$,no%,O$|
00001a50 2b c3 28 69 74 65 6d 25 29 2b 22 2c 22 2c 75 6d |+.(item%)+",",um|
00001a60 77 25 29 3a f2 6c 5f 28 6e 6f 25 2c 69 74 65 6d |w%):.l_(no%,item|
00001a70 25 2c 62 61 73 65 6e 6f 25 29 0d 03 2a 14 cd 3a |%,baseno%)..*..:|
00001a80 cf 23 66 69 6c 65 25 3d 70 74 72 25 3a e1 0d 03 |.#file%=ptr%:...|
00001a90 34 1c dd a4 4c 3a ea 41 24 3a 41 24 3d 22 22 3a |4...L:.A$:A$="":|
00001aa0 e7 ac c5 23 66 69 6c 65 25 8c 0d 03 3e 29 f5 3a |...#file%...>).:|
00001ab0 62 79 74 65 25 3d 9a 23 66 69 6c 65 25 3a e7 62 |byte%=.#file%:.b|
00001ac0 79 74 65 25 3e 33 31 80 62 79 74 65 25 3c 3e 31 |yte%>31.byte%<>1|
00001ad0 32 37 8c 0d 03 48 10 41 24 2b 3d bd 28 62 79 74 |27...H.A$+=.(byt|
00001ae0 65 25 29 0d 03 52 21 cd 3a fd 62 79 74 65 25 3c |e%)..R!.:.byte%<|
00001af0 33 32 84 62 79 74 65 25 3d 31 32 37 84 c5 23 66 |32.byte%=127..#f|
00001b00 69 6c 65 25 0d 03 5c 09 cd 3a 3d 41 24 0d 03 66 |ile%..\..:=A$..f|
00001b10 43 dd f2 68 5f 3a ea 70 74 72 25 3a 70 74 72 25 |C..h_:.ptr%:ptr%|
00001b20 3d 21 6d 65 6e 75 62 6c 6f 63 6b 25 3a 70 74 72 |=!menublock%:ptr|
00001b30 25 21 28 33 32 2b 34 2a 32 34 29 3d 75 73 65 72 |%!(32+4*24)=user|
00001b40 6d 65 6e 75 25 2b 6d 65 6e 75 73 25 2a 34 3a e1 |menu%+menus%*4:.|
00001b50 0d 03 70 77 dd f2 6c 5f 28 73 75 62 6d 65 6e 75 |..pw..l_(submenu|
00001b60 25 2c 69 74 65 6d 25 2c 70 61 72 65 6e 74 6d 65 |%,item%,parentme|
00001b70 6e 75 25 29 3a ea 70 74 72 25 3a 70 74 72 25 3d |nu%):.ptr%:ptr%=|
00001b80 75 73 65 72 6d 65 6e 75 25 21 28 70 61 72 65 6e |usermenu%!(paren|
00001b90 74 6d 65 6e 75 25 3c 3c 32 29 3a 70 74 72 25 21 |tmenu%<<2):ptr%!|
00001ba0 28 33 32 2b 69 74 65 6d 25 2a 32 34 29 3d 75 73 |(32+item%*24)=us|
00001bb0 65 72 6d 65 6e 75 25 21 28 73 75 62 6d 65 6e 75 |ermenu%!(submenu|
00001bc0 25 3c 3c 32 29 3a e1 0d 03 7a f1 dd f2 49 5f 28 |%<<2):...z...I_(|
00001bd0 41 24 2c f8 70 74 72 25 2c 6e 6f 25 2c 6d 65 6e |A$,.ptr%,no%,men|
00001be0 75 62 6c 6f 63 6b 25 2c f8 75 6d 77 25 29 3a ea |ublock%,.umw%):.|
00001bf0 46 24 2c 6f 66 66 25 3a 41 24 2b 3d 22 7c 22 3a |F$,off%:A$+="|":|
00001c00 6d 65 6e 75 62 6c 6f 63 6b 25 21 28 6e 6f 25 3c |menublock%!(no%<|
00001c10 3c 32 29 3d 70 74 72 25 3a 46 24 3d a4 56 28 41 |<2)=ptr%:F$=.V(A|
00001c20 24 29 3a 24 70 74 72 25 3d 46 24 3a 70 74 72 25 |$):$ptr%=F$:ptr%|
00001c30 3f 31 32 3d 37 3a 70 74 72 25 3f 31 33 3d 32 3a |?12=7:ptr%?13=2:|
00001c40 70 74 72 25 3f 31 34 3d 37 3a 70 74 72 25 3f 31 |ptr%?14=7:ptr%?1|
00001c50 35 3d 30 3a 70 74 72 25 21 31 36 3d 31 32 2a 31 |5=0:ptr%!16=12*1|
00001c60 36 3a 70 74 72 25 21 32 30 3d 34 34 3a 70 74 72 |6:ptr%!20=44:ptr|
00001c70 25 21 32 34 3d 30 3a 6f 66 66 25 3d 32 38 3a f5 |%!24=0:off%=28:.|
00001c80 3a 46 24 3d a4 56 28 41 24 29 3a 70 74 72 25 21 |:F$=.V(A$):ptr%!|
00001c90 6f 66 66 25 3d 30 3a e7 41 24 3d 22 22 8c 70 74 |off%=0:.A$="".pt|
00001ca0 72 25 21 6f 66 66 25 3d 70 74 72 25 21 6f 66 66 |r%!off%=ptr%!off|
00001cb0 25 84 28 31 3c 3c 37 29 0d 03 84 45 70 74 72 25 |%.(1<<7)...Eptr%|
00001cc0 21 28 6f 66 66 25 2b 34 29 3d 2d 31 3a 70 74 72 |!(off%+4)=-1:ptr|
00001cd0 25 21 28 6f 66 66 25 2b 38 29 3d 36 35 35 36 39 |%!(off%+8)=65569|
00001ce0 2b 28 37 3c 3c 32 34 29 2b 28 30 3c 3c 32 38 29 |+(7<<24)+(0<<28)|
00001cf0 3a e7 c0 46 24 2c 31 29 3d 22 2d 22 8c 0d 03 8e |:..F$,1)="-"....|
00001d00 28 70 74 72 25 21 6f 66 66 25 3d 70 74 72 25 21 |(ptr%!off%=ptr%!|
00001d10 6f 66 66 25 84 28 31 3c 3c 31 29 3a 46 24 3d c1 |off%.(1<<1):F$=.|
00001d20 46 24 2c 32 29 0d 03 98 0f cd 3a c8 8e c0 46 24 |F$,2).....:...F$|
00001d30 2c 31 29 ca 0d 03 a2 9e c9 22 2b 22 3a 46 24 3d |,1)......"+":F$=|
00001d40 c1 46 24 2c 32 29 3a 70 74 72 25 21 6f 66 66 25 |.F$,2):ptr%!off%|
00001d50 3d 70 74 72 25 21 6f 66 66 25 84 28 31 3c 3c 32 |=ptr%!off%.(1<<2|
00001d60 29 3a 70 74 72 25 21 28 6f 66 66 25 2b 38 29 3d |):ptr%!(off%+8)=|
00001d70 70 74 72 25 21 28 6f 66 66 25 2b 38 29 84 28 31 |ptr%!(off%+8).(1|
00001d80 3c 3c 38 29 3a 70 74 72 25 21 28 6f 66 66 25 2b |<<8):ptr%!(off%+|
00001d90 31 32 29 3d 75 6d 77 25 3a 70 74 72 25 21 28 6f |12)=umw%:ptr%!(o|
00001da0 66 66 25 2b 31 36 29 3d 30 3a 70 74 72 25 21 28 |ff%+16)=0:ptr%!(|
00001db0 6f 66 66 25 2b 32 30 29 3d a0 28 46 24 29 3a 3f |off%+20)=.(F$):?|
00001dc0 75 6d 77 25 3d 30 3a 75 6d 77 25 2b 3d a0 28 46 |umw%=0:umw%+=.(F|
00001dd0 24 29 0d 03 ac 18 7f 3a 24 28 70 74 72 25 2b 6f |$).....:$(ptr%+o|
00001de0 66 66 25 2b 31 32 29 3d 46 24 0d 03 b6 22 cb 3a |ff%+12)=F$...".:|
00001df0 6f 66 66 25 2b 3d 32 34 3a fd 41 24 3d 22 22 3a |off%+=24:.A$="":|
00001e00 70 74 72 25 2b 3d 6f 66 66 25 3a e1 0d 03 c0 8a |ptr%+=off%:.....|
00001e10 dd f2 6e 79 3a 21 62 6c 6f 63 6b 25 3d 32 34 3a |..ny:!block%=24:|
00001e20 62 6c 6f 63 6b 25 21 31 32 3d 30 3a 62 6c 6f 63 |block%!12=0:bloc|
00001e30 6b 25 21 31 36 3d 26 34 30 30 63 63 3a 62 6c 6f |k%!16=&400cc:blo|
00001e40 63 6b 25 21 32 30 3d 30 3a 62 6c 6f 63 6b 25 21 |ck%!20=0:block%!|
00001e50 32 34 3d 30 3a 62 6c 6f 63 6b 25 21 32 38 3d 30 |24=0:block%!28=0|
00001e60 3a 62 6c 6f 63 6b 25 21 33 36 3d 30 3a c8 99 26 |:block%!36=0:..&|
00001e70 34 30 30 65 37 2c 31 37 2c 62 6c 6f 63 6b 25 2c |400e7,17,block%,|
00001e80 30 3a 63 75 72 72 65 6e 74 69 63 6f 6e 69 73 65 |0:currenticonise|
00001e90 72 25 3d b9 3a e1 0d 03 ca 96 dd f2 53 4a 3a 21 |r%=.:.......SJ:!|
00001ea0 73 70 72 69 74 65 61 72 65 61 25 3d 32 31 30 30 |spritearea%=2100|
00001eb0 30 3a 73 70 72 69 74 65 61 72 65 61 25 21 34 3d |0:spritearea%!4=|
00001ec0 31 36 3a c8 99 34 36 2c 39 2b 32 35 36 2c 73 70 |16:..46,9+256,sp|
00001ed0 72 69 74 65 61 72 65 61 25 3a c8 99 34 36 2c 31 |ritearea%:..46,1|
00001ee0 30 2b 32 35 36 2c 73 70 72 69 74 65 61 72 65 61 |0+256,spritearea|
00001ef0 25 2c 22 3c 4c 61 72 67 65 72 24 44 69 72 3e 2e |%,"<Larger$Dir>.|
00001f00 53 70 72 69 74 65 73 22 3a 21 6c 61 72 67 65 72 |Sprites":!larger|
00001f10 73 70 72 69 74 65 61 72 65 61 70 74 72 25 3d 73 |spriteareaptr%=s|
00001f20 70 72 69 74 65 61 72 65 61 25 3a e1 0d 03 d4 8d |pritearea%:.....|
00001f30 dd f2 41 5f 3a ea 73 69 7a 65 25 3a c8 99 26 34 |..A_:.size%:..&4|
00001f40 31 35 30 30 2c 2c 22 3c 4c 61 72 67 65 72 24 44 |1500,,"<Larger$D|
00001f50 69 72 3e 2e 4d 65 73 73 61 67 65 73 22 b8 2c 2c |ir>.Messages".,,|
00001f60 73 69 7a 65 25 3a 6d 65 73 73 61 67 65 66 64 25 |size%:messagefd%|
00001f70 3d a4 5a 28 73 69 7a 65 25 2b 31 36 29 3a c8 99 |=.Z(size%+16):..|
00001f80 26 34 31 35 30 31 2c 6d 65 73 73 61 67 65 66 64 |&41501,messagefd|
00001f90 25 2c 22 3c 4c 61 72 67 65 72 24 44 69 72 3e 2e |%,"<Larger$Dir>.|
00001fa0 4d 65 73 73 61 67 65 73 22 2c 6d 65 73 73 61 67 |Messages",messag|
00001fb0 65 66 64 25 2b 31 36 3a e1 0d 03 de 0f dd a4 7a |efd%+16:.......z|
00001fc0 3a 3d 31 32 33 34 35 36 0d ff |:=123456..|
00001fca 
.