   10REM Disc menu and status
   20REM by Peter L. Rochford
   30REM For BBC+DFS, 6502 SP
   40REM (c) Acorn User - July 1985
   50:
   60ON ERROR PROCerror:END
   70C%=FALSE
   80*FX4 1
   90REM IMPORTANT! See text about following line.
  100*FX200 3
  110MODE7
  120VDU23,1,0;0;0;0;
  130DIM W$(31),C 10,J% 10
  140J%?0=0:T%=&7A00:E%=&7900
  150PROCmainprog
  160:
  170REPEAT
  180A%=GET
  190IF A%>47 AND A%<52 THEN CLS:J%?0=A%-48:PROCdrive:PROCmainprog
  200IF A%=16 THEN PROCprint
  210IF A%=17 THEN *FX210,1  
  220IF A%=3 AND S%=TRUE THEN PROCshow
  230UNTIL A%>64 AND A%<Z%+65
  240CLS
  250VDU 23,1,1;0;0;0;
  260*DIR =
  270*FX 4 0
  280*FX200 0
  290IF LEFT$(W$(A%-64),1)=CHR$(173AND&7F) THEN GOTO 340
  300REM Set Page as DFS default
  310PAGE=&1900
  315*K.0 LO.W$(A%-64)|M*DIR $|MRUN|M
  320*FX138,0,128
  330END
  340$C=W$(A%-64)
  350X%=C MOD 256:Y%=C DIV 256
  360REM Set Page as DFS default
  370PAGE=&1900
  380CALL &FFF7
  390END
  400:
  410DEF PROCmainprog
  420PROCreadsectors
  430PROCdisctitle
  440PROCgetfiles
  450PROCdisplayfiles
  460PROCdiscstatus
  470*FX 21 0
  480ENDPROC
  490:
  500DEF PROCreadsectors
  510J%!1=E%:J%?5=3:J%?6=&53:J%?7=0:J%?8=0:J%?9=&22
  520A%=&7F
  530X%=J% MOD 256:Y%=J% DIV 256
  540CALL &FFF1
  550IF J%?10<>0 THEN C%=TRUE:PROCerror:END
  560ENDPROC
  570:
  580DEF PROCdisctitle
  590D$=""
  600FOR L%=E% TO E%+7
  610D$=D$+CHR$(?L%)
  620NEXTL%
  630FORL%=T% TO T%+3
  640D$=D$+CHR$(?L%)
  650NEXTL%
  660IF ASC(D$)=0 THEN D$="No Disc Title"
  670PRINTTAB(1,0);CHR$(148);STRING$(38,"s")
  680FOR I%=1TO2
  690PRINTTAB(0,I%);CHR$(141);CHR$(134);CHR$(157);CHR$(132);TAB(20-LEN(D$)/2,I%);D$
  700NEXTI%
  710PRINTTAB(1,3);CHR$(148);STRING$(38,"s")
  720ENDPROC
  730:
  740DEF PROCgetfiles
  750F%=T%?5 DIV 8
  760Z%=0
  770FOR I%=1 TO F%
  780F$=CHR$(?(E%+I%*8)MOD128)
  790L$=CHR$(?(E%+I%*8+8-1)AND&7F)
  800IF ASC(L$)=0 L$=CHR$(36)
  810P$=L$+"."+F$
  820FOR W%=E%+I%*8+1 TO E%+I%*8+8-2
  830P$=P$+CHR$(?W%)
  840NEXTW%
  850IF LEFT$(P$,1)=CHR$(171AND&7F) OR LEFT$(P$,1)=CHR$(173AND&7F) THEN Z%=Z%+1:W$(Z%)=P$
  860NEXTI%
  870ENDPROC
  880:
  890DEF PROCdisplayfiles
  900IF Z%=0 PRINTTAB(2,10);CHR$(134);"No menufiles on the disc in";CHR$(135);"Drive ";J%?0;TAB(6,14);CHR$(134);"Please select another Drive,";TAB(8,16);CHR$(134);"or press BREAK to exit":ENDPROC
  910FOR I%=1 TO Z% STEP2
  920PRINTTAB(7);CHR$(134);CHR$(I%+64);" ";CHR$(135);RIGHT$(W$(I%),LEN(W$(I%))-2);:IF I%<=Z%-1THEN PRINTTAB(23);CHR$(134);CHR$(I%+65);" ";CHR$(135);RIGHT$(W$(I%+1),LEN(W$(I%+1))-2)
  930NEXTI%
  940ENDPROC
  950:
  960DEF PROCdiscstatus
  970IF Z%=0 ENDPROC
  980S%=FALSE
  990M%=T%?&F:N%=T%?&E:B%=T%?&D:P%=T%?&C
 1000U%=(N% AND 3)*256+M%+(N% AND &30)*16+B%-(P%<>0)
 1010K%=&200:H%=T%+T%?5
 1020REPEAT
 1030IF ?(H%+4)<>0 THEN Q%=&100 ELSE Q%=0
 1040Q%=Q%+256*?(H%+5)+256*16*(?(H%+6)AND &30)
 1050K%=K%+Q%:H%=H%-8
 1060UNTILH%=T%
 1070V%=256*(T%?6 AND 3 )+T%?7-U%
 1080PRINTTAB(1,20);CHR$(148);STRING$(38,"s")
 1090PRINTTAB(1,21);CHR$(134);CHR$(157);CHR$(132)
 1100IF U%-(K% DIV 256)>0 THEN S%=TRUE:PRINTTAB(3,21);CHR$(148);CHR$(136);"$";
 1110PRINTTAB(6,21);CHR$(137);CHR$(132);"Status of disc in Drive ";J%?0
 1120PRINTTAB(1,22);CHR$(134);CHR$(157);CHR$(132);" Bytes free:"V%*256;TAB(24,22);"Files free:";31-F%;
 1130PRINTTAB(1,23);CHR$(148);STRING$(38,"s");
 1140ENDPROC
 1150:
 1160DEF PROCdrive
 1170$C="DRIVE"+STR$(A%-48)
 1180X%=C MOD 256:Y%=C DIV 256
 1190CALL&FFF7
 1200ENDPROC
 1210:
 1220DEF PROCshow
 1230PRINTTAB(4,24);CHR$(134);"Bytes released by *COMPACT:";(U%-(K% DIV 256))*256;
 1240TIME=0
 1250REPEATUNTIL TIME=300
 1260PRINTTAB(0,24);SPC(38);
 1270ENDPROC
 1280:
 1290DEF PROCprint
 1300*FX 3 10
 1310VDU27,69,14
 1320PRINT D$
 1330VDU27,70,15
 1340PRINTSTRING$(47,"-")
 1350FOR I%=1TOZ%
 1360PRINTRIGHT$(W$(I%),LEN(W$(I%))-2);"   ";
 1370IF I%MOD 5=0 THEN PRINT
 1380NEXTI%
 1390PRINT'STRING$(47,"-")
 1400PRINT"Bytes free: ";V%*256;SPC(15);"Files free: ";31-F%
 1410VDU 18
 1420*FX3 0
 1430ENDPROC
 1440:
 1450DEF PROCerror
 1460ON ERROR OFF
 1470*FX3,0
 1480*FX4 0
 1490*FX200 0
 1500VDU 22 7
 1510IF C%=TRUE THEN PRINT;CHR$(130);"Disk Error ";J%?10:ENDPROC
 1520REPORT:PRINT" at line ";ERL
 1530ENDPROC


