Home » Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Graphics/Car

dcfprog3/Graphics/Car

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 » Personal collection » Acorn hard disk » misc » misc3
Filename: dcfprog3/Graphics/Car
Read OK:
File size: 0498 bytes
Load address: 0000
Exec address: 0000
File contents
   30 MODE 1
   40 GCOL 0,129
   50 CLS
   60 PRINT:PRINT"CALCULATING. . . ."
   80 DIM T(72,2)
   90 FOR I=0 TO 72
  100 LET T(I,1)=COS(RAD(I*5))
  110 T(I,2)=SIN(RAD(I*5))
  120 PRINT TAB(5,5) I
  130 NEXT I
  140 CLG
  150 FOR P=0 TO 28
  160 READ M1,M2,IC,XC,YC,CL
  165 XC=XC+150:YC=YC+150
  170 GOSUB 200
  180 NEXT P
  190 GOTO 190
  200 
  220 GCOL 0,CL
  230 MOVE XC,YC
  240 DRAW XC+M1*T(IC/5,1),YC+M1*T(IC/5,2)
  250 FOR A=0 TO 360 STEP 15
  260 MOVE XC,YC
  270 X=M1*T(A/5,1)
  280 Y=M2*T(A/5,2)
  290 XT=X*T(IC/5,1)-Y*T(IC/5,2)+XC
  300 YT=X*T(IC/5,2)+Y*T(IC/5,1)+YC
  310 PLOT 85,XT,YT
  320 NEXT A
  330 RETURN
  340 DATA 125,125,0,175,175,0
  350 DATA 125,125,0,675,175,0
  360 DATA 125,125,0,425,175,0
  370 DATA 50,50,0,300,100,0
  380 DATA 50,50,0,550,100,0
  390 DATA 75,75,0,425,375,0
  400 DATA 75,75,0,325,325,0
  410 DATA 75,75,0,525,325,0
  420 DATA 10,10,0,300,150,0
  430 DATA 10,10,0,550,150,0
  440 DATA 75,75,0,575,260,0
  450 DATA 75,75,0,275,260,0
  460 DATA 10,10,0,300,150,0
  470 DATA 10,10,0,550,150,0
  480 DATA 50,50,0,125,25,0
  490 DATA 40,40,0,125,25,3
  500 DATA 50,50,0,150,25,0
  510 DATA 40,40,0,150,25,3
  520 DATA 50,50,0,625,25,0
  530 DATA 40,40,0,625,25,3
  540 DATA 50,50,0,650,25,0
  550 DATA 40,40,0,650,25,3
  560 DATA 25,25,0,775,225,2
  570 DATA 50,50,0,425,350,3
  580 DATA 50,50,0,300,250,3
  590 DATA 50,50,0,550,250,3
  600 DATA 15,15,0,735,135,1
  610 DATA 15,15,0,115,165,1
  620 DATA 10,25,0,570,210,0
 � 1
( � 0,129
2 �
< �:�"CALCULATING. . . ."
P � T(72,2)
Z � I=0 � 72
d � T(I,1)=�(�(I*5))
n T(I,2)=�(�(I*5))
x � �5,5) I
� � I
� �
� � P=0 � 28
� � M1,M2,IC,XC,YC,CL
� XC=XC+150:YC=YC+150
� � �dH@
� � P
� � �t~@
� 
� � 0,CL
� � XC,YC
�& � XC+M1*T(IC/5,1),YC+M1*T(IC/5,2)
� � A=0 � 360 � 15
 � XC,YC
 X=M1*T(A/5,1)
 Y=M2*T(A/5,2)
"" XT=X*T(IC/5,1)-Y*T(IC/5,2)+XC
," YT=X*T(IC/5,2)+Y*T(IC/5,1)+YC
6 � 85,XT,YT
@ � A
J �
T � 125,125,0,175,175,0
^ � 125,125,0,675,175,0
h � 125,125,0,425,175,0
r � 50,50,0,300,100,0
| � 50,50,0,550,100,0
� � 75,75,0,425,375,0
� � 75,75,0,325,325,0
� � 75,75,0,525,325,0
� � 10,10,0,300,150,0
� � 10,10,0,550,150,0
� � 75,75,0,575,260,0
� � 75,75,0,275,260,0
� � 10,10,0,300,150,0
� � 10,10,0,550,150,0
� � 50,50,0,125,25,0
� � 40,40,0,125,25,3
� � 50,50,0,150,25,0
� � 40,40,0,150,25,3
 � 50,50,0,625,25,0
 � 40,40,0,625,25,3
 � 50,50,0,650,25,0
