Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_22.ADF » P/H/!Menu

P/H/!Menu

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_22.ADF
Filename: P/H/!Menu
Read OK:
File size: 0288 bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10REM HeadFirst Menu System
   20 
   30no_of_items=6
   40menu$="Teletext Disc"
   50 
   60MODE7
   70VDU23;8202;0;0;0;
   80menu$=menu$+" Menu"
   90PRINTTAB(20-LEN(menu$)/2,2);menu$
  100PRINTTAB(20-LEN(menu$)/2,3);STRING$(LEN(menu$),"=")
  110PRINT''
  120FOR I=1 TO no_of_items
  130PRINT ;I;") ";
  140READ dummy$
  150PRINT dummy$
  160NEXT
  170PRINT''"Press a key from 1 to ";no_of_items
  180REPEAT
  190A=GET
  200UNTIL A>48 AND A<49+no_of_items
  210A=A-48
  220FOR I=1 TO A
  230READ dummy$
  240NEXT
  250CHAIN dummy$
  260END
  270 
  290DATA Load MODE 7 Screen Displayer
  300DATA Load ElkFax
  310DATA Load MODE 7 Emulator (needs MRB)
  320DATA Load KeySaver
  330DATA Load Screen Converter
  340DATA View Instructions
  360 
  370DATA TText
  380DATA ElkFax
  390DATA Mode764
  400DATA KeySave
  410DATA Convert
  420DATA Inst

� HeadFirst Menu System
 
no_of_items=6
(menu$="Teletext Disc"
2 
<�7
F�23;8202;0;0;0;
Pmenu$=menu$+" Menu"
Z�20-�(menu$)/2,2);menu$
d%�20-�(menu$)/2,3);ĩ(menu$),"=")
n�''
x� I=1 � no_of_items
�� ;I;") ";
�� dummy$
�� dummy$
��
�+�''"Press a key from 1 to ";no_of_items
��
�A=�
�� A>48 � A<49+no_of_items
�
A=A-48
�
� I=1 � A
�� dummy$
��
�� dummy$
�
 