� Disc menu and status
� by Peter L. Rochford
� For BBC+DFS, 6502 SP
( � (c) Acorn User - July 1985
2:
<� � �error:�
FC%=�
P
*FX4 1
Z/� IMPORTANT! See text about following line.
d*FX200 3
n�7
x�23,1,0;0;0;0;
�� W$(31),C 10,J% 10
�J%?0=0:T%=&7A00:E%=&7900
�
�mainprog
�:
��
�A%=�
�3� A%>47 � A%<52 � �:J%?0=A%-48:�drive:�mainprog
�� A%=16 � �print
�� A%=17 � *FX210,1  
�� A%=3 � S%=� � �show
�� A%>64 � A%<Z%+65
��
�� 23,1,1;0;0;0;
*DIR =
*FX 4 0
*FX200 0
"'� �W$(A%-64),1)=�(173�&7F) � � �DTA
,� Set Page as DFS default
6�=&1900
;$*K.0 LO.W$(A%-64)|M*DIR $|MRUN|M
@*FX138,0,128
J�
T$C=W$(A%-64)
^X%=C � 256:Y%=C � 256
h� Set Page as DFS default
r�=&1900
|� &FFF7
��
�:
�� �mainprog
��readsectors
��disctitle
�
�getfiles
��displayfiles
��discstatus
�*FX 21 0
��
�:
�� �readsectors
�2J%!1=E%:J%?5=3:J%?6=&53:J%?7=0:J%?8=0:J%?9=&22

A%=&7F
X%=J% � 256:Y%=J% � 256
� &FFF1
&� J%?10<>0 � C%=�:�error:�
0�
::
D� �disctitle
N	D$=""
X� L%=E% � E%+7
bD$=D$+�(?L%)
l�L%
v�L%=T% � T%+3
�D$=D$+�(?L%)
��L%
�"� �(D$)=0 � D$="No Disc Title"
��1,0);�(148);�38,"s")
�� I%=1�2
�:�0,I%);�(141);�(134);�(157);�(132);�20-�(D$)/2,I%);D$
��I%
��1,3);�(148);�38,"s")
��
�:
�� �getfiles
�F%=T%?5 � 8
�Z%=0
� I%=1 � F%
F$=�(?(E%+I%*8)�128)
L$=�(?(E%+I%*8+8-1)�&7F)
 � �(L$)=0 L$=�(36)
*P$=L$+"."+F$
4 � W%=E%+I%*8+1 � E%+I%*8+8-2
>P$=P$+�(?W%)
H�W%
R?� �P$,1)=�(171�&7F) � �P$,1)=�(173�&7F) � Z%=Z%+1:W$(Z%)=P$
\�I%
f�
p:
z� �displayfiles
��� Z%=0 �2,10);�(134);"No menufiles on the disc in";�(135);"Drive ";J%?0;�6,14);�(134);"Please select another Drive,";�8,16);�(134);"or press BREAK to exit":�
�� I%=1 � Z% �2
��7);�(134);�(I%+64);" ";�(135);�W$(I%),�(W$(I%))-2);:� I%<=Z%-1� �23);�(134);�(I%+65);" ";�(135);�W$(I%+1),�(W$(I%+1))-2)
��I%
��
�:
�� �discstatus
�� Z%=0 �
�S%=�
�'M%=T%?&F:N%=T%?&E:B%=T%?&D:P%=T%?&C
�/U%=(N% � 3)*256+M%+(N% � &30)*16+B%-(P%<>0)
�K%=&200:H%=T%+T%?5
��
!� ?(H%+4)<>0 � Q%=&100 � Q%=0
+Q%=Q%+256*?(H%+5)+256*16*(?(H%+6)� &30)
K%=K%+Q%:H%=H%-8
$
�H%=T%
.V%=256*(T%?6 � 3 )+T%?7-U%
8�1,20);�(148);�38,"s")
B �1,21);�(134);�(157);�(132)
L7� U%-(K% � 256)>0 � S%=�:�3,21);�(148);�(136);"$";
V9�6,21);�(137);�(132);"Status of disc in Drive ";J%?0
`R�1,22);�(134);�(157);�(132);" Bytes free:"V%*256;�24,22);"Files free:";31-F%;
j�1,23);�(148);�38,"s");
t�
~:
�� �drive
�$C="DRIVE"+�(A%-48)
�X%=C � 256:Y%=C � 256
�
�&FFF7
��
�:
�� �show
�E�4,24);�(134);"Bytes released by *COMPACT:";(U%-(K% � 256))*256;
��=0
��� �=300
��0,24);�(38);
��
:

� �print
*FX 3 10

�27,69,14
(� D$
2
�27,70,15
<
��47,"-")
F
� I%=1�Z%
P ��W$(I%),�(W$(I%))-2);"   ";
Z� I%� 5=0 � �
d�I%
n�'�47,"-")
x5�"Bytes free: ";V%*256;�(15);"Files free: ";31-F%
�� 18
�
*FX3 0
��
�:
�� �error
�	� � �
�
*FX3,0
�
*FX4 0
�*FX200 0
�
� 22 7
�+� C%=� � �;�(130);"Disk Error ";J%?10:�
��:�" at line ";�
��
�

00000000  0d 00 0a 1a f4 20 44 69  73 63 20 6d 65 6e 75 20  |..... Disc menu |
00000010  61 6e 64 20 73 74 61 74  75 73 0d 00 14 1a f4 20  |and status..... |
00000020  62 79 20 50 65 74 65 72  20 4c 2e 20 52 6f 63 68  |by Peter L. Roch|
00000030  66 6f 72 64 0d 00 1e 1a  f4 20 46 6f 72 20 42 42  |ford..... For BB|
00000040  43 2b 44 46 53 2c 20 36  35 30 32 20 53 50 0d 00  |C+DFS, 6502 SP..|
00000050  28 20 f4 20 28 63 29 20  41 63 6f 72 6e 20 55 73  |( . (c) Acorn Us|
00000060  65 72 20 2d 20 4a 75 6c  79 20 31 39 38 35 0d 00  |er - July 1985..|
00000070  32 05 3a 0d 00 3c 10 ee  20 85 20 f2 65 72 72 6f  |2.:..<.. . .erro|
00000080  72 3a e0 0d 00 46 08 43  25 3d a3 0d 00 50 0a 2a  |r:...F.C%=...P.*|
00000090  46 58 34 20 31 0d 00 5a  2f f4 20 49 4d 50 4f 52  |FX4 1..Z/. IMPOR|
000000a0  54 41 4e 54 21 20 53 65  65 20 74 65 78 74 20 61  |TANT! See text a|
000000b0  62 6f 75 74 20 66 6f 6c  6c 6f 77 69 6e 67 20 6c  |bout following l|
000000c0  69 6e 65 2e 0d 00 64 0c  2a 46 58 32 30 30 20 33  |ine...d.*FX200 3|
000000d0  0d 00 6e 06 eb 37 0d 00  78 12 ef 32 33 2c 31 2c  |..n..7..x..23,1,|
000000e0  30 3b 30 3b 30 3b 30 3b  0d 00 82 17 de 20 57 24  |0;0;0;0;..... W$|
000000f0  28 33 31 29 2c 43 20 31  30 2c 4a 25 20 31 30 0d  |(31),C 10,J% 10.|
00000100  00 8c 1c 4a 25 3f 30 3d  30 3a 54 25 3d 26 37 41  |...J%?0=0:T%=&7A|
00000110  30 30 3a 45 25 3d 26 37  39 30 30 0d 00 96 0d f2  |00:E%=&7900.....|
00000120  6d 61 69 6e 70 72 6f 67  0d 00 a0 05 3a 0d 00 aa  |mainprog....:...|
00000130  05 f5 0d 00 b4 08 41 25  3d a5 0d 00 be 33 e7 20  |......A%=....3. |
00000140  41 25 3e 34 37 20 80 20  41 25 3c 35 32 20 8c 20  |A%>47 . A%<52 . |
00000150  db 3a 4a 25 3f 30 3d 41  25 2d 34 38 3a f2 64 72  |.:J%?0=A%-48:.dr|
00000160  69 76 65 3a f2 6d 61 69  6e 70 72 6f 67 0d 00 c8  |ive:.mainprog...|
00000170  14 e7 20 41 25 3d 31 36  20 8c 20 f2 70 72 69 6e  |.. A%=16 . .prin|
00000180  74 0d 00 d2 18 e7 20 41  25 3d 31 37 20 8c 20 2a  |t..... A%=17 . *|
00000190  46 58 32 31 30 2c 31 20  20 0d 00 dc 19 e7 20 41  |FX210,1  ..... A|
000001a0  25 3d 33 20 80 20 53 25  3d b9 20 8c 20 f2 73 68  |%=3 . S%=. . .sh|
000001b0  6f 77 0d 00 e6 16 fd 20  41 25 3e 36 34 20 80 20  |ow..... A%>64 . |
000001c0  41 25 3c 5a 25 2b 36 35  0d 00 f0 05 db 0d 00 fa  |A%<Z%+65........|
000001d0  13 ef 20 32 33 2c 31 2c  31 3b 30 3b 30 3b 30 3b  |.. 23,1,1;0;0;0;|
000001e0  0d 01 04 0a 2a 44 49 52  20 3d 0d 01 0e 0b 2a 46  |....*DIR =....*F|
000001f0  58 20 34 20 30 0d 01 18  0c 2a 46 58 32 30 30 20  |X 4 0....*FX200 |
00000200  30 0d 01 22 27 e7 20 c0  57 24 28 41 25 2d 36 34  |0.."'. .W$(A%-64|
00000210  29 2c 31 29 3d bd 28 31  37 33 80 26 37 46 29 20  |),1)=.(173.&7F) |
00000220  8c 20 e5 20 8d 44 54 41  0d 01 2c 1d f4 20 53 65  |. . .DTA..,.. Se|
00000230  74 20 50 61 67 65 20 61  73 20 44 46 53 20 64 65  |t Page as DFS de|
00000240  66 61 75 6c 74 0d 01 36  0b d0 3d 26 31 39 30 30  |fault..6..=&1900|
00000250  0d 01 3b 24 2a 4b 2e 30  20 4c 4f 2e 57 24 28 41  |..;$*K.0 LO.W$(A|
00000260  25 2d 36 34 29 7c 4d 2a  44 49 52 20 24 7c 4d 52  |%-64)|M*DIR $|MR|
00000270  55 4e 7c 4d 0d 01 40 10  2a 46 58 31 33 38 2c 30  |UN|M..@.*FX138,0|
00000280  2c 31 32 38 0d 01 4a 05  e0 0d 01 54 10 24 43 3d  |,128..J....T.$C=|
00000290  57 24 28 41 25 2d 36 34  29 0d 01 5e 19 58 25 3d  |W$(A%-64)..^.X%=|
000002a0  43 20 83 20 32 35 36 3a  59 25 3d 43 20 81 20 32  |C . 256:Y%=C . 2|
000002b0  35 36 0d 01 68 1d f4 20  53 65 74 20 50 61 67 65  |56..h.. Set Page|
000002c0  20 61 73 20 44 46 53 20  64 65 66 61 75 6c 74 0d  | as DFS default.|
000002d0  01 72 0b d0 3d 26 31 39  30 30 0d 01 7c 0b d6 20  |.r..=&1900..|.. |
000002e0  26 46 46 46 37 0d 01 86  05 e0 0d 01 90 05 3a 0d  |&FFF7.........:.|
000002f0  01 9a 0f dd 20 f2 6d 61  69 6e 70 72 6f 67 0d 01  |.... .mainprog..|
00000300  a4 10 f2 72 65 61 64 73  65 63 74 6f 72 73 0d 01  |...readsectors..|
00000310  ae 0e f2 64 69 73 63 74  69 74 6c 65 0d 01 b8 0d  |...disctitle....|
00000320  f2 67 65 74 66 69 6c 65  73 0d 01 c2 11 f2 64 69  |.getfiles.....di|
00000330  73 70 6c 61 79 66 69 6c  65 73 0d 01 cc 0f f2 64  |splayfiles.....d|
00000340  69 73 63 73 74 61 74 75  73 0d 01 d6 0c 2a 46 58  |iscstatus....*FX|
00000350  20 32 31 20 30 0d 01 e0  05 e1 0d 01 ea 05 3a 0d  | 21 0.........:.|
00000360  01 f4 12 dd 20 f2 72 65  61 64 73 65 63 74 6f 72  |.... .readsector|
00000370  73 0d 01 fe 32 4a 25 21  31 3d 45 25 3a 4a 25 3f  |s...2J%!1=E%:J%?|
00000380  35 3d 33 3a 4a 25 3f 36  3d 26 35 33 3a 4a 25 3f  |5=3:J%?6=&53:J%?|
00000390  37 3d 30 3a 4a 25 3f 38  3d 30 3a 4a 25 3f 39 3d  |7=0:J%?8=0:J%?9=|
000003a0  26 32 32 0d 02 08 0a 41  25 3d 26 37 46 0d 02 12  |&22....A%=&7F...|
000003b0  1b 58 25 3d 4a 25 20 83  20 32 35 36 3a 59 25 3d  |.X%=J% . 256:Y%=|
000003c0  4a 25 20 81 20 32 35 36  0d 02 1c 0b d6 20 26 46  |J% . 256..... &F|
000003d0  46 46 31 0d 02 26 1e e7  20 4a 25 3f 31 30 3c 3e  |FF1..&.. J%?10<>|
000003e0  30 20 8c 20 43 25 3d b9  3a f2 65 72 72 6f 72 3a  |0 . C%=.:.error:|
000003f0  e0 0d 02 30 05 e1 0d 02  3a 05 3a 0d 02 44 10 dd  |...0....:.:..D..|
00000400  20 f2 64 69 73 63 74 69  74 6c 65 0d 02 4e 09 44  | .disctitle..N.D|
00000410  24 3d 22 22 0d 02 58 12  e3 20 4c 25 3d 45 25 20  |$=""..X.. L%=E% |
00000420  b8 20 45 25 2b 37 0d 02  62 10 44 24 3d 44 24 2b  |. E%+7..b.D$=D$+|
00000430  bd 28 3f 4c 25 29 0d 02  6c 07 ed 4c 25 0d 02 76  |.(?L%)..l..L%..v|
00000440  11 e3 4c 25 3d 54 25 20  b8 20 54 25 2b 33 0d 02  |..L%=T% . T%+3..|
00000450  80 10 44 24 3d 44 24 2b  bd 28 3f 4c 25 29 0d 02  |..D$=D$+.(?L%)..|
00000460  8a 07 ed 4c 25 0d 02 94  22 e7 20 97 28 44 24 29  |...L%...". .(D$)|
00000470  3d 30 20 8c 20 44 24 3d  22 4e 6f 20 44 69 73 63  |=0 . D$="No Disc|
00000480  20 54 69 74 6c 65 22 0d  02 9e 1a f1 8a 31 2c 30  | Title"......1,0|
00000490  29 3b bd 28 31 34 38 29  3b c4 33 38 2c 22 73 22  |);.(148);.38,"s"|
000004a0  29 0d 02 a8 0c e3 20 49  25 3d 31 b8 32 0d 02 b2  |)..... I%=1.2...|
000004b0  3a f1 8a 30 2c 49 25 29  3b bd 28 31 34 31 29 3b  |:..0,I%);.(141);|
000004c0  bd 28 31 33 34 29 3b bd  28 31 35 37 29 3b bd 28  |.(134);.(157);.(|
000004d0  31 33 32 29 3b 8a 32 30  2d a9 28 44 24 29 2f 32  |132);.20-.(D$)/2|
000004e0  2c 49 25 29 3b 44 24 0d  02 bc 07 ed 49 25 0d 02  |,I%);D$.....I%..|
000004f0  c6 1a f1 8a 31 2c 33 29  3b bd 28 31 34 38 29 3b  |....1,3);.(148);|
00000500  c4 33 38 2c 22 73 22 29  0d 02 d0 05 e1 0d 02 da  |.38,"s")........|
00000510  05 3a 0d 02 e4 0f dd 20  f2 67 65 74 66 69 6c 65  |.:..... .getfile|
00000520  73 0d 02 ee 0f 46 25 3d  54 25 3f 35 20 81 20 38  |s....F%=T%?5 . 8|
00000530  0d 02 f8 08 5a 25 3d 30  0d 03 02 0f e3 20 49 25  |....Z%=0..... I%|
00000540  3d 31 20 b8 20 46 25 0d  03 0c 18 46 24 3d bd 28  |=1 . F%....F$=.(|
00000550  3f 28 45 25 2b 49 25 2a  38 29 83 31 32 38 29 0d  |?(E%+I%*8).128).|
00000560  03 16 1c 4c 24 3d bd 28  3f 28 45 25 2b 49 25 2a  |...L$=.(?(E%+I%*|
00000570  38 2b 38 2d 31 29 80 26  37 46 29 0d 03 20 16 e7  |8+8-1).&7F).. ..|
00000580  20 97 28 4c 24 29 3d 30  20 4c 24 3d bd 28 33 36  | .(L$)=0 L$=.(36|
00000590  29 0d 03 2a 10 50 24 3d  4c 24 2b 22 2e 22 2b 46  |)..*.P$=L$+"."+F|
000005a0  24 0d 03 34 20 e3 20 57  25 3d 45 25 2b 49 25 2a  |$..4 . W%=E%+I%*|
000005b0  38 2b 31 20 b8 20 45 25  2b 49 25 2a 38 2b 38 2d  |8+1 . E%+I%*8+8-|
000005c0  32 0d 03 3e 10 50 24 3d  50 24 2b bd 28 3f 57 25  |2..>.P$=P$+.(?W%|
000005d0  29 0d 03 48 07 ed 57 25  0d 03 52 3f e7 20 c0 50  |)..H..W%..R?. .P|
000005e0  24 2c 31 29 3d bd 28 31  37 31 80 26 37 46 29 20  |$,1)=.(171.&7F) |
000005f0  84 20 c0 50 24 2c 31 29  3d bd 28 31 37 33 80 26  |. .P$,1)=.(173.&|
00000600  37 46 29 20 8c 20 5a 25  3d 5a 25 2b 31 3a 57 24  |7F) . Z%=Z%+1:W$|
00000610  28 5a 25 29 3d 50 24 0d  03 5c 07 ed 49 25 0d 03  |(Z%)=P$..\..I%..|
00000620  66 05 e1 0d 03 70 05 3a  0d 03 7a 13 dd 20 f2 64  |f....p.:..z.. .d|
00000630  69 73 70 6c 61 79 66 69  6c 65 73 0d 03 84 a2 e7  |isplayfiles.....|
00000640  20 5a 25 3d 30 20 f1 8a  32 2c 31 30 29 3b bd 28  | Z%=0 ..2,10);.(|
00000650  31 33 34 29 3b 22 4e 6f  20 6d 65 6e 75 66 69 6c  |134);"No menufil|
00000660  65 73 20 6f 6e 20 74 68  65 20 64 69 73 63 20 69  |es on the disc i|
00000670  6e 22 3b bd 28 31 33 35  29 3b 22 44 72 69 76 65  |n";.(135);"Drive|
00000680  20 22 3b 4a 25 3f 30 3b  8a 36 2c 31 34 29 3b bd  | ";J%?0;.6,14);.|
00000690  28 31 33 34 29 3b 22 50  6c 65 61 73 65 20 73 65  |(134);"Please se|
000006a0  6c 65 63 74 20 61 6e 6f  74 68 65 72 20 44 72 69  |lect another Dri|
000006b0  76 65 2c 22 3b 8a 38 2c  31 36 29 3b bd 28 31 33  |ve,";.8,16);.(13|
000006c0  34 29 3b 22 6f 72 20 70  72 65 73 73 20 42 52 45  |4);"or press BRE|
000006d0  41 4b 20 74 6f 20 65 78  69 74 22 3a e1 0d 03 8e  |AK to exit":....|
000006e0  12 e3 20 49 25 3d 31 20  b8 20 5a 25 20 88 32 0d  |.. I%=1 . Z% .2.|
000006f0  03 98 7f f1 8a 37 29 3b  bd 28 31 33 34 29 3b bd  |.....7);.(134);.|
00000700  28 49 25 2b 36 34 29 3b  22 20 22 3b bd 28 31 33  |(I%+64);" ";.(13|
00000710  35 29 3b c2 57 24 28 49  25 29 2c a9 28 57 24 28  |5);.W$(I%),.(W$(|
00000720  49 25 29 29 2d 32 29 3b  3a e7 20 49 25 3c 3d 5a  |I%))-2);:. I%<=Z|
00000730  25 2d 31 8c 20 f1 8a 32  33 29 3b bd 28 31 33 34  |%-1. ..23);.(134|
00000740  29 3b bd 28 49 25 2b 36  35 29 3b 22 20 22 3b bd  |);.(I%+65);" ";.|
00000750  28 31 33 35 29 3b c2 57  24 28 49 25 2b 31 29 2c  |(135);.W$(I%+1),|
00000760  a9 28 57 24 28 49 25 2b  31 29 29 2d 32 29 0d 03  |.(W$(I%+1))-2)..|
00000770  a2 07 ed 49 25 0d 03 ac  05 e1 0d 03 b6 05 3a 0d  |...I%.........:.|
00000780  03 c0 11 dd 20 f2 64 69  73 63 73 74 61 74 75 73  |.... .discstatus|
00000790  0d 03 ca 0c e7 20 5a 25  3d 30 20 e1 0d 03 d4 08  |..... Z%=0 .....|
000007a0  53 25 3d a3 0d 03 de 27  4d 25 3d 54 25 3f 26 46  |S%=....'M%=T%?&F|
000007b0  3a 4e 25 3d 54 25 3f 26  45 3a 42 25 3d 54 25 3f  |:N%=T%?&E:B%=T%?|
000007c0  26 44 3a 50 25 3d 54 25  3f 26 43 0d 03 e8 2f 55  |&D:P%=T%?&C.../U|
000007d0  25 3d 28 4e 25 20 80 20  33 29 2a 32 35 36 2b 4d  |%=(N% . 3)*256+M|
000007e0  25 2b 28 4e 25 20 80 20  26 33 30 29 2a 31 36 2b  |%+(N% . &30)*16+|
000007f0  42 25 2d 28 50 25 3c 3e  30 29 0d 03 f2 16 4b 25  |B%-(P%<>0)....K%|
00000800  3d 26 32 30 30 3a 48 25  3d 54 25 2b 54 25 3f 35  |=&200:H%=T%+T%?5|
00000810  0d 03 fc 05 f5 0d 04 06  21 e7 20 3f 28 48 25 2b  |........!. ?(H%+|
00000820  34 29 3c 3e 30 20 8c 20  51 25 3d 26 31 30 30 20  |4)<>0 . Q%=&100 |
00000830  8b 20 51 25 3d 30 0d 04  10 2b 51 25 3d 51 25 2b  |. Q%=0...+Q%=Q%+|
00000840  32 35 36 2a 3f 28 48 25  2b 35 29 2b 32 35 36 2a  |256*?(H%+5)+256*|
00000850  31 36 2a 28 3f 28 48 25  2b 36 29 80 20 26 33 30  |16*(?(H%+6). &30|
00000860  29 0d 04 1a 14 4b 25 3d  4b 25 2b 51 25 3a 48 25  |)....K%=K%+Q%:H%|
00000870  3d 48 25 2d 38 0d 04 24  0a fd 48 25 3d 54 25 0d  |=H%-8..$..H%=T%.|
00000880  04 2e 1e 56 25 3d 32 35  36 2a 28 54 25 3f 36 20  |...V%=256*(T%?6 |
00000890  80 20 33 20 29 2b 54 25  3f 37 2d 55 25 0d 04 38  |. 3 )+T%?7-U%..8|
000008a0  1b f1 8a 31 2c 32 30 29  3b bd 28 31 34 38 29 3b  |...1,20);.(148);|
000008b0  c4 33 38 2c 22 73 22 29  0d 04 42 20 f1 8a 31 2c  |.38,"s")..B ..1,|
000008c0  32 31 29 3b bd 28 31 33  34 29 3b bd 28 31 35 37  |21);.(134);.(157|
000008d0  29 3b bd 28 31 33 32 29  0d 04 4c 37 e7 20 55 25  |);.(132)..L7. U%|
000008e0  2d 28 4b 25 20 81 20 32  35 36 29 3e 30 20 8c 20  |-(K% . 256)>0 . |
000008f0  53 25 3d b9 3a f1 8a 33  2c 32 31 29 3b bd 28 31  |S%=.:..3,21);.(1|
00000900  34 38 29 3b bd 28 31 33  36 29 3b 22 24 22 3b 0d  |48);.(136);"$";.|
00000910  04 56 39 f1 8a 36 2c 32  31 29 3b bd 28 31 33 37  |.V9..6,21);.(137|
00000920  29 3b bd 28 31 33 32 29  3b 22 53 74 61 74 75 73  |);.(132);"Status|
00000930  20 6f 66 20 64 69 73 63  20 69 6e 20 44 72 69 76  | of disc in Driv|
00000940  65 20 22 3b 4a 25 3f 30  0d 04 60 52 f1 8a 31 2c  |e ";J%?0..`R..1,|
00000950  32 32 29 3b bd 28 31 33  34 29 3b bd 28 31 35 37  |22);.(134);.(157|
00000960  29 3b bd 28 31 33 32 29  3b 22 20 42 79 74 65 73  |);.(132);" Bytes|
00000970  20 66 72 65 65 3a 22 56  25 2a 32 35 36 3b 8a 32  | free:"V%*256;.2|
00000980  34 2c 32 32 29 3b 22 46  69 6c 65 73 20 66 72 65  |4,22);"Files fre|
00000990  65 3a 22 3b 33 31 2d 46  25 3b 0d 04 6a 1c f1 8a  |e:";31-F%;..j...|
000009a0  31 2c 32 33 29 3b bd 28  31 34 38 29 3b c4 33 38  |1,23);.(148);.38|
000009b0  2c 22 73 22 29 3b 0d 04  74 05 e1 0d 04 7e 05 3a  |,"s");..t....~.:|
000009c0  0d 04 88 0c dd 20 f2 64  72 69 76 65 0d 04 92 17  |..... .drive....|
000009d0  24 43 3d 22 44 52 49 56  45 22 2b c3 28 41 25 2d  |$C="DRIVE"+.(A%-|
000009e0  34 38 29 0d 04 9c 19 58  25 3d 43 20 83 20 32 35  |48)....X%=C . 25|
000009f0  36 3a 59 25 3d 43 20 81  20 32 35 36 0d 04 a6 0a  |6:Y%=C . 256....|
00000a00  d6 26 46 46 46 37 0d 04  b0 05 e1 0d 04 ba 05 3a  |.&FFF7.........:|
00000a10  0d 04 c4 0b dd 20 f2 73  68 6f 77 0d 04 ce 45 f1  |..... .show...E.|
00000a20  8a 34 2c 32 34 29 3b bd  28 31 33 34 29 3b 22 42  |.4,24);.(134);"B|
00000a30  79 74 65 73 20 72 65 6c  65 61 73 65 64 20 62 79  |ytes released by|
00000a40  20 2a 43 4f 4d 50 41 43  54 3a 22 3b 28 55 25 2d  | *COMPACT:";(U%-|
00000a50  28 4b 25 20 81 20 32 35  36 29 29 2a 32 35 36 3b  |(K% . 256))*256;|
00000a60  0d 04 d8 07 d1 3d 30 0d  04 e2 0c f5 fd 20 91 3d  |.....=0...... .=|
00000a70  33 30 30 0d 04 ec 12 f1  8a 30 2c 32 34 29 3b 89  |300......0,24);.|
00000a80  28 33 38 29 3b 0d 04 f6  05 e1 0d 05 00 05 3a 0d  |(38);.........:.|
00000a90  05 0a 0c dd 20 f2 70 72  69 6e 74 0d 05 14 0c 2a  |.... .print....*|
00000aa0  46 58 20 33 20 31 30 0d  05 1e 0d ef 32 37 2c 36  |FX 3 10.....27,6|
00000ab0  39 2c 31 34 0d 05 28 08  f1 20 44 24 0d 05 32 0d  |9,14..(.. D$..2.|
00000ac0  ef 32 37 2c 37 30 2c 31  35 0d 05 3c 0d f1 c4 34  |.27,70,15..<...4|
00000ad0  37 2c 22 2d 22 29 0d 05  46 0d e3 20 49 25 3d 31  |7,"-")..F.. I%=1|
00000ae0  b8 5a 25 0d 05 50 20 f1  c2 57 24 28 49 25 29 2c  |.Z%..P ..W$(I%),|
00000af0  a9 28 57 24 28 49 25 29  29 2d 32 29 3b 22 20 20  |.(W$(I%))-2);"  |
00000b00  20 22 3b 0d 05 5a 11 e7  20 49 25 83 20 35 3d 30  | ";..Z.. I%. 5=0|
00000b10  20 8c 20 f1 0d 05 64 07  ed 49 25 0d 05 6e 0e f1  | . ...d..I%..n..|
00000b20  27 c4 34 37 2c 22 2d 22  29 0d 05 78 35 f1 22 42  |'.47,"-")..x5."B|
00000b30  79 74 65 73 20 66 72 65  65 3a 20 22 3b 56 25 2a  |ytes free: ";V%*|
00000b40  32 35 36 3b 89 28 31 35  29 3b 22 46 69 6c 65 73  |256;.(15);"Files|
00000b50  20 66 72 65 65 3a 20 22  3b 33 31 2d 46 25 0d 05  | free: ";31-F%..|
00000b60  82 08 ef 20 31 38 0d 05  8c 0a 2a 46 58 33 20 30  |... 18....*FX3 0|
00000b70  0d 05 96 05 e1 0d 05 a0  05 3a 0d 05 aa 0c dd 20  |.........:..... |
00000b80  f2 65 72 72 6f 72 0d 05  b4 09 ee 20 85 20 87 0d  |.error..... . ..|
00000b90  05 be 0a 2a 46 58 33 2c  30 0d 05 c8 0a 2a 46 58  |...*FX3,0....*FX|
00000ba0  34 20 30 0d 05 d2 0c 2a  46 58 32 30 30 20 30 0d  |4 0....*FX200 0.|
00000bb0  05 dc 0a ef 20 32 32 20  37 0d 05 e6 2b e7 20 43  |.... 22 7...+. C|
00000bc0  25 3d b9 20 8c 20 f1 3b  bd 28 31 33 30 29 3b 22  |%=. . .;.(130);"|
00000bd0  44 69 73 6b 20 45 72 72  6f 72 20 22 3b 4a 25 3f  |Disk Error ";J%?|
00000be0  31 30 3a e1 0d 05 f0 14  f6 3a f1 22 20 61 74 20  |10:......:." at |
00000bf0  6c 69 6e 65 20 22 3b 9e  0d 05 fa 05 e1 0d ff     |line ";........|
00000bff

MENU.m0

MENU.m1

MENU.m2

MENU.m4

MENU.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .

Tape/disk:	Home » Personal collection » Acorn DFS disks » dfs_box03_disk03_format_some_games_2.scp
Filename:	MENU
Read OK:	✔
File size:	0BFF bytes
Load address:	FF6900
Exec address:	FF8023

Duplicates

File contents