Notes

Disk info for ABM_1980_Muse.do:

File Name: a2_ABM_1980_Muse/ABM_1980_Muse.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 104448
Used Space (bytes): 38912
Physical Size (KB): 140
Free Space (KB): 102
Used Space (KB): 38
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 408
Used Sectors: 152
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for ABM_1980_Muse.do:

a2_ABM_1980_Muse/ABM_1980_Muse.do DISK VOLUME #254
* A 003 HELLO
* B 066 ABM
* A 011 ADJUST
* B 002 CONTROLS
* B 002 CONTROLS2
* B 002 CONTROLS3
* B 002 BKUP.CONTROLS
DOS 3.3 format; 104,448 bytes free; 38,912 bytes used.

Text found in ABM_1980_Muse.do/ADJUST.bas:

1 PRINT "NOMON C,I,O"
5 DIM P(4,4)
10 TEXT : HOME
40 VTAB 8: PRINT " ABM GAME CONTROL": PRINT " ADJUSTMENT"
50 VTAB 16: PRINT " COPYRIGHT 1980, MUSE SOFTWARE": PRINT " ALL RIGHTS RESERVED"
55 PRINT "BLOAD BKUP.CONTROLS"
60 VTAB 23: PRINT " PRESS A KEY TO BEGIN "
70 GET A$
80 HOME
90 VTAB 8: PRINT " THIS PROGRAM ADJUSTS THE CONTROL": PRINT
100 PRINT "SECTIONS OF THE ABM GAME PROGRAM TO": PRINT
110 PRINT "MATCH YOUR GAME CONTROLLER.": PRINT
130 PRINT " MOVE THE GAME CONTROLLER AS THOUGH": PRINT
140 PRINT "YOU WERE CONTROLLING YOUR TARGET": PRINT
150 PRINT "MARKER AS THE ADJUSTER DIRECTS YOU."
170 VTAB 23: PRINT " PRESS A KEY TO GO ON.": GET A$
180 HOME
190 PRINT "MOVE YOUR GAME": PRINT "CONTROLS TO": PRINT "THE UPPER LEFT": PRINT "THEN PRESS A KEY."
200 GET A$:R = 1: GOSUB 5000
210 HOME
220 PRINT " MOVE YOUR GAME": PRINT " CONTROLS TO "
230 PRINT " THE UPPER RIGHT ": PRINT " THEN PRESS A KEY. "
240 GET A$:R = 2: GOSUB 5000
250 HOME : VTAB 16
260 PRINT "MOVE YOUR GAME": PRINT "CONTROLS TO": PRINT "THE LOWER LEFT": PRINT "THEN PRESS A KEY.
270 GET A$:R = 3: GOSUB 5000
280 HOME : VTAB 16
290 PRINT " MOVE YOUR GAME ": PRINT " CONTROLS TO "
300 PRINT " THE LOWER RIGHT ": PRINT " THEN PRESS A KEY. "
310 GET A$:R = 4: GOSUB 5000
320 HOME
330 PA = 1:PB = 2:PC = 3:PD = 4: GOSUB 6000
338 HP = PP
340 POKE 781,PP -1
345 POKE 787,PQ
350 PA = 1:PB = 3:PC = 2:PD = 4: GOSUB 6000
360 POKE 790,PP -1
362 VP = PP
365 POKE 796,PQ
370 HOME
380 R = 1: GOSUB 7000
390 VTAB 16: PRINT " PRESS THE BUTTON THAT FIRES": PRINT " THE OUTER AND CENTER MISSILES."
395 VTAB 20: PRINT "OUTER CENTER OUTER"
400 R = 2: GOSUB 8000
410 POKE 801,PP -1: POKE 813,128 -PQ
411 HOME : VTAB 13: PRINT " LET UP ON IT!"
412 R = 2: GOSUB 7000
413 PP = 0
414 FOR Q = 1 TO 3
415 IF P(Q,2) = P(Q,1) THEN 417
416 PP = Q
417 NEXT Q
418 IF PP >0 THEN 411
420 HOME
429 HOME
430 VTAB 16: PRINT " NOW PRESS THE BUTTON THAT"
440 PRINT " FIRES THE INNER MISSILES."
445 VTAB 20: PRINT " INNER INNER"
450 R = 3: GOSUB 8000
460 POKE 827,PP -1: POKE 839,128 -PQ
461 IM = PP
470 HOME : VTAB 16: PRINT " OKAY, LET GO.": PRINT " THE GAME IS STARTING!"
490 PRINT "BSAVE CONTROLS,A$300,L$60"
500 PRINT "BRUNABM"
1000 HOME : VTAB 10
1010 PRINT " THERE IS A PROBLEM."
1020 PRINT
1030 PRINT " YOU MOVED ONLY ONE GAME PADDLE.": PRINT
1040 PRINT " YOU NEED TWO PADDLES OR A JOYSTICK": PRINT
1050 PRINT " TO PLAY THIS GAME!"
1060 VTAB 23: PRINT " PRESS A KEY TO START OVER.": GET A$
1070 GOTO 180
4098 OM = PP
5000 REM
5005 FOR Q = 1 TO 4:P(Q,R) = PDL(Q -1): NEXT Q
5020 RETURN
6000 PP = 0
6005 MX = 0
6010 FOR Q = 1 TO 4
6020 DI = P(Q,PA) +P(Q,PC) -(P(Q,PB) +P(Q,PD))
6030 IF ABS(DI) < = ABS(MX) THEN 6050
6040 MX = DI:PP = Q
6050 NEXT Q
6060 PQ = 0: IF MX >0 THEN PQ = 255: RETURN
6070 RETURN
7000 FOR Q = 1 TO 3
7020 P(Q,R) = 0
7030 IF PEEK(Q -16288) >127 THEN P(Q,R) = 128
7040 NEXT Q
7050 RETURN
8000 GOSUB 7000:PP = 0:PQ = 0
8010 FOR Q = 1 TO 3: IF P(Q,R) = P(Q,1) THEN 8030
8020 PP = Q:PQ = P(Q,R)
8030 NEXT Q
8040 IF PP = 0 THEN 8000
8050 RETURN

Text found in ABM_1980_Muse.do/BKUP.CONTROLS.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C 0C 03 4C 15 03 4C 20 03 4C 3A 03 A2 00 20 1E L..L..L .L:.". .
$000010 FB 98 49 00 60 A2 01 20 1E FB 98 49 00 60 00 00 {.I.`". .{.I.`..
$000020 A2 00 BD 61 C0 29 80 A0 00 8D 28 03 C9 00 F0 07 ".=a@). ..(.I.p.
$000030 CC 2D 03 D0 02 38 60 18 60 00 A2 01 BD 61 C0 29 L-.P.8`. `.".=a@)
$000040 80 A0 00 8D 42 03 C9 00 F0 07 CC 47 03 D0 02 38 . ..B.I. p.LG.P.8
$000050 60 18 60 00 00 00 00 00 00 00 00 00 00 00 00 00 `.`..... ........
** END **

Text found in ABM_1980_Muse.do/CONTROLS.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C 0C 03 4C 15 03 4C 20 03 4C 3A 03 A2 00 20 1E L..L..L .L:.". .
$000010 FB 98 49 00 60 A2 01 20 1E FB 98 49 00 60 00 00 {.I.`". .{.I.`..
$000020 A2 00 BD 61 C0 29 80 A0 00 8D 28 03 C9 00 F0 07 ".=a@). ..(.I.p.
$000030 CC 2D 03 D0 02 38 60 18 60 00 A2 00 BD 61 C0 29 L-.P.8`. `.".=a@)
$000040 80 A0 00 8D 42 03 C9 00 F0 07 CC 47 03 D0 02 38 . ..B.I. p.LG.P.8
$000050 60 18 60 00 00 00 00 00 00 00 00 00 00 00 00 00 `.`..... ........
** END **

Text found in ABM_1980_Muse.do/CONTROLS2.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C 0C 03 4C 15 03 4C 20 03 4C 3A 03 A2 00 20 1E L..L..L .L:.". .
$000010 FB 98 49 00 60 A2 01 20 1E FB 98 49 00 60 00 00 {.I.`". .{.I.`..
$000020 A2 01 BD 61 C0 29 80 A0 00 8D 28 03 C9 00 F0 07 ".=a@). ..(.I.p.
$000030 CC 2D 03 D0 02 38 60 18 60 00 A2 02 BD 61 C0 29 L-.P.8`. `.".=a@)
$000040 80 A0 00 8D 42 03 C9 00 F0 07 CC 47 03 D0 02 38 . ..B.I. p.LG.P.8
$000050 60 18 60 00 00 00 00 00 00 00 00 00 00 00 00 00 `.`..... ........
** END **

Text found in ABM_1980_Muse.do/CONTROLS3.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C 0C 03 4C 15 03 4C 20 03 4C 3A 03 A2 00 20 1E L..L..L .L:.". .
$000010 FB 98 49 00 60 A2 01 20 1E FB 98 49 00 60 00 00 {.I.`". .{.I.`..
$000020 A2 01 BD 61 C0 29 80 A0 00 8D 28 03 C9 00 F0 07 ".=a@). ..(.I.p.
$000030 CC 2D 03 D0 02 38 60 18 60 00 A2 00 BD 61 C0 29 L-.P.8`. `.".=a@)
$000040 80 A0 00 8D 42 03 C9 00 F0 07 CC 47 03 D0 02 38 . ..B.I. p.LG.P.8
$000050 60 18 60 00 00 00 00 00 00 00 00 00 00 00 00 00 `.`..... ........
** END **

Text found in ABM_1980_Muse.do/HELLO.bas:

10 PRINT "NOMON C,I,O"
20 HOME
35 VTAB 12: PRINT " CONTROLS 1, 2 OR 3 (PRESS 1, 2 OR 3) ";: GET C$:C = VAL(C$): IF C <0 OR C >3 THEN 35
36 PRINT
37 IF C = 2 THEN PRINT "BLOAD CONTROLS2": GOTO 50
38 IF C = 3 THEN PRINT "BLOAD CONTROLS3": GOTO 50
40 PRINT "BLOAD CONTROLS"
50 POKE -16297,0: POKE -16302,0: POKE -16304,0
60 I = 0
70 I = I +1
80 IF PEEK( -16384) = 155 THEN 200
85 IF PEEK( -16384) >127 THEN 100
90 IF I <200 THEN 70
100 POKE -16368,0
105 TEXT : HOME
110 PRINT : PRINT "BRUNABM"
200 POKE -16368,0
205 TEXT : HOME
210 PRINT : PRINT "RUN ADJUST"