Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » EightBit/Cycle

EightBit/Cycle

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 » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo
Filename: EightBit/Cycle
Read OK: ✔
File size: 072C bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM     >Cycle (Info4)
   20REM By  Christopher Bassett
   30REM For 8-bit machines
   40REM (c) BAU August 1993
   50:
   60DIM file% 25,code% 100
   70PROCassem
   80ON ERROR VDU 20:REPORT:PRINT" at line ";ERL:END
   90REPEAT
  100 MODE 7
  110 train%=FALSE
  120 PRINTTAB(13,0)CHR$(141);CHR$(130);"Cycle Ride"
  130 PRINTTAB(13,1)CHR$(141);CHR$(130);"Cycle Ride"
  140 PRINTTAB(13,2)CHR$(132);STRING$(12,"_")
  150 PRINTTAB(8,3);CHR$(129);"by Christopher Bassett"'
  160 RESTORE
  170 n%=0
  180 REPEAT
  190  READ name$,fn$,c1%,c2%
  200  IF name$<>"END" PRINTTAB(15);CHR$(n%+65);" - ";name$;:n%=n%+1
  210 UNTIL name$="END"
  220 PRINT''"Select animation (A-";CHR$(n%+64);")"
  230 REPEAT
  240  k%=GET AND &DF
  250 UNTIL k%>=65 AND k%<65+n%
  260 MODE 2
  270 PROCload_pic(k%-65)
  280 VDU 23;8202;0;0;0;
  290 PROCanimate
  300UNTIL FALSE
  310:
  320DEF PROCanimate
  330*FX 229,1
  340speed%=1
  350?dir%=1
  360REPEAT
  370 IF train% AND ?c%=1 THEN SOUND 0,-8,6,speed%+1
  380 pause$=INKEY$(speed%)
  390 val%=VAL(pause$)
  400 IF val%>0 AND val%<4 THEN speed%=(val%*3)-3
  410 IF pause$=" " THEN ?dir%=-?dir%
  420 CALL anim
  430UNTIL ASC(pause$)=27
  440*FX 229,0
  450ENDPROC
  460:
  470DEF PROCload_pic(a%)
  480?col%=0
  490RESTORE
  500FOR i%=0 TO a%
  510 READ name$,fn$,c1%,c2%
  520NEXT
  530?col%=c1%:VDU 19,15,c2%;0;
  540IF name$="Train" THEN train%=TRUE
  550PROCoscli("LOAD "+fn$+" 3000")
  560ENDPROC
  570:
  580DEF PROCoscli(line$)
  590$file%=line$
  600X%=file% MOD 256
  610Y%=file% DIV 256
  620CALL &FFF7
  630ENDPROC
  640:
  650DEF PROCassem
  660oswrch=&FFEE:osbyte=&FFF4
  670c%=&70:oc%=&71:dir%=&72:col%=&73
  680?c%=1
  690?oc%=0
  700FOR opt%=0 TO 2 STEP 2
  710P%=code%
  720[OPT opt%
  730.anim
  740LDA #19
  750JSR osbyte
  760LDA #19
  770JSR oswrch
  780LDA c%
  790JSR oswrch
  800LDA col%
  810JSR oswrch
  820LDA #0
  830JSR oswrch
  840JSR oswrch
  850JSR oswrch
  860LDA #19
  870JSR oswrch
  880LDA oc%
  890JSR oswrch
  900LDA #0
  910JSR oswrch
  920JSR oswrch
  930JSR oswrch
  940JSR oswrch
  950LDA c%
  960STA oc%
  970CLC
  980LDA c%
  990ADC dir%
 1000STA c%
 1010BNE rest
 1020LDA #14
 1030STA c%
 1040.rest
 1050CMP #15
 1060BNE end
 1070LDA #1
 1080STA c%
 1090.end
 1100RTS
 1110]
 1120NEXT
 1130ENDPROC
 1140:
 1150DATA "Water","WatrScr",6,5
 1160DATA "Vortex","VortScr",6,4
 1170DATA "END","END",0,0


�     >Cycle (Info4)
� By  Christopher Bassett
� For 8-bit machines
(� (c) BAU August 1993
2:
<� file% 25,code% 100
F
�assem
P� � � 20:�:�" at line ";�:�
Z�
d � 7
n
 train%=�
x& �13,0)�(141);�(130);"Cycle Ride"
�& �13,1)�(141);�(130);"Cycle Ride"
� �13,2)�(132);�12,"_")
�, �8,3);�(129);"by Christopher Bassett"'
� �
�	 n%=0
� �
�  � name$,fn$,c1%,c2%
�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
J
*FX 229,1
Tspeed%=1
^?dir%=1
h�
r) � train% � ?c%=1 � � 0,-8,6,speed%+1
| pause$=�(speed%)
� val%=�(pause$)
�* � val%>0 � val%<4 � speed%=(val%*3)-3
�  � pause$=" " � ?dir%=-?dir%
� � anim
�� �(pause$)=27
�
*FX 229,0
��
�:
�� �load_pic(a%)
�?col%=0
��
�� i%=0 � a%
� � name$,fn$,c1%,c2%
�
?col%=c1%:� 19,15,c2%;0;
� name$="Train" � train%=�
&�oscli("LOAD "+fn$+" 3000")
0�
::
D� �oscli(line$)
N$file%=line$
XX%=file% � 256
bY%=file% � 256
l� &FFF7
v�
�:
�� �assem
�oswrch=&FFEE:osbyte=&FFF4
�$c%=&70:oc%=&71:dir%=&72:col%=&73
�	?c%=1
�
?oc%=0
�� opt%=0 � 2 � 2
�P%=code%
�
[OPT opt%
�	.anim
�LDA #19
�JSR osbyte
�LDA #19
JSR oswrch

LDA c%
JSR oswrch
 LDA col%
*JSR oswrch
4
LDA #0
>JSR oswrch
HJSR oswrch
RJSR oswrch
\LDA #19
fJSR oswrch
pLDA oc%
zJSR oswrch
�
LDA #0
�JSR oswrch
�JSR oswrch
�JSR oswrch
�JSR oswrch
�
LDA c%
�STA oc%
�CLC
�
LDA c%
�ADC dir%
�
STA c%
�BNE rest
�LDA #14

STA c%
	.rest
CMP #15
$BNE end
.
LDA #1
8
STA c%
B.end
LRTS
V]
`�
j�
t:
~� "Water","WatrScr",6,5
�� "Vortex","VortScr",6,4
�� "END","END",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 34 29  0d 00 14 1d f4 20 42 79  | (Info4)..... 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 0d 00 1e  18 f4 20 46 6f 72 20 38  |ssett..... For 8|
00000040  2d 62 69 74 20 6d 61 63  68 69 6e 65 73 0d 00 28  |-bit machines..(|
00000050  19 f4 20 28 63 29 20 42  41 55 20 41 75 67 75 73  |.. (c) BAU Augus|
00000060  74 20 31 39 39 33 0d 00  32 05 3a 0d 00 3c 18 de  |t 1993..2.:..<..|
00000070  20 66 69 6c 65 25 20 32  35 2c 63 6f 64 65 25 20  | file% 25,code% |
00000080  31 30 30 0d 00 46 0a f2  61 73 73 65 6d 0d 00 50  |100..F..assem..P|
00000090  1f ee 20 85 20 ef 20 32  30 3a f6 3a f1 22 20 61  |.. . . 20:.:." a|
000000a0  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 00 5a 05  |t line ";.:...Z.|
000000b0  f5 0d 00 64 08 20 eb 20  37 0d 00 6e 0d 20 74 72  |...d. . 7..n. tr|
000000c0  61 69 6e 25 3d a3 0d 00  78 26 20 f1 8a 31 33 2c  |ain%=...x& ..13,|
000000d0  30 29 bd 28 31 34 31 29  3b bd 28 31 33 30 29 3b  |0).(141);.(130);|
000000e0  22 43 79 63 6c 65 20 52  69 64 65 22 0d 00 82 26  |"Cycle Ride"...&|
000000f0  20 f1 8a 31 33 2c 31 29  bd 28 31 34 31 29 3b bd  | ..13,1).(141);.|
00000100  28 31 33 30 29 3b 22 43  79 63 6c 65 20 52 69 64  |(130);"Cycle Rid|
00000110  65 22 0d 00 8c 1b 20 f1  8a 31 33 2c 32 29 bd 28  |e".... ..13,2).(|
00000120  31 33 32 29 3b c4 31 32  2c 22 5f 22 29 0d 00 96  |132);.12,"_")...|
00000130  2c 20 f1 8a 38 2c 33 29  3b bd 28 31 32 39 29 3b  |, ..8,3);.(129);|
00000140  22 62 79 20 43 68 72 69  73 74 6f 70 68 65 72 20  |"by Christopher |
00000150  42 61 73 73 65 74 74 22  27 0d 00 a0 06 20 f7 0d  |Bassett"'.... ..|
00000160  00 aa 09 20 6e 25 3d 30  0d 00 b4 06 20 f5 0d 00  |... n%=0.... ...|
00000170  be 19 20 20 f3 20 6e 61  6d 65 24 2c 66 6e 24 2c  |..  . name$,fn$,|
00000180  63 31 25 2c 63 32 25 0d  00 c8 38 20 20 e7 20 6e  |c1%,c2%...8  . n|
00000190  61 6d 65 24 3c 3e 22 45  4e 44 22 20 f1 8a 31 35  |ame$<>"END" ..15|
000001a0  29 3b bd 28 6e 25 2b 36  35 29 3b 22 20 2d 20 22  |);.(n%+65);" - "|
000001b0  3b 6e 61 6d 65 24 3b 3a  6e 25 3d 6e 25 2b 31 0d  |;name$;:n%=n%+1.|
000001c0  00 d2 12 20 fd 20 6e 61  6d 65 24 3d 22 45 4e 44  |... . name$="END|
000001d0  22 0d 00 dc 2b 20 f1 27  27 22 53 65 6c 65 63 74  |"...+ .''"Select|
000001e0  20 61 6e 69 6d 61 74 69  6f 6e 20 28 41 2d 22 3b  | animation (A-";|
000001f0  bd 28 6e 25 2b 36 34 29  3b 22 29 22 0d 00 e6 06  |.(n%+64);")"....|
00000200  20 f5 0d 00 f0 10 20 20  6b 25 3d a5 20 80 20 26  | .....  k%=. . &|
00000210  44 46 0d 00 fa 18 20 fd  20 6b 25 3e 3d 36 35 20  |DF.... . k%>=65 |
00000220  80 20 6b 25 3c 36 35 2b  6e 25 0d 01 04 08 20 eb  |. k%<65+n%.... .|
00000230  20 32 0d 01 0e 15 20 f2  6c 6f 61 64 5f 70 69 63  | 2.... .load_pic|
00000240  28 6b 25 2d 36 35 29 0d  01 18 15 20 ef 20 32 33  |(k%-65).... . 23|
00000250  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 01 22 0d  |;8202;0;0;0;..".|
00000260  20 f2 61 6e 69 6d 61 74  65 0d 01 2c 07 fd 20 a3  | .animate..,.. .|
00000270  0d 01 36 05 3a 0d 01 40  0e dd 20 f2 61 6e 69 6d  |..6.:..@.. .anim|
00000280  61 74 65 0d 01 4a 0d 2a  46 58 20 32 32 39 2c 31  |ate..J.*FX 229,1|
00000290  0d 01 54 0c 73 70 65 65  64 25 3d 31 0d 01 5e 0b  |..T.speed%=1..^.|
000002a0  3f 64 69 72 25 3d 31 0d  01 68 05 f5 0d 01 72 29  |?dir%=1..h....r)|
000002b0  20 e7 20 74 72 61 69 6e  25 20 80 20 3f 63 25 3d  | . train% . ?c%=|
000002c0  31 20 8c 20 d4 20 30 2c  2d 38 2c 36 2c 73 70 65  |1 . . 0,-8,6,spe|
000002d0  65 64 25 2b 31 0d 01 7c  15 20 70 61 75 73 65 24  |ed%+1..|. pause$|
000002e0  3d bf 28 73 70 65 65 64  25 29 0d 01 86 13 20 76  |=.(speed%).... v|
000002f0  61 6c 25 3d bb 28 70 61  75 73 65 24 29 0d 01 90  |al%=.(pause$)...|
00000300  2a 20 e7 20 76 61 6c 25  3e 30 20 80 20 76 61 6c  |* . val%>0 . val|
00000310  25 3c 34 20 8c 20 73 70  65 65 64 25 3d 28 76 61  |%<4 . speed%=(va|
00000320  6c 25 2a 33 29 2d 33 0d  01 9a 20 20 e7 20 70 61  |l%*3)-3...  . pa|
00000330  75 73 65 24 3d 22 20 22  20 8c 20 3f 64 69 72 25  |use$=" " . ?dir%|
00000340  3d 2d 3f 64 69 72 25 0d  01 a4 0b 20 d6 20 61 6e  |=-?dir%.... . an|
00000350  69 6d 0d 01 ae 12 fd 20  97 28 70 61 75 73 65 24  |im..... .(pause$|
00000360  29 3d 32 37 0d 01 b8 0d  2a 46 58 20 32 32 39 2c  |)=27....*FX 229,|
00000370  30 0d 01 c2 05 e1 0d 01  cc 05 3a 0d 01 d6 13 dd  |0.........:.....|
00000380  20 f2 6c 6f 61 64 5f 70  69 63 28 61 25 29 0d 01  | .load_pic(a%)..|
00000390  e0 0b 3f 63 6f 6c 25 3d  30 0d 01 ea 05 f7 0d 01  |..?col%=0.......|
000003a0  f4 0f e3 20 69 25 3d 30  20 b8 20 61 25 0d 01 fe  |... i%=0 . a%...|
000003b0  18 20 f3 20 6e 61 6d 65  24 2c 66 6e 24 2c 63 31  |. . name$,fn$,c1|
000003c0  25 2c 63 32 25 0d 02 08  05 ed 0d 02 12 1c 3f 63  |%,c2%.........?c|
000003d0  6f 6c 25 3d 63 31 25 3a  ef 20 31 39 2c 31 35 2c  |ol%=c1%:. 19,15,|
000003e0  63 32 25 3b 30 3b 0d 02  1c 1e e7 20 6e 61 6d 65  |c2%;0;..... name|
000003f0  24 3d 22 54 72 61 69 6e  22 20 8c 20 74 72 61 69  |$="Train" . trai|
00000400  6e 25 3d b9 0d 02 26 1f  f2 6f 73 63 6c 69 28 22  |n%=...&..oscli("|
00000410  4c 4f 41 44 20 22 2b 66  6e 24 2b 22 20 33 30 30  |LOAD "+fn$+" 300|
00000420  30 22 29 0d 02 30 05 e1  0d 02 3a 05 3a 0d 02 44  |0")..0....:.:..D|
00000430  13 dd 20 f2 6f 73 63 6c  69 28 6c 69 6e 65 24 29  |.. .oscli(line$)|
00000440  0d 02 4e 10 24 66 69 6c  65 25 3d 6c 69 6e 65 24  |..N.$file%=line$|
00000450  0d 02 58 12 58 25 3d 66  69 6c 65 25 20 83 20 32  |..X.X%=file% . 2|
00000460  35 36 0d 02 62 12 59 25  3d 66 69 6c 65 25 20 81  |56..b.Y%=file% .|
00000470  20 32 35 36 0d 02 6c 0b  d6 20 26 46 46 46 37 0d  | 256..l.. &FFF7.|
00000480  02 76 05 e1 0d 02 80 05  3a 0d 02 8a 0c dd 20 f2  |.v......:..... .|
00000490  61 73 73 65 6d 0d 02 94  1d 6f 73 77 72 63 68 3d  |assem....oswrch=|
000004a0  26 46 46 45 45 3a 6f 73  62 79 74 65 3d 26 46 46  |&FFEE:osbyte=&FF|
000004b0  46 34 0d 02 9e 24 63 25  3d 26 37 30 3a 6f 63 25  |F4...$c%=&70:oc%|
000004c0  3d 26 37 31 3a 64 69 72  25 3d 26 37 32 3a 63 6f  |=&71:dir%=&72:co|
000004d0  6c 25 3d 26 37 33 0d 02  a8 09 3f 63 25 3d 31 0d  |l%=&73....?c%=1.|
000004e0  02 b2 0a 3f 6f 63 25 3d  30 0d 02 bc 14 e3 20 6f  |...?oc%=0..... o|
000004f0  70 74 25 3d 30 20 b8 20  32 20 88 20 32 0d 02 c6  |pt%=0 . 2 . 2...|
00000500  0c 50 25 3d 63 6f 64 65  25 0d 02 d0 0d 5b 4f 50  |.P%=code%....[OP|
00000510  54 20 6f 70 74 25 0d 02  da 09 2e 61 6e 69 6d 0d  |T opt%.....anim.|
00000520  02 e4 0b 4c 44 41 20 23  31 39 0d 02 ee 0e 4a 53  |...LDA #19....JS|
00000530  52 20 6f 73 62 79 74 65  0d 02 f8 0b 4c 44 41 20  |R osbyte....LDA |
00000540  23 31 39 0d 03 02 0e 4a  53 52 20 6f 73 77 72 63  |#19....JSR oswrc|
00000550  68 0d 03 0c 0a 4c 44 41  20 63 25 0d 03 16 0e 4a  |h....LDA c%....J|
00000560  53 52 20 6f 73 77 72 63  68 0d 03 20 0c 4c 44 41  |SR oswrch.. .LDA|
00000570  20 63 6f 6c 25 0d 03 2a  0e 4a 53 52 20 6f 73 77  | col%..*.JSR osw|
00000580  72 63 68 0d 03 34 0a 4c  44 41 20 23 30 0d 03 3e  |rch..4.LDA #0..>|
00000590  0e 4a 53 52 20 6f 73 77  72 63 68 0d 03 48 0e 4a  |.JSR oswrch..H.J|
000005a0  53 52 20 6f 73 77 72 63  68 0d 03 52 0e 4a 53 52  |SR oswrch..R.JSR|
000005b0  20 6f 73 77 72 63 68 0d  03 5c 0b 4c 44 41 20 23  | oswrch..\.LDA #|
000005c0  31 39 0d 03 66 0e 4a 53  52 20 6f 73 77 72 63 68  |19..f.JSR oswrch|
000005d0  0d 03 70 0b 4c 44 41 20  6f 63 25 0d 03 7a 0e 4a  |..p.LDA oc%..z.J|
000005e0  53 52 20 6f 73 77 72 63  68 0d 03 84 0a 4c 44 41  |SR oswrch....LDA|
000005f0  20 23 30 0d 03 8e 0e 4a  53 52 20 6f 73 77 72 63  | #0....JSR oswrc|
00000600  68 0d 03 98 0e 4a 53 52  20 6f 73 77 72 63 68 0d  |h....JSR oswrch.|
00000610  03 a2 0e 4a 53 52 20 6f  73 77 72 63 68 0d 03 ac  |...JSR oswrch...|
00000620  0e 4a 53 52 20 6f 73 77  72 63 68 0d 03 b6 0a 4c  |.JSR oswrch....L|
00000630  44 41 20 63 25 0d 03 c0  0b 53 54 41 20 6f 63 25  |DA c%....STA oc%|
00000640  0d 03 ca 07 43 4c 43 0d  03 d4 0a 4c 44 41 20 63  |....CLC....LDA c|
00000650  25 0d 03 de 0c 41 44 43  20 64 69 72 25 0d 03 e8  |%....ADC dir%...|
00000660  0a 53 54 41 20 63 25 0d  03 f2 0c 42 4e 45 20 72  |.STA c%....BNE r|
00000670  65 73 74 0d 03 fc 0b 4c  44 41 20 23 31 34 0d 04  |est....LDA #14..|
00000680  06 0a 53 54 41 20 63 25  0d 04 10 09 2e 72 65 73  |..STA c%.....res|
00000690  74 0d 04 1a 0b 43 4d 50  20 23 31 35 0d 04 24 0b  |t....CMP #15..$.|
000006a0  42 4e 45 20 65 6e 64 0d  04 2e 0a 4c 44 41 20 23  |BNE end....LDA #|
000006b0  31 0d 04 38 0a 53 54 41  20 63 25 0d 04 42 08 2e  |1..8.STA c%..B..|
000006c0  65 6e 64 0d 04 4c 07 52  54 53 0d 04 56 05 5d 0d  |end..L.RTS..V.].|
000006d0  04 60 05 ed 0d 04 6a 05  e1 0d 04 74 05 3a 0d 04  |.`....j....t.:..|
000006e0  7e 1b dc 20 22 57 61 74  65 72 22 2c 22 57 61 74  |~.. "Water","Wat|
000006f0  72 53 63 72 22 2c 36 2c  35 0d 04 88 1c dc 20 22  |rScr",6,5..... "|
00000700  56 6f 72 74 65 78 22 2c  22 56 6f 72 74 53 63 72  |Vortex","VortScr|
00000710  22 2c 36 2c 34 0d 04 92  15 dc 20 22 45 4e 44 22  |",6,4..... "END"|
00000720  2c 22 45 4e 44 22 2c 30  2c 30 0d ff              |,"END",0,0..|
0000072c

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .