Bitmaps/J3CAD

Home » Personal collection » Acorn ADFS disks » Electron » Shipwrecked_2.ADF » Bitmaps/J3CAD

Bitmaps/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 ADFS disks » Electron » Shipwrecked_2.ADF
Filename:	Bitmaps/J3CAD
Read OK:	✔
File size:	037B bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents

   10*DIR ^.SHIP
   20MODE 4:VDU19,1,2,0;0;0;0;:x=0:xo=0
   30VDU23,1,0;0;0;0;:PRINTTAB(9,1)"CAD View of Jupiter 3";TAB(9,2)"---------------------";TAB(0,5)"Navigation";TAB(2,6)"Area";TAB(10,25)"Control      Tourist";TAB(11,26)"Disc         Disc";TAB(32,24)"Docking";TAB(34,25)"Bay"
   35PRINTTAB(7,30)"Press <SPACE> to continue"
   40FORtheta=0TO360STEP15:FORalpha=-20TO270STEP5
   50IF alpha>160 THEN x=25 ELSE x=0
   60IF alpha<181 THEN stat=TRUE ELSE stat=FALSE
   70IF stat THEN MOVE550-xo-(alpha-5)*2+COS(theta*PI/180)*50,FNy(theta,alpha-5)
   80IF stat THEN DRAW550-x-alpha*2+COS(theta*PI/180)*50,FNy(theta,alpha)
   90IF stat AND ((alpha MOD 45)=0 OR alpha=-20) THEN DRAW550-x-alpha*2+COS((theta-30)*PI/180)*50,FNy(theta-30,alpha)
  100MOVE650+(alpha-5)*2+COS(theta*PI/180)*50,FNy(theta,alpha-5)
  110DRAW650+alpha*2+COS(theta*PI/180)*50,FNy(theta,alpha)
  120IF (alpha MOD 45)=0 THEN DRAW650+alpha*2+COS((theta-30)*PI/180)*50,FNy(theta-30,alpha)
  130xo=x:NEXT:xo=0:NEXT
  140*SA. Ship/BM4 5800 8000
  150END
  160:
  170DEFFNy(th,al)=600+250*SIN(th*PI/180)*SIN(al*PI/180)


