Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199211.adf » AWNov92 » !AWNov92/Goodies/Flight/!FF/Loader

!AWNov92/Goodies/Flight/!FF/Loader

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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199211.adf » AWNov92
Filename: !AWNov92/Goodies/Flight/!FF/Loader
Read OK: ✔
File size: 03B7 bytes
Load address: 0000
Exec address: 0000
File contents
   10 *KEY1 MODE 12|M LIST|M
   20 MODE 9
   30 OFF
   40 VDU 5
   50 FOR X=0 TO 15
   60 COLOUR X,0,0,0
   70 NEXT X
   80 FOR X=0 TO 255 STEP 16
   90 WAIT
  100 WAIT
  110 COLOUR 0,X,0,0
  120 VDU 19,1,24,X,0,0
  130 NEXT X
  140 COLOUR 2,255,0,0
  150 COLOUR 1,255,0,0
  160 MOVE 0,700
  170 REM   ########################################
  180 GCOL 0,1
  190 PRINT"              Fire Flight"
  200 MOVE 0,650
  210 GCOL 0,2
  220 PRINT"         By Peter Reeves-Hall"
  230 MOVE 0,600
  240 PRINT"   Produced Using Flight Sim Toolkit"
  250 MOVE 0,500
  260 PRINT"      Copyright Archimedes World"
  270 MOVE 0,450
  290 T=TIME+200
  300 REPEAT
  310 UNTIL TIME>T
  320 FOR X=0 TO 255 STEP 16
  330 WAIT
  340 WAIT
  350 COLOUR 0,255,X,X
  360 VDU 19,1,24,255,X,X
  370 NEXT X
  380 T=TIME+1000
  390 REPEAT
  400 UNTIL TIME>T OR INKEY(-99)
  410 
  430 FOR X=0 TO 255 STEP 16
  440 WAIT
  441 WAIT
  450 COLOUR 0,255-X,255-X,255-X
  460 VDU 19,1,24,255-X,255-X,255-X
  470 COLOUR 1,255,0,X
  480 COLOUR 2,255-X,0,0
  490 NEXT X
  500 T=TIME+100
  510 REPEAT
  520 UNTIL TIME>T
  530 MODE 13
  531 OFF
  540 VDU 5
  541 GCOL 0,56
  550 MOVE 0,700
  560 PRINT"              Fire Flight"
  570 *SCHOOSE PIC
  580 FOR X=-200 TO 400 STEP 4
  590 WAIT
  600 PLOT &ED,450,X
  610 NEXT X
  620 END


 *KEY1 MODE 12|M LIST|M
 � 9
 �
( � 5
2 � X=0 � 15
< � X,0,0,0
F � X
P � X=0 � 255 � 16
Z Ȗ
d Ȗ
n � 0,X,0,0
x � 19,1,24,X,0,0
� � X
� � 2,255,0,0
� � 1,255,0,0
� � 0,700
�1 �   ########################################
�
 � 0,1
�! �"              Fire Flight"
� � 0,650
�
 � 0,2
�% �"         By Peter Reeves-Hall"
� � 0,600
�, �"   Produced Using Flight Sim Toolkit"
� � 0,500
( �"      Copyright Archimedes World"
 � 0,450
" T=�+200
, �
6
 � �>T
@ � X=0 � 255 � 16
J Ȗ
T Ȗ
^ � 0,255,X,X
h � 19,1,24,255,X,X
r � X
|
 T=�+1000
� �
� � �>T � �(-99)
� 
� � X=0 � 255 � 16
� Ȗ
� Ȗ
� � 0,255-X,255-X,255-X
�  � 19,1,24,255-X,255-X,255-X
� � 1,255,0,X
� � 2,255-X,0,0
� � X
� T=�+100
� �

 � �>T
	 � 13
 �
 � 5
 � 0,56
& � 0,700
0! �"              Fire Flight"
: *SCHOOSE PIC
D � X=-200 � 400 � 4
N Ȗ
X � &ED,450,X
b � X
l �
�
00000000  0d 00 0a 1b 20 2a 4b 45  59 31 20 4d 4f 44 45 20  |.... *KEY1 MODE |
00000010  31 32 7c 4d 20 4c 49 53  54 7c 4d 0d 00 14 08 20  |12|M LIST|M.... |
00000020  eb 20 39 0d 00 1e 06 20  87 0d 00 28 08 20 ef 20  |. 9.... ...(. . |
00000030  35 0d 00 32 0f 20 e3 20  58 3d 30 20 b8 20 31 35  |5..2. . X=0 . 15|
00000040  0d 00 3c 0e 20 fb 20 58  2c 30 2c 30 2c 30 0d 00  |..<. . X,0,0,0..|
00000050  46 08 20 ed 20 58 0d 00  50 15 20 e3 20 58 3d 30  |F. . X..P. . X=0|
00000060  20 b8 20 32 35 35 20 88  20 31 36 0d 00 5a 07 20  | . 255 . 16..Z. |
00000070  c8 96 0d 00 64 07 20 c8  96 0d 00 6e 0e 20 fb 20  |....d. ....n. . |
00000080  30 2c 58 2c 30 2c 30 0d  00 78 14 20 ef 20 31 39  |0,X,0,0..x. . 19|
00000090  2c 31 2c 32 34 2c 58 2c  30 2c 30 0d 00 82 08 20  |,1,24,X,0,0.... |
000000a0  ed 20 58 0d 00 8c 10 20  fb 20 32 2c 32 35 35 2c  |. X.... . 2,255,|
000000b0  30 2c 30 0d 00 96 10 20  fb 20 31 2c 32 35 35 2c  |0,0.... . 1,255,|
000000c0  30 2c 30 0d 00 a0 0c 20  ec 20 30 2c 37 30 30 0d  |0,0.... . 0,700.|
000000d0  00 aa 31 20 f4 20 20 20  23 23 23 23 23 23 23 23  |..1 .   ########|
000000e0  23 23 23 23 23 23 23 23  23 23 23 23 23 23 23 23  |################|
*
00000100  0d 00 b4 0a 20 e6 20 30  2c 31 0d 00 be 21 20 f1  |.... . 0,1...! .|
00000110  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 46  |"              F|
00000120  69 72 65 20 46 6c 69 67  68 74 22 0d 00 c8 0c 20  |ire Flight".... |
00000130  ec 20 30 2c 36 35 30 0d  00 d2 0a 20 e6 20 30 2c  |. 0,650.... . 0,|
00000140  32 0d 00 dc 25 20 f1 22  20 20 20 20 20 20 20 20  |2...% ."        |
00000150  20 42 79 20 50 65 74 65  72 20 52 65 65 76 65 73  | By Peter Reeves|
00000160  2d 48 61 6c 6c 22 0d 00  e6 0c 20 ec 20 30 2c 36  |-Hall".... . 0,6|
00000170  30 30 0d 00 f0 2c 20 f1  22 20 20 20 50 72 6f 64  |00..., ."   Prod|
00000180  75 63 65 64 20 55 73 69  6e 67 20 46 6c 69 67 68  |uced Using Fligh|
00000190  74 20 53 69 6d 20 54 6f  6f 6c 6b 69 74 22 0d 00  |t Sim Toolkit"..|
000001a0  fa 0c 20 ec 20 30 2c 35  30 30 0d 01 04 28 20 f1  |.. . 0,500...( .|
000001b0  22 20 20 20 20 20 20 43  6f 70 79 72 69 67 68 74  |"      Copyright|
000001c0  20 41 72 63 68 69 6d 65  64 65 73 20 57 6f 72 6c  | Archimedes Worl|
000001d0  64 22 0d 01 0e 0c 20 ec  20 30 2c 34 35 30 0d 01  |d".... . 0,450..|
000001e0  22 0c 20 54 3d 91 2b 32  30 30 0d 01 2c 06 20 f5  |". T=.+200..,. .|
000001f0  0d 01 36 0a 20 fd 20 91  3e 54 0d 01 40 15 20 e3  |..6. . .>T..@. .|
00000200  20 58 3d 30 20 b8 20 32  35 35 20 88 20 31 36 0d  | X=0 . 255 . 16.|
00000210  01 4a 07 20 c8 96 0d 01  54 07 20 c8 96 0d 01 5e  |.J. ....T. ....^|
00000220  10 20 fb 20 30 2c 32 35  35 2c 58 2c 58 0d 01 68  |. . 0,255,X,X..h|
00000230  16 20 ef 20 31 39 2c 31  2c 32 34 2c 32 35 35 2c  |. . 19,1,24,255,|
00000240  58 2c 58 0d 01 72 08 20  ed 20 58 0d 01 7c 0d 20  |X,X..r. . X..|. |
00000250  54 3d 91 2b 31 30 30 30  0d 01 86 06 20 f5 0d 01  |T=.+1000.... ...|
00000260  90 13 20 fd 20 91 3e 54  20 84 20 a6 28 2d 39 39  |.. . .>T . .(-99|
00000270  29 0d 01 9a 05 20 0d 01  ae 15 20 e3 20 58 3d 30  |).... .... . X=0|
00000280  20 b8 20 32 35 35 20 88  20 31 36 0d 01 b8 07 20  | . 255 . 16.... |
00000290  c8 96 0d 01 b9 07 20 c8  96 0d 01 c2 1a 20 fb 20  |...... ...... . |
000002a0  30 2c 32 35 35 2d 58 2c  32 35 35 2d 58 2c 32 35  |0,255-X,255-X,25|
000002b0  35 2d 58 0d 01 cc 20 20  ef 20 31 39 2c 31 2c 32  |5-X...  . 19,1,2|
000002c0  34 2c 32 35 35 2d 58 2c  32 35 35 2d 58 2c 32 35  |4,255-X,255-X,25|
000002d0  35 2d 58 0d 01 d6 10 20  fb 20 31 2c 32 35 35 2c  |5-X.... . 1,255,|
000002e0  30 2c 58 0d 01 e0 12 20  fb 20 32 2c 32 35 35 2d  |0,X.... . 2,255-|
000002f0  58 2c 30 2c 30 0d 01 ea  08 20 ed 20 58 0d 01 f4  |X,0,0.... . X...|
00000300  0c 20 54 3d 91 2b 31 30  30 0d 01 fe 06 20 f5 0d  |. T=.+100.... ..|
00000310  02 08 0a 20 fd 20 91 3e  54 0d 02 12 09 20 eb 20  |... . .>T.... . |
00000320  31 33 0d 02 13 06 20 87  0d 02 1c 08 20 ef 20 35  |13.... ..... . 5|
00000330  0d 02 1d 0b 20 e6 20 30  2c 35 36 0d 02 26 0c 20  |.... . 0,56..&. |
00000340  ec 20 30 2c 37 30 30 0d  02 30 21 20 f1 22 20 20  |. 0,700..0! ."  |
00000350  20 20 20 20 20 20 20 20  20 20 20 20 46 69 72 65  |            Fire|
00000360  20 46 6c 69 67 68 74 22  0d 02 3a 11 20 2a 53 43  | Flight"..:. *SC|
00000370  48 4f 4f 53 45 20 50 49  43 0d 02 44 17 20 e3 20  |HOOSE PIC..D. . |
00000380  58 3d 2d 32 30 30 20 b8  20 34 30 30 20 88 20 34  |X=-200 . 400 . 4|
00000390  0d 02 4e 07 20 c8 96 0d  02 58 10 20 f0 20 26 45  |..N. ....X. . &E|
000003a0  44 2c 34 35 30 2c 58 0d  02 62 08 20 ed 20 58 0d  |D,450,X..b. . X.|
000003b0  02 6c 06 20 e0 0d ff                              |.l. ...|
000003b7

© Dominic Ford 2021–2024.

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