G/C/Pandemo

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF » G/C/Pandemo

G/C/Pandemo

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_21.ADF
Filename:	G/C/Pandemo
Read OK:	✔
File size:	0250 bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

Duplicates

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

AEW website » headfirst » headfirst_5_25_discs_HeadFirst-PD-Disk-004_D-E004.ssd » Pandemo
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF » G/C/Pandemo

File contents

   10MODE7
   20IE1=49:IE2=54:IL=49:FI=56
   30PRINT''"Pandemonium Cheat"
   40PRINT  "-----------------"
   50PRINT
   60PRINT"Infinite energy (Y/N)?":z$=GET$
   70IF z$="Y" THEN IE1=48:IE2=48:GOTO120
   80IFz$="N" THEN GOTO90 ELSE VDU7:GOTO60
   90PRINT"Infinite lives (Y/N)?":z$=GET$
  100IFz$="Y" THEN IL=48:GOTO120
  110IFz$="N" THEN GOTO120 ELSE VDU7:GOTO90
  120PRINT"Infinite firepower (Y/N)?":z$=GET$
  130IFz$="Y" THEN FI=48:GOTO150 
  140IFz$="N" THEN GOTO150 ELSE VDU7:GOTO120
  150?&50=IE1:?&51=IE2:?&52=IL:?&53=FI
  160*KEY 0 *L. R.MONIUM|MPAGE=&1900|M180PAGE=&1B00|MRUN|MLO."PANDEM"|M?&2278=?&52:?&20EC=?&53:?&21D5=?&50:?&21D6=?&51|MRUN|M
  170*TAPE
  180PRINT'"Forward tape to R.MONIUM"
  190*FX 138,0,128


