F/C/CMENU

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/CMENU

F/C/CMENU

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF
Filename:	F/C/CMENU
Read OK:	✔
File size:	0363 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents

   10REM EUG MENU ADAPTED FROM PROGS BY R. DIMOND
   15OSCLI"DIR C"
   20VDU22,4:VDU19,0,4;0;23;8202;0;0;0;
   30MOVE12,12:DRAW1267,12:DRAW1267,1011:DRAW12,1011:DRAW12,12
   40PRINTTAB(3,2)" COMPRESION TECHNIQUES MENU" 
   50PRINTTAB(3,4)" ~~~~~~~~~~~~~~~~~~~~~~~~~~"  
   60VDU28,3,29,35,6
   80PRINT'"<A> COMPT1"
   90PRINT'"<B> CPCODE1"
  100PRINT'"<C> UNCOMP1"  
  110PRINT'"<D> COMPT2"  
  120PRINT'"<E> CPCODE2" 
  130PRINT'"<F> UNCOMP2" 
  140PRINT'"<G> ENCODE"
  150PRINT'"<H> DECODE"
  160PRINT'"<I> SOURCE CODE FOR CPCODE1"
  170PRINT'"<J> SOURCE CODE FOR CPCODE2"
  180PRINT'"<K> SOURCE CODE FOR DecM/C"
  190PRINT'"<R> Return to Main Menu"
  200*FX21,0
  210REPEAT:a%=INSTR("ABCDEFGHIJKR",GET$):UNTILa%  
  220IFa%=1THENCHAIN"COMPsc1"
  230IFa%=2THENCHAIN"COMPsc2"
  240IFa%=1THENCHAIN"COMPT1" 
  250IFa%=2THENCHAIN"CPCODE1"
  260IFa%=3THENCHAIN"UNCOMP1"
  270IFa%=4THENCHAIN"COMPT2"
  280IFa%=5THENCHAIN"CPCODE2"
  290IFa%=6THENCHAIN"UNCOMP2"
  300IFa%=7THENCHAIN"ENCODE" 
  310IFa%=8THENCHAIN"DECODE"
  312IFa%=9THENCHAIN"COMPsc1"
  314IFa%=10THENCHAIN"COMPsc2"
  316IFa%=11THENCHAIN"DecMsrc"
  320IFa%=12THENOSCLI"DIR $.F":CHAIN"FMENU" 
  330END


.� EUG MENU ADAPTED FROM PROGS BY R. DIMOND
�"DIR C"
"�22,4:�19,0,4;0;23;8202;0;0;0;
.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
((�3,2)" COMPRESION TECHNIQUES MENU" 
2)�3,4)" ~~~~~~~~~~~~~~~~~~~~~~~~~~"  
<�28,3,29,35,6
P�'"<A> COMPT1"
Z�'"<B> CPCODE1"
d�'"<C> UNCOMP1"  
n�'"<D> COMPT2"  
x�'"<E> CPCODE2" 
��'"<F> UNCOMP2" 
��'"<G> ENCODE"
��'"<H> DECODE"
�#�'"<I> SOURCE CODE FOR CPCODE1"
�#�'"<J> SOURCE CODE FOR CPCODE2"
�"�'"<K> SOURCE CODE FOR DecM/C"
��'"<R> Return to Main Menu"
�*FX21,0
�!�:a%=�"ABCDEFGHIJKR",�):�a%  
��a%=1��"COMPsc1"
��a%=2��"COMPsc2"
��a%=1��"COMPT1" 
��a%=2��"CPCODE1"
�a%=3��"UNCOMP1"
�a%=4��"COMPT2"
�a%=5��"CPCODE2"
"�a%=6��"UNCOMP2"
,�a%=7��"ENCODE" 
6�a%=8��"DECODE"
8�a%=9��"COMPsc1"
:�a%=10��"COMPsc2"
<�a%=11��"DecMsrc"
@�a%=12��"DIR $.F":�"FMENU" 
J�
�

00000000  0d 00 0a 2e f4 20 45 55  47 20 4d 45 4e 55 20 41  |..... EUG MENU A|
00000010  44 41 50 54 45 44 20 46  52 4f 4d 20 50 52 4f 47  |DAPTED FROM PROG|
00000020  53 20 42 59 20 52 2e 20  44 49 4d 4f 4e 44 0d 00  |S BY R. DIMOND..|
00000030  0f 0c ff 22 44 49 52 20  43 22 0d 00 14 22 ef 32  |..."DIR C"...".2|
00000040  32 2c 34 3a ef 31 39 2c  30 2c 34 3b 30 3b 32 33  |2,4:.19,0,4;0;23|
00000050  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 1e 2e  |;8202;0;0;0;....|
00000060  ec 31 32 2c 31 32 3a df  31 32 36 37 2c 31 32 3a  |.12,12:.1267,12:|
00000070  df 31 32 36 37 2c 31 30  31 31 3a df 31 32 2c 31  |.1267,1011:.12,1|
00000080  30 31 31 3a df 31 32 2c  31 32 0d 00 28 28 f1 8a  |011:.12,12..((..|
00000090  33 2c 32 29 22 20 43 4f  4d 50 52 45 53 49 4f 4e  |3,2)" COMPRESION|
000000a0  20 54 45 43 48 4e 49 51  55 45 53 20 4d 45 4e 55  | TECHNIQUES MENU|
000000b0  22 20 0d 00 32 29 f1 8a  33 2c 34 29 22 20 7e 7e  |" ..2)..3,4)" ~~|
000000c0  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |~~~~~~~~~~~~~~~~|
000000d0  7e 7e 7e 7e 7e 7e 7e 7e  22 20 20 0d 00 3c 11 ef  |~~~~~~~~"  ..<..|
000000e0  32 38 2c 33 2c 32 39 2c  33 35 2c 36 0d 00 50 12  |28,3,29,35,6..P.|
000000f0  f1 27 22 3c 41 3e 20 43  4f 4d 50 54 31 22 0d 00  |.'"<A> COMPT1"..|
00000100  5a 13 f1 27 22 3c 42 3e  20 43 50 43 4f 44 45 31  |Z..'"<B> CPCODE1|
00000110  22 0d 00 64 15 f1 27 22  3c 43 3e 20 55 4e 43 4f  |"..d..'"<C> UNCO|
00000120  4d 50 31 22 20 20 0d 00  6e 14 f1 27 22 3c 44 3e  |MP1"  ..n..'"<D>|
00000130  20 43 4f 4d 50 54 32 22  20 20 0d 00 78 14 f1 27  | COMPT2"  ..x..'|
00000140  22 3c 45 3e 20 43 50 43  4f 44 45 32 22 20 0d 00  |"<E> CPCODE2" ..|
00000150  82 14 f1 27 22 3c 46 3e  20 55 4e 43 4f 4d 50 32  |...'"<F> UNCOMP2|
00000160  22 20 0d 00 8c 12 f1 27  22 3c 47 3e 20 45 4e 43  |" .....'"<G> ENC|
00000170  4f 44 45 22 0d 00 96 12  f1 27 22 3c 48 3e 20 44  |ODE".....'"<H> D|
00000180  45 43 4f 44 45 22 0d 00  a0 23 f1 27 22 3c 49 3e  |ECODE"...#.'"<I>|
00000190  20 53 4f 55 52 43 45 20  43 4f 44 45 20 46 4f 52  | SOURCE CODE FOR|
000001a0  20 43 50 43 4f 44 45 31  22 0d 00 aa 23 f1 27 22  | CPCODE1"...#.'"|
000001b0  3c 4a 3e 20 53 4f 55 52  43 45 20 43 4f 44 45 20  |<J> SOURCE CODE |
000001c0  46 4f 52 20 43 50 43 4f  44 45 32 22 0d 00 b4 22  |FOR CPCODE2"..."|
000001d0  f1 27 22 3c 4b 3e 20 53  4f 55 52 43 45 20 43 4f  |.'"<K> SOURCE CO|
000001e0  44 45 20 46 4f 52 20 44  65 63 4d 2f 43 22 0d 00  |DE FOR DecM/C"..|
000001f0  be 1f f1 27 22 3c 52 3e  20 52 65 74 75 72 6e 20  |...'"<R> Return |
00000200  74 6f 20 4d 61 69 6e 20  4d 65 6e 75 22 0d 00 c8  |to Main Menu"...|
00000210  0b 2a 46 58 32 31 2c 30  0d 00 d2 21 f5 3a 61 25  |.*FX21,0...!.:a%|
00000220  3d a7 22 41 42 43 44 45  46 47 48 49 4a 4b 52 22  |=."ABCDEFGHIJKR"|
00000230  2c be 29 3a fd 61 25 20  20 0d 00 dc 14 e7 61 25  |,.):.a%  .....a%|
00000240  3d 31 8c d7 22 43 4f 4d  50 73 63 31 22 0d 00 e6  |=1.."COMPsc1"...|
00000250  14 e7 61 25 3d 32 8c d7  22 43 4f 4d 50 73 63 32  |..a%=2.."COMPsc2|
00000260  22 0d 00 f0 14 e7 61 25  3d 31 8c d7 22 43 4f 4d  |".....a%=1.."COM|
00000270  50 54 31 22 20 0d 00 fa  14 e7 61 25 3d 32 8c d7  |PT1" .....a%=2..|
00000280  22 43 50 43 4f 44 45 31  22 0d 01 04 14 e7 61 25  |"CPCODE1".....a%|
00000290  3d 33 8c d7 22 55 4e 43  4f 4d 50 31 22 0d 01 0e  |=3.."UNCOMP1"...|
000002a0  13 e7 61 25 3d 34 8c d7  22 43 4f 4d 50 54 32 22  |..a%=4.."COMPT2"|
000002b0  0d 01 18 14 e7 61 25 3d  35 8c d7 22 43 50 43 4f  |.....a%=5.."CPCO|
000002c0  44 45 32 22 0d 01 22 14  e7 61 25 3d 36 8c d7 22  |DE2".."..a%=6.."|
000002d0  55 4e 43 4f 4d 50 32 22  0d 01 2c 14 e7 61 25 3d  |UNCOMP2"..,..a%=|
000002e0  37 8c d7 22 45 4e 43 4f  44 45 22 20 0d 01 36 13  |7.."ENCODE" ..6.|
000002f0  e7 61 25 3d 38 8c d7 22  44 45 43 4f 44 45 22 0d  |.a%=8.."DECODE".|
00000300  01 38 14 e7 61 25 3d 39  8c d7 22 43 4f 4d 50 73  |.8..a%=9.."COMPs|
00000310  63 31 22 0d 01 3a 15 e7  61 25 3d 31 30 8c d7 22  |c1"..:..a%=10.."|
00000320  43 4f 4d 50 73 63 32 22  0d 01 3c 15 e7 61 25 3d  |COMPsc2"..<..a%=|
00000330  31 31 8c d7 22 44 65 63  4d 73 72 63 22 0d 01 40  |11.."DecMsrc"..@|
00000340  1f e7 61 25 3d 31 32 8c  ff 22 44 49 52 20 24 2e  |..a%=12.."DIR $.|
00000350  46 22 3a d7 22 46 4d 45  4e 55 22 20 0d 01 4a 05  |F":."FMENU" ..J.|
00000360  e0 0d ff                                          |...|
00000363

F/C/CMENU.m0

F/C/CMENU.m1

F/C/CMENU.m2

F/C/CMENU.m4

F/C/CMENU.m5

Our privacy policy is here.
Last updated: 13 Jul 2024, 14:29 UTC
Website designed by .