� Orbital cheat
� Electron version
:
(�4:�'"Orbital cheat"'
2�mc
<_�ask("Infinite lives",inlives):�ask("Immortal to Octopodes",imm):�ask("Infinite time",time)
F>�'"OK - Insert Orbital tape and press           play ..."'
P�&1800:�=&E00:�"ORBITAL"
Z�
d��ask(A$,A%)
nJ�;A$;�26-�A$," ");"(Y/N) : ";:A$=�:� A$="Y" � �;"Yes" � �;"No":?A%=&60
x�
���mc
��I%=0 � 2 �2
�P%=&1800
�
[OPTI%
�)SEI:LDA&204:STAbyte:LDA&205:STAbyte+1
�LDA#0:STA&2700
�LDA#inter � 256:STA&204
�LDA#inter � 256:STA&205
�CLI:RTS
�]:P%=&4E50:[OPTI%
�".inter PHP:PHA:TXA:PHA:TYA:PHA
�LDA&2700:CMP#&A0:BNEout
�JSRinlives:JSRimm:JSRtime

%LDAbyte:STA&204:LDAbyte+1:STA&205

*.out PLA:TAY:PLA:TAX:PLA:PLP:JMP(byte)

.byte NOP:NOP

"!.inlives LDA#&A9:STA&12AD:RTS

,.imm LDA#0:STA&1B98:RTS

6%.time LDA#0:STA&1781:STA&1793:RTS

@]:�

J�
�

00000000  0d 00 0a 13 f4 20 4f 72  62 69 74 61 6c 20 63 68  |..... Orbital ch|
00000010  65 61 74 0d 00 14 16 f4  20 45 6c 65 63 74 72 6f  |eat..... Electro|
00000020  6e 20 76 65 72 73 69 6f  6e 0d 00 1e 05 3a 0d 00  |n version....:..|
00000030  28 19 eb 34 3a f1 27 22  4f 72 62 69 74 61 6c 20  |(..4:.'"Orbital |
00000040  63 68 65 61 74 22 27 0d  00 32 07 f2 6d 63 0d 00  |cheat"'..2..mc..|
00000050  3c 5f f2 61 73 6b 28 22  49 6e 66 69 6e 69 74 65  |<_.ask("Infinite|
00000060  20 6c 69 76 65 73 22 2c  69 6e 6c 69 76 65 73 29  | lives",inlives)|
00000070  3a f2 61 73 6b 28 22 49  6d 6d 6f 72 74 61 6c 20  |:.ask("Immortal |
00000080  74 6f 20 4f 63 74 6f 70  6f 64 65 73 22 2c 69 6d  |to Octopodes",im|
00000090  6d 29 3a f2 61 73 6b 28  22 49 6e 66 69 6e 69 74  |m):.ask("Infinit|
000000a0  65 20 74 69 6d 65 22 2c  74 69 6d 65 29 0d 00 46  |e time",time)..F|
000000b0  3e f1 27 22 4f 4b 20 2d  20 49 6e 73 65 72 74 20  |>.'"OK - Insert |
000000c0  4f 72 62 69 74 61 6c 20  74 61 70 65 20 61 6e 64  |Orbital tape and|
000000d0  20 70 72 65 73 73 20 20  20 20 20 20 20 20 20 20  | press          |
000000e0  20 70 6c 61 79 20 2e 2e  2e 22 27 0d 00 50 1c d6  | play ..."'..P..|
000000f0  26 31 38 30 30 3a d0 3d  26 45 30 30 3a d7 22 4f  |&1800:.=&E00:."O|
00000100  52 42 49 54 41 4c 22 0d  00 5a 05 e0 0d 00 64 10  |RBITAL"..Z....d.|
00000110  dd f2 61 73 6b 28 41 24  2c 41 25 29 0d 00 6e 4a  |..ask(A$,A%)..nJ|
00000120  f1 3b 41 24 3b c4 32 36  2d a9 41 24 2c 22 20 22  |.;A$;.26-.A$," "|
00000130  29 3b 22 28 59 2f 4e 29  20 3a 20 22 3b 3a 41 24  |);"(Y/N) : ";:A$|
00000140  3d be 3a e7 20 41 24 3d  22 59 22 20 8c 20 f1 3b  |=.:. A$="Y" . .;|
00000150  22 59 65 73 22 20 8b 20  f1 3b 22 4e 6f 22 3a 3f  |"Yes" . .;"No":?|
00000160  41 25 3d 26 36 30 0d 00  78 05 e1 0d 00 82 08 dd  |A%=&60..x.......|
00000170  f2 6d 63 0d 00 8c 10 e3  49 25 3d 30 20 b8 20 32  |.mc.....I%=0 . 2|
00000180  20 88 32 0d 00 96 0c 50  25 3d 26 31 38 30 30 0d  | .2....P%=&1800.|
00000190  00 a0 0a 5b 4f 50 54 49  25 0d 00 aa 29 53 45 49  |...[OPTI%...)SEI|
000001a0  3a 4c 44 41 26 32 30 34  3a 53 54 41 62 79 74 65  |:LDA&204:STAbyte|
000001b0  3a 4c 44 41 26 32 30 35  3a 53 54 41 62 79 74 65  |:LDA&205:STAbyte|
000001c0  2b 31 0d 00 b4 12 4c 44  41 23 30 3a 53 54 41 26  |+1....LDA#0:STA&|
000001d0  32 37 30 30 0d 00 be 1b  4c 44 41 23 69 6e 74 65  |2700....LDA#inte|
000001e0  72 20 83 20 32 35 36 3a  53 54 41 26 32 30 34 0d  |r . 256:STA&204.|
000001f0  00 c8 1b 4c 44 41 23 69  6e 74 65 72 20 81 20 32  |...LDA#inter . 2|
00000200  35 36 3a 53 54 41 26 32  30 35 0d 00 d2 0b 43 4c  |56:STA&205....CL|
00000210  49 3a 52 54 53 0d 00 dc  15 5d 3a 50 25 3d 26 34  |I:RTS....]:P%=&4|
00000220  45 35 30 3a 5b 4f 50 54  49 25 0d 00 e6 22 2e 69  |E50:[OPTI%...".i|
00000230  6e 74 65 72 20 50 48 50  3a 50 48 41 3a 54 58 41  |nter PHP:PHA:TXA|
00000240  3a 50 48 41 3a 54 59 41  3a 50 48 41 0d 00 f0 1b  |:PHA:TYA:PHA....|
00000250  4c 44 41 26 32 37 30 30  3a 43 4d 50 23 26 41 30  |LDA&2700:CMP#&A0|
00000260  3a 42 4e 45 6f 75 74 0d  00 fa 1d 4a 53 52 69 6e  |:BNEout....JSRin|
00000270  6c 69 76 65 73 3a 4a 53  52 69 6d 6d 3a 4a 53 52  |lives:JSRimm:JSR|
00000280  74 69 6d 65 0d 01 04 25  4c 44 41 62 79 74 65 3a  |time...%LDAbyte:|
00000290  53 54 41 26 32 30 34 3a  4c 44 41 62 79 74 65 2b  |STA&204:LDAbyte+|
000002a0  31 3a 53 54 41 26 32 30  35 0d 01 0e 2a 2e 6f 75  |1:STA&205...*.ou|
000002b0  74 20 50 4c 41 3a 54 41  59 3a 50 4c 41 3a 54 41  |t PLA:TAY:PLA:TA|
000002c0  58 3a 50 4c 41 3a 50 4c  50 3a 4a 4d 50 28 62 79  |X:PLA:PLP:JMP(by|
000002d0  74 65 29 0d 01 18 11 2e  62 79 74 65 20 4e 4f 50  |te).....byte NOP|
000002e0  3a 4e 4f 50 0d 01 22 21  2e 69 6e 6c 69 76 65 73  |:NOP.."!.inlives|
000002f0  20 4c 44 41 23 26 41 39  3a 53 54 41 26 31 32 41  | LDA#&A9:STA&12A|
00000300  44 3a 52 54 53 0d 01 2c  1b 2e 69 6d 6d 20 4c 44  |D:RTS..,..imm LD|
00000310  41 23 30 3a 53 54 41 26  31 42 39 38 3a 52 54 53  |A#0:STA&1B98:RTS|
00000320  0d 01 36 25 2e 74 69 6d  65 20 4c 44 41 23 30 3a  |..6%.time LDA#0:|
00000330  53 54 41 26 31 37 38 31  3a 53 54 41 26 31 37 39  |STA&1781:STA&179|
00000340  33 3a 52 54 53 0d 01 40  07 5d 3a ed 0d 01 4a 05  |3:RTS..@.]:...J.|
00000350  e1 0d ff                                          |...|
00000353