�7
IE1=49:IE2=54:IL=49:FI=56
�''"Pandemonium Cheat"
(�  "-----------------"
2�
<"�"Infinite energy (Y/N)?":z$=�
F"� z$="Y" � IE1=48:IE2=48:�Dx@
P�z$="N" � �DZ@ � �7:�T|@
Z!�"Infinite lives (Y/N)?":z$=�
d�z$="Y" � IL=48:�Dx@
n�z$="N" � �Dx@ � �7:�DZ@
x%�"Infinite firepower (Y/N)?":z$=�
��z$="Y" � FI=48:�tV@ 
��z$="N" � �tV@ � �7:�Dx@
�%?&50=IE1:?&51=IE2:?&52=IL:?&53=FI
�|*KEY 0 *L. R.MONIUM|MPAGE=&1900|M180PAGE=&1B00|MRUN|MLO."PANDEM"|M?&2278=?&52:?&20EC=?&53:?&21D5=?&50:?&21D6=?&51|MRUN|M
�	*TAPE
� �'"Forward tape to R.MONIUM"
�*FX 138,0,128
�

00000000  0d 00 0a 06 eb 37 0d 00  14 1d 49 45 31 3d 34 39  |.....7....IE1=49|
00000010  3a 49 45 32 3d 35 34 3a  49 4c 3d 34 39 3a 46 49  |:IE2=54:IL=49:FI|
00000020  3d 35 36 0d 00 1e 1a f1  27 27 22 50 61 6e 64 65  |=56.....''"Pande|
00000030  6d 6f 6e 69 75 6d 20 43  68 65 61 74 22 0d 00 28  |monium Cheat"..(|
00000040  1a f1 20 20 22 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..  "-----------|
00000050  2d 2d 2d 2d 2d 2d 22 0d  00 32 05 f1 0d 00 3c 22  |------"..2....<"|
00000060  f1 22 49 6e 66 69 6e 69  74 65 20 65 6e 65 72 67  |."Infinite energ|
00000070  79 20 28 59 2f 4e 29 3f  22 3a 7a 24 3d be 0d 00  |y (Y/N)?":z$=...|
00000080  46 22 e7 20 7a 24 3d 22  59 22 20 8c 20 49 45 31  |F". z$="Y" . IE1|
00000090  3d 34 38 3a 49 45 32 3d  34 38 3a e5 8d 44 78 40  |=48:IE2=48:..Dx@|
000000a0  0d 00 50 1e e7 7a 24 3d  22 4e 22 20 8c 20 e5 8d  |..P..z$="N" . ..|
000000b0  44 5a 40 20 8b 20 ef 37  3a e5 8d 54 7c 40 0d 00  |DZ@ . .7:..T|@..|
000000c0  5a 21 f1 22 49 6e 66 69  6e 69 74 65 20 6c 69 76  |Z!."Infinite liv|
000000d0  65 73 20 28 59 2f 4e 29  3f 22 3a 7a 24 3d be 0d  |es (Y/N)?":z$=..|
000000e0  00 64 19 e7 7a 24 3d 22  59 22 20 8c 20 49 4c 3d  |.d..z$="Y" . IL=|
000000f0  34 38 3a e5 8d 44 78 40  0d 00 6e 1e e7 7a 24 3d  |48:..Dx@..n..z$=|
00000100  22 4e 22 20 8c 20 e5 8d  44 78 40 20 8b 20 ef 37  |"N" . ..Dx@ . .7|
00000110  3a e5 8d 44 5a 40 0d 00  78 25 f1 22 49 6e 66 69  |:..DZ@..x%."Infi|
00000120  6e 69 74 65 20 66 69 72  65 70 6f 77 65 72 20 28  |nite firepower (|
00000130  59 2f 4e 29 3f 22 3a 7a  24 3d be 0d 00 82 1a e7  |Y/N)?":z$=......|
00000140  7a 24 3d 22 59 22 20 8c  20 46 49 3d 34 38 3a e5  |z$="Y" . FI=48:.|
00000150  8d 74 56 40 20 0d 00 8c  1e e7 7a 24 3d 22 4e 22  |.tV@ .....z$="N"|
00000160  20 8c 20 e5 8d 74 56 40  20 8b 20 ef 37 3a e5 8d  | . ..tV@ . .7:..|
00000170  44 78 40 0d 00 96 25 3f  26 35 30 3d 49 45 31 3a  |Dx@...%?&50=IE1:|
00000180  3f 26 35 31 3d 49 45 32  3a 3f 26 35 32 3d 49 4c  |?&51=IE2:?&52=IL|
00000190  3a 3f 26 35 33 3d 46 49  0d 00 a0 7c 2a 4b 45 59  |:?&53=FI...|*KEY|
000001a0  20 30 20 2a 4c 2e 20 52  2e 4d 4f 4e 49 55 4d 7c  | 0 *L. R.MONIUM||
000001b0  4d 50 41 47 45 3d 26 31  39 30 30 7c 4d 31 38 30  |MPAGE=&1900|M180|
000001c0  50 41 47 45 3d 26 31 42  30 30 7c 4d 52 55 4e 7c  |PAGE=&1B00|MRUN||
000001d0  4d 4c 4f 2e 22 50 41 4e  44 45 4d 22 7c 4d 3f 26  |MLO."PANDEM"|M?&|
000001e0  32 32 37 38 3d 3f 26 35  32 3a 3f 26 32 30 45 43  |2278=?&52:?&20EC|
000001f0  3d 3f 26 35 33 3a 3f 26  32 31 44 35 3d 3f 26 35  |=?&53:?&21D5=?&5|
00000200  30 3a 3f 26 32 31 44 36  3d 3f 26 35 31 7c 4d 52  |0:?&21D6=?&51|MR|
00000210  55 4e 7c 4d 0d 00 aa 09  2a 54 41 50 45 0d 00 b4  |UN|M....*TAPE...|
00000220  20 f1 27 22 46 6f 72 77  61 72 64 20 74 61 70 65  | .'"Forward tape|
00000230  20 74 6f 20 52 2e 4d 4f  4e 49 55 4d 22 0d 00 be  | to R.MONIUM"...|
00000240  11 2a 46 58 20 31 33 38  2c 30 2c 31 32 38 0d ff  |.*FX 138,0,128..|
00000250

G/C/Pandemo.m0

G/C/Pandemo.m1

G/C/Pandemo.m2

G/C/Pandemo.m4

G/C/Pandemo.m5

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