MenuBar2/!MenuBar/Overlays/Lib

Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Extras1 » MenuBar2/!MenuBar/Overlays/Lib_Save

MenuBar2/!MenuBar/Overlays/Lib_Save

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 1997-04 A.adf » Extras1
Filename:	MenuBar2/!MenuBar/Overlays/Lib_Save
Read OK:	✔
File size:	0B7A bytes
Load address:	0000
Exec address:	0000

File contents

  932REM> Lib/Save
  933DEFPROCd_(hy%,Ay%,Py%,WJ%):IFhy%=0THENPROCU
  934IFAy%>-1THEN
  935y$=J$:IFAy%<Cy%THEND$=A$(Ay%+1)
  936CASEPy%OF
  937WHEN-1:IFAy%<Cy%THEN
  938PROCz(D$)
  939ELSE:IFAy%=Cy%+1THENOSCLI"Filer_OpenDir "+U$
  940ENDIF
  941WHEN0:IFAy%<Cy%THEN
  942PROCz(D$)
  943ELSE:PROCzy($ey%)
  944ENDIF
  945WHEN1:PROCc(D$)
  946WHEN2:PROCx_(D$)
  947WHEN3:PROCz_(D$,$ey%)
  948WHEN4:PROCY_(D$,$ey%)
  949ENDCASE
  950ENDIF:ENDPROC
  951DEFPROCY_(w$,L$):LOCALZ$,_%:_%=TRUE:IFw$=L$THEN
  952PROCP
  953ELSE:IFFNZ(B$+"."+L$)THEN
  954M$="'"+L$+"' already exists,OK to overwrite?":z%=FNS(M$,"Cancel,Overwrite",2):IFz%<>2THEN_%=FALSE
  955ENDIF:IF_%THEN
  956x$="A~C~DF~L~N~P~QR~S~T~V":OSCLI("Copy "+B$+"."+w$+" "+B$+"."+L$+" "+x$):Z$=_$+"."+w$:IFFNZ(Z$)THEN
  957OSCLI("Copy "+Z$+" "+_$+"."+L$+" "+x$)
  958ENDIF:PROCU:PROCR
  959ENDIF
  960ENDIF:ENDPROC
  961DEFPROCz_(w$,L$):LOCALZ$,_%:_%=TRUE:IFw$=L$THEN
  962PROCP
  963ELSE:IFFNZ(B$+"."+L$)THEN
  964M$="'"+L$+"' already exists,OK to overwrite?":z%=FNS(M$,"Cancel,Overwrite",2):IFz%<>2THEN_%=FALSE
  965ENDIF:IF_%THEN
  966OSCLI("Rename "+B$+"."+w$+" "+B$+"."+L$):Z$=_$+"."+w$:IFFNZ(Z$)THEN
  967OSCLI("Rename "+Z$+" "+_$+"."+L$)
  968ENDIF:IFw$=X$THENPROCc(L$)
  969IFw$=J$THENJ$=L$
  970PROCU:PROCR
  971ENDIF
  972ENDIF:ENDPROC
  973DEFPROCC_(L$):LOCAL_%:_%=TRUE:IFL$=""THEN
  974M$="Please enter bar name":z%=FNS(M$,"OK",1):_%=FALSE
  975ENDIF:IF_%ANDFNZ(B$+"."+L$)THEN
  976M$="'"+L$+"' already exists in Library":z%=FNS(M$,"Cancel,OK",2):IFz%<>2THEN_%=FALSE
  977ENDIF:IF_%THENJ$=L$:l%=TRUE
  978ENDPROC
  979DEFPROCc(P$):LOCALJ%,Z%,Z$:Z$=U$+".Default":IFVy%ANDP$=X$THENP$=""
  980X$=P$:F%=OPENOUT(Z$):BPUT#F%,X$:OSCLI("SetType "+Z$+" &FFF"):CLOSE#F%:F%=0:PROCR:ENDPROC
  981DEFPROCx_(P$):LOCALZ$:Vy%=FALSE:M$="Command: Delete bar '"+P$+"'":M$+=",Are you sure?":O$="Cancel command,Delete bar":z%=FNS(M$,O$,2):IFz%=2THEN
  982Z$=B$+"."+P$:IFFNZ(Z$)THEN
  983SYS8,6,Z$
  984ENDIF:Z$=_$+"."+P$:IFFNZ(Z$)THEN
  985SYS8,6,Z$
  986ENDIF:IFP$=X$THEN
  987X$="":Z$=U$+".Default":F%=OPENOUT(Z$):BPUT#F%,X$:OSCLI("SetType "+Z$+" &FFF"):CLOSE#F%:F%=0
  988ENDIF:PROCU
  989ENDIF:ENDPROC
  990DEFPROCzy(F$):LOCALJ%:Vy%=FALSE:IFFNFy(B$,F$)THEN
  991SYS&406C0:PROCSy:PROCm:J$=F$:PROCh(J$):FORJ%=1TOr%:Z%(J%)=J%:$C%(J%)="Menu "+STR$J%:NEXT:PROCL(J$):SYS&406C2
  992ENDIF:ENDPROC
  993DEFFNFy(g$,F$):LOCALM$,N%,z%:N%=TRUE:IFF$=""THEN
  994M$="Please enter library name":z%=FNS(M$,"OK",1):N%=FALSE
  995ENDIF:z%=-1:IFN%THEN
  996IFl%THEN
  997M$="Command: Create bar '"+F$+"'":M$+=",...but changes have been made!":O$="Ignore changes,Cancel command,Save changes":z%=FNS(M$,O$,2):CASEz%OF
  998WHEN0,2:N%=FALSE
  999WHEN3:PROCL(J$)
 1000ENDCASE
 1001ENDIF:IFFNZ(g$+"."+F$)ANDz%<>0ANDz%<>2THEN
 1002M$="'"+F$+"' already exists,OK to overwrite?":z%=FNS(M$,"Cancel,Overwrite",2):IFz%<>2THENN%=FALSEELSESYS8,6,g$+"."+F$
 1003ENDIF
 1004ENDIF:=N%
 1005DEFPROCL(F$):SYS&406C0:PROCey(F$):PROCTy(F$):PROCU:IFCy%=1THEN
 1006X$=A$(1):PROCc(X$)
 1007ENDIF:SYS&406C2:PROCAy:ENDPROC
 1008DEFPROCey(F$):LOCALJ%,R%,e%,M_%:?D%=w%:R%=1:FORJ%=1TOr%:D%?R%=Z%(J%):R%+=1:NEXT:FORJ%=r%+1TO&F:D%?J%=0:NEXT:FORJ%=21TO28:D%?J%=0:NEXT:$(D%+29)="MB":R%=48:FORJ%=1TOr%:$(D%+R%)=$C%(J%):R%+=16:NEXT:e%=T%-D%:M_%=D%+e%:SYS8,&A,B$+"."+F$,&FFD,,D%,M_%:l%=FALSE:ENDPROC
 1009DEFPROCTy(F$):LOCALJ%,K%,L%,Q%,X%,Z$,A$,r$,R%,I$,`$:Z$=_$+"."+F$:I$=FNK("%24%mi"):`$=FNK("%zdy/%zmn/%yr"):F%=OPENOUT(Z$):BPUT#F%,"MenuBar2 '"+J$+"' at "+I$+" on "+`$:BPUT#F%,"":w%=D%?0:R%=16:A$="":FORJ%=1TO5:A$+=STR$(D%?R%)+",":R%+=1:NEXT:A$=LEFT$(A$,LENA$-1)+"."
 1010BPUT#F%,STR$w%+" menus defined.  Colours are: "+A$:FORJ%=1TOw%:L%=Z%(J%):Q%=FNF(L%):X%=FNM(Q%):BPUT#F%,"":A$=STR$J%+". ":A$+=$C%(L%):r$=STRING$(LENA$,"-"):BPUT#F%,A$:BPUT#F%,r$:IFX%>0THEN
 1011FORK%=1TOX%:A$=RIGHT$(" "+STR$K%,2)+". ":BPUT#F%,A$+FNC(L%,K%):NEXT
 1012ENDIF:NEXT:OSCLI("SetType "+Z$+" &FFF"):CLOSE#F%:F%=0:ENDPROC

��> Lib/Save
�#��d_(hy%,Ay%,Py%,WJ%):�hy%=0��U
��Ay%>-1�
�y$=J$:�Ay%<Cy%�D$=A$(Ay%+1)
�
ȎPy%�
��-1:�Ay%<Cy%�
�
�z(D$)
�%�:�Ay%=Cy%+1��"Filer_OpenDir "+U$
��
��0:�Ay%<Cy%�
�
�z(D$)
��:�zy($ey%)
��
�
�1:�c(D$)
��2:�x_(D$)
��3:�z_(D$,$ey%)
��4:�Y_(D$,$ey%)
��
��:�
�#��Y_(w$,L$):�Z$,_%:_%=�:�w$=L$�
��P
��:�Z(B$+"."+L$)�
�\M$="'"+L$+"' already exists,OK to overwrite?":z%=�S(M$,"Cancel,Overwrite",2):�z%<>2�_%=�
�
�:�_%�
�^x$="A~C~DF~L~N~P~QR~S~T~V":�("Copy "+B$+"."+w$+" "+B$+"."+L$+" "+x$):Z$=_$+"."+w$:�Z(Z$)�
�&�("Copy "+Z$+" "+_$+"."+L$+" "+x$)
��:�U:�R
��
��:�
�#��z_(w$,L$):�Z$,_%:_%=�:�w$=L$�
��P
��:�Z(B$+"."+L$)�
�\M$="'"+L$+"' already exists,OK to overwrite?":z%=�S(M$,"Cancel,Overwrite",2):�z%<>2�_%=�
�
�:�_%�
�>�("Rename "+B$+"."+w$+" "+B$+"."+L$):Z$=_$+"."+w$:�Z(Z$)�
�!�("Rename "+Z$+" "+_$+"."+L$)
��:�w$=X$��c(L$)
��w$=J$�J$=L$
�	�U:�R
��
��:�
���C_(L$):�_%:_%=�:�L$=""�
�4M$="Please enter bar name":z%=�S(M$,"OK",1):_%=�
��:�_%��Z(B$+"."+L$)�
�OM$="'"+L$+"' already exists in Library":z%=�S(M$,"Cancel,OK",2):�z%<>2�_%=�
��:�_%�J$=L$:l%=�
��
�7��c(P$):�J%,Z%,Z$:Z$=U$+".Default":�Vy%�P$=X$�P$=""
�BX$=P$:F%=�(Z$):�#F%,X$:�("SetType "+Z$+" &FFF"):�#F%:F%=0:�R:�
Ղ��x_(P$):�Z$:Vy%=�:M$="Command: Delete bar '"+P$+"'":M$+=",Are you sure?":O$="Cancel command,Delete bar":z%=�S(M$,O$,2):�z%=2�
�Z$=B$+"."+P$:�Z(Z$)�
�ș8,6,Z$
��:Z$=_$+"."+P$:�Z(Z$)�
�ș8,6,Z$
�
�:�P$=X$�
�NX$="":Z$=U$+".Default":F%=�(Z$):�#F%,X$:�("SetType "+Z$+" &FFF"):�#F%:F%=0
��:�U
��:�
�#��zy(F$):�J%:Vy%=�:�Fy(B$,F$)�
�Yș&406C0:�Sy:�m:J$=F$:�h(J$):�J%=1�r%:Z%(J%)=J%:$C%(J%)="Menu "+�J%:�:�L(J$):ș&406C2
��:�
�&ݤFy(g$,F$):�M$,N%,z%:N%=�:�F$=""�
�8M$="Please enter library name":z%=�S(M$,"OK",1):N%=�
��:z%=-1:�N%�
��l%�
�M$="Command: Create bar '"+F$+"'":M$+=",...but changes have been made!":O$="Ignore changes,Cancel command,Save changes":z%=�S(M$,O$,2):Ȏz%�
�
�0,2:N%=�
�
�3:�L(J$)
��
�!�:�Z(g$+"."+F$)�z%<>0�z%<>2�
�lM$="'"+F$+"' already exists,OK to overwrite?":z%=�S(M$,"Cancel,Overwrite",2):�z%<>2�N%=��ș8,6,g$+"."+F$
��
�	�:=N%
�/��L(F$):ș&406C0:�ey(F$):�Ty(F$):�U:�Cy%=1�
�X$=A$(1):�c(X$)
��:ș&406C2:�Ay:�
����ey(F$):�J%,R%,e%,M_%:?D%=w%:R%=1:�J%=1�r%:D%?R%=Z%(J%):R%+=1:�:�J%=r%+1�&F:D%?J%=0:�:�J%=21�28:D%?J%=0:�:$(D%+29)="MB":R%=48:�J%=1�r%:$(D%+R%)=$C%(J%):R%+=16:�:e%=T%-D%:M_%=D%+e%:ș8,&A,B$+"."+F$,&FFD,,D%,M_%:l%=�:�
����Ty(F$):�J%,K%,L%,Q%,X%,Z$,A$,r$,R%,I$,`$:Z$=_$+"."+F$:I$=�K("%24%mi"):`$=�K("%zdy/%zmn/%yr"):F%=�(Z$):�#F%,"MenuBar2 '"+J$+"' at "+I$+" on "+`$:�#F%,"":w%=D%?0:R%=16:A$="":�J%=1�5:A$+=�(D%?R%)+",":R%+=1:�:A$=�A$,�A$-1)+"."
��#F%,�w%+" menus defined.  Colours are: "+A$:�J%=1�w%:L%=Z%(J%):Q%=�F(L%):X%=�M(Q%):�#F%,"":A$=�J%+". ":A$+=$C%(L%):r$=ĩA$,"-"):�#F%,A$:�#F%,r$:�X%>0�
�4�K%=1�X%:A$=�" "+�K%,2)+". ":�#F%,A$+�C(L%,K%):�
�,�:�:�("SetType "+Z$+" &FFF"):�#F%:F%=0:�
�

00000000  0d 03 a4 0f f4 3e 20 4c  69 62 2f 53 61 76 65 0d  |.....> Lib/Save.|
00000010  03 a5 23 dd f2 64 5f 28  68 79 25 2c 41 79 25 2c  |..#..d_(hy%,Ay%,|
00000020  50 79 25 2c 57 4a 25 29  3a e7 68 79 25 3d 30 8c  |Py%,WJ%):.hy%=0.|
00000030  f2 55 0d 03 a6 0c e7 41  79 25 3e 2d 31 8c 0d 03  |.U.....Ay%>-1...|
00000040  a7 1f 79 24 3d 4a 24 3a  e7 41 79 25 3c 43 79 25  |..y$=J$:.Ay%<Cy%|
00000050  8c 44 24 3d 41 24 28 41  79 25 2b 31 29 0d 03 a8  |.D$=A$(Ay%+1)...|
00000060  0a c8 8e 50 79 25 ca 0d  03 a9 11 c9 2d 31 3a e7  |...Py%......-1:.|
00000070  41 79 25 3c 43 79 25 8c  0d 03 aa 0a f2 7a 28 44  |Ay%<Cy%......z(D|
00000080  24 29 0d 03 ab 25 cc 3a  e7 41 79 25 3d 43 79 25  |$)...%.:.Ay%=Cy%|
00000090  2b 31 8c ff 22 46 69 6c  65 72 5f 4f 70 65 6e 44  |+1.."Filer_OpenD|
000000a0  69 72 20 22 2b 55 24 0d  03 ac 05 cd 0d 03 ad 10  |ir "+U$.........|
000000b0  c9 30 3a e7 41 79 25 3c  43 79 25 8c 0d 03 ae 0a  |.0:.Ay%<Cy%.....|
000000c0  f2 7a 28 44 24 29 0d 03  af 0f cc 3a f2 7a 79 28  |.z(D$).....:.zy(|
000000d0  24 65 79 25 29 0d 03 b0  05 cd 0d 03 b1 0d c9 31  |$ey%)..........1|
000000e0  3a f2 63 28 44 24 29 0d  03 b2 0e c9 32 3a f2 78  |:.c(D$).....2:.x|
000000f0  5f 28 44 24 29 0d 03 b3  13 c9 33 3a f2 7a 5f 28  |_(D$).....3:.z_(|
00000100  44 24 2c 24 65 79 25 29  0d 03 b4 13 c9 34 3a f2  |D$,$ey%).....4:.|
00000110  59 5f 28 44 24 2c 24 65  79 25 29 0d 03 b5 05 cb  |Y_(D$,$ey%).....|
00000120  0d 03 b6 07 cd 3a e1 0d  03 b7 23 dd f2 59 5f 28  |.....:....#..Y_(|
00000130  77 24 2c 4c 24 29 3a ea  5a 24 2c 5f 25 3a 5f 25  |w$,L$):.Z$,_%:_%|
00000140  3d b9 3a e7 77 24 3d 4c  24 8c 0d 03 b8 06 f2 50  |=.:.w$=L$......P|
00000150  0d 03 b9 15 cc 3a e7 a4  5a 28 42 24 2b 22 2e 22  |.....:..Z(B$+"."|
00000160  2b 4c 24 29 8c 0d 03 ba  5c 4d 24 3d 22 27 22 2b  |+L$)....\M$="'"+|
00000170  4c 24 2b 22 27 20 61 6c  72 65 61 64 79 20 65 78  |L$+"' already ex|
00000180  69 73 74 73 2c 4f 4b 20  74 6f 20 6f 76 65 72 77  |ists,OK to overw|
00000190  72 69 74 65 3f 22 3a 7a  25 3d a4 53 28 4d 24 2c  |rite?":z%=.S(M$,|
000001a0  22 43 61 6e 63 65 6c 2c  4f 76 65 72 77 72 69 74  |"Cancel,Overwrit|
000001b0  65 22 2c 32 29 3a e7 7a  25 3c 3e 32 8c 5f 25 3d  |e",2):.z%<>2._%=|
000001c0  a3 0d 03 bb 0a cd 3a e7  5f 25 8c 0d 03 bc 5e 78  |......:._%....^x|
000001d0  24 3d 22 41 7e 43 7e 44  46 7e 4c 7e 4e 7e 50 7e  |$="A~C~DF~L~N~P~|
000001e0  51 52 7e 53 7e 54 7e 56  22 3a ff 28 22 43 6f 70  |QR~S~T~V":.("Cop|
000001f0  79 20 22 2b 42 24 2b 22  2e 22 2b 77 24 2b 22 20  |y "+B$+"."+w$+" |
00000200  22 2b 42 24 2b 22 2e 22  2b 4c 24 2b 22 20 22 2b  |"+B$+"."+L$+" "+|
00000210  78 24 29 3a 5a 24 3d 5f  24 2b 22 2e 22 2b 77 24  |x$):Z$=_$+"."+w$|
00000220  3a e7 a4 5a 28 5a 24 29  8c 0d 03 bd 26 ff 28 22  |:..Z(Z$)....&.("|
00000230  43 6f 70 79 20 22 2b 5a  24 2b 22 20 22 2b 5f 24  |Copy "+Z$+" "+_$|
00000240  2b 22 2e 22 2b 4c 24 2b  22 20 22 2b 78 24 29 0d  |+"."+L$+" "+x$).|
00000250  03 be 0b cd 3a f2 55 3a  f2 52 0d 03 bf 05 cd 0d  |....:.U:.R......|
00000260  03 c0 07 cd 3a e1 0d 03  c1 23 dd f2 7a 5f 28 77  |....:....#..z_(w|
00000270  24 2c 4c 24 29 3a ea 5a  24 2c 5f 25 3a 5f 25 3d  |$,L$):.Z$,_%:_%=|
00000280  b9 3a e7 77 24 3d 4c 24  8c 0d 03 c2 06 f2 50 0d  |.:.w$=L$......P.|
00000290  03 c3 15 cc 3a e7 a4 5a  28 42 24 2b 22 2e 22 2b  |....:..Z(B$+"."+|
000002a0  4c 24 29 8c 0d 03 c4 5c  4d 24 3d 22 27 22 2b 4c  |L$)....\M$="'"+L|
000002b0  24 2b 22 27 20 61 6c 72  65 61 64 79 20 65 78 69  |$+"' already exi|
000002c0  73 74 73 2c 4f 4b 20 74  6f 20 6f 76 65 72 77 72  |sts,OK to overwr|
000002d0  69 74 65 3f 22 3a 7a 25  3d a4 53 28 4d 24 2c 22  |ite?":z%=.S(M$,"|
000002e0  43 61 6e 63 65 6c 2c 4f  76 65 72 77 72 69 74 65  |Cancel,Overwrite|
000002f0  22 2c 32 29 3a e7 7a 25  3c 3e 32 8c 5f 25 3d a3  |",2):.z%<>2._%=.|
00000300  0d 03 c5 0a cd 3a e7 5f  25 8c 0d 03 c6 3e ff 28  |.....:._%....>.(|
00000310  22 52 65 6e 61 6d 65 20  22 2b 42 24 2b 22 2e 22  |"Rename "+B$+"."|
00000320  2b 77 24 2b 22 20 22 2b  42 24 2b 22 2e 22 2b 4c  |+w$+" "+B$+"."+L|
00000330  24 29 3a 5a 24 3d 5f 24  2b 22 2e 22 2b 77 24 3a  |$):Z$=_$+"."+w$:|
00000340  e7 a4 5a 28 5a 24 29 8c  0d 03 c7 21 ff 28 22 52  |..Z(Z$)....!.("R|
00000350  65 6e 61 6d 65 20 22 2b  5a 24 2b 22 20 22 2b 5f  |ename "+Z$+" "+_|
00000360  24 2b 22 2e 22 2b 4c 24  29 0d 03 c8 13 cd 3a e7  |$+"."+L$).....:.|
00000370  77 24 3d 58 24 8c f2 63  28 4c 24 29 0d 03 c9 10  |w$=X$..c(L$)....|
00000380  e7 77 24 3d 4a 24 8c 4a  24 3d 4c 24 0d 03 ca 09  |.w$=J$.J$=L$....|
00000390  f2 55 3a f2 52 0d 03 cb  05 cd 0d 03 cc 07 cd 3a  |.U:.R..........:|
000003a0  e1 0d 03 cd 1d dd f2 43  5f 28 4c 24 29 3a ea 5f  |.......C_(L$):._|
000003b0  25 3a 5f 25 3d b9 3a e7  4c 24 3d 22 22 8c 0d 03  |%:_%=.:.L$=""...|
000003c0  ce 34 4d 24 3d 22 50 6c  65 61 73 65 20 65 6e 74  |.4M$="Please ent|
000003d0  65 72 20 62 61 72 20 6e  61 6d 65 22 3a 7a 25 3d  |er bar name":z%=|
000003e0  a4 53 28 4d 24 2c 22 4f  4b 22 2c 31 29 3a 5f 25  |.S(M$,"OK",1):_%|
000003f0  3d a3 0d 03 cf 18 cd 3a  e7 5f 25 80 a4 5a 28 42  |=......:._%..Z(B|
00000400  24 2b 22 2e 22 2b 4c 24  29 8c 0d 03 d0 4f 4d 24  |$+"."+L$)....OM$|
00000410  3d 22 27 22 2b 4c 24 2b  22 27 20 61 6c 72 65 61  |="'"+L$+"' alrea|
00000420  64 79 20 65 78 69 73 74  73 20 69 6e 20 4c 69 62  |dy exists in Lib|
00000430  72 61 72 79 22 3a 7a 25  3d a4 53 28 4d 24 2c 22  |rary":z%=.S(M$,"|
00000440  43 61 6e 63 65 6c 2c 4f  4b 22 2c 32 29 3a e7 7a  |Cancel,OK",2):.z|
00000450  25 3c 3e 32 8c 5f 25 3d  a3 0d 03 d1 14 cd 3a e7  |%<>2._%=......:.|
00000460  5f 25 8c 4a 24 3d 4c 24  3a 6c 25 3d b9 0d 03 d2  |_%.J$=L$:l%=....|
00000470  05 e1 0d 03 d3 37 dd f2  63 28 50 24 29 3a ea 4a  |.....7..c(P$):.J|
00000480  25 2c 5a 25 2c 5a 24 3a  5a 24 3d 55 24 2b 22 2e  |%,Z%,Z$:Z$=U$+".|
00000490  44 65 66 61 75 6c 74 22  3a e7 56 79 25 80 50 24  |Default":.Vy%.P$|
000004a0  3d 58 24 8c 50 24 3d 22  22 0d 03 d4 42 58 24 3d  |=X$.P$=""...BX$=|
000004b0  50 24 3a 46 25 3d ae 28  5a 24 29 3a d5 23 46 25  |P$:F%=.(Z$):.#F%|
000004c0  2c 58 24 3a ff 28 22 53  65 74 54 79 70 65 20 22  |,X$:.("SetType "|
000004d0  2b 5a 24 2b 22 20 26 46  46 46 22 29 3a d9 23 46  |+Z$+" &FFF"):.#F|
000004e0  25 3a 46 25 3d 30 3a f2  52 3a e1 0d 03 d5 82 dd  |%:F%=0:.R:......|
000004f0  f2 78 5f 28 50 24 29 3a  ea 5a 24 3a 56 79 25 3d  |.x_(P$):.Z$:Vy%=|
00000500  a3 3a 4d 24 3d 22 43 6f  6d 6d 61 6e 64 3a 20 44  |.:M$="Command: D|
00000510  65 6c 65 74 65 20 62 61  72 20 27 22 2b 50 24 2b  |elete bar '"+P$+|
00000520  22 27 22 3a 4d 24 2b 3d  22 2c 41 72 65 20 79 6f  |"'":M$+=",Are yo|
00000530  75 20 73 75 72 65 3f 22  3a 4f 24 3d 22 43 61 6e  |u sure?":O$="Can|
00000540  63 65 6c 20 63 6f 6d 6d  61 6e 64 2c 44 65 6c 65  |cel command,Dele|
00000550  74 65 20 62 61 72 22 3a  7a 25 3d a4 53 28 4d 24  |te bar":z%=.S(M$|
00000560  2c 4f 24 2c 32 29 3a e7  7a 25 3d 32 8c 0d 03 d6  |,O$,2):.z%=2....|
00000570  19 5a 24 3d 42 24 2b 22  2e 22 2b 50 24 3a e7 a4  |.Z$=B$+"."+P$:..|
00000580  5a 28 5a 24 29 8c 0d 03  d7 0c c8 99 38 2c 36 2c  |Z(Z$).......8,6,|
00000590  5a 24 0d 03 d8 1b cd 3a  5a 24 3d 5f 24 2b 22 2e  |Z$.....:Z$=_$+".|
000005a0  22 2b 50 24 3a e7 a4 5a  28 5a 24 29 8c 0d 03 d9  |"+P$:..Z(Z$)....|
000005b0  0c c8 99 38 2c 36 2c 5a  24 0d 03 da 0d cd 3a e7  |...8,6,Z$.....:.|
000005c0  50 24 3d 58 24 8c 0d 03  db 4e 58 24 3d 22 22 3a  |P$=X$....NX$="":|
000005d0  5a 24 3d 55 24 2b 22 2e  44 65 66 61 75 6c 74 22  |Z$=U$+".Default"|
000005e0  3a 46 25 3d ae 28 5a 24  29 3a d5 23 46 25 2c 58  |:F%=.(Z$):.#F%,X|
000005f0  24 3a ff 28 22 53 65 74  54 79 70 65 20 22 2b 5a  |$:.("SetType "+Z|
00000600  24 2b 22 20 26 46 46 46  22 29 3a d9 23 46 25 3a  |$+" &FFF"):.#F%:|
00000610  46 25 3d 30 0d 03 dc 08  cd 3a f2 55 0d 03 dd 07  |F%=0.....:.U....|
00000620  cd 3a e1 0d 03 de 23 dd  f2 7a 79 28 46 24 29 3a  |.:....#..zy(F$):|
00000630  ea 4a 25 3a 56 79 25 3d  a3 3a e7 a4 46 79 28 42  |.J%:Vy%=.:..Fy(B|
00000640  24 2c 46 24 29 8c 0d 03  df 59 c8 99 26 34 30 36  |$,F$)....Y..&406|
00000650  43 30 3a f2 53 79 3a f2  6d 3a 4a 24 3d 46 24 3a  |C0:.Sy:.m:J$=F$:|
00000660  f2 68 28 4a 24 29 3a e3  4a 25 3d 31 b8 72 25 3a  |.h(J$):.J%=1.r%:|
00000670  5a 25 28 4a 25 29 3d 4a  25 3a 24 43 25 28 4a 25  |Z%(J%)=J%:$C%(J%|
00000680  29 3d 22 4d 65 6e 75 20  22 2b c3 4a 25 3a ed 3a  |)="Menu "+.J%:.:|
00000690  f2 4c 28 4a 24 29 3a c8  99 26 34 30 36 43 32 0d  |.L(J$):..&406C2.|
000006a0  03 e0 07 cd 3a e1 0d 03  e1 26 dd a4 46 79 28 67  |....:....&..Fy(g|
000006b0  24 2c 46 24 29 3a ea 4d  24 2c 4e 25 2c 7a 25 3a  |$,F$):.M$,N%,z%:|
000006c0  4e 25 3d b9 3a e7 46 24  3d 22 22 8c 0d 03 e2 38  |N%=.:.F$=""....8|
000006d0  4d 24 3d 22 50 6c 65 61  73 65 20 65 6e 74 65 72  |M$="Please enter|
000006e0  20 6c 69 62 72 61 72 79  20 6e 61 6d 65 22 3a 7a  | library name":z|
000006f0  25 3d a4 53 28 4d 24 2c  22 4f 4b 22 2c 31 29 3a  |%=.S(M$,"OK",1):|
00000700  4e 25 3d a3 0d 03 e3 10  cd 3a 7a 25 3d 2d 31 3a  |N%=......:z%=-1:|
00000710  e7 4e 25 8c 0d 03 e4 08  e7 6c 25 8c 0d 03 e5 90  |.N%......l%.....|
00000720  4d 24 3d 22 43 6f 6d 6d  61 6e 64 3a 20 43 72 65  |M$="Command: Cre|
00000730  61 74 65 20 62 61 72 20  27 22 2b 46 24 2b 22 27  |ate bar '"+F$+"'|
00000740  22 3a 4d 24 2b 3d 22 2c  2e 2e 2e 62 75 74 20 63  |":M$+=",...but c|
00000750  68 61 6e 67 65 73 20 68  61 76 65 20 62 65 65 6e  |hanges have been|
00000760  20 6d 61 64 65 21 22 3a  4f 24 3d 22 49 67 6e 6f  | made!":O$="Igno|
00000770  72 65 20 63 68 61 6e 67  65 73 2c 43 61 6e 63 65  |re changes,Cance|
00000780  6c 20 63 6f 6d 6d 61 6e  64 2c 53 61 76 65 20 63  |l command,Save c|
00000790  68 61 6e 67 65 73 22 3a  7a 25 3d a4 53 28 4d 24  |hanges":z%=.S(M$|
000007a0  2c 4f 24 2c 32 29 3a c8  8e 7a 25 ca 0d 03 e6 0d  |,O$,2):..z%.....|
000007b0  c9 30 2c 32 3a 4e 25 3d  a3 0d 03 e7 0d c9 33 3a  |.0,2:N%=......3:|
000007c0  f2 4c 28 4a 24 29 0d 03  e8 05 cb 0d 03 e9 21 cd  |.L(J$)........!.|
000007d0  3a e7 a4 5a 28 67 24 2b  22 2e 22 2b 46 24 29 80  |:..Z(g$+"."+F$).|
000007e0  7a 25 3c 3e 30 80 7a 25  3c 3e 32 8c 0d 03 ea 6c  |z%<>0.z%<>2....l|
000007f0  4d 24 3d 22 27 22 2b 46  24 2b 22 27 20 61 6c 72  |M$="'"+F$+"' alr|
00000800  65 61 64 79 20 65 78 69  73 74 73 2c 4f 4b 20 74  |eady exists,OK t|
00000810  6f 20 6f 76 65 72 77 72  69 74 65 3f 22 3a 7a 25  |o overwrite?":z%|
00000820  3d a4 53 28 4d 24 2c 22  43 61 6e 63 65 6c 2c 4f  |=.S(M$,"Cancel,O|
00000830  76 65 72 77 72 69 74 65  22 2c 32 29 3a e7 7a 25  |verwrite",2):.z%|
00000840  3c 3e 32 8c 4e 25 3d a3  8b c8 99 38 2c 36 2c 67  |<>2.N%=....8,6,g|
00000850  24 2b 22 2e 22 2b 46 24  0d 03 eb 05 cd 0d 03 ec  |$+"."+F$........|
00000860  09 cd 3a 3d 4e 25 0d 03  ed 2f dd f2 4c 28 46 24  |..:=N%.../..L(F$|
00000870  29 3a c8 99 26 34 30 36  43 30 3a f2 65 79 28 46  |):..&406C0:.ey(F|
00000880  24 29 3a f2 54 79 28 46  24 29 3a f2 55 3a e7 43  |$):.Ty(F$):.U:.C|
00000890  79 25 3d 31 8c 0d 03 ee  13 58 24 3d 41 24 28 31  |y%=1.....X$=A$(1|
000008a0  29 3a f2 63 28 58 24 29  0d 03 ef 14 cd 3a c8 99  |):.c(X$).....:..|
000008b0  26 34 30 36 43 32 3a f2  41 79 3a e1 0d 03 f0 dd  |&406C2:.Ay:.....|
000008c0  dd f2 65 79 28 46 24 29  3a ea 4a 25 2c 52 25 2c  |..ey(F$):.J%,R%,|
000008d0  65 25 2c 4d 5f 25 3a 3f  44 25 3d 77 25 3a 52 25  |e%,M_%:?D%=w%:R%|
000008e0  3d 31 3a e3 4a 25 3d 31  b8 72 25 3a 44 25 3f 52  |=1:.J%=1.r%:D%?R|
000008f0  25 3d 5a 25 28 4a 25 29  3a 52 25 2b 3d 31 3a ed  |%=Z%(J%):R%+=1:.|
00000900  3a e3 4a 25 3d 72 25 2b  31 b8 26 46 3a 44 25 3f  |:.J%=r%+1.&F:D%?|
00000910  4a 25 3d 30 3a ed 3a e3  4a 25 3d 32 31 b8 32 38  |J%=0:.:.J%=21.28|
00000920  3a 44 25 3f 4a 25 3d 30  3a ed 3a 24 28 44 25 2b  |:D%?J%=0:.:$(D%+|
00000930  32 39 29 3d 22 4d 42 22  3a 52 25 3d 34 38 3a e3  |29)="MB":R%=48:.|
00000940  4a 25 3d 31 b8 72 25 3a  24 28 44 25 2b 52 25 29  |J%=1.r%:$(D%+R%)|
00000950  3d 24 43 25 28 4a 25 29  3a 52 25 2b 3d 31 36 3a  |=$C%(J%):R%+=16:|
00000960  ed 3a 65 25 3d 54 25 2d  44 25 3a 4d 5f 25 3d 44  |.:e%=T%-D%:M_%=D|
00000970  25 2b 65 25 3a c8 99 38  2c 26 41 2c 42 24 2b 22  |%+e%:..8,&A,B$+"|
00000980  2e 22 2b 46 24 2c 26 46  46 44 2c 2c 44 25 2c 4d  |."+F$,&FFD,,D%,M|
00000990  5f 25 3a 6c 25 3d a3 3a  e1 0d 03 f1 e4 dd f2 54  |_%:l%=.:.......T|
000009a0  79 28 46 24 29 3a ea 4a  25 2c 4b 25 2c 4c 25 2c  |y(F$):.J%,K%,L%,|
000009b0  51 25 2c 58 25 2c 5a 24  2c 41 24 2c 72 24 2c 52  |Q%,X%,Z$,A$,r$,R|
000009c0  25 2c 49 24 2c 60 24 3a  5a 24 3d 5f 24 2b 22 2e  |%,I$,`$:Z$=_$+".|
000009d0  22 2b 46 24 3a 49 24 3d  a4 4b 28 22 25 32 34 25  |"+F$:I$=.K("%24%|
000009e0  6d 69 22 29 3a 60 24 3d  a4 4b 28 22 25 7a 64 79  |mi"):`$=.K("%zdy|
000009f0  2f 25 7a 6d 6e 2f 25 79  72 22 29 3a 46 25 3d ae  |/%zmn/%yr"):F%=.|
00000a00  28 5a 24 29 3a d5 23 46  25 2c 22 4d 65 6e 75 42  |(Z$):.#F%,"MenuB|
00000a10  61 72 32 20 27 22 2b 4a  24 2b 22 27 20 61 74 20  |ar2 '"+J$+"' at |
00000a20  22 2b 49 24 2b 22 20 6f  6e 20 22 2b 60 24 3a d5  |"+I$+" on "+`$:.|
00000a30  23 46 25 2c 22 22 3a 77  25 3d 44 25 3f 30 3a 52  |#F%,"":w%=D%?0:R|
00000a40  25 3d 31 36 3a 41 24 3d  22 22 3a e3 4a 25 3d 31  |%=16:A$="":.J%=1|
00000a50  b8 35 3a 41 24 2b 3d c3  28 44 25 3f 52 25 29 2b  |.5:A$+=.(D%?R%)+|
00000a60  22 2c 22 3a 52 25 2b 3d  31 3a ed 3a 41 24 3d c0  |",":R%+=1:.:A$=.|
00000a70  41 24 2c a9 41 24 2d 31  29 2b 22 2e 22 0d 03 f2  |A$,.A$-1)+"."...|
00000a80  9b d5 23 46 25 2c c3 77  25 2b 22 20 6d 65 6e 75  |..#F%,.w%+" menu|
00000a90  73 20 64 65 66 69 6e 65  64 2e 20 20 43 6f 6c 6f  |s defined.  Colo|
00000aa0  75 72 73 20 61 72 65 3a  20 22 2b 41 24 3a e3 4a  |urs are: "+A$:.J|
00000ab0  25 3d 31 b8 77 25 3a 4c  25 3d 5a 25 28 4a 25 29  |%=1.w%:L%=Z%(J%)|
00000ac0  3a 51 25 3d a4 46 28 4c  25 29 3a 58 25 3d a4 4d  |:Q%=.F(L%):X%=.M|
00000ad0  28 51 25 29 3a d5 23 46  25 2c 22 22 3a 41 24 3d  |(Q%):.#F%,"":A$=|
00000ae0  c3 4a 25 2b 22 2e 20 22  3a 41 24 2b 3d 24 43 25  |.J%+". ":A$+=$C%|
00000af0  28 4c 25 29 3a 72 24 3d  c4 a9 41 24 2c 22 2d 22  |(L%):r$=..A$,"-"|
00000b00  29 3a d5 23 46 25 2c 41  24 3a d5 23 46 25 2c 72  |):.#F%,A$:.#F%,r|
00000b10  24 3a e7 58 25 3e 30 8c  0d 03 f3 34 e3 4b 25 3d  |$:.X%>0....4.K%=|
00000b20  31 b8 58 25 3a 41 24 3d  c2 22 20 22 2b c3 4b 25  |1.X%:A$=." "+.K%|
00000b30  2c 32 29 2b 22 2e 20 22  3a d5 23 46 25 2c 41 24  |,2)+". ":.#F%,A$|
00000b40  2b a4 43 28 4c 25 2c 4b  25 29 3a ed 0d 03 f4 2c  |+.C(L%,K%):....,|
00000b50  cd 3a ed 3a ff 28 22 53  65 74 54 79 70 65 20 22  |.:.:.("SetType "|
00000b60  2b 5a 24 2b 22 20 26 46  46 46 22 29 3a d9 23 46  |+Z$+" &FFF"):.#F|
00000b70  25 3a 46 25 3d 30 3a e1  0d ff                    |%:F%=0:...|
00000b7a

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