Home » Personal collection » Acorn DFS disks » dfs_box03_disk02b_format_some_games.scp » ORBIT
ORBIT
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: | ORBIT |
| Read OK: | ✔ |
| File size: | 02FB 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 » ORBIT
- Personal collection » Acorn DFS disks » dfs_box03_disk02b_format_some_games.scp » ORBIT
File contents
10 MODE4 20 VDU23;8202;0;0;0; 30 DIMB(40) 40 COLOUR1 50 FOR X=1 TO 31 60 LET Y=RND(12):LET B(X+1)=Y 70 FORR=21 TO 21-Y STEP -1:PRINTTAB(X,R);"H" 80 NEXT R 90 NEXT X 100 LET PX=0:LET PY=1:LET Score=0:LET F=0 110 PRINTTAB(PX,PY);">" 120 IF F=1 THEN GOSUB 200 130 LET G$=INKEY$(5):IF G$<>"" AND F=0 THEN LET F=1:LET BY=PY+1:LET BX=PX 140 IF F=1 THEN GOSUB 220 150 PRINTTAB(PX,PY);" " 160 LET PX=PX+1:IF PX>31 THEN LET PX=0:LET PY=PY+1 170 IF PY>20 THEN PRINT"WELL DONE":GOTO350 180 IF PY>=21-B(PX+1) THEN GOTO 320 190 GOTO 110 200 PRINTTAB(BX,BY);"*" 210 RETURN 220 PRINTTAB(BX,BY);" " 230 SOUND2,-7,(21-BY),1 240 LET BY=BY+1 250 IF BY>=21-B(BX+1)+1 THEN GOTO 270 260 RETURN 270 FOR R=21-B(BX+1) TO 21:PRINTTAB(BX,R);" ":NEXT R 280 LET Score=Score+B(BX+1):PRINTTAB(0,0);"SCORE ";Score 290 LET F=0 300 LET B(BX+1)=0 310 RETURN 320 FOR R=1 TO 200 330 FOR S=1 TO 6:VDU19,0,R,0,0,0:NEXT S:NEXT R 340 PRINT"PLAY AGAIN (Y,N) "; 350 INPUT G$ 370 IF G$="Y" THEN RUN 380 STOP
�4
�23;8202;0;0;0;
�B(40)
( �1
2 � X=1 � 31
< � Y=�(12):� B(X+1)=Y
F! �R=21 � 21-Y � -1:�X,R);"H"
P � R
Z � X
d% � PX=0:� PY=1:� Score=0:� F=0
n �PX,PY);">"
x � F=1 � � �dH@
�7 � G$=�(5):� G$<>"" � F=0 � � F=1:� BY=PY+1:� BX=PX
� � F=1 � � �d\@
� �PX,PY);" "
�) � PX=PX+1:� PX>31 � � PX=0:� PY=PY+1
�! � PY>20 � �"WELL DONE":�D^A
� � PY>=21-B(PX+1) � � �D@A
� � �Dn@
� �BX,BY);"*"
� �
� �BX,BY);" "
� �2,-7,(21-BY),1
� � BY=BY+1
� � BY>=21-B(BX+1)+1 � � �TNA
�
( � R=21-B(BX+1) � 21:�BX,R);" ":� R
0 � Score=Score+B(BX+1):�0,0);"SCORE ";Score
"
� F=0
, � B(BX+1)=0
6 �
@ � R=1 � 200
J& � S=1 � 6:�19,0,R,0,0,0:� S:� R
T �"PLAY AGAIN (Y,N) ";
^ � G$
r � G$="Y" � �
| �
� 00000000 0d 00 0a 07 20 eb 34 0d 00 14 14 20 ef 32 33 3b |.... .4.... .23;| 00000010 38 32 30 32 3b 30 3b 30 3b 30 3b 0d 00 1e 0b 20 |8202;0;0;0;.... | 00000020 de 42 28 34 30 29 0d 00 28 07 20 fb 31 0d 00 32 |.B(40)..(. .1..2| 00000030 0f 20 e3 20 58 3d 31 20 b8 20 33 31 0d 00 3c 19 |. . X=1 . 31..<.| 00000040 20 e9 20 59 3d b3 28 31 32 29 3a e9 20 42 28 58 | . Y=.(12):. B(X| 00000050 2b 31 29 3d 59 0d 00 46 21 20 e3 52 3d 32 31 20 |+1)=Y..F! .R=21 | 00000060 b8 20 32 31 2d 59 20 88 20 2d 31 3a f1 8a 58 2c |. 21-Y . -1:..X,| 00000070 52 29 3b 22 48 22 0d 00 50 08 20 ed 20 52 0d 00 |R);"H"..P. . R..| 00000080 5a 08 20 ed 20 58 0d 00 64 25 20 e9 20 50 58 3d |Z. . X..d% . PX=| 00000090 30 3a e9 20 50 59 3d 31 3a e9 20 53 63 6f 72 65 |0:. PY=1:. Score| 000000a0 3d 30 3a e9 20 46 3d 30 20 20 20 0d 00 6e 11 20 |=0:. F=0 ..n. | 000000b0 f1 8a 50 58 2c 50 59 29 3b 22 3e 22 0d 00 78 13 |..PX,PY);">"..x.| 000000c0 20 e7 20 46 3d 31 20 8c 20 e4 20 8d 64 48 40 0d | . F=1 . . .dH@.| 000000d0 00 82 37 20 e9 20 47 24 3d bf 28 35 29 3a e7 20 |..7 . G$=.(5):. | 000000e0 47 24 3c 3e 22 22 20 80 20 46 3d 30 20 8c 20 e9 |G$<>"" . F=0 . .| 000000f0 20 46 3d 31 3a e9 20 42 59 3d 50 59 2b 31 3a e9 | F=1:. BY=PY+1:.| 00000100 20 42 58 3d 50 58 0d 00 8c 13 20 e7 20 46 3d 31 | BX=PX.... . F=1| 00000110 20 8c 20 e4 20 8d 64 5c 40 0d 00 96 11 20 f1 8a | . . .d\@.... ..| 00000120 50 58 2c 50 59 29 3b 22 20 22 0d 00 a0 29 20 e9 |PX,PY);" "...) .| 00000130 20 50 58 3d 50 58 2b 31 3a e7 20 50 58 3e 33 31 | PX=PX+1:. PX>31| 00000140 20 8c 20 e9 20 50 58 3d 30 3a e9 20 50 59 3d 50 | . . PX=0:. PY=P| 00000150 59 2b 31 0d 00 aa 21 20 e7 20 50 59 3e 32 30 20 |Y+1...! . PY>20 | 00000160 8c 20 f1 22 57 45 4c 4c 20 44 4f 4e 45 22 3a e5 |. ."WELL DONE":.| 00000170 8d 44 5e 41 0d 00 b4 1e 20 e7 20 50 59 3e 3d 32 |.D^A.... . PY>=2| 00000180 31 2d 42 28 50 58 2b 31 29 20 8c 20 e5 20 8d 44 |1-B(PX+1) . . .D| 00000190 40 41 0d 00 be 0b 20 e5 20 8d 44 6e 40 0d 00 c8 |@A.... . .Dn@...| 000001a0 11 20 f1 8a 42 58 2c 42 59 29 3b 22 2a 22 0d 00 |. ..BX,BY);"*"..| 000001b0 d2 08 20 f8 20 20 0d 00 dc 13 20 f1 8a 42 58 2c |.. . .... ..BX,| 000001c0 42 59 29 3b 22 20 22 20 20 0d 00 e6 14 20 d4 32 |BY);" " .... .2| 000001d0 2c 2d 37 2c 28 32 31 2d 42 59 29 2c 31 0d 00 f0 |,-7,(21-BY),1...| 000001e0 0e 20 e9 20 42 59 3d 42 59 2b 31 0d 00 fa 20 20 |. . BY=BY+1... | 000001f0 e7 20 42 59 3e 3d 32 31 2d 42 28 42 58 2b 31 29 |. BY>=21-B(BX+1)| 00000200 2b 31 20 8c 20 e5 20 8d 54 4e 41 0d 01 04 06 20 |+1 . . .TNA.... | 00000210 f8 0d 01 0e 28 20 e3 20 52 3d 32 31 2d 42 28 42 |....( . R=21-B(B| 00000220 58 2b 31 29 20 b8 20 32 31 3a f1 8a 42 58 2c 52 |X+1) . 21:..BX,R| 00000230 29 3b 22 20 22 3a ed 20 52 0d 01 18 30 20 e9 20 |);" ":. R...0 . | 00000240 53 63 6f 72 65 3d 53 63 6f 72 65 2b 42 28 42 58 |Score=Score+B(BX| 00000250 2b 31 29 3a f1 8a 30 2c 30 29 3b 22 53 43 4f 52 |+1):..0,0);"SCOR| 00000260 45 20 22 3b 53 63 6f 72 65 0d 01 22 0a 20 e9 20 |E ";Score..". . | 00000270 46 3d 30 0d 01 2c 10 20 e9 20 42 28 42 58 2b 31 |F=0..,. . B(BX+1| 00000280 29 3d 30 0d 01 36 06 20 f8 0d 01 40 10 20 e3 20 |)=0..6. ...@. . | 00000290 52 3d 31 20 b8 20 32 30 30 0d 01 4a 26 20 e3 20 |R=1 . 200..J& . | 000002a0 53 3d 31 20 b8 20 36 3a ef 31 39 2c 30 2c 52 2c |S=1 . 6:.19,0,R,| 000002b0 30 2c 30 2c 30 3a ed 20 53 3a ed 20 52 20 20 0d |0,0,0:. S:. R .| 000002c0 01 54 1a 20 f1 22 50 4c 41 59 20 41 47 41 49 4e |.T. ."PLAY AGAIN| 000002d0 20 28 59 2c 4e 29 20 22 3b 0d 01 5e 09 20 e8 20 | (Y,N) ";..^. . | 000002e0 47 24 0d 01 72 11 20 e7 20 47 24 3d 22 59 22 20 |G$..r. . G$="Y" | 000002f0 8c 20 f9 0d 01 7c 06 20 fa 0d ff |. ...|. ...| 000002fb
ORBIT.m0
ORBIT.m1
ORBIT.m2
ORBIT.m4
ORBIT.m5
.