Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav » COSMIC

COSMIC

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 tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav
Filename: COSMIC
Read OK:
File size: 045E bytes
Load address: 2000
Exec address: 1900
Duplicates

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

File contents
   10REM Cosmic Camoflauge cheat
   20REM Electron version   
   30:
   40MODE4:PRINT'"Cosmic Camoflauge cheat"'
   50PROCmc
   60PROCask("Infinite lives",inlives):PROCask("Infinite warp drives",inwd):PROCask("Infinite radiation bombs",inrb):PROCask("Infinite camouflage cover",incc):PROCask("Enable jump to all levels",jumps)
   70PRINT'"OK - Insert Cosmic Camoflauge tape and       press play ..."'
   80VDU28,0,20,20,18,7
   90CALL&900
  100END
  110DEFPROCask(A$,A%)
  120PRINT;A$;STRING$(26-LENA$," ");"(Y/N) : ";:A$=GET$:IF A$="Y" THEN PRINT;"Yes" ELSE PRINT;"No":?A%=&60
  130ENDPROC
  140DEFPROCmc
  150FORI%=0 TO 2 STEP2
  160P%=&900
  170[OPTI%
  180LDA&220:STAbyte:LDA&221:STAbyte+1
  190LDA#inter MOD 256:STA&220:LDA#inter DIV 256:STA&221
  200LDA#14:LDX#4:JSR&FFF4
  210LDY#load DIV 256:LDX#load MOD 256
  220JSR&FFF7
  230LDA#13:LDX#4:JSR&FFF4
  240LDAbyte:STA&220:LDAbyte+1:STA&221
  250JSRinlives
  260JSRinwd:JSRincc:JSRinrb:JSRjumps
  270JMP&2000
  280.inlives LDA#0:STA&35B7:RTS
  290.inwd LDA#&EA:STA&2FC0:STA&2FC1:RTS
  300.incc LDA#&EA:STA&302A:STA&302B:RTS
  310.inrb LDA#&EA:STA&2FF8:STA&2FF9:RTS
  320.jumps LDA#&EA:STA&3B63:LDA#&A9:STA&3B64:LDA#&01:STA&3B65:RTS
  330.inter LDA&3CA:AND#254:STA&3CA:RTS
  340.byte NOP:NOP
  350.load
  360]:$P%="LOAD SB3"+CHR$13:NEXT
  370ENDPROC

� Cosmic Camoflauge cheat
� Electron version   
:
(#�4:�'"Cosmic Camoflauge cheat"'
2�mc
<��ask("Infinite lives",inlives):�ask("Infinite warp drives",inwd):�ask("Infinite radiation bombs",inrb):�ask("Infinite camouflage cover",incc):�ask("Enable jump to all levels",jumps)
FD�'"OK - Insert Cosmic Camoflauge tape and       press play ..."'
P�28,0,20,20,18,7
Z	�&900
d�
n��ask(A$,A%)
xJ�;A$;�26-�A$," ");"(Y/N) : ";:A$=�:� A$="Y" � �;"Yes" � �;"No":?A%=&60
��
���mc
��I%=0 � 2 �2
�P%=&900
�
[OPTI%
�%LDA&220:STAbyte:LDA&221:STAbyte+1
�3LDA#inter � 256:STA&220:LDA#inter � 256:STA&221
�LDA#14:LDX#4:JSR&FFF4
�!LDY#load � 256:LDX#load � 256
�JSR&FFF7
�LDA#13:LDX#4:JSR&FFF4
�%LDAbyte:STA&220:LDAbyte+1:STA&221
�JSRinlives
$JSRinwd:JSRincc:JSRinrb:JSRjumps
JMP&2000
.inlives LDA#0:STA&35B7:RTS
"'.inwd LDA#&EA:STA&2FC0:STA&2FC1:RTS
,'.incc LDA#&EA:STA&302A:STA&302B:RTS
6'.inrb LDA#&EA:STA&2FF8:STA&2FF9:RTS
@A.jumps LDA#&EA:STA&3B63:LDA#&A9:STA&3B64:LDA#&01:STA&3B65:RTS
J$.inter LDA&3CA:�#254:STA&3CA:RTS
T.byte NOP:NOP
^	.load
h]:$P%="LOAD SB3"+�13:�
r�
�
00000000  0d 00 0a 1d f4 20 43 6f  73 6d 69 63 20 43 61 6d  |..... Cosmic Cam|
00000010  6f 66 6c 61 75 67 65 20  63 68 65 61 74 0d 00 14  |oflauge cheat...|
00000020  19 f4 20 45 6c 65 63 74  72 6f 6e 20 76 65 72 73  |.. Electron vers|
00000030  69 6f 6e 20 20 20 0d 00  1e 05 3a 0d 00 28 23 eb  |ion   ....:..(#.|
00000040  34 3a f1 27 22 43 6f 73  6d 69 63 20 43 61 6d 6f  |4:.'"Cosmic Camo|
00000050  66 6c 61 75 67 65 20 63  68 65 61 74 22 27 0d 00  |flauge cheat"'..|
00000060  32 07 f2 6d 63 0d 00 3c  b9 f2 61 73 6b 28 22 49  |2..mc..<..ask("I|
00000070  6e 66 69 6e 69 74 65 20  6c 69 76 65 73 22 2c 69  |nfinite lives",i|
00000080  6e 6c 69 76 65 73 29 3a  f2 61 73 6b 28 22 49 6e  |nlives):.ask("In|
00000090  66 69 6e 69 74 65 20 77  61 72 70 20 64 72 69 76  |finite warp driv|
000000a0  65 73 22 2c 69 6e 77 64  29 3a f2 61 73 6b 28 22  |es",inwd):.ask("|
000000b0  49 6e 66 69 6e 69 74 65  20 72 61 64 69 61 74 69  |Infinite radiati|
000000c0  6f 6e 20 62 6f 6d 62 73  22 2c 69 6e 72 62 29 3a  |on bombs",inrb):|
000000d0  f2 61 73 6b 28 22 49 6e  66 69 6e 69 74 65 20 63  |.ask("Infinite c|
000000e0  61 6d 6f 75 66 6c 61 67  65 20 63 6f 76 65 72 22  |amouflage cover"|
000000f0  2c 69 6e 63 63 29 3a f2  61 73 6b 28 22 45 6e 61  |,incc):.ask("Ena|
00000100  62 6c 65 20 6a 75 6d 70  20 74 6f 20 61 6c 6c 20  |ble jump to all |
00000110  6c 65 76 65 6c 73 22 2c  6a 75 6d 70 73 29 0d 00  |levels",jumps)..|
00000120  46 44 f1 27 22 4f 4b 20  2d 20 49 6e 73 65 72 74  |FD.'"OK - Insert|
00000130  20 43 6f 73 6d 69 63 20  43 61 6d 6f 66 6c 61 75  | Cosmic Camoflau|
00000140  67 65 20 74 61 70 65 20  61 6e 64 20 20 20 20 20  |ge tape and     |
00000150  20 20 70 72 65 73 73 20  70 6c 61 79 20 2e 2e 2e  |  press play ...|
00000160  22 27 0d 00 50 14 ef 32  38 2c 30 2c 32 30 2c 32  |"'..P..28,0,20,2|
00000170  30 2c 31 38 2c 37 0d 00  5a 09 d6 26 39 30 30 0d  |0,18,7..Z..&900.|
00000180  00 64 05 e0 0d 00 6e 10  dd f2 61 73 6b 28 41 24  |.d....n...ask(A$|
00000190  2c 41 25 29 0d 00 78 4a  f1 3b 41 24 3b c4 32 36  |,A%)..xJ.;A$;.26|
000001a0  2d a9 41 24 2c 22 20 22  29 3b 22 28 59 2f 4e 29  |-.A$," ");"(Y/N)|
000001b0  20 3a 20 22 3b 3a 41 24  3d be 3a e7 20 41 24 3d  | : ";:A$=.:. A$=|
000001c0  22 59 22 20 8c 20 f1 3b  22 59 65 73 22 20 8b 20  |"Y" . .;"Yes" . |
000001d0  f1 3b 22 4e 6f 22 3a 3f  41 25 3d 26 36 30 0d 00  |.;"No":?A%=&60..|
000001e0  82 05 e1 0d 00 8c 08 dd  f2 6d 63 0d 00 96 10 e3  |.........mc.....|
000001f0  49 25 3d 30 20 b8 20 32  20 88 32 0d 00 a0 0b 50  |I%=0 . 2 .2....P|
00000200  25 3d 26 39 30 30 0d 00  aa 0a 5b 4f 50 54 49 25  |%=&900....[OPTI%|
00000210  0d 00 b4 25 4c 44 41 26  32 32 30 3a 53 54 41 62  |...%LDA&220:STAb|
00000220  79 74 65 3a 4c 44 41 26  32 32 31 3a 53 54 41 62  |yte:LDA&221:STAb|
00000230  79 74 65 2b 31 0d 00 be  33 4c 44 41 23 69 6e 74  |yte+1...3LDA#int|
00000240  65 72 20 83 20 32 35 36  3a 53 54 41 26 32 32 30  |er . 256:STA&220|
00000250  3a 4c 44 41 23 69 6e 74  65 72 20 81 20 32 35 36  |:LDA#inter . 256|
00000260  3a 53 54 41 26 32 32 31  0d 00 c8 19 4c 44 41 23  |:STA&221....LDA#|
00000270  31 34 3a 4c 44 58 23 34  3a 4a 53 52 26 46 46 46  |14:LDX#4:JSR&FFF|
00000280  34 0d 00 d2 21 4c 44 59  23 6c 6f 61 64 20 81 20  |4...!LDY#load . |
00000290  32 35 36 3a 4c 44 58 23  6c 6f 61 64 20 83 20 32  |256:LDX#load . 2|
000002a0  35 36 0d 00 dc 0c 4a 53  52 26 46 46 46 37 0d 00  |56....JSR&FFF7..|
000002b0  e6 19 4c 44 41 23 31 33  3a 4c 44 58 23 34 3a 4a  |..LDA#13:LDX#4:J|
000002c0  53 52 26 46 46 46 34 0d  00 f0 25 4c 44 41 62 79  |SR&FFF4...%LDAby|
000002d0  74 65 3a 53 54 41 26 32  32 30 3a 4c 44 41 62 79  |te:STA&220:LDAby|
000002e0  74 65 2b 31 3a 53 54 41  26 32 32 31 0d 00 fa 0e  |te+1:STA&221....|
000002f0  4a 53 52 69 6e 6c 69 76  65 73 0d 01 04 24 4a 53  |JSRinlives...$JS|
00000300  52 69 6e 77 64 3a 4a 53  52 69 6e 63 63 3a 4a 53  |Rinwd:JSRincc:JS|
00000310  52 69 6e 72 62 3a 4a 53  52 6a 75 6d 70 73 0d 01  |Rinrb:JSRjumps..|
00000320  0e 0c 4a 4d 50 26 32 30  30 30 0d 01 18 1f 2e 69  |..JMP&2000.....i|
00000330  6e 6c 69 76 65 73 20 4c  44 41 23 30 3a 53 54 41  |nlives LDA#0:STA|
00000340  26 33 35 42 37 3a 52 54  53 0d 01 22 27 2e 69 6e  |&35B7:RTS.."'.in|
00000350  77 64 20 4c 44 41 23 26  45 41 3a 53 54 41 26 32  |wd LDA#&EA:STA&2|
00000360  46 43 30 3a 53 54 41 26  32 46 43 31 3a 52 54 53  |FC0:STA&2FC1:RTS|
00000370  0d 01 2c 27 2e 69 6e 63  63 20 4c 44 41 23 26 45  |..,'.incc LDA#&E|
00000380  41 3a 53 54 41 26 33 30  32 41 3a 53 54 41 26 33  |A:STA&302A:STA&3|
00000390  30 32 42 3a 52 54 53 0d  01 36 27 2e 69 6e 72 62  |02B:RTS..6'.inrb|
000003a0  20 4c 44 41 23 26 45 41  3a 53 54 41 26 32 46 46  | LDA#&EA:STA&2FF|
000003b0  38 3a 53 54 41 26 32 46  46 39 3a 52 54 53 0d 01  |8:STA&2FF9:RTS..|
000003c0  40 41 2e 6a 75 6d 70 73  20 4c 44 41 23 26 45 41  |@A.jumps LDA#&EA|
000003d0  3a 53 54 41 26 33 42 36  33 3a 4c 44 41 23 26 41  |:STA&3B63:LDA#&A|
000003e0  39 3a 53 54 41 26 33 42  36 34 3a 4c 44 41 23 26  |9:STA&3B64:LDA#&|
000003f0  30 31 3a 53 54 41 26 33  42 36 35 3a 52 54 53 0d  |01:STA&3B65:RTS.|
00000400  01 4a 24 2e 69 6e 74 65  72 20 4c 44 41 26 33 43  |.J$.inter LDA&3C|
00000410  41 3a 80 23 32 35 34 3a  53 54 41 26 33 43 41 3a  |A:.#254:STA&3CA:|
00000420  52 54 53 0d 01 54 11 2e  62 79 74 65 20 4e 4f 50  |RTS..T..byte NOP|
00000430  3a 4e 4f 50 0d 01 5e 09  2e 6c 6f 61 64 0d 01 68  |:NOP..^..load..h|
00000440  1a 5d 3a 24 50 25 3d 22  4c 4f 41 44 20 53 42 33  |.]:$P%="LOAD SB3|
00000450  22 2b bd 31 33 3a ed 0d  01 72 05 e1 0d ff        |"+.13:...r....|
0000045e
COSMIC.m0
COSMIC.m1
COSMIC.m2
COSMIC.m4
COSMIC.m5