��7:�''"Setup - For Use with Disc Cataloguer"''"Please use your own disc with this"'"program."''"Listing 4 $.SETUP"''"Press any key to continue";:G=�

� Listing 4 "$.SETUP"
� BY John Macrae
� BBC B,B+/128
(� Master Series
2�
<� Configures data files
F
� s%30
Pallno%=200:TR%=80
Z�
d7�5,2)�130;"If this a 40 track disc press";�134;"4"
nX=�:� X=52 allno%=92:TR%=40
xS�5,5)�(130);"If you have double sided"';�(130);"      drives press";�(134);"2"
�X=�
�� X=50 ds%=2 � ds%=1
�P�5,10)�(130);"Enter the drive number"'�(130)"      to be catalogued (0,1)";
�X=�
��X<48 � X>49 �tV@
�� �(X):drive%=X-48
�A$=�(134)+"single"
�� ds%=2 A$=�(134)+"double"
�t�:�2,6)�(130);"This system is about to be"';�(130);"  configured as follows"''"  ";�(134);TR%;" Track filesize"
�4�'�(134)"  Disc to be catalogued in drive ";�(X)
�0�2,15)�(134);"Disc drives are ";A$;" sided"
�M�2,20)�(130);"IF THIS IS CORRECT PRESS";�(134);"<SPACE>":Y=�:�Y<>32�T|@

@� Sets up space on disc to make "f.file" start at sector &50

�oscli("SA.SP 0+FF")

�oscli("SA.f.RECORD 0+1")

"+x=�("f.RECORD"):�#x,0,ds%,drive%,allno%

,�#x

6�oscli("SA.f.EXTRA 0+1F40")

@� allno%<>92 �D^A

J�SA(&14000)

T	�DhA

^�SA(&2B800)

h�"$.catalog"

r�

|��SA(A%)

�&�:�5,10)�(134)"INITIALISING DISC"

�X=�("f.file")

��#X

�X=�("f.file")

�
�#X=A%

��#X

��

���oscli($s%)

�X%=s% � &100:Y%=s% � &100

�
�&FFF7

��
�

00000000  0d 00 01 98 eb 37 3a f1  27 27 22 53 65 74 75 70  |.....7:.''"Setup|
00000010  20 2d 20 46 6f 72 20 55  73 65 20 77 69 74 68 20  | - For Use with |
00000020  44 69 73 63 20 43 61 74  61 6c 6f 67 75 65 72 22  |Disc Cataloguer"|
00000030  27 27 22 50 6c 65 61 73  65 20 75 73 65 20 79 6f  |''"Please use yo|
00000040  75 72 20 6f 77 6e 20 64  69 73 63 20 77 69 74 68  |ur own disc with|
00000050  20 74 68 69 73 22 27 22  70 72 6f 67 72 61 6d 2e  | this"'"program.|
00000060  22 27 27 22 4c 69 73 74  69 6e 67 20 34 20 24 2e  |"''"Listing 4 $.|
00000070  53 45 54 55 50 22 27 27  22 50 72 65 73 73 20 61  |SETUP"''"Press a|
00000080  6e 79 20 6b 65 79 20 74  6f 20 63 6f 6e 74 69 6e  |ny key to contin|
00000090  75 65 22 3b 3a 47 3d a5  0d 00 0a 19 f4 20 4c 69  |ue";:G=...... Li|
000000a0  73 74 69 6e 67 20 34 20  22 24 2e 53 45 54 55 50  |sting 4 "$.SETUP|
000000b0  22 0d 00 14 14 f4 20 42  59 20 4a 6f 68 6e 20 4d  |"..... BY John M|
000000c0  61 63 72 61 65 0d 00 1e  12 f4 20 42 42 43 20 42  |acrae..... BBC B|
000000d0  2c 42 2b 2f 31 32 38 0d  00 28 13 f4 20 4d 61 73  |,B+/128..(.. Mas|
000000e0  74 65 72 20 53 65 72 69  65 73 0d 00 32 05 f4 0d  |ter Series..2...|
000000f0  00 3c 1b f4 20 43 6f 6e  66 69 67 75 72 65 73 20  |.<.. Configures |
00000100  64 61 74 61 20 66 69 6c  65 73 0d 00 46 0a de 20  |data files..F.. |
00000110  73 25 33 30 0d 00 50 15  61 6c 6c 6e 6f 25 3d 32  |s%30..P.allno%=2|
00000120  30 30 3a 54 52 25 3d 38  30 0d 00 5a 05 db 0d 00  |00:TR%=80..Z....|
00000130  64 37 f1 8a 35 2c 32 29  bd 31 33 30 3b 22 49 66  |d7..5,2).130;"If|
00000140  20 74 68 69 73 20 61 20  34 30 20 74 72 61 63 6b  | this a 40 track|
00000150  20 64 69 73 63 20 70 72  65 73 73 22 3b bd 31 33  | disc press";.13|
00000160  34 3b 22 34 22 0d 00 6e  1f 58 3d a5 3a e7 20 58  |4;"4"..n.X=.:. X|
00000170  3d 35 32 20 61 6c 6c 6e  6f 25 3d 39 32 3a 54 52  |=52 allno%=92:TR|
00000180  25 3d 34 30 0d 00 78 53  f1 8a 35 2c 35 29 bd 28  |%=40..xS..5,5).(|
00000190  31 33 30 29 3b 22 49 66  20 79 6f 75 20 68 61 76  |130);"If you hav|
000001a0  65 20 64 6f 75 62 6c 65  20 73 69 64 65 64 22 27  |e double sided"'|
000001b0  3b bd 28 31 33 30 29 3b  22 20 20 20 20 20 20 64  |;.(130);"      d|
000001c0  72 69 76 65 73 20 70 72  65 73 73 22 3b bd 28 31  |rives press";.(1|
000001d0  33 34 29 3b 22 32 22 0d  00 82 07 58 3d a5 0d 00  |34);"2"....X=...|
000001e0  8c 18 e7 20 58 3d 35 30  20 64 73 25 3d 32 20 8b  |... X=50 ds%=2 .|
000001f0  20 64 73 25 3d 31 0d 00  96 50 f1 8a 35 2c 31 30  | ds%=1...P..5,10|
00000200  29 bd 28 31 33 30 29 3b  22 45 6e 74 65 72 20 74  |).(130);"Enter t|
00000210  68 65 20 64 72 69 76 65  20 6e 75 6d 62 65 72 22  |he drive number"|
00000220  27 bd 28 31 33 30 29 22  20 20 20 20 20 20 74 6f  |'.(130)"      to|
00000230  20 62 65 20 63 61 74 61  6c 6f 67 75 65 64 20 28  | be catalogued (|
00000240  30 2c 31 29 22 3b 0d 00  a0 07 58 3d a5 0d 00 aa  |0,1)";....X=....|
00000250  16 e7 58 3c 34 38 20 84  20 58 3e 34 39 20 e5 8d  |..X<48 . X>49 ..|
00000260  74 56 40 0d 00 b4 16 f1  20 bd 28 58 29 3a 64 72  |tV@..... .(X):dr|
00000270  69 76 65 25 3d 58 2d 34  38 0d 00 be 16 41 24 3d  |ive%=X-48....A$=|
00000280  bd 28 31 33 34 29 2b 22  73 69 6e 67 6c 65 22 0d  |.(134)+"single".|
00000290  00 c8 1e e7 20 64 73 25  3d 32 20 41 24 3d bd 28  |.... ds%=2 A$=.(|
000002a0  31 33 34 29 2b 22 64 6f  75 62 6c 65 22 0d 00 d2  |134)+"double"...|
000002b0  74 db 3a f1 8a 32 2c 36  29 bd 28 31 33 30 29 3b  |t.:..2,6).(130);|
000002c0  22 54 68 69 73 20 73 79  73 74 65 6d 20 69 73 20  |"This system is |
000002d0  61 62 6f 75 74 20 74 6f  20 62 65 22 27 3b bd 28  |about to be"';.(|
000002e0  31 33 30 29 3b 22 20 20  63 6f 6e 66 69 67 75 72  |130);"  configur|
000002f0  65 64 20 61 73 20 66 6f  6c 6c 6f 77 73 22 27 27  |ed as follows"''|
00000300  22 20 20 22 3b bd 28 31  33 34 29 3b 54 52 25 3b  |"  ";.(134);TR%;|
00000310  22 20 54 72 61 63 6b 20  66 69 6c 65 73 69 7a 65  |" Track filesize|
00000320  22 0d 00 dc 34 f1 27 bd  28 31 33 34 29 22 20 20  |"...4.'.(134)"  |
00000330  44 69 73 63 20 74 6f 20  62 65 20 63 61 74 61 6c  |Disc to be catal|
00000340  6f 67 75 65 64 20 69 6e  20 64 72 69 76 65 20 22  |ogued in drive "|
00000350  3b bd 28 58 29 0d 00 e6  30 f1 8a 32 2c 31 35 29  |;.(X)...0..2,15)|
00000360  bd 28 31 33 34 29 3b 22  44 69 73 63 20 64 72 69  |.(134);"Disc dri|
00000370  76 65 73 20 61 72 65 20  22 3b 41 24 3b 22 20 73  |ves are ";A$;" s|
00000380  69 64 65 64 22 0d 00 f0  4d f1 8a 32 2c 32 30 29  |ided"...M..2,20)|
00000390  bd 28 31 33 30 29 3b 22  49 46 20 54 48 49 53 20  |.(130);"IF THIS |
000003a0  49 53 20 43 4f 52 52 45  43 54 20 50 52 45 53 53  |IS CORRECT PRESS|
000003b0  22 3b bd 28 31 33 34 29  3b 22 3c 53 50 41 43 45  |";.(134);"<SPACE|
000003c0  3e 22 3a 59 3d a5 3a e7  59 3c 3e 33 32 e5 8d 54  |>":Y=.:.Y<>32..T|
000003d0  7c 40 0d 01 04 40 f4 20  53 65 74 73 20 75 70 20  ||@...@. Sets up |
000003e0  73 70 61 63 65 20 6f 6e  20 64 69 73 63 20 74 6f  |space on disc to|
000003f0  20 6d 61 6b 65 20 22 66  2e 66 69 6c 65 22 20 73  | make "f.file" s|
00000400  74 61 72 74 20 61 74 20  73 65 63 74 6f 72 20 26  |tart at sector &|
00000410  35 30 0d 01 0e 18 f2 6f  73 63 6c 69 28 22 53 41  |50.....oscli("SA|
00000420  2e 53 50 20 30 2b 46 46  22 29 0d 01 18 1d f2 6f  |.SP 0+FF").....o|
00000430  73 63 6c 69 28 22 53 41  2e 66 2e 52 45 43 4f 52  |scli("SA.f.RECOR|
00000440  44 20 30 2b 31 22 29 0d  01 22 2b 78 3d ad 28 22  |D 0+1").."+x=.("|
00000450  66 2e 52 45 43 4f 52 44  22 29 3a f1 23 78 2c 30  |f.RECORD"):.#x,0|
00000460  2c 64 73 25 2c 64 72 69  76 65 25 2c 61 6c 6c 6e  |,ds%,drive%,alln|
00000470  6f 25 0d 01 2c 07 d9 23  78 0d 01 36 1f f2 6f 73  |o%..,..#x..6..os|
00000480  63 6c 69 28 22 53 41 2e  66 2e 45 58 54 52 41 20  |cli("SA.f.EXTRA |
00000490  30 2b 31 46 34 30 22 29  0d 01 40 16 e7 20 61 6c  |0+1F40")..@.. al|
000004a0  6c 6e 6f 25 3c 3e 39 32  20 e5 8d 44 5e 41 0d 01  |lno%<>92 ..D^A..|
000004b0  4a 0f f2 53 41 28 26 31  34 30 30 30 29 0d 01 54  |J..SA(&14000)..T|
000004c0  09 e5 8d 44 68 41 0d 01  5e 0f f2 53 41 28 26 32  |...DhA..^..SA(&2|
000004d0  42 38 30 30 29 0d 01 68  10 d7 22 24 2e 63 61 74  |B800)..h.."$.cat|
000004e0  61 6c 6f 67 22 0d 01 72  05 e0 0d 01 7c 0c dd f2  |alog"..r....|...|
000004f0  53 41 28 41 25 29 0d 01  86 26 db 3a f1 8a 35 2c  |SA(A%)...&.:..5,|
00000500  31 30 29 bd 28 31 33 34  29 22 49 4e 49 54 49 41  |10).(134)"INITIA|
00000510  4c 49 53 49 4e 47 20 44  49 53 43 22 0d 01 90 11  |LISING DISC"....|
00000520  58 3d ae 28 22 66 2e 66  69 6c 65 22 29 0d 01 9a  |X=.("f.file")...|
00000530  07 d9 23 58 0d 01 a4 11  58 3d ad 28 22 66 2e 66  |..#X....X=.("f.f|
00000540  69 6c 65 22 29 0d 01 ae  0a cf 23 58 3d 41 25 0d  |ile").....#X=A%.|
00000550  01 b8 07 d9 23 58 0d 01  c2 05 e1 0d 01 cc 10 dd  |....#X..........|
00000560  f2 6f 73 63 6c 69 28 24  73 25 29 0d 01 d6 1d 58  |.oscli($s%)....X|
00000570  25 3d 73 25 20 83 20 26  31 30 30 3a 59 25 3d 73  |%=s% . &100:Y%=s|
00000580  25 20 81 20 26 31 30 30  0d 01 e0 0a d6 26 46 46  |% . &100.....&FF|
00000590  46 37 0d 01 ea 05 e1 0d  ff                       |F7.......|
00000599