K� 'Readcat'  program to read and print the Telesoftware catalogue file.
3� (c) Peter Vince and BBC tv Network.  13/11/86
�7
(�getcat
2S%=�"CATALOG"
<2� S%=0 � �'"""CATALOG"" file not found."':�7:�
F*� � � 3,7,10,13:�:�" at line ";�:�#0:�
P 
Z2� '�&83"Do you require a printout (Y/N)";�&87;
dA%=� � 223
n� A%=89 � �"Yes"' � �"No"'
xT%=�:� � �-T%>80
� 
��3
�<� 19,0,4;0;                           :� Blue Background
�8� 23,0,10,104,0;0;0;23,0,11,72,0;0;0; :� Thin cursor
�:� 23,48,24,60,102,102,102,60,24,0     :� Legible zero!
�0� A%=89 � � 2 :� Enable printer if required.
� 
��printstring
��printstring
�V�'" No M/C        Filename     Type      Size       Load add.  Exec add.   Ceefax"
�W�" =============================================================================="'
� 
�4no%=0   :� Counter for number of entries in file

�

D$=��getstring,8)

� D$="***" � �dBA

"
no%=no%+1

,9� �"  "+�(no%),3);" ";D$; :� Entry number and Machine

6>D$=�getstring                         :� Colour + Filename

@I%=�(�A$,1))

JJ� I%>128 � I%<136 � �13)"(";�"rgybmcw",I%-128,1);") "; � �13)"(?) ";

T� �D$,�D$-1);" ";

^*� �28)�getstring;" ";          :� Type

h*� �36)�getstring;" ";          :� Size

r� �49)"&";

|7�address                            :� Load address

��"  &";

�:�address                            :� Execute address

��"  Page ";

�=�page                               :� Ceefax page number

���

� 

�X�'" =============================================================================="'

��3,7

��#0

��

� 

�� �getstring

�	A$=""
L%=�#S%
� I%=1 � L%
!J%=�#S%:� J%<32 � J%=J% � &80
&
A$=A$+�J%
0�
:=A$
D 
N� �printstring
XD$=�getstring
b� I%=1 � �(D$)
lC%=�(�D$,I%,1))
v� C%>126 � �" "; � �(C%);
��
��
��
� 
�� �address
�� I%=1 � 4
�A%=�#S%
���"0"+�~A%,2);
��
��
� 
�
��page
��;�#S%;�"0"+�~�#S%,2)
�
 
��getcat
 
*TTXON
*	*BBC2
4*HON
>�move_oshwm
H� space 20,name 12,line 15
RM%=7: N%=&19
\&�download(M%,N%,"CATALOG",0,0,�,�)
f	*HOFF
p�return_oshwm
z*FX4
��
� 
���move_oshwm
�S%=&5000
� A%=&B4:X%=S%�256:Y%=0:�&FFF4
��
� 
�B��download(magazine%,page%,filename$,load%,exec%,save%,reset%)
�$�oscli("MAGAZINE "+�(magazine%))
�space?0=24
�'space?1=name �256:space?2=name �256
�$name=filename$
�space!3=load%
space!7=exec%
space?11=magazine%
space?12=page%
$$�save%=� space?13=1 � space?13=0
.%�reset%=� space?14=0 � space?14=1
8&A%=&7A:X%=space �256:Y%=space �256
B
�&FFF1
L�
V 
`��oscli(text$)
j)$line=text$:X%=line �256:Y%=line �256
t
�&FFF7
~�
� 
���return_oshwm
� A%=&B4:X%=� �256:Y%=0:�&FFF4
��
�

00000000  0d 00 0a 4b f4 20 27 52  65 61 64 63 61 74 27 20  |...K. 'Readcat' |
00000010  20 70 72 6f 67 72 61 6d  20 74 6f 20 72 65 61 64  | program to read|
00000020  20 61 6e 64 20 70 72 69  6e 74 20 74 68 65 20 54  | and print the T|
00000030  65 6c 65 73 6f 66 74 77  61 72 65 20 63 61 74 61  |elesoftware cata|
00000040  6c 6f 67 75 65 20 66 69  6c 65 2e 0d 00 14 33 f4  |logue file....3.|
00000050  20 28 63 29 20 50 65 74  65 72 20 56 69 6e 63 65  | (c) Peter Vince|
00000060  20 61 6e 64 20 42 42 43  20 74 76 20 4e 65 74 77  | and BBC tv Netw|
00000070  6f 72 6b 2e 20 20 31 33  2f 31 31 2f 38 36 0d 00  |ork.  13/11/86..|
00000080  1e 06 eb 37 0d 00 28 0b  f2 67 65 74 63 61 74 0d  |...7..(..getcat.|
00000090  00 32 11 53 25 3d ad 22  43 41 54 41 4c 4f 47 22  |.2.S%=."CATALOG"|
000000a0  0d 00 3c 32 e7 20 53 25  3d 30 20 8c 20 f1 27 22  |..<2. S%=0 . .'"|
000000b0  22 22 43 41 54 41 4c 4f  47 22 22 20 66 69 6c 65  |""CATALOG"" file|
000000c0  20 6e 6f 74 20 66 6f 75  6e 64 2e 22 27 3a ef 37  | not found."':.7|
000000d0  3a e0 0d 00 46 2a ee 20  85 20 ef 20 33 2c 37 2c  |:...F*. . . 3,7,|
000000e0  31 30 2c 31 33 3a f6 3a  f1 22 20 61 74 20 6c 69  |10,13:.:." at li|
000000f0  6e 65 20 22 3b 9e 3a d9  23 30 3a e0 0d 00 50 05  |ne ";.:.#0:...P.|
00000100  20 0d 00 5a 32 f1 20 27  bd 26 38 33 22 44 6f 20  | ..Z2. '.&83"Do |
00000110  79 6f 75 20 72 65 71 75  69 72 65 20 61 20 70 72  |you require a pr|
00000120  69 6e 74 6f 75 74 20 28  59 2f 4e 29 22 3b bd 26  |intout (Y/N)";.&|
00000130  38 37 3b 0d 00 64 0e 41  25 3d a5 20 80 20 32 32  |87;..d.A%=. . 22|
00000140  33 0d 00 6e 1e e7 20 41  25 3d 38 39 20 8c 20 f1  |3..n.. A%=89 . .|
00000150  22 59 65 73 22 27 20 8b  20 f1 22 4e 6f 22 27 0d  |"Yes"' . ."No"'.|
00000160  00 78 14 54 25 3d 91 3a  f5 20 fd 20 91 2d 54 25  |.x.T%=.:. . .-T%|
00000170  3e 38 30 0d 00 82 05 20  0d 00 8c 06 eb 33 0d 00  |>80.... .....3..|
00000180  96 3c ef 20 31 39 2c 30  2c 34 3b 30 3b 20 20 20  |.<. 19,0,4;0;   |
00000190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001a0  20 20 20 20 20 20 20 20  3a f4 20 42 6c 75 65 20  |        :. Blue |
000001b0  42 61 63 6b 67 72 6f 75  6e 64 0d 00 a0 38 ef 20  |Background...8. |
000001c0  32 33 2c 30 2c 31 30 2c  31 30 34 2c 30 3b 30 3b  |23,0,10,104,0;0;|
000001d0  30 3b 32 33 2c 30 2c 31  31 2c 37 32 2c 30 3b 30  |0;23,0,11,72,0;0|
000001e0  3b 30 3b 20 3a f4 20 54  68 69 6e 20 63 75 72 73  |;0; :. Thin curs|
000001f0  6f 72 0d 00 aa 3a ef 20  32 33 2c 34 38 2c 32 34  |or...:. 23,48,24|
00000200  2c 36 30 2c 31 30 32 2c  31 30 32 2c 31 30 32 2c  |,60,102,102,102,|
00000210  36 30 2c 32 34 2c 30 20  20 20 20 20 3a f4 20 4c  |60,24,0     :. L|
00000220  65 67 69 62 6c 65 20 7a  65 72 6f 21 0d 00 b4 30  |egible zero!...0|
00000230  e7 20 41 25 3d 38 39 20  8c 20 ef 20 32 20 3a f4  |. A%=89 . . 2 :.|
00000240  20 45 6e 61 62 6c 65 20  70 72 69 6e 74 65 72 20  | Enable printer |
00000250  69 66 20 72 65 71 75 69  72 65 64 2e 0d 00 be 05  |if required.....|
00000260  20 0d 00 c8 10 f2 70 72  69 6e 74 73 74 72 69 6e  | .....printstrin|
00000270  67 0d 00 d2 10 f2 70 72  69 6e 74 73 74 72 69 6e  |g.....printstrin|
00000280  67 0d 00 dc 56 f1 27 22  20 4e 6f 20 4d 2f 43 20  |g...V.'" No M/C |
00000290  20 20 20 20 20 20 20 46  69 6c 65 6e 61 6d 65 20  |       Filename |
000002a0  20 20 20 20 54 79 70 65  20 20 20 20 20 20 53 69  |    Type      Si|
000002b0  7a 65 20 20 20 20 20 20  20 4c 6f 61 64 20 61 64  |ze       Load ad|
000002c0  64 2e 20 20 45 78 65 63  20 61 64 64 2e 20 20 20  |d.  Exec add.   |
000002d0  43 65 65 66 61 78 22 0d  00 e6 57 f1 22 20 3d 3d  |Ceefax"...W." ==|
000002e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000320  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 22 27 0d 00  |============"'..|
00000330  f0 05 20 0d 00 fa 34 6e  6f 25 3d 30 20 20 20 3a  |.. ...4no%=0   :|
00000340  f4 20 43 6f 75 6e 74 65  72 20 66 6f 72 20 6e 75  |. Counter for nu|
00000350  6d 62 65 72 20 6f 66 20  65 6e 74 72 69 65 73 20  |mber of entries |
00000360  69 6e 20 66 69 6c 65 0d  01 04 05 f5 0d 01 0e 15  |in file.........|
00000370  44 24 3d c0 a4 67 65 74  73 74 72 69 6e 67 2c 38  |D$=..getstring,8|
00000380  29 0d 01 18 15 e7 20 44  24 3d 22 2a 2a 2a 22 20  |)..... D$="***" |
00000390  8c 20 8d 64 42 41 0d 01  22 0d 6e 6f 25 3d 6e 6f  |. .dBA..".no%=no|
000003a0  25 2b 31 0d 01 2c 39 f1  20 c2 22 20 20 22 2b c3  |%+1..,9. ."  "+.|
000003b0  28 6e 6f 25 29 2c 33 29  3b 22 20 22 3b 44 24 3b  |(no%),3);" ";D$;|
000003c0  20 3a f4 20 45 6e 74 72  79 20 6e 75 6d 62 65 72  | :. Entry number|
000003d0  20 61 6e 64 20 4d 61 63  68 69 6e 65 0d 01 36 3e  | and Machine..6>|
000003e0  44 24 3d a4 67 65 74 73  74 72 69 6e 67 20 20 20  |D$=.getstring   |
000003f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000400  20 20 20 20 20 20 3a f4  20 43 6f 6c 6f 75 72 20  |      :. Colour |
00000410  2b 20 46 69 6c 65 6e 61  6d 65 0d 01 40 10 49 25  |+ Filename..@.I%|
00000420  3d 97 28 c0 41 24 2c 31  29 29 0d 01 4a 4a e7 20  |=.(.A$,1))..JJ. |
00000430  49 25 3e 31 32 38 20 80  20 49 25 3c 31 33 36 20  |I%>128 . I%<136 |
00000440  8c 20 f1 8a 31 33 29 22  28 22 3b c1 22 72 67 79  |. ..13)"(";."rgy|
00000450  62 6d 63 77 22 2c 49 25  2d 31 32 38 2c 31 29 3b  |bmcw",I%-128,1);|
00000460  22 29 20 22 3b 20 8b 20  f1 8a 31 33 29 22 28 3f  |") "; . ..13)"(?|
00000470  29 20 22 3b 0d 01 54 15  f1 20 c2 44 24 2c a9 44  |) ";..T.. .D$,.D|
00000480  24 2d 31 29 3b 22 20 22  3b 0d 01 5e 2a f1 20 8a  |$-1);" ";..^*. .|
00000490  32 38 29 a4 67 65 74 73  74 72 69 6e 67 3b 22 20  |28).getstring;" |
000004a0  22 3b 20 20 20 20 20 20  20 20 20 20 3a f4 20 54  |";          :. T|
000004b0  79 70 65 0d 01 68 2a f1  20 8a 33 36 29 a4 67 65  |ype..h*. .36).ge|
000004c0  74 73 74 72 69 6e 67 3b  22 20 22 3b 20 20 20 20  |tstring;" ";    |
000004d0  20 20 20 20 20 20 3a f4  20 53 69 7a 65 0d 01 72  |      :. Size..r|
000004e0  0e f1 20 8a 34 39 29 22  26 22 3b 0d 01 7c 37 f2  |.. .49)"&";..|7.|
000004f0  61 64 64 72 65 73 73 20  20 20 20 20 20 20 20 20  |address         |
00000500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000510  20 20 20 3a f4 20 4c 6f  61 64 20 61 64 64 72 65  |   :. Load addre|
00000520  73 73 0d 01 86 0b f1 22  20 20 26 22 3b 0d 01 90  |ss....."  &";...|
00000530  3a f2 61 64 64 72 65 73  73 20 20 20 20 20 20 20  |:.address       |
00000540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000550  20 20 20 20 20 3a f4 20  45 78 65 63 75 74 65 20  |     :. Execute |
00000560  61 64 64 72 65 73 73 0d  01 9a 0f f1 22 20 20 50  |address....."  P|
00000570  61 67 65 20 22 3b 0d 01  a4 3d f2 70 61 67 65 20  |age ";...=.page |
00000580  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000590  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
000005a0  20 43 65 65 66 61 78 20  70 61 67 65 20 6e 75 6d  | Ceefax page num|
000005b0  62 65 72 0d 01 ae 06 fd  a3 0d 01 b8 05 20 0d 01  |ber.......... ..|
000005c0  c2 58 f1 27 22 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |.X.'" ==========|
000005d0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000610  3d 3d 3d 3d 22 27 0d 01  cc 08 ef 33 2c 37 0d 01  |===="'.....3,7..|
00000620  d6 07 d9 23 30 0d 01 e0  05 e0 0d 01 ea 05 20 0d  |...#0......... .|
00000630  01 f4 10 dd 20 a4 67 65  74 73 74 72 69 6e 67 0d  |.... .getstring.|
00000640  01 fe 09 41 24 3d 22 22  0d 02 08 0b 4c 25 3d 9a  |...A$=""....L%=.|
00000650  23 53 25 0d 02 12 0f e3  20 49 25 3d 31 20 b8 20  |#S%..... I%=1 . |
00000660  4c 25 0d 02 1c 21 4a 25  3d 9a 23 53 25 3a e7 20  |L%...!J%=.#S%:. |
00000670  4a 25 3c 33 32 20 8c 20  4a 25 3d 4a 25 20 84 20  |J%<32 . J%=J% . |
00000680  26 38 30 0d 02 26 0d 41  24 3d 41 24 2b bd 4a 25  |&80..&.A$=A$+.J%|
00000690  0d 02 30 05 ed 0d 02 3a  07 3d 41 24 0d 02 44 05  |..0....:.=A$..D.|
000006a0  20 0d 02 4e 12 dd 20 f2  70 72 69 6e 74 73 74 72  | ..N.. .printstr|
000006b0  69 6e 67 0d 02 58 11 44  24 3d a4 67 65 74 73 74  |ing..X.D$=.getst|
000006c0  72 69 6e 67 0d 02 62 12  e3 20 49 25 3d 31 20 b8  |ring..b.. I%=1 .|
000006d0  20 a9 28 44 24 29 0d 02  6c 13 43 25 3d 97 28 c1  | .(D$)..l.C%=.(.|
000006e0  44 24 2c 49 25 2c 31 29  29 0d 02 76 1e e7 20 43  |D$,I%,1))..v.. C|
000006f0  25 3e 31 32 36 20 8c 20  f1 22 20 22 3b 20 8b 20  |%>126 . ." "; . |
00000700  f1 bd 28 43 25 29 3b 0d  02 80 05 ed 0d 02 8a 05  |..(C%);.........|
00000710  f1 0d 02 94 05 e1 0d 02  9e 05 20 0d 02 a8 0e dd  |.......... .....|
00000720  20 f2 61 64 64 72 65 73  73 0d 02 b2 0e e3 20 49  | .address..... I|
00000730  25 3d 31 20 b8 20 34 0d  02 bc 0b 41 25 3d 9a 23  |%=1 . 4....A%=.#|
00000740  53 25 0d 02 c6 12 f1 c2  22 30 22 2b c3 7e 41 25  |S%......"0"+.~A%|
00000750  2c 32 29 3b 0d 02 d0 05  ed 0d 02 da 05 e1 0d 02  |,2);............|
00000760  e4 05 20 0d 02 ee 0a dd  f2 70 61 67 65 0d 02 f8  |.. ......page...|
00000770  19 f1 3b 9a 23 53 25 3b  c2 22 30 22 2b c3 7e 9a  |..;.#S%;."0"+.~.|
00000780  23 53 25 2c 32 29 0d 03  02 05 e1 0d 03 0c 05 20  |#S%,2)......... |
00000790  0d 03 16 0c dd f2 67 65  74 63 61 74 0d 03 20 0a  |......getcat.. .|
000007a0  2a 54 54 58 4f 4e 0d 03  2a 09 2a 42 42 43 32 0d  |*TTXON..*.*BBC2.|
000007b0  03 34 08 2a 48 4f 4e 0d  03 3e 0f f2 6d 6f 76 65  |.4.*HON..>..move|
000007c0  5f 6f 73 68 77 6d 0d 03  48 1e de 20 73 70 61 63  |_oshwm..H.. spac|
000007d0  65 20 32 30 2c 6e 61 6d  65 20 31 32 2c 6c 69 6e  |e 20,name 12,lin|
000007e0  65 20 31 35 0d 03 52 10  4d 25 3d 37 3a 20 4e 25  |e 15..R.M%=7: N%|
000007f0  3d 26 31 39 0d 03 5c 26  f2 64 6f 77 6e 6c 6f 61  |=&19..\&.downloa|
00000800  64 28 4d 25 2c 4e 25 2c  22 43 41 54 41 4c 4f 47  |d(M%,N%,"CATALOG|
00000810  22 2c 30 2c 30 2c b9 2c  b9 29 0d 03 66 09 2a 48  |",0,0,.,.)..f.*H|
00000820  4f 46 46 0d 03 70 11 f2  72 65 74 75 72 6e 5f 6f  |OFF..p..return_o|
00000830  73 68 77 6d 0d 03 7a 08  2a 46 58 34 0d 03 84 05  |shwm..z.*FX4....|
00000840  e1 0d 03 8e 05 20 0d 03  98 10 dd f2 6d 6f 76 65  |..... ......move|
00000850  5f 6f 73 68 77 6d 0d 03  a2 0c 53 25 3d 26 35 30  |_oshwm....S%=&50|
00000860  30 30 0d 03 ac 20 41 25  3d 26 42 34 3a 58 25 3d  |00... A%=&B4:X%=|
00000870  53 25 81 32 35 36 3a 59  25 3d 30 3a d6 26 46 46  |S%.256:Y%=0:.&FF|
00000880  46 34 0d 03 b6 05 e1 0d  03 c0 05 20 0d 03 ca 42  |F4......... ...B|
00000890  dd f2 64 6f 77 6e 6c 6f  61 64 28 6d 61 67 61 7a  |..download(magaz|
000008a0  69 6e 65 25 2c 70 61 67  65 25 2c 66 69 6c 65 6e  |ine%,page%,filen|
000008b0  61 6d 65 24 2c 6c 6f 61  64 25 2c 65 78 65 63 25  |ame$,load%,exec%|
000008c0  2c 73 61 76 65 25 2c 72  65 73 65 74 25 29 0d 03  |,save%,reset%)..|
000008d0  d4 24 f2 6f 73 63 6c 69  28 22 4d 41 47 41 5a 49  |.$.oscli("MAGAZI|
000008e0  4e 45 20 22 2b c3 28 6d  61 67 61 7a 69 6e 65 25  |NE "+.(magazine%|
000008f0  29 29 0d 03 de 0e 73 70  61 63 65 3f 30 3d 32 34  |))....space?0=24|
00000900  0d 03 e8 27 73 70 61 63  65 3f 31 3d 6e 61 6d 65  |...'space?1=name|
00000910  20 83 32 35 36 3a 73 70  61 63 65 3f 32 3d 6e 61  | .256:space?2=na|
00000920  6d 65 20 81 32 35 36 0d  03 f2 13 24 6e 61 6d 65  |me .256....$name|
00000930  3d 66 69 6c 65 6e 61 6d  65 24 0d 03 fc 11 73 70  |=filename$....sp|
00000940  61 63 65 21 33 3d 6c 6f  61 64 25 0d 04 06 11 73  |ace!3=load%....s|
00000950  70 61 63 65 21 37 3d 65  78 65 63 25 0d 04 10 16  |pace!7=exec%....|
00000960  73 70 61 63 65 3f 31 31  3d 6d 61 67 61 7a 69 6e  |space?11=magazin|
00000970  65 25 0d 04 1a 12 73 70  61 63 65 3f 31 32 3d 70  |e%....space?12=p|
00000980  61 67 65 25 0d 04 24 24  e7 73 61 76 65 25 3d b9  |age%..$$.save%=.|
00000990  20 73 70 61 63 65 3f 31  33 3d 31 20 8b 20 73 70  | space?13=1 . sp|
000009a0  61 63 65 3f 31 33 3d 30  0d 04 2e 25 e7 72 65 73  |ace?13=0...%.res|
000009b0  65 74 25 3d b9 20 73 70  61 63 65 3f 31 34 3d 30  |et%=. space?14=0|
000009c0  20 8b 20 73 70 61 63 65  3f 31 34 3d 31 0d 04 38  | . space?14=1..8|
000009d0  26 41 25 3d 26 37 41 3a  58 25 3d 73 70 61 63 65  |&A%=&7A:X%=space|
000009e0  20 83 32 35 36 3a 59 25  3d 73 70 61 63 65 20 81  | .256:Y%=space .|
000009f0  32 35 36 0d 04 42 0a d6  26 46 46 46 31 0d 04 4c  |256..B..&FFF1..L|
00000a00  05 e1 0d 04 56 05 20 0d  04 60 12 dd f2 6f 73 63  |....V. ..`...osc|
00000a10  6c 69 28 74 65 78 74 24  29 0d 04 6a 29 24 6c 69  |li(text$)..j)$li|
00000a20  6e 65 3d 74 65 78 74 24  3a 58 25 3d 6c 69 6e 65  |ne=text$:X%=line|
00000a30  20 83 32 35 36 3a 59 25  3d 6c 69 6e 65 20 81 32  | .256:Y%=line .2|
00000a40  35 36 0d 04 74 0a d6 26  46 46 46 37 0d 04 7e 05  |56..t..&FFF7..~.|
00000a50  e1 0d 04 88 05 20 0d 04  92 12 dd f2 72 65 74 75  |..... ......retu|
00000a60  72 6e 5f 6f 73 68 77 6d  0d 04 9c 20 41 25 3d 26  |rn_oshwm... A%=&|
00000a70  42 34 3a 58 25 3d 90 20  81 32 35 36 3a 59 25 3d  |B4:X%=. .256:Y%=|
00000a80  30 3a d6 26 46 46 46 34  0d 04 a6 05 e1 0d ff     |0:.&FFF4.......|
00000a8f