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:
- AEW website » database » database_5_25_discs_Electron-User-7-08_D-E708.ssd » COSMIC
- AEW website » cheat » cheat_CE_CosmicCamouflage_CE_CosmicCamouflage.uef » CHEAT
- AEW website » database » database_tapes_Electron-User-7-08_EU7-8_E.uef » COSMIC
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav » COSMIC
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape11b_acorn_eu_1990_may.wav » COSMIC
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