Home » CEEFAX disks » telesoftware3.adl » 06_11_87/CRMENU2

06_11_87/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 » telesoftware3.adl
Filename: 06_11_87/CRMENU2
Read OK:
File size: 072C bytes
Load address: 2300
Exec address: 2A00
File contents
   10ONERROREND
   20MODE7:VDU23;8202;0;0;0;:DIMS%30,A%(31),A$(31):DIMA 256:*FX15
   30*FX4 1
   40*FX200 3
   50ENVELOPE1,6,0,0,0,3,16,16,125,-5,-15,-15,126,60:PROCH:B=1:PROCI:IFB=1PROCE
   60X%!1=S%:X%!5=1:A%=8:PROCJ:IFB=2PROCF
   70IFB=3PROCD
   80S%?(S%?0+1)=13:A$(B%)=$(S%+1):A%(B%)=D%:PROCB:PROCA:END
   90DEFFNA:!&71=&70:A%=5:X%=&70:Y%=0:CALL&FFD1:B$="":FORC=1TO12:B$=B$+CHR$C?&70:NEXTC:=B$
  100DEFPROCA:PRINTTAB(0,21);CHR$132""CHR$157""CHR$131"Which program do you require?":PRINTTAB(0,22);CHR$132""CHR$157""CHR$131" Press 0-3 for New Drive":*FX15
  110*DIR $
  120SOUND1,1,200,2:C%=GET:IFC%>47ANDC%<52PROCG("DRIVE"+STR$(C%-48)):RUN
  130C%=C%-65:IFC%<0ORC%>(B%-1)PROCA
  140ONERROROFF
  150IFA%(C%)=-1THENPAGE=&1900:CLS:CHAIN"B."+A$(C%)
  160IFA%(C%)=-2PROCC
  170CLS:PROCG("RUN M."+A$(C%)):ENDPROC
  180DEFPROCI:Y%=X%DIV256:X%!1=S%:A%=5:CALL&FFD1:B%=S%?0+1:REPEATB%=B%-1:UNTILS%?B%<>0:ENDPROC
  190DEFPROCH:PRINT'""CHR$148""CHR$157"�"CHR$147"�     ���ठ������𠠠������������"CHR$148""CHR$157"�"CHR$147"      ��"CHR$255"���"CHR$255"��"CHR$255""CHR$255"��  "CHR$131"           "CHR$148""CHR$157"�"CHR$147"�      �ꢤ����������"CHR$131"":PRINTCHR$132;CHR$157;CHR$131;"�Disc Title : ";FNA;':ENDPROC
  200DEFPROCB:IFB%MOD2=0VDU134,40,(B%+65),41;:PRINTTAB(4);A$(B%)SPC8;:GOTO220
  210IFB%MOD2=1VDU40,(B%+65),41;:PRINTTAB(23)A$(B%)
  220B%=B%+1:GOTO60:ENDPROC
  230DEFPROCG($A):X%=A:Y%=ADIV256:CALL&FFF7:ENDPROC
  240DEFPROCE:*DIR M
  250D%=0:X%!9=0:B%=0:B=2:ENDPROC
  260DEFPROCF:*DIR T
  270D%=-2:X%!9=0:B=3:GOTO60:ENDPROC
  280DEFPROCD:*DIR B
  290D%=-1:X%!9=0:GOTO60:ENDPROC
  300DEFPROCJ:E%=(USR&FFD1)AND&1000000:IFE%<>0ANDD%=-1PROCA
  310IFE%=0THEN80
  320ENDPROC
  330DEFPROCC:*TV0,1
  340HIMEM=&2F00:C$="T."+A$(C%):VDU28,0,23,39,20:CLS:PRINT';CHR$132""CHR$157""CHR$131"Do you require output to a printer ?":REPEATA$=GET$:UNTILINSTR("YyNn",A$):IFINSTR("Yy",A$)F%=TRUEELSEF%=FALSE
  350CLS:PRINT';CHR$132""CHR$157""CHR$131"Prevent screen scrolling?";:REPEATA$=GET$:UNTILINSTR("YyNn",A$):IFINSTR("Yy",A$)G%=TRUEELSEG%=FALSE
  360VDU22,3:Q=OPENUPC$:IFG%PRINT"P r e s s   S H I F T   f o r   n e x t   p a g e ":VDU14
  370PRINT"P r i n t e r   O u t p u t   O ";:IFF%=TRUEVDU110,13,10,10,2ELSEPRINT"f f"''
  380REPEATL%=BGET#Q:VDUL%:IFL%=13VDU10
  390UNTILEOF#Q:VDU3:CLOSE#Q:PRINT'''"*   *   *        D o c u m e n t   c o m p l e t e        *   *   *":FORT=1TO4:G=GET:SOUND1,1,200,2:NEXT:CALL!&FFFC

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