Home » CEEFAX disks » telesoftware1.adl » CRMENU2

CRMENU2

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 » CEEFAX disks » telesoftware1.adl
Filename: CRMENU2
Read OK:
File size: 0735 bytes
Load address: 2300
Exec address: 2300
File contents
�(c)S.B

��
7�7:�23;8202;0;0;0;:�S%30,A%(31),A$(31):�A 256:*FX15

*FX4 1
(*FX200 3
2=�1,6,0,0,0,3,16,16,125,-5,-15,-15,126,60:�H:B=1:�I:�B=1�E
<!X%!1=S%:X%!5=1:A%=8:�J:�B=2�F
F
�B=3�D
P3S%?(S%?0+1)=13:A$(B%)=$(S%+1):A%(B%)=D%:�B:�A:�
ZJݤA:!&71=&70:A%=5:X%=&70:Y%=0:�&FFD1:B$="":�C=1�12:B$=B$+�C?&70:�C:=B$
dx��A:�0,21);�132""�157""�131"Which program do you require?":�0,22);�132""�157""�131" Press 0-3 for New Drive":*FX15
n
*DIR $
x6�1,1,200,2:C%=�:�C%>47�C%<52�G("DRIVE"+�(C%-48)):�
�C%=C%-65:�C%<0�C%>(B%-1)�A
�
�%�A%(C%)=-1��=&1900:�:�"+."+A$(C%)
��A%(C%)=-2�C
��:�G("RUN -."+A$(C%)):�
�D��I:Y%=X%�256:X%!1=S%:A%=5:�&FFD1:B%=S%?0+1:�B%=B%-1:�S%?B%<>0:�
����H:�'""�148""�157"�"�147"�     ���ठ������𠠠������������"�148""�157"�"�147"      ��"�255"���"�255"��"�255""�255"��  "�131"           "�148""�157"�"�147"�      �ꢤ����������"�131"":�132;�157;�131;"�Disc Title : ";�A;':�
�8��B:�B%�2=0�134,40,(B%+65),41;:�4);A$(B%);�8;:�d\@
�'�B%�2=1�40,(B%+65),41;:�23);A$(B%)
�B%=B%+1:�T|@:�
�"��G($A):X%=A:Y%=A�256:�&FFF7:�
�
��E:*DIR-
�D%=0:X%!9=0:B%=0:B=2:�
��F:*DIR T
D%=-2:X%!9=0:B=3:�T|@:�

��D:*DIR+
"D%=-1:X%!9=0:�T|@:�
,+��J:E%=(�&FFD1)�&1000000:�E%<>0�D%=-1�A
6�E%=0��DP@
@�
J��C:*TV0,1
T��=&2F00:C$="T."+A$(C%):�28,0,23,39,20:�:�';�132""�157""�131"Do you require output to a printer ?":�A$=�:��"YyNn",A$):�"Yy",A$)F%=� � F%=�
^^�:�';�132""�157""�131"Prevent screen scrolling?";:�A$=�:��"YyNn",A$):�"Yy",A$)G%=� � G%=�
hL�22,3:Q=�C$:�G%�"P r e s s   S H I F T   f o r   n e x t   p a g e ":�14
rF�"P r i n t e r   O u t p u t   O ";:�F%=��110,13,10,10,2��"f f"''
|�L%=�#Q:�L%:�L%=13�10
�y��#Q:�3:�#Q:�'''"*   *   *        D o c u m e n t   c o m p l e t e        *   *   *":�T=1�4:G=�:�1,1,200,2:�:�!&FFFC
� � ���H�&*��� �h����`�=&2300
O.
�
00000000  0d 00 05 0b f4 28 63 29  53 2e 42 0d 00 0a 07 ee  |.....(c)S.B.....|
00000010  85 e0 0d 00 14 37 eb 37  3a ef 32 33 3b 38 32 30  |.....7.7:.23;820|
00000020  32 3b 30 3b 30 3b 30 3b  3a de 53 25 33 30 2c 41  |2;0;0;0;:.S%30,A|
00000030  25 28 33 31 29 2c 41 24  28 33 31 29 3a de 41 20  |%(31),A$(31):.A |
00000040  32 35 36 3a 2a 46 58 31  35 0d 00 1e 0a 2a 46 58  |256:*FX15....*FX|
00000050  34 20 31 0d 00 28 0c 2a  46 58 32 30 30 20 33 0d  |4 1..(.*FX200 3.|
00000060  00 32 3d e2 31 2c 36 2c  30 2c 30 2c 30 2c 33 2c  |.2=.1,6,0,0,0,3,|
00000070  31 36 2c 31 36 2c 31 32  35 2c 2d 35 2c 2d 31 35  |16,16,125,-5,-15|
00000080  2c 2d 31 35 2c 31 32 36  2c 36 30 3a f2 48 3a 42  |,-15,126,60:.H:B|
00000090  3d 31 3a f2 49 3a e7 42  3d 31 f2 45 0d 00 3c 21  |=1:.I:.B=1.E..<!|
000000a0  58 25 21 31 3d 53 25 3a  58 25 21 35 3d 31 3a 41  |X%!1=S%:X%!5=1:A|
000000b0  25 3d 38 3a f2 4a 3a e7  42 3d 32 f2 46 0d 00 46  |%=8:.J:.B=2.F..F|
000000c0  0a e7 42 3d 33 f2 44 0d  00 50 33 53 25 3f 28 53  |..B=3.D..P3S%?(S|
000000d0  25 3f 30 2b 31 29 3d 31  33 3a 41 24 28 42 25 29  |%?0+1)=13:A$(B%)|
000000e0  3d 24 28 53 25 2b 31 29  3a 41 25 28 42 25 29 3d  |=$(S%+1):A%(B%)=|
000000f0  44 25 3a f2 42 3a f2 41  3a e0 0d 00 5a 4a dd a4  |D%:.B:.A:...ZJ..|
00000100  41 3a 21 26 37 31 3d 26  37 30 3a 41 25 3d 35 3a  |A:!&71=&70:A%=5:|
00000110  58 25 3d 26 37 30 3a 59  25 3d 30 3a d6 26 46 46  |X%=&70:Y%=0:.&FF|
00000120  44 31 3a 42 24 3d 22 22  3a e3 43 3d 31 b8 31 32  |D1:B$="":.C=1.12|
00000130  3a 42 24 3d 42 24 2b bd  43 3f 26 37 30 3a ed 43  |:B$=B$+.C?&70:.C|
00000140  3a 3d 42 24 0d 00 64 78  dd f2 41 3a f1 8a 30 2c  |:=B$..dx..A:..0,|
00000150  32 31 29 3b bd 31 33 32  22 22 bd 31 35 37 22 22  |21);.132"".157""|
00000160  bd 31 33 31 22 57 68 69  63 68 20 70 72 6f 67 72  |.131"Which progr|
00000170  61 6d 20 64 6f 20 79 6f  75 20 72 65 71 75 69 72  |am do you requir|
00000180  65 3f 22 3a f1 8a 30 2c  32 32 29 3b bd 31 33 32  |e?":..0,22);.132|
00000190  22 22 bd 31 35 37 22 22  bd 31 33 31 22 20 50 72  |"".157"".131" Pr|
000001a0  65 73 73 20 30 2d 33 20  66 6f 72 20 4e 65 77 20  |ess 0-3 for New |
000001b0  44 72 69 76 65 22 3a 2a  46 58 31 35 0d 00 6e 0a  |Drive":*FX15..n.|
000001c0  2a 44 49 52 20 24 0d 00  78 36 d4 31 2c 31 2c 32  |*DIR $..x6.1,1,2|
000001d0  30 30 2c 32 3a 43 25 3d  a5 3a e7 43 25 3e 34 37  |00,2:C%=.:.C%>47|
000001e0  80 43 25 3c 35 32 f2 47  28 22 44 52 49 56 45 22  |.C%<52.G("DRIVE"|
000001f0  2b c3 28 43 25 2d 34 38  29 29 3a f9 0d 00 82 1e  |+.(C%-48)):.....|
00000200  43 25 3d 43 25 2d 36 35  3a e7 43 25 3c 30 84 43  |C%=C%-65:.C%<0.C|
00000210  25 3e 28 42 25 2d 31 29  f2 41 0d 00 8c 07 ee 85  |%>(B%-1).A......|
00000220  87 0d 00 96 25 e7 41 25  28 43 25 29 3d 2d 31 8c  |....%.A%(C%)=-1.|
00000230  d0 3d 26 31 39 30 30 3a  db 3a d7 22 2b 2e 22 2b  |.=&1900:.:."+."+|
00000240  41 24 28 43 25 29 0d 00  a0 10 e7 41 25 28 43 25  |A$(C%).....A%(C%|
00000250  29 3d 2d 32 f2 43 0d 00  aa 1b db 3a f2 47 28 22  |)=-2.C.....:.G("|
00000260  52 55 4e 20 2d 2e 22 2b  41 24 28 43 25 29 29 3a  |RUN -."+A$(C%)):|
00000270  e1 0d 00 b4 44 dd f2 49  3a 59 25 3d 58 25 81 32  |....D..I:Y%=X%.2|
00000280  35 36 3a 58 25 21 31 3d  53 25 3a 41 25 3d 35 3a  |56:X%!1=S%:A%=5:|
00000290  d6 26 46 46 44 31 3a 42  25 3d 53 25 3f 30 2b 31  |.&FFD1:B%=S%?0+1|
000002a0  3a f5 42 25 3d 42 25 2d  31 3a fd 53 25 3f 42 25  |:.B%=B%-1:.S%?B%|
000002b0  3c 3e 30 3a e1 0d 00 be  e9 dd f2 48 3a f1 27 22  |<>0:.......H:.'"|
000002c0  22 bd 31 34 38 22 22 bd  31 35 37 22 a0 22 bd 31  |".148"".157".".1|
000002d0  34 37 22 a0 20 20 20 20  20 a0 e4 ea e0 a4 a0 f0  |47".     .......|
000002e0  f0 b0 f0 f0 b0 f0 f0 f0  a0 a0 a0 a0 a0 a0 a0 a0  |................|
000002f0  a0 a0 a0 a0 a0 a0 a0 22  bd 31 34 38 22 22 bd 31  |.......".148"".1|
00000300  35 37 22 a0 22 bd 31 34  37 22 20 20 20 20 20 20  |57".".147"      |
00000310  a8 ac 22 bd 32 35 35 22  bd ac a0 22 bd 32 35 35  |..".255"...".255|
00000320  22 a0 a0 22 bd 32 35 35  22 ee b5 a0 22 bd 32 35  |"..".255"...".25|
00000330  35 22 a0 a0 20 20 22 bd  31 33 31 22 20 20 20 20  |5"..  ".131"    |
00000340  20 20 20 20 20 20 20 22  bd 31 34 38 22 22 bd 31  |       ".148"".1|
00000350  35 37 22 a0 22 bd 31 34  37 22 a0 20 20 20 20 20  |57".".147".     |
00000360  20 a6 ea a2 a4 a0 a3 a3  a1 a3 a2 a1 a0 a3 a0 22  | .............."|
00000370  bd 31 33 31 22 22 3a f1  bd 31 33 32 3b bd 31 35  |.131"":..132;.15|
00000380  37 3b bd 31 33 31 3b 22  a0 44 69 73 63 20 54 69  |7;.131;".Disc Ti|
00000390  74 6c 65 20 3a 20 22 3b  a4 41 3b 27 3a e1 0d 00  |tle : ";.A;':...|
000003a0  c8 38 dd f2 42 3a e7 42  25 83 32 3d 30 ef 31 33  |.8..B:.B%.2=0.13|
000003b0  34 2c 34 30 2c 28 42 25  2b 36 35 29 2c 34 31 3b  |4,40,(B%+65),41;|
000003c0  3a f1 8a 34 29 3b 41 24  28 42 25 29 3b 89 38 3b  |:..4);A$(B%);.8;|
000003d0  3a e5 8d 64 5c 40 0d 00  d2 27 e7 42 25 83 32 3d  |:..d\@...'.B%.2=|
000003e0  31 ef 34 30 2c 28 42 25  2b 36 35 29 2c 34 31 3b  |1.40,(B%+65),41;|
000003f0  3a f1 8a 32 33 29 3b 41  24 28 42 25 29 0d 00 dc  |:..23);A$(B%)...|
00000400  13 42 25 3d 42 25 2b 31  3a e5 8d 54 7c 40 3a e1  |.B%=B%+1:..T|@:.|
00000410  0d 00 e6 22 dd f2 47 28  24 41 29 3a 58 25 3d 41  |..."..G($A):X%=A|
00000420  3a 59 25 3d 41 81 32 35  36 3a d6 26 46 46 46 37  |:Y%=A.256:.&FFF7|
00000430  3a e1 0d 00 f0 0d dd f2  45 3a 2a 44 49 52 2d 0d  |:.......E:*DIR-.|
00000440  00 fa 1a 44 25 3d 30 3a  58 25 21 39 3d 30 3a 42  |...D%=0:X%!9=0:B|
00000450  25 3d 30 3a 42 3d 32 3a  e1 0d 01 04 0e dd f2 46  |%=0:B=2:.......F|
00000460  3a 2a 44 49 52 20 54 0d  01 0e 1c 44 25 3d 2d 32  |:*DIR T....D%=-2|
00000470  3a 58 25 21 39 3d 30 3a  42 3d 33 3a e5 8d 54 7c  |:X%!9=0:B=3:..T||
00000480  40 3a e1 0d 01 18 0d dd  f2 44 3a 2a 44 49 52 2b  |@:.......D:*DIR+|
00000490  0d 01 22 18 44 25 3d 2d  31 3a 58 25 21 39 3d 30  |..".D%=-1:X%!9=0|
000004a0  3a e5 8d 54 7c 40 3a e1  0d 01 2c 2b dd f2 4a 3a  |:..T|@:...,+..J:|
000004b0  45 25 3d 28 ba 26 46 46  44 31 29 80 26 31 30 30  |E%=(.&FFD1).&100|
000004c0  30 30 30 30 3a e7 45 25  3c 3e 30 80 44 25 3d 2d  |0000:.E%<>0.D%=-|
000004d0  31 f2 41 0d 01 36 0e e7  45 25 3d 30 8c 8d 44 50  |1.A..6..E%=0..DP|
000004e0  40 0d 01 40 05 e1 0d 01  4a 0e dd f2 43 3a 2a 54  |@..@....J...C:*T|
000004f0  56 30 2c 31 0d 01 54 8e  d3 3d 26 32 46 30 30 3a  |V0,1..T..=&2F00:|
00000500  43 24 3d 22 54 2e 22 2b  41 24 28 43 25 29 3a ef  |C$="T."+A$(C%):.|
00000510  32 38 2c 30 2c 32 33 2c  33 39 2c 32 30 3a db 3a  |28,0,23,39,20:.:|
00000520  f1 27 3b bd 31 33 32 22  22 bd 31 35 37 22 22 bd  |.';.132"".157"".|
00000530  31 33 31 22 44 6f 20 79  6f 75 20 72 65 71 75 69  |131"Do you requi|
00000540  72 65 20 6f 75 74 70 75  74 20 74 6f 20 61 20 70  |re output to a p|
00000550  72 69 6e 74 65 72 20 3f  22 3a f5 41 24 3d be 3a  |rinter ?":.A$=.:|
00000560  fd a7 22 59 79 4e 6e 22  2c 41 24 29 3a e7 a7 22  |.."YyNn",A$):.."|
00000570  59 79 22 2c 41 24 29 46  25 3d b9 20 8b 20 46 25  |Yy",A$)F%=. . F%|
00000580  3d a3 0d 01 5e 5e db 3a  f1 27 3b bd 31 33 32 22  |=...^^.:.';.132"|
00000590  22 bd 31 35 37 22 22 bd  31 33 31 22 50 72 65 76  |".157"".131"Prev|
000005a0  65 6e 74 20 73 63 72 65  65 6e 20 73 63 72 6f 6c  |ent screen scrol|
000005b0  6c 69 6e 67 3f 22 3b 3a  f5 41 24 3d be 3a fd a7  |ling?";:.A$=.:..|
000005c0  22 59 79 4e 6e 22 2c 41  24 29 3a e7 a7 22 59 79  |"YyNn",A$):.."Yy|
000005d0  22 2c 41 24 29 47 25 3d  b9 20 8b 20 47 25 3d a3  |",A$)G%=. . G%=.|
000005e0  0d 01 68 4c ef 32 32 2c  33 3a 51 3d ad 43 24 3a  |..hL.22,3:Q=.C$:|
000005f0  e7 47 25 f1 22 50 20 72  20 65 20 73 20 73 20 20  |.G%."P r e s s  |
00000600  20 53 20 48 20 49 20 46  20 54 20 20 20 66 20 6f  | S H I F T   f o|
00000610  20 72 20 20 20 6e 20 65  20 78 20 74 20 20 20 70  | r   n e x t   p|
00000620  20 61 20 67 20 65 20 22  3a ef 31 34 0d 01 72 46  | a g e ":.14..rF|
00000630  f1 22 50 20 72 20 69 20  6e 20 74 20 65 20 72 20  |."P r i n t e r |
00000640  20 20 4f 20 75 20 74 20  70 20 75 20 74 20 20 20  |  O u t p u t   |
00000650  4f 20 22 3b 3a e7 46 25  3d b9 ef 31 31 30 2c 31  |O ";:.F%=..110,1|
00000660  33 2c 31 30 2c 31 30 2c  32 8b f1 22 66 20 66 22  |3,10,10,2.."f f"|
00000670  27 27 0d 01 7c 19 f5 4c  25 3d 9a 23 51 3a ef 4c  |''..|..L%=.#Q:.L|
00000680  25 3a e7 4c 25 3d 31 33  ef 31 30 0d 01 86 79 fd  |%:.L%=13.10...y.|
00000690  c5 23 51 3a ef 33 3a d9  23 51 3a f1 27 27 27 22  |.#Q:.3:.#Q:.'''"|
000006a0  2a 20 20 20 2a 20 20 20  2a 20 20 20 20 20 20 20  |*   *   *       |
000006b0  20 44 20 6f 20 63 20 75  20 6d 20 65 20 6e 20 74  | D o c u m e n t|
000006c0  20 20 20 63 20 6f 20 6d  20 70 20 6c 20 65 20 74  |   c o m p l e t|
000006d0  20 65 20 20 20 20 20 20  20 20 2a 20 20 20 2a 20  | e        *   * |
000006e0  20 20 2a 22 3a e3 54 3d  31 b8 34 3a 47 3d a5 3a  |  *":.T=1.4:G=.:|
000006f0  d4 31 2c 31 2c 32 30 30  2c 32 3a ed 3a d6 21 26  |.1,1,200,2:.:.!&|
00000700  46 46 46 43 0d 00 a9 0f  20 f4 ff a9 15 20 ee ff  |FFFC.... .... ..|
00000710  a2 ff e8 8a 48 bc 26 2a  a9 8a a2 00 20 f4 ff 68  |....H.&*.... ..h|
00000720  aa e0 0e d0 ed 60 d0 3d  26 32 33 30 30 0d 4f 2e  |.....`.=&2300.O.|
00000730  0d f9 06 0b 0d                                    |.....|
00000735
CRMENU2.m0
CRMENU2.m1
CRMENU2.m2
CRMENU2.m4
CRMENU2.m5