Home » Personal collection » Acorn DFS disks » dfs_box03_disk02b_format_some_games.scp » GETOUT

GETOUT

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_disk02b_format_some_games.scp
Filename: GETOUT
Read OK: ✔
File size: 0476 bytes
Load address: FF1900
Exec address: FF8023
Duplicates

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

File contents
   10 LET BX=14:LET A$="````":LET YD=1:LET SC=0:LET BALL=1
   20 DIMB(37,24)
   30 *FX11,1
   40 *FX12,1
   50 MODE7
   60 VDU23;8202;0;0;0;
   70 FORR=4 TO 7:FORC=1 TO 33:LET B(C,R)=1:NEXT C:NEXT R
   80 FORR=1 TO 25:F=R MOD 7:PRINTTAB(0,R);CHR$(145+F):NEXT R
   90 FORR=4 TO 7:FORC=1 TO 31:PRINTTAB(C,R);CHR$255:NEXT C:NEXT R 
  100 PRINTTAB(BX,19);A$
  110 LET Y=10:LET X=BX+2:LET XD=RND(1)/2+0.5:LET PAUSE=30
  120 PRINTTAB(X,Y);"/"
  130 FORR=1 TO 1200:NEXT R
  140 PRINTTAB(0,0);"BALL ";BALL
  150 PRINTTAB(X,Y);"/"
  160 FORR=1 TO PAUSE:NEXT R
  170 GOSUB 290
  180 PRINTTAB(X,Y);" "
  190 IF B(X,Y)=1 THEN LET YD=-YD:SOUND1,-10,125,1:LET B(X,Y)=0:LET SC=SC+1:PRINTTAB(20,0);"SCORE ";SC*10:IF SC=128 THEN GOTO 50
  200 IF Y=4 THEN LET PAUSE=1
  210 IF X<2 OR X>31 THEN LET XD=-XD 
  220 IF Y<2 THEN LET YD=-YD
  230 IF Y=18 AND X>=BX AND X<=BX+4 THEN LET YD=-YD:GOTO 250
  240 LET BB=INT(X):IF Y=18 AND BB>BX-2 AND BB<BX+6 THEN LET XD=-XD*0.9:LET YD=-YD
  250 IF Y>20 THEN GOTO 390
  260 LET X=X+XD
  270 LET Y=Y+YD
  280 GOTO 150
  290 REM move bat routine
  300 *FX15,1
  310 PRINTTAB(BX,19);"    "
  320 LET G$=INKEY$(2)
  330 IF G$="Z" THEN LET BX=BX-2
  340 IF G$="X" THEN LET BX=BX+2
  350 IF BX<1 THEN LET BX=1
  360 IF BX>27 THEN LET BX=27
  370 PRINTTAB(BX,19);A$ 
  380 RETURN
  390 *FX15,1
  400 LET BALL=BALL+1
  410 SOUND1,-15,1,20
  420 IF BALL>5 THEN GOTO 440
  430 GOTO 110
  440 *FX12,4
  450 *FX11,66
  460 *FX15,1
  470 PRINT"NEW GAME?";
  480 INPUT D$
  490 IF D$="N" THEN END
  500 RUN
  510 PRINT "WELL DONE"
  520 ENDPROC


/ � BX=14:� A$="````":� YD=1:� SC=0:� BALL=1
 �B(37,24)
 *FX11,1
( *FX12,1
2 �7
< �23;8202;0;0;0;
F* �R=4 � 7:�C=1 � 33:� B(C,R)=1:� C:� R
P* �R=1 � 25:F=R � 7:�0,R);�(145+F):� R
Z, �R=4 � 7:�C=1 � 31:�C,R);�255:� C:� R 
d �BX,19);A$
n/ � Y=10:� X=BX+2:� XD=�(1)/2+0.5:� PAUSE=30
x �X,Y);"/"
� �R=1 � 1200:� R
� �0,0);"BALL ";BALL
� �X,Y);"/"
� �R=1 � PAUSE:� R
� � �TbA
� �X,Y);" "
�e � B(X,Y)=1 � � YD=-YD:�1,-10,125,1:� B(X,Y)=0:� SC=SC+1:�20,0);"SCORE ";SC*10:� SC=128 � � �Tr@
� � Y=4 � � PAUSE=1
� � X<2 � X>31 � � XD=-XD 
� � Y<2 � � YD=-YD
�/ � Y=18 � X>=BX � X<=BX+4 � � YD=-YD:� �dz@
�A � BB=�(X):� Y=18 � BB>BX-2 � BB<BX+6 � � XD=-XD*0.9:� YD=-YD
� � Y>20 � � �tFA

 � X=X+XD

 � Y=Y+YD
 � �tV@
" � move bat routine
, *FX15,1
6 �BX,19);"    "
@ � G$=�(2)
J � G$="Z" � � BX=BX-2
T � G$="X" � � BX=BX+2
^ � BX<1 � � BX=1
h � BX>27 � � BX=27
r �BX,19);A$ 
| �
� *FX15,1
� � BALL=BALL+1
� �1,-15,1,20
� � BALL>5 � � �txA
� � �Dn@
� *FX12,4
�
 *FX11,66
� *FX15,1
� �"NEW GAME?";
�	 � D$
� � D$="N" � �
� �
� � "WELL DONE"
 �
�
00000000  0d 00 0a 2f 20 e9 20 42  58 3d 31 34 3a e9 20 41  |.../ . BX=14:. A|
00000010  24 3d 22 60 60 60 60 22  3a e9 20 59 44 3d 31 3a  |$="````":. YD=1:|
00000020  e9 20 53 43 3d 30 3a e9  20 42 41 4c 4c 3d 31 0d  |. SC=0:. BALL=1.|
00000030  00 14 0e 20 de 42 28 33  37 2c 32 34 29 0d 00 1e  |... .B(37,24)...|
00000040  0c 20 2a 46 58 31 31 2c  31 0d 00 28 0c 20 2a 46  |. *FX11,1..(. *F|
00000050  58 31 32 2c 31 0d 00 32  07 20 eb 37 0d 00 3c 14  |X12,1..2. .7..<.|
00000060  20 ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  | .23;8202;0;0;0;|
00000070  0d 00 46 2a 20 e3 52 3d  34 20 b8 20 37 3a e3 43  |..F* .R=4 . 7:.C|
00000080  3d 31 20 b8 20 33 33 3a  e9 20 42 28 43 2c 52 29  |=1 . 33:. B(C,R)|
00000090  3d 31 3a ed 20 43 3a ed  20 52 0d 00 50 2a 20 e3  |=1:. C:. R..P* .|
000000a0  52 3d 31 20 b8 20 32 35  3a 46 3d 52 20 83 20 37  |R=1 . 25:F=R . 7|
000000b0  3a f1 8a 30 2c 52 29 3b  bd 28 31 34 35 2b 46 29  |:..0,R);.(145+F)|
000000c0  3a ed 20 52 0d 00 5a 2c  20 e3 52 3d 34 20 b8 20  |:. R..Z, .R=4 . |
000000d0  37 3a e3 43 3d 31 20 b8  20 33 31 3a f1 8a 43 2c  |7:.C=1 . 31:..C,|
000000e0  52 29 3b bd 32 35 35 3a  ed 20 43 3a ed 20 52 20  |R);.255:. C:. R |
000000f0  0d 00 64 10 20 f1 8a 42  58 2c 31 39 29 3b 41 24  |..d. ..BX,19);A$|
00000100  0d 00 6e 2f 20 e9 20 59  3d 31 30 3a e9 20 58 3d  |..n/ . Y=10:. X=|
00000110  42 58 2b 32 3a e9 20 58  44 3d b3 28 31 29 2f 32  |BX+2:. XD=.(1)/2|
00000120  2b 30 2e 35 3a e9 20 50  41 55 53 45 3d 33 30 0d  |+0.5:. PAUSE=30.|
00000130  00 78 0f 20 f1 8a 58 2c  59 29 3b 22 2f 22 0d 00  |.x. ..X,Y);"/"..|
00000140  82 14 20 e3 52 3d 31 20  b8 20 31 32 30 30 3a ed  |.. .R=1 . 1200:.|
00000150  20 52 0d 00 8c 18 20 f1  8a 30 2c 30 29 3b 22 42  | R.... ..0,0);"B|
00000160  41 4c 4c 20 22 3b 42 41  4c 4c 0d 00 96 0f 20 f1  |ALL ";BALL.... .|
00000170  8a 58 2c 59 29 3b 22 2f  22 0d 00 a0 15 20 e3 52  |.X,Y);"/".... .R|
00000180  3d 31 20 b8 20 50 41 55  53 45 3a ed 20 52 0d 00  |=1 . PAUSE:. R..|
00000190  aa 0b 20 e4 20 8d 54 62  41 0d 00 b4 0f 20 f1 8a  |.. . .TbA.... ..|
000001a0  58 2c 59 29 3b 22 20 22  0d 00 be 65 20 e7 20 42  |X,Y);" "...e . B|
000001b0  28 58 2c 59 29 3d 31 20  8c 20 e9 20 59 44 3d 2d  |(X,Y)=1 . . YD=-|
000001c0  59 44 3a d4 31 2c 2d 31  30 2c 31 32 35 2c 31 3a  |YD:.1,-10,125,1:|
000001d0  e9 20 42 28 58 2c 59 29  3d 30 3a e9 20 53 43 3d  |. B(X,Y)=0:. SC=|
000001e0  53 43 2b 31 3a f1 8a 32  30 2c 30 29 3b 22 53 43  |SC+1:..20,0);"SC|
000001f0  4f 52 45 20 22 3b 53 43  2a 31 30 3a e7 20 53 43  |ORE ";SC*10:. SC|
00000200  3d 31 32 38 20 8c 20 e5  20 8d 54 72 40 0d 00 c8  |=128 . . .Tr@...|
00000210  16 20 e7 20 59 3d 34 20  8c 20 e9 20 50 41 55 53  |. . Y=4 . . PAUS|
00000220  45 3d 31 0d 00 d2 1d 20  e7 20 58 3c 32 20 84 20  |E=1.... . X<2 . |
00000230  58 3e 33 31 20 8c 20 e9  20 58 44 3d 2d 58 44 20  |X>31 . . XD=-XD |
00000240  0d 00 dc 15 20 e7 20 59  3c 32 20 8c 20 e9 20 59  |.... . Y<2 . . Y|
00000250  44 3d 2d 59 44 0d 00 e6  2f 20 e7 20 59 3d 31 38  |D=-YD.../ . Y=18|
00000260  20 80 20 58 3e 3d 42 58  20 80 20 58 3c 3d 42 58  | . X>=BX . X<=BX|
00000270  2b 34 20 8c 20 e9 20 59  44 3d 2d 59 44 3a e5 20  |+4 . . YD=-YD:. |
00000280  8d 64 7a 40 0d 00 f0 41  20 e9 20 42 42 3d a8 28  |.dz@...A . BB=.(|
00000290  58 29 3a e7 20 59 3d 31  38 20 80 20 42 42 3e 42  |X):. Y=18 . BB>B|
000002a0  58 2d 32 20 80 20 42 42  3c 42 58 2b 36 20 8c 20  |X-2 . BB<BX+6 . |
000002b0  e9 20 58 44 3d 2d 58 44  2a 30 2e 39 3a e9 20 59  |. XD=-XD*0.9:. Y|
000002c0  44 3d 2d 59 44 0d 00 fa  14 20 e7 20 59 3e 32 30  |D=-YD.... . Y>20|
000002d0  20 8c 20 e5 20 8d 74 46  41 0d 01 04 0d 20 e9 20  | . . .tFA.... . |
000002e0  58 3d 58 2b 58 44 0d 01  0e 0d 20 e9 20 59 3d 59  |X=X+XD.... . Y=Y|
000002f0  2b 59 44 0d 01 18 0b 20  e5 20 8d 74 56 40 0d 01  |+YD.... . .tV@..|
00000300  22 17 20 f4 20 6d 6f 76  65 20 62 61 74 20 72 6f  |". . move bat ro|
00000310  75 74 69 6e 65 0d 01 2c  0c 20 2a 46 58 31 35 2c  |utine..,. *FX15,|
00000320  31 0d 01 36 14 20 f1 8a  42 58 2c 31 39 29 3b 22  |1..6. ..BX,19);"|
00000330  20 20 20 20 22 0d 01 40  0e 20 e9 20 47 24 3d bf  |    "..@. . G$=.|
00000340  28 32 29 0d 01 4a 19 20  e7 20 47 24 3d 22 5a 22  |(2)..J. . G$="Z"|
00000350  20 8c 20 e9 20 42 58 3d  42 58 2d 32 0d 01 54 19  | . . BX=BX-2..T.|
00000360  20 e7 20 47 24 3d 22 58  22 20 8c 20 e9 20 42 58  | . G$="X" . . BX|
00000370  3d 42 58 2b 32 0d 01 5e  14 20 e7 20 42 58 3c 31  |=BX+2..^. . BX<1|
00000380  20 8c 20 e9 20 42 58 3d  31 0d 01 68 16 20 e7 20  | . . BX=1..h. . |
00000390  42 58 3e 32 37 20 8c 20  e9 20 42 58 3d 32 37 0d  |BX>27 . . BX=27.|
000003a0  01 72 11 20 f1 8a 42 58  2c 31 39 29 3b 41 24 20  |.r. ..BX,19);A$ |
000003b0  0d 01 7c 06 20 f8 0d 01  86 0c 20 2a 46 58 31 35  |..|. ..... *FX15|
000003c0  2c 31 0d 01 90 12 20 e9  20 42 41 4c 4c 3d 42 41  |,1.... . BALL=BA|
000003d0  4c 4c 2b 31 0d 01 9a 10  20 d4 31 2c 2d 31 35 2c  |LL+1.... .1,-15,|
000003e0  31 2c 32 30 0d 01 a4 16  20 e7 20 42 41 4c 4c 3e  |1,20.... . BALL>|
000003f0  35 20 8c 20 e5 20 8d 74  78 41 0d 01 ae 0b 20 e5  |5 . . .txA.... .|
00000400  20 8d 44 6e 40 0d 01 b8  0c 20 2a 46 58 31 32 2c  | .Dn@.... *FX12,|
00000410  34 0d 01 c2 0d 20 2a 46  58 31 31 2c 36 36 0d 01  |4.... *FX11,66..|
00000420  cc 0c 20 2a 46 58 31 35  2c 31 0d 01 d6 12 20 f1  |.. *FX15,1.... .|
00000430  22 4e 45 57 20 47 41 4d  45 3f 22 3b 0d 01 e0 09  |"NEW GAME?";....|
00000440  20 e8 20 44 24 0d 01 ea  11 20 e7 20 44 24 3d 22  | . D$.... . D$="|
00000450  4e 22 20 8c 20 e0 0d 01  f4 06 20 f9 0d 01 fe 12  |N" . ..... .....|
00000460  20 f1 20 22 57 45 4c 4c  20 44 4f 4e 45 22 0d 02  | . "WELL DONE"..|
00000470  08 06 20 e1 0d ff                                 |.. ...|
00000476
GETOUT.m0
GETOUT.m1
GETOUT.m2
GETOUT.m4
GETOUT.m5

© Dominic Ford 2021–2024.

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