BELT

Home » Personal collection » Acorn DFS disks » dfs_box03_disk02_format_some_games.scp » BELT

BELT

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 DFS disks » dfs_box03_disk02_format_some_games.scp
Filename:	BELT
Read OK:	✔
File size:	0229 bytes
Load address:	FF1900
Exec address:	FF8023

Duplicates

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

Personal collection » Acorn DFS disks » dfs_box03_disk02_format_some_games.scp » BELT
Personal collection » Acorn DFS disks » dfs_box03_disk02b_format_some_games.scp » BELT

File contents

   10 MODE4 
   20 *FX11,0
   30 LET X=15:LET Y=10:LET S=0:LET D=1
   40 VDU23;8202;0;0;0;     
   50 PRINT TAB(RND(30),31);"*"   
   60 
   70 PRINT TAB(X,Y);"V":PRINTTAB(0,0);S  
   80 SOUND1,-5,X,1        
   90 LET S=S+1:IF S>254 THEN PRINT"WELL DONE-MISSION COMPLET":SOUND2,-5,125,20:GOTO 210   
  100 IF INKEY$(8)<>"" THEN LET D=-D
  110 LET X=X+D
  120 IF X>1 THEN LET X=1:LET D=-D
  130 IF X>30 THEN LET X=30:LET D=-D 
  140 IF POINT(X*32+16,656)>0 THEN GOTO 160
  150 GOTO 50
  160 FOR R=1 TO 60
  170 SOUND4,-5,RND(20),1
  180 PRINT TAB(RND(5)+X-2,RND(5)+Y-2);CHR$(RND(14)+32)
  190 NEXT R
  200 PRINT TAB(0,21);"HA! HA! SOME TWIT YOU ARE!"
  210 INPUT"PLAY AGAIN? (Y/N)"A$
  220 IF A$="Y" OR A$="Y" THEN RUN
  230 *FX11,55
  240 STOP


 �4 
 *FX11,0
 � X=15:� Y=10:� S=0:� D=1
