�     >Cycle (Info9)
+� By  Christopher Bassett (mods by DCA)
� For 8-bit machines
(� (c) BAU September 1993
2:
<� file% 25,code% 200
F
�assem
P� � � 20:�:�" at line ";�:�
Z�
d � 7
n& �13,0)�(141);�(130);"Cycle Ride"
x& �13,1)�(141);�(130);"Cycle Ride"
� �13,2)�(132);�12,"_")
�, �8,3);�(129);"by Christopher Bassett"'
� �
�	 n%=0
� �
�  � name$,fn$,c1%,c2%,off%
�8  � name$<>"END" �15);�(n%+65);" - ";name$;:n%=n%+1
� � name$="END"
�+ �''"Select animation (A-";�(n%+64);")"
� �
�  k%=� � &DF
� � k%>=65 � k%<65+n%
� � 2

 �load_pic(k%-65)

 � 23;8202;0;0;0;


 �animate

"� �

,:

6� �animate

@
*FX 229,1

Jspeed%=1

T!dir%=1

^�

h p%=�(speed%)

r% � p%>48 � p%<52 speed%=(p%-49)*3

|C � p%=32 � !dir%=-!dir%:?oc%=?c%:?c%=�in_range(?oc%+!dir%*off%)

� � anim

�� p%=27

�
*FX 229,0

��

�:

�� �in_range(v%)

�*� v%<1 � v%=v%+14 � � v%>14 � v%=v%-14

�=v%

�:

�� �load_pic(a%)

�?col%=0

��

�� i%=0 � a%
 � name$,fn$,c1%,c2%,off%
�

?col%=c1%
&
?c%=14
0?oc%=?c%-off%
:� 19,15,c2%;0;
D�oscli("LOAD "+fn$+" 3000")
N�
X:
b� �oscli(line$)
l$file%=line$
vX%=file% � 256
�Y%=file% � 256
�� &FFF7
��
�:
�� �assem
�oswrch=&FFEE:osbyte=&FFF4
�$c%=&70:oc%=&71:col%=&72:dir%=&74
�� opt%=0 � 2 � 2
�P%=code%
�
[OPT opt%
�	.anim
�LDA #19
�JSR osbyte
LDA #19
JSR oswrch

LDA c%
 JSR oswrch
*LDA col%
4JSR oswrch
>
LDA #0
HJSR oswrch
RJSR oswrch
\JSR oswrch
fLDA #19
pJSR oswrch
zLDA oc%
�JSR oswrch
�
LDA #0
�JSR oswrch
�JSR oswrch
�JSR oswrch
�JSR oswrch
�LDX #c%
�JSR move_on
�LDX #oc%
�.move_on
�
LDA &00,X
�CLC
�ADC dir%
BNE not0
LDA #14
	.not0
$CMP #15
.
BNE not15
8
LDA #1
B
.not15
L
STA &00,X
VRTS
`]
j�
t�
~:
�� "Water","WatrScr",6,5,1
�� "Vortex","VortScr",6,4,1
�� "Slime","SlmeScr",2,0,7
� � "Sparkler","SparScr",3,7,1
�� "END","END",0,0,0
�

00000000  0d 00 0a 18 f4 20 20 20  20 20 3e 43 79 63 6c 65  |.....     >Cycle|
00000010  20 28 49 6e 66 6f 39 29  0d 00 14 2b f4 20 42 79  | (Info9)...+. By|
00000020  20 20 43 68 72 69 73 74  6f 70 68 65 72 20 42 61  |  Christopher Ba|
00000030  73 73 65 74 74 20 28 6d  6f 64 73 20 62 79 20 44  |ssett (mods by D|
00000040  43 41 29 0d 00 1e 18 f4  20 46 6f 72 20 38 2d 62  |CA)..... For 8-b|
00000050  69 74 20 6d 61 63 68 69  6e 65 73 0d 00 28 1c f4  |it machines..(..|
00000060  20 28 63 29 20 42 41 55  20 53 65 70 74 65 6d 62  | (c) BAU Septemb|
00000070  65 72 20 31 39 39 33 0d  00 32 05 3a 0d 00 3c 18  |er 1993..2.:..<.|
00000080  de 20 66 69 6c 65 25 20  32 35 2c 63 6f 64 65 25  |. file% 25,code%|
00000090  20 32 30 30 0d 00 46 0a  f2 61 73 73 65 6d 0d 00  | 200..F..assem..|
000000a0  50 1f ee 20 85 20 ef 20  32 30 3a f6 3a f1 22 20  |P.. . . 20:.:." |
000000b0  61 74 20 6c 69 6e 65 20  22 3b 9e 3a e0 0d 00 5a  |at line ";.:...Z|
000000c0  05 f5 0d 00 64 08 20 eb  20 37 0d 00 6e 26 20 f1  |....d. . 7..n& .|
000000d0  8a 31 33 2c 30 29 bd 28  31 34 31 29 3b bd 28 31  |.13,0).(141);.(1|
000000e0  33 30 29 3b 22 43 79 63  6c 65 20 52 69 64 65 22  |30);"Cycle Ride"|
000000f0  0d 00 78 26 20 f1 8a 31  33 2c 31 29 bd 28 31 34  |..x& ..13,1).(14|
00000100  31 29 3b bd 28 31 33 30  29 3b 22 43 79 63 6c 65  |1);.(130);"Cycle|
00000110  20 52 69 64 65 22 0d 00  82 1b 20 f1 8a 31 33 2c  | Ride".... ..13,|
00000120  32 29 bd 28 31 33 32 29  3b c4 31 32 2c 22 5f 22  |2).(132);.12,"_"|
00000130  29 0d 00 8c 2c 20 f1 8a  38 2c 33 29 3b bd 28 31  |)..., ..8,3);.(1|
00000140  32 39 29 3b 22 62 79 20  43 68 72 69 73 74 6f 70  |29);"by Christop|
00000150  68 65 72 20 42 61 73 73  65 74 74 22 27 0d 00 96  |her Bassett"'...|
00000160  06 20 f7 0d 00 a0 09 20  6e 25 3d 30 0d 00 aa 06  |. ..... n%=0....|
00000170  20 f5 0d 00 b4 1e 20 20  f3 20 6e 61 6d 65 24 2c  | .....  . name$,|
00000180  66 6e 24 2c 63 31 25 2c  63 32 25 2c 6f 66 66 25  |fn$,c1%,c2%,off%|
00000190  0d 00 be 38 20 20 e7 20  6e 61 6d 65 24 3c 3e 22  |...8  . name$<>"|
000001a0  45 4e 44 22 20 f1 8a 31  35 29 3b bd 28 6e 25 2b  |END" ..15);.(n%+|
000001b0  36 35 29 3b 22 20 2d 20  22 3b 6e 61 6d 65 24 3b  |65);" - ";name$;|
000001c0  3a 6e 25 3d 6e 25 2b 31  0d 00 c8 12 20 fd 20 6e  |:n%=n%+1.... . n|
000001d0  61 6d 65 24 3d 22 45 4e  44 22 0d 00 d2 2b 20 f1  |ame$="END"...+ .|
000001e0  27 27 22 53 65 6c 65 63  74 20 61 6e 69 6d 61 74  |''"Select animat|
000001f0  69 6f 6e 20 28 41 2d 22  3b bd 28 6e 25 2b 36 34  |ion (A-";.(n%+64|
00000200  29 3b 22 29 22 0d 00 dc  06 20 f5 0d 00 e6 10 20  |);")".... ..... |
00000210  20 6b 25 3d a5 20 80 20  26 44 46 0d 00 f0 18 20  | k%=. . &DF.... |
00000220  fd 20 6b 25 3e 3d 36 35  20 80 20 6b 25 3c 36 35  |. k%>=65 . k%<65|
00000230  2b 6e 25 0d 00 fa 08 20  eb 20 32 0d 01 04 15 20  |+n%.... . 2.... |
00000240  f2 6c 6f 61 64 5f 70 69  63 28 6b 25 2d 36 35 29  |.load_pic(k%-65)|
00000250  0d 01 0e 15 20 ef 20 32  33 3b 38 32 30 32 3b 30  |.... . 23;8202;0|
00000260  3b 30 3b 30 3b 0d 01 18  0d 20 f2 61 6e 69 6d 61  |;0;0;.... .anima|
00000270  74 65 0d 01 22 07 fd 20  a3 0d 01 2c 05 3a 0d 01  |te..".. ...,.:..|
00000280  36 0e dd 20 f2 61 6e 69  6d 61 74 65 0d 01 40 0d  |6.. .animate..@.|
00000290  2a 46 58 20 32 32 39 2c  31 0d 01 4a 0c 73 70 65  |*FX 229,1..J.spe|
000002a0  65 64 25 3d 31 0d 01 54  0b 21 64 69 72 25 3d 31  |ed%=1..T.!dir%=1|
000002b0  0d 01 5e 05 f5 0d 01 68  11 20 70 25 3d a6 28 73  |..^....h. p%=.(s|
000002c0  70 65 65 64 25 29 0d 01  72 25 20 e7 20 70 25 3e  |peed%)..r% . p%>|
000002d0  34 38 20 80 20 70 25 3c  35 32 20 73 70 65 65 64  |48 . p%<52 speed|
000002e0  25 3d 28 70 25 2d 34 39  29 2a 33 0d 01 7c 43 20  |%=(p%-49)*3..|C |
000002f0  e7 20 70 25 3d 33 32 20  8c 20 21 64 69 72 25 3d  |. p%=32 . !dir%=|
00000300  2d 21 64 69 72 25 3a 3f  6f 63 25 3d 3f 63 25 3a  |-!dir%:?oc%=?c%:|
00000310  3f 63 25 3d a4 69 6e 5f  72 61 6e 67 65 28 3f 6f  |?c%=.in_range(?o|
00000320  63 25 2b 21 64 69 72 25  2a 6f 66 66 25 29 0d 01  |c%+!dir%*off%)..|
00000330  86 0b 20 d6 20 61 6e 69  6d 0d 01 90 0b fd 20 70  |.. . anim..... p|
00000340  25 3d 32 37 0d 01 9a 0d  2a 46 58 20 32 32 39 2c  |%=27....*FX 229,|
00000350  30 0d 01 a4 05 e1 0d 01  ae 05 3a 0d 01 b8 13 dd  |0.........:.....|
00000360  20 a4 69 6e 5f 72 61 6e  67 65 28 76 25 29 0d 01  | .in_range(v%)..|
00000370  c2 2a e7 20 76 25 3c 31  20 8c 20 76 25 3d 76 25  |.*. v%<1 . v%=v%|
00000380  2b 31 34 20 8b 20 e7 20  76 25 3e 31 34 20 8c 20  |+14 . . v%>14 . |
00000390  76 25 3d 76 25 2d 31 34  0d 01 cc 07 3d 76 25 0d  |v%=v%-14....=v%.|
000003a0  01 d6 05 3a 0d 01 e0 13  dd 20 f2 6c 6f 61 64 5f  |...:..... .load_|
000003b0  70 69 63 28 61 25 29 0d  01 ea 0b 3f 63 6f 6c 25  |pic(a%)....?col%|
000003c0  3d 30 0d 01 f4 05 f7 0d  01 fe 0f e3 20 69 25 3d  |=0.......... i%=|
000003d0  30 20 b8 20 61 25 0d 02  08 1d 20 f3 20 6e 61 6d  |0 . a%.... . nam|
000003e0  65 24 2c 66 6e 24 2c 63  31 25 2c 63 32 25 2c 6f  |e$,fn$,c1%,c2%,o|
000003f0  66 66 25 0d 02 12 05 ed  0d 02 1c 0d 3f 63 6f 6c  |ff%.........?col|
00000400  25 3d 63 31 25 0d 02 26  0a 3f 63 25 3d 31 34 0d  |%=c1%..&.?c%=14.|
00000410  02 30 11 3f 6f 63 25 3d  3f 63 25 2d 6f 66 66 25  |.0.?oc%=?c%-off%|
00000420  0d 02 3a 12 ef 20 31 39  2c 31 35 2c 63 32 25 3b  |..:.. 19,15,c2%;|
00000430  30 3b 0d 02 44 1f f2 6f  73 63 6c 69 28 22 4c 4f  |0;..D..oscli("LO|
00000440  41 44 20 22 2b 66 6e 24  2b 22 20 33 30 30 30 22  |AD "+fn$+" 3000"|
00000450  29 0d 02 4e 05 e1 0d 02  58 05 3a 0d 02 62 13 dd  |)..N....X.:..b..|
00000460  20 f2 6f 73 63 6c 69 28  6c 69 6e 65 24 29 0d 02  | .oscli(line$)..|
00000470  6c 10 24 66 69 6c 65 25  3d 6c 69 6e 65 24 0d 02  |l.$file%=line$..|
00000480  76 12 58 25 3d 66 69 6c  65 25 20 83 20 32 35 36  |v.X%=file% . 256|
00000490  0d 02 80 12 59 25 3d 66  69 6c 65 25 20 81 20 32  |....Y%=file% . 2|
000004a0  35 36 0d 02 8a 0b d6 20  26 46 46 46 37 0d 02 94  |56..... &FFF7...|
000004b0  05 e1 0d 02 9e 05 3a 0d  02 a8 0c dd 20 f2 61 73  |......:..... .as|
000004c0  73 65 6d 0d 02 b2 1d 6f  73 77 72 63 68 3d 26 46  |sem....oswrch=&F|
000004d0  46 45 45 3a 6f 73 62 79  74 65 3d 26 46 46 46 34  |FEE:osbyte=&FFF4|
000004e0  0d 02 bc 24 63 25 3d 26  37 30 3a 6f 63 25 3d 26  |...$c%=&70:oc%=&|
000004f0  37 31 3a 63 6f 6c 25 3d  26 37 32 3a 64 69 72 25  |71:col%=&72:dir%|
00000500  3d 26 37 34 0d 02 c6 14  e3 20 6f 70 74 25 3d 30  |=&74..... opt%=0|
00000510  20 b8 20 32 20 88 20 32  0d 02 d0 0c 50 25 3d 63  | . 2 . 2....P%=c|
00000520  6f 64 65 25 0d 02 da 0d  5b 4f 50 54 20 6f 70 74  |ode%....[OPT opt|
00000530  25 0d 02 e4 09 2e 61 6e  69 6d 0d 02 ee 0b 4c 44  |%.....anim....LD|
00000540  41 20 23 31 39 0d 02 f8  0e 4a 53 52 20 6f 73 62  |A #19....JSR osb|
00000550  79 74 65 0d 03 02 0b 4c  44 41 20 23 31 39 0d 03  |yte....LDA #19..|
00000560  0c 0e 4a 53 52 20 6f 73  77 72 63 68 0d 03 16 0a  |..JSR oswrch....|
00000570  4c 44 41 20 63 25 0d 03  20 0e 4a 53 52 20 6f 73  |LDA c%.. .JSR os|
00000580  77 72 63 68 0d 03 2a 0c  4c 44 41 20 63 6f 6c 25  |wrch..*.LDA col%|
00000590  0d 03 34 0e 4a 53 52 20  6f 73 77 72 63 68 0d 03  |..4.JSR oswrch..|
000005a0  3e 0a 4c 44 41 20 23 30  0d 03 48 0e 4a 53 52 20  |>.LDA #0..H.JSR |
000005b0  6f 73 77 72 63 68 0d 03  52 0e 4a 53 52 20 6f 73  |oswrch..R.JSR os|
000005c0  77 72 63 68 0d 03 5c 0e  4a 53 52 20 6f 73 77 72  |wrch..\.JSR oswr|
000005d0  63 68 0d 03 66 0b 4c 44  41 20 23 31 39 0d 03 70  |ch..f.LDA #19..p|
000005e0  0e 4a 53 52 20 6f 73 77  72 63 68 0d 03 7a 0b 4c  |.JSR oswrch..z.L|
000005f0  44 41 20 6f 63 25 0d 03  84 0e 4a 53 52 20 6f 73  |DA oc%....JSR os|
00000600  77 72 63 68 0d 03 8e 0a  4c 44 41 20 23 30 0d 03  |wrch....LDA #0..|
00000610  98 0e 4a 53 52 20 6f 73  77 72 63 68 0d 03 a2 0e  |..JSR oswrch....|
00000620  4a 53 52 20 6f 73 77 72  63 68 0d 03 ac 0e 4a 53  |JSR oswrch....JS|
00000630  52 20 6f 73 77 72 63 68  0d 03 b6 0e 4a 53 52 20  |R oswrch....JSR |
00000640  6f 73 77 72 63 68 0d 03  c0 0b 4c 44 58 20 23 63  |oswrch....LDX #c|
00000650  25 0d 03 ca 0f 4a 53 52  20 6d 6f 76 65 5f 6f 6e  |%....JSR move_on|
00000660  0d 03 d4 0c 4c 44 58 20  23 6f 63 25 0d 03 de 0c  |....LDX #oc%....|
00000670  2e 6d 6f 76 65 5f 6f 6e  0d 03 e8 0d 4c 44 41 20  |.move_on....LDA |
00000680  26 30 30 2c 58 0d 03 f2  07 43 4c 43 0d 03 fc 0c  |&00,X....CLC....|
00000690  41 44 43 20 64 69 72 25  0d 04 06 0c 42 4e 45 20  |ADC dir%....BNE |
000006a0  6e 6f 74 30 0d 04 10 0b  4c 44 41 20 23 31 34 0d  |not0....LDA #14.|
000006b0  04 1a 09 2e 6e 6f 74 30  0d 04 24 0b 43 4d 50 20  |....not0..$.CMP |
000006c0  23 31 35 0d 04 2e 0d 42  4e 45 20 6e 6f 74 31 35  |#15....BNE not15|
000006d0  0d 04 38 0a 4c 44 41 20  23 31 0d 04 42 0a 2e 6e  |..8.LDA #1..B..n|
000006e0  6f 74 31 35 0d 04 4c 0d  53 54 41 20 26 30 30 2c  |ot15..L.STA &00,|
000006f0  58 0d 04 56 07 52 54 53  0d 04 60 05 5d 0d 04 6a  |X..V.RTS..`.]..j|
00000700  05 ed 0d 04 74 05 e1 0d  04 7e 05 3a 0d 04 88 1d  |....t....~.:....|
00000710  dc 20 22 57 61 74 65 72  22 2c 22 57 61 74 72 53  |. "Water","WatrS|
00000720  63 72 22 2c 36 2c 35 2c  31 0d 04 92 1e dc 20 22  |cr",6,5,1..... "|
00000730  56 6f 72 74 65 78 22 2c  22 56 6f 72 74 53 63 72  |Vortex","VortScr|
00000740  22 2c 36 2c 34 2c 31 0d  04 9c 1d dc 20 22 53 6c  |",6,4,1..... "Sl|
00000750  69 6d 65 22 2c 22 53 6c  6d 65 53 63 72 22 2c 32  |ime","SlmeScr",2|
00000760  2c 30 2c 37 0d 04 a6 20  dc 20 22 53 70 61 72 6b  |,0,7... . "Spark|
00000770  6c 65 72 22 2c 22 53 70  61 72 53 63 72 22 2c 33  |ler","SparScr",3|
00000780  2c 37 2c 31 0d 04 b0 17  dc 20 22 45 4e 44 22 2c  |,7,1..... "END",|
00000790  22 45 4e 44 22 2c 30 2c  30 2c 30 0d ff           |"END",0,0,0..|
0000079d