""� Load MODE 7 Screen Displayer
,� Load ElkFax
6&� Load MODE 7 Emulator (needs MRB)
@� Load KeySaver
J� Load Screen Converter
T� View Instructions
h 
r� TText
|� ElkFax
�
� Mode764
�
� KeySave
�
� Convert
�
� Inst
�
00000000  0d 00 0a 1b f4 20 48 65  61 64 46 69 72 73 74 20  |..... HeadFirst |
00000010  4d 65 6e 75 20 53 79 73  74 65 6d 0d 00 14 05 20  |Menu System.... |
00000020  0d 00 1e 11 6e 6f 5f 6f  66 5f 69 74 65 6d 73 3d  |....no_of_items=|
00000030  36 0d 00 28 19 6d 65 6e  75 24 3d 22 54 65 6c 65  |6..(.menu$="Tele|
00000040  74 65 78 74 20 44 69 73  63 22 0d 00 32 05 20 0d  |text Disc"..2. .|
00000050  00 3c 06 eb 37 0d 00 46  13 ef 32 33 3b 38 32 30  |.<..7..F..23;820|
00000060  32 3b 30 3b 30 3b 30 3b  0d 00 50 17 6d 65 6e 75  |2;0;0;0;..P.menu|
00000070  24 3d 6d 65 6e 75 24 2b  22 20 4d 65 6e 75 22 0d  |$=menu$+" Menu".|
00000080  00 5a 1c f1 8a 32 30 2d  a9 28 6d 65 6e 75 24 29  |.Z...20-.(menu$)|
00000090  2f 32 2c 32 29 3b 6d 65  6e 75 24 0d 00 64 25 f1  |/2,2);menu$..d%.|
000000a0  8a 32 30 2d a9 28 6d 65  6e 75 24 29 2f 32 2c 33  |.20-.(menu$)/2,3|
000000b0  29 3b c4 a9 28 6d 65 6e  75 24 29 2c 22 3d 22 29  |);..(menu$),"=")|
000000c0  0d 00 6e 07 f1 27 27 0d  00 78 17 e3 20 49 3d 31  |..n..''..x.. I=1|
000000d0  20 b8 20 6e 6f 5f 6f 66  5f 69 74 65 6d 73 0d 00  | . no_of_items..|
000000e0  82 0e f1 20 3b 49 3b 22  29 20 22 3b 0d 00 8c 0c  |... ;I;") ";....|
000000f0  f3 20 64 75 6d 6d 79 24  0d 00 96 0c f1 20 64 75  |. dummy$..... du|
00000100  6d 6d 79 24 0d 00 a0 05  ed 0d 00 aa 2b f1 27 27  |mmy$........+.''|
00000110  22 50 72 65 73 73 20 61  20 6b 65 79 20 66 72 6f  |"Press a key fro|
00000120  6d 20 31 20 74 6f 20 22  3b 6e 6f 5f 6f 66 5f 69  |m 1 to ";no_of_i|
00000130  74 65 6d 73 0d 00 b4 05  f5 0d 00 be 07 41 3d a5  |tems.........A=.|
00000140  0d 00 c8 1d fd 20 41 3e  34 38 20 80 20 41 3c 34  |..... A>48 . A<4|
00000150  39 2b 6e 6f 5f 6f 66 5f  69 74 65 6d 73 0d 00 d2  |9+no_of_items...|
00000160  0a 41 3d 41 2d 34 38 0d  00 dc 0d e3 20 49 3d 31  |.A=A-48..... I=1|
00000170  20 b8 20 41 0d 00 e6 0c  f3 20 64 75 6d 6d 79 24  | . A..... dummy$|
00000180  0d 00 f0 05 ed 0d 00 fa  0c d7 20 64 75 6d 6d 79  |.......... dummy|
00000190  24 0d 01 04 05 e0 0d 01  0e 05 20 0d 01 22 22 dc  |$......... .."".|
000001a0  20 4c 6f 61 64 20 4d 4f  44 45 20 37 20 53 63 72  | Load MODE 7 Scr|
000001b0  65 65 6e 20 44 69 73 70  6c 61 79 65 72 0d 01 2c  |een Displayer..,|
000001c0  11 dc 20 4c 6f 61 64 20  45 6c 6b 46 61 78 0d 01  |.. Load ElkFax..|
000001d0  36 26 dc 20 4c 6f 61 64  20 4d 4f 44 45 20 37 20  |6&. Load MODE 7 |
000001e0  45 6d 75 6c 61 74 6f 72  20 28 6e 65 65 64 73 20  |Emulator (needs |
000001f0  4d 52 42 29 0d 01 40 13  dc 20 4c 6f 61 64 20 4b  |MRB)..@.. Load K|
00000200  65 79 53 61 76 65 72 0d  01 4a 1b dc 20 4c 6f 61  |eySaver..J.. Loa|
00000210  64 20 53 63 72 65 65 6e  20 43 6f 6e 76 65 72 74  |d Screen Convert|
00000220  65 72 0d 01 54 17 dc 20  56 69 65 77 20 49 6e 73  |er..T.. View Ins|
00000230  74 72 75 63 74 69 6f 6e  73 0d 01 68 05 20 0d 01  |tructions..h. ..|
00000240  72 0b dc 20 54 54 65 78  74 0d 01 7c 0c dc 20 45  |r.. TText..|.. E|
00000250  6c 6b 46 61 78 0d 01 86  0d dc 20 4d 6f 64 65 37  |lkFax..... Mode7|
00000260  36 34 0d 01 90 0d dc 20  4b 65 79 53 61 76 65 0d  |64..... KeySave.|
00000270  01 9a 0d dc 20 43 6f 6e  76 65 72 74 0d 01 a4 0a  |.... Convert....|
00000280  dc 20 49 6e 73 74 0d ff                           |. Inst..|
00000288
P/H/!Menu.m0
P/H/!Menu.m1
P/H/!Menu.m2
P/H/!Menu.m4
P/H/!Menu.m5