Notes

Disk info for 050_Max_Command.dsk:

File Name: riag_004_050_-_Max_Command/050_Max_Command.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 113152
Used Space (bytes): 30208
Physical Size (KB): 140
Free Space (KB): 110
Used Space (KB): 29
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 442
Used Sectors: 118
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 050_Max_Command.dsk:

riag_004_050_-_Max_Command/050_Max_Command.dsk DISK VOLUME #254
A 002 HELLO
A 020 HELLO.MAX COMMAND
* B 034 F
* B 004 W2
* B 002 L
T 004 OG
* B 006 P
T 002 RN
* B 034 R
* B 021 M
* B 004 W3
* B 004 W0
* B 004 W4
* B 004 W5
* A 029 I
* B 003 Z
* A 053 V1
* B 004 W1
* B 011 T1
T 005 CS
* A 021 C
A 053 CP
B 002 T
DOS 3.3 format; 113,152 bytes free; 30,208 bytes used.

Text found in 050_Max_Command.dsk/C.bas:

5 ONERR GOTO 30000
10 PRINT CHR$(17): PRINT CHR$(4);"BLOADZ": PRINT "OPENRN": PRINT "READRN": INPUT Y: INPUT A$: INPUT B$: INPUT C$: INPUT D$: INPUT LS: INPUT RS: INPUT P: PRINT "CLOSERN":P = 1
15 FOR I = 1 TO LEN(A$):Z$ = MID$ (A$,I,1): IF Z$ = CHR$(17) THEN I = LEN(A$): NEXT I: GOTO 17
16 X$ = X$ +Z$: NEXT I:A$ = X$
17 FOR I = 1 TO LEN(B$):Z$ = MID$ (B$,I,1): IF Z$ = CHR$(17) THEN I = LEN(B$): NEXT I: GOTO 20
18 X$ = X$ +Z$: NEXT I:B$ = X$
20 HOME : ON LS >RS GOTO 1000: ON RS = LS GOTO 2000: GOTO 3000
1000 INVERSE : HOME : FOR I = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32:D$ = "SUBJECT: BATTLE OF ALPHAGORDA":B$ = "STRATEGIC DEFENSE GROUP": ON LS -RS >LS/3 GOTO 1200:E$ = "CONFIDENTIAL MEMORANDUM":F$ = "TO: GENERAL ":G$ = "FROM: ":G$ = G$ +B$:F$ = F$ +C$
1010 P1 = 1:P2 = 255:P3 = 255:P4 = 1: INVERSE : VTAB 2: HTAB 9: PRINT E$: VTAB 6: HTAB 2: PRINT F$
1020 VTAB 8: HTAB 2: PRINT G$: VTAB 10: HTAB 2: PRINT D$
1030 SPEED= 255: HTAB 1: VTAB 12: PRINT " WE ARE RELIEVED THAT YOU MANAGED TO ";: PRINT " PREVAIL IN THE BATTLE OF ALPHAGORDA. ";: PRINT " YOUR NATION IS GRATEFUL. ";: PRINT " IT HAS COME TO OUR ATTENTION THAT ";
1040 PRINT " YOU HAVE NOT BEEN EXPOSED TO SOME OF ";: PRINT " THE LATEST TECHNIQUES OF MODERN WARFARE";: PRINT " THEREFORE, WE REQUEST THAT YOU ATTEND ";: PRINT " AT YOUR CONVENIENCE, A SPECIAL SESSION ";: PRINT " OF THE WAR COLLEGE. THERE IS ONE"
1050 PRINT " STARTING SOON. ": FOR I = 1 TO 10000: NEXT I: FOR I = 49151 TO 39000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39000 POKE I,0: NEXT I
1200 ON LS -RS > = LS/2 GOTO 1500: VTAB 2: HTAB 9: PRINT B$: VTAB 5: PRINT "GENERAL ";C$;",": VTAB 7: PRINT " YOU HAVE PERFORMED WELL IN THE BATTLE";: PRINT " OF ALPHAGORDA. CONGRATULATIONS ON A ";: PRINT " DIFFICULT JOB WELL DONE! ";
1210 PRINT " IT IS WITH PLEASURE THAT WE ORDER YOU";: PRINT " TO REPORT IMMEDIATELY FOR DUTY AS ";: PRINT " PERMANENT COMMANDER IN CHIEF OF OUR ";: PRINT " MILITARY FORCES.": HTAB 30: VTAB 15: PRINT "S.D.G."
1220 FOR I = 1 TO 10000: NEXT I: FOR I = 49151 TO 39000: POKE I,0: NEXT I: FOR I = 300 TO 39000: POKE I,0: NEXT I
1500 VTAB 2: HTAB 12: PRINT "CITATION OF HONOR": VTAB 4:Q = LEN(A$): HTAB 1 +((40 -Q)/2): PRINT A$: VTAB 6: PRINT " BE IT HENCEFORTH KNOWN TO ALL THAT ";: VTAB 8: PRINT " GENERAL ";C$;",": VTAB 10: HTAB 1: PRINT " DID FAITHFULLY DISCHARGE HIS DUTIES AS ";
1510 PRINT " COMMANDER OF OUR FORCES, AND FURTHER ";: PRINT " DID EXHIBIT BRILLIANCE AND TACTICAL ";: PRINT " RESOURCEFULNESS ON THE PLAINS OF ALPHA-";: PRINT " GORDA BY SOUNDLY DEFEATING THE ENEMY, ";
1520 PRINT " THUS ELIMINATING ANY THREAT TO OUR ";: PRINT " NATIONAL SECURITY.": PRINT " HIS TACTICS HAVE BEEN INCORPORATED INTO THE CURRICULUM OF THE NATIONAL WAR COLLEGE, AND HIS NAME HAS BEEN ENTERED ON THE ROLL OF THE NATIONS HEROES."
1530 FOR I = 1 TO 10000: NEXT I: FOR I = 49151 TO 39000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39000: POKE I,0: NEXT I
2000 INVERSE : HOME : FOR I = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32: VTAB 2: HTAB 12: FLASH : PRINT "WORLD REPORT": INVERSE : VTAB 4: PRINT " AFTER SAVAGE AND PROLONGED FIGHTING ": PRINT " WITH NEITHER SIDE GAINING A DECISIVE"
2010 PRINT " ADVANTAGE, THE NATIONS OF": VTAB 8: HTAB 2: PRINT A$: VTAB 10: PRINT " AND": VTAB 12: HTAB 2: PRINT B$: VTAB 14: PRINT " HAVE DECLARED A BILATERAL CEASE-FIRE.": PRINT " IT IS HOPED THAT THE TWO NATIONS WILL": PRINT " BE ABLE TO SETTLE THEIR DIFFERENCES AT"
2020 PRINT " THE CONVERENCE TABLE. THESE POWERS": PRINT " HAVE A LONG HISTORY OF CONFLICT AND": PRINT " FURTHER FIGHTING IS ANTICIPATED.": PRINT " SEVERAL WORLD POWERS HAVE OFFERED TO": PRINT " ACT AS NEGOTIATORS TO TRY FOR A LASTING";
2030 PRINT " PEACE SETTLEMENT."
2040 FOR I = 1 TO 10000: NEXT I: FOR I = 49151 TO 39000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39000 POKE I,0: NEXT I
3000 INVERSE : HOME : FOR I = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32:C$ = "SUBJECT: BATTLE OF ALPHAGORDA":A$ = "NATIONAL WAR MINISTRY": ON RS -LS >RS/3 GOTO 3200:E$ = "CONFIDENTIAL MEMORANDUM":F$ = "TO: GENERAL ":G$ = "FROM: ":G$ = G$ +A$:F$ = F$ +D$
3010 P1 = 1:P2 = 255:P3 = 255:P4 = 1: INVERSE : VTAB 2: HTAB 9: PRINT E$: VTAB 6: HTAB 2: PRINT F$
3020 VTAB 8: HTAB 2: PRINT G$: VTAB 10: HTAB 2: PRINT C$
3030 SPEED= 255: HTAB 1: VTAB 12: PRINT " WE ARE RELIEVED THAT YOU MANAGED TO ";: PRINT " PREVAIL IN THE BATTLE OF ALPHAGORDA. ";: PRINT " YOUR NATION IS GRATEFUL. ";: PRINT " IT HAS COME TO OUR ATTENTION THAT ";
3040 PRINT " YOU HAVE NOT BEEN EXPOSED TO SOME OF ";: PRINT " THE LATEST TECHNIQUES OF MODERN WARFARE";: PRINT " THEREFORE, WE REQUEST THAT YOU ATTEND ";: PRINT " AT YOUR CONVENIENCE, A SPECIAL SESSION ";: PRINT " OF THE WAR COLLEGE. THERE IS ONE"
3050 PRINT " STARTING SOON. ": FOR I = 1 TO 10000: NEXT I: FOR I = 49151 TO 39000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39000 POKE I,0: NEXT I
3200 ON RS -LS > = RS/2 GOTO 3500: VTAB 2: HTAB 9: PRINT A$: VTAB 5: PRINT "GENERAL ";D$;",": VTAB 7: PRINT " YOU HAVE PERFORMED WELL IN THE BATTLE";: PRINT " OF ALPHAGORDA. CONGRATULATIONS ON A ";: PRINT " DIFFICULT JOB WELL DONE! ";
3210 PRINT " IT IS WITH PLEASURE THAT WE ORDER YOU";: PRINT " TO REPORT IMMEDIATELY FOR DUTY AS ";: PRINT " PERMANENT COMMANDER IN CHIEF OF OUR ";: PRINT " MILITARY FORCES.": HTAB 18: VTAB 15: PRINT "NATIONAL WAR MINISTRY"
3220 FOR I = 1 TO 10000: NEXT I: FOR I = 49151 TO 39000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39000: POKE I,0: NEXT I
3500 VTAB 2: HTAB 12: PRINT "CITATION OF HONOR": VTAB 4:Q = LEN(B$): HTAB 1 +((40 -Q)/2): PRINT B$: VTAB 6: PRINT " BE IT HENCEFORTH KNOWN TO ALL THAT ";: VTAB 8: PRINT " GENERAL ";D$;",": VTAB 10: HTAB 1: PRINT " DID FAITHFULLY DISCHARGE HIS DUTIES AS ";
3510 PRINT " COMMANDER OF OUR FORCES, AND FURTHER ";: PRINT " DID EXHIBIT BRILLIANCE AND TACTICAL ";: PRINT " RESOURCEFULNESS ON THE PLAINS OF ALPHA-";: PRINT " GORDA BY SOUNDLY DEFEATING THE ENEMY, ";
3520 PRINT " THUS ELIMINATING ANY THREAT TO OUR ";: PRINT " NATIONAL SECURITY.": PRINT " HIS TACTICS HAVE BEEN INCORPORATED INTO THE CURRICULUM OF THE NATIONAL WAR COLLEGE, AND HIS NAME HAS BEEN ENTERED ON THE ROLL OF THE NATIONS HEROES."
3530 FOR I = 1 TO 10000: NEXT I: FOR I = 49151 TO 39000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39000: POKE I,0: NEXT I
10000 POKE 783,P1: POKE 789,P2: POKE 794,P3: POKE 848,P4: CALL 768
10001 RETURN
30010 TEXT : HOME : VTAB 12: PRINT "ERROR #"; PEEK(222);" IN LINE #";( PEEK(218) + PEEK(219) *256): PRINT "CODE ";CC: FOR I = 49151 TO 40000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39151: POKE I,0: NEXT I

Text found in 050_Max_Command.dsk/CP.bas:

0 GOTO 6000
1 WAIT 49152,128
2 K = PEEK(49152): IF K <128 THEN GOSUB 23: FOR I = 1 TO 10: NEXT I: GOSUB 23: GOTO 2
3 POKE 49168,0: GOSUB 17: IF K = 136 THEN K = 1
4 IF K = 141 THEN K = 2
5 IF K = 149 THEN K = 3
6 IF K = 199 THEN K = 4
7 IF K = 209 THEN K = 5
8 IF K = 211 THEN K = 6
9 IF K = 206 THEN K = 7
10 IF K = 216 THEN K = 8
11 IF K = 217 THEN K = 9
12 IF K = 218 THEN K = 10
13 IF K = 198 THEN K = 11
14 IF K >176 THEN K = K -165
15 IF K >19 THEN K = 0
16 RETURN
17 POKE S1,1: POKE S2,133: POKE S3,111: POKE S4,50: CALL 768: RETURN
18 POKE S1,1: POKE S2,255: POKE S3,255: POKE S4,1: CALL 768: RETURN
19 POKE S1,2: POKE S2,25: POKE S3,25: POKE S4,255: CALL 768: RETURN
20 HCOLOR= 3:C = 28: IF OB >0 THEN HCOLOR= 2:C = 25: IF OB >1 THEN C = 26: HCOLOR= 1: IF OB >2 THEN C = 33: IF OB >3 THEN C = 35: IF OB >4 THEN HCOLOR= 0:C = 29: IF OB >10 THEN C = OB: IF C >20 THEN C = C -20
21 IF C <33 OR C = 34 THEN DRAW C AT (18 *A) -12,(13 *B) -11: RETURN
22 IF C = 35 THEN XDRAW C AT (18 *A) -14,(13 *B) -11: RETURN
23 XDRAW C AT (18 *A) -12,(13 *B) -11: RETURN
24 OK = 0: ON B%(J) = 0 GOTO 16:OK = 1:E$ = STR$(B%(J)):A = VAL( LEFT$(E$,1)):B = VAL( MID$ (E$,2,2)): ON B%(J) <1000 GOTO 16:A = VAL( LEFT$(E$,2)):B = VAL( MID$ (E$,3,2)): RETURN
25 V = 0:W = 0:X = 0:Y = 0:Z = A%(A,B): IF Z <0 THEN V = 1:Z = A%(0, -Z)
26 ON Z <10 GOTO 16:E$ = STR$(Z):W = VAL( LEFT$(E$,2)):X = VAL( MID$ (E$,3,1)):Y = VAL( MID$ (E$,4,1)):Z = VAL( RIGHT$(E$,1)): RETURN
27 HCOLOR= 0:GA = ABS(GA -1): IF GA = 0 THEN HCOLOR= 3
28 POKE 49236,0: POKE 230,64: GOSUB 29: POKE 49237,0: POKE 230,32: GOSUB 29: POKE 49236,0: RETURN
29 FOR H = 5 TO 277 STEP 18: HPLOT H,1 TO H,156: NEXT H: FOR H = 1 TO 157 STEP 13: HPLOT 5,H TO 275,H: NEXT H: RETURN
30 IF J = 1 THEN J = 13
31 J = J -1: ON B%(J) = 0 GOTO 30: RETURN
32 IF J = 12 THEN J = 0
33 J = J +1: ON B%(J) = 0 GOTO 32: RETURN
34 POKE 768,32: RETURN
35 POKE 768,96: RETURN
36 HOME : FOR O = 0 TO 1: POKE 230,32 *(2 -O): FOR A = D TO E: FOR B = F TO G: GOSUB 38: NEXT B,A: IF GA = 1 THEN HCOLOR= 0: GOSUB 29
37 POKE 49237 -O,0: NEXT O: RETURN
38 GOSUB 25:OB = 0: GOSUB 20: IF Z >0 THEN OB = Z: GOSUB 20
39 IF V < >0 THEN OB = 5: GOSUB 20
40 IF W < >0 THEN OB = W: GOSUB 20
41 RETURN
42 OK = 0:A1 = A2:B1 = B2 -1: IF K >12 THEN A1 = A2 +1: IF K >13 THEN B1 = B2: IF K >14 THEN B1 = B2 +1: IF K >15 THEN A1 = A2: IF K >16 THEN A1 = A2 -1: IF K >17 THEN B1 = B2: IF K >18 THEN B1 = B2 -1
43 A = A1:B = B1: ON A <1 OR A >15 OR B <1 OR B >12 GOTO 16: GOSUB 25: ON ((PW < >21 AND PW < >13) AND (Z = 1 OR Z = 3 OR V >0)) OR (PW >20 AND (W >0 AND W <20)) OR (W >0 AND Y1 = 1) GOTO 16: ON PA = A2 AND PB = B2 GOTO 45:A = A2:B = B2: GOSUB 25: ON V >0 OR Z >0 OR W >0 GOTO 48:C = PW: IF C >20 THEN C = C -20
44 GOSUB 23: GOTO 49
45 IF PV >0 THEN A%(0, -A%(PA,PB)) = PZ: GOTO 47
46 A%(PA,PB) = PZ
47 D = PA:E = PA:F = PB:G = PB: GOSUB 36:OK = -2: GOTO 49
48 D = A:E = A:F = B:G = B: GOSUB 36:OK = -2
49 A = A1:B = B1:OB = PW: GOSUB 20:A2 = A1:B2 = B1:Y1 = Y1 -1:OK = OK +1: GOSUB 25: ON Z = 0 OR PW = 21 GOTO 16:Y1 = 0: RETURN
50 IF W = 21 OR W = 13 THEN X = 0:Y = 0: IF WE >1 AND WE <5 THEN X = 1:Y = 5
51 IF W = 22 OR W = 14 THEN Y = 1: IF WE >2 THEN Y = 3
52 IF W = 23 OR W = 15 THEN Y = 1: IF WE >2 THEN X = 1:Y = 2: IF WE >3 AND WE <6 THEN X = 3: IF WE >4 THEN X = 0:Y = 0:
53 IF (W = 24 OR W = 26 OR W = 16 OR W = 18) AND WE >2 THEN X = 1: IF WE >3 AND WE <6 THEN X = 0: IF WE >4 THEN Y = 0
54 IF W = 25 OR W = 17 THEN Y = 1: IF WE >2 THEN X = 1:Y = 3: IF WE >3 AND WE <6 THEN X = 2
55 RETURN
56 GOSUB 17: IF J = 13 THEN J = 25
57 J = J -1: GOSUB 24: ON OK = 0 OR ABS(A -D) >F -1 OR ABS(B -E) >F -1 GOTO 56: RETURN
58 GOSUB 17: IF J = 24 THEN J = 12
59 J = J +1: GOSUB 24: ON OK = 0 OR ABS(A -D) >F -1 OR ABS(B -E) >F -1 GOTO 58: RETURN
60 RA = 0:XF = PA: HOME : VTAB 22: HTAB 18: FLASH : PRINT "FIRE!": NORMAL :J = PA: GOSUB 24: GOSUB 25:C = 1:D = 104:E = 1:F = 33:G = 10: IF W < >21 AND W < >13 THEN C = 20:D = 14:E = 24:F = 18:G = 4: IF W < >22 AND W < >14 THEN D = 1:E = 255:F = 24:G = 255: IF W < >23 AND W < >15 THEN C = 1:D = 32:E = 219:F = 64:G = 32
61 IF W >24 OR W = 17 OR W = 18 THEN D = 58:E = 73:F = 186:G = 22: IF W < >25 AND W < >17 THEN FOR I = 1 TO 5: POKE S1,8: POKE S2,29: POKE S3,233: POKE S4,20: CALL 768: FOR K = 1 TO 300: NEXT K,I:D = 31:E = 74:F = 138:G = 24
62 HCOLOR= 5:H = A:I = B:J = PB: GOSUB 24: IF W < >22 AND W < >24 AND W < >26 AND W < >14 AND W < >16 AND W < >18 THEN HPLOT (18 *A) -7,(13 *B) -5 TO (18 *H) -7,(13 *I) -5 TO (18 *A) -10,(13 *B) -5
63 FOR J = 1 TO C: POKE S1,D: POKE S2,E: POKE S3,F: POKE S4,G: CALL 768: NEXT J: IF (W = 26 OR W = 18) AND RND(RN) >.8 THEN RA = 1
64 J = PB: GOSUB 24: GOSUB 25: IF (PA < >6 AND PA < >18 AND (W = 22 OR W = 14) AND ( ABS(H -A) >1 OR ABS(I -B) >1)) OR RA = 1 THEN POKE S1,8: POKE S2,255: POKE S3,233: POKE S4,40: CALL 768: FOR I = 1 TO 13: NEXT I: POKE S1,8: POKE S2,255: POKE S3,255: POKE S4,40: CALL 768:RA = 1: ON PA = 6 OR PA = 18 GOTO 16: GOTO 75
65 C = W: IF W >20 THEN C = W -20
66 ON PA < >3 AND PA < >5 AND PA < >8 AND PA < >10 AND PA < >15 AND PA < >17 AND PA < >20 AND PA < >22 GOTO 68: FOR I = 1 TO 4: HCOLOR= I: IF I = 3 THEN HCOLOR= 5
67 GOSUB 21: FOR K = 1 TO 10: POKE S1,7: POKE S2,9: POKE S3,12: POKE S4,8: CALL 768: NEXT K,I: HCOLOR= 3: GOSUB 21: GOTO 71
68 ON PA = 6 OR PA = 18 GOTO 70: IF W >20 THEN W = W -20
69 FOR I = 1 TO 10: HCOLOR= 5:C = 34: GOSUB 21: POKE S1,14: POKE S2,42: POKE S3,18: POKE S4,8: CALL 768: HCOLOR= 6:C = W: GOSUB 21: POKE S1,14: POKE S2,42: POKE S3,18: POKE S4,8: CALL 768: NEXT I: HCOLOR= 3:C = 34: GOSUB 21:C = W: GOSUB 21: GOTO 71
70 HCOLOR= 5: GOSUB 21: POKE S1,57: POKE S2,159: POKE S3,171: POKE S4,20: CALL 768: HCOLOR= 3: GOSUB 21: HCOLOR= 0:C = 29: GOSUB 21
71 GOSUB 25:PT = 80: IF W >13 THEN PT = 40: IF W >14 THEN PT = 65: IF W >15 THEN PT = 100: IF W >16 THEN PT = 50: IF W >17 THEN PT = 250: IF W >20 THEN PT = 0:CT = 80: IF W >21 THEN CT = 40: IF W >22 THEN CT = 65: IF W >23 THEN CT = 100: IF W >24 THEN CT = 50: IF W >25 THEN CT = 250
72 HOME : ON PA = 6 OR PA = 18 GOTO 73: IF V = 0 THEN A%(A,B) = Z: GOTO 75
73 I = 0: IF V >0 THEN A%( -A%(A,B),0) = 9:A%(0, -A%(A,B)) = Z: GOTO 75
74 I = I +1: ON C%(I) >0 GOTO 74:A%(0,I) = Z:A%(I,0) = 9:A%(A,B) = -I:C%(I) = 100 *A +B
75 E = A:G = B:K = W:J = PA: GOSUB 24: GOSUB 25:D = A:F = B: HCOLOR= 3: ON W = 22 OR W = 24 OR W = 26 OR W = 11 OR W = 14 OR W = 16 GOTO 79: POKE 230,64:J = PB: ON RA >0 GOTO 76:OB = 0: GOSUB 24: GOSUB 20: IF GA = 1 THEN HCOLOR= 0: GOSUB 29
76 POKE 49237,0: POKE 230,32: HCOLOR= 3: HPLOT (18 *E) -7,(13 *G) -5 TO (18 *D) -7,(13 *F) -5 TO (18 *E) -10,(13 *G) -5: IF D >E THEN A = D:D = E:E = A
77 IF F >G THEN A = F:F = G:G = A
78 FOR A = D TO E: FOR B = F TO G: GOSUB 38: NEXT B,A: IF GA = 1 THEN HCOLOR= 0: GOSUB 29
79 IF D >E THEN A = D:D = E:E = A
80 IF F >G THEN A = F:F = G:G = A
81 POKE 49236,0: GOSUB 36: ON RA >0 GOTO 16:B%(PB) = 0: RETURN
82 H = 7: IF W >21 THEN H = 6: IF W >22 THEN H = 2: IF W >23 THEN H = 4: IF W >24 THEN H = 3: IF W >25 THEN H = 5
83 H = H -1: ON I = 18 AND W < >21 GOTO 84:H = H +1: ON I < >18 GOTO 84:H = H +3
84 RETURN
85 HOME : POKE 230,32: POKE 49236,0: POKE 49235,0: HCOLOR= 3: HPLOT 1,1: CALL 62454: POKE 230,64: HPLOT 1,1: CALL 62454: POKE 230,32: SCALE= 1: ROT= 0: RETURN
86 FOR I = 1 TO 38: POKE S3,128:OB = 1: IF I >14 THEN POKE S3,16:OB = 2: IF I >28 THEN POKE S3,64:OB = 3: IF I >34 THEN POKE S3,125:OB = 4
87 A = 2 + INT(13 * RND(RN)):B = 1 + INT(12 * RND(RN)): ON A%(A,B) >0 GOTO 87: IF B <12 AND B >1 THEN ON A%(A,B +1) >0 AND A%(A,B -1) >0 GOTO 87: IF B <11 AND B >2 THEN ON (A%(A,B +1) >0 AND A%(A,B +2) >0) OR (A%(A,B -1) >0 AND A%(A,B -2) >0) GOTO 87: GOTO 90
88 IF B >10 THEN IF A%(A,B -1) >0 AND A%(A,B -2) >0 THEN 87
89 IF B <3 THEN IF A%(A,B +1) >0 AND A%(A,B +2) >0 THEN 87
90 A%(A,B) = OB: GOSUB 20: POKE 230,64: GOSUB 20: POKE 230,32: POKE S1,11: POKE S2,255: POKE S4,10: CALL 768: NEXT I: RETURN
91 HOME : FOR J = 1 TO 24: GOSUB 24: ON OK = 0 GOTO 92: POKE 230,64: GOSUB 38: POKE 230,32: GOSUB 38
92 NEXT J: ON WE +1 GOTO 502: GOTO 501
93 FOR I = 1 TO 6: IF C%(I) < >0 THEN J = 0:B%(J) = C%(I): GOSUB 24:J = A%( -A%(A,B),0):A%( -A%(A,B),0) = J -1: IF J = 1 THEN A%(A,B) = A%(0, -A%(A,B)):C%(I) = 0:D = A:E = A:F = B:G = B: GOSUB 36
94 NEXT I:A = 1: ON TN = T1 +1 OR PS +PT = >EG OR CS +CT = >EG OR PS +PT = 1000 OR CS +CT = 1000 GOTO 95:A = 0: ON CT < >0 OR PT < >0 GOTO 95: RETURN
95 PS = PS +PT:CS = CS +CT:CT = 0:PT = 0: POKE 49233,0: CALL 2048: VTAB 5: HTAB 2: PRINT A$: VTAB 7: HTAB 11: PRINT C$: VTAB 10: HTAB 11: PRINT PS: VTAB 13: HTAB 2: PRINT B$: VTAB 15: HTAB 11: PRINT D$: VTAB 18: HTAB 11: PRINT CS: IF A = 1 THEN VTAB 2: HTAB 13: PRINT " FINAL SCORES "
96 POKE 49168,0: GOSUB 1: IF A = 1 THEN PRINT "CLOSE": PRINT "OPENRN": PRINT "WRITERN": PRINT RN: PRINT A$: PRINT B$: PRINT C$: PRINT D$: PRINT PS: PRINT CS: PRINT TN: PRINT "CLOSE": PRINT "RUNC"
97 HOME : POKE 49232,0: ROT= 0: RETURN
98 J = PM: GOSUB 24: ON OK = 0 GOTO 16:PA = A:G = A::PB = B:H = B:RA = 6:RB = 4:RC = 2:J = 1: GOSUB 99:PA = G:PB = H:J = 7: GOSUB 99:PA = G:PB = H:J = 12: GOSUB 99:PA = G:PB = H:J = 2: GOSUB 99:PA = G:PB = H:J = 11: GOSUB 99:PA = G:PB = H:J = 6: GOSUB 99: GOSUB 18: RETURN
99 GOSUB 24: ON OK = 0 GOTO 16: ON ( ABS(A -PA) >RA) OR ABS(B -PB) >RA GOTO 16
100 FOR D = 0 TO RB: ON ABS(PA -A) B GOTO 102: ON PA A GOTO 104: ON PB >B GOTO 103:J = 16:MA = PA:MB = PB +1: GOSUB 108:J = 15:MA = PA +1: GOSUB 108::J = 17:MA = PA -1: GOSUB 108: GOTO 16
103 J = 12:MA = PA:MB = PB -1: GOSUB 108:J = 13:MA = PA +1: GOSUB 108:J = 19:MA = PA -1: GOSUB 108: GOTO 16
104 ON PA B GOTO 105:J = 17:MA = PA -1:MB = PB +1: GOSUB 108:J = 16:MA = PA: GOSUB 108:J = 18:MA = PA -1:MB = PB: GOSUB 108: GOTO 16
105 J = 19:MA = PA -1:MB = PB -1: GOSUB 108:J = 12:MA = PA: GOSUB 108:J = 18:MA = PA -1:MB = PB: GOSUB 108: GOTO 16
106 ON PB >B GOTO 107:J = 15:MA = PA +1:MB = PB +1: GOSUB 108:J = 16:MA = PA: GOSUB 108:J = 14:MA = PA +1:MB = PB: GOSUB 108: GOTO 16
107 J = 13:MA = PA +1:MB = PB -1: GOSUB 108:J = 12:MA = PA: GOSUB 108:J = 14:MA = PA +1:MB = PB: GOSUB 108: GOTO 16
108 ON MA <1 OR MA >15 OR MB <1 OR MB >12 GOTO 16: ON (PM < >13 AND PM < >19 AND PM < >24) GOSUB 280: ON (D = RB AND A%(MA,MB) >1000) OR A%(MA,MB) >20000 OR (D = RB AND ( ABS(MA -A) >RC -1 OR ABS(MB -B) >RC -1)) GOTO 16:PA = MA:PB = MB:D%(D +1) = J: POP : NEXT D
109 ON D = 0 GOTO 16: POP : POP : GOTO 5000
110 H = 7: IF W >21 THEN H = 6: IF W >22 THEN H = 2: IF W >23 THEN H = 4: IF W >24 THEN H = 3: IF W >25 THEN H = 5
111 H = H -1: ON I = 17 AND W < >21 GOTO 112:H = H +1: ON I < >17 GOTO 112:H = H +3
112 RETURN
280 E$ = STR$(A%(MA,MB)):V = VAL( RIGHT$(E$,1)): ON (D = RB AND V < >1 AND V < >3 AND A%(MA,MB) > -1) OR V = 0 GOTO 16: POP : RETURN
399 GOSUB 100: RETURN
408 OK = -1: ON MA <1 OR MA >15 OR MB <1 OR MB >12 GOTO 16:OK = 0: ON A%(MA,MB) <1000 AND A%(MA,MB) > -1 AND A%(MA,MB) < >1 AND A%(MA,MB) < >3 GOTO 16:OK = -1: RETURN
500 WE = 0:WE$ = "CLEAR": ON RND(RN) <.7 GOTO 502:WE = 1 + INT( RND(RN) *6):WE$ = "H.RAIN": IF WE >1 THEN WE$ = "L.RAIN": IF WE >2 THEN WE$ = "FOG": IF WE >3 THEN WE$ = "H.WIND": IF WE >4 THEN WE$ = "HAIL": IF WE >5 THEN WE$ = "DUST"
501 HOME : PRINT "": PRINT "BLOADW";WE -1: CALL 2048: POKE 49233,0: VTAB 1: HTAB 1: PRINT "": PRINT "BLOADP": PRINT "BLOADT": GOSUB 1: POKE 49232,0: ROT= 0
502 J = 0: GOSUB 32: HOME : VTAB 21: HTAB 1: INVERSE : PRINT WE$;: NORMAL : HTAB 11: PRINT "'G' TO TOGGLE GRID";: INVERSE : HTAB 33: PRINT "TURN ": VTAB 21: HTAB 38: PRINT TN;: VTAB 22: HTAB 6: PRINT "SELECT UNIT TO BE MOVED";: NORMAL : PRINT " ARROW KEYS"
503 HTAB 6: PRINT "RETURN TO ACCEPT SELECTION": HTAB 6: PRINT "'N' FOR NO SELECTION";
504 GOSUB 24:C = 28: GOSUB 2: ON K GOSUB 30,506,32,27,35,34,505,16,16,6010: GOTO 504
505 POP : GOTO 522
506 POP : GOSUB 24: GOSUB 25:PA = A:A2 = A:PB = B:B2 = B:PV = V:PW = W:PX = X:PY = Y:PZ = Z: ON WE >0 GOSUB 50:RA = X:Y1 = Y: IF Y = 0 THEN HOME : VTAB 22: FLASH : HTAB 4: PRINT "THIS UNIT MAY NOT MOVE THIS TURN": HTAB 7: PRINT "DUE TO WEATHER CONDITIONS": NORMAL : FOR I = 1 TO 1250: NEXT I: GOTO 502
507 HOME : VTAB 21: HTAB 1: PRINT "8 1 2"; SPC( 5);"WHICH DIRECTION TO MOVE?": PRINT "7 3"; SPC( 5);"MOVES REMAINING = ";Y1: PRINT "6 5 4"; SPC( 5);"WEAPON RANGE = ";RA
508 GOSUB 1: ON K GOSUB 16,512,16,16,35,34,16,16,16,16,16,42,42,42,42,42,42,42,42: IF Y1 = 0 THEN GOSUB 19: GOTO 513
509 IF OK = 0 THEN 508
510 IF OK = -1 THEN 507
511 OK = 0: VTAB 22: HTAB 29: PRINT Y1: GOTO 508
512 A = A2:B = B2: GOSUB 25: ON W < >0 AND (A < >PA OR B < >PB) GOTO 508:Y1 = 0: RETURN
513 HOME :OB = PW: POKE 230,64: GOSUB 20: POKE 230,32: VTAB 21: HTAB 1: INVERSE : PRINT WE$;: HTAB 8: PRINT "'Y' TO ACCEPT YOUR MOVE";: HTAB 33: PRINT "TURN ": VTAB 21: HTAB 38: PRINT TN;: VTAB 22: NORMAL : HTAB 8: PRINT "'N' TO MOVE AGAIN": HTAB 8
514 PRINT "'G' TO TOGGLE GRID": HTAB 8: PRINT "'X' TO TRY ANOTHER UNIT";
515 GOSUB 1: ON K GOSUB 16,16,16,27,35,34,516,516,517: GOTO 515
516 GOSUB 519: ON K = 7 GOTO 506: POP : GOTO 502
517 POP :XM = J: GOSUB 25:B%(J) = 100 *A2 +B2:H = 1000 *PW +100 *PX +10 *PY +Z: IF A%(A,B) > -1 THEN A%(A,B) = H: GOTO 522
518 A%(0, -A%(A,B)) = H: GOTO 522
519 HOME :D = A:E = A:F = B:G = B: GOSUB 36:A = PA:B = PB:B%(J) = 100 *PA +PB:D = 1000 *PW +100 *PX +10 *PY +PZ: IF A%(A,B) > -1 THEN A%(A,B) = D: GOTO 521
520 A%(0, -A%(A,B)) = D
521 D = PA:E = D:F = PB:G = F: GOSUB 36: RETURN
522 J = 0: GOSUB 32: HOME : VTAB 21: INVERSE : PRINT WE$;: HTAB 8: NORMAL : PRINT "'G' TO TOGGLE GRID";: INVERSE : HTAB 33: PRINT "TURN ": VTAB 21: HTAB 38: PRINT TN;: NORMAL : VTAB 22: HTAB 8: PRINT "ARROW KEYS TO CYCLE SELECTION": HTAB 8: PRINT "RETURN TO ";: INVERSE
523 PRINT "SELECT FIRING UNIT": NORMAL : HTAB 8: FLASH : PRINT "'N'";: NORMAL : PRINT " TO END YOUR TURN";
524 GOSUB 24:C = 28: GOSUB 2: ON K GOSUB 30,525,32,27,35,34,533: GOTO 524
525 POP : GOSUB 24: GOSUB 25: ON WE >0 GOSUB 50: IF X = 0 THEN HOME : VTAB 22: HTAB 4: FLASH : PRINT "THIS UNIT MAY NOT FIRE THIS TURN": HTAB 7: PRINT "DUE TO WEATHER CONDITIONS!": NORMAL : FOR I = 1 TO 1250: NEXT I: GOTO 522
526 PA = J:G = 0:F = X +1: GOSUB 24:D = A:E = B: FOR J = 13 TO 24: GOSUB 24: ON OK = 0 GOTO 527: IF ABS(A -D) 1 AND A <8 THEN Q%(0) = Q%(0) +H: IF B >6 THEN Q%(0) = Q%(0) -H:Q%(1) = Q%(1) +H
534 IF A >7 AND A <15 THEN Q%(2) = Q%(2) +H: IF B >6 THEN Q%(2) = Q%(2) -H:Q%(3) = Q%(3) +H
535 IF A >3 AND A <10 AND B >4 AND B <11 THEN Q%(4) = Q%(4) +H
536 NEXT J: GOSUB 18:SI = -1: ON Q%(0) >Q%(5) OR Q%(2) >Q%(7) GOTO 900:SI = 1: ON Q%(1) >Q%(6) OR Q%(3) >Q%(8) OR Q%(1) >Q%(0) OR Q%(3) >Q%(2) GOTO 900:SI = -1
900 IF WE < >1 AND WE <5 THEN PM = 13: GOSUB 98:PM = 19: GOSUB 98:PM = 24: GOSUB 98:PM = 0
905 H = 0:F = 0: FOR I = 13 TO 24:J = I +1: IF I = 24 THEN J = 13
906 GOSUB 24: ON OK = 0 GOTO 920: GOSUB 25: ON WE >0 GOSUB 50: ON X = 0 GOTO 920:RA = X +Y:RB = Y -1:D = A:E = B: FOR K = 1 TO 12:J = K: GOSUB 24: ON OK = 0 GOTO 915: IF (J = 2 OR J = 11) AND I < >17 THEN ON ABS(D -A) >RB +2 OR ABS(E -B) >RB +2 GOTO 915
910 ON ABS(D -A) >RA OR ABS(E -B) >RA GOTO 915: GOSUB 25: GOSUB 110: IF H >F THEN IF ((I < >18 AND I < >23 AND I < >24) AND ABS(E -B) 0 GOSUB 50:PA = A:J = PB:PB = B:RA = X +Y +1:RB = Y -1:RC = X +1: GOSUB 24: GOSUB 399
1000 ON XM = 0 GOTO 5003: ON XM = 4 OR XM = 6 OR XM = 9 OR (B%(18.5 +(SI *5.5)) <1400 AND B%(18.5 +SI *2.5) >1300) GOTO 3055
3006 FOR I = 16 +(3 *SI) TO 21 +(3 *SI): ON B%(I) >1499 AND I < >18 GOTO 3008: NEXT I: GOTO 4000
3008 ON WE GOSUB 3035,3035,16,16,3045,16:PM = 18.5 +(SI *5.5): IF B%(PM) >1400 THEN FOR D = 1 TO 3:D%(D) = 18 +(1 *SI): NEXT D:D%(4) = 18: GOTO 5000
3010 PM = 19: IF B%(PM) >1400 THEN FOR D = 1 TO 4:D%(D) = 18: NEXT D:D = 4: GOTO 5000
3015 PM = 18.5 +SI *(1.5 + INT(4 * RND(RN))): IF B%(PM) <1300 THEN : GOTO 3015
3020 J = PM: GOSUB 24: GOSUB 25: ON WE >0 GOSUB 50: ON Y = 0 GOTO 3015:MB = B:MA = A -Y: GOSUB 408: IF OK <0 THEN MB = MB +SI: GOSUB 408: IF OK <0 THEN MB = MB -2 *SI: GOSUB 408: IF OK <0 THEN MA = MA +1: GOSUB 408: IF OK <0 THEN MB = MB +2 *SI: GOSUB 408: ON OK <0 GOTO 4000
3025 PA = A:PB = B:A = MA:B = MB:RA = X +Y:RB = Y -1:RC = 1: GOSUB 399: GOTO 5003
3035 POP :PM = 18.5 +SI *2.5: IF B%(PM) <1200 THEN PM = 18: IF B%(PM) <1200 THEN GOTO 3015
3040 GOTO 3020
3045 POP :PM = 18.5 +SI *1: IF B%(PM) <1200 THEN PM = PM +SI *3
3050 GOTO 3020
3055 IF XM < >4 AND XM < >6 AND XM < >9 THEN PM = 18.5 +(2.5 *SI): ON WE = 4 OR WE = 5 GOTO 3006: GOTO 3020
3056 PM = XM +12: ON B%(PM) <1200 GOTO 3006: GOTO 3020
4000 F = 0:G = 0: FOR I = 13 TO 24:J = I: GOSUB 24: ON OK = 0 GOTO 4001: GOSUB 25: ON WE < >0 GOSUB 50: ON Y = 0 GOTO 4001: IF B%(J) >G THEN G = B%(J):F = J
4001 NEXT I: ON F = 0 GOTO 5003:J = F:PM = F: GOSUB 24: GOSUB 25: ON WE >0 GOSUB 50:MB = B:MA = A -Y: IF B%(J) <1400 THEN MA = A -1
4002 GOSUB 408: IF OK <0 THEN MB = MB +SI: GOSUB 408: IF OK <0 THEN MB = MB -2 *SI: GOSUB 408: IF OK <0 THEN MA = MA +1: GOSUB 408: IF OK <0 THEN MB = MB +2 *SI: GOSUB 408: ON OK <0 GOTO 5003
4003 PA = A:PB = B:A = MA:B = MB:RA = X +Y:RB = Y -1:RC = 1: GOSUB 399: GOTO 5003
5000 FOR I = 13 TO PM:J = I: GOSUB 24: ON OK = 0 GOTO 5006: FOR J = 1 TO 4: XDRAW 28 AT (18 *A) -13,(13 *B) -11: NEXT J: GOSUB 17: NEXT I:J = PM: GOSUB 24: GOSUB 25:PA = A:A2 = A:PB = B:B2 = B:PV = V:PW = W:PX = X:PY = Y:PZ = Z: FOR I = 1 TO D: GOSUB 17:K = D%(I): GOSUB 42: NEXT I: GOSUB 19: POKE 230,64
5001 OB = PW: GOSUB 20: POKE 230,32:B%(J) = 100 *A +B:H = 1000 *PW +100 *PX +10 *PY +Z: ON A%(A,B) <0 GOTO 5002:A%(A,B) = H: GOTO 5003
5002 A%(0,A%(A,B)) = H
5003 PA = 0:PB = 0:H = 0:F = 0: FOR I = 13 TO 24:J = I: GOSUB 24: ON OK = 0 GOTO 5006: GOSUB 25: ON WE < >0 GOSUB 50: ON X = 0 GOTO 5006:D = A:E = B:G = X: FOR K = 1 TO 12:J = K: GOSUB 24: ON OK = 0 GOTO 5005: ON ABS(D -A) >G OR ABS(E -B) >G OR ((J = 2 OR J = 11) AND I < >18 AND ( ABS(D -A) >1 OR ABS(E -B) >1)) GOTO 5005: GOSUB 25
5004 GOSUB 82: IF H >F THEN PA = I:PB = K:F = H
5005 NEXT K: GOSUB 18
5006 NEXT I: ON F = 0 GOTO 5999: FOR I = 13 TO PA:J = I: GOSUB 24: ON OK = 0 GOTO 5006: FOR J = 1 TO 4: XDRAW 28 AT (18 *A) -13,(13 *B) -11: NEXT J: GOSUB 17: NEXT I:J = PA: GOSUB 24:D = A:E = B: GOSUB 25: ON WE < >0 GOSUB 50:H = X +1:J = 0
5007 J = J +1: GOSUB 17: GOSUB 24: ON OK = 0 GOTO 5007: GOSUB 24: ON ABS(A -D) = >H OR ABS(B -E) = >H GOTO 5007: FOR I = 1 TO 10: XDRAW 30 AT (18 *A) -13,(13 *B) -11: NEXT I: ON J < >PB GOTO 5007: GOSUB 60
5999 XF = 0:XM = 0:TN = TN +1: GOSUB 93: GOTO 500
6000 ONERR GOTO 6100
6001 PRINT "BLOADP": PRINT "BLOADT": PRINT "BLOADT1": POKE 232,0: POKE 233,12: PRINT "BLOADZ": PRINT "OPENRN": PRINT "READRN": INPUT RN,A$,B$,C$,D$,EG,B: PRINT "CLOSE":A = RND( -RN):S1 = 783:S2 = 789:S3 = 794:S4 = 848:TN = 1:WE$ = "CLEAR":T1 = EG:EG = 1000
6002 ON T1 <1000 GOTO 6003:EG = T1: ON T1 = 1000 GOTO 6003:EG = EG -1000
6003 DIM A%(15,12),B%(24),C%(6): ON B = 1 GOTO 6006:A%(1,1) = 21150:A%(1,2) = 22130:A%(1,3) = 23320:A%(1,4) = 24410:A%(1,5) = 25230:A%(1,6) = 26410:A%(1,7) = 21150:A%(1,8) = 25230:A%(1,9) = 24410:A%(1,10) = 23320:A%(1,11) = 22130:A%(1,12) = 21150:A%(15,1) = 13150
6004 A%(15,2) = 14130:A%(15,3) = 15320:A%(15,4) = 16410:A%(15,5) = 17230:A%(15,6) = 18410:A%(15,7) = 13150:A%(15,8) = 17230:A%(15,9) = 16410:A%(15,10) = 15320:A%(15,11) = 14130:A%(15,12) = 13150: FOR I = 1 TO 12:B%(I) = 100 +I: NEXT I: FOR I = 13 TO 24:B%(I) = 1500 +I -12: NEXT I
6005 GOSUB 85: FOR I = 2 TO 14: FOR J = 1 TO 12:A%(I,J) = 0: NEXT J,I: HOME : GOSUB 86: VTAB 21: HTAB 9: PRINT "'Y' TO ACCEPT MAP": HTAB 9: PRINT "'N' FOR A NEW MAP": GOSUB 1: ON K < >9 GOTO 6005: GOTO 91
6006 PRINT "OPENCS": PRINT "READCS": FOR I = 0 TO 15: FOR J = 0 TO 12: INPUT A%(I,J): NEXT J,I: FOR I = 1 TO 24: INPUT B%(I): NEXT I: FOR I = 1 TO 6: INPUT C%(I): NEXT I: INPUT TN: INPUT EG: INPUT T1: INPUT A$: INPUT B$: INPUT C$: INPUT D$: INPUT WE: INPUT WE$: INPUT PS: INPUT CS: INPUT RN
6007 PRINT "CLOSECS": GOSUB 85: FOR A = 2 TO 14: FOR B = 1 TO 12:OB = A%(A,B): IF OB <0 THEN OB = A%(0, -OB)
6008 ON (OB = 0 AND A%(A,B) > -1) OR OB >5 GOTO 6009: POKE 230,64: GOSUB 20: POKE 230,32: GOSUB 20: IF OB <5 AND A%(A,B) <0 THEN OB = 5: GOTO 6008
6009 NEXT B,A: GOTO 91
6010 POP : HOME : VTAB 22: HTAB 12: PRINT "'Y' TO SAVE GAME": HTAB 12: PRINT "'N' TO CONTINUE": GOSUB 1: HOME : ON K < >9 GOTO 502: PRINT "": PRINT "OPENCS": PRINT "WRITECS"
6011 FOR I = 0 TO 15: FOR J = 0 TO 12: PRINT A%(I,J): NEXT J,I: FOR I = 1 TO 24: PRINT B%(I): NEXT I: FOR I = 1 TO 6: PRINT C%(I): NEXT I: PRINT TN: PRINT EG: PRINT T1: PRINT A$: PRINT B$: PRINT C$: PRINT D$: PRINT WE: PRINT WE$: PRINT PS: PRINT CS: PRINT RN: PRINT "CLOSE": GOTO 502
6100 IF PEEK(222) >253 THEN CC = CC +1: RESUME
6101 TEXT : HOME : VTAB 12: PRINT "ERROR #"; PEEK(222);" IN LINE #";( PEEK(218) + PEEK(219) *256): PRINT "CODE ";CC: REM :FORI=49151TO40000STEP-1:POKEI,0:NEXTI:FORI=300TO39151:POKEI,0:NEXTI

Text found in 050_Max_Command.dsk/HELLO.MAX COMMAND.bas:

1 ONERR GOTO 20000
2 FF = 0: TEXT : HOME : PRINT CHR$(4);"BLOAD R": POKE -16297,0: POKE -16302,0: POKE -16300,0: POKE -16304,0: FOR I = 1 TO 3000: NEXT : PRINT CHR$(4);"BLOAD Z": PRINT CHR$(4);"BLOAD M,A$7000"
4 POKE 232,0: POKE 233,112: SCALE= 1: ROT= 0: POKE 230,32: HCOLOR= 1: HPLOT 1,1: CALL 62454: POKE 230,64: HPLOT 1,1: CALL 62454: POKE 230,32:P = 249:I = 10
49 Z = P +3:Q = I -3: POKE 230,64: HCOLOR= 1:X = PEEK( -16336):X = PEEK( -16336): DRAW 2 AT Q,95: DRAW 3 AT Z,95:X = PEEK( -16336):X = PEEK( -16336): IF Q <10 THEN HCOLOR= 1: DRAW 2 AT Q,95
51 IF Z >249 THEN HCOLOR= 1: DRAW 3 AT Z,95
64 HCOLOR= 0:X = PEEK( -16336):X = PEEK( -16336): DRAW 3 AT P,95: DRAW 2 AT I,95: POKE -16299,0:X = PEEK( -16336):X = PEEK( -16336): POKE 230,32: HCOLOR= 1:X = PEEK( -16336):X = PEEK( -16336): DRAW 2 AT Q,95: DRAW 3 AT Z,95:X = PEEK( -16336):X = PEEK( -16336): IF Q <10 THEN DRAW 2 AT Q,95
66 IF Z >249 THEN DRAW 3 AT Z,95
99 HCOLOR= 0:X = PEEK( -16336):X = PEEK( -16336): DRAW 3 AT P,95: DRAW 2 AT I,95: POKE -16300,0:X = PEEK( -16336):X = PEEK( -16336):P = P -3:I = I +3: IF I >45 THEN H = I: GOTO 300
130 GOTO 49
300 P1 = 1:P2 = 220:P3 = 43:P4 = 32: FOR I = 1 TO 20: HCOLOR= 5: HPLOT 58,97 TO 220,97 TO 220,98 TO 58,98: HCOLOR= 1: HPLOT 58,97 TO 220,97 TO 220,98 TO 58,98: GOSUB 10000: ON FF GOTO 310,320,330,340,350,360,370,380: HCOLOR= 5: HPLOT 135,97 TO 40,40 TO 135,97:FF = 1: GOTO 300
310 HCOLOR= 5: HPLOT 135,97 TO 239,40 TO 136,98:FF = 2: GOTO 300
320 HCOLOR= 5: HPLOT 135,97 TO 239,151 TO 136,98:FF = 3: GOTO 300
330 HCOLOR= 5: HPLOT 135,97 TO 40,151 TO 136,98:FF = 4: GOTO 300
340 HCOLOR= 5: HPLOT 135,97 TO 135,0 TO 136,98:FF = 5: GOTO 300
350 HCOLOR= 5: HPLOT 135,97 TO 135,191 TO 136,98:FF = 6: GOTO 300
360 HCOLOR= 1: DRAW 3 AT P,95: DRAW 3 AT Z,95: DRAW 2 AT H,95: DRAW 2 AT Q,95: HCOLOR= 5: HPLOT 135,96 TO 0,98 TO 0,96 TO 135,98 TO 0,98
370 HCOLOR= 5: HPLOT 135,97 TO 279,97 TO 136,98 TO 279,98 TO 279,96 TO 136,96
380 P1 = 36:P2 = 164:P3 = 251:P4 = 20: GOSUB 10000:P1 = 10:P2 = 11:P3 = 20:P4 = 20: POKE 230,64: HCOLOR= 5: HPLOT 1,1: CALL 62454: POKE -16299,0: HCOLOR= 1: POKE 230,32: HPLOT 1,1: CALL 62454: POKE -16300,0: POKE 783,P1: POKE 789,P2: POKE 794,P3
410 FOR I = 1 TO 15: POKE -16299,0: POKE 848,P4: CALL 768: POKE -16300,0: POKE 848,P4: CALL 768: NEXT :P1 = 2:P2 = 157:P3 = 199:P4 = 17: POKE 783,P1: POKE 789,P2
450 FOR J = P3 TO 1 STEP -3: POKE 794,J: POKE 848,P4: CALL 768: NEXT J: POKE 230,64: HCOLOR= 4: HPLOT 1,1: CALL 62454: POKE -16299,0: POKE 230,32: HPLOT 1,1: CALL 62454: POKE -16300,0: HCOLOR= 5
451 P1 = 73: GOSUB 10000: DRAW 1 AT 45,60: POKE 230,64: DRAW 1 AT 45,60:I = 35
452 P = 249
453 P1 = 10:P2 = 42:P3 = 18:P4 = 4
454 POKE 783,P1: POKE 789,P2: POKE 794,P3
510 Z = P +6:Q = I -6: POKE 230,64: XDRAW 4 AT Q,120: XDRAW 5 AT Z,120: IF Q <35 THEN XDRAW 4 AT Q,120
516 IF Z >249 THEN XDRAW 5 AT Z,120
520 XDRAW 4 AT I,120: XDRAW 5 AT P,120: POKE -16299,0: POKE 230,32: XDRAW 5 AT Z,120: XDRAW 4 AT Q,120: IF Q <35 THEN XDRAW 4 AT Q,120
526 IF Z >249 THEN XDRAW 5 AT Z,120
530 XDRAW 5 AT P,120: XDRAW 4 AT I,120: POKE -16300,0:P = P -6:I = I +6: IF I >135 THEN XDRAW 5 AT P +6,120: XDRAW 4 AT I -6,120:H = I: HCOLOR= 3: FOR J = 1 TO 20: POKE 848,P4: CALL 768: NEXT J: DRAW 6 AT 105,110: GOTO 800
550 GOTO 510
800 FOR I = 1 TO 5000: NEXT I: TEXT : HOME
801 VTAB 12: HTAB 8: PRINT "DO YOU WANT INSTRUCTIONS?": VTAB 14: HTAB 17: PRINT "(Y/N)": POKE -16368,0: WAIT -16384,128:O = ( PEEK( -16384) -128): POKE -16368,0: IF O < >89 THEN 8000
808 TEXT : HOME : INVERSE
809 FOR P = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32: VTAB 2: HTAB 12: PRINT "SUMMARY OF RULES": VTAB 4: PRINT " YOU WILL BE ASKED TO CHOOSE ONE OF TWO GAME PLAY OPTIONS, (HUMAN OR COMPUTER OPPONENT), AND ONE OF SEVERAL MODES OF"
810 PRINT " PLAY. THE PROGRAM WILL THEN RANDOMLY GENERATE A MAP WITH 4 TYPES OF TERRAIN (MOUNTAINS, LAKES, SWAMP AND FOREST). UPON REQUEST, THE COMPUTER WILL DRAW DIFFERENT MAPS UNTIL THE PLAYER(S) ACCEPT THE MAP TO BE USED";
820 PRINT " IN THAT GAME. THE WAR SIMULATION WILL THEN BEGIN. EACH OF THE TWO COUNTRIES ARE EQUIPPED WITH 12 STRATEGIC WEAPON UNITS. THE ARMY TO THE WEST WILL START. PLAY WILL ROTATE WITH EACH PLAYER BEING ABLE TO"
830 PRINT " MOVE 1 WEAPON UNIT AND FIRE 1 WEAPON UNIT PER TURN. A WEAPON UNIT WILL FIRE": VTAB 23: HTAB 5: PRINT "(PRESS SPACE BAR TO CONTINUE)": WAIT -16384,128: POKE -16368,0
850 HOME : INVERSE : FOR P = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32: VTAB 2: PRINT " ONLY IF A TARGET IS WITHIN RANGE AS DETERMINED BY THE AUTOMATIC TRACKING AND FIRE CONTROL SYSTEMS BUILT INTO THE PROGRAM. EACH TIME A WEAPON";
860 PRINT " IS DESTROYED BY INSTANT COMBAT RESOLUTION, TACTICAL POINTS WILL BE AWARDED TO THE PLAYER WHO INFLICTED THE DAMAGE. THE AMOUNT OF TACTICAL POINTS AWARDED WILL BE BASED ON THE RELATIVE VALUE OF THE WEAPON UNIT";
870 PRINT " DESTROYED. AT THE END OF ANY TURN CYCLE WHEN THERE IS A CHANGE IN WEATHER, THE EFFECT OF THAT WEATHER ON THE MOVEMENT AND FIRING CAPABILITY OF EACH WEAPON UNIT WILL BE REPORTED. ALL OTHER INFORMATION WILL BE";
880 PRINT " DISPLAYED ON THE WAR ROOM CONSOLE.": VTAB 23: HTAB 5: PRINT "(PRESS SPACE BAR TO CONTINUE)": WAIT -16384,128: POKE -16368,0: HOME : FOR P = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32: VTAB 2
890 PRINT " THE WAR ROOM CONSOLE CONSISTS OF THE GRID ACTIVATOR, COMMAND OPTIONS, TURN CYCLE AND WEATHER INDICATORS AND THE CONTINUOUS MAP DISPLAY. WHEN THE GAME ENDS, THE PLAYER WITH THE MOST TACTICAL POINTS WILL BE DECLARED";
900 PRINT " THE VICTOR IN BATTLE."
920 VTAB 23: HTAB 5: PRINT "(PRESS SPACE BAR TO CONTINUE)": WAIT -16384,128: POKE -16368,0: HOME : INVERSE : FOR P = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32: VTAB 1
925 PRINT " DURING THE GAME, PLAYERS MAY PRESS THE 'G' KEY (GRID ACTIVATOR) TO CALL THE GRID OVERLAY OR CLEAR THE GRID DISPLAY."
960 HTAB 11: PRINT "ADDITIONAL OPTIONS": PRINT
970 PRINT " AT THE BEGINNING OF ANY TURN, A PLAYER HAS THE OPTION OF SAVING A GAME OF MAX- COMMAND BY PRESSING THE 'Z' KEY. THE CURRENT STATUS OF THE GAME BEING PLAYED WILL THEN BE STORED ON THE GAME DISK AND PLAY WILL RESUME."
980 PRINT " AT ANY TIME DURING THE GAME, THE SOUND MAY BE TURNED OFF BY PRESSING THE 'Q' KEY. BY PRESSING THE 'S' KEY PLAYERS MAY TURN THE SOUND BACK ON."
990 VTAB 23: HTAB 5: PRINT "(PRESS SPACE BAR TO CONTINUE)": WAIT -16384,128: POKE -16368,0
8000 NORMAL : PRINT CHR$(17): PRINT CHR$(4);"RUN I"
10000 POKE 783,P1: POKE 789,P2: POKE 794,P3: POKE 848,P4: CALL 768: RETURN
20000 IF PEEK(222) = 255 THEN CC = CC +1: RESUME
20010 PRINT CHR$(17): PRINT CHR$(4);"CLOSE RN"
20020 TEXT : HOME : VTAB 12: PRINT "ERROR #"; PEEK(222);" IN LINE NUMBER ";( PEEK(218) + PEEK(219) *256): PRINT "CC=";CC: NEW

Text found in 050_Max_Command.dsk/HELLO.bas:

10 HOME

Text found in 050_Max_Command.dsk/I.bas:

1 PRINT CHR$(4);"MAXFILES1"
2 ONERR GOTO 10000
3 PRINT CHR$(17): DIM C$(20): DIM D$(20): DIM A$(38): DIM B$(38): PRINT CHR$(4);"OPEN RN": PRINT CHR$(4);"READ RN": INPUT Y: PRINT CHR$(4);"CLOSE RN"
4 IF Y >2000 THEN Y = 1
10 TEXT : HOME : VTAB 9: HTAB 5: PRINT "DO YOU WANT TO PLAY A NEW GAME?": VTAB 12: HTAB 17: PRINT "(Y/N)": POKE -16368,0: WAIT -16384,128:O = ( PEEK( -16384) -128): POKE -16368,0: ON (O < >89 AND O < >78) GOTO 10
30 BO$ = "Y": IF O = 78 THEN BO$ = "N":BO% = 1
100 TEXT : HOME : VTAB 9: HTAB 4: PRINT "IS YOUR OPPONENT:";: HTAB 24: PRINT "1. A HUMAN?": HTAB 24: PRINT "2. THE COMPUTER?": VTAB 13: HTAB 13: PRINT "SELECTION? (1-2)": WAIT -16384,128:O = ( PEEK( -16384) -128): POKE -16368,0: ON (O < >49 AND O < >50) GOTO 100: IF O = 49 THEN CH$ = "1"
195 IF O = 50 THEN CH$ = "2"
196 IF BO% = 1 THEN 1600
510 HOME : VTAB 2: HTAB 13: INVERSE : PRINT " GAME OPTIONS ": NORMAL : VTAB 6: HTAB 10: PRINT "1. LIMITED WAR": VTAB 8: HTAB 10: PRINT "2. VICTORY MATCH": VTAB 10: HTAB 10: PRINT "3. SHIKARI VERSION"
511 VTAB 13: HTAB 13: PRINT "SELECTION? (1-3)": POKE -16368,0: WAIT -16384,128:O = ( PEEK( -16384) -176): POKE -16368,0: ON O GOTO 600,700,800: GOTO 511
600 HOME : VTAB 3: HTAB 13: INVERSE : PRINT " LIMITED WAR ": NORMAL : VTAB 10: HTAB 2: PRINT "HOW MANY TURNS SHALL THIS WAR LAST?": VTAB 18: HTAB 10: INPUT "2-999 ";TP: IF TP <2 OR TP >999 THEN 600
610 GOTO 1000
700 HOME : VTAB 3: HTAB 13: INVERSE : PRINT " VICTORY MATCH ": NORMAL : VTAB 10: HTAB 3: PRINT "HOW MANY POINTS ARE NEEDED TO WIN?": VTAB 18: HTAB 10: INPUT "40-960 ";TP: IF TP <40 OR TP >960 THEN 700
710 TP = TP +1000: GOTO 1000
800 TP = 1000
1000 REM
1020 FOR I = 1 TO 38:A$(I) = "": NEXT I: TEXT : HOME : VTAB 5: HTAB 2: PRINT "BY WHAT NAME SHALL YOUR SOVEREIGN STATE BE KNOWN?": VTAB 8: INVERSE : HTAB 2: PRINT SPC( 38): FOR I = 1 TO 38: VTAB 8: HTAB I: GET A$(I)
1025 IF A$(I) = CHR$(8) OR (A$(I) < > CHR$(34) AND A$(I) < > CHR$(44) AND A$(I) > CHR$(31)) THEN PRINT A$(I);
1030 IF A$(I) = CHR$(8) THEN I = I -2: PRINT " ";: IF I <0 THEN I = 0
1040 IF A$(I) = CHR$(13) THEN GOTO 1070
1050 IF A$(I) = CHR$(34) OR A$(I) = CHR$(44) OR (A$(I) < CHR$(32) AND A$(I) < > CHR$(8)) THEN I = I -1: IF I <0 THEN I = 0
1060 NEXT I:I = 38: PRINT ""
1070 IF A$(I) = CHR$(13) THEN FOR J = I TO 38:A$(J) = "": NEXT J
1080 A$ = A$(1): FOR I = 2 TO 38:A$ = A$ +A$(I): NEXT : NORMAL : VTAB 16: HTAB 1: PRINT "THE NAME OF YOUR COUNTRY IS": VTAB 18: HTAB 1: PRINT A$
1090 VTAB 20: HTAB 5: PRINT "IS THIS CORRECT? (Y/N) ";: GET C$: IF C$ = "N" THEN 1020
1100 IF C$ < >"Y" THEN 1090
1110 FOR I = 1 TO 38:B$(I) = "": NEXT : TEXT : HOME : VTAB 19: HTAB 1: PRINT "WHAT IS THE NAME OF THE OPPOSING NATION?": VTAB 22: INVERSE : HTAB 2: PRINT SPC( 38): FOR I = 1 TO 38: VTAB 22: HTAB I: GET B$(I)
1115 IF B$(I) = CHR$(8) OR (B$(I) < > CHR$(34) AND B$(I) < > CHR$(44) AND B$(I) > CHR$(31)) THEN PRINT B$(I);
1120 IF B$(I) = CHR$(8) THEN I = I -2: PRINT " ";: IF I <0 THEN I = 0
1130 IF B$(I) = CHR$(13) THEN GOTO 1160
1140 IF B$(I) = CHR$(34) OR B$(I) = CHR$(44) OR (B$(I) < CHR$(32) AND B$(I) < > CHR$(8)) THEN I = I -1: IF I <0 THEN I = 0
1150 NEXT I:I = 38: PRINT ""
1160 IF B$(I) = CHR$(13) THEN FOR J = I TO 38:B$(J) = "": NEXT J
1170 B$ = B$(1): FOR I = 2 TO 38:B$ = B$ +B$(I): NEXT : NORMAL : VTAB 3: HTAB 1: PRINT "THE NAME OF THIS COUNTRY IS": VTAB 5: HTAB 1: PRINT B$
1180 VTAB 12: HTAB 5: PRINT "IS THIS CORRECT? (Y/N) ";: GET C$: IF C$ = "N" THEN 1110
1190 IF C$ < >"Y" THEN 1180
1200 HOME : INVERSE : FOR P = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32: FLASH : VTAB 2: HTAB 14: PRINT "WORLD REPORT": INVERSE : VTAB 4: HTAB 2: PRINT "FOR THE PAST SEVERAL MONTHS, HIGH LEVEL";: PRINT " NEGOTIATIONS AND DIPLOMATIC TALKS HAVE"
1210 PRINT " CONTINUED IN ORDER TO AVOID A SERIOUS": PRINT " CONFRONTATION BETWEEN THE NATIONS OF": PRINT : HTAB 2: PRINT A$: PRINT : PRINT " AND": PRINT : HTAB 2: PRINT B$;".": VTAB 15: PRINT " WORLD INTELLIGENCE SOURCES REPORT THAT"
1220 PRINT " BOTH COUNTRIES HAVE JUST BROKEN OFF": PRINT " DIPLOMATIC TIES.": PRINT " INCREASED MILITARY BUILDUP NEAR THE": PRINT " PLAINS OF ALPHAGORDA HAS NOW ESCALATED": PRINT " TO OPEN CONFLICT AND A STATE OF WAR": PRINT " NOW EXISTS BETWEEN";
1230 PRINT " THE TWO POWERS."
1240 HTAB 6: VTAB 23: PRINT "PRESS SPACE BAR TO CONTINUE.": POKE -16368,0: WAIT -16384,128: POKE -16368,0: HOME : PRINT ""
1250 VTAB 2: HTAB 1: PRINT A$:A$(38) = "ENTER YOUR NAME FOR IDENTITY CHECK": VTAB 6: HTAB 7: FLASH : PRINT "EYES ONLY MESSAGE FOLLOWS.": FOR I = 1 TO 1000: NEXT I: VTAB 10: HTAB 3: INVERSE : SPEED= 165: FOR I = 1 TO LEN(A$(38))
1260 PRINT MID$ (A$(38),I,1);:X = PEEK( -16336): NEXT : SPEED= 255: FOR I = 1 TO 20:C$(I) = "": NEXT I
1270 VTAB 18: HTAB 1: PRINT SPC( 25): VTAB 19: HTAB 21: PRINT SPC( 5): VTAB 20: HTAB 1: PRINT SPC( 25): NORMAL : VTAB 19: HTAB 1: PRINT SPC( 20): FOR I = 1 TO 20: VTAB 19: HTAB I: GET C$(I)
1275 IF C$(I) = CHR$(8) OR (C$(I) < > CHR$(34) AND C$(I) < > CHR$(44) AND C$(I) > CHR$(31)) THEN PRINT C$(I);
1280 IF C$(I) = CHR$(8) THEN I = I -2: PRINT " ";: IF I <0 THEN I = 0
1290 IF C$(I) = CHR$(13) THEN GOTO 1320
1300 IF C$(I) = CHR$(44) OR (C$(I) = CHR$(34) AND C$(I) < > CHR$(8)) THEN I = I -1: IF I <0 THEN I = 0
1310 NEXT I:I = 20: PRINT ""
1320 IF C$(I) = CHR$(13) THEN FOR J = I TO 20:C$(J) = "": NEXT J
1330 C$ = C$(1): FOR I = 2 TO 20:C$ = C$ +C$(I): NEXT I: VTAB 22: HTAB 1: PRINT SPC( 25): VTAB 22: HTAB 1: PRINT C$: VTAB 23: HTAB 23: PRINT " CORRECT? (Y/N) ";: GET E$: IF E$ = "Y" THEN 1350
1340 INVERSE : GOTO 1270
1350 A$(1) = "FILE: MAX-COMMAND":A$(2) = "CLASSIFICATION: TOP SECRET":A$(3) = "MISSION: MILITARY DEFEAT OF THE ENEMY":A$(4) = "BATTLEFRONT: PLAINS OF ALPHAGORDA": HOME : HTAB 1: VTAB 2: NORMAL : SPEED= 165
1360 FOR I = 1 TO 4: FOR J = 1 TO LEN(A$(I)): PRINT MID$ (A$(I),J,1);: IF MID$ (A$(I),J,1) = ":" THEN INVERSE : IF MID$ (A$(2),J,1) = ":" THEN FLASH
1370 X = PEEK( -16336): NEXT J: NORMAL : HTAB 1: PRINT : PRINT : NEXT I: SPEED= 255: FOR I = 1 TO 2000: NEXT I: HOME : INVERSE : FOR P = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32: INVERSE : VTAB 2: HTAB 1
1380 PRINT "GENERAL ";C$;",": VTAB 4: HTAB 4: PRINT "IN A SECRET MEETING OF THE S.D.G.": PRINT " YOU HAVE BEEN ASSIGNED TO EMERGENCY"
1390 PRINT " DUTY AS GENERAL OF THE MAX-COMMAND": PRINT " STRIKE GROUP. OUR FORCES ARE ALREADY": PRINT " MOVING INTO POSITION ON THE PLAINS OF": PRINT " ALPHAGORDA. YOU ARE ORDERED TO REPORT": PRINT " TO THE WAR ROOM COMMAND CENTER FOR"
1400 PRINT " IMMEDIATE ACTION.": PRINT " THE BATTLEFRONT IS 750KM EAST TO": PRINT " WEST AND 600KM NORTH TO SOUTH COVERING": PRINT " AN AREA OF 450,000 SQ. KM. MILITARY": PRINT " DEFEAT OF THE ENEMY IS IMPERATIVE"
1410 PRINT " AS THIS CONFLICT REPRESENTS A SEVERE": PRINT " THREAT TO OUR NATIONAL SECURITY.": PRINT " USE OF THE 'MAX-ONE' IS AUTHORIZED": PRINT " WITHOUT LIMITATION."
1420 PRINT : HTAB 15: PRINT "STRATEGIC DEFENSE GROUP": HTAB 6: VTAB 23: PRINT "PRESS SPACE BAR TO CONTINUE.": POKE -16368,0: WAIT -16384,128: POKE -16368,0
1430 HOME : PRINT "": VTAB 2: HTAB 1: INVERSE : PRINT B$: PRINT : PRINT : FLASH : HTAB 6: PRINT "SECURE TRANSMISSION FOLLOWS": FOR I = 1 TO 1000: NEXT I: INVERSE
1440 VTAB 10: HTAB 3: SPEED= 165: FOR I = 1 TO LEN(A$(38)): PRINT MID$ (A$(38),I,1);:X = PEEK( -16336):X = PEEK( -16336): NEXT : SPEED= 255: FOR I = 1 TO 20:C$(I) = "": NEXT I
1450 VTAB 18: HTAB 1: PRINT SPC( 25): VTAB 19: HTAB 21: PRINT SPC( 5): VTAB 20: HTAB 1: PRINT SPC( 25): NORMAL : VTAB 19: HTAB 1: PRINT SPC( 20): FOR I = 1 TO 20: VTAB 19: HTAB I: GET D$(I)
1455 IF D$(I) = CHR$(8) OR (D$(I) < > CHR$(34) AND D$(I) < > CHR$(44) AND D$(I) > CHR$(31)) THEN PRINT D$(I);
1460 IF D$(I) = CHR$(8) THEN I = I -2: PRINT " ";: IF I <0 THEN I = 0
1470 IF D$(I) = CHR$(13) THEN GOTO 1500
1480 IF D$(I) = CHR$(34) OR D$(I) = CHR$(44) OR (D$(I) < CHR$(32) AND D$(I) < > CHR$(8)) THEN I = I -1: IF I <0 THEN I = 0
1490 NEXT I:I = 20: PRINT ""
1500 IF D$(I) = CHR$(13) THEN FOR J = I TO 20:D$(J) = "": NEXT J
1510 D$ = D$(1): FOR I = 2 TO 20:D$ = D$ +D$(I): NEXT : VTAB 22: HTAB 1: PRINT SPC( 25): VTAB 22: HTAB 1: PRINT D$: VTAB 24: HTAB 22: PRINT " CORRECT? (Y/N) ";: GET E$: IF E$ = "Y" THEN 1530
1520 INVERSE : GOTO 1450
1530 HOME : HTAB 1: VTAB 2: NORMAL : SPEED= 165: FOR I = 1 TO 4: FOR J = 1 TO LEN(A$(I)): PRINT MID$ (A$(I),J,1);: IF MID$ (A$(I),J,1) = ":" THEN INVERSE : IF MID$ (A$(2),J,1) = ":" THEN FLASH
1540 X = PEEK( -16336): NEXT J: NORMAL : HTAB 1: PRINT : PRINT : NEXT I: SPEED= 255: FOR I = 1 TO 2000: NEXT I: HOME : INVERSE : FOR P = 1 TO 3: PRINT SPC( 255): NEXT : PRINT SPC( 234): POKE 2039,32
1550 INVERSE : VTAB 2: HTAB 1: PRINT "GENERAL ";D$;",": VTAB 4: HTAB 3: PRINT "IN RESPONSE TO INTELLIGENCE REPORTS": PRINT " JUST RECEIVED, THE WAR MINISTRY"
1560 PRINT " URGENTLY REQUESTS THAT YOU TAKE": PRINT " IMMEDIATE CONTROL OF OUR COUNTRY'S": PRINT " STRIKE FORCES NOW APPROACHING THE": PRINT " DESIGNATED BATTLEFRONT. OUR DEFENSES": PRINT " AND RETALIATORY STRENGTH ARE EQUAL TO"
1570 PRINT " OUR ENEMY.": PRINT " THE AREA IS NOTED FOR VOLATILE WEATHER";: PRINT " CONDITIONS DURING THIS TIME OF YEAR.": PRINT " A MAJOR DISRUPTION OF GLOBAL PEACE IS": PRINT " IMMINENT IF WE DO NOT PREVAIL AT ALPHA-";: PRINT " GORDA. THE WAR ";
1580 PRINT "MINISTRY THEREFORE": PRINT " GRANTS YOU OPEN AUTHORIZATION TO USE": PRINT " THIS COUNTRY'S ULTIMATE WEAPON.": PRINT : HTAB 18: PRINT "NATIONAL WAR MINISTRY"
1590 HTAB 6: VTAB 23: PRINT "PRESS SPACE BAR TO CONTINUE.": POKE -16368,0: WAIT -16384,128: POKE -16368,0
1600 HOME : VTAB 9: HTAB 1: INVERSE : PRINT "***************WARNING!!!***************": PRINT " DO NOT HIT RESET, OPEN THE DISK DRIVE ";: PRINT " DOOR OR REMOVE THE GAME DISK WHILE THE ";: PRINT " DISK DRIVE RED LIGHT IS ON. TO DO SO ";
1601 PRINT " WILL DESTROY THE PROGRAM ON THIS DISK. ": NORMAL
1605 NORMAL : PRINT CHR$(17): PRINT CHR$(4);"BLOAD F,A$4000": POKE -16300,0: POKE -16299,0: POKE -16297,0: POKE -16304,0: PRINT CHR$(17): PRINT CHR$(4);"OPEN RN": PRINT CHR$(4);"WRITERN": PRINT Y +1: PRINT A$: PRINT B$: PRINT C$: PRINT D$
1610 PRINT TP: PRINT BO%: PRINT CHR$(4);"CLOSE RN": POKE 104,96: POKE 96 *256,0: IF LEFT$(CH$,1) = "1" THEN PRINT CHR$(4);"RUN V1"
1620 PRINT CHR$(4);"RUN CP"
10000 IF PEEK(222) = 255 THEN CC = CC +1: RESUME
10005 IF PEEK(222) = 254 THEN VTAB 18: HTAB 10: RESUME
10010 TEXT : HOME : VTAB 12: PRINT "ERROR #"; PEEK(222);" IN LINE #";( PEEK(218) + PEEK(219) *256): PRINT "CODE ";CC: FOR I = 49151 TO 40000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39151: POKE I,0: NEXT I

Text found in 050_Max_Command.dsk/M.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 07 00 10 00 0E 0F 41 0F 73 0F A1 0F CF 0F 47 13 ......A. s.!.O.G.
$000010 4B 29 2D 2D 2D 4D 49 29 2D 2D 2D 4D 49 49 2D 2D K)---MI) ---MII--
$000020 2D 2D 6D 29 2D 2D 2D 4D 2D 2D 2D 6D 49 49 49 49 --m)---M ---mIIII
$000030 29 2D 2D 2D 2D 2D 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D )------- M-------
$000040 6D 29 2D 2D 2D 4D 49 29 2D 2D 2D 4D 2D 2D 2D 6D m)---MI) ---M---m
$000050 49 09 2D 2D 2D 6D 49 49 29 2D 2D 2D 2D 4D 2D 2D I.---mII )----M--
$000060 6D 49 09 2D 2D 6D 29 2D 2D 2D 2D 2D DE DB DB DB mI.--m)- ----^[[[
$000070 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000080 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000090 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0000A0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0000B0 DB 2B 2D 2D 2D 4D 49 29 2D 2D 2D 4D 49 49 2D 2D [+---MI) ---MII--
$0000C0 2D 2D 6D 29 2D 2D 2D 4D 2D 2D 2D 6D 49 49 49 49 --m)---M ---mIIII
$0000D0 29 2D 2D 2D 2D 2D 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D )------- M-------
$0000E0 6D 29 2D 2D 2D 4D 49 29 2D 2D 2D 4D 2D 2D 2D 6D m)---MI) ---M---m
$0000F0 49 09 2D 2D 2D 6D 49 49 29 2D 2D 2D 2D 4D 2D 2D I.---mII )----M--
$000100 6D 49 09 2D 2D 6D 29 2D 2D 2D 2D 2D DE DB DB DB mI.--m)- ----^[[[
$000110 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000120 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000130 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000140 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000150 DB 2B 2D 2D 2D 4D 49 29 2D 2D 2D 4D 49 29 2D 2D [+---MI) ---MI)--
$000160 2D 2D 2D 4D 2D 2D 2D 6D 29 2D 2D 2D 4D 49 49 49 ---M---m )---MIII
$000170 49 2D 2D 2D 2D 2D 2D 2D 6D 29 2D 2D 2D 2D 2D 2D I------- m)------
$000180 2D 4D 2D 2D 2D 6D 49 09 2D 2D 2D 6D 29 2D 2D 2D -M---mI. ---m)---
$000190 4D 49 29 2D 2D 2D 4D 49 29 2D 2D 2D 2D 2D 4D 2D MI)---MI )-----M-
$0001A0 2D 6D 49 09 2D 2D 6D 29 2D 2D 2D 2D 2D 2D DE DB -mI.--m) ------^[
$0001B0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0001C0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0001D0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0001E0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0001F0 DB DB DB DB 2D 2D 2D 2D 6D 29 2D 2D 2D 2D 4D 49 [[[[---- m)----MI
$000200 29 2D 2D 2D 2D 2D 4D 2D 2D 2D 6D 29 2D 2D 2D 4D )-----M- --m)---M
$000210 49 49 49 49 2D 2D 2D 2D 2D 2D 2D 6D 29 2D 2D 2D IIII---- ---m)---
$000220 2D 2D 2D 2D 4D 2D 2D 2D 2D 6D 29 2D 2D 2D 2D 4D ----M--- -m)----M
$000230 2D 2D 2D 2D 6D 29 2D 2D 2D 2D 4D 49 29 2D 2D 2D ----m)-- --MI)---
$000240 2D 2D 4D 2D 2D 2D 6D 49 2D 2D 6D 29 2D 2D 2D 2D --M---mI --m)----
$000250 2D 2D DE DB DB DB DB DB DB DB DB DB DB DB DB DB --^[[[[[ [[[[[[[[
$000260 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000270 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000280 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000290 DB DB DB DB DB DB DB DB 2D 2D 2D 2D 6D 29 2D 2D [[[[[[[[ ----m)--
$0002A0 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 2D 2D 2D 6D 29 --M.--m) --M---m)
$0002B0 2D 2D 2D 4D 49 49 49 49 2D 2D 2D 2D 2D 2D 2D 6D ---MIIII -------m
$0002C0 29 2D 2D 2D 2D 2D 2D 2D 4D 2D 2D 2D 2D 6D 29 2D )------- M----m)-
$0002D0 2D 2D 2D 4D 2D 2D 2D 2D 6D 29 2D 2D 2D 2D 4D 09 ---M---- m)----M.
$0002E0 2D 2D 6D 29 2D 2D 4D 2D 2D 2D 6D 49 2D 2D 6D 29 --m)--M- --mI--m)
$0002F0 2D 2D 4D 2D 2D 2D F5 DB DB DB DB DB DB DB DB DB --M---u[ [[[[[[[[
$000300 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000310 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000320 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000330 DB DB DB DB DB DB DB DB DB DB DB DB DB 2D 2D 2D [[[[[[[[ [[[[[---
$000340 2D 2D 2D 2D 2D 2D 2D 6D 49 2D 2D 6D 29 2D 2D 4D -------m I--m)--M
$000350 2D 2D 2D 6D 29 2D 2D 2D 4D 49 49 49 49 2D 2D 6D ---m)--- MIIII--m
$000360 49 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 2D I--m)--M .--m)---
$000370 2D 2D 2D 2D 2D 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D 2D -------M --------
$000380 2D 2D 6D 49 2D 2D 6D 29 2D 2D 4D 2D 2D 2D 6D 49 --mI--m) --M---mI
$000390 2D 2D 6D 29 2D 2D 4D 09 2D 2D 2D F5 DB DB DB DB --m)--M. ---u[[[[
$0003A0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0003B0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0003C0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0003D0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0003E0 DB DB 1B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 6D 29 2D [[.----- -----m)-
$0003F0 2D 4D 09 2D 2D 6D 29 2D 2D 2D 4D 2D 2D 2D 6D 49 -M.--m)- --M---mI
$000400 49 49 49 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 09 III)--M. --m)--M.
$000410 2D 2D 6D 29 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 4D 2D --m)---- ------M-
$000420 2D 2D 2D 2D 2D 2D 2D 2D 2D 6D 29 2D 2D 4D 09 2D -------- -m)--M.-
$000430 2D 6D 29 2D 2D 2D 2D 4D 2D 2D 6D 29 2D 2D 4D 09 -m)----M --m)--M.
$000440 2D 2D 2D F5 DB DB DB DB DB DB DB DB DB DB DB DB ---u[[[[ [[[[[[[[
$000450 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000460 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000470 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000480 DB DB DB DB DB DB DB DB DB DB 1B 2D 2D 6D 29 2D [[[[[[[[ [[.--m)-
$000490 2D 4D 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D -M--m)-- M.--m)--
$0004A0 2D 4D 2D 2D 2D 6D 49 49 49 49 29 2D 2D 4D 09 2D -M---mII II)--M.-
$0004B0 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 2D 2D -m)--M.- -m)--M--
$0004C0 6D 29 2D 2D 4D 2D 2D 6D 29 2D 2D 4D 2D 2D 6D 29 m)--M--m )--M--m)
$0004D0 2D 2D 4D 09 2D 2D 6D 29 2D 2D 2D 2D 4D 2D 2D 6D --M.--m) ----M--m
$0004E0 29 2D 2D 4D 49 29 2D 2D DE DB DB DB DB DB DB DB )--MI)-- ^[[[[[[[
$0004F0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000500 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000510 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000520 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB 2B [[[[[[[[ [[[[[[[+
$000530 2D 2D 4D 09 6D 49 2D 2D 6D 29 2D 2D 4D 09 2D 2D --M.mI-- m)--M.--
$000540 6D 29 2D 2D 2D 4D 2D 2D 2D 6D 49 49 49 49 29 2D m)---M-- -mIIII)-
$000550 2D 4D 09 2D 6D 49 2D 2D 6D 49 2D 2D 6D 29 2D 2D -M.-mI-- mI--m)--
$000560 4D 09 6D 49 2D 2D 6D 29 2D 2D 4D 09 6D 49 2D 2D M.mI--m) --M.mI--
$000570 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 2D 2D 4D 2D m)--M.-- m)----M-
$000580 2D 6D 29 2D 2D 4D 49 29 2D 2D DE DB DB DB DB DB -m)--MI) --^[[[[[
$000590 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0005A0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0005B0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0005C0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0005D0 DB 2B 2D 2D 4D 09 6D 49 2D 2D 6D 29 2D 2D 4D 09 [+--M.mI --m)--M.
$0005E0 2D 2D 6D 49 2D 2D 6D 29 2D 2D 4D 49 29 2D 2D 4D --mI--m) --MI)--M
$0005F0 09 2D 2D 6D 49 6D 49 09 2D 2D 6D 49 2D 2D 6D 29 .--mImI. --mI--m)
$000600 2D 2D 4D 09 6D 49 2D 2D 6D 29 2D 2D 4D 09 6D 49 --M.mI-- m)--M.mI
$000610 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 2D 2D --m)--M. --m)----
$000620 2D 2D 2D 2D 4D 2D 2D 6D 49 09 2D 2D F5 DB DB DB ----M--m I.--u[[[
$000630 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000640 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000650 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000660 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000670 DB DB DB 1B 2D 2D 6D 49 6D 49 2D 2D 6D 29 2D 2D [[[.--mI mI--m)--
$000680 2D 2D 2D 2D 2D 4D 49 29 2D 2D 2D 2D 4D 49 49 2D -----MI) ----MII-
$000690 2D 6D 49 2D 2D 6D 49 49 49 09 2D 2D 6D 49 2D 2D -mI--mII I.--mI--
$0006A0 6D 29 2D 2D 4D 09 6D 49 2D 2D 6D 29 2D 2D 4D 09 m)--M.mI --m)--M.
$0006B0 6D 49 2D 2D 6D 29 2D 2D 2D 2D 2D 2D 2D 4D 2D 2D mI--m)-- -----M--
$0006C0 2D 2D 2D 2D 2D 2D 6D 29 2D 2D 4D 49 29 2D 2D DE ------m) --MI)--^
$0006D0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0006E0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0006F0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000700 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000710 DB DB DB DB DB DB 2B 2D 2D 4D 49 49 09 2D 2D 6D [[[[[[+- -MII.--m
$000720 29 2D 2D 2D 2D 2D 2D 2D 4D 49 29 2D 2D 2D 2D 4D )------- MI)----M
$000730 49 49 2D 2D 6D 49 2D 2D 6D 49 49 49 09 2D 2D 6D II--mI-- mIII.--m
$000740 49 2D 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D 29 2D I--m)--M II.--m)-
$000750 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 2D 2D 2D 2D 2D -MII.--m )-------
$000760 4D 2D 2D 2D 2D 2D 2D 2D 2D 6D 29 2D 2D 4D 49 29 M------- -m)--MI)
$000770 2D 2D DE DB DB DB DB DB DB DB DB DB DB DB DB DB --^[[[[[ [[[[[[[[
$000780 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000790 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0007A0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0007B0 DB DB DB DB DB DB DB DB DB 2B 2D 2D 4D 49 49 09 [[[[[[[[ [+--MII.
$0007C0 2D 2D 6D 29 2D 2D 2D 2D 2D 2D 2D 4D 49 29 2D 2D --m)---- ---MI)--
$0007D0 2D 2D 4D 49 49 2D 2D 6D 49 2D 2D 6D 49 2D 2D 6D --MII--m I--mI--m
$0007E0 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 49 49 09 2D )--M.--m )--MII.-
$0007F0 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 2D -m)--MII .--m)---
$000800 2D 2D 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D 2D 6D 29 2D ----M--- -----m)-
$000810 2D 4D 49 29 2D 2D DE DB DB DB DB DB DB DB DB DB -MI)--^[ [[[[[[[[
$000820 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000830 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000840 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000850 DB DB DB DB DB DB DB DB DB DB DB DB DB 2B 2D 2D [[[[[[[[ [[[[[+--
$000860 4D 49 49 09 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 49 MII.--m) --M.--mI
$000870 2D 2D 6D 29 2D 2D 4D 49 29 2D 2D 4D 09 2D 2D 6D --m)--MI )--M.--m
$000880 49 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D I--m)--M .--m)--M
$000890 49 49 09 2D 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D II.--m)- -MII.--m
$0008A0 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 2D 2D 2D 2D )--M.--m )--M----
$0008B0 6D 29 2D 2D 4D 49 29 2D 2D DE DB DB DB DB DB DB m)--MI)- -^[[[[[[
$0008C0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0008D0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0008E0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0008F0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000900 2B 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 4D 09 2D +--MII.- -m)--M.-
$000910 2D 6D 29 2D 2D 2D 4D 2D 2D 2D 6D 49 49 49 49 29 -m)---M- --mIIII)
$000920 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 --M.--m) --M.--m)
$000930 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 4D 49 49 09 --MII.-- m)--MII.
$000940 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 2D --m)--M. --m)--M-
$000950 2D 2D 2D 6D 29 2D 2D 4D 49 29 2D 2D DE DB DB DB ---m)--M I)--^[[[
$000960 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000970 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000980 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000990 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$0009A0 DB DB DB 2B 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D [[[+--MI I.--m)--
$0009B0 4D 09 2D 2D 6D 29 2D 2D 2D 4D 2D 2D 2D 6D 49 49 M.--m)-- -M---mII
$0009C0 49 49 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 09 2D II)--M.- -m)--M.-
$0009D0 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 4D -m)--MII .--m)--M
$0009E0 49 49 09 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D II.--m)- -M.--m)-
$0009F0 2D 4D 2D 2D 2D 2D 6D 29 2D 2D 4D 49 29 2D 2D DE -M----m) --MI)--^
$000A00 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000A10 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000A20 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000A30 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000A40 DB DB DB DB DB DB 2B 2D 2D 4D 49 49 09 2D 2D 6D [[[[[[+- -MII.--m
$000A50 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 2D 4D 2D 2D 2D )--M.--m )---M---
$000A60 6D 49 49 49 49 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D mIIII)-- M.--m)--
$000A70 4D 09 2D 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D 29 M.--m)-- MII.--m)
$000A80 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 4D 09 2D 2D --MII.-- m)--M.--
$000A90 6D 29 2D 2D 4D 09 2D 2D 2D 6D 29 2D 2D 4D 49 29 m)--M.-- -m)--MI)
$000AA0 2D 2D DE DB DB DB DB DB DB DB DB DB DB DB DB DB --^[[[[[ [[[[[[[[
$000AB0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000AC0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000AD0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000AE0 DB DB DB DB DB DB DB DB DB 2B 2D 2D 4D 49 49 09 [[[[[[[[ [+--MII.
$000AF0 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 2D 4D --m)--M. --m)---M
$000B00 2D 2D 2D 6D 49 49 49 49 29 2D 2D 4D 09 2D 2D 6D ---mIIII )--M.--m
$000B10 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 49 49 09 2D )--M.--m )--MII.-
$000B20 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 4D -m)--MII .--m)--M
$000B30 09 2D 2D 6D 29 2D 2D 4D 09 2D 2D 2D 6D 29 2D 2D .--m)--M .---m)--
$000B40 4D 49 29 2D 2D DE DB DB DB DB DB DB DB DB DB DB MI)--^[[ [[[[[[[[
$000B50 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000B60 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000B70 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000B80 DB DB DB DB DB DB DB DB DB DB DB DB 2B 2D 2D 4D [[[[[[[[ [[[[+--M
$000B90 49 49 09 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D II.--m)- -M.--m)-
$000BA0 2D 2D 4D 2D 2D 2D 6D 49 49 49 49 29 2D 2D 2D 2D --M---mI III)----
$000BB0 2D 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D 6D 29 2D 2D 4D ---M---- ---m)--M
$000BC0 49 49 09 2D 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D II.--m)- -MII.--m
$000BD0 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 49 29 2D 2D )--M.--m )--MI)--
$000BE0 4D 2D 2D 6D 49 09 2D 2D F5 DB DB DB DB DB DB DB M--mI.-- u[[[[[[[
$000BF0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000C00 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000C10 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000C20 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB 1B [[[[[[[[ [[[[[[[.
$000C30 2D 2D 6D 49 49 49 2D 2D 6D 29 2D 2D 4D 09 2D 2D --mIII-- m)--M.--
$000C40 6D 29 2D 2D 2D 4D 2D 2D 2D 6D 49 49 49 49 29 2D m)---M-- -mIIII)-
$000C50 2D 2D 2D 2D 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D 6D 29 ------M- ------m)
$000C60 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 4D 49 49 09 --MII.-- m)--MII.
$000C70 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 49 --m)--M. --m)--MI
$000C80 29 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D 2D F5 DB DB DB )--M---- ----u[[[
$000C90 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000CA0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000CB0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000CC0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000CD0 DB DB DB 1B 2D 2D 6D 49 49 49 2D 2D 6D 29 2D 2D [[[.--mI II--m)--
$000CE0 4D 09 2D 2D 6D 29 2D 2D 2D 4D 2D 2D 2D 6D 49 49 M.--m)-- -M---mII
$000CF0 49 49 29 2D 2D 2D 2D 2D 2D 2D 4D 2D 2D 2D 2D 2D II)----- --M-----
$000D00 2D 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D --m)--MI I.--m)--
$000D10 4D 49 49 09 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 MII.--m) --M.--m)
$000D20 2D 2D 4D 49 29 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D 2D --MI)--M --------
$000D30 F5 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB u[[[[[[[ [[[[[[[[
$000D40 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000D50 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000D60 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000D70 DB DB DB DB DB DB DB 1B 2D 2D 6D 49 49 49 2D 2D [[[[[[[. --mIII--
$000D80 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D 2D 4D 2D 2D m)--M.-- m)---M--
$000D90 2D 6D 49 49 49 49 29 2D 2D 2D 2D 2D 2D 2D 4D 2D -mIIII)- ------M-
$000DA0 2D 2D 2D 2D 2D 2D 6D 29 2D 2D 4D 49 49 09 2D 2D ------m) --MII.--
$000DB0 6D 29 2D 2D 4D 49 49 09 2D 2D 6D 29 2D 2D 4D 09 m)--MII. --m)--M.
$000DC0 2D 2D 6D 29 2D 2D 4D 49 29 2D 2D 4D 2D 2D 2D 2D --m)--MI )--M----
$000DD0 2D 2D 2D 2D F5 DB DB DB DB DB DB DB DB DB DB DB ----u[[[ [[[[[[[[
$000DE0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000DF0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000E00 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000E10 DB DB DB DB DB DB DB DB DB DB DB 1B 2D 2D 6D 49 [[[[[[[[ [[[.--mI
$000E20 49 49 2D 2D 6D 29 2D 2D 4D 09 2D 2D 6D 29 2D 2D II--m)-- M.--m)--
$000E30 2D 4D 2D 2D 2D 6D 49 49 49 49 29 2D 2D 2D 2D 2D -M---mII II)-----
$000E40 2D 2D 4D 2D 2D 2D 2D 2D 2D 2D 6D 29 2D 2D 4D 49 --M----- --m)--MI
$000E50 49 09 2D 2D 6D 29 2D 2D 4D 49 49 09 2D 2D 6D 29 I.--m)-- MII.--m)
$000E60 2D 2D 4D 09 2D 2D 6D 29 2D 2D 4D 49 29 2D 2D 4D --M.--m) --MI)--M
$000E70 2D 2D 2D 2D 2D 2D 2D 2D F5 DB DB DB DB DB DB DB -------- u[[[[[[[
$000E80 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000E90 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000EA0 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$000EB0 DB DB DB DB DB DB DB DB DB DB 2B 2D 2D DE DB 2D [[[[[[[[ [[+--^[-
$000EC0 2D F5 DB 2B 2D 2D DE DB 2D 2D B5 4A 49 49 49 49 -u[+--^[ --5JIIII
$000ED0 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 IIIIIIII IIIIIIII
$000EE0 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 IIIIIIII IIIIIIII
$000EF0 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 49 IIIIIIII IIIIIIII
$000F00 49 49 49 49 49 49 49 49 49 49 49 49 09 00 8B 49 IIIIIIII IIII...I
$000F10 49 F5 1B 2D 2D 2D 2D F5 DB DB 1B 2D F5 DB 2B 2D Iu.----u [[.-u[+-
$000F20 2D 2D 2D 2D DE DB DB DB 2D 2D 2D 2D 2D F5 DB DB ----^[[[ -----u[[
$000F30 DB 2B 2D 2D 2D 2D DE DB 1B 2D 2D B5 4A 49 49 00 [+----^[ .--5JII.
$000F40 00 8B 49 49 09 F5 DB DB 2D 2D 2D 2D F5 1B 2D F5 ..II.u[[ ----u.-u
$000F50 DB DB 1B 2D 2D 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D [[.----- u[[[+---
$000F60 2D 2D DE DB DB 2B 2D 2D 2D 2D DE DB 1B 2D 2D B5 --^[[+-- --^[.--5
$000F70 49 09 00 8B 49 49 F5 F5 DB 2B 4D 2D F5 DB DB 2D I...IIuu [+M-u[[-
$000F80 2D 2D F5 DB DB 2D 2D 2D 2D 2D F5 DB DB DB 2B 2D --u[[--- --u[[[+-
$000F90 2D 2D DE DB 1B 6D 29 2D DE 2B 1E B5 49 49 49 00 --^[.m)- ^+.5III.
$000FA0 00 8B 49 49 49 F5 F5 1B 2D 6D 29 DE DB 1B 2D 2D ..IIIuu. -m)^[.--
$000FB0 2D F5 DB DB DB 2B 2D 2D 2D 2D 2D DE DB 1B 2D 2D -u[[[+-- ---^[.--
$000FC0 2D F5 DB DB 2D 6D 29 DE DB F5 B5 52 49 09 00 8B -u[[-m)^ [u5RI...
$000FD0 92 49 49 49 49 49 2D 4D 49 2D 4D 09 2D 6D 49 4D .IIIII-M I-M.-mIM
$000FE0 69 09 2D 6D 49 29 6D 49 29 2D 4D 69 09 0D 2D 2D i.-mI)mI )-Mi..--
$000FF0 DE DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB ^[[[[[[[ [[[[[[[[
$001000 DB DB DB DB DB DB 6B 09 4D 69 09 4D 69 09 4D 69 [[[[[[k. Mi.Mi.Mi
$001010 09 4D 69 09 4D 49 4D 49 4D 49 09 4D 69 09 DE DB .Mi.MIMI MI.Mi.^[
$001020 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$001030 DB DB DB 1B 4D 49 09 4D 69 09 4D 69 49 0D 4D 09 [[[.MI.M i.MiI.M.
$001040 4D 69 49 69 49 69 49 49 4D 69 09 DE DB DB DB DB MiIiIiII Mi.^[[[[
$001050 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$001060 1B 4D 49 09 4D 69 09 2D 6D 49 09 4D 49 2D 6D 49 .MI.Mi.- mI.MI-mI
$001070 09 4D 49 4D 49 09 2D 2D 4D F1 DB DB DB DB DB DB .MIMI.-- Mq[[[[[[
$001080 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB 4D [[[[[[[[ [[[[[[[M
$001090 49 09 4D 69 09 4D 49 49 69 49 69 4D 49 09 4D 49 I.Mi.MII iIiMI.MI
$0010A0 4D 6D 09 4D 69 09 DE DB DB DB DB DB DB DB DB DB Mm.Mi.^[ [[[[[[[[
$0010B0 DB DB DB DB DB DB DB DB DB DB DB 1B 4D 69 09 4D [[[[[[[[ [[[.Mi.M
$0010C0 69 09 4D 49 49 69 49 69 69 49 09 4D 49 4D 69 09 i.MIIiIi iI.MIMi.
$0010D0 4D 69 09 DE DB DB DB DB DB DB DB DB DB DB DB DB Mi.^[[[[ [[[[[[[[
$0010E0 DB DB DB DB DB DB DB DB 2B 6D 49 29 6D 49 4D 49 [[[[[[[[ +mI)mIMI
$0010F0 49 69 49 69 09 4D 09 2D 4D 49 2D 4D 09 4D 69 09 IiIi.M.- MI-M.Mi.
$001100 96 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB .[[[[[[[ [[[[[[[[
$001110 DB DB 2D 2D F5 DB 1B 4D 49 29 4D 49 49 4D 49 2D [[--u[.M I)MIIMI-
$001120 4D 09 2D 4D 09 2D DE DB DB DB DB DB DB DB DB DB M.-M.-^[ [[[[[[[[
$001130 DB DB DB 1B 4D 29 6D 69 49 49 6D 49 4D 69 69 09 [[[.M)mi IImIMii.
$001140 4D 4D F1 DB DB DB DB DB DB DB DB DB DB DB DB DB MMq[[[[[ [[[[[[[[
$001150 6B 69 49 69 49 49 69 49 4D 69 69 09 4D 49 F1 DB kiIiIIiI Mii.MIq[
$001160 DB DB DB DB DB DB DB DB DB DB DB DB 6B 69 49 69 [[[[[[[[ [[[[kiIi
$001170 49 49 69 49 29 2D 4D 29 6D 49 29 DE DB DB DB DB IIiI)-M) mI)^[[[[
$001180 DB DB DB DB DB DB DB DB 1B 4D 4D 49 4D 49 49 4D [[[[[[[[ .MMIMIIM
$001190 49 49 4D 4D 69 09 DE DB DB DB DB DB DB DB DB DB IIMMi.^[ [[[[[[[[
$0011A0 DB DB DB 4D 29 6D 69 49 49 69 49 49 4D 69 09 4D [[[M)miI IiIIMi.M
$0011B0 DE DB DB DB DB DB DB DB DB DB DB DB 6B 49 09 4D ^[[[[[[[ [[[[kI.M
$0011C0 49 49 2D 4D 29 6D 49 29 6D 09 2D 2D DE DB DB DB II-M)mI) m.--^[[[
$0011D0 DB DB DB DB DB DB DB DB DB 2B 2D 2D 96 DB DB DB [[[[[[[[ [+--.[[[
$0011E0 DB DB DB DB DB 2D 6D 49 29 6D 49 29 6D 49 4D 69 [[[[[-mI )mI)mIMi
$0011F0 09 2D 6D 49 29 6D 49 4D 69 49 09 2D 4D 69 09 4D .-mI)mIM iI.-Mi.M
$001200 09 2D DE DB DB DB DB DB DB DB DB DB DB DB DB DB .-^[[[[[ [[[[[[[[
$001210 DB DB DB DB DB DB DB DB DB DB DB 1B 4D 69 09 4D [[[[[[[[ [[[.Mi.M
$001220 69 09 4D 69 09 4D 4D 09 4D 69 09 4D 69 09 4D 69 i.Mi.MM. Mi.Mi.Mi
$001230 49 49 4D 09 4D 69 09 4D F1 DB DB DB DB DB DB DB IIM.Mi.M q[[[[[[[
$001240 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$001250 DB DB 6B 09 4D 69 09 4D 69 49 49 0D 4D 49 4D 69 [[k.Mi.M iII.MIMi
$001260 09 4D 69 49 0D 4D 49 49 4D 09 6D 69 09 DE DB DB .MiI.MII M.mi.^[[
$001270 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$001280 DB DB DB DB DB 1B 2D 6D 49 4D 69 09 4D 49 09 6D [[[[[.-m IMi.MI.m
$001290 49 09 2D 6D 49 4D 69 49 69 49 49 09 4D 09 0D 0D I.-mIMiI iII.M...
$0012A0 4D F1 DB DB DB DB DB DB DB DB DB DB DB DB DB DB Mq[[[[[[ [[[[[[[[
$0012B0 DB DB DB DB DB DB DB DB DB DB 0D 4D 49 4D 69 09 [[[[[[[[ [[.MIMi.
$0012C0 4D 49 09 0D 4D 49 0D 4D 49 4D 69 49 69 49 49 09 MI..MI.M IMiIiII.
$0012D0 4D 09 4D 6D 09 DE DB DB DB DB DB DB DB DB DB DB M.Mm.^[[ [[[[[[[[
$0012E0 DB DB DB DB DB DB DB DB DB DB DB DB DB 1B 4D 4D [[[[[[[[ [[[[[.MM
$0012F0 09 4D 69 09 4D 69 09 4D 4D 09 4D 4D 09 4D 69 49 .Mi.Mi.M M.MM.MiI
$001300 69 49 49 09 4D 09 4D 69 09 4D F1 DB DB DB DB DB iII.M.Mi .Mq[[[[[
$001310 DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB DB [[[[[[[[ [[[[[[[[
$001320 DB DB DB DB 6B 09 4D 09 2D 4D 49 2D 4D 09 4D 69 [[[[k.M. -MI-M.Mi
$001330 09 4D 69 49 2D 4D 49 69 49 49 29 6D 09 4D 69 49 .MiI-MIi II)m.MiI
$001340 2D 4D 96 4A 49 09 00 .. .. .. .. .. .. .. .. .. -M.JI..
** END **

Text found in 050_Max_Command.dsk/P.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000010 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000020 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000030 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000040 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000050 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000060 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000070 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000080 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000090 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0000A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0000B0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0000C0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0000D0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0000E0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0000F0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000100 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000110 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000120 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000130 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000140 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000150 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000160 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000170 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000180 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000190 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0001A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0001B0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0001C0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0001D0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0001E0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0001F0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000200 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000210 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000220 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000230 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000240 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000250 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000260 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000270 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000280 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000290 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0002A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0002B0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0002C0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0002D0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0002E0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0002F0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000300 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000310 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000320 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000330 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000340 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000350 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000360 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000370 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000380 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$000390 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0003A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0003B0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0003C0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0003D0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0003E0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
$0003F0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0
** END **

Text found in 050_Max_Command.dsk/T1.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 24 00 4A 00 79 00 D5 00 11 01 33 01 66 01 AC 01 $.J.y.U. ..3.f.,.
$000010 DB 01 0E 02 30 02 6C 02 C8 02 F7 02 25 03 81 03 [...0.l. H.w.%...
$000020 BA 03 DC 03 10 04 55 04 83 04 B7 04 D9 04 12 05 :.\...U. ..7.Y...
$000030 6E 05 9C 05 DE 05 1D 06 5C 06 03 07 64 07 FD 07 n...^... \...d.}.
$000040 3C 08 63 08 AD 08 07 09 27 09 8B 4A 49 29 1E F5 <.c.-... '..JI).u
$000050 DB 2B 4D 2D F5 DB DB 2D 2D 2D F5 DB DB 2D 2D 2D [+M-u[[- --u[[---
$000060 2D 2D F5 DB DB DB 2B 2D 2D 2D DE DB 1B 6D 29 2D --u[[[+- --^[.m)-
$000070 DE 2B 1E B5 49 49 49 01 00 8B 09 2D 2D 2D 2D 2D ^+.5III. ...-----
$000080 F5 DB DB DB 2B 2D 4D 49 29 DE DB DB DB 2D 6D 49 u[[[+-MI )^[[[-mI
$000090 09 F5 DB DB DB 2B 2D 2D 4D 09 F5 DB DB DB 2B 2D .u[[[+-- M.u[[[+-
$0000A0 2D 4D 09 F5 DB DB DB 2B 2D 2D 4D 09 F5 DB DB DB -M.u[[[+ --M.u[[[
$0000B0 2B 2D 2D 2D 4D F5 DB DB DB 2B 2D 2D 2D 4D F5 DB +---Mu[[ [+---Mu[
$0000C0 DB DB 2B 2D 2D 2D 2D 2D DE DB DB DB 2D 2D 2D 2D [[+----- ^[[[----
$0000D0 2D B5 49 01 00 8B 52 29 2D 2D 4D 09 F5 DB DB DB -5I...R) --M.u[[[
$0000E0 2B 2D 2D 2D 2D 2D DE DB DB DB 2D 2D 6D 49 F5 DB +-----^[ [[--mIu[
$0000F0 DB 1B F5 1B 2D F5 1B 2D 2D 2D 2D 2D F5 DB DB DB [.u.-u.- ----u[[[
$000100 2B 2D 2D 2D 2D DE DB DB 2B 2D 2D 2D 96 49 49 09 +----^[[ +---.II.
$000110 00 8B 52 29 1E 2D 2D 2D F5 DB DB 2D 2D 2D 2D 2D ..R).--- u[[-----
$000120 F5 DB DB DB 2B 2D 2D 2D DE DB 1B B5 92 49 49 49 u[[[+--- ^[.5.III
$000130 49 09 00 8B 92 49 49 F5 1B 2D 2D 2D 2D F5 DB DB I....IIu .----u[[
$000140 1B 2D F5 DB 2B 2D 2D 2D 2D 2D DE DB DB DB 2D 2D .-u[+--- --^[[[--
$000150 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D 2D DE DB 1B 2D ---u[[[+ ----^[.-
$000160 2D B5 49 49 09 00 8B 09 2D F5 1B 2D 2D F5 DB 2B -5II.... -u.--u[+
$000170 2D 2D 2D DE DB 1B 6D 29 2D 2D 2D DE DB DB DB 6D ---^[.m) ---^[[[m
$000180 49 09 2D F5 DB DB DB 2B 4D 49 29 2D DE DB DB DB I.-u[[[+ MI)-^[[[
$000190 6D 29 2D 2D 2D DE DB DB DB 2D 2D 2D F5 DB DB 2D m)---^[[ [---u[[-
$0001A0 2D F5 DB 2B 2D 96 49 49 49 49 00 00 8B 4A 49 29 -u[+-.II II...JI)
$0001B0 1E F5 DB 2B 4D 2D F5 DB DB 2D 2D 2D F5 DB DB 2D .u[+M-u[ [---u[[-
$0001C0 2D 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D DE DB 1B 6D ----u[[[ +---^[.m
$0001D0 29 2D DE 2B 1E B5 49 49 49 01 00 8B 92 49 49 F5 )-^+.5II I....IIu
$0001E0 1B 2D 2D 2D 2D F5 DB DB 1B 2D F5 DB 2B 2D 2D 2D .----u[[ .-u[+---
$0001F0 2D 2D DE DB DB DB 2D 2D 2D 2D 2D F5 DB DB DB 2B --^[[[-- ---u[[[+
$000200 2D 2D 2D 2D DE DB 1B 2D 2D B5 49 49 09 00 8B 52 ----^[.- -5II...R
$000210 29 1E 2D 2D 2D F5 DB DB 2D 2D 2D 2D 2D F5 DB DB ).---u[[ -----u[[
$000220 DB 2B 2D 2D 2D DE DB 1B B5 92 49 49 49 49 09 00 [+---^[. 5.IIII..
$000230 8B 52 29 2D 2D 4D 09 F5 DB DB DB 2B 2D 2D 2D 2D .R)--M.u [[[+----
$000240 2D DE DB DB DB 2D 2D 6D 49 F5 DB DB 1B F5 1B 2D -^[[[--m Iu[[.u.-
$000250 F5 1B 2D 2D 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D 2D u.-----u [[[+----
$000260 DE DB DB 2B 2D 2D 2D 96 49 49 09 00 8B 09 2D 2D ^[[+---. II....--
$000270 2D 2D 2D F5 DB DB DB 2B 2D 4D 49 29 DE DB DB DB ---u[[[+ -MI)^[[[
$000280 2D 6D 49 09 F5 DB DB DB 2B 2D 2D 4D 09 F5 DB DB -mI.u[[[ +--M.u[[
$000290 DB 2B 2D 2D 4D 09 F5 DB DB DB 2B 2D 2D 4D 09 F5 [+--M.u[ [[+--M.u
$0002A0 DB DB DB 2B 2D 2D 2D 4D F5 DB DB DB 2B 2D 2D 2D [[[+---M u[[[+---
$0002B0 4D F5 DB DB DB 2B 2D 2D 2D 2D 2D DE DB DB DB 2D Mu[[[+-- ---^[[[-
$0002C0 2D 2D 2D 2D B5 49 01 00 8B 4A 49 29 1E F5 DB 2B ----5I.. .JI).u[+
$0002D0 4D 2D F5 DB DB 2D 2D 2D F5 DB DB 2D 2D 2D 2D 2D M-u[[--- u[[-----
$0002E0 F5 DB DB DB 2B 2D 2D 2D DE DB 1B 6D 29 2D DE 2B u[[[+--- ^[.m)-^+
$0002F0 1E B5 49 49 49 01 00 8B 4A 49 49 F5 F5 1B 2D 6D .5III... JIIuu.-m
$000300 29 DE DB 1B 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D 2D )^[.---u [[[+----
$000310 2D DE DB 1B 2D 2D 2D F5 DB DB 2D 6D 29 DE DB F5 -^[.---u [[-m)^[u
$000320 B5 49 49 09 00 8B 09 2D 2D 2D 2D 2D F5 DB DB DB 5II....- ----u[[[
$000330 2B 4D 49 29 2D DE DB DB DB 6D 49 09 2D F5 DB DB +MI)-^[[ [mI.-u[[
$000340 DB 2B 4D 09 2D 2D F5 DB DB DB 2B 4D 09 2D 2D F5 [+M.--u[ [[+M.--u
$000350 DB DB DB 2B 4D 09 2D 2D F5 DB DB DB 2B 4D 2D 2D [[[+M.-- u[[[+M--
$000360 2D F5 DB DB DB 2B 4D 2D 2D 2D F5 DB DB DB 2B 2D -u[[[+M- --u[[[+-
$000370 2D 2D 2D 2D DE DB DB DB 2D 2D 2D 2D 2D B5 49 01 ----^[[[ -----5I.
$000380 00 8B 52 29 4D 09 2D 2D F5 DB DB DB 2B 2D 2D 2D ..R)M.-- u[[[+---
$000390 2D 2D DE DB DB DB 6D 49 2D 2D F5 1B F5 2D F5 DB --^[[[mI --u.u-u[
$0003A0 DB DB 2B 2D 2D 2D 2D 2D DE DB DB 2B 2D 2D 2D 2D [[+----- ^[[+----
$0003B0 DE DB 1B 2D 2D 2D B5 4A 09 00 8B 52 49 49 49 09 ^[.---5J ...RIII.
$0003C0 F5 DB DB 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D 2D 2D u[[---u[ [[+-----
$0003D0 DE DB 1B 2D 2D 2D F5 B5 92 49 01 00 8B 92 49 49 ^[.---u5 .I....II
$0003E0 09 F5 DB DB 2D 2D 2D 2D F5 1B 2D F5 DB DB 1B 2D .u[[---- u.-u[[.-
$0003F0 2D 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D 2D 2D DE DB ----u[[[ +-----^[
$000400 DB 2B 2D 2D 2D 2D DE DB 1B 2D 2D B5 49 49 00 00 [+----^[ .--5II..
$000410 8B 49 49 49 29 2D DE DB 2D 2D F5 DB DB 2D 2D 2D .III)-^[ --u[[---
$000420 F5 DB DB DB 2B 2D 2D 2D 4D F5 DB DB DB 2B 2D 4D u[[[+--- Mu[[[+-M
$000430 49 29 DE DB DB DB 2D 6D 49 09 F5 DB DB DB 2B 2D I)^[[[-m I.u[[[+-
$000440 2D 2D 4D F5 DB DB 2D 2D 2D F5 DB 2B 2D 2D DE 2B --Mu[[-- -u[+--^+
$000450 2D 96 49 01 00 8B 4A 49 49 F5 F5 1B 2D 6D 29 DE -.I...JI Iuu.-m)^
$000460 DB 1B 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D 2D 2D DE [.---u[[ [+-----^
$000470 DB 1B 2D 2D 2D F5 DB DB 2D 6D 29 DE DB F5 B5 49 [.---u[[ -m)^[u5I
$000480 49 09 00 8B 92 49 49 09 F5 DB DB 2D 2D 2D 2D F5 I....II. u[[----u
$000490 1B 2D F5 DB DB 1B 2D 2D 2D 2D 2D F5 DB DB DB 2B .-u[[.-- ---u[[[+
$0004A0 2D 2D 2D 2D 2D DE DB DB 2B 2D 2D 2D 2D DE DB 1B -----^[[ +----^[.
$0004B0 2D 2D B5 49 49 00 00 8B 52 49 49 49 09 F5 DB DB --5II... RIII.u[[
$0004C0 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D 2D 2D DE DB 1B ---u[[[+ -----^[.
$0004D0 2D 2D 2D F5 B5 92 49 01 00 8B 52 29 4D 09 2D 2D ---u5.I. ..R)M.--
$0004E0 F5 DB DB DB 2B 2D 2D 2D 2D 2D DE DB DB DB 6D 49 u[[[+--- --^[[[mI
$0004F0 2D 2D F5 1B F5 2D F5 DB DB DB 2B 2D 2D 2D 2D 2D --u.u-u[ [[+-----
$000500 DE DB DB 2B 2D 2D 2D 2D DE DB 1B 2D 2D 2D B5 4A ^[[+---- ^[.---5J
$000510 09 00 8B 09 2D 2D 2D 2D 2D F5 DB DB DB 2B 4D 49 ....---- -u[[[+MI
$000520 29 2D DE DB DB DB 6D 49 09 2D F5 DB DB DB 2B 4D )-^[[[mI .-u[[[+M
$000530 09 2D 2D F5 DB DB DB 2B 4D 09 2D 2D F5 DB DB DB .--u[[[+ M.--u[[[
$000540 2B 4D 09 2D 2D F5 DB DB DB 2B 4D 2D 2D 2D F5 DB +M.--u[[ [+M---u[
$000550 DB DB 2B 4D 2D 2D 2D F5 DB DB DB 2B 2D 2D 2D 2D [[+M---u [[[+----
$000560 2D DE DB DB DB 2D 2D 2D 2D 2D B5 49 01 00 8B 4A -^[[[--- --5I...J
$000570 49 49 F5 F5 1B 2D 6D 29 DE DB 1B 2D 2D 2D F5 DB IIuu.-m) ^[.---u[
$000580 DB DB 2B 2D 2D 2D 2D 2D DE DB 1B 2D 2D 2D F5 DB [[+----- ^[.---u[
$000590 DB 2D 6D 29 DE DB F5 B5 49 49 09 00 8B 49 49 F5 [-m)^[u5 II...IIu
$0005A0 F5 1B 2D 2D F5 DB 2B 2D 2D DE DB 2D 2D 2D F5 DB u.--u[+- -^[---u[
$0005B0 DB 2D 2D 2D F5 DB DB 1B 2D 2D 2D 2D 2D F5 DB DB [---u[[. -----u[[
$0005C0 DB 2B 2D 2D 2D 2D 2D DE DB DB DB 2D 2D 2D 2D 2D [+-----^ [[[-----
$0005D0 F5 DB DB DB 2B 2D 2D 2D 2D 2D 56 49 00 00 8B 49 u[[[+--- --VI...I
$0005E0 29 2D 2D 2D 2D DE DB DB DB 2D 2D 2D 2D 2D 2D F5 )----^[[ [------u
$0005F0 DB DB DB DB 2D 2D 2D 2D 2D 2D F5 DB DB DB DB 2D [[[[---- --u[[[[-
$000600 2D 2D 2D 2D 2D F5 DB DB DB 2B 4D 6D 29 DE DB 1B -----u[[ [+Mm)^[.
$000610 2D 2D F5 1B F5 F5 F5 B5 49 49 49 00 00 8B 49 29 --u.uuu5 III...I)
$000620 2D 2D 2D 2D DE DB DB DB 2D 2D 2D 2D 2D 2D F5 DB ----^[[[ ------u[
$000630 DB DB DB 2D 2D 2D 2D 2D 2D F5 DB DB DB DB 2D 2D [[[----- -u[[[[--
$000640 2D 2D 2D 2D F5 DB DB DB 2B 4D 6D 29 DE DB 1B 2D ----u[[[ +Mm)^[.-
$000650 2D F5 1B F5 F5 F5 B5 49 49 49 00 00 0B 2D 2D 2D -u.uuu5I II...---
$000660 2D 2D 2D 2D F5 DB DB DB DB 1B 2D 2D 2D 2D 2D 2D ----u[[[ [.------
$000670 2D F5 DB DB DB DB 1B 2D 2D 2D 2D 2D 2D 2D F5 DB -u[[[[.- ------u[
$000680 DB DB DB 1B 2D 2D 2D 2D 2D 2D 2D F5 DB DB DB DB [[[.---- ---u[[[[
$000690 1B 2D 2D 2D 2D 2D 2D 2D F5 DB DB DB DB 1B 2D 2D .------- u[[[[.--
$0006A0 2D 2D 2D 2D 2D F5 DB DB DB DB 1B 2D 2D 2D 2D 2D -----u[[ [[.-----
$0006B0 2D 2D F5 DB DB DB DB 1B 2D 2D 2D 2D 2D 2D 2D F5 --u[[[[. -------u
$0006C0 DB DB DB DB 1B 2D 2D 2D 2D 2D 2D 2D F5 DB DB DB [[[[.--- ----u[[[
$0006D0 DB 1B 2D 2D 2D 2D 2D 2D 2D F5 DB DB DB DB 1B 2D [.------ -u[[[[.-
$0006E0 2D 2D 2D 2D 2D 2D F5 DB DB DB DB 1B 2D 2D 2D 2D ------u[ [[[.----
$0006F0 2D 2D 2D F5 DB DB DB DB 1B 2D 2D 2D 2D 2D 2D 2D ---u[[[[ .-------
$000700 75 00 00 8B 49 29 2D 2D 2D 2D DE DB DB DB 6D 49 u...I)-- --^[[[mI
$000710 49 49 F5 DB DB DB DB 6D 29 2D 2D 4D F5 DB DB DB IIu[[[[m )--Mu[[[
$000720 DB 6D 29 4D 6D 29 DE DB DB DB 1B 6D 29 4D 6D 29 [m)Mm)^[ [[.m)Mm)
$000730 DE DB DB DB 1B 6D 29 4D 6D 29 DE DB DB DB 1B 6D ^[[[.m)M m)^[[[.m
$000740 29 4D 6D 29 DE DB DB DB 1B 6D 29 2D 2D 4D F5 DB )Mm)^[[[ .m)--Mu[
$000750 DB DB DB 6D 49 49 49 F5 DB DB DB 2B 2D 2D 2D 2D [[[mIIIu [[[+----
$000760 56 49 01 00 0B 2D 2D 2D 2D 2D 2D 2D 2D F5 DB DB VI...--- -----u[[
$000770 DB DB DB 2B 2D 2D 2D 2D 2D 2D 2D 2D DE DB DB DB [[[+---- ----^[[[
$000780 DB DB 6D 49 49 49 49 29 DE DB DB DB DB DB 6D 29 [[mIIII) ^[[[[[m)
$000790 4D 49 29 4D F5 DB DB DB DB DB 2B 4D 09 6D 29 4D MI)Mu[[[ [[+M.m)M
$0007A0 09 F5 DB DB DB DB DB 2B 4D 49 29 4D 49 29 DE DB .u[[[[[+ MI)MI)^[
$0007B0 DB DB DB DB 6D 49 49 49 49 29 DE DB DB DB DB DB [[[[mIII I)^[[[[[
$0007C0 6D 49 09 6D 49 09 F5 DB DB DB DB DB 2B 4D 09 6D mI.mI.u[ [[[[+M.m
$0007D0 29 4D 09 F5 DB DB DB DB DB 2B 4D 6D 49 09 6D 29 )M.u[[[[ [+MmI.m)
$0007E0 DE DB DB DB DB DB 6D 49 49 49 49 29 DE DB DB DB ^[[[[[mI III)^[[[
$0007F0 DB DB 2D 2D 2D 2D 2D 2D 2D 2D 75 00 00 8B 49 29 [[------ --u...I)
$000800 2D 2D 2D 2D DE DB DB DB 2D 2D 2D 2D 2D 2D F5 DB ----^[[[ ------u[
$000810 DB DB DB 2D 2D 2D 2D 2D 2D F5 DB DB DB DB 2D 2D [[[----- -u[[[[--
$000820 2D 2D 2D 2D F5 DB DB DB 2B 4D 6D 29 DE DB 1B 2D ----u[[[ +Mm)^[.-
$000830 2D F5 1B F5 F5 F5 B5 49 49 49 00 00 8B 52 49 2D -u.uuu5I II...RI-
$000840 2D 0D DE DB 2B 2D 2D F5 DB 1B 2D 2D F5 DB 2B 2D -.^[+--u [.--u[+-
$000850 2D F5 DB 1B 2D 2D 2D DE DB 2B 2D 6D DE B3 4A 49 -u[.---^ [+-m^3JI
$000860 49 09 00 8B 49 49 49 2D DE DB 1B 6D 2D 0D 2D DE I...III- ^[.m-.-^
$000870 DB DB 2D 0D 2D 0D 2D DE DB DB DB 2B 6D 2D 0D 2D [[-.-.-^ [[[+m-.-
$000880 0D DE DB DB DB 1B 6D 2D 0D 2D 0D 2D DE DB DB DB .^[[[.m- .-.-^[[[
$000890 2B 6D 2D 0D 2D DE DB DB DB 6D 2D 0D 2D 0D DE DB +m-.-^[[ [m-.-.^[
$0008A0 2B 6D 2D DE DB 1B 6D 96 49 49 49 00 00 8B 09 6D +m-^[.m. III....m
$0008B0 49 6D 29 DE DB DB DB 2D 2D 2D 2D 2D F5 DB DB 1B Im)^[[[- ----u[[.
$0008C0 6D 49 F5 DB DB 1B 6D 29 2D 4D F5 DB DB DB 2B 4D mIu[[.m) -Mu[[[+M
$0008D0 2D 6D 29 DE DB DB DB 2D 2D 2D 2D 2D F5 DB DB DB -m)^[[[- ----u[[[
$0008E0 2B 4D 2D 6D 29 DE DB DB 2B 4D 09 F5 DB DB 2D 2D +M-m)^[[ +M.u[[--
$0008F0 2D 2D F5 DB DB DB 2B 2D 4D 6D 29 DE DB DB DB 6D --u[[[+- Mm)^[[[m
$000900 49 6D 29 56 49 00 00 8B 92 49 49 09 35 DE DB 2B Im)VI... .II.5^[+
$000910 6D 29 4D 6D DE DB DB 1B 2D 0D 2D 0D DE DB 2B 6D m)Mm^[[. -.-.^[+m
$000920 DE 96 49 49 49 00 00 .. .. .. .. .. .. .. .. .. ^.III..
** END **

Text found in 050_Max_Command.dsk/V1.bas:

0 ONERR GOTO 5000
1 HIMEM: 39341: PRINT "BLOAD P": PRINT "BLOAD T": PRINT "OPEN RN": PRINT "READ RN": INPUT Y,A$,B$,C$,D$,P8,BO%: PRINT "CLOSERN": PRINT "BLOAD L,A$99AE"
4 V = 32:P9 = 0.5:TN = 1:XX% = 18:YY% = 13:P5 = 10:P6 = 0:P7 = 0: DIM X%(24),Y%(24),A%(44),B%(44): FOR I = 1 = 1 TO 12:Y%(I) = (YY% *I) -YY%:J = I +12:Y%(J) = (YY% *I) -YY%:T%(1) = 0:T%(2) = 0:T%(3) = 0:T%(4) = 0:T%(5) = 0:T%(6) = 0
7 NEXT : PRINT "BLOAD T1": POKE 232,0: POKE 233,12: PRINT "BLOAD Z": IF BO% = 1 THEN GOTO 900
8 HOME : VTAB 22: HTAB 6: INVERSE : PRINT "THE BATTLE IS ABOUT TO BEGIN": NORMAL : GOTO 343
9 P1 = 1:P2 = 133:P3 = 111:P4 = 50
10 POKE 783,P1: POKE 789,P2: POKE 794,P3: POKE 848,P4: CALL 768: RETURN
13 IF X = 211 THEN V = 32
16 IF X = 209 THEN V = 96
19 VTAB 21: HTAB 1: INVERSE : IF P5 = 10 THEN PRINT "CLEAR": NORMAL
22 IF P5 = 0 THEN PRINT "H.RAIN": NORMAL
25 IF P5 = 1 THEN PRINT "L.RAIN": NORMAL
28 IF P5 = 2 THEN PRINT "FOG": NORMAL
31 IF P5 = 3 THEN PRINT "WIND": NORMAL
34 IF P5 = 4 THEN PRINT "HAIL": NORMAL
37 IF P5 = 5 THEN PRINT "DUST": NORMAL
40 POKE 768,V: VTAB 21: HTAB 33: INVERSE : PRINT "TURN ";: IF INT(P9) <1 THEN PRINT 1: NORMAL : RETURN
41 PRINT INT(P9): NORMAL : RETURN
49 IF X%(C) >255 THEN POKE 39495,255: POKE 39496,Y%(C): GOTO 61
58 POKE 39496,Y%(C): POKE 39495,X%(C)
61 CALL 39342:J = PEEK(39494):OJ% = 0:OK% = 0: ON J GOSUB 64,67,70,73,75: IF J >5 THEN J = J -5: ON J GOSUB 64,67,70,73,75: GOSUB 75
62 GOTO 76
64 HCOLOR= 2: DRAW 25 AT X%(C),Y%(C):OJ% = 1:OW% = 1: RETURN
67 HCOLOR= 1: DRAW 26 AT X%(C),Y%(C):OK% = 1:OW% = 1: RETURN
70 HCOLOR= 3: DRAW 28 AT X%(C),Y%(C): XDRAW 33 AT X%(C),Y%(C):OJ% = 1:OW% = 1: IF BO% = 1 THEN HCOLOR= 0: HPLOT X%(C),Y%(C) -1 +YY% TO X%(C) +XX%,Y%(C) -1 +YY%
71 RETURN
73 HCOLOR= 3: DRAW 28 AT X%(C),Y%(C): XDRAW 35 AT X%(C) -1,Y%(C):OK% = 1:OW% = 1: IF BO% = 1 THEN HCOLOR= 0: HPLOT X%(C),Y%(C) -1 +YY% TO X%(C) +XX%,Y%(C) -1 +YY%
74 RETURN
75 HCOLOR= 0: DRAW 29 AT X%(C),Y%(C):OJ% = 1:OW% = 1:OK% = 0: RETURN
76 FOR J = K TO L:OI% = 0: IF C < >J THEN OI% = 1: IF OI% = 1 THEN OI% = 0: IF X%(J) = X%(C) AND Y%(J) = Y%(C) THEN OI% = 1: HCOLOR= 0: DRAW J AT X%(J),Y%(J):J = L:OW% = 1:OK% = 0
77 NEXT J: FOR J = E TO F:OL% = 0: IF C < >J AND X%(J) = X%(C) AND Y%(J) = Y%(C) THEN OL% = 1:Z = J:J = F: HCOLOR= 0: DRAW Z AT X%(Z),Y%(Z):OW% = 1:OK% = 0
78 NEXT J: RETURN
79 Y%(C) = Y%(C) -YY%: IF Y%(C) < = 0 THEN Y%(C) = 0:MF% = MF% +1
82 XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: IF OI% = 1 THEN Y%(C) = Y%(C) +YY%:MF% = MF% +1
85 IF OI% = 1 OR C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN RETURN
88 IF OJ% = 1 THEN Y%(C) = Y%(C) +YY%:MF% = MF% +1
91 IF OK% = 1 THEN MF% = 1
94 RETURN
97 X%(C) = X%(C) +XX%:Y%(C) = Y%(C) -YY%: IF X%(C) >256 OR Y%(C) <0 THEN X%(C) = X%(C) -XX%:Y%(C) = Y%(C) +YY%:MF% = MF% +1
100 XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: IF OI% = 1 THEN X%(C) = X%(C) -XX%:Y%(C) = Y%(C) +YY%:MF% = MF% +1
103 IF C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN RETURN
106 IF OJ% = 1 THEN X%(C) = X%(C) -XX%:Y%(C) = Y%(C) +YY%:MF% = MF% +1
109 IF OK% = 1 THEN MF% = 1
112 RETURN
115 X%(C) = X%(C) +XX%: IF X%(C) >256 THEN X%(C) = X%(C) -XX%:MF% = MF% +1
118 XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: IF OI% = 1 THEN X%(C) = X%(C) -XX%:MF% = MF% +1
121 IF OI% = 1 OR C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN RETURN
124 IF OJ% = 1 THEN X%(C) = X%(C) -XX%:MF% = MF% +1
127 IF OK% = 1 THEN MF% = 1
130 RETURN
133 X%(C) = X%(C) +XX%:Y%(C) = Y%(C) +YY%: IF X%(C) >256 OR Y%(C) >143 THEN X%(C) = X%(C) -XX%:Y%(C) = Y%(C) -YY%:MF% = MF% +1
136 XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: IF OI% = 1 THEN X%(C) = X%(C) -XX%:Y%(C) = Y%(C) -YY%:MF% = MF% +1
139 IF OI% = 1 OR C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN RETURN
142 IF OJ% = 1 THEN X%(C) = X%(C) -XX%:Y%(C) = Y%(C) -YY%:MF% = MF% +1
145 IF OK% = 1 THEN MF% = 1
148 RETURN
151 Y%(C) = Y%(C) +YY%: IF Y%(C) > = 143 THEN Y%(C) = 143:MF% = MF% +1
154 XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: IF OI% = 1 THEN Y%(C) = Y%(C) -YY%:MF% = MF% +1
157 IF OI% = 1 OR C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN RETURN
160 IF OJ% = 1 THEN Y%(C) = Y%(C) -YY%:MF% = MF% +1
163 IF OK% = 1 THEN MF% = 1
166 RETURN
169 X%(C) = X%(C) -XX%:Y%(C) = Y%(C) +YY%: IF X%(C) <4 OR Y%(C) >143 THEN X%(C) = X%(C) +XX%:Y%(C) = Y%(C) -YY%:MF% = MF% +1
172 XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: IF OI% = 1 THEN X%(C) = X%(C) +XX%:Y%(C) = Y%(C) -YY%:MF% = MF% +1
175 IF OI% = 1 OR C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN RETURN
178 IF OJ% = 1 THEN X%(C) = X%(C) +XX%:Y%(C) = Y%(C) -YY%:MF% = MF% +1
181 IF OK% = 1 THEN MF% = 1
184 RETURN
187 X%(C) = X%(C) -XX%: IF X%(C) <4 THEN X%(C) = 4:MF% = MF% +1
190 XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: IF OI% = 1 THEN X%(C) = X%(C) +XX%:MF% = MF% +1
193 IF OI% = 1 OR C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN RETURN
196 IF OJ% = 1 THEN X%(C) = X%(C) +XX%:MF% = MF% +1
199 IF OK% = 1 THEN MF% = 1
202 RETURN
205 X%(C) = X%(C) -XX%:Y%(C) = Y%(C) -YY%: IF X%(C) <4 OR Y%(C) <0 THEN X%(C) = X%(C) +XX%:Y%(C) = Y%(C) +YY%:MF% = MF% +1
208 XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: IF OI% = 1 THEN X%(C) = X%(C) +XX%:Y%(C) = Y%(C) +YY%:MF% = MF% +1
211 IF OI% = 1 OR C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN RETURN
214 IF OJ% = 1 THEN X%(C) = X%(C) +XX%:Y%(C) = Y%(C) +YY%:MF% = MF% +1
217 IF OK% = 1 THEN MF% = 1
220 RETURN
223 Q = C: IF Q = 6 OR Q = 18 THEN C = I: HCOLOR= 5: DRAW C AT X%(C),Y%(C):P1 = 57:P2 = 159:P3 = 171:P4 = 20: GOSUB 10: HCOLOR= 3: DRAW C AT X%(C),Y%(C): POKE 230,64: DRAW C AT X%(C),Y%(C): POKE 230,32: IF X%(C) >255 THEN X%(C) = 255
226 IF Q = 6 OR Q = 18 THEN FOR I = 39 TO 44:A = I -38: IF T%(A) = 0 THEN T%(A) = 6:I = 44
229 IF Q = 6 OR Q = 18 THEN I = I: NEXT I: FOR I = 39 TO 44: IF A%(I) >500 THEN A%(I) = X%(C):B%(I) = Y%(C): IF A%(I) >255 THEN A%(I) = A%(I) -1
232 IF ABS(A%(I) -X%(C)) < = 1 AND B%(I) = Y%(C) THEN POKE 39497 +I,A%(I): POKE 39541 +I,B%(I):I = 44
235 IF Q = 6 OR Q = 18 THEN I = I: NEXT I: HCOLOR= 0: DRAW 29 AT X%(C),Y%(C): GOSUB 49: POKE 230,64: GOSUB 49: POKE 230,32: IF X%(C) = 255 THEN X%(C) = 256
236 IF Q = 6 OR Q = 18 THEN X%(C) = 32000:Y%(C) = 32000: GOTO 250
238 IF (I = 2 OR I = 14 OR I = 11 OR I = 23) AND ( ABS(X%(C) -X%(I)) >XX% OR ABS(Y%(C) -Y%(I)) >YY%) THEN P1 = 80:P2 = 164:P3 = 107:P4 = 13: GOSUB 10: FOR Q = 1 TO 13: NEXT :P3 = 255: GOSUB 10: GOSUB 304: RETURN
241 IF (C = 3 OR C = 5 OR C = 8 OR C = 10 OR C = 15 OR C = 17 OR C = 20 OR C = 22) THEN C = I: FOR I = 1 TO 4: HCOLOR= I: IF I = 3 THEN HCOLOR= 5
244 IF (Q = 3 OR Q = 5 OR Q = 8 OR Q = 10 OR Q = 15 OR Q = 17 OR Q = 20 OR Q = 22) THEN DRAW C AT X%(C),Y%(C):P1 = 7:P2 = 9:P3 = 12:P4 = 8: FOR J = 1 TO 10: GOSUB 10: NEXT J,I: HCOLOR= 3: DRAW C AT X%(C),Y%(C): GOSUB 49:X%(C) = 32000:Y%(C) = 32000: GOSUB 304: GOTO 250
247 C = I: FOR I = 1 TO 10:P1 = 14:P2 = 42:P3 = 18:P4 = 8: HCOLOR= 5: DRAW 34 AT X%(C),Y%(C): GOSUB 10: HCOLOR= 6: DRAW C AT X%(C),Y%(C): GOSUB 10: NEXT I: HCOLOR= 3: DRAW 34 AT X%(C),Y%(C): DRAW C AT X%(C),Y%(C): GOSUB 49:X%(C) = 32000:Y%(C) = 32000: GOSUB 304
250 P0 = 0: IF C = 1 OR C = 7 OR C = 12 OR C = 13 OR C = 19 OR C = 24 THEN P0 = 80
253 IF C = 2 OR C = 11 OR C = 14 OR C = 23 THEN P0 = 40
256 IF C = 3 OR C = 10 OR C = 15 OR C = 22 THEN P0 = 65
259 IF C = 4 OR C = 9 OR C = 16 OR C = 21 THEN P0 = 100
262 IF C = 5 OR C = 8 OR C = 17 OR C = 20 THEN P0 = 50
265 IF C = 6 OR C = 18 THEN P0 = 250
268 RETURN
271 POKE 230,64:H% = 0: HCOLOR= 0: IF BO% = 0 THEN HCOLOR= 3
274 HPLOT 3,0 TO 3,155: FOR J = 0 TO 14: HPLOT 21 +(XX% *J),0 TO 21 +(XX% *J),155: NEXT J: FOR J = 12 TO 156 STEP 13: HPLOT 4,J TO 271,J: NEXT J: IF H% = 1 THEN POKE -16300,0: RETURN
277 H% = 1: POKE -16299,0: POKE 230,32: GOTO 274
280 IF C = 6 OR C = 18 THEN P1 = 8:P2 = 29:P3 = 233:P4 = 20: FOR J = 1 TO 5: GOSUB 10: FOR Q = 1 TO 300: NEXT Q: NEXT J:P1 = 31:P2 = 74:P3 = 138:P4 = 24: GOSUB 10: RETURN
283 IF C = 5 OR C = 8 OR C = 17 OR C = 20 THEN P1 = 58:P2 = 73:P3 = 186:P4 = 22: GOSUB 10: RETURN
286 IF C = 3 OR C = 10 OR C = 15 OR C = 22 THEN P1 = 1:P2 = 255:P3 = 24:P4 = 255: FOR J = 1 TO 20: GOSUB 10: NEXT J: RETURN
289 IF C = 1 OR C = 7 OR C = 19 OR C = 12 OR C = 13 OR C = 24 THEN P1 = 104:P2 = 1:P3 = 33:P4 = 10: GOSUB 10: RETURN
292 IF C = 4 OR C = 9 OR C = 16 OR C = 21 THEN P1 = 32:P2 = 219:P3 = 64:P4 = 32: GOSUB 10: RETURN
295 IF C = 2 OR C = 11 OR C = 14 OR C = 23 THEN P1 = 14:P2 = 24:P3 = 18:P4 = 4: FOR J = 1 TO 20: GOSUB 10: NEXT J: RETURN
298 BU = 45: IF C = 6 OR C = 18 THEN BU = ( RND(Y +I) *100): IF BU < = 70 THEN BU = ( RND(BU) *70)
301 RETURN
304 POKE 230,64:H% = 0
307 HCOLOR= 3: HPLOT 1,1: CALL 62454: FOR I = 1 TO 44: IF I < = 14 THEN HCOLOR= 2: DRAW 25 AT A%(I),B%(I)
310 IF I >14 AND I <29 THEN HCOLOR= 1: DRAW 26 AT A%(I),B%(I)
313 IF I >28 AND I <35 THEN XDRAW 33 AT A%(I),B%(I)
316 IF I >34 AND I <39 THEN XDRAW 35 AT A%(I) -1,B%(I)
319 IF I >38 AND A%(I) <500 THEN HCOLOR= 0: DRAW 29 AT A%(I),B%(I)
322 NEXT : FOR I = 1 TO 24
325 IF I >24 THEN 337
328 IF X%(I) >1000 OR Y%(I) >1000 THEN I = I +1: GOTO 325
331 IF I >24 THEN 337
334 HCOLOR= 0: DRAW I AT X%(I),Y%(I): NEXT I
337 IF H% = 1 THEN H% = 0: GOSUB 271: POKE -16300,0: RETURN
340 HOME : GOSUB 271:H% = 1: POKE -16299,0: POKE 230,32: GOTO 307
342 HOME : VTAB 22: HTAB 7: INVERSE : PRINT "YOUR MAP IS BEING REDRAWN": NORMAL
343 POKE 230,32: POKE -16300,0: POKE -16301,0: HCOLOR= 3: HPLOT 1,1: CALL 62454: ROT= 0: SCALE= 1:X = RND( -Y): FOR I = 1 TO 38:X%(0) = ( INT( RND(Y) *15) *XX%) +4: IF X%(0) >247 OR X%(0) 143 OR Y%(0) <0 THEN I = I -1: GOTO 367
349 FOR J = 1 TO 44: IF A%(J) = X%(0) AND B%(J) = Y%(0) THEN I = I -1:J = 44: NEXT
352 NEXT :A%(I) = X%(0):B%(I) = Y%(0): IF I < = 14 THEN HCOLOR= 2: DRAW 25 AT X%(0),Y%(0):P4 = 10:P3 = 128
355 IF I >14 AND I < = 28 THEN HCOLOR= 1: DRAW 26 AT X%(0),Y%(0):P3 = 16
358 IF I >28 AND I <35 THEN XDRAW 33 AT X%(0),Y%(0):P3 = 64
361 IF I >34 AND I <39 THEN XDRAW 35 AT X%(0) -1,Y%(0):P3 = 125
364 P1 = 11:P2 = 255: GOSUB 10
367 NEXT : FOR I = 39 TO 44:A%(I) = 20000:B%(I) = 20000: NEXT I: FOR I = 1 TO 12:X%(I) = 4: XDRAW I AT X%(I),Y%(I): NEXT : FOR I = 13 TO 24:X%(I) = (XX% *14) +4: XDRAW I AT X%(I),Y%(I): NEXT : POKE 230,64:H% = 0: GOSUB 307: FOR I = 1 TO 44:X%(0) = A%(I):Y%(0) = B%(I): IF A%(I) >255 THEN X%(0) = A%(I) -1
370 IF I > = 39 THEN X%(0) = 0:Y%(0) = 0
373 POKE 39496 +I,X%(0): POKE 39540 +I,Y%(0): NEXT
376 VTAB 21: HTAB 8: PRINT "'Y' TO ACCEPT THE MAP": HTAB 8: PRINT "'N' FOR A NEW MAP": GOSUB 13: WAIT -16384,128:X = PEEK( -16384): POKE -16368,0: ON X = 217 GOTO 394: ON X = 206 GOTO 342: ON (X = 209 OR X = 211) GOSUB 13: GOTO 376
394 OW% = 0:TN = ABS(TN -1):E = 1:F = 12:K = 13:L = 24:P9 = P9 +0.5: IF TN = 1 THEN K = 1:L = 12:E = 13:F = 24
397 HOME : GOSUB 13: VTAB 21: HTAB 11: PRINT "'G' TO TOGGLE GRID": HTAB 6: INVERSE : PRINT "SELECT UNIT TO BE MOVED";: NORMAL : PRINT " ARROW KEYS": HTAB 6: PRINT "RETURN TO ACCEPT SELECTION": HTAB 6: PRINT "'N' FOR NO SELECTION";: FOR C = E TO F
400 ON C >F GOTO 397: IF C 136 AND (X%(C) >1000 OR Y%(C) >1000) THEN C = C +1: GOTO 400
409 IF X = 136 AND (X%(C) >1000 OR Y%(C) >1000) THEN C = C -1: GOTO 400
415 ON C >F GOTO 397: XDRAW 28 AT X%(C),Y%(C): FOR J = 1 TO 50: NEXT J: XDRAW 28 AT X%(C),Y%(C):X = PEEK( -16384): ON X <127 GOTO 415: POKE -16368,0: GOSUB 9: ON (X = 136 OR X = 149 OR X = 199 OR X = 218 OR X = 211 OR X = 209 OR X = 141 OR X = 206) GOTO 424: GOTO 415
424 IF X = 199 THEN HCOLOR= 0:BO% = ABS(BO% -1): GOSUB 271:C = C -1: IF C 141 THEN X%(0) = X%(C):Y%(0) = Y%(C): NEXT : GOTO 397
439 HOME :X%(0) = X%(C):Y%(0) = Y%(C)
442 IF C = 1 OR C = 12 OR C = 13 OR C = 24 OR C = 7 OR C = 19 THEN MF% = 5:OM% = MF%:FR% = 1
445 IF C = 5 OR C = 8 OR C = 17 OR C = 20 THEN MF% = 3:OM% = MF%:FR% = 2
448 IF C = 2 OR C = 14 OR C = 11 OR C = 23 THEN MF% = 3:OM% = MF%:FR% = 1
451 IF C = 6 OR C = 18 THEN MF% = 1:OM% = MF%:FR% = 4
454 IF C = 3 OR C = 10 OR C = 15 OR C = 22 THEN MF% = 2:OM% = MF%:FR% = 3
457 IF C = 4 OR C = 9 OR C = 16 OR C = 21 THEN MF% = 1:OM% = MF%:FR% = 4
460 IF (C = 1 OR C = 12 OR C = 13 OR C = 24 OR C = 7 OR C = 19) AND (P5 = 0 OR P5 = 4 OR P5 = 5) THEN MF% = 0:FR% = 0:OM% = MF%
463 IF (C = 2 OR C = 3 OR C = 4 OR C = 5 OR C = 6 OR C = 8 OR C = 9 OR C = 10 OR C = 11 OR C = 14 OR C = 15 OR C = 16 OR C = 17 OR C = 18 OR C = 20 OR C = 21 OR C = 22 OR C = 23) AND (P5 = 0 OR P5 = 1) THEN MF% = 1:OM% = MF%
466 IF (C = 3 OR C = 10 OR C = 15 OR C = 22 OR C = 6 OR C = 18 OR C = 9 OR C = 4 OR C = 16 OR C = 21) AND P5 = 4 THEN MF% = 0:OM% = MF%:FR% = 0
469 IF (C = 6 OR C = 18 OR C = 4 OR C = 9 OR C = 16 OR C = 21) AND P5 = 3 THEN FR% = 0
472 IF (C = 2 OR C = 3 OR C = 4 OR C = 5 OR C = 6 OR C = 8 OR C = 9 OR C = 10 OR C = 11 OR C = 14 OR C = 15 OR C = 16 OR C = 17 OR C = 18 OR C = 20 OR C = 21 OR C = 22 OR C = 23) AND P5 = 5 THEN FR% = 1:OM% = MF%
475 IF P5 = 2 THEN FR% = 1
478 FX% = 4 +(FR% *XX%):FY% = 4 +(FR% *YY%): IF FZ% = 1 THEN RETURN
481 POKE -16299,0: GOSUB 49: HCOLOR= 0: DRAW C AT X%(C),Y%(C): POKE -16300,0: IF MF% = 0 THEN HOME : FLASH : VTAB 22: HTAB 3: PRINT "THIS UNIT MAY NOT MOVE THIS TURN": HTAB 7: PRINT "DUE TO WEATHER CONDITIONS!": NORMAL : FOR I = 1 TO 1250: NEXT I: GOTO 397
484 HOME : VTAB 21: HTAB 1: PRINT "8 1 2": PRINT "7 3": PRINT "6 5 4": VTAB 21: HTAB 10: PRINT "WHICH DIRECTION TO MOVE?": VTAB 22: HTAB 10: PRINT "MOVES REMAINING = ";MF%: HTAB 10: PRINT "WEAPON RANGE = ";FR%
487 WAIT -16384,128:X = PEEK( -16384): POKE -16368,0: HOME : GOSUB 9
488 IF X = 141 THEN MF% = 7: IF OL% = 1 THEN P1 = 2:P2 = 25:P3 = 25:P4 = 124: FOR J = 1 TO 3: GOSUB 10: NEXT :X = 216: GOTO 523
490 ON MF% = 7 GOTO 512: IF X = 209 OR X = 211 THEN V = 32: POKE 768,V: IF X = 209 THEN V = 96: POKE 768,V
493 ON (X <177 OR X >186) GOTO 484
496 ON (X <177 OR X >186) GOTO 484: HOME : POKE 230,64: HCOLOR= 3: DRAW C AT X%(C),Y%(C): ON OW% = 1 GOSUB 49: POKE -16299,0: POKE 230,32: HCOLOR= 3: DRAW C AT X%(C),Y%(C): IF OW% = 1 THEN GOSUB 49:OW% = 0::OI% = 0:OJ% = 0:OK% = 0:OL% = 0:OS% = 0
502 POKE -16300,0: POKE 230,64: ON (X -176) GOSUB 79,97,115,133,151,169,187,205:MF% = MF% -1: HCOLOR= 0: DRAW C AT X%(C),Y%(C): POKE -16299,0: POKE 230,32: DRAW C AT X%(C),Y%(C): POKE -16300,0: IF MF% = 0 AND OL% = 1 THEN X = 216: FOR J = 1 TO 3: GOSUB 9: NEXT : GOTO 523
505 ON MF% = 0 GOTO 512: GOTO 484
508 GOTO 484
512 P1 = 2:P2 = 25:P3 = 25:P4 = 255: GOSUB 10: POKE 230,64: XDRAW C AT X%(C),Y%(C):Y = PEEK(234): XDRAW C AT X%(C),Y%(C): IF Y < >0 THEN GOSUB 49: HCOLOR= 0: DRAW C AT X%(C),Y%(C): POKE 230,32
514 HOME : VTAB 21: HTAB 8: INVERSE : PRINT "'Y' TO ACCEPT YOUR MOVE ": NORMAL : HTAB 8: PRINT "'N' TO MOVE AGAIN": HTAB 8: PRINT "'G' TO TOGGLE GRID ": HTAB 8: PRINT "'X' TO TRY ANOTHER UNIT";: GOSUB 13
517 WAIT -16384,128:X = PEEK( -16384): POKE -16368,0: GOSUB 9: ON (X = 209 OR X = 211) GOSUB 13: ON (X = 206 OR X = 145 OR X = 216) GOTO 523: ON X = 217 GOTO 544: ON X = 199 GOTO 532: GOTO 514
523 HOME : POKE 230,64: HCOLOR= 3: DRAW C AT X%(C),Y%(C): GOSUB 49: HCOLOR= 0: DRAW C AT X%(0),Y%(0): POKE -16299,0: POKE 230,32: HCOLOR= 3: DRAW C AT X%(C),Y%(C): GOSUB 49: HCOLOR= 0: DRAW C AT X%(0),Y%(0): POKE -16300,0:X%(C) = X%(0):Y%(C) = Y%(0):MF% = OM%
529 IF X = 206 THEN HOME : GOTO 481
532 IF X = 199 THEN HOME :BO% = ABS(BO% -1): GOSUB 271: GOTO 514
535 ON X = 216 GOTO 397
544 HOME : HTAB 7: VTAB 21: PRINT " 'G' TO TOGGLE GRID": HTAB 7: PRINT " ARROW KEYS TO CYCLE SELECTION": HTAB 7: PRINT " RETURN TO ";: INVERSE : PRINT "SELECT FIRING UNIT": NORMAL : HTAB 8: FLASH : PRINT "'N'";: NORMAL : PRINT " TO END YOUR TURN";: GOSUB 13: FOR C = E TO F
547 ON C >F GOTO 544: IF C 136 AND (X%(C) >1000 OR Y%(C) >1000) THEN C = C +1: GOTO 547
556 IF X = 136 AND (X%(C) >1000 OR Y%(C) >1000) THEN C = C -1: GOTO 547
562 ON C >F GOTO 544: XDRAW 28 AT X%(C),Y%(C): FOR J = 1 TO 50: NEXT J: XDRAW 28 AT X%(C),Y%(C):X = PEEK( -16384): ON X <127 GOTO 562: POKE -16368,0: GOSUB 9: ON (X = 136 OR X = 149 OR X = 209 OR X = 211 OR X = 206 OR X = 141 OR X = 199) GOTO 571: GOTO 562
571 IF X = 209 OR X = 211 THEN GOSUB 13:C = C -1: IF C 141 THEN X = X: NEXT : GOTO 544
586 HOME :FZ% = 1: GOSUB 442:FZ% = 0: IF FR% = 0 THEN FLASH : VTAB 22: HTAB 4: PRINT "THIS UNIT MAY NOT FIRE THIS TURN": HTAB 7: PRINT "DUE TO WEATHER CONDITIONS!": NORMAL : FOR I = 1 TO 1250: NEXT I: GOTO 544
589 HOME : GOSUB 13: HTAB 9: VTAB 21: INVERSE : PRINT "TARGET ";: NORMAL : PRINT " DESIGNATION": VTAB 22: HTAB 8: PRINT "ARROW KEYS TO SELECT TARGET": HTAB 8: PRINT "'F' TO FIRE WEAPON": HTAB 8: PRINT "'N' TO FIRE ANOTHER WEAPON";
592 I% = 0:X = 0
595 FOR I = K TO L
598 ON I >L GOTO 640: IF I 1000 OR Y%(I) >1000) THEN I = I +1: IF I% < >1 THEN 598
607 ON (I% = 1 AND X = 149 AND I >L) GOTO 595: IF X = 136 AND (X%(I) >1000 OR Y%(I) >1000) THEN I = I -1: GOTO 598
613 ON I >L GOTO 595: IF ABS(X%(C) -X%(I)) < = FX% AND ABS(Y%(C) -Y%(I)) < = FY% THEN I% = 1: XDRAW 30 AT X%(I),Y%(I): FOR J = 1 TO 50: NEXT J: XDRAW 30 AT X%(I),Y%(I):X = PEEK( -16384): POKE -16368,0: IF X <127 THEN 613
616 GOSUB 9: ON (X = 209 OR X = 211 OR X = 198 OR X = 206 OR X = 136 OR X = 149) GOTO 625: IF X > = 127 THEN 613
619 IF X > = 127 THEN 613
625 IF X = 206 THEN HOME : GOTO 544
628 IF X = 136 THEN I = I -2: IF (I = .5 GOTO 1000: ON (P8 >1000 AND (P7 > = P8 -1000 OR P6 > = P8 -1000)) OR (P8 <1000 AND P7 = 1000 OR P6 = 1000) GOTO 1000: IF (P0 = 0 AND P5 <6 AND TN = 1) THEN PRINT "": PRINT "BLOAD W";P5: GOTO 682
676 ON P0 = 0 GOTO 691: POKE -16303,0: CALL 2048: VTAB 5: HTAB 2: PRINT A$: VTAB 7: HTAB 11: PRINT C$: VTAB 10: HTAB 11: PRINT P6: VTAB 13: HTAB 2: PRINT B$: VTAB 15: HTAB 11: PRINT D$: VTAB 18: HTAB 11: PRINT P7: IF P5 <6 AND TN = 1 AND P7 <1000 AND P6 <1000 THEN PRINT "BLOAD W";P5
677 WAIT -16384,128
682 POKE -16368,0: IF P5 <6 AND TN = 1 THEN CALL 2048: POKE -16303,0: VTAB 5: HTAB 5: PRINT CHR$(17): PRINT CHR$(4);"BLOAD P": PRINT CHR$(4);"BLOAD T"
685 IF P5 <6 AND TN = 1 THEN WAIT -16384,128
688 POKE -16368,0: POKE -16304,0: ROT= 0:P0 = 0: HOME : GOTO 691
691 FOR Q = 1 TO 6:T%(Q) = T%(Q) -1: IF T%(Q) = 0 THEN A%(Q +38) = 20000:B%(Q +38) = 20000: POKE 39534 +Q,0: POKE 39578 +Q,0: GOSUB 304
700 IF T%(Q) <0 THEN T%(Q) = 0
703 OF% = 0: NEXT Q: GOTO 394
800 HOME : VTAB 22: HTAB 2: PRINT "DO YOU WANT TO SAVE THE GAME? (Y/N)"
801 WAIT -16384,128:X = PEEK( -16384): POKE -16368,0: ON X = 206 GOTO 397: ON X < >217 GOTO 800
807 PRINT CHR$(17): PRINT CHR$(4);"OPEN OG": PRINT CHR$(4);"WRITE OG": PRINT A$: PRINT B$: PRINT C$: PRINT D$: PRINT TN: PRINT P5: PRINT P6: PRINT P7: PRINT P8: PRINT P9: FOR Q = 1 TO 44: PRINT A%(Q): PRINT B%(Q): NEXT Q: FOR Q = 1 TO 24: PRINT X%(Q): PRINT Y%(Q): NEXT Q
808 FOR Q = 1 TO 6: PRINT T%(Q): NEXT Q
810 PRINT CHR$(4);"CLOSE OG": GOTO 397
900 PRINT CHR$(17): PRINT CHR$(4);"OPEN OG": PRINT CHR$(4);"READ OG": INPUT A$,B$,C$,D$,TN,P5,P6,P7,P8,P9: FOR Q = 1 TO 44: INPUT A%(Q),B%(Q): NEXT Q: FOR Q = 1 TO 24: INPUT X%(Q),Y%(Q): NEXT Q: FOR Q = 1 TO 6: INPUT T%(Q): NEXT Q
910 PRINT CHR$(4);"CLOSE OG"
915 SCALE= 1: ROT= 1: HCOLOR= 3: POKE -16301,0: HPLOT 1,1: CALL 62454: POKE 230,64: HPLOT 1,1: CALL 62454: POKE 230,32:TN = ABS(TN -1):P9 = P9 -0.5: IF P9 <1 THEN P9 = 0.5
920 BO% = 0: POKE 230,64:H% = 0: GOSUB 307: FOR I = 1 TO 44:X%(0) = A%(I):Y%(0) = B%(I): IF A%(I) >255 THEN X%(0) = A%(I) -1
930 IF I >38 AND X%(0) >256 THEN X%(0) = 0:Y%(0) = 0
940 POKE 39496 +I,X%(0): POKE 39540 +I,Y%(0): NEXT : GOTO 394
1000 POKE -16303,0: CALL 2048: VTAB 2: HTAB 13: PRINT " FINAL SCORES ": VTAB 5: HTAB 2: PRINT A$: VTAB 7: HTAB 11: PRINT C$: VTAB 10: HTAB 11: PRINT P6: VTAB 13: HTAB 2: PRINT B$: VTAB 15: HTAB 11: PRINT D$: VTAB 18: HTAB 11: PRINT P7: WAIT -16384,128: POKE -16368,0: NORMAL : HOME
1010 PRINT "": PRINT "OPENRN": PRINT "READRN": INPUT Y: PRINT "": PRINT "CLOSERN": PRINT "OPENRN": PRINT "WRITERN": PRINT Y: PRINT A$: PRINT B$: PRINT C$: PRINT D$: PRINT P6: PRINT P7: PRINT 0: PRINT "CLOSERN": PRINT " RUN C"
5000 IF PEEK(222) = 255 OR PEEK(222) = 254 THEN CC = CC +1: RESUME
5010 TEXT : HOME : VTAB 12: PRINT "ERROR #"; PEEK(222);" IN LINE #";( PEEK(218) + PEEK(219) *256): PRINT "CODE ";CC: FOR I = 49151 TO 40000 STEP -1: POKE I,0: NEXT I: FOR I = 300 TO 39151: POKE I,0: NEXT I