� > <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%

r LDA &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 20 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 20 0d 01  7c 1d 4c 44 41 20 26 46  |A:PHA ..|.LDA &F|
00000410  45 34 44 3a 80 20 26 46  45 34 45 3a 80 20 23 26  |E4D:. &FE4E:. #&|
00000420  32 30 20 0d 01 86 0c 42  4e 45 20 44 4c 49 20 0d  |20 ....BNE DLI .|
00000430  01 90 1b 4c 44 41 20 26  46 45 34 44 3a 80 20 26  |...LDA &FE4D:. &|
00000440  46 45 34 45 3a 80 20 23  32 20 0d 01 9a 0c 42 4e  |FE4E:. #2 ....BN|
00000450  45 20 46 49 53 20 0d 01  a4 1b 2e 45 78 20 50 4c  |E FIS .....Ex PL|
00000460  41 3a 54 41 59 3a 50 4c  41 3a 54 41 58 3a 50 4c  |A:TAY:PLA:TAX:PL|
00000470  41 0d 01 ae 18 53 54 41  20 26 46 43 3a 4a 4d 50  |A....STA &FC:JMP|
00000480  20 28 6d 79 76 65 63 25  29 0d 01 b8 08 2e 46 49  | (myvec%).....FI|
00000490  53 0d 01 c2 11 4c 44 59  20 23 30 3a 2e 4c 46 49  |S....LDY #0:.LFI|
000004a0  53 20 0d 01 cc 23 54 59  41 3a 41 53 4c 41 3a 41  |S ...#TYA:ASLA:A|
000004b0  53 4c 41 3a 41 53 4c 41  3a 41 53 4c 41 3a 53 54  |SLA:ASLA:ASLA:ST|
000004c0  41 20 54 31 20 0d 01 d6  20 4c 44 41 20 54 61 62  |A T1 ... LDA Tab|
000004d0  6c 65 2c 59 3a 84 41 20  54 31 3a 53 54 41 20 26  |le,Y:.A T1:STA &|
000004e0  46 45 32 31 20 0d 01 e0  19 49 4e 59 3a 43 50 59  |FE21 ....INY:CPY|
000004f0  20 23 31 32 3a 42 4e 45  20 4c 46 49 53 20 0d 01  | #12:BNE LFIS ..|
00000500  ea 0b 4a 4d 50 20 4e 49  43 0d 01 f4 1a 2e 44 4c  |..JMP NIC.....DL|
00000510  49 20 4c 44 41 20 23 30  3a 53 54 41 20 26 46 45  |I LDA #0:STA &FE|
00000520  34 44 20 0d 01 fe 10 4c  44 59 20 23 30 3a 2e 4c  |4D ....LDY #0:.L|
00000530  44 4c 49 0d 02 08 22 54  59 41 3a 41 53 4c 41 3a  |DLI..."TYA:ASLA:|
00000540  41 53 4c 41 3a 41 53 4c  41 3a 41 53 4c 41 3a 53  |ASLA:ASLA:ASLA:S|
00000550  54 41 20 54 31 0d 02 12  22 4c 44 41 20 54 61 62  |TA T1..."LDA Tab|
00000560  6c 65 2b 31 32 2c 59 3a  84 41 20 54 31 3a 53 54  |le+12,Y:.A T1:ST|
00000570  41 20 26 46 45 32 31 0d  02 1c 18 49 4e 59 3a 43  |A &FE21....INY:C|
00000580  50 59 20 23 31 32 3a 42  4e 45 20 4c 44 4c 49 0d  |PY #12:BNE LDLI.|
00000590  02 26 09 2e 4e 49 43 20  0d 02 30 1f 4c 44 41 20  |.&..NIC ..0.LDA |
000005a0  26 46 45 34 42 3a 80 20  23 26 44 46 3a 53 54 41  |&FE4B:. #&DF:STA|
000005b0  20 26 46 45 34 42 20 0d  02 3a 28 4c 44 41 20 26  | &FE4B ..:(LDA &|
000005c0  37 30 3a 53 54 41 20 26  46 45 34 38 3a 4c 44 41  |70:STA &FE48:LDA|
000005d0  20 26 37 31 3a 53 54 41  20 26 46 45 34 39 20 0d  | &71:STA &FE49 .|
000005e0  02 44 21 4c 44 41 20 23  26 41 30 3a 53 54 41 20  |.D!LDA #&A0:STA |
000005f0  26 46 45 34 44 3a 53 54  41 20 26 46 45 34 45 20  |&FE4D:STA &FE4E |
00000600  0d 02 4e 0a 4a 4d 50 20  45 78 0d 02 58 0b 2e 53  |..N.JMP Ex..X..S|
00000610  74 61 72 74 20 0d 02 62  1c 53 45 49 3a 4c 44 41  |tart ..b.SEI:LDA|
00000620  20 69 72 71 31 76 3a 53  54 41 20 6d 79 76 65 63  | irq1v:STA myvec|
00000630  25 0d 02 6c 1c 4c 44 41  20 69 72 71 31 76 2b 31  |%..l.LDA irq1v+1|
00000640  3a 53 54 41 20 6d 79 76  65 63 25 2b 31 0d 02 76  |:STA myvec%+1..v|
00000650  1c 4c 44 41 20 23 62 61  73 65 25 83 32 35 36 3a  |.LDA #base%.256:|
00000660  53 54 41 20 69 72 71 31  76 0d 02 80 26 4c 44 41  |STA irq1v...&LDA|
00000670  20 23 62 61 73 65 25 81  32 35 36 3a 53 54 41 20  | #base%.256:STA |
00000680  69 72 71 31 76 2b 31 3a  43 4c 49 3a 52 54 53 0d  |irq1v+1:CLI:RTS.|
00000690  02 8a 0c 2e 54 31 20 4e  4f 50 20 0d 02 94 0f 2e  |....T1 NOP .....|
000006a0  4d 25 20 4c 44 59 20 23  32 33 0d 02 9e 17 2e 4c  |M% LDY #23.....L|
000006b0  6f 6f 70 20 4c 44 41 20  54 61 62 6c 65 2d 34 2c  |oop LDA Table-4,|
000006c0  59 0d 02 a8 1c 53 54 41  20 54 61 62 6c 65 2c 59  |Y....STA Table,Y|
000006d0  3a 44 45 59 3a 42 4e 45  20 4c 6f 6f 70 0d 02 b2  |:DEY:BNE Loop...|
000006e0  15 4c 44 41 20 26 38 30  3a 53 54 41 20 54 61 62  |.LDA &80:STA Tab|
000006f0  6c 65 0d 02 bc 17 4c 44  41 20 26 38 31 3a 53 54  |le....LDA &81:ST|
00000700  41 20 54 61 62 6c 65 2b  31 0d 02 c6 17 4c 44 41  |A Table+1....LDA|
00000710  20 26 38 32 3a 53 54 41  20 54 61 62 6c 65 2b 32  | &82:STA Table+2|
00000720  0d 02 d0 17 4c 44 41 20  26 38 33 3a 53 54 41 20  |....LDA &83:STA |
00000730  54 61 62 6c 65 2b 33 0d  02 da 07 52 54 53 0d 02  |Table+3....RTS..|
00000740  e4 0d 5d 3a ed 3a 2a 46  58 31 36 0d 02 ee 06 e1  |..]:.:*FX16.....|
00000750  20 0d 02 f8 0b dd f2 56  64 75 73 20 0d 03 02 27  | ......Vdus ...'|
00000760  e2 31 2c 31 30 2c 32 30  2c 32 30 2c 31 36 2c 31  |.1,10,20,20,16,1|
00000770  2c 31 2c 31 2c 30 2c 30  2c 30 2c 2d 34 2c 31 32  |,1,1,0,0,0,-4,12|
00000780  37 2c 30 0d 03 0c 29 e2  32 2c 30 2c 30 2c 30 2c  |7,0...).2,0,0,0,|
00000790  30 2c 30 2c 30 2c 30 2c  31 32 31 2c 2d 31 2c 2d  |0,0,0,0,121,-1,-|
000007a0  31 2c 2d 31 2c 31 32 30  2c 31 32 30 0d 03 16 2f  |1,-1,120,120.../|
000007b0  e2 33 2c 31 2c 2d 32 2c  2d 32 2c 2d 32 2c 32 35  |.3,1,-2,-2,-2,25|
000007c0  35 2c 32 35 35 2c 32 35  35 2c 33 30 2c 2d 32 2c  |5,255,255,30,-2,|
000007d0  2d 32 2c 2d 32 2c 31 30  30 2c 35 0d 03 20 2b ef  |-2,-2,100,5.. +.|
000007e0  32 33 2c 26 45 30 2c 26  30 30 2c 26 30 31 2c 26  |23,&E0,&00,&01,&|
000007f0  30 37 2c 26 31 46 2c 26  33 46 2c 26 33 46 2c 26  |07,&1F,&3F,&3F,&|
00000800  37 46 2c 26 37 46 0d 03  2a 2b ef 32 33 2c 26 45  |7F,&7F..*+.23,&E|
00000810  31 2c 26 30 30 2c 26 38  30 2c 26 45 30 2c 26 46  |1,&00,&80,&E0,&F|
00000820  38 2c 26 46 43 2c 26 46  43 2c 26 46 45 2c 26 46  |8,&FC,&FC,&FE,&F|
00000830  45 0d 03 34 2b ef 32 33  2c 26 45 32 2c 26 37 46  |E..4+.23,&E2,&7F|
00000840  2c 26 37 46 2c 26 33 46  2c 26 33 46 2c 26 31 46  |,&7F,&3F,&3F,&1F|
00000850  2c 26 30 37 2c 26 30 31  2c 26 30 30 0d 03 3e 2b  |,&07,&01,&00..>+|
00000860  ef 32 33 2c 26 45 33 2c  26 46 45 2c 26 46 45 2c  |.23,&E3,&FE,&FE,|
00000870  26 46 43 2c 26 46 43 2c  26 46 38 2c 26 45 30 2c  |&FC,&FC,&F8,&E0,|
00000880  26 38 30 2c 26 30 30 0d  03 48 06 e1 20 0d ff     |&80,&00..H.. ..|
0000088f