( �23;8202;0;0;0;     
2 � ��(30),31);"*"   
< 
F � �X,Y);"V":�0,0);S  
P �1,-5,X,1        
ZJ � S=S+1:� S>254 � �"WELL DONE-MISSION COMPLET":�2,-5,125,20:� �dR@   
d � �(8)<>"" � � D=-D
n � X=X+D
x � X>1 � � X=1:� D=-D
� � X>30 � � X=30:� D=-D 
� � �X*32+16,656)>0 � � �t`@
� � �Tr@
� � R=1 � 60
� �4,-5,�(20),1
�& � ��(5)+X-2,�(5)+Y-2);�(�(14)+32)
� � R
�* � �0,21);"HA! HA! SOME TWIT YOU ARE!"
� �"PLAY AGAIN? (Y/N)"A$
� � A$="Y" � A$="Y" � �
�
 *FX11,55
� �
�

00000000  0d 00 0a 08 20 eb 34 20  0d 00 14 0c 20 2a 46 58  |.... .4 .... *FX|
00000010  31 31 2c 30 0d 00 1e 1e  20 e9 20 58 3d 31 35 3a  |11,0.... . X=15:|
00000020  e9 20 59 3d 31 30 3a e9  20 53 3d 30 3a e9 20 44  |. Y=10:. S=0:. D|
00000030  3d 31 0d 00 28 19 20 ef  32 33 3b 38 32 30 32 3b  |=1..(. .23;8202;|
00000040  30 3b 30 3b 30 3b 20 20  20 20 20 0d 00 32 18 20  |0;0;0;     ..2. |
00000050  f1 20 8a b3 28 33 30 29  2c 33 31 29 3b 22 2a 22  |. ..(30),31);"*"|
00000060  20 20 20 0d 00 3c 05 20  0d 00 46 1b 20 f1 20 8a  |   ..<. ..F. . .|
00000070  58 2c 59 29 3b 22 56 22  3a f1 8a 30 2c 30 29 3b  |X,Y);"V":..0,0);|
00000080  53 20 20 0d 00 50 16 20  d4 31 2c 2d 35 2c 58 2c  |S  ..P. .1,-5,X,|
00000090  31 20 20 20 20 20 20 20  20 0d 00 5a 4a 20 e9 20  |1        ..ZJ . |
000000a0  53 3d 53 2b 31 3a e7 20  53 3e 32 35 34 20 8c 20  |S=S+1:. S>254 . |
000000b0  f1 22 57 45 4c 4c 20 44  4f 4e 45 2d 4d 49 53 53  |."WELL DONE-MISS|
000000c0  49 4f 4e 20 43 4f 4d 50  4c 45 54 22 3a d4 32 2c  |ION COMPLET":.2,|
000000d0  2d 35 2c 31 32 35 2c 32  30 3a e5 20 8d 64 52 40  |-5,125,20:. .dR@|
000000e0  20 20 20 0d 00 64 18 20  e7 20 bf 28 38 29 3c 3e  |   ..d. . .(8)<>|
000000f0  22 22 20 8c 20 e9 20 44  3d 2d 44 0d 00 6e 0c 20  |"" . . D=-D..n. |
00000100  e9 20 58 3d 58 2b 44 0d  00 78 19 20 e7 20 58 3e  |. X=X+D..x. . X>|
00000110  31 20 8c 20 e9 20 58 3d  31 3a e9 20 44 3d 2d 44  |1 . . X=1:. D=-D|
00000120  0d 00 82 1c 20 e7 20 58  3e 33 30 20 8c 20 e9 20  |.... . X>30 . . |
00000130  58 3d 33 30 3a e9 20 44  3d 2d 44 20 0d 00 8c 1f  |X=30:. D=-D ....|
00000140  20 e7 20 b0 58 2a 33 32  2b 31 36 2c 36 35 36 29  | . .X*32+16,656)|
00000150  3e 30 20 8c 20 e5 20 8d  74 60 40 0d 00 96 0b 20  |>0 . . .t`@.... |
00000160  e5 20 8d 54 72 40 0d 00  a0 0f 20 e3 20 52 3d 31  |. .Tr@.... . R=1|
00000170  20 b8 20 36 30 0d 00 aa  12 20 d4 34 2c 2d 35 2c  | . 60.... .4,-5,|
00000180  b3 28 32 30 29 2c 31 0d  00 b4 26 20 f1 20 8a b3  |.(20),1...& . ..|
00000190  28 35 29 2b 58 2d 32 2c  b3 28 35 29 2b 59 2d 32  |(5)+X-2,.(5)+Y-2|
000001a0  29 3b bd 28 b3 28 31 34  29 2b 33 32 29 0d 00 be  |);.(.(14)+32)...|
000001b0  08 20 ed 20 52 0d 00 c8  2a 20 f1 20 8a 30 2c 32  |. . R...* . .0,2|
000001c0  31 29 3b 22 48 41 21 20  48 41 21 20 53 4f 4d 45  |1);"HA! HA! SOME|
000001d0  20 54 57 49 54 20 59 4f  55 20 41 52 45 21 22 0d  | TWIT YOU ARE!".|
000001e0  00 d2 1b 20 e8 22 50 4c  41 59 20 41 47 41 49 4e  |... ."PLAY AGAIN|
000001f0  3f 20 28 59 2f 4e 29 22  41 24 0d 00 dc 1a 20 e7  |? (Y/N)"A$.... .|
00000200  20 41 24 3d 22 59 22 20  84 20 41 24 3d 22 59 22  | A$="Y" . A$="Y"|
00000210  20 8c 20 f9 0d 00 e6 0d  20 2a 46 58 31 31 2c 35  | . ..... *FX11,5|
00000220  35 0d 00 f0 06 20 fa 0d  ff                       |5.... ...|
00000229

BELT.m0

BELT.m1

BELT.m2

BELT.m4

BELT.m5

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