J

Home » CEEFAX disks » telesoftware8.adl » J

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 » CEEFAX disks » telesoftware8.adl
Filename:	J
Read OK:	✔
File size:	02A8 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

File contents

   10N% = 10
   20M% = 32
   30L% = 48
   40DIM X%(N%), Y%(N%), A%(N%)
   50MODE1
   60MOVE 0,0:DRAW 1279,0
   70DRAW 1279,1023
   80DRAW 0,1023
   90DRAW 0,0
  100FORA%=1 TO N%
  110X%(A%) = RND(640) + 320
  120Y%(A%) = RND(512) + 256
  130A%(A%) = RND(360)
  140PROCin(X%(A%), Y%(A%), A%(A%))
  150NEXT
  160:
  170FOR B% = 1 TO N%
  180X%=X%(B%)
  190Y%=Y%(B%)
  200A%=A%(B%)
  210PROCin(X%, Y%, A%)
  220X=COSRAD(A% + 90) * M% + X%
  230Y=SINRAD(A% + 90) * M% + Y%
  240IF POINT(X, Y) <> 0:A% = (A% + 90) MOD 360:GOTO220
  250X%(B%) = X
  260Y%(B%) = Y
  270A%(B%) = A%
  280PROCin(X, Y, A%)
  290NEXT
  300GOTO170
  310:
  320DEF PROCin(X%, Y%, A%)
  330MOVE X%, Y%
  340X=X% + COSRAD(A% + 240) * L%
  350Y=Y% + SINRAD(A% + 240) * L%
  360X2=X% + COSRAD(A% - 60) * L%
  370Y2=Y% + SINRAD(A% - 60) * L%
  380MOVE X, Y
  390PLOT 86, X2, Y2
  400ENDPROC
  410:


N% = 10
M% = 32
L% = 48
(� X%(N%), Y%(N%), A%(N%)
2�1
<� 0,0:� 1279,0
F� 1279,1023
P� 0,1023
Z	� 0,0
d�A%=1 � N%
nX%(A%) = �(640) + 320
xY%(A%) = �(512) + 256
�A%(A%) = �(360)
��in(X%(A%), Y%(A%), A%(A%))
��
�:
�� B% = 1 � N%
�
X%=X%(B%)
�
Y%=Y%(B%)
�
A%=A%(B%)
��in(X%, Y%, A%)
�X=��(A% + 90) * M% + X%
�Y=��(A% + 90) * M% + Y%
�,� �X, Y) <> 0:A% = (A% + 90) � 360:�d\@
�X%(B%) = X
Y%(B%) = Y
A%(B%) = A%
�in(X, Y, A%)
"�
,	�tj@
6:
@� �in(X%, Y%, A%)
J� X%, Y%
TX=X% + ��(A% + 240) * L%
^Y=Y% + ��(A% + 240) * L%
hX2=X% + ��(A% - 60) * L%
rY2=Y% + ��(A% - 60) * L%
|
� X, Y
�� 86, X2, Y2
��
�:
�

00000000  0d 00 0a 0b 4e 25 20 3d  20 31 30 0d 00 14 0b 4d  |....N% = 10....M|
00000010  25 20 3d 20 33 32 0d 00  1e 0b 4c 25 20 3d 20 34  |% = 32....L% = 4|
00000020  38 0d 00 28 1c de 20 58  25 28 4e 25 29 2c 20 59  |8..(.. X%(N%), Y|
00000030  25 28 4e 25 29 2c 20 41  25 28 4e 25 29 0d 00 32  |%(N%), A%(N%)..2|
00000040  06 eb 31 0d 00 3c 12 ec  20 30 2c 30 3a df 20 31  |..1..<.. 0,0:. 1|
00000050  32 37 39 2c 30 0d 00 46  0f df 20 31 32 37 39 2c  |279,0..F.. 1279,|
00000060  31 30 32 33 0d 00 50 0c  df 20 30 2c 31 30 32 33  |1023..P.. 0,1023|
00000070  0d 00 5a 09 df 20 30 2c  30 0d 00 64 0e e3 41 25  |..Z.. 0,0..d..A%|
00000080  3d 31 20 b8 20 4e 25 0d  00 6e 19 58 25 28 41 25  |=1 . N%..n.X%(A%|
00000090  29 20 3d 20 b3 28 36 34  30 29 20 2b 20 33 32 30  |) = .(640) + 320|
000000a0  0d 00 78 19 59 25 28 41  25 29 20 3d 20 b3 28 35  |..x.Y%(A%) = .(5|
000000b0  31 32 29 20 2b 20 32 35  36 0d 00 82 13 41 25 28  |12) + 256....A%(|
000000c0  41 25 29 20 3d 20 b3 28  33 36 30 29 0d 00 8c 1f  |A%) = .(360)....|
000000d0  f2 69 6e 28 58 25 28 41  25 29 2c 20 59 25 28 41  |.in(X%(A%), Y%(A|
000000e0  25 29 2c 20 41 25 28 41  25 29 29 0d 00 96 05 ed  |%), A%(A%)).....|
000000f0  0d 00 a0 05 3a 0d 00 aa  11 e3 20 42 25 20 3d 20  |....:..... B% = |
00000100  31 20 b8 20 4e 25 0d 00  b4 0d 58 25 3d 58 25 28  |1 . N%....X%=X%(|
00000110  42 25 29 0d 00 be 0d 59  25 3d 59 25 28 42 25 29  |B%)....Y%=Y%(B%)|
00000120  0d 00 c8 0d 41 25 3d 41  25 28 42 25 29 0d 00 d2  |....A%=A%(B%)...|
00000130  13 f2 69 6e 28 58 25 2c  20 59 25 2c 20 41 25 29  |..in(X%, Y%, A%)|
00000140  0d 00 dc 1b 58 3d 9b b2  28 41 25 20 2b 20 39 30  |....X=..(A% + 90|
00000150  29 20 2a 20 4d 25 20 2b  20 58 25 0d 00 e6 1b 59  |) * M% + X%....Y|
00000160  3d b5 b2 28 41 25 20 2b  20 39 30 29 20 2a 20 4d  |=..(A% + 90) * M|
00000170  25 20 2b 20 59 25 0d 00  f0 2c e7 20 b0 58 2c 20  |% + Y%...,. .X, |
00000180  59 29 20 3c 3e 20 30 3a  41 25 20 3d 20 28 41 25  |Y) <> 0:A% = (A%|
00000190  20 2b 20 39 30 29 20 83  20 33 36 30 3a e5 8d 64  | + 90) . 360:..d|
000001a0  5c 40 0d 00 fa 0e 58 25  28 42 25 29 20 3d 20 58  |\@....X%(B%) = X|
000001b0  0d 01 04 0e 59 25 28 42  25 29 20 3d 20 59 0d 01  |....Y%(B%) = Y..|
000001c0  0e 0f 41 25 28 42 25 29  20 3d 20 41 25 0d 01 18  |..A%(B%) = A%...|
000001d0  11 f2 69 6e 28 58 2c 20  59 2c 20 41 25 29 0d 01  |..in(X, Y, A%)..|
000001e0  22 05 ed 0d 01 2c 09 e5  8d 74 6a 40 0d 01 36 05  |"....,...tj@..6.|
000001f0  3a 0d 01 40 15 dd 20 f2  69 6e 28 58 25 2c 20 59  |:..@.. .in(X%, Y|
00000200  25 2c 20 41 25 29 0d 01  4a 0c ec 20 58 25 2c 20  |%, A%)..J.. X%, |
00000210  59 25 0d 01 54 1c 58 3d  58 25 20 2b 20 9b b2 28  |Y%..T.X=X% + ..(|
00000220  41 25 20 2b 20 32 34 30  29 20 2a 20 4c 25 0d 01  |A% + 240) * L%..|
00000230  5e 1c 59 3d 59 25 20 2b  20 b5 b2 28 41 25 20 2b  |^.Y=Y% + ..(A% +|
00000240  20 32 34 30 29 20 2a 20  4c 25 0d 01 68 1c 58 32  | 240) * L%..h.X2|
00000250  3d 58 25 20 2b 20 9b b2  28 41 25 20 2d 20 36 30  |=X% + ..(A% - 60|
00000260  29 20 2a 20 4c 25 0d 01  72 1c 59 32 3d 59 25 20  |) * L%..r.Y2=Y% |
00000270  2b 20 b5 b2 28 41 25 20  2d 20 36 30 29 20 2a 20  |+ ..(A% - 60) * |
00000280  4c 25 0d 01 7c 0a ec 20  58 2c 20 59 0d 01 86 10  |L%..|.. X, Y....|
00000290  f0 20 38 36 2c 20 58 32  2c 20 59 32 0d 01 90 05  |. 86, X2, Y2....|
000002a0  e1 0d 01 9a 05 3a 0d ff                           |.....:..|
000002a8

J.m0

J.m1

J.m2

J.m4

J.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .