Notes

Disk info for 3_D_Docking_Mission_1978_Programma_International.do:

File Name: a2_3_D_Docking_Mission_1978_Programma_International/3_D_Docking_Mission_1978_Programma_International.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 110080
Used Space (bytes): 33280
Physical Size (KB): 140
Free Space (KB): 107
Used Space (KB): 32
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 430
Used Sectors: 130
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 3_D_Docking_Mission_1978_Programma_International.do:

a2_3_D_Docking_Mission_1978_Programma_International/3_D_Docking_Mission_1978_Programma_International.do DISK VOLUME #254
A 002 HELLO
I 021 DOCKING MISSION
* B 050 INTBASIC
DOS 3.3 format; 110,080 bytes free; 33,280 bytes used.

Text found in 3_D_Docking_Mission_1978_Programma_International.do/DOCKING MISSION.int:

1 HIMEM:16384:LOMEM:4000
3 POKE 60,255: POKE 61,58: POKE 62,255: POKE 63,63: POKE 66,0: POKE 67,8:CALL -468
4 POKE 76,255: POKE 77,58
5 HIMEM:8192
6 DEL 0, 7
7 GOTO 10
10 GOTO 8000
100 X0=E:Y0=F:SHAPE=5:CALL X:Y0=H:CALL X:E=E-3:IF E<0 THEN GOSUB 800:X0=E:Y0=F:CALL X:Y0=H:CALL X
120 X0=A:Y0=B:SHAPE=4:CALL X:A=A+I:IF A>277 THEN A=277:IF A<12 THEN A=12
130 B=B+K:IF B>72 THEN B=72:IF B<7 THEN B=7:X0=A:Y0=B:CALL X
133 Z= PEEK (810):P=P+1:IF P=700 THEN 4000:VTAB 24:TAB 6:PRINT P;
135 SHAPE=2:X0=C:Y0=D:CALL X:C=A:X0=C
140 D=D+J:IF D<83 THEN D=83:IF D>155 THEN D=155:Y0=D:CALL X
150 IF PEEK (810)#29 AND Z#43 THEN 900
300 M= PEEK (-16384):IF M>127 THEN 320:GOTO 100
320 POKE -16368,0:IF M# ASC("T") AND M# ASC("B") AND M# ASC("F") AND M# ASC("H") AND M# ASC(",") AND M# ASC(".") THEN 100
400 L=L-1:VTAB 24:TAB 15:PRINT " ";:TAB 15:PRINT L;:IF L<0 THEN 3000
510 IF M= ASC("T") THEN J=J-1:IF M= ASC("B") THEN J=J+1:IF M= ASC("F") THEN I=I-1:IF M= ASC("H") THEN I=I+1
515 IF M= ASC(",") THEN K=K-1:IF M= ASC(".") THEN K=K+1:GOTO 100
600 IF M= ASC("T") THEN A$="UP":IF M= ASC("B") THEN A$="DOWN":IF M= ASC("H") THEN A$="FORWARD":IF M= ASC("F") THEN A$="REVERSE"
610 IF M= ASC(",") THEN A$="LEFT":IF M= ASC(".") THEN A$="RIGHT":VTAB 24:TAB 2:PRINT " ";:VTAB 24:TAB 2:PRINT A$;:RETURN
800 E=279:F= RND (60)+10:H= RND (60)+90:RETURN
900 IF A>253 AND A<258 THEN 920
910 GOTO 990
920 IF B>42 AND B<46 THEN 940
930 GOTO 990
940 IF D>122 AND D<126 THEN 960
950 GOTO 990
960 IF I>1 OR J>1 OR K>1 THEN 990
965 R=((800-(2*P))/2)+(L*3):GOTO 2000
990 GOTO 9000
1000 IF M= ASC("T") THEN A$="UP"
1010 IF M= ASC("B") THEN A$="DOWN"
1022 IF M= ASC("H") THEN A$="FORWARD"
1030 IF M= ASC("F") THEN A$="REVERSE"
1040 IF M= ASC(",") THEN A$="LEFT"
1050 IF M= ASC(".") THEN A$="RIGHT"
1070 VTAB 24:TAB 2:PRINT " ";
1080 VTAB 24:TAB 2:PRINT A$;:RETURN
2000 VTAB 23:TAB 37:PRINT R;
2005 IF R<=S THEN 2050
2010 POKE 50,127:VTAB 23:TAB 22
2020 PRINT "NEW HIGH SCORE=";R;
2030 POKE 50,255
2050 VTAB 24:TAB 37:PRINT S;
2070 IF R>S THEN S=R
2080 FOR A=1 TO 10:COLR=127
2090 X0=259:Y0=117:CALL PLOT
2100 X0=258:CALL PLOT
2110 Y0=44:CALL PLOT
2120 X0=259:CALL PLOT
2130 PRINT "";:COLR=0:GOSUB 2300
2140 Y0=117:CALL PLOT
2150 X0=258:CALL PLOT
2160 Y0=44:CALL PLOT
2170 X0=259:CALL PLOT:GOSUB 2300:NEXT A
2180 GOTO 9050
2300 FOR B=1 TO 50:NEXT B:RETURN
3000 VTAB 22:TAB 12: POKE 50,127
3010 PRINT " OUT OF FUEL!! ": POKE 50,255
3020 GOTO 9050
4000 VTAB 22:TAB 12: POKE 50,127
4010 PRINT " OUT OF TIME!! ": POKE 50,255
4020 GOTO 9050
7000 CALL INIT
7010 COLR=127:X0=0:Y0=0:CALL POSN
7020 X0=279:CALL LINE:Y0=159:CALL LINE
7030 X0=0:CALL LINE:Y0=0:CALL LINE
7040 Y0=79:CALL POSN:X0=279:CALL LINE
7045 X0=278:Y0=0:CALL POSN:Y0=159:CALL LINE:X0=1:CALL POSN:Y0=0:CALL LINE
7050 SCALE=1:ROT=0
7060 X0=250:Y0=40:SHAPE=3:CALL X
7070 A=20:X0=A:B= RND (40)+20:Y0=B:SHAPE=4:CALL X:C=A
7080 X0=250:Y0=120:SHAPE=1:CALL X
7090 X0=A:D= RND (40)+100:Y0=D:SHAPE=2:CALL X
7100 SHAPE=5
7120 FOR Z=1 TO 25:X0= RND (200)+40:Y0= RND (65)+5:CALL X:Y0= RND (65)+85:CALL X:NEXT Z
7140 X0=259:Y0=122:CALL POSN
7150 Y0=118:CALL LINE
7160 Y0=44:CALL PLOT
7200 REM READOUT
7201 POKE 34,20:CALL -936
7210 TAB 1
7220 VTAB 21
7230 PRINT "> 3-D DOCKING MISSION BY CHRIS OBERTH <";
7240 PRINT :PRINT " TIME FUEL SCORE="
7242 TAB 15:PRINT L;
7250 TAB 26:PRINT "HIGH SCORE=";S;
7900 GOTO 100
8000 REM INIT. VAR.
8005 X0=Y0=COLR=SHAPE=ROT=SCALE:T=0
8010 X=0:A=0:B=0:C=0:D=0:E=0:F=0:H=0:I=0:J=0:K=0:L=0:M=0:N=0:P=0:R=0:S=0:T=0
8015 POKE 808,0: POKE 809,12
8020 X=2884:INIT=2048:POSN=2809:PLOT=2830:LINE=2836:DRAW=2871
8022 GOSUB 8100
8025 DIM A$(8)
8027 GOTO 9060
8030 L=40
8040 A=0:B=0:C=0:D=0:E=0:F=0:H=0:I=0:J=0:K=0:M=0:N=0:P=0:R=0:T=0
8050 GOTO 7000
8100 REM INSTRUCTIONS
8110 CALL -936
8120 PRINT " >>>> 3-D DOCKING MISSION <<<< "
8125 TAB 13
8130 PRINT "BY CHRIS OBERTH":PRINT
8140 PRINT "THE SPLIT SCREEN CONSISTS OF A TOP VIEW (TOP HALF) AND A SIDE VIEW (BOTTOM HALF)"
8150 PRINT "MOVE YOUR SHIP (LEFT SIDE) THROUGH THE ASTEROIDS AND DOCK AT THE SLOWEST SPEED."
8160 PRINT "THE THRUSTER CONTROLS FIRE ONE BURST AT A TIME."
8170 PRINT :PRINT "THRUSTER CONTROLS: T=UP <=LEFT"
8180 TAB 20:PRINT "B=DOWN >=RIGHT"
8190 TAB 20:PRINT "H=FORWARD"
8200 TAB 20:PRINT "F=REVERSE"
8210 PRINT :PRINT "HITTING AN ASTEROID IN THE TOP VIEW AND THE SIDE VIEW IS A COLLISION."
8900 VTAB 21:TAB 14:PRINT "HIT S TO START";
8910 RETURN
9000 POKE 50,127
9005 VTAB 22:TAB 2
9010 PRINT " C-O-L-L-I-S-I-O-N ";
9020 POKE 50,255
9025 FOR B=1 TO 20
9027 FOR C=1 TO 30:NEXT C
9030 FOR A=1 TO 10: POKE -16336,0:D= PEEK (-16336):NEXT A,B
9050 VTAB 21:TAB 3:PRINT "HIT S TO START : I FOR INSTRUCTIONS "
9060 K= PEEK (-16384):IF K<128 THEN 9060
9070 POKE -16368,0
9080 IF K= ASC("S") THEN 8030
9090 IF K# ASC("I") THEN 9060
9100 TEXT :GOTO 9060
32767 REM COPYRIGHT 1978
65535 REM 3-D DOCKING MISSION
65535 REM BY CHRIS OBERTH
65535 REM TEL.312/751-1555
Listing error: possible embedded machine code.

Text found in 3_D_Docking_Mission_1978_Programma_International.do/HELLO.bas:

10 PRINT CHR$(4);"BLOAD INTBASIC"
20 PRINT CHR$(4);"RUN DOCKING MISSION"