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

P/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_19.ADF
Filename: P/Menu
Read OK: ✔
File size: 0213 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10 REM     Pixel Mapper Menu                          by M. Ford
   20 MODE 6
   30 VDU 23,1,0;0;0;0;
   40 PRINT TAB(8,2)"P i x e l   M a p p e r"
   50 PRINT'''TAB(17)"Menu:"
   60 DIM Op$(3)
   70 Op$(1)=" (1) Create shape file "
   80 Op$(2)=" (2) Run mapper "
   90 Op$(3)=" (3) Quit program "
  100 PRINT':FOR Op=1 TO 3:PRINT'TAB(8) Op$(Op):NEXT
  110 PRINT'''TAB(13)"Please select"
  120 REPEAT
  130 Op=VAL(GET$)
  140 UNTIL Op>0 AND Op<4
  150 PRINT TAB(13,VPOS-1) SPC(13)
  160 COLOUR 0:COLOUR 129
  170 PRINT TAB(8,VPOS-11+2*Op) Op$(Op)
  180 COLOUR 1:COLOUR 128
  190 ON Op GOTO 200,210,220
  200 CHAIN"Shaper"
  210 CHAIN"PixMap"
  220 PRINT TAB(13,VPOS+3) SPC(13):VDU 23,1,1;0;0;0;:END


@ �     Pixel Mapper Menu                          by M. Ford
 � 6
 � 23,1,0;0;0;0;
(% � �8,2)"P i x e l   M a p p e r"
2 �'''�17)"Menu:"
<
 � Op$(3)
F% Op$(1)=" (1) Create shape file "
P Op$(2)=" (2) Run mapper "
Z  Op$(3)=" (3) Quit program "
d" �':� Op=1 � 3:�'�8) Op$(Op):�
n �'''�13)"Please select"
x �
� Op=�(�)
� � Op>0 � Op<4
� � �13,�-1) �(13)
� � 0:� 129
� � �8,�-11+2*Op) Op$(Op)
� � 1:� 128
� � Op � �dH@,�dR@,�d\@
� �"Shaper"
� �"PixMap"
�' � �13,�+3) �(13):� 23,1,1;0;0;0;:�
�
00000000  0d 00 0a 40 20 f4 20 20  20 20 20 50 69 78 65 6c  |...@ .     Pixel|
00000010  20 4d 61 70 70 65 72 20  4d 65 6e 75 20 20 20 20  | Mapper Menu    |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000030  20 20 20 20 20 20 62 79  20 4d 2e 20 46 6f 72 64  |      by M. Ford|
00000040  0d 00 14 08 20 eb 20 36  0d 00 1e 14 20 ef 20 32  |.... . 6.... . 2|
00000050  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 00 28 25  |3,1,0;0;0;0;..(%|
00000060  20 f1 20 8a 38 2c 32 29  22 50 20 69 20 78 20 65  | . .8,2)"P i x e|
00000070  20 6c 20 20 20 4d 20 61  20 70 20 70 20 65 20 72  | l   M a p p e r|
00000080  22 0d 00 32 14 20 f1 27  27 27 8a 31 37 29 22 4d  |"..2. .'''.17)"M|
00000090  65 6e 75 3a 22 0d 00 3c  0d 20 de 20 4f 70 24 28  |enu:"..<. . Op$(|
000000a0  33 29 0d 00 46 25 20 4f  70 24 28 31 29 3d 22 20  |3)..F% Op$(1)=" |
000000b0  28 31 29 20 43 72 65 61  74 65 20 73 68 61 70 65  |(1) Create shape|
000000c0  20 66 69 6c 65 20 22 0d  00 50 1e 20 4f 70 24 28  | file "..P. Op$(|
000000d0  32 29 3d 22 20 28 32 29  20 52 75 6e 20 6d 61 70  |2)=" (2) Run map|
000000e0  70 65 72 20 22 0d 00 5a  20 20 4f 70 24 28 33 29  |per "..Z  Op$(3)|
000000f0  3d 22 20 28 33 29 20 51  75 69 74 20 70 72 6f 67  |=" (3) Quit prog|
00000100  72 61 6d 20 22 0d 00 64  22 20 f1 27 3a e3 20 4f  |ram "..d" .':. O|
00000110  70 3d 31 20 b8 20 33 3a  f1 27 8a 38 29 20 4f 70  |p=1 . 3:.'.8) Op|
00000120  24 28 4f 70 29 3a ed 0d  00 6e 1c 20 f1 27 27 27  |$(Op):...n. .'''|
00000130  8a 31 33 29 22 50 6c 65  61 73 65 20 73 65 6c 65  |.13)"Please sele|
00000140  63 74 22 0d 00 78 06 20  f5 0d 00 82 0c 20 4f 70  |ct"..x. ..... Op|
00000150  3d bb 28 be 29 0d 00 8c  12 20 fd 20 4f 70 3e 30  |=.(.).... . Op>0|
00000160  20 80 20 4f 70 3c 34 0d  00 96 15 20 f1 20 8a 31  | . Op<4.... . .1|
00000170  33 2c bc 2d 31 29 20 89  28 31 33 29 0d 00 a0 0e  |3,.-1) .(13)....|
00000180  20 fb 20 30 3a fb 20 31  32 39 0d 00 aa 1c 20 f1  | . 0:. 129.... .|
00000190  20 8a 38 2c bc 2d 31 31  2b 32 2a 4f 70 29 20 4f  | .8,.-11+2*Op) O|
000001a0  70 24 28 4f 70 29 0d 00  b4 0e 20 fb 20 31 3a fb  |p$(Op).... . 1:.|
000001b0  20 31 32 38 0d 00 be 1a  20 ee 20 4f 70 20 e5 20  | 128.... . Op . |
000001c0  8d 64 48 40 2c 8d 64 52  40 2c 8d 64 5c 40 0d 00  |.dH@,.dR@,.d\@..|
000001d0  c8 0e 20 d7 22 53 68 61  70 65 72 22 0d 00 d2 0e  |.. ."Shaper"....|
000001e0  20 d7 22 50 69 78 4d 61  70 22 0d 00 dc 27 20 f1  | ."PixMap"...' .|
000001f0  20 8a 31 33 2c bc 2b 33  29 20 89 28 31 33 29 3a  | .13,.+3) .(13):|
00000200  ef 20 32 33 2c 31 2c 31  3b 30 3b 30 3b 30 3b 3a  |. 23,1,1;0;0;0;:|
00000210  e0 0d ff                                          |...|
00000213
P/Menu.m0
P/Menu.m1
P/Menu.m2
P/Menu.m4
P/Menu.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .