shipwren/J3CAD

Home » Personal collection » Acorn hard disk » misc » misc3 » shipwren/J3CAD

shipwren/J3CAD

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:	shipwren/J3CAD
Read OK:	✔
File size:	0256 bytes
Load address:	0000
Exec address:	0000

Duplicates

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

Personal collection » Acorn ADFS disks » Archimedes » Unlabelled_disk_2.ADF » J3CAD
Personal collection » Acorn hard disk » misc » misc3 » shipwren/J3CAD

File contents

   10MODE 4:VDU19,1,2,0;0;0;0;:x=0:xo=0
   20FORtheta=0TO360STEP15:FORalpha=-20TO270STEP5
   30IF alpha>160 THEN x=25 ELSE x=0
   40IF alpha<181 THEN stat=TRUE ELSE stat=FALSE
   50IF stat THEN MOVE550-xo-(alpha-5)*2+COS(theta*PI/180)*50,FNy(theta,alpha-5)
   60IF stat THEN DRAW550-x-alpha*2+COS(theta*PI/180)*50,FNy(theta,alpha)
   70IF stat AND (alpha MOD 45)=0 THEN DRAW550-x-alpha*2+COS((theta-30)*PI/180)*50,FNy(theta-30,alpha)
   80MOVE650+(alpha-5)*2+COS(theta*PI/180)*50,FNy(theta,alpha-5)
   90DRAW650+alpha*2+COS(theta*PI/180)*50,FNy(theta,alpha)
  100IF (alpha MOD 45)=0 THEN DRAW650+alpha*2+COS((theta-30)*PI/180)*50,FNy(theta-30,alpha)
  110xo=x:NEXT:xo=0:NEXT
  120:
  130DEFFNy(th,al)=650+250*SIN(th*PI/180)*SIN(al*PI/180)


!� 4:�19,1,2,0;0;0;0;:x=0:xo=0
$�theta=0�360�15:�alpha=-20�270�5
� alpha>160 � x=25 � x=0
(!� alpha<181 � stat=� � stat=�
2D� stat � �550-xo-(alpha-5)*2+�(theta*�/180)*50,�y(theta,alpha-5)
<=� stat � �550-x-alpha*2+�(theta*�/180)*50,�y(theta,alpha)
FV� stat � (alpha � 45)=0 � �550-x-alpha*2+�((theta-30)*�/180)*50,�y(theta-30,alpha)
P8�650+(alpha-5)*2+�(theta*�/180)*50,�y(theta,alpha-5)
Z2�650+alpha*2+�(theta*�/180)*50,�y(theta,alpha)
dM� (alpha � 45)=0 � �650+alpha*2+�((theta-30)*�/180)*50,�y(theta-30,alpha)
nxo=x:�:xo=0:�
x:
�.ݤy(th,al)=650+250*�(th*�/180)*�(al*�/180)
�

00000000  0d 00 0a 21 eb 20 34 3a  ef 31 39 2c 31 2c 32 2c  |...!. 4:.19,1,2,|
00000010  30 3b 30 3b 30 3b 30 3b  3a 78 3d 30 3a 78 6f 3d  |0;0;0;0;:x=0:xo=|
00000020  30 0d 00 14 24 e3 74 68  65 74 61 3d 30 b8 33 36  |0...$.theta=0.36|
00000030  30 88 31 35 3a e3 61 6c  70 68 61 3d 2d 32 30 b8  |0.15:.alpha=-20.|
00000040  32 37 30 88 35 0d 00 1e  1c e7 20 61 6c 70 68 61  |270.5..... alpha|
00000050  3e 31 36 30 20 8c 20 78  3d 32 35 20 8b 20 78 3d  |>160 . x=25 . x=|
00000060  30 0d 00 28 21 e7 20 61  6c 70 68 61 3c 31 38 31  |0..(!. alpha<181|
00000070  20 8c 20 73 74 61 74 3d  b9 20 8b 20 73 74 61 74  | . stat=. . stat|
00000080  3d a3 0d 00 32 44 e7 20  73 74 61 74 20 8c 20 ec  |=...2D. stat . .|
00000090  35 35 30 2d 78 6f 2d 28  61 6c 70 68 61 2d 35 29  |550-xo-(alpha-5)|
000000a0  2a 32 2b 9b 28 74 68 65  74 61 2a af 2f 31 38 30  |*2+.(theta*./180|
000000b0  29 2a 35 30 2c a4 79 28  74 68 65 74 61 2c 61 6c  |)*50,.y(theta,al|
000000c0  70 68 61 2d 35 29 0d 00  3c 3d e7 20 73 74 61 74  |pha-5)..<=. stat|
000000d0  20 8c 20 df 35 35 30 2d  78 2d 61 6c 70 68 61 2a  | . .550-x-alpha*|
000000e0  32 2b 9b 28 74 68 65 74  61 2a af 2f 31 38 30 29  |2+.(theta*./180)|
000000f0  2a 35 30 2c a4 79 28 74  68 65 74 61 2c 61 6c 70  |*50,.y(theta,alp|
00000100  68 61 29 0d 00 46 56 e7  20 73 74 61 74 20 80 20  |ha)..FV. stat . |
00000110  28 61 6c 70 68 61 20 83  20 34 35 29 3d 30 20 8c  |(alpha . 45)=0 .|
00000120  20 df 35 35 30 2d 78 2d  61 6c 70 68 61 2a 32 2b  | .550-x-alpha*2+|
00000130  9b 28 28 74 68 65 74 61  2d 33 30 29 2a af 2f 31  |.((theta-30)*./1|
00000140  38 30 29 2a 35 30 2c a4  79 28 74 68 65 74 61 2d  |80)*50,.y(theta-|
00000150  33 30 2c 61 6c 70 68 61  29 0d 00 50 38 ec 36 35  |30,alpha)..P8.65|
00000160  30 2b 28 61 6c 70 68 61  2d 35 29 2a 32 2b 9b 28  |0+(alpha-5)*2+.(|
00000170  74 68 65 74 61 2a af 2f  31 38 30 29 2a 35 30 2c  |theta*./180)*50,|
00000180  a4 79 28 74 68 65 74 61  2c 61 6c 70 68 61 2d 35  |.y(theta,alpha-5|
00000190  29 0d 00 5a 32 df 36 35  30 2b 61 6c 70 68 61 2a  |)..Z2.650+alpha*|
000001a0  32 2b 9b 28 74 68 65 74  61 2a af 2f 31 38 30 29  |2+.(theta*./180)|
000001b0  2a 35 30 2c a4 79 28 74  68 65 74 61 2c 61 6c 70  |*50,.y(theta,alp|
000001c0  68 61 29 0d 00 64 4d e7  20 28 61 6c 70 68 61 20  |ha)..dM. (alpha |
000001d0  83 20 34 35 29 3d 30 20  8c 20 df 36 35 30 2b 61  |. 45)=0 . .650+a|
000001e0  6c 70 68 61 2a 32 2b 9b  28 28 74 68 65 74 61 2d  |lpha*2+.((theta-|
000001f0  33 30 29 2a af 2f 31 38  30 29 2a 35 30 2c a4 79  |30)*./180)*50,.y|
00000200  28 74 68 65 74 61 2d 33  30 2c 61 6c 70 68 61 29  |(theta-30,alpha)|
00000210  0d 00 6e 11 78 6f 3d 78  3a ed 3a 78 6f 3d 30 3a  |..n.xo=x:.:xo=0:|
00000220  ed 0d 00 78 05 3a 0d 00  82 2e dd a4 79 28 74 68  |...x.:......y(th|
00000230  2c 61 6c 29 3d 36 35 30  2b 32 35 30 2a b5 28 74  |,al)=650+250*.(t|
00000240  68 2a af 2f 31 38 30 29  2a b5 28 61 6c 2a af 2f  |h*./180)*.(al*./|
00000250  31 38 30 29 0d ff                                 |180)..|
00000256

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