Duplicates

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

• Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF » G/Hyprbl
• Personal collection » Acorn ADFS disks » Electron » EUG_submission_3.ADF » Cheats/Hyperball
• Personal collection » Acorn ADFS disks » Electron » Play_it_again_Sam_13.ADF » Sam13/Hyperball/TapeCheat
• Personal collection » Acorn hard disk » zipped_disks » elk08 » sam13/Sam13/Hyperball/TapeCheat

File contents

• BASIC
• Preview
• Hex Dump
• MODE 0 render
• MODE 1 render
• MODE 2 render
• MODE 4 render
• MODE 5 render

   10 REM Hyperball Cheat
   20 REM Electron tape (Play it Again Sam 13) version
   30 REM by M. Ford for EUG, July 1995
   40 MODE6:PRINT TAB(1,1)"Hyperball Cheat"'" ==============="
   50 PRINT'" Infinite lives (Y/N)?";
   60 A$=GET$:IF INSTR("YyNn",A$)=0 THEN 60
   70 PRINT A$:IF A$="N" OR A$="n" THEN GOTO 130
   80 P%=&100
   90 [OPT2:LDA#4:STA&42FE:RTS:]
  100 *FX13,4
  110 ?&220=0:?&221=1
  120 *FX14,4
  130 PRINT'"OK - Loading Hyperball"
  140 A%=TIME:REPEAT UNTIL TIME>=A%+100
  150 *TAPE
  160 PAGE=&E00
  170 CHAIN"HYPER"

 � Hyperball Cheat
3 � Electron tape (Play it Again Sam 13) version
$ � by M. Ford for EUG, July 1995
(3 �6:� �1,1)"Hyperball Cheat"'" ==============="
2  �'" Infinite lives (Y/N)?";
<  A$=�:� �"YyNn",A$)=0 � �T|@
F$ � A$:� A$="N" � A$="n" � � �tB@
P P%=&100
Z [OPT2:LDA#4:STA&42FE:RTS:]
d *FX13,4
n ?&220=0:?&221=1
x *FX14,4
� �'"OK - Loading Hyperball"
� A%=�:� � �>=A%+100
�
 *TAPE
� �=&E00
�
 �"HYPER"
�

00000000  0d 00 0a 16 20 f4 20 48  79 70 65 72 62 61 6c 6c  |.... . Hyperball|
00000010  20 43 68 65 61 74 0d 00  14 33 20 f4 20 45 6c 65  | Cheat...3 . Ele|
00000020  63 74 72 6f 6e 20 74 61  70 65 20 28 50 6c 61 79  |ctron tape (Play|
00000030  20 69 74 20 41 67 61 69  6e 20 53 61 6d 20 31 33  | it Again Sam 13|
00000040  29 20 76 65 72 73 69 6f  6e 0d 00 1e 24 20 f4 20  |) version...$ . |
00000050  62 79 20 4d 2e 20 46 6f  72 64 20 66 6f 72 20 45  |by M. Ford for E|
00000060  55 47 2c 20 4a 75 6c 79  20 31 39 39 35 0d 00 28  |UG, July 1995..(|
00000070  33 20 eb 36 3a f1 20 8a  31 2c 31 29 22 48 79 70  |3 .6:. .1,1)"Hyp|
00000080  65 72 62 61 6c 6c 20 43  68 65 61 74 22 27 22 20  |erball Cheat"'" |
00000090  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 22  |==============="|
000000a0  0d 00 32 20 20 f1 27 22  20 49 6e 66 69 6e 69 74  |..2  .'" Infinit|
000000b0  65 20 6c 69 76 65 73 20  28 59 2f 4e 29 3f 22 3b  |e lives (Y/N)?";|
000000c0  0d 00 3c 20 20 41 24 3d  be 3a e7 20 a7 22 59 79  |..<  A$=.:. ."Yy|
000000d0  4e 6e 22 2c 41 24 29 3d  30 20 8c 20 8d 54 7c 40  |Nn",A$)=0 . .T|@|
000000e0  0d 00 46 24 20 f1 20 41  24 3a e7 20 41 24 3d 22  |..F$ . A$:. A$="|
000000f0  4e 22 20 84 20 41 24 3d  22 6e 22 20 8c 20 e5 20  |N" . A$="n" . . |
00000100  8d 74 42 40 0d 00 50 0c  20 50 25 3d 26 31 30 30  |.tB@..P. P%=&100|
00000110  0d 00 5a 1f 20 5b 4f 50  54 32 3a 4c 44 41 23 34  |..Z. [OPT2:LDA#4|
00000120  3a 53 54 41 26 34 32 46  45 3a 52 54 53 3a 5d 0d  |:STA&42FE:RTS:].|
00000130  00 64 0c 20 2a 46 58 31  33 2c 34 0d 00 6e 14 20  |.d. *FX13,4..n. |
00000140  3f 26 32 32 30 3d 30 3a  3f 26 32 32 31 3d 31 0d  |?&220=0:?&221=1.|
00000150  00 78 0c 20 2a 46 58 31  34 2c 34 0d 00 82 1f 20  |.x. *FX14,4.... |
00000160  f1 27 22 4f 4b 20 2d 20  4c 6f 61 64 69 6e 67 20  |.'"OK - Loading |
00000170  48 79 70 65 72 62 61 6c  6c 22 0d 00 8c 17 20 41  |Hyperball".... A|
00000180  25 3d 91 3a f5 20 fd 20  91 3e 3d 41 25 2b 31 30  |%=.:. . .>=A%+10|
00000190  30 0d 00 96 0a 20 2a 54  41 50 45 0d 00 a0 0b 20  |0.... *TAPE.... |
000001a0  d0 3d 26 45 30 30 0d 00  aa 0d 20 d7 22 48 59 50  |.=&E00.... ."HYP|
000001b0  45 52 22 0d ff                                    |ER"..|
000001b5

Sam13/Hyperball/TapeCheat.m0

Sam13/Hyperball/TapeCheat.m1

Sam13/Hyperball/TapeCheat.m2

Sam13/Hyperball/TapeCheat.m4

Sam13/Hyperball/TapeCheat.m5