Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/A/AMENU
P/A/AMENU
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_21B.ADF |
| Filename: | P/A/AMENU |
| Read OK: | ✔ |
| File size: | 02A7 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
File contents
10REM ANIMATION MENU
20MODE4:VDU19,0,4;0;23;8202;0;0;0;
30D%=FALSE:M%=FALSE
40MOVE12,12:DRAW1267,12:DRAW1267,1011:DRAW12,1011:DRAW12,12
50PROCdb("ANIMATION MENU",13,3)
60PRINTTAB(13,5)"~~~~~~~~~~~~~~"
70VDU28,9,24,30,7,12
80PRINT"PLEASE SELECT -"
90PRINT'"<1> Trig Program"
100PRINT'"<2> Dancing Fern"
110PRINT'"<3> Surreal Scape"
120PRINT'"<4> Pendulums"
130PRINT'"<5> Sierpinski Gasket"
140PRINT'"<Y> For Quick Demo"
150*FX21,0
160REPEAT:a%=INSTR("12345Y",GET$):UNTILa%
170IFa%=6 D%=TRUE:GOTO70
180a$="DEM"+STR$a%
185MODE6
190CHAINa$
200END
210DEFPROCdb(A$,X%,Y%)
220VDU31,X%,Y%
230A%=10:X%=&56:Y%=0
240FORN%=1TO LENA$
250?&56=ASC(MID$(A$,N%))
260CALL&FFF1
270VDU23,255,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,255,8,10
280VDU23,255,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,255,11
290NEXT
300ENDPROC
� ANIMATION MENU
�4:�19,0,4;0;23;8202;0;0;0;
D%=�:M%=�
(.�12,12:�1267,12:�1267,1011:�12,1011:�12,12
2 �db("ANIMATION MENU",13,3)
<�13,5)"~~~~~~~~~~~~~~"
F�28,9,24,30,7,12
P�"PLEASE SELECT -"
Z�'"<1> Trig Program"
d�'"<2> Dancing Fern"
n�'"<3> Surreal Scape"
x�'"<4> Pendulums"
� �'"<5> Sierpinski Gasket"
��'"<Y> For Quick Demo"
� *FX21,0
��:a%=�"12345Y",�):�a%
��a%=6 D%=�:�DF@
�a$="DEM"+�a%
��6
��a$
��
���db(A$,X%,Y%)
�
�31,X%,Y%
�A%=10:X%=&56:Y%=0
��N%=1� �A$
�?&56=�(�A$,N%))
�&FFF1
<�23,255,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,255,8,10
:�23,255,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,255,11
"�
,�
� 00000000 0d 00 0a 14 f4 20 41 4e 49 4d 41 54 49 4f 4e 20 |..... ANIMATION |
00000010 4d 45 4e 55 0d 00 14 1f eb 34 3a ef 31 39 2c 30 |MENU.....4:.19,0|
00000020 2c 34 3b 30 3b 32 33 3b 38 32 30 32 3b 30 3b 30 |,4;0;23;8202;0;0|
00000030 3b 30 3b 0d 00 1e 0d 44 25 3d a3 3a 4d 25 3d a3 |;0;....D%=.:M%=.|
00000040 0d 00 28 2e ec 31 32 2c 31 32 3a df 31 32 36 37 |..(..12,12:.1267|
00000050 2c 31 32 3a df 31 32 36 37 2c 31 30 31 31 3a df |,12:.1267,1011:.|
00000060 31 32 2c 31 30 31 31 3a df 31 32 2c 31 32 0d 00 |12,1011:.12,12..|
00000070 32 1e f2 64 62 28 22 41 4e 49 4d 41 54 49 4f 4e |2..db("ANIMATION|
00000080 20 4d 45 4e 55 22 2c 31 33 2c 33 29 0d 00 3c 1b | MENU",13,3)..<.|
00000090 f1 8a 31 33 2c 35 29 22 7e 7e 7e 7e 7e 7e 7e 7e |..13,5)"~~~~~~~~|
000000a0 7e 7e 7e 7e 7e 7e 22 0d 00 46 14 ef 32 38 2c 39 |~~~~~~"..F..28,9|
000000b0 2c 32 34 2c 33 30 2c 37 2c 31 32 0d 00 50 16 f1 |,24,30,7,12..P..|
000000c0 22 50 4c 45 41 53 45 20 53 45 4c 45 43 54 20 2d |"PLEASE SELECT -|
000000d0 22 0d 00 5a 19 f1 27 22 3c 31 3e 20 20 54 72 69 |"..Z..'"<1> Tri|
000000e0 67 20 50 72 6f 67 72 61 6d 22 0d 00 64 19 f1 27 |g Program"..d..'|
000000f0 22 3c 32 3e 20 20 44 61 6e 63 69 6e 67 20 46 65 |"<2> Dancing Fe|
00000100 72 6e 22 0d 00 6e 1a f1 27 22 3c 33 3e 20 20 53 |rn"..n..'"<3> S|
00000110 75 72 72 65 61 6c 20 53 63 61 70 65 22 0d 00 78 |urreal Scape"..x|
00000120 16 f1 27 22 3c 34 3e 20 20 50 65 6e 64 75 6c 75 |..'"<4> Pendulu|
00000130 6d 73 22 0d 00 82 1e f1 27 22 3c 35 3e 20 20 53 |ms".....'"<5> S|
00000140 69 65 72 70 69 6e 73 6b 69 20 47 61 73 6b 65 74 |ierpinski Gasket|
00000150 22 0d 00 8c 1b f1 27 22 3c 59 3e 20 20 46 6f 72 |".....'"<Y> For|
00000160 20 51 75 69 63 6b 20 44 65 6d 6f 22 0d 00 96 0b | Quick Demo"....|
00000170 2a 46 58 32 31 2c 30 0d 00 a0 19 f5 3a 61 25 3d |*FX21,0.....:a%=|
00000180 a7 22 31 32 33 34 35 59 22 2c be 29 3a fd 61 25 |."12345Y",.):.a%|
00000190 0d 00 aa 14 e7 61 25 3d 36 20 44 25 3d b9 3a e5 |.....a%=6 D%=.:.|
000001a0 8d 44 46 40 0d 00 b4 10 61 24 3d 22 44 45 4d 22 |.DF@....a$="DEM"|
000001b0 2b c3 61 25 0d 00 b9 06 eb 36 0d 00 be 07 d7 61 |+.a%.....6.....a|
000001c0 24 0d 00 c8 05 e0 0d 00 d2 12 dd f2 64 62 28 41 |$...........db(A|
000001d0 24 2c 58 25 2c 59 25 29 0d 00 dc 0d ef 33 31 2c |$,X%,Y%).....31,|
000001e0 58 25 2c 59 25 0d 00 e6 15 41 25 3d 31 30 3a 58 |X%,Y%....A%=10:X|
000001f0 25 3d 26 35 36 3a 59 25 3d 30 0d 00 f0 0e e3 4e |%=&56:Y%=0.....N|
00000200 25 3d 31 b8 20 a9 41 24 0d 00 fa 13 3f 26 35 36 |%=1. .A$....?&56|
00000210 3d 97 28 c1 41 24 2c 4e 25 29 29 0d 01 04 0a d6 |=.(.A$,N%)).....|
00000220 26 46 46 46 31 0d 01 0e 3c ef 32 33 2c 32 35 35 |&FFF1...<.23,255|
00000230 2c 3f 26 35 37 2c 3f 26 35 37 2c 3f 26 35 38 2c |,?&57,?&57,?&58,|
00000240 3f 26 35 38 2c 3f 26 35 39 2c 3f 26 35 39 2c 3f |?&58,?&59,?&59,?|
00000250 26 35 41 2c 3f 26 35 41 2c 32 35 35 2c 38 2c 31 |&5A,?&5A,255,8,1|
00000260 30 0d 01 18 3a ef 32 33 2c 32 35 35 2c 3f 26 35 |0...:.23,255,?&5|
00000270 42 2c 3f 26 35 42 2c 3f 26 35 43 2c 3f 26 35 43 |B,?&5B,?&5C,?&5C|
00000280 2c 3f 26 35 44 2c 3f 26 35 44 2c 3f 26 35 45 2c |,?&5D,?&5D,?&5E,|
00000290 3f 26 35 45 2c 32 35 35 2c 31 31 0d 01 22 05 ed |?&5E,255,11.."..|
000002a0 0d 01 2c 05 e1 0d ff |..,....|
000002a7 
P/A/AMENU.m0
P/A/AMENU.m1
P/A/AMENU.m2
P/A/AMENU.m4
P/A/AMENU.m5
.