& � 40,40,0,650,25,3
0 � 25,25,0,775,225,2
: � 50,50,0,425,350,3
D � 50,50,0,300,250,3
N � 50,50,0,550,250,3
X � 15,15,0,735,135,1
b � 15,15,0,115,165,1
l � 10,25,0,570,210,0
�
00000000  0d 00 1e 08 20 eb 20 31  0d 00 28 0c 20 e6 20 30  |.... . 1..(. . 0|
00000010  2c 31 32 39 0d 00 32 06  20 db 0d 00 3c 1c 20 f1  |,129..2. ...<. .|
00000020  3a f1 22 43 41 4c 43 55  4c 41 54 49 4e 47 2e 20  |:."CALCULATING. |
00000030  2e 20 2e 20 2e 22 0d 00  50 0e 20 de 20 54 28 37  |. . ."..P. . T(7|
00000040  32 2c 32 29 0d 00 5a 0f  20 e3 20 49 3d 30 20 b8  |2,2)..Z. . I=0 .|
00000050  20 37 32 0d 00 64 17 20  e9 20 54 28 49 2c 31 29  | 72..d. . T(I,1)|
00000060  3d 9b 28 b2 28 49 2a 35  29 29 0d 00 6e 15 20 54  |=.(.(I*5))..n. T|
00000070  28 49 2c 32 29 3d b5 28  b2 28 49 2a 35 29 29 0d  |(I,2)=.(.(I*5)).|
00000080  00 78 0e 20 f1 20 8a 35  2c 35 29 20 49 0d 00 82  |.x. . .5,5) I...|
00000090  08 20 ed 20 49 0d 00 8c  06 20 da 0d 00 96 0f 20  |. . I.... ..... |
000000a0  e3 20 50 3d 30 20 b8 20  32 38 0d 00 a0 18 20 f3  |. P=0 . 28.... .|
000000b0  20 4d 31 2c 4d 32 2c 49  43 2c 58 43 2c 59 43 2c  | M1,M2,IC,XC,YC,|
000000c0  43 4c 0d 00 a5 18 20 58  43 3d 58 43 2b 31 35 30  |CL.... XC=XC+150|
000000d0  3a 59 43 3d 59 43 2b 31  35 30 0d 00 aa 0b 20 e4  |:YC=YC+150.... .|
000000e0  20 8d 64 48 40 0d 00 b4  08 20 ed 20 50 0d 00 be  | .dH@.... . P...|
000000f0  0b 20 e5 20 8d 74 7e 40  0d 00 c8 05 20 0d 00 dc  |. . .t~@.... ...|
00000100  0b 20 e6 20 30 2c 43 4c  0d 00 e6 0c 20 ec 20 58  |. . 0,CL.... . X|
00000110  43 2c 59 43 0d 00 f0 26  20 df 20 58 43 2b 4d 31  |C,YC...& . XC+M1|
00000120  2a 54 28 49 43 2f 35 2c  31 29 2c 59 43 2b 4d 31  |*T(IC/5,1),YC+M1|
00000130  2a 54 28 49 43 2f 35 2c  32 29 0d 00 fa 15 20 e3  |*T(IC/5,2).... .|
00000140  20 41 3d 30 20 b8 20 33  36 30 20 88 20 31 35 0d  | A=0 . 360 . 15.|
00000150  01 04 0c 20 ec 20 58 43  2c 59 43 0d 01 0e 12 20  |... . XC,YC.... |
00000160  58 3d 4d 31 2a 54 28 41  2f 35 2c 31 29 0d 01 18  |X=M1*T(A/5,1)...|
00000170  12 20 59 3d 4d 32 2a 54  28 41 2f 35 2c 32 29 0d  |. Y=M2*T(A/5,2).|
00000180  01 22 22 20 58 54 3d 58  2a 54 28 49 43 2f 35 2c  |."" XT=X*T(IC/5,|
00000190  31 29 2d 59 2a 54 28 49  43 2f 35 2c 32 29 2b 58  |1)-Y*T(IC/5,2)+X|
000001a0  43 0d 01 2c 22 20 59 54  3d 58 2a 54 28 49 43 2f  |C..," YT=X*T(IC/|
000001b0  35 2c 32 29 2b 59 2a 54  28 49 43 2f 35 2c 31 29  |5,2)+Y*T(IC/5,1)|
000001c0  2b 59 43 0d 01 36 0f 20  f0 20 38 35 2c 58 54 2c  |+YC..6. . 85,XT,|
000001d0  59 54 0d 01 40 08 20 ed  20 41 0d 01 4a 06 20 f8  |YT..@. . A..J. .|
000001e0  0d 01 54 1a 20 dc 20 31  32 35 2c 31 32 35 2c 30  |..T. . 125,125,0|
000001f0  2c 31 37 35 2c 31 37 35  2c 30 0d 01 5e 1a 20 dc  |,175,175,0..^. .|
00000200  20 31 32 35 2c 31 32 35  2c 30 2c 36 37 35 2c 31  | 125,125,0,675,1|
00000210  37 35 2c 30 0d 01 68 1a  20 dc 20 31 32 35 2c 31  |75,0..h. . 125,1|
00000220  32 35 2c 30 2c 34 32 35  2c 31 37 35 2c 30 0d 01  |25,0,425,175,0..|
00000230  72 18 20 dc 20 35 30 2c  35 30 2c 30 2c 33 30 30  |r. . 50,50,0,300|
00000240  2c 31 30 30 2c 30 0d 01  7c 18 20 dc 20 35 30 2c  |,100,0..|. . 50,|
00000250  35 30 2c 30 2c 35 35 30  2c 31 30 30 2c 30 0d 01  |50,0,550,100,0..|
00000260  86 18 20 dc 20 37 35 2c  37 35 2c 30 2c 34 32 35  |.. . 75,75,0,425|
00000270  2c 33 37 35 2c 30 0d 01  90 18 20 dc 20 37 35 2c  |,375,0.... . 75,|
00000280  37 35 2c 30 2c 33 32 35  2c 33 32 35 2c 30 0d 01  |75,0,325,325,0..|
00000290  9a 18 20 dc 20 37 35 2c  37 35 2c 30 2c 35 32 35  |.. . 75,75,0,525|
000002a0  2c 33 32 35 2c 30 0d 01  a4 18 20 dc 20 31 30 2c  |,325,0.... . 10,|
000002b0  31 30 2c 30 2c 33 30 30  2c 31 35 30 2c 30 0d 01  |10,0,300,150,0..|
000002c0  ae 18 20 dc 20 31 30 2c  31 30 2c 30 2c 35 35 30  |.. . 10,10,0,550|
000002d0  2c 31 35 30 2c 30 0d 01  b8 18 20 dc 20 37 35 2c  |,150,0.... . 75,|
000002e0  37 35 2c 30 2c 35 37 35  2c 32 36 30 2c 30 0d 01  |75,0,575,260,0..|
000002f0  c2 18 20 dc 20 37 35 2c  37 35 2c 30 2c 32 37 35  |.. . 75,75,0,275|
00000300  2c 32 36 30 2c 30 0d 01  cc 18 20 dc 20 31 30 2c  |,260,0.... . 10,|
00000310  31 30 2c 30 2c 33 30 30  2c 31 35 30 2c 30 0d 01  |10,0,300,150,0..|
00000320  d6 18 20 dc 20 31 30 2c  31 30 2c 30 2c 35 35 30  |.. . 10,10,0,550|
00000330  2c 31 35 30 2c 30 0d 01  e0 17 20 dc 20 35 30 2c  |,150,0.... . 50,|
00000340  35 30 2c 30 2c 31 32 35  2c 32 35 2c 30 0d 01 ea  |50,0,125,25,0...|
00000350  17 20 dc 20 34 30 2c 34  30 2c 30 2c 31 32 35 2c  |. . 40,40,0,125,|
00000360  32 35 2c 33 0d 01 f4 17  20 dc 20 35 30 2c 35 30  |25,3.... . 50,50|
00000370  2c 30 2c 31 35 30 2c 32  35 2c 30 0d 01 fe 17 20  |,0,150,25,0.... |
00000380  dc 20 34 30 2c 34 30 2c  30 2c 31 35 30 2c 32 35  |. 40,40,0,150,25|
00000390  2c 33 0d 02 08 17 20 dc  20 35 30 2c 35 30 2c 30  |,3.... . 50,50,0|
000003a0  2c 36 32 35 2c 32 35 2c  30 0d 02 12 17 20 dc 20  |,625,25,0.... . |
000003b0  34 30 2c 34 30 2c 30 2c  36 32 35 2c 32 35 2c 33  |40,40,0,625,25,3|
000003c0  0d 02 1c 17 20 dc 20 35  30 2c 35 30 2c 30 2c 36  |.... . 50,50,0,6|
000003d0  35 30 2c 32 35 2c 30 0d  02 26 17 20 dc 20 34 30  |50,25,0..&. . 40|
000003e0  2c 34 30 2c 30 2c 36 35  30 2c 32 35 2c 33 0d 02  |,40,0,650,25,3..|
000003f0  30 18 20 dc 20 32 35 2c  32 35 2c 30 2c 37 37 35  |0. . 25,25,0,775|
00000400  2c 32 32 35 2c 32 0d 02  3a 18 20 dc 20 35 30 2c  |,225,2..:. . 50,|
00000410  35 30 2c 30 2c 34 32 35  2c 33 35 30 2c 33 0d 02  |50,0,425,350,3..|
00000420  44 18 20 dc 20 35 30 2c  35 30 2c 30 2c 33 30 30  |D. . 50,50,0,300|
00000430  2c 32 35 30 2c 33 0d 02  4e 18 20 dc 20 35 30 2c  |,250,3..N. . 50,|
00000440  35 30 2c 30 2c 35 35 30  2c 32 35 30 2c 33 0d 02  |50,0,550,250,3..|
00000450  58 18 20 dc 20 31 35 2c  31 35 2c 30 2c 37 33 35  |X. . 15,15,0,735|
00000460  2c 31 33 35 2c 31 0d 02  62 18 20 dc 20 31 35 2c  |,135,1..b. . 15,|
00000470  31 35 2c 30 2c 31 31 35  2c 31 36 35 2c 31 0d 02  |15,0,115,165,1..|
00000480  6c 18 20 dc 20 31 30 2c  32 35 2c 30 2c 35 37 30  |l. . 10,25,0,570|
00000490  2c 32 31 30 2c 30 0d ff                           |,210,0..|
00000498