Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » Shark
Shark
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: | Shark |
| Read OK: | ✔ |
| File size: | 0166 bytes |
| Load address: | FFFFFB00 |
| Exec address: | FFFF8023 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » headfirst » headfirst_5_25_discs_HeadFirst-PD-Disk-004_D-E004.ssd » Shark
- AEW website » eug » eug_5_25_discs_Eug-15_D-EUG15.dsd » Shark
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » Shark
File contents
10MODE6:PRINT''"Shark Cheat"'"===========" 20INPUT"Lives (0-9) : "lives 30IF lives>9 OR lives<0 GOTO 10 40INPUT"Infinite lives (Y/N) : "inf$ 50*KEY0 LOAD"LOADER"|M 60OSCLI"KEY1 6031?&2ADA="+STR$lives+"|M" 70*KEY2 6032!&2B45=&8EAEAEA|M 80*FX138,0,128 90*FX138,0,129 100IF inf$="Y" THEN *FX138,0,130 110*KEY3 RUN|M 120*FX138,0,131 130PRINT''"Forward tape to 'LOADER'" 140*TAPE 150END
%�6:�''"Shark Cheat"'"==========="
�"Lives (0-9) : "lives
� lives>9 � lives<0 � �TJ@
("�"Infinite lives (Y/N) : "inf$
2*KEY0 LOAD"LOADER"|M
<#�"KEY1 6031?&2ADA="+�lives+"|M"
F *KEY2 6032!&2B45=&8EAEAEA|M
P*FX138,0,128
Z*FX138,0,129
d � inf$="Y" � *FX138,0,130
n*KEY3 RUN|M
x*FX138,0,131
�!�''"Forward tape to 'LOADER'"
� *TAPE
��
� 00000000 0d 00 0a 25 eb 36 3a f1 27 27 22 53 68 61 72 6b |...%.6:.''"Shark| 00000010 20 43 68 65 61 74 22 27 22 3d 3d 3d 3d 3d 3d 3d | Cheat"'"=======| 00000020 3d 3d 3d 3d 22 0d 00 14 1a e8 22 4c 69 76 65 73 |===="....."Lives| 00000030 20 28 30 2d 39 29 20 3a 20 22 6c 69 76 65 73 0d | (0-9) : "lives.| 00000040 00 1e 1e e7 20 6c 69 76 65 73 3e 39 20 84 20 6c |.... lives>9 . l| 00000050 69 76 65 73 3c 30 20 e5 20 8d 54 4a 40 0d 00 28 |ives<0 . .TJ@..(| 00000060 22 e8 22 49 6e 66 69 6e 69 74 65 20 6c 69 76 65 |"."Infinite live| 00000070 73 20 28 59 2f 4e 29 20 3a 20 22 69 6e 66 24 0d |s (Y/N) : "inf$.| 00000080 00 32 18 2a 4b 45 59 30 20 4c 4f 41 44 22 4c 4f |.2.*KEY0 LOAD"LO| 00000090 41 44 45 52 22 7c 4d 0d 00 3c 23 ff 22 4b 45 59 |ADER"|M..<#."KEY| 000000a0 31 20 36 30 33 31 3f 26 32 41 44 41 3d 22 2b c3 |1 6031?&2ADA="+.| 000000b0 6c 69 76 65 73 2b 22 7c 4d 22 0d 00 46 1f 2a 4b |lives+"|M"..F.*K| 000000c0 45 59 32 20 36 30 33 32 21 26 32 42 34 35 3d 26 |EY2 6032!&2B45=&| 000000d0 38 45 41 45 41 45 41 7c 4d 0d 00 50 10 2a 46 58 |8EAEAEA|M..P.*FX| 000000e0 31 33 38 2c 30 2c 31 32 38 0d 00 5a 10 2a 46 58 |138,0,128..Z.*FX| 000000f0 31 33 38 2c 30 2c 31 32 39 0d 00 64 1d e7 20 69 |138,0,129..d.. i| 00000100 6e 66 24 3d 22 59 22 20 8c 20 2a 46 58 31 33 38 |nf$="Y" . *FX138| 00000110 2c 30 2c 31 33 30 0d 00 6e 0f 2a 4b 45 59 33 20 |,0,130..n.*KEY3 | 00000120 52 55 4e 7c 4d 0d 00 78 10 2a 46 58 31 33 38 2c |RUN|M..x.*FX138,| 00000130 30 2c 31 33 31 0d 00 82 21 f1 27 27 22 46 6f 72 |0,131...!.''"For| 00000140 77 61 72 64 20 74 61 70 65 20 74 6f 20 27 4c 4f |ward tape to 'LO| 00000150 41 44 45 52 27 22 0d 00 8c 09 2a 54 41 50 45 0d |ADER'"....*TAPE.| 00000160 00 96 05 e0 0d ff |......| 00000166
.