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