Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_20.ADF » G/ammend
G/ammend
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_20.ADF |
| Filename: | G/ammend |
| Read OK: | ✔ |
| File size: | 035E bytes |
| Load address: | 0000 |
| Exec address: | FFFFFFFF |
File contents
184IF letter=64 AND level=10 THEN PROCwin:over=1
186IF letter=64 AND level<10 THEN PROCnext
610buggx=0:buggy=0:car=2
625IF game=1 letter=65 ELSE letter=90
850UNTIL lives<0 OR letter=91 OR letter=64
890IF char<>letter THEN PROClose_life:ENDPROC
900IF game=1 letter=letter+1
905IF game=2 letter=letter-1
910PROCsound(1):ENDPROC
1470PROCcentre("Please select next Game Version...",22)
1490REPEAT reply=GET:UNTIL reply>48 AND reply<53
1495IF reply<51 game=1 ELSE game=2
1620PROCcentre("Please select next Game Version...",22)
1690REPEAT reply=GET:UNTIL reply>48 AND reply<53
1695IF reply<51 game=1 ELSE game=2
2090PROCcentre("Choose version to continue (1-4)",27)
2150UNTIL reply>48 AND reply<53
2155IF reply<51 game=1 ELSE game=2
2360IF reply=1 OR reply=3 speed=1 ELSE speed=11
2420END
RENUMBER
00000000 0c 1c 00 00 00 00 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d |................|
00000010 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d |................|
*
00000030 0d 0d 0d 0d 0d 0d 0d 31 38 34 49 46 20 6c 65 74 |.......184IF let|
00000040 74 65 72 3d 36 34 20 41 4e 44 20 6c 65 76 65 6c |ter=64 AND level|
00000050 3d 31 30 20 54 48 45 4e 20 50 52 4f 43 77 69 6e |=10 THEN PROCwin|
00000060 3a 6f 76 65 72 3d 31 0d 31 38 36 49 46 20 6c 65 |:over=1.186IF le|
00000070 74 74 65 72 3d 36 34 20 41 4e 44 20 6c 65 76 65 |tter=64 AND leve|
00000080 6c 3c 31 30 20 54 48 45 4e 20 50 52 4f 43 6e 65 |l<10 THEN PROCne|
00000090 78 74 0d 36 31 30 62 75 67 67 78 3d 30 3a 62 75 |xt.610buggx=0:bu|
000000a0 67 67 79 3d 30 3a 63 61 72 3d 32 0d 36 32 35 49 |ggy=0:car=2.625I|
000000b0 46 20 67 61 6d 65 3d 31 20 6c 65 74 74 65 72 3d |F game=1 letter=|
000000c0 36 35 20 45 4c 53 45 20 6c 65 74 74 65 72 3d 39 |65 ELSE letter=9|
000000d0 30 0d 38 35 30 55 4e 54 49 4c 20 6c 69 76 65 73 |0.850UNTIL lives|
000000e0 3c 30 20 4f 52 20 6c 65 74 74 65 72 3d 39 31 20 |<0 OR letter=91 |
000000f0 4f 52 20 6c 65 74 74 65 72 3d 36 34 0d 38 39 30 |OR letter=64.890|
00000100 49 46 20 63 68 61 72 3c 3e 6c 65 74 74 65 72 20 |IF char<>letter |
00000110 54 48 45 4e 20 50 52 4f 43 6c 6f 73 65 5f 6c 69 |THEN PROClose_li|
00000120 66 65 3a 45 4e 44 50 52 4f 43 0d 39 30 30 49 46 |fe:ENDPROC.900IF|
00000130 20 67 61 6d 65 3d 31 20 6c 65 74 74 65 72 3d 6c | game=1 letter=l|
00000140 65 74 74 65 72 2b 31 0d 39 30 35 49 46 20 67 61 |etter+1.905IF ga|
00000150 6d 65 3d 32 20 6c 65 74 74 65 72 3d 6c 65 74 74 |me=2 letter=lett|
00000160 65 72 2d 31 0d 39 31 30 50 52 4f 43 73 6f 75 6e |er-1.910PROCsoun|
00000170 64 28 31 29 3a 45 4e 44 50 52 4f 43 0d 31 34 37 |d(1):ENDPROC.147|
00000180 30 50 52 4f 43 63 65 6e 74 72 65 28 22 50 6c 65 |0PROCcentre("Ple|
00000190 61 73 65 20 73 65 6c 65 63 74 20 6e 65 78 74 20 |ase select next |
000001a0 47 61 6d 65 20 56 65 72 73 69 6f 6e 2e 2e 2e 22 |Game Version..."|
000001b0 2c 32 32 29 0d 31 34 39 30 52 45 50 45 41 54 20 |,22).1490REPEAT |
000001c0 72 65 70 6c 79 3d 47 45 54 3a 55 4e 54 49 4c 20 |reply=GET:UNTIL |
000001d0 72 65 70 6c 79 3e 34 38 20 41 4e 44 20 72 65 70 |reply>48 AND rep|
000001e0 6c 79 3c 35 33 0d 31 34 39 35 49 46 20 72 65 70 |ly<53.1495IF rep|
000001f0 6c 79 3c 35 31 20 67 61 6d 65 3d 31 20 45 4c 53 |ly<51 game=1 ELS|
00000200 45 20 67 61 6d 65 3d 32 0d 31 36 32 30 50 52 4f |E game=2.1620PRO|
00000210 43 63 65 6e 74 72 65 28 22 50 6c 65 61 73 65 20 |Ccentre("Please |
00000220 73 65 6c 65 63 74 20 6e 65 78 74 20 47 61 6d 65 |select next Game|
00000230 20 56 65 72 73 69 6f 6e 2e 2e 2e 22 2c 32 32 29 | Version...",22)|
00000240 0d 31 36 39 30 52 45 50 45 41 54 20 72 65 70 6c |.1690REPEAT repl|
00000250 79 3d 47 45 54 3a 55 4e 54 49 4c 20 72 65 70 6c |y=GET:UNTIL repl|
00000260 79 3e 34 38 20 41 4e 44 20 72 65 70 6c 79 3c 35 |y>48 AND reply<5|
00000270 33 0d 31 36 39 35 49 46 20 72 65 70 6c 79 3c 35 |3.1695IF reply<5|
00000280 31 20 67 61 6d 65 3d 31 20 45 4c 53 45 20 67 61 |1 game=1 ELSE ga|
00000290 6d 65 3d 32 0d 32 30 39 30 50 52 4f 43 63 65 6e |me=2.2090PROCcen|
000002a0 74 72 65 28 22 43 68 6f 6f 73 65 20 76 65 72 73 |tre("Choose vers|
000002b0 69 6f 6e 20 74 6f 20 63 6f 6e 74 69 6e 75 65 20 |ion to continue |
000002c0 28 31 2d 34 29 22 2c 32 37 29 0d 32 31 35 30 55 |(1-4)",27).2150U|
000002d0 4e 54 49 4c 20 72 65 70 6c 79 3e 34 38 20 41 4e |NTIL reply>48 AN|
000002e0 44 20 72 65 70 6c 79 3c 35 33 0d 32 31 35 35 49 |D reply<53.2155I|
000002f0 46 20 72 65 70 6c 79 3c 35 31 20 67 61 6d 65 3d |F reply<51 game=|
00000300 31 20 45 4c 53 45 20 67 61 6d 65 3d 32 0d 32 33 |1 ELSE game=2.23|
00000310 36 30 49 46 20 72 65 70 6c 79 3d 31 20 4f 52 20 |60IF reply=1 OR |
00000320 72 65 70 6c 79 3d 33 20 73 70 65 65 64 3d 31 20 |reply=3 speed=1 |
00000330 45 4c 53 45 20 73 70 65 65 64 3d 31 31 0d 32 34 |ELSE speed=11.24|
00000340 32 30 45 4e 44 0d 52 45 4e 55 4d 42 45 52 0d 0d |20END.RENUMBER..|
00000350 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 0d 00 |..............|
0000035e 
G/ammend.m0
G/ammend.m1
G/ammend.m2
G/ammend.m4
G/ammend.m5
.