Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » Guardia

Guardia

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_15.ADF
Filename: Guardia
Read OK:
File size: 020A bytes
Load address: FFFFFB00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10MODE7
   20PRINT''"Guardian Cheat"
   30PRINT  "=============="
   40INPUT"Lives (0-255) : "lives
   50INPUT"Smart bombs (0-255) : "smarts
   60 OSCLI"KEY1 LOAD""GUARD#1""|M170VDU28,13,24,30,21:*L.GUARD#2|MRUN|M?&238D="+STR$lives+"|M?&2391="+STR$smarts+"|M"
   70INPUT"Infinite lives (Y/N) : " inf$
   80INPUT"Infinite smart bombs (Y/N) : "sma$
   90*TAPE
  100*KEY2 !&1521=&8A20EAEA|M
  110*KEY3 !&26E1=&C30EAEA|M
  120*KEY4 CALL&2300|F|M
  130*FX138,0,129
  140IF inf$="Y" THEN *FX138,0,130
  150IF sma$="Y" THEN *FX138,0,131
  160*FX138,0,132
  170PRINT''"Forward tape to 'GUARD#1'"
  180VDU21
  190END

�7
�''"Guardian Cheat"
�  "=============="
(�"Lives (0-255) : "lives
2#�"Smart bombs (0-255) : "smarts
<k �"KEY1 LOAD""GUARD#1""|M170VDU28,13,24,30,21:*L.GUARD#2|MRUN|M?&238D="+�lives+"|M?&2391="+�smarts+"|M"
F#�"Infinite lives (Y/N) : " inf$
P(�"Infinite smart bombs (Y/N) : "sma$
Z	*TAPE
d*KEY2 !&1521=&8A20EAEA|M
n*KEY3 !&26E1=&C30EAEA|M
x*KEY4 CALL&2300|F|M
�*FX138,0,129
�� inf$="Y" � *FX138,0,130
�� sma$="Y" � *FX138,0,131
�*FX138,0,132
�"�''"Forward tape to 'GUARD#1'"
��21
��
�
00000000  0d 00 0a 06 eb 37 0d 00  14 17 f1 27 27 22 47 75  |.....7.....''"Gu|
00000010  61 72 64 69 61 6e 20 43  68 65 61 74 22 0d 00 1e  |ardian Cheat"...|
00000020  17 f1 20 20 22 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..  "===========|
00000030  3d 3d 3d 22 0d 00 28 1c  e8 22 4c 69 76 65 73 20  |==="..(.."Lives |
00000040  28 30 2d 32 35 35 29 20  3a 20 22 6c 69 76 65 73  |(0-255) : "lives|
00000050  0d 00 32 23 e8 22 53 6d  61 72 74 20 62 6f 6d 62  |..2#."Smart bomb|
00000060  73 20 28 30 2d 32 35 35  29 20 3a 20 22 73 6d 61  |s (0-255) : "sma|
00000070  72 74 73 0d 00 3c 6b 20  ff 22 4b 45 59 31 20 4c  |rts..<k ."KEY1 L|
00000080  4f 41 44 22 22 47 55 41  52 44 23 31 22 22 7c 4d  |OAD""GUARD#1""|M|
00000090  31 37 30 56 44 55 32 38  2c 31 33 2c 32 34 2c 33  |170VDU28,13,24,3|
000000a0  30 2c 32 31 3a 2a 4c 2e  47 55 41 52 44 23 32 7c  |0,21:*L.GUARD#2||
000000b0  4d 52 55 4e 7c 4d 3f 26  32 33 38 44 3d 22 2b c3  |MRUN|M?&238D="+.|
000000c0  6c 69 76 65 73 2b 22 7c  4d 3f 26 32 33 39 31 3d  |lives+"|M?&2391=|
000000d0  22 2b c3 73 6d 61 72 74  73 2b 22 7c 4d 22 0d 00  |"+.smarts+"|M"..|
000000e0  46 23 e8 22 49 6e 66 69  6e 69 74 65 20 6c 69 76  |F#."Infinite liv|
000000f0  65 73 20 28 59 2f 4e 29  20 3a 20 22 20 69 6e 66  |es (Y/N) : " inf|
00000100  24 0d 00 50 28 e8 22 49  6e 66 69 6e 69 74 65 20  |$..P(."Infinite |
00000110  73 6d 61 72 74 20 62 6f  6d 62 73 20 28 59 2f 4e  |smart bombs (Y/N|
00000120  29 20 3a 20 22 73 6d 61  24 0d 00 5a 09 2a 54 41  |) : "sma$..Z.*TA|
00000130  50 45 0d 00 64 1c 2a 4b  45 59 32 20 21 26 31 35  |PE..d.*KEY2 !&15|
00000140  32 31 3d 26 38 41 32 30  45 41 45 41 7c 4d 0d 00  |21=&8A20EAEA|M..|
00000150  6e 1b 2a 4b 45 59 33 20  21 26 32 36 45 31 3d 26  |n.*KEY3 !&26E1=&|
00000160  43 33 30 45 41 45 41 7c  4d 0d 00 78 17 2a 4b 45  |C30EAEA|M..x.*KE|
00000170  59 34 20 43 41 4c 4c 26  32 33 30 30 7c 46 7c 4d  |Y4 CALL&2300|F|M|
00000180  0d 00 82 10 2a 46 58 31  33 38 2c 30 2c 31 32 39  |....*FX138,0,129|
00000190  0d 00 8c 1d e7 20 69 6e  66 24 3d 22 59 22 20 8c  |..... inf$="Y" .|
000001a0  20 2a 46 58 31 33 38 2c  30 2c 31 33 30 0d 00 96  | *FX138,0,130...|
000001b0  1d e7 20 73 6d 61 24 3d  22 59 22 20 8c 20 2a 46  |.. sma$="Y" . *F|
000001c0  58 31 33 38 2c 30 2c 31  33 31 0d 00 a0 10 2a 46  |X138,0,131....*F|
000001d0  58 31 33 38 2c 30 2c 31  33 32 0d 00 aa 22 f1 27  |X138,0,132...".'|
000001e0  27 22 46 6f 72 77 61 72  64 20 74 61 70 65 20 74  |'"Forward tape t|
000001f0  6f 20 27 47 55 41 52 44  23 31 27 22 0d 00 b4 07  |o 'GUARD#1'"....|
00000200  ef 32 31 0d 00 be 05 e0  0d ff                    |.21.......|
0000020a
Guardia.m0
Guardia.m1
Guardia.m2
Guardia.m4
Guardia.m5