*DIR ^.SHIP
!� 4:�19,1,2,0;0;0;0;:x=0:xo=0
��23,1,0;0;0;0;:�9,1)"CAD View of Jupiter 3";�9,2)"---------------------";�0,5)"Navigation";�2,6)"Area";�10,25)"Control      Tourist";�11,26)"Disc         Disc";�32,24)"Docking";�34,25)"Bay"
#&�7,30)"Press <SPACE> to continue"
($�theta=0�360�15:�alpha=-20�270�5
2� alpha>160 � x=25 � x=0
<!� alpha<181 � stat=� � stat=�
FD� stat � �550-xo-(alpha-5)*2+�(theta*�/180)*50,�y(theta,alpha-5)
P=� stat � �550-x-alpha*2+�(theta*�/180)*50,�y(theta,alpha)
Zd� stat � ((alpha � 45)=0 � alpha=-20) � �550-x-alpha*2+�((theta-30)*�/180)*50,�y(theta-30,alpha)
d8�650+(alpha-5)*2+�(theta*�/180)*50,�y(theta,alpha-5)
n2�650+alpha*2+�(theta*�/180)*50,�y(theta,alpha)
xM� (alpha � 45)=0 � �650+alpha*2+�((theta-30)*�/180)*50,�y(theta-30,alpha)
�xo=x:�:xo=0:�
�*SA. Ship/BM4 5800 8000
��
�:
�.ݤy(th,al)=600+250*�(th*�/180)*�(al*�/180)
�

00000000  0d 00 0a 0f 2a 44 49 52  20 5e 2e 53 48 49 50 0d  |....*DIR ^.SHIP.|
00000010  00 14 21 eb 20 34 3a ef  31 39 2c 31 2c 32 2c 30  |..!. 4:.19,1,2,0|
00000020  3b 30 3b 30 3b 30 3b 3a  78 3d 30 3a 78 6f 3d 30  |;0;0;0;:x=0:xo=0|
00000030  0d 00 1e c2 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.....23,1,0;0;0;|
00000040  30 3b 3a f1 8a 39 2c 31  29 22 43 41 44 20 56 69  |0;:..9,1)"CAD Vi|
00000050  65 77 20 6f 66 20 4a 75  70 69 74 65 72 20 33 22  |ew of Jupiter 3"|
00000060  3b 8a 39 2c 32 29 22 2d  2d 2d 2d 2d 2d 2d 2d 2d  |;.9,2)"---------|
00000070  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 22 3b 8a 30  |------------";.0|
00000080  2c 35 29 22 4e 61 76 69  67 61 74 69 6f 6e 22 3b  |,5)"Navigation";|
00000090  8a 32 2c 36 29 22 41 72  65 61 22 3b 8a 31 30 2c  |.2,6)"Area";.10,|
000000a0  32 35 29 22 43 6f 6e 74  72 6f 6c 20 20 20 20 20  |25)"Control     |
000000b0  20 54 6f 75 72 69 73 74  22 3b 8a 31 31 2c 32 36  | Tourist";.11,26|
000000c0  29 22 44 69 73 63 20 20  20 20 20 20 20 20 20 44  |)"Disc         D|
000000d0  69 73 63 22 3b 8a 33 32  2c 32 34 29 22 44 6f 63  |isc";.32,24)"Doc|
000000e0  6b 69 6e 67 22 3b 8a 33  34 2c 32 35 29 22 42 61  |king";.34,25)"Ba|
000000f0  79 22 0d 00 23 26 f1 8a  37 2c 33 30 29 22 50 72  |y"..#&..7,30)"Pr|
00000100  65 73 73 20 3c 53 50 41  43 45 3e 20 74 6f 20 63  |ess <SPACE> to c|
00000110  6f 6e 74 69 6e 75 65 22  0d 00 28 24 e3 74 68 65  |ontinue"..($.the|
00000120  74 61 3d 30 b8 33 36 30  88 31 35 3a e3 61 6c 70  |ta=0.360.15:.alp|
00000130  68 61 3d 2d 32 30 b8 32  37 30 88 35 0d 00 32 1c  |ha=-20.270.5..2.|
00000140  e7 20 61 6c 70 68 61 3e  31 36 30 20 8c 20 78 3d  |. alpha>160 . x=|
00000150  32 35 20 8b 20 78 3d 30  0d 00 3c 21 e7 20 61 6c  |25 . x=0..<!. al|
00000160  70 68 61 3c 31 38 31 20  8c 20 73 74 61 74 3d b9  |pha<181 . stat=.|
00000170  20 8b 20 73 74 61 74 3d  a3 0d 00 46 44 e7 20 73  | . stat=...FD. s|
00000180  74 61 74 20 8c 20 ec 35  35 30 2d 78 6f 2d 28 61  |tat . .550-xo-(a|
00000190  6c 70 68 61 2d 35 29 2a  32 2b 9b 28 74 68 65 74  |lpha-5)*2+.(thet|
000001a0  61 2a af 2f 31 38 30 29  2a 35 30 2c a4 79 28 74  |a*./180)*50,.y(t|
000001b0  68 65 74 61 2c 61 6c 70  68 61 2d 35 29 0d 00 50  |heta,alpha-5)..P|
000001c0  3d e7 20 73 74 61 74 20  8c 20 df 35 35 30 2d 78  |=. stat . .550-x|
000001d0  2d 61 6c 70 68 61 2a 32  2b 9b 28 74 68 65 74 61  |-alpha*2+.(theta|
000001e0  2a af 2f 31 38 30 29 2a  35 30 2c a4 79 28 74 68  |*./180)*50,.y(th|
000001f0  65 74 61 2c 61 6c 70 68  61 29 0d 00 5a 64 e7 20  |eta,alpha)..Zd. |
00000200  73 74 61 74 20 80 20 28  28 61 6c 70 68 61 20 83  |stat . ((alpha .|
00000210  20 34 35 29 3d 30 20 84  20 61 6c 70 68 61 3d 2d  | 45)=0 . alpha=-|
00000220  32 30 29 20 8c 20 df 35  35 30 2d 78 2d 61 6c 70  |20) . .550-x-alp|
00000230  68 61 2a 32 2b 9b 28 28  74 68 65 74 61 2d 33 30  |ha*2+.((theta-30|
00000240  29 2a af 2f 31 38 30 29  2a 35 30 2c a4 79 28 74  |)*./180)*50,.y(t|
00000250  68 65 74 61 2d 33 30 2c  61 6c 70 68 61 29 0d 00  |heta-30,alpha)..|
00000260  64 38 ec 36 35 30 2b 28  61 6c 70 68 61 2d 35 29  |d8.650+(alpha-5)|
00000270  2a 32 2b 9b 28 74 68 65  74 61 2a af 2f 31 38 30  |*2+.(theta*./180|
00000280  29 2a 35 30 2c a4 79 28  74 68 65 74 61 2c 61 6c  |)*50,.y(theta,al|
00000290  70 68 61 2d 35 29 0d 00  6e 32 df 36 35 30 2b 61  |pha-5)..n2.650+a|
000002a0  6c 70 68 61 2a 32 2b 9b  28 74 68 65 74 61 2a af  |lpha*2+.(theta*.|
000002b0  2f 31 38 30 29 2a 35 30  2c a4 79 28 74 68 65 74  |/180)*50,.y(thet|
000002c0  61 2c 61 6c 70 68 61 29  0d 00 78 4d e7 20 28 61  |a,alpha)..xM. (a|
000002d0  6c 70 68 61 20 83 20 34  35 29 3d 30 20 8c 20 df  |lpha . 45)=0 . .|
000002e0  36 35 30 2b 61 6c 70 68  61 2a 32 2b 9b 28 28 74  |650+alpha*2+.((t|
000002f0  68 65 74 61 2d 33 30 29  2a af 2f 31 38 30 29 2a  |heta-30)*./180)*|
00000300  35 30 2c a4 79 28 74 68  65 74 61 2d 33 30 2c 61  |50,.y(theta-30,a|
00000310  6c 70 68 61 29 0d 00 82  11 78 6f 3d 78 3a ed 3a  |lpha)....xo=x:.:|
00000320  78 6f 3d 30 3a ed 0d 00  8c 1b 2a 53 41 2e 20 53  |xo=0:.....*SA. S|
00000330  68 69 70 2f 42 4d 34 20  35 38 30 30 20 38 30 30  |hip/BM4 5800 800|
00000340  30 0d 00 96 05 e0 0d 00  a0 05 3a 0d 00 aa 2e dd  |0.........:.....|
00000350  a4 79 28 74 68 2c 61 6c  29 3d 36 30 30 2b 32 35  |.y(th,al)=600+25|
00000360  30 2a b5 28 74 68 2a af  2f 31 38 30 29 2a b5 28  |0*.(th*./180)*.(|
00000370  61 6c 2a af 2f 31 38 30  29 0d ff                 |al*./180)..|
0000037b

Bitmaps/J3CAD.m0

Bitmaps/J3CAD.m1

Bitmaps/J3CAD.m2

Bitmaps/J3CAD.m4

Bitmaps/J3CAD.m5

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