Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_19.ADF » P/PMenu

P/PMenu

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_19.ADF
Filename: P/PMenu
Read OK: ✔
File size: 06EC bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10REM EUG MENU ADAPTED FROM PROGS BY R. DIMOND
   20HIMEM=&2500
   30*LOAD $.CODE2
   35D%=FALSE
   40D=FALSE
   50VDU22,4:VDU19,0,4;0;23;8202;0;0;0;
   60MOVE12,12:DRAW1267,12:DRAW1267,1011:DRAW12,1011:DRAW12,12
   70PRINTTAB(10,2)" EUG19 PROGRAMS MENU" 
   80PRINTTAB(10,4)" ~~~~~~~~~~~~~~~~~~~"
   90VDU28,1,29,35,4 
  100COLOUR1:PRINT"PLEASE SELECT -":COLOUR3
  110PRINT'"<A> Disassembling Memory  GUS  TP"
  120PRINT'"<B> Improved Pictures John McHugh P"  
  130PRINT'"<C> Times Table Tutor Pete Howes P" 
  140PRINT'"<D> More on Tape to disc"'"    Derek Walker   P"
  150PRINT'"<E> Over Writing protection for        ADFS Ross Little  TP" 
  160PRINT'"<F> Distorted Graphics."'"    Mathew Ford   TP"
  170PRINT'"<G> Fonts for Stop Press 64"'"    Derek Walker    P"
  190PRINT'"<Y> 40 Column text?"
  195PRINT'"<R>  Return to Main Menu" 
  210REPEAT:a%=INSTR("ABCDEFGYR",GET$):UNTILa% 
  220IFa%=1THENf$="dtext":fl%=1:P$="disass":PROCtext:GOTO40
  230IFa%=2THENCHAIN"SERV"
  240IFa%=3THENCHAIN"TimTbs"
  250IFa%=4THENCHAIN"ttod"
  260IFa%=5THENf$="SafTxt":fl%=1:P$="safsc":PROCtext:GOTO40
  270IFa%=6THENf$="PixTxt":fl%=1:P$="Menu":PROCtext:GOTO40  
  280IFa%=7THENOSCLI"DIR FONTS":MODE6:*CAT
  300IFa%=8THEND%=TRUE:GOTO40     
  305IFa%=9THENOSCLI"DIR $":CHAIN"MENU"   
  310END
  320DEFPROCtext
  330P=FALSE
  340f%=0
  350VDU22,6:f%=f%+1:CALL&A3F:OSCLI"LOAD "+f$+STR$f%+" 2500"
  355IF D% m%=6ELSE m%=3
  360VDU22,m%:IFNOTP VDU14:PRINT''"SHIFT TO SCROLL"
  370IF D% PROCcol40 ELSE CALL&A0F  
  380IFf%=fl% IFD PRINT"PRESS SPACE TO CONTINUE":G=GET:PROCpict:GOTO420
  390IFf%=fl% GOTO420
  400IFNOTP PRINT''"PRESS SPACE TO CONTINUE":G=GET
  410GOTO350
  420VDU3:IFNOTP PRINT''"<P> TO PRINT TEXT <M> FOR MENU <R> RUN  PROGRAM" ELSEGOTO30    
  430REPEAT:a%=INSTR("PMR",GET$):UNTILa%
  440IFa%=1 P=TRUE:VDU2,15:GOTO340
  450IFa%=2 GOTO40
  460IF a%=3 CHAIN P$
  470UNTILFALSE
  480DEFPROCpict
  490d%=0
  500d%=d%+1:VDU22,0:OSCLI"LOAD PIC"+STR$d%
  510IFNOTP PRINT"PRESS SPACE TO CONTINUE":G=GET ELSE CALL &90A
  520IFd%=dl% VDU22,3:ENDPROC
  530GOTO500
 1000DEFPROCcol40
 1010addr=HIMEM
 1020REPEAT
 1030a%=?addr
 1040IFa%=&0D THENPRINT
 1050IFa%=&1A a%=&20
 1060IFa%=&20 AND POS>28 THENPRINT
 1070IF a%=&20 AND POS=0 THENREPEAT:addr=addr+1:a%=?addr:UNTILa%<>&20
 1080PRINTCHR$a%;
 1090addr=addr+1
 1100UNTILa%=0
 1110ENDPROC


.� EUG MENU ADAPTED FROM PROGS BY R. DIMOND
�=&2500
*LOAD $.CODE2
#D%=�
(D=�
2"�22,4:�19,0,4;0;23;8202;0;0;0;
<.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
F"�10,2)" EUG19 PROGRAMS MENU" 
P!�10,4)" ~~~~~~~~~~~~~~~~~~~"
Z�28,1,29,35,4 
d�1:�"PLEASE SELECT -":�3
n)�'"<A> Disassembling Memory  GUS  TP"
x-�'"<B> Improved Pictures John McHugh P"  
�+�'"<C> Times Table Tutor Pete Howes P" 
�7�'"<D> More on Tape to disc"'"    Derek Walker   P"
�D�'"<E> Over Writing protection for        ADFS Ross Little  TP" 
�6�'"<F> Distorted Graphics."'"    Mathew Ford   TP"
�;�'"<G> Fonts for Stop Press 64"'"    Derek Walker    P"
��'"<Y> 40 Column text?"
�!�'"<R>  Return to Main Menu" 
��:a%=�"ABCDEFGYR",�):�a% 
�2�a%=1�f$="dtext":fl%=1:P$="disass":�text:�Th@
��a%=2��"SERV"
��a%=3��"TimTbs"
��a%=4��"ttod"
2�a%=5�f$="SafTxt":fl%=1:P$="safsc":�text:�Th@
3�a%=6�f$="PixTxt":fl%=1:P$="Menu":�text:�Th@  
�a%=7��"DIR FONTS":�6:*CAT
,�a%=8�D%=�:�Th@     
1�a%=9��"DIR $":�"MENU"   
6�
@
��text
JP=�
Tf%=0
^/�22,6:f%=f%+1:�&A3F:�"LOAD "+f$+�f%+" 2500"
c� D% m%=6� m%=3
h'�22,m%:�P �14:�''"SHIFT TO SCROLL"
r� D% �col40 � �&A0F  
|9�f%=fl% �D �"PRESS SPACE TO CONTINUE":G=�:�pict:�tdA
��f%=fl% �tdA
�(�P �''"PRESS SPACE TO CONTINUE":G=�
�	�D^A
�J�3:�P �''"<P> TO PRINT TEXT <M> FOR MENU <R> RUN  PROGRAM" ��T^@    
��:a%=�"PMR",�):�a%
��a%=1 P=�:�2,15:�DTA
��a%=2 �Th@
�� a%=3 � P$
���
�
��pict
�d%=0
�!d%=d%+1:�22,0:�"LOAD PIC"+�d%
�/�P �"PRESS SPACE TO CONTINUE":G=� � � &90A
�d%=dl% �22,3:�
	�dtA
���col40
�
addr=�
��
a%=?addr
�a%=&0D ��
�a%=&1A a%=&20
$�a%=&20 � �>28 ��
.3� a%=&20 � �=0 ��:addr=addr+1:a%=?addr:�a%<>&20
8	�a%;
Baddr=addr+1
L	�a%=0
V�
�
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  14 0b d3 3d 26 32 35 30  30 0d 00 1e 11 2a 4c 4f  |...=&2500....*LO|
00000040  41 44 20 24 2e 43 4f 44  45 32 0d 00 23 08 44 25  |AD $.CODE2..#.D%|
00000050  3d a3 0d 00 28 07 44 3d  a3 0d 00 32 22 ef 32 32  |=...(.D=...2".22|
00000060  2c 34 3a ef 31 39 2c 30  2c 34 3b 30 3b 32 33 3b  |,4:.19,0,4;0;23;|
00000070  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 3c 2e ec  |8202;0;0;0;..<..|
00000080  31 32 2c 31 32 3a df 31  32 36 37 2c 31 32 3a df  |12,12:.1267,12:.|
00000090  31 32 36 37 2c 31 30 31  31 3a df 31 32 2c 31 30  |1267,1011:.12,10|
000000a0  31 31 3a df 31 32 2c 31  32 0d 00 46 22 f1 8a 31  |11:.12,12..F"..1|
000000b0  30 2c 32 29 22 20 45 55  47 31 39 20 50 52 4f 47  |0,2)" EUG19 PROG|
000000c0  52 41 4d 53 20 4d 45 4e  55 22 20 0d 00 50 21 f1  |RAMS MENU" ..P!.|
000000d0  8a 31 30 2c 34 29 22 20  7e 7e 7e 7e 7e 7e 7e 7e  |.10,4)" ~~~~~~~~|
000000e0  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 22 0d 00 5a 12  |~~~~~~~~~~~"..Z.|
000000f0  ef 32 38 2c 31 2c 32 39  2c 33 35 2c 34 20 0d 00  |.28,1,29,35,4 ..|
00000100  64 1c fb 31 3a f1 22 50  4c 45 41 53 45 20 53 45  |d..1:."PLEASE SE|
00000110  4c 45 43 54 20 2d 22 3a  fb 33 0d 00 6e 29 f1 27  |LECT -":.3..n).'|
00000120  22 3c 41 3e 20 44 69 73  61 73 73 65 6d 62 6c 69  |"<A> Disassembli|
00000130  6e 67 20 4d 65 6d 6f 72  79 20 20 47 55 53 20 20  |ng Memory  GUS  |
00000140  54 50 22 0d 00 78 2d f1  27 22 3c 42 3e 20 49 6d  |TP"..x-.'"<B> Im|
00000150  70 72 6f 76 65 64 20 50  69 63 74 75 72 65 73 20  |proved Pictures |
00000160  4a 6f 68 6e 20 4d 63 48  75 67 68 20 50 22 20 20  |John McHugh P"  |
00000170  0d 00 82 2b f1 27 22 3c  43 3e 20 54 69 6d 65 73  |...+.'"<C> Times|
00000180  20 54 61 62 6c 65 20 54  75 74 6f 72 20 50 65 74  | Table Tutor Pet|
00000190  65 20 48 6f 77 65 73 20  50 22 20 0d 00 8c 37 f1  |e Howes P" ...7.|
000001a0  27 22 3c 44 3e 20 4d 6f  72 65 20 6f 6e 20 54 61  |'"<D> More on Ta|
000001b0  70 65 20 74 6f 20 64 69  73 63 22 27 22 20 20 20  |pe to disc"'"   |
000001c0  20 44 65 72 65 6b 20 57  61 6c 6b 65 72 20 20 20  | Derek Walker   |
000001d0  50 22 0d 00 96 44 f1 27  22 3c 45 3e 20 4f 76 65  |P"...D.'"<E> Ove|
000001e0  72 20 57 72 69 74 69 6e  67 20 70 72 6f 74 65 63  |r Writing protec|
000001f0  74 69 6f 6e 20 66 6f 72  20 20 20 20 20 20 20 20  |tion for        |
00000200  41 44 46 53 20 52 6f 73  73 20 4c 69 74 74 6c 65  |ADFS Ross Little|
00000210  20 20 54 50 22 20 0d 00  a0 36 f1 27 22 3c 46 3e  |  TP" ...6.'"<F>|
00000220  20 44 69 73 74 6f 72 74  65 64 20 47 72 61 70 68  | Distorted Graph|
00000230  69 63 73 2e 22 27 22 20  20 20 20 4d 61 74 68 65  |ics."'"    Mathe|
00000240  77 20 46 6f 72 64 20 20  20 54 50 22 0d 00 aa 3b  |w Ford   TP"...;|
00000250  f1 27 22 3c 47 3e 20 46  6f 6e 74 73 20 66 6f 72  |.'"<G> Fonts for|
00000260  20 53 74 6f 70 20 50 72  65 73 73 20 36 34 22 27  | Stop Press 64"'|
00000270  22 20 20 20 20 44 65 72  65 6b 20 57 61 6c 6b 65  |"    Derek Walke|
00000280  72 20 20 20 20 50 22 0d  00 be 1b f1 27 22 3c 59  |r    P".....'"<Y|
00000290  3e 20 34 30 20 43 6f 6c  75 6d 6e 20 74 65 78 74  |> 40 Column text|
000002a0  3f 22 0d 00 c3 21 f1 27  22 3c 52 3e 20 20 52 65  |?"...!.'"<R>  Re|
000002b0  74 75 72 6e 20 74 6f 20  4d 61 69 6e 20 4d 65 6e  |turn to Main Men|
000002c0  75 22 20 0d 00 d2 1d f5  3a 61 25 3d a7 22 41 42  |u" .....:a%=."AB|
000002d0  43 44 45 46 47 59 52 22  2c be 29 3a fd 61 25 20  |CDEFGYR",.):.a% |
000002e0  0d 00 dc 32 e7 61 25 3d  31 8c 66 24 3d 22 64 74  |...2.a%=1.f$="dt|
000002f0  65 78 74 22 3a 66 6c 25  3d 31 3a 50 24 3d 22 64  |ext":fl%=1:P$="d|
00000300  69 73 61 73 73 22 3a f2  74 65 78 74 3a e5 8d 54  |isass":.text:..T|
00000310  68 40 0d 00 e6 11 e7 61  25 3d 32 8c d7 22 53 45  |h@.....a%=2.."SE|
00000320  52 56 22 0d 00 f0 13 e7  61 25 3d 33 8c d7 22 54  |RV".....a%=3.."T|
00000330  69 6d 54 62 73 22 0d 00  fa 11 e7 61 25 3d 34 8c  |imTbs".....a%=4.|
00000340  d7 22 74 74 6f 64 22 0d  01 04 32 e7 61 25 3d 35  |."ttod"...2.a%=5|
00000350  8c 66 24 3d 22 53 61 66  54 78 74 22 3a 66 6c 25  |.f$="SafTxt":fl%|
00000360  3d 31 3a 50 24 3d 22 73  61 66 73 63 22 3a f2 74  |=1:P$="safsc":.t|
00000370  65 78 74 3a e5 8d 54 68  40 0d 01 0e 33 e7 61 25  |ext:..Th@...3.a%|
00000380  3d 36 8c 66 24 3d 22 50  69 78 54 78 74 22 3a 66  |=6.f$="PixTxt":f|
00000390  6c 25 3d 31 3a 50 24 3d  22 4d 65 6e 75 22 3a f2  |l%=1:P$="Menu":.|
000003a0  74 65 78 74 3a e5 8d 54  68 40 20 20 0d 01 18 1e  |text:..Th@  ....|
000003b0  e7 61 25 3d 37 8c ff 22  44 49 52 20 46 4f 4e 54  |.a%=7.."DIR FONT|
000003c0  53 22 3a eb 36 3a 2a 43  41 54 0d 01 2c 19 e7 61  |S":.6:*CAT..,..a|
000003d0  25 3d 38 8c 44 25 3d b9  3a e5 8d 54 68 40 20 20  |%=8.D%=.:..Th@  |
000003e0  20 20 20 0d 01 31 1d e7  61 25 3d 39 8c ff 22 44  |   ..1..a%=9.."D|
000003f0  49 52 20 24 22 3a d7 22  4d 45 4e 55 22 20 20 20  |IR $":."MENU"   |
00000400  0d 01 36 05 e0 0d 01 40  0a dd f2 74 65 78 74 0d  |..6....@...text.|
00000410  01 4a 07 50 3d a3 0d 01  54 08 66 25 3d 30 0d 01  |.J.P=...T.f%=0..|
00000420  5e 2f ef 32 32 2c 36 3a  66 25 3d 66 25 2b 31 3a  |^/.22,6:f%=f%+1:|
00000430  d6 26 41 33 46 3a ff 22  4c 4f 41 44 20 22 2b 66  |.&A3F:."LOAD "+f|
00000440  24 2b c3 66 25 2b 22 20  32 35 30 30 22 0d 01 63  |$+.f%+" 2500"..c|
00000450  13 e7 20 44 25 20 6d 25  3d 36 8b 20 6d 25 3d 33  |.. D% m%=6. m%=3|
00000460  0d 01 68 27 ef 32 32 2c  6d 25 3a e7 ac 50 20 ef  |..h'.22,m%:..P .|
00000470  31 34 3a f1 27 27 22 53  48 49 46 54 20 54 4f 20  |14:.''"SHIFT TO |
00000480  53 43 52 4f 4c 4c 22 0d  01 72 19 e7 20 44 25 20  |SCROLL"..r.. D% |
00000490  f2 63 6f 6c 34 30 20 8b  20 d6 26 41 30 46 20 20  |.col40 . .&A0F  |
000004a0  0d 01 7c 39 e7 66 25 3d  66 6c 25 20 e7 44 20 f1  |..|9.f%=fl% .D .|
000004b0  22 50 52 45 53 53 20 53  50 41 43 45 20 54 4f 20  |"PRESS SPACE TO |
000004c0  43 4f 4e 54 49 4e 55 45  22 3a 47 3d a5 3a f2 70  |CONTINUE":G=.:.p|
000004d0  69 63 74 3a e5 8d 74 64  41 0d 01 86 11 e7 66 25  |ict:..tdA.....f%|
000004e0  3d 66 6c 25 20 e5 8d 74  64 41 0d 01 90 28 e7 ac  |=fl% ..tdA...(..|
000004f0  50 20 f1 27 27 22 50 52  45 53 53 20 53 50 41 43  |P .''"PRESS SPAC|
00000500  45 20 54 4f 20 43 4f 4e  54 49 4e 55 45 22 3a 47  |E TO CONTINUE":G|
00000510  3d a5 0d 01 9a 09 e5 8d  44 5e 41 0d 01 a4 4a ef  |=.......D^A...J.|
00000520  33 3a e7 ac 50 20 f1 27  27 22 3c 50 3e 20 54 4f  |3:..P .''"<P> TO|
00000530  20 50 52 49 4e 54 20 54  45 58 54 20 3c 4d 3e 20  | PRINT TEXT <M> |
00000540  46 4f 52 20 4d 45 4e 55  20 3c 52 3e 20 52 55 4e  |FOR MENU <R> RUN|
00000550  20 20 50 52 4f 47 52 41  4d 22 20 8b e5 8d 54 5e  |  PROGRAM" ...T^|
00000560  40 20 20 20 20 0d 01 ae  16 f5 3a 61 25 3d a7 22  |@    .....:a%=."|
00000570  50 4d 52 22 2c be 29 3a  fd 61 25 0d 01 b8 19 e7  |PMR",.):.a%.....|
00000580  61 25 3d 31 20 50 3d b9  3a ef 32 2c 31 35 3a e5  |a%=1 P=.:.2,15:.|
00000590  8d 44 54 41 0d 01 c2 0f  e7 61 25 3d 32 20 e5 8d  |.DTA.....a%=2 ..|
000005a0  54 68 40 0d 01 cc 0f e7  20 61 25 3d 33 20 d7 20  |Th@..... a%=3 . |
000005b0  50 24 0d 01 d6 06 fd a3  0d 01 e0 0a dd f2 70 69  |P$............pi|
000005c0  63 74 0d 01 ea 08 64 25  3d 30 0d 01 f4 21 64 25  |ct....d%=0...!d%|
000005d0  3d 64 25 2b 31 3a ef 32  32 2c 30 3a ff 22 4c 4f  |=d%+1:.22,0:."LO|
000005e0  41 44 20 50 49 43 22 2b  c3 64 25 0d 01 fe 2f e7  |AD PIC"+.d%.../.|
000005f0  ac 50 20 f1 22 50 52 45  53 53 20 53 50 41 43 45  |.P ."PRESS SPACE|
00000600  20 54 4f 20 43 4f 4e 54  49 4e 55 45 22 3a 47 3d  | TO CONTINUE":G=|
00000610  a5 20 8b 20 d6 20 26 39  30 41 0d 02 08 13 e7 64  |. . . &90A.....d|
00000620  25 3d 64 6c 25 20 ef 32  32 2c 33 3a e1 0d 02 12  |%=dl% .22,3:....|
00000630  09 e5 8d 64 74 41 0d 03  e8 0b dd f2 63 6f 6c 34  |...dtA......col4|
00000640  30 0d 03 f2 0a 61 64 64  72 3d 93 0d 03 fc 05 f5  |0....addr=......|
00000650  0d 04 06 0c 61 25 3d 3f  61 64 64 72 0d 04 10 0e  |....a%=?addr....|
00000660  e7 61 25 3d 26 30 44 20  8c f1 0d 04 1a 12 e7 61  |.a%=&0D .......a|
00000670  25 3d 26 31 41 20 61 25  3d 26 32 30 0d 04 24 15  |%=&1A a%=&20..$.|
00000680  e7 61 25 3d 26 32 30 20  80 20 b1 3e 32 38 20 8c  |.a%=&20 . .>28 .|
00000690  f1 0d 04 2e 33 e7 20 61  25 3d 26 32 30 20 80 20  |....3. a%=&20 . |
000006a0  b1 3d 30 20 8c f5 3a 61  64 64 72 3d 61 64 64 72  |.=0 ..:addr=addr|
000006b0  2b 31 3a 61 25 3d 3f 61  64 64 72 3a fd 61 25 3c  |+1:a%=?addr:.a%<|
000006c0  3e 26 32 30 0d 04 38 09  f1 bd 61 25 3b 0d 04 42  |>&20..8...a%;..B|
000006d0  0f 61 64 64 72 3d 61 64  64 72 2b 31 0d 04 4c 09  |.addr=addr+1..L.|
000006e0  fd 61 25 3d 30 0d 04 56  05 e1 0d ff              |.a%=0..V....|
000006ec
P/PMenu.m0
P/PMenu.m1
P/PMenu.m2
P/PMenu.m4
P/PMenu.m5

© Dominic Ford 2021–2024.

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