Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape25b_acorn_eu_1991_july.wav » Thrust1

Thrust1

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 tapes » Electron_User » Electron_User_tape25b_acorn_eu_1991_july.wav
Filename: Thrust1
Read OK:
File size: 0217 bytes
Load address: FFFF1A00
Exec address: FFFF8023
File contents
   10REM Thruster Part 1
   20REM by Rob Walmsley
   30REM (c) The Micro User
   40MODE2
   50VDU23;8202;0;0;0;
   60X%=36:Y%=992:R%=28
   70FORI%=0TO11
   80CLS:PROCDraw(I%*30)
   90PROCConvert(0,0,224+I%*2)
  100PROCConvert(0,1,225+I%*2)
  110NEXT:PAGE=&1100
  120CHAIN"Thrust2"
  130:
  140DEFPROCDraw(A%)
  150LOCAL A,B,C:A=RADA%
  160B=RAD(A%+145):C=RAD(A%+215)
  170VDU29,X%;Y%;
  180MOVESINA*R%,COSA*R%
  190MOVESINB*R%,COSB*R%
  200PLOT85,SINC*R%,COSC*R%
  210ENDPROC
  220:
  230DEFPROCConvert(X%,Y%,C%)
  240VDU26:X%=X%*64
  250Y%=1024-Y%*32
  260VDU23,C%
  270FORJ%=0TO7:N%=0
  280Q%=1:Z%=Y%-J%*4-1
  290FOR K%=0 TO 7
  300IFPOINT(X%+(7-K%)*8,Z%) N%=N%ORQ%
  310Q%=Q%+Q%:NEXT:VDU N%
  320NEXT:ENDPROC

� Thruster Part 1
� by Rob Walmsley
� (c) The Micro User
(�2
2�23;8202;0;0;0;
<X%=36:Y%=992:R%=28
F�I%=0�11
P�:�Draw(I%*30)
Z�Convert(0,0,224+I%*2)
d�Convert(0,1,225+I%*2)
n
�:�=&1100
x�"Thrust2"
�:
���Draw(A%)
�� A,B,C:A=�A%
�B=�(A%+145):C=�(A%+215)
��29,X%;Y%;
��A*R%,�A*R%
��B*R%,�B*R%
��85,�C*R%,�C*R%
��
�:
���Convert(X%,Y%,C%)
��26:X%=X%*64
�Y%=1024-Y%*32

�23,C%
�J%=0�7:N%=0
Q%=1:Z%=Y%-J%*4-1
"� K%=0 � 7
,�X%+(7-K%)*8,Z%) N%=N%�Q%
6Q%=Q%+Q%:�:� N%
@�:�
�
00000000  0d 00 0a 15 f4 20 54 68  72 75 73 74 65 72 20 50  |..... Thruster P|
00000010  61 72 74 20 31 0d 00 14  15 f4 20 62 79 20 52 6f  |art 1..... by Ro|
00000020  62 20 57 61 6c 6d 73 6c  65 79 0d 00 1e 18 f4 20  |b Walmsley..... |
00000030  28 63 29 20 54 68 65 20  4d 69 63 72 6f 20 55 73  |(c) The Micro Us|
00000040  65 72 0d 00 28 06 eb 32  0d 00 32 13 ef 32 33 3b  |er..(..2..2..23;|
00000050  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 3c 16 58  |8202;0;0;0;..<.X|
00000060  25 3d 33 36 3a 59 25 3d  39 39 32 3a 52 25 3d 32  |%=36:Y%=992:R%=2|
00000070  38 0d 00 46 0c e3 49 25  3d 30 b8 31 31 0d 00 50  |8..F..I%=0.11..P|
00000080  12 db 3a f2 44 72 61 77  28 49 25 2a 33 30 29 0d  |..:.Draw(I%*30).|
00000090  00 5a 1a f2 43 6f 6e 76  65 72 74 28 30 2c 30 2c  |.Z..Convert(0,0,|
000000a0  32 32 34 2b 49 25 2a 32  29 0d 00 64 1a f2 43 6f  |224+I%*2)..d..Co|
000000b0  6e 76 65 72 74 28 30 2c  31 2c 32 32 35 2b 49 25  |nvert(0,1,225+I%|
000000c0  2a 32 29 0d 00 6e 0d ed  3a d0 3d 26 31 31 30 30  |*2)..n..:.=&1100|
000000d0  0d 00 78 0e d7 22 54 68  72 75 73 74 32 22 0d 00  |..x.."Thrust2"..|
000000e0  82 05 3a 0d 00 8c 0e dd  f2 44 72 61 77 28 41 25  |..:......Draw(A%|
000000f0  29 0d 00 96 11 ea 20 41  2c 42 2c 43 3a 41 3d b2  |)..... A,B,C:A=.|
00000100  41 25 0d 00 a0 1b 42 3d  b2 28 41 25 2b 31 34 35  |A%....B=.(A%+145|
00000110  29 3a 43 3d b2 28 41 25  2b 32 31 35 29 0d 00 aa  |):C=.(A%+215)...|
00000120  0e ef 32 39 2c 58 25 3b  59 25 3b 0d 00 b4 10 ec  |..29,X%;Y%;.....|
00000130  b5 41 2a 52 25 2c 9b 41  2a 52 25 0d 00 be 10 ec  |.A*R%,.A*R%.....|
00000140  b5 42 2a 52 25 2c 9b 42  2a 52 25 0d 00 c8 13 f0  |.B*R%,.B*R%.....|
00000150  38 35 2c b5 43 2a 52 25  2c 9b 43 2a 52 25 0d 00  |85,.C*R%,.C*R%..|
00000160  d2 05 e1 0d 00 dc 05 3a  0d 00 e6 17 dd f2 43 6f  |.......:......Co|
00000170  6e 76 65 72 74 28 58 25  2c 59 25 2c 43 25 29 0d  |nvert(X%,Y%,C%).|
00000180  00 f0 10 ef 32 36 3a 58  25 3d 58 25 2a 36 34 0d  |....26:X%=X%*64.|
00000190  00 fa 11 59 25 3d 31 30  32 34 2d 59 25 2a 33 32  |...Y%=1024-Y%*32|
000001a0  0d 01 04 0a ef 32 33 2c  43 25 0d 01 0e 10 e3 4a  |.....23,C%.....J|
000001b0  25 3d 30 b8 37 3a 4e 25  3d 30 0d 01 18 15 51 25  |%=0.7:N%=0....Q%|
000001c0  3d 31 3a 5a 25 3d 59 25  2d 4a 25 2a 34 2d 31 0d  |=1:Z%=Y%-J%*4-1.|
000001d0  01 22 0e e3 20 4b 25 3d  30 20 b8 20 37 0d 01 2c  |.".. K%=0 . 7..,|
000001e0  1e e7 b0 58 25 2b 28 37  2d 4b 25 29 2a 38 2c 5a  |...X%+(7-K%)*8,Z|
000001f0  25 29 20 4e 25 3d 4e 25  84 51 25 0d 01 36 13 51  |%) N%=N%.Q%..6.Q|
00000200  25 3d 51 25 2b 51 25 3a  ed 3a ef 20 4e 25 0d 01  |%=Q%+Q%:.:. N%..|
00000210  40 07 ed 3a e1 0d ff                              |@..:...|
00000217
Thrust1.m0
Thrust1.m1
Thrust1.m2
Thrust1.m4
Thrust1.m5