� > <basicsave$dir>.Destin1
� By Rob Walmsley
� (c) The Micro User
(�7:�=&2F00
2�23,1,0;0;0;0;
<�Title("Balls of Destiny")
F�24,2)"By Rob Walmsley"'
P+�cn("When you asked to take part in a")
Z/�cn("particle accelerator experiment, you")
d0�cn("didn't realise you were the particle.")
n.�cn("As you approach the speed of light,")
x*�cn("the theories say that collision")
�,�cn("with other particles could result")
�.�cn("in speed changes, jumping, sticking")
�1�cn("inverted controls or even destruction.")
�*�cn("Can you survive the accelerator")
��cn("and come out alive?")
��'�4"Use the keys -"
��14"A - Move left"
��14"S - Move right"
�,�7,22)�136"Hit space to play the game";
��Vdus:�Ass:�Start
����=32:�=&1100
��"Destin2"
���Title(T$)

�12,131,157,132,141,10

�13,131,157,132,141,30

�cn(T$):�cn(T$):�

"��cn(T$)

,�20-�T$/2,�)T$

6�

@��Ass:base%=&2F00

Jirq1v=&204:myvec%=&8E

T!&70=5000:Table=&A20

^
�I%=0�2�2

hP%=base%:[OPTI%

rLDA &FC:PHA:TXA:PHA:TYA:PHA

|LDA &FE4D:� &FE4E:� #&20

�BNE DLI

�LDA &FE4D:� &FE4E:� #2

�BNE FIS

�.Ex PLA:TAY:PLA:TAX:PLA

�STA &FC:JMP (myvec%)

�.FIS

�LDY #0:.LFIS

�"TYA:ASLA:ASLA:ASLA:ASLA:STA T1

�LDA Table,Y:�A T1:STA &FE21

�INY:CPY #12:BNE LFIS

�JMP NIC

�.DLI LDA #0:STA &FE4D

�LDY #0:.LDLI
"TYA:ASLA:ASLA:ASLA:ASLA:STA T1
"LDA Table+12,Y:�A T1:STA &FE21
INY:CPY #12:BNE LDLI
&.NIC
0LDA &FE4B:� #&DF:STA &FE4B
:'LDA &70:STA &FE48:LDA &71:STA &FE49
D LDA #&A0:STA &FE4D:STA &FE4E
N
JMP Ex
X
.Start
bSEI:LDA irq1v:STA myvec%
lLDA irq1v+1:STA myvec%+1
vLDA #base%�256:STA irq1v
�&LDA #base%�256:STA irq1v+1:CLI:RTS
�.T1 NOP
�.M% LDY #23
�.Loop LDA Table-4,Y
�STA Table,Y:DEY:BNE Loop
�LDA &80:STA Table
�LDA &81:STA Table+1
�LDA &82:STA Table+2
�LDA &83:STA Table+3
�RTS
�
]:�:*FX16
��
�
��Vdus
'�1,10,20,20,16,1,1,1,0,0,0,-4,127,0
)�2,0,0,0,0,0,0,0,121,-1,-1,-1,120,120
/�3,1,-2,-2,-2,255,255,255,30,-2,-2,-2,100,5
 +�23,&E0,&00,&01,&07,&1F,&3F,&3F,&7F,&7F
*+�23,&E1,&00,&80,&E0,&F8,&FC,&FC,&FE,&FE
4+�23,&E2,&7F,&7F,&3F,&3F,&1F,&07,&01,&00
>+�23,&E3,&FE,&FE,&FC,&FC,&F8,&E0,&80,&00
H�
�

00000000  0d 00 0a 1f f4 20 3e 20  3c 62 61 73 69 63 73 61  |..... > <basicsa|
00000010  76 65 24 64 69 72 3e 2e  44 65 73 74 69 6e 31 0d  |ve$dir>.Destin1.|
00000020  00 14 15 f4 20 42 79 20  52 6f 62 20 57 61 6c 6d  |.... By Rob Walm|
00000030  73 6c 65 79 0d 00 1e 18  f4 20 28 63 29 20 54 68  |sley..... (c) Th|
00000040  65 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 28 0e  |e Micro User..(.|
00000050  eb 37 3a d3 3d 26 32 46  30 30 0d 00 32 12 ef 32  |.7:.=&2F00..2..2|
00000060  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 00 3c 1e  |3,1,0;0;0;0;..<.|
00000070  f2 54 69 74 6c 65 28 22  42 61 6c 6c 73 20 6f 66  |.Title("Balls of|
00000080  20 44 65 73 74 69 6e 79  22 29 0d 00 46 1d f1 8a  | Destiny")..F...|
00000090  32 34 2c 32 29 22 42 79  20 52 6f 62 20 57 61 6c  |24,2)"By Rob Wal|
000000a0  6d 73 6c 65 79 22 27 0d  00 50 2b f2 63 6e 28 22  |msley"'..P+.cn("|
000000b0  57 68 65 6e 20 79 6f 75  20 61 73 6b 65 64 20 74  |When you asked t|
000000c0  6f 20 74 61 6b 65 20 70  61 72 74 20 69 6e 20 61  |o take part in a|
000000d0  22 29 0d 00 5a 2f f2 63  6e 28 22 70 61 72 74 69  |")..Z/.cn("parti|
000000e0  63 6c 65 20 61 63 63 65  6c 65 72 61 74 6f 72 20  |cle accelerator |
000000f0  65 78 70 65 72 69 6d 65  6e 74 2c 20 79 6f 75 22  |experiment, you"|
00000100  29 0d 00 64 30 f2 63 6e  28 22 64 69 64 6e 27 74  |)..d0.cn("didn't|
00000110  20 72 65 61 6c 69 73 65  20 79 6f 75 20 77 65 72  | realise you wer|
00000120  65 20 74 68 65 20 70 61  72 74 69 63 6c 65 2e 22  |e the particle."|
00000130  29 0d 00 6e 2e f2 63 6e  28 22 41 73 20 79 6f 75  |)..n..cn("As you|
00000140  20 61 70 70 72 6f 61 63  68 20 74 68 65 20 73 70  | approach the sp|
00000150  65 65 64 20 6f 66 20 6c  69 67 68 74 2c 22 29 0d  |eed of light,").|
00000160  00 78 2a f2 63 6e 28 22  74 68 65 20 74 68 65 6f  |.x*.cn("the theo|
00000170  72 69 65 73 20 73 61 79  20 74 68 61 74 20 63 6f  |ries say that co|
00000180  6c 6c 69 73 69 6f 6e 22  29 0d 00 82 2c f2 63 6e  |llision")...,.cn|
00000190  28 22 77 69 74 68 20 6f  74 68 65 72 20 70 61 72  |("with other par|
000001a0  74 69 63 6c 65 73 20 63  6f 75 6c 64 20 72 65 73  |ticles could res|
000001b0  75 6c 74 22 29 0d 00 8c  2e f2 63 6e 28 22 69 6e  |ult").....cn("in|
000001c0  20 73 70 65 65 64 20 63  68 61 6e 67 65 73 2c 20  | speed changes, |
000001d0  6a 75 6d 70 69 6e 67 2c  20 73 74 69 63 6b 69 6e  |jumping, stickin|
000001e0  67 22 29 0d 00 96 31 f2  63 6e 28 22 69 6e 76 65  |g")...1.cn("inve|
000001f0  72 74 65 64 20 63 6f 6e  74 72 6f 6c 73 20 6f 72  |rted controls or|
00000200  20 65 76 65 6e 20 64 65  73 74 72 75 63 74 69 6f  | even destructio|
00000210  6e 2e 22 29 0d 00 a0 2a  f2 63 6e 28 22 43 61 6e  |n.")...*.cn("Can|
00000220  20 79 6f 75 20 73 75 72  76 69 76 65 20 74 68 65  | you survive the|
00000230  20 61 63 63 65 6c 65 72  61 74 6f 72 22 29 0d 00  | accelerator")..|
00000240  aa 1e f2 63 6e 28 22 61  6e 64 20 63 6f 6d 65 20  |...cn("and come |
00000250  6f 75 74 20 61 6c 69 76  65 3f 22 29 0d 00 b4 18  |out alive?")....|
00000260  f1 27 89 34 22 55 73 65  20 74 68 65 20 6b 65 79  |.'.4"Use the key|
00000270  73 20 2d 22 0d 00 be 17  f1 89 31 34 22 41 20 2d  |s -"......14"A -|
00000280  20 4d 6f 76 65 20 6c 65  66 74 22 0d 00 c8 18 f1  | Move left".....|
00000290  89 31 34 22 53 20 2d 20  4d 6f 76 65 20 72 69 67  |.14"S - Move rig|
000002a0  68 74 22 0d 00 d2 2c f1  8a 37 2c 32 32 29 bd 31  |ht"...,..7,22).1|
000002b0  33 36 22 48 69 74 20 73  70 61 63 65 20 74 6f 20  |36"Hit space to |
000002c0  70 6c 61 79 20 74 68 65  20 67 61 6d 65 22 3b 0d  |play the game";.|
000002d0  00 dc 15 f2 56 64 75 73  3a f2 41 73 73 3a d6 53  |....Vdus:.Ass:.S|
000002e0  74 61 72 74 0d 00 e6 12  f5 fd a5 3d 33 32 3a d0  |tart.......=32:.|
000002f0  3d 26 31 31 30 30 0d 00  f0 0e d7 22 44 65 73 74  |=&1100....."Dest|
00000300  69 6e 32 22 0d 00 fa 0f  dd f2 54 69 74 6c 65 28  |in2"......Title(|
00000310  54 24 29 0d 01 04 1a ef  31 32 2c 31 33 31 2c 31  |T$).....12,131,1|
00000320  35 37 2c 31 33 32 2c 31  34 31 2c 31 30 0d 01 0e  |57,132,141,10...|
00000330  1a ef 31 33 2c 31 33 31  2c 31 35 37 2c 31 33 32  |..13,131,157,132|
00000340  2c 31 34 31 2c 33 30 0d  01 18 15 f2 63 6e 28 54  |,141,30.....cn(T|
00000350  24 29 3a f2 63 6e 28 54  24 29 3a e1 0d 01 22 0c  |$):.cn(T$):...".|
00000360  dd f2 63 6e 28 54 24 29  0d 01 2c 13 f1 8a 32 30  |..cn(T$)..,...20|
00000370  2d a9 54 24 2f 32 2c bc  29 54 24 0d 01 36 05 e1  |-.T$/2,.)T$..6..|
00000380  0d 01 40 15 dd f2 41 73  73 3a 62 61 73 65 25 3d  |..@...Ass:base%=|
00000390  26 32 46 30 30 0d 01 4a  19 69 72 71 31 76 3d 26  |&2F00..J.irq1v=&|
000003a0  32 30 34 3a 6d 79 76 65  63 25 3d 26 38 45 0d 01  |204:myvec%=&8E..|
000003b0  54 18 21 26 37 30 3d 35  30 30 30 3a 54 61 62 6c  |T.!&70=5000:Tabl|
000003c0  65 3d 26 41 32 30 0d 01  5e 0d e3 49 25 3d 30 b8  |e=&A20..^..I%=0.|
000003d0  32 88 32 0d 01 68 13 50  25 3d 62 61 73 65 25 3a  |2.2..h.P%=base%:|
000003e0  5b 4f 50 54 49 25 0d 01  72 1f 4c 44 41 20 26 46  |[OPTI%..r.LDA &F|
000003f0  43 3a 50 48 41 3a 54 58  41 3a 50 48 41 3a 54 59  |C:PHA:TXA:PHA:TY|
00000400  41 3a 50 48 41 0d 01 7c  1c 4c 44 41 20 26 46 45  |A:PHA..|.LDA &FE|
00000410  34 44 3a 80 20 26 46 45  34 45 3a 80 20 23 26 32  |4D:. &FE4E:. #&2|
00000420  30 0d 01 86 0b 42 4e 45  20 44 4c 49 0d 01 90 1a  |0....BNE DLI....|
00000430  4c 44 41 20 26 46 45 34  44 3a 80 20 26 46 45 34  |LDA &FE4D:. &FE4|
00000440  45 3a 80 20 23 32 0d 01  9a 0b 42 4e 45 20 46 49  |E:. #2....BNE FI|
00000450  53 0d 01 a4 1b 2e 45 78  20 50 4c 41 3a 54 41 59  |S.....Ex PLA:TAY|
00000460  3a 50 4c 41 3a 54 41 58  3a 50 4c 41 0d 01 ae 18  |:PLA:TAX:PLA....|
00000470  53 54 41 20 26 46 43 3a  4a 4d 50 20 28 6d 79 76  |STA &FC:JMP (myv|
00000480  65 63 25 29 0d 01 b8 08  2e 46 49 53 0d 01 c2 10  |ec%).....FIS....|
00000490  4c 44 59 20 23 30 3a 2e  4c 46 49 53 0d 01 cc 22  |LDY #0:.LFIS..."|
000004a0  54 59 41 3a 41 53 4c 41  3a 41 53 4c 41 3a 41 53  |TYA:ASLA:ASLA:AS|
000004b0  4c 41 3a 41 53 4c 41 3a  53 54 41 20 54 31 0d 01  |LA:ASLA:STA T1..|
000004c0  d6 1f 4c 44 41 20 54 61  62 6c 65 2c 59 3a 84 41  |..LDA Table,Y:.A|
000004d0  20 54 31 3a 53 54 41 20  26 46 45 32 31 0d 01 e0  | T1:STA &FE21...|
000004e0  18 49 4e 59 3a 43 50 59  20 23 31 32 3a 42 4e 45  |.INY:CPY #12:BNE|
000004f0  20 4c 46 49 53 0d 01 ea  0b 4a 4d 50 20 4e 49 43  | LFIS....JMP NIC|
00000500  0d 01 f4 19 2e 44 4c 49  20 4c 44 41 20 23 30 3a  |.....DLI LDA #0:|
00000510  53 54 41 20 26 46 45 34  44 0d 01 fe 10 4c 44 59  |STA &FE4D....LDY|
00000520  20 23 30 3a 2e 4c 44 4c  49 0d 02 08 22 54 59 41  | #0:.LDLI..."TYA|
00000530  3a 41 53 4c 41 3a 41 53  4c 41 3a 41 53 4c 41 3a  |:ASLA:ASLA:ASLA:|
00000540  41 53 4c 41 3a 53 54 41  20 54 31 0d 02 12 22 4c  |ASLA:STA T1..."L|
00000550  44 41 20 54 61 62 6c 65  2b 31 32 2c 59 3a 84 41  |DA Table+12,Y:.A|
00000560  20 54 31 3a 53 54 41 20  26 46 45 32 31 0d 02 1c  | T1:STA &FE21...|
00000570  18 49 4e 59 3a 43 50 59  20 23 31 32 3a 42 4e 45  |.INY:CPY #12:BNE|
00000580  20 4c 44 4c 49 0d 02 26  08 2e 4e 49 43 0d 02 30  | LDLI..&..NIC..0|
00000590  1e 4c 44 41 20 26 46 45  34 42 3a 80 20 23 26 44  |.LDA &FE4B:. #&D|
000005a0  46 3a 53 54 41 20 26 46  45 34 42 0d 02 3a 27 4c  |F:STA &FE4B..:'L|
000005b0  44 41 20 26 37 30 3a 53  54 41 20 26 46 45 34 38  |DA &70:STA &FE48|
000005c0  3a 4c 44 41 20 26 37 31  3a 53 54 41 20 26 46 45  |:LDA &71:STA &FE|
000005d0  34 39 0d 02 44 20 4c 44  41 20 23 26 41 30 3a 53  |49..D LDA #&A0:S|
000005e0  54 41 20 26 46 45 34 44  3a 53 54 41 20 26 46 45  |TA &FE4D:STA &FE|
000005f0  34 45 0d 02 4e 0a 4a 4d  50 20 45 78 0d 02 58 0a  |4E..N.JMP Ex..X.|
00000600  2e 53 74 61 72 74 0d 02  62 1c 53 45 49 3a 4c 44  |.Start..b.SEI:LD|
00000610  41 20 69 72 71 31 76 3a  53 54 41 20 6d 79 76 65  |A irq1v:STA myve|
00000620  63 25 0d 02 6c 1c 4c 44  41 20 69 72 71 31 76 2b  |c%..l.LDA irq1v+|
00000630  31 3a 53 54 41 20 6d 79  76 65 63 25 2b 31 0d 02  |1:STA myvec%+1..|
00000640  76 1c 4c 44 41 20 23 62  61 73 65 25 83 32 35 36  |v.LDA #base%.256|
00000650  3a 53 54 41 20 69 72 71  31 76 0d 02 80 26 4c 44  |:STA irq1v...&LD|
00000660  41 20 23 62 61 73 65 25  81 32 35 36 3a 53 54 41  |A #base%.256:STA|
00000670  20 69 72 71 31 76 2b 31  3a 43 4c 49 3a 52 54 53  | irq1v+1:CLI:RTS|
00000680  0d 02 8a 0b 2e 54 31 20  4e 4f 50 0d 02 94 0f 2e  |.....T1 NOP.....|
00000690  4d 25 20 4c 44 59 20 23  32 33 0d 02 9e 17 2e 4c  |M% LDY #23.....L|
000006a0  6f 6f 70 20 4c 44 41 20  54 61 62 6c 65 2d 34 2c  |oop LDA Table-4,|
000006b0  59 0d 02 a8 1c 53 54 41  20 54 61 62 6c 65 2c 59  |Y....STA Table,Y|
000006c0  3a 44 45 59 3a 42 4e 45  20 4c 6f 6f 70 0d 02 b2  |:DEY:BNE Loop...|
000006d0  15 4c 44 41 20 26 38 30  3a 53 54 41 20 54 61 62  |.LDA &80:STA Tab|
000006e0  6c 65 0d 02 bc 17 4c 44  41 20 26 38 31 3a 53 54  |le....LDA &81:ST|
000006f0  41 20 54 61 62 6c 65 2b  31 0d 02 c6 17 4c 44 41  |A Table+1....LDA|
00000700  20 26 38 32 3a 53 54 41  20 54 61 62 6c 65 2b 32  | &82:STA Table+2|
00000710  0d 02 d0 17 4c 44 41 20  26 38 33 3a 53 54 41 20  |....LDA &83:STA |
00000720  54 61 62 6c 65 2b 33 0d  02 da 07 52 54 53 0d 02  |Table+3....RTS..|
00000730  e4 0d 5d 3a ed 3a 2a 46  58 31 36 0d 02 ee 05 e1  |..]:.:*FX16.....|
00000740  0d 02 f8 0a dd f2 56 64  75 73 0d 03 02 27 e2 31  |......Vdus...'.1|
00000750  2c 31 30 2c 32 30 2c 32  30 2c 31 36 2c 31 2c 31  |,10,20,20,16,1,1|
00000760  2c 31 2c 30 2c 30 2c 30  2c 2d 34 2c 31 32 37 2c  |,1,0,0,0,-4,127,|
00000770  30 0d 03 0c 29 e2 32 2c  30 2c 30 2c 30 2c 30 2c  |0...).2,0,0,0,0,|
00000780  30 2c 30 2c 30 2c 31 32  31 2c 2d 31 2c 2d 31 2c  |0,0,0,121,-1,-1,|
00000790  2d 31 2c 31 32 30 2c 31  32 30 0d 03 16 2f e2 33  |-1,120,120.../.3|
000007a0  2c 31 2c 2d 32 2c 2d 32  2c 2d 32 2c 32 35 35 2c  |,1,-2,-2,-2,255,|
000007b0  32 35 35 2c 32 35 35 2c  33 30 2c 2d 32 2c 2d 32  |255,255,30,-2,-2|
000007c0  2c 2d 32 2c 31 30 30 2c  35 0d 03 20 2b ef 32 33  |,-2,100,5.. +.23|
000007d0  2c 26 45 30 2c 26 30 30  2c 26 30 31 2c 26 30 37  |,&E0,&00,&01,&07|
000007e0  2c 26 31 46 2c 26 33 46  2c 26 33 46 2c 26 37 46  |,&1F,&3F,&3F,&7F|
000007f0  2c 26 37 46 0d 03 2a 2b  ef 32 33 2c 26 45 31 2c  |,&7F..*+.23,&E1,|
00000800  26 30 30 2c 26 38 30 2c  26 45 30 2c 26 46 38 2c  |&00,&80,&E0,&F8,|
00000810  26 46 43 2c 26 46 43 2c  26 46 45 2c 26 46 45 0d  |&FC,&FC,&FE,&FE.|
00000820  03 34 2b ef 32 33 2c 26  45 32 2c 26 37 46 2c 26  |.4+.23,&E2,&7F,&|
00000830  37 46 2c 26 33 46 2c 26  33 46 2c 26 31 46 2c 26  |7F,&3F,&3F,&1F,&|
00000840  30 37 2c 26 30 31 2c 26  30 30 0d 03 3e 2b ef 32  |07,&01,&00..>+.2|
00000850  33 2c 26 45 33 2c 26 46  45 2c 26 46 45 2c 26 46  |3,&E3,&FE,&FE,&F|
00000860  43 2c 26 46 43 2c 26 46  38 2c 26 45 30 2c 26 38  |C,&FC,&F8,&E0,&8|
00000870  30 2c 26 30 30 0d 03 48  05 e1 0d ff              |0,&00..H....|
0000087c