DECLARE SUB BULGE2 ()
DECLARE SUB MAPP ()
DECLARE SUB TAPS ()
DECLARE SUB EXPLOSIONS ()
DECLARE SUB QUEST1ON ()
DECLARE SUB QUEST4ON ()
DECLARE SUB QUEST7ON ()
DECLARE SUB QUEST8ON ()
DECLARE SUB CREDITS ()

' PROGRAM NAME: OHIO SMITH PROJECT
' WRITTEN BY: JUSTIN UPCHURCH  
' PERIOD: 3                    
' DATE BEGAN: 11/16/98         
' DATE ENDED: 01/25/99         
                                       

CLS
SCREEN 7
COLOR 1, 0
PI = 4 * ATN(1)
GOSUB TITLE                                    'TITLE PAGE
GOSUB SCREEN1                                  'SCREEN 1
GOSUB INTRODUCTION
GOSUB PLAAY                                    'SCREEN 2
2 GOSUB GAME                                   'SCREEN 3
CALL QUEST1ON
 GOSUB MAP
   LOCATE (21), (25), 0, 30
   PRINT "JULY 9-10, 1943"
 GOSUB FIRSTADV
GOSUB QUEST2ON
 GOSUB MAP
   LOCATE (21), (25), 0, 30
   PRINT "JAN.- MAY, 1944"
 GOSUB SECONDADV
GOSUB QUEST3ON                               'END OF ITALY CAMPAIGN
 CALL MAPP
   LOCATE (21), (25), 0, 30
   PRINT "JUNE 4, 1944"
 GOSUB THIRDADV
 SLEEP 3
CALL QUEST4ON                                'BEGIN EUROPEAN CAMPAIGN
GOSUB QUEST5ON
GOSUB QUEST6ON
 GOSUB UPDMAP
 GOSUB NORMANDY
CALL QUEST7ON
CALL QUEST8ON
 GOSUB NORMANDY2
  LOCATE (21), (25), 0, 30
  PRINT "DEC 16-JAN. 1945"
   SLEEP 2
GOSUB BULGE
   SLEEP 2
GOSUB QUEST9ON
 GOSUB NORMANDY2
 CALL BULGE2
  SLEEP 3
GOSUB QUEST10ON
 GOSUB NORMANDY2
 GOSUB DRESDEN
GOSUB VICTORY
9999 INPUT "  WOULD YOU LIKE TO VIEW CREDITS (Y/N)"; CHOICE$
IF CHOICE$ = "Y" THEN CALL CREDITS ELSE END
END

TITLE:
C = 1
'           P
LINE (5, 5)-(25, 5), C
LINE (30, 10)-(25, 5), C
LINE (30, 10)-(30, 20), C
LINE (30, 20)-(25, 25), C
LINE (25, 25)-(15, 25), C
LINE (15, 25)-(15, 50), C
LINE (15, 50)-(5, 50), C
LINE (5, 50)-(5, 5), C
LINE (15, 10)-(20, 20), C, B
LINE (20, 20)-(15, 20), C
'     R
LINE (35, 5)-(60, 5), C
LINE (60, 5)-(65, 10), C
LINE (65, 10)-(65, 20), C
LINE (65, 20)-(60, 25), C
LINE (60, 25)-(65, 30), C
LINE (65, 30)-(65, 50), C
LINE (65, 50)-(55, 50), C
LINE (55, 50)-(55, 35), C
LINE (55, 35)-(50, 30), C
LINE (50, 30)-(45, 30), C
LINE (45, 30)-(45, 50), C
LINE (45, 50)-(35, 50), C
LINE (35, 50)-(35, 5), C
LINE (45, 10)-(55, 20), C, B
'       O
LINE (70, 15)-(80, 5), C
LINE (80, 5)-(95, 5), C
LINE (95, 5)-(105, 15), C
LINE (105, 15)-(105, 40), C
LINE (105, 40)-(95, 50), C
LINE (95, 50)-(80, 50), C
LINE (80, 50)-(70, 40), C
LINE (70, 40)-(70, 15), C
LINE (80, 15)-(95, 40), C, B
'       G
LINE (110, 15)-(120, 5), C
LINE (120, 5)-(140, 5), C
LINE (140, 5)-(140, 15), C
LINE (140, 15)-(120, 15), C
LINE (120, 15)-(120, 35), C
LINE (120, 35)-(125, 40), C
LINE (125, 40)-(130, 40), C
LINE (130, 40)-(135, 35), C
LINE (130, 25)-(145, 35), C, BF
LINE (145, 35)-(135, 50), C
LINE (135, 50)-(120, 50), C
LINE (120, 50)-(110, 40), C
LINE (110, 40)-(110, 15), C
'        R
LINE (150, 5)-(160, 50), C, BF
LINE (160, 5)-(175, 10), C, BF
LINE (160, 10)-(170, 20), C, B
LINE (175, 5)-(180, 10), C
LINE (180, 10)-(180, 20), C
LINE (180, 20)-(175, 25), C
LINE (175, 25)-(180, 30), C
LINE (170, 30)-(180, 50), C, BF
LINE (170, 35)-(165, 30), C
LINE (165, 30)-(160, 30), C
'        A
LINE (185, 15)-(195, 50), C, BF
LINE (185, 15)-(195, 5), C
LINE (195, 5)-(205, 5), C
LINE (205, 5)-(215, 15), C
LINE (205, 15)-(215, 50), C, BF
LINE (195, 35)-(205, 35), C
LINE (195, 15)-(200, 10), C
LINE (200, 10)-(205, 15), C
LINE (195, 25)-(205, 25), C
'            M
LINE (220, 5)-(230, 50), C, BF
LINE (250, 5)-(260, 50), C, BF
LINE (230, 5)-(240, 15), C
LINE (240, 15)-(250, 5), C
LINE (230, 20)-(240, 30), C
LINE (240, 30)-(250, 20), C
'    O
LINE (5, 55)-(35, 95), C, B
LINE (15, 65)-(25, 85), C, B
'    H
LINE (45, 55)-(55, 95), C, BF
LINE (65, 55)-(75, 95), C, BF
LINE (50, 70)-(65, 80), C, BF
'    I
LINE (80, 55)-(110, 65), C, BF
LINE (90, 60)-(100, 90), C, BF
LINE (80, 85)-(110, 95), C, BF
'    O
LINE (120, 55)-(150, 95), C, B
LINE (130, 65)-(140, 85), C, B
'       H
LINE (5, 105)-(15, 145), C, BF
LINE (25, 105)-(35, 145), C, BF
LINE (15, 120)-(25, 130), C, BF
'       I
LINE (40, 105)-(70, 115), C, BF
LINE (50, 115)-(60, 140), C, BF
LINE (40, 135)-(70, 145), C, BF
'       S
LINE (85, 105)-(100, 105), C
LINE (100, 105)-(100, 115), C
LINE (100, 115)-(90, 115), C
LINE (90, 115)-(105, 130), C
LINE (105, 130)-(90, 145), C
LINE (90, 145)-(75, 145), C
LINE (75, 145)-(75, 135), C
LINE (75, 135)-(85, 135), C
LINE (85, 135)-(90, 130), C
LINE (90, 130)-(75, 115), C
LINE (75, 115)-(85, 105), C
'       T
LINE (105, 105)-(135, 115), C, BF
LINE (115, 115)-(125, 145), C, BF
'       O
LINE (140, 105)-(170, 145), C, B
LINE (150, 115)-(160, 135), C, B
'       R
LINE (175, 105)-(200, 130), C, B
LINE (200, 105)-(205, 120), C, BF
LINE (205, 120)-(200, 125), C
LINE (200, 125)-(205, 130), C
LINE (195, 130)-(205, 145), C, BF
LINE (175, 130)-(185, 145), C, BF
LINE (185, 110)-(195, 120), C, B
'       Y
LINE (210, 105)-(220, 105), C
LINE (220, 105)-(230, 115), C
LINE (230, 115)-(240, 105), C
LINE (240, 105)-(250, 105), C
LINE (250, 105)-(235, 120), C
LINE (225, 120)-(210, 105), C
LINE (225, 120)-(235, 145), C, BF
Z = 0
X = 0
'         STARFLEET DELTA
CIRCLE (290, 65), 25, 6, 0, PI * 2, .7
PAINT (290, 65), 6, 6
LINE (290, 30)-(310, 95), 14
LINE (290, 30)-(265, 95), 14
LINE (265, 95)-(293, 75), 14
LINE (293, 75)-(310, 95), 14
PAINT (290, 45), 14, 14
'   PAINTS
PAINT (85, 115), C, C
PAINT (155, 110), C, C
PAINT (10, 10), C, C
PAINT (40, 10), C, C
PAINT (90, 10), C, C
PAINT (115, 25), C, C
PAINT (170, 25), C, C
PAINT (200, 7), C, C
PAINT (200, 30), C, C
PAINT (245, 20), C, C
PAINT (25, 60), C, C
PAINT (125, 60), C, C
PAINT (180, 110), C, C
PAINT (201, 121), C, C
PAINT (202, 128), C, C
PAINT (220, 110), C, C
A = 1
SLEEP 5
RETURN

LOADING:
'      L
LINE (5, 75)-(15, 130), A, BF
LINE (5, 125)-(320, 135), A, BF
'      O
LINE (40, 75)-(75, 120), A, BF
LINE (53, 85)-(63, 110), 0, BF
'      A
LINE (80, 85)-(90, 120), A, BF
LINE (80, 85)-(90, 75), A
LINE (90, 85)-(100, 95), A, B
LINE (90, 75)-(100, 75), A
LINE (100, 75)-(110, 85), A
LINE (100, 85)-(110, 120), A, BF
PAINT (86, 80), A, A
LINE (90, 105)-(100, 105), A
PAINT (95, 100), A, A
'      D
LINE (115, 75)-(125, 115), A, BF
LINE (115, 75)-(140, 85), A, BF
LINE (140, 85)-(150, 110), A, BF
LINE (115, 110)-(140, 120), A, BF
LINE (140, 75)-(150, 85), A
PAINT (143, 81), A, A
LINE (140, 120)-(150, 110), A
PAINT (143, 114), A, A
'      I
LINE (155, 75)-(185, 85), A, BF
LINE (165, 85)-(175, 110), A, BF
LINE (155, 110)-(185, 120), A, BF
'      N
LINE (190, 75)-(200, 120), A, BF
LINE (220, 75)-(230, 120), A, BF
LINE (200, 75)-(220, 105), A
LINE (200, 90)-(220, 120), A
PAINT (215, 100), A, A
'       G
LINE (235, 85)-(245, 75), A
LINE (245, 75)-(270, 85), A, BF
LINE (235, 85)-(245, 110), A, BF
PAINT (241, 81), A, A
LINE (235, 110)-(245, 120), A
LINE (245, 110)-(265, 120), A, BF
LINE (265, 120)-(275, 110), A
PAINT (241, 114), A, A
LINE (260, 110)-(265, 105), A
LINE (265, 98)-(275, 110), A, BF
PAINT (267, 114), A, A
LINE (255, 98)-(265, 105), A, BF
PAINT (263, 108), A, A
'     ...
L = 75
LINE (280, 185 - 75)-(290, 195 - 75), A, BF
LINE (295, 185 - 75)-(305, 195 - L), A, BF
LINE (310, 185 - L)-(320, 195 - L), A, BF
RETURN

FLASHY:
FOR X = 1 TO 10
  A = 5
    FOR HOLD = 1 TO 8000
    NEXT HOLD
  GOSUB LOADING
  A = 9
    FOR HOLD = 1 TO 8000
    NEXT HOLD
  GOSUB LOADING
  A = 10
    FOR HOLD = 1 TO 8000
    NEXT HOLD
  GOSUB LOADING
  A = 2
    FOR HOLD = 1 TO 8000
    NEXT HOLD
  GOSUB LOADING
NEXT X
Z = 140
X = 25
GOSUB DELTA
SLEEP 2
RETURN

SCREEN1:
CLS
GOSUB FLASHY
GOSUB INTRODUCTION
RETURN

DELTA:
'         STARFLEET DELTA
A = 290
B = 65
C = 75
D = 95
E = 30
F = 310
G = 265
H = 295
I = 293
J = 45
K = 95
COL = 14
CIRCLE (A - Z, B - X), 25, 6, 0, PI * 2, .7
PAINT (A - Z, B - X), 6, 6
LINE (A - Z, E - X)-(F - Z, D - X), COL
LINE (A - Z, E - X)-(G - Z, D - X), COL
LINE (G - Z, K - X)-(I - Z, C - X), COL
LINE (I - Z, C - X)-(F - Z, D - X), COL
PAINT (A - Z, B - X + 1), COL, COL
RETURN

INTRODUCTION:
CLS
COLOR 8, 0
PRINT
PRINT "WELCOME TO DR. OHIO SMITH'S ANCIENT "
PRINT "HISTORY FINAL: THE 19th & 20th CENTURIES"
PRINT
PRINT "THIS SIMULATION WILL PLACE YOU AS THE"
PRINT "COMMANDER OF A PORTION OF THE ALLIED    ARMY IN EUROPE DURING WORLD WAR II. IN"
PRINT "ORDER TO ADVANCE YOUR TROOPS YOU MUST"
PRINT "CORRECTLY ANSWER QUESTIONS ABOUT WWII.  AN INCORRECT ANSWER AT A CRITICAL MOMENTWILL RESULT IN YOUR FAILURE. THE LOSS OF"
PRINT "DECISIVE BATTLES WILL RESULT IN A       FAILURE."
PRINT
PRINT "          GOOD LUCK, CADET!"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "CAPS LOCK MUST BE ON.  FAILURE TO COMPLYWILL RESULT IN IMMEDIATE FAILURE."
SLEEP 17
RETURN

PLAAY:
1 CLS
COLOR 1, 0
PRINT
PRINT
PRINT " DO YOU WISH TO TAKE THE EXAM.  YES OR    NO? (NO WILL RESULT IN YOUR FAILURE     AND THE REPEATING  OF THIS CLASS.)"
INPUT ANS$
IF ANS$ = "NO" THEN GOSUB FAILURE ELSE GOTO 2
RETURN

FAILURE:
CLS
LOCATE (10), (10), 0, 0, 31
PRINT "DO YOU REALLY WISH TO"
LOCATE (11), (10), 0, 0, 31
PRINT "EMBRACE COWARDICE";
INPUT COWARD$
IF COWARD$ = "NO" THEN GOSUB PLAAY ELSE GOSUB FINALMESSAGE
RETURN

FAIL:
CLS
COLOR 1, 0
Z = 260
X = -15
GOSUB DELTA
Z = 10
X = -15
GOSUB DELTA
SLEEP 1
LINE (60, 50)-(100, 60), 4, BF
LINE (60, 50)-(70, 110), 4, BF
LINE (70, 70)-(90, 80), 4, BF
SLEEP 1
LINE (110, 60)-(120, 110), 4, BF
LINE (110, 60)-(120, 50), 4
LINE (120, 60)-(140, 60), 4
LINE (140, 50)-(150, 60), 4
LINE (140, 60)-(150, 110), 4, BF
LINE (120, 90)-(140, 90), 4
LINE (120, 80)-(140, 90), 4, BF
LINE (120, 50)-(140, 50), 4
PAINT (135, 55), 4, 4
SLEEP 1
LINE (160, 50)-(200, 60), 4, BF
LINE (175, 60)-(185, 100), 4, BF
LINE (160, 100)-(200, 110), 4, BF
SLEEP 1
LINE (210, 50)-(220, 110), 4, BF
LINE (220, 100)-(250, 110), 4, BF
RETURN 9999

GAME:
CLS

FOR FL = 1 TO 7
 COLOR 4, 0
 LOCATE (1), (1), 0, 30
  PRINT "INCOMING COMMUNIQUE FROM HQ..."
      FOR HOLD = 1 TO 14999
      NEXT HOLD
 COLOR 0, 0
 LOCATE (1), (1), 0, 30
  PRINT "INCOMING COMMUNIQUE FROM HQ..."
      FOR HOLD = 1 TO 14999
      NEXT HOLD
 COLOR 4, 0
 LOCATE (1), (1), 0, 30
  PRINT "INCOMING COMMUNIQUE FROM HQ..."
      FOR HOLD = 1 TO 14999
      NEXT HOLD
NEXT FL

SLEEP 2
COLOR 1, 0
LOCATE (3), (3), 0, 30
PRINT "THE FOLLOWING, CADET, IS A BATTLE MAP OFEUROPE DURING 1944.  ALLIED CONTROLLED  COUNTRIES ARE BLUE OR SHADES THEREOF.   AXIS ARE RED.  STUDY THIS MAP WELL SO   THAT YOU KNOW THE SITUATION AND CAN MAP YOUR PROGRESS.  YOUR ULTIMATE GOAL:"
LOCATE (9), (5), 0, 30
PRINT "CONQUER GERMANY, HOPEFULLY BEFORE THE   RUSSIANS.  YOU HAVE YOUR ORDERS, SO     PROCEED!!"
SLEEP 15
COLOR 4, 0
LOCATE (18), (5), 0, 30
PRINT "TRANSMISSION COMPLETE."
SLEEP 1.5
GOSUB MAP
RETURN

MAP:
CLS
COLOR 1, 8
V = 1
Q = 15
'       IRELAND
LINE (55, 20)-(65, 25), V, BF
LINE (50, 25)-(60, 30), V, BF
LINE (45, 30)-(55, 35), V, BF
LINE (50, 25)-(55, 20), Q
LINE (55, 35)-(60, 30), Q
LINE (55, 20)-(65, 20), Q
LINE (65, 20)-(65, 25), Q
LINE (65, 25)-(60, 25), Q
LINE (60, 25)-(60, 30), Q
LINE (50, 25)-(50, 29), Q
LINE (50, 29)-(45, 29), Q
LINE (45, 29)-(45, 35), Q
LINE (45, 35)-(55, 35), Q

PAINT (54, 24), V, Q
PAINT (56, 31), V, Q
'       UK
LINE (70, 10)-(75, 5), Q
LINE (75, 5)-(85, 5), Q
LINE (75, 5)-(70, 10), Q
LINE (60, 45)-(70, 45), Q
LINE (60, 45)-(65, 50), Q
LINE (70, 10)-(70, 20), Q
LINE (70, 20)-(75, 20), Q
LINE (85, 5)-(85, 10), Q
LINE (85, 10)-(90, 10), Q
LINE (90, 10)-(90, 15), Q
LINE (90, 15)-(85, 15), Q
LINE (85, 15)-(85, 35), Q
LINE (85, 35)-(90, 35), Q
LINE (90, 35)-(90, 45), Q
LINE (90, 45)-(85, 45), Q
LINE (85, 45)-(85, 50), Q
LINE (85, 50)-(65, 50), Q
LINE (70, 45)-(70, 40), Q
LINE (70, 40)-(65, 40), Q
LINE (65, 40)-(65, 35), Q
LINE (65, 35)-(70, 35), Q
LINE (70, 35)-(70, 30), Q
LINE (70, 30)-(75, 30), Q
LINE (75, 30)-(75, 20), Q
PAINT (72, 15), V, Q
'           SPAIN & PORT.
O = 15
P = 2
LINE (15, 100)-(25, 90), O
LINE (25, 90)-(45, 90), O
LINE (45, 90)-(45, 95), O
LINE (45, 95)-(55, 105), O
LINE (55, 105)-(60, 105), O
LINE (60, 105)-(65, 110), O
LINE (65, 110)-(65, 115), O
LINE (65, 120)-(60, 120), O
LINE (60, 120)-(60, 130), O
LINE (60, 130)-(45, 130), O
LINE (45, 130)-(40, 135), O
LINE (40, 135)-(35, 130), O
LINE (35, 130)-(20, 130), O
LINE (20, 120)-(20, 130), O
LINE (20, 120)-(25, 120), O
LINE (25, 120)-(25, 110), O
LINE (25, 110)-(15, 110), O
LINE (15, 110)-(15, 100), O
LINE (60, 105)-(65, 110), O
LINE (65, 110)-(65, 120), O
   LINE (15, 110)-(15, 115), O
   LINE (15, 115)-(10, 115), O
   LINE (10, 115)-(10, 120), O
   LINE (10, 120)-(20, 125), O
PAINT (35, 125), P, O
   PAINT (20, 115), P, O
'    FRANCE
LINE (65, 120)-(65, 110), O
LINE (65, 110)-(60, 105), O
LINE (60, 105)-(65, 105), O
LINE (65, 105)-(65, 95), O
LINE (65, 95)-(60, 95), O
LINE (60, 95)-(60, 80), O
LINE (85, 65)-(65, 65), O
LINE (65, 65)-(65, 60), O
LINE (65, 60)-(60, 60), O
LINE (60, 60)-(60, 70), O
LINE (60, 70)-(65, 75), O
LINE (65, 75)-(60, 80), O
LINE (85, 65)-(85, 60), O
LINE (85, 60)-(90, 60), O
LINE (65, 120)-(80, 120), O
LINE (80, 120)-(85, 115), O
LINE (85, 115)-(85, 110), O
LINE (85, 110)-(90, 110), O
LINE (90, 110)-(95, 105), O
LINE (95, 105)-(90, 100), O
LINE (90, 100)-(90, 95), O
LINE (90, 95)-(105, 95), O
LINE (100, 70)-(100, 80), O
LINE (90, 50)-(100, 60), O
LINE (100, 80)-(105, 85), O
LINE (90, 50)-(90, 60), O
LINE (80, 120)-(85, 115), O
Q = 4
'     LOW COUNTRIES
LINE (90, 50)-(100, 60), O
LINE (100, 60)-(100, 70), O
LINE (100, 70)-(105, 70), O
LINE (105, 70)-(105, 60), O
LINE (105, 60)-(110, 55), O
LINE (110, 55)-(115, 55), O
LINE (115, 55)-(115, 45), O
LINE (115, 45)-(110, 45), O
LINE (110, 45)-(100, 50), O
LINE (100, 50)-(90, 50), O
PAINT (100, 55), Q, O
'      GERMANY
LINE (115, 45)-(115, 55), O
LINE (115, 45)-(125, 45), O
LINE (105, 85)-(105, 95), O
LINE (140, 45)-(150, 45), O
LINE (125, 45)-(130, 30), O
LINE (130, 30)-(135, 30), O
LINE (135, 30)-(140, 45), O
LINE (150, 45)-(165, 35), O
LINE (165, 35)-(170, 35), O
LINE (170, 35)-(170, 55), O
LINE (170, 55)-(175, 55), O
LINE (175, 80)-(190, 80), O
LINE (175, 80)-(165, 90), O
LINE (110, 105)-(115, 105), O
LINE (175, 55)-(210, 90), O
LINE (195, 75)-(190, 80), O
LINE (165, 90)-(165, 110), O
LINE (165, 110)-(170, 115), O
LINE (170, 115)-(165, 120), O
LINE (165, 120)-(145, 120), O
LINE (145, 120)-(125, 95), O
LINE (125, 95)-(115, 105), O
LINE (110, 105)-(110, 100), O
LINE (110, 100)-(105, 95), O
PAINT (155, 100), Q, O
'    SWISS
LINE (90, 100)-(95, 105), O
LINE (95, 105)-(110, 105), O
PAINT (100, 100), P, O
PAINT (85, 75), Q, O
'       ITALY
LINE (75, 120)-(75, 125), O
LINE (75, 125)-(85, 125), O
LINE (85, 125)-(110, 155), O
LINE (110, 155)-(110, 165), O
LINE (110, 165)-(100, 175), O
LINE (110, 165)-(100, 175), O
LINE (100, 175)-(120, 170), O
LINE (115, 165)-(120, 170), O
LINE (115, 165)-(120, 160), O
LINE (120, 160)-(125, 165), O
LINE (125, 165)-(130, 160), O
LINE (130, 160)-(110, 130), O
LINE (110, 130)-(105, 120), O
LINE (105, 120)-(110, 110), O
LINE (110, 110)-(115, 110), O
LINE (115, 110)-(115, 105), O
PAINT (100, 120), 4, O
'   ISLANDS
LINE (75, 135)-(80, 145), O, B
LINE (75, 150)-(80, 160), O, B
LINE (75, 165)-(95, 185), O
LINE (95, 185)-(95, 175), O
LINE (95, 175)-(75, 165), O
PAINT (85, 173), Q, O
PAINT (77, 140), Q, O
PAINT (77, 155), Q, O
'   YUGOSLAVIA
LINE (115, 110)-(120, 110), O
LINE (120, 110)-(145, 145), O
LINE (145, 145)-(155, 145), O
LINE (155, 145)-(155, 130), O
LINE (155, 130)-(165, 130), O
LINE (165, 130)-(165, 115), O
PAINT (140, 120), Q, O
'   GREECE
LINE (145, 145)-(145, 150), O
LINE (145, 150)-(150, 150), O
LINE (150, 150)-(150, 160), O
LINE (150, 160)-(165, 185), O
LINE (165, 185)-(170, 185), O
LINE (170, 185)-(170, 155), O
LINE (170, 155)-(180, 145), O
LINE (180, 145)-(185, 140), O
LINE (185, 140)-(185, 130), O
LINE (185, 130)-(155, 130), O
PAINT (165, 150), Q, O
'   BULGARIA
LINE (185, 140)-(195, 135), O
LINE (195, 135)-(205, 135), O
LINE (205, 135)-(230, 150), O
LINE (230, 150)-(245, 150), O
LINE (245, 150)-(245, 145), O
LINE (245, 145)-(240, 145), O
LINE (240, 145)-(240, 130), O
LINE (240, 130)-(215, 110), O
LINE (215, 110)-(190, 110), O
LINE (190, 110)-(190, 120), O
LINE (190, 120)-(165, 120), O
LINE (165, 120)-(165, 130), O
PAINT (200, 125), P, O
'  CZECH
LINE (240, 130)-(260, 110), O
LINE (250, 120)-(240, 120), O
LINE (240, 120)-(240, 105), O
LINE (240, 105)-(230, 105), O
LINE (230, 105)-(230, 95), O
LINE (230, 95)-(220, 95), O
LINE (220, 95)-(220, 90), O
LINE (220, 90)-(220, 95), O
LINE (220, 90)-(210, 90), O
LINE (200, 80)-(195, 85), O
LINE (195, 85)-(185, 85), O
LINE (185, 85)-(185, 95), O
LINE (185, 95)-(165, 115), O
PAINT (200, 100), Q, O
'    AUSTRIA
PAINT (175, 95), Q, O
'    RUSSIA
LINE (260, 110)-(275, 110), O
LINE (275, 110)-(290, 120), O
LINE (290, 120)-(295, 110), O
LINE (295, 110)-(310, 110), O
LINE (310, 110)-(325, 120), O
LINE (170, 35)-(180, 45), O
LINE (180, 45)-(185, 45), O
LINE (185, 45)-(190, 40), O
LINE (190, 40)-(205, 40), O
LINE (205, 40)-(215, 30), O
LINE (215, 30)-(220, 30), O
LINE (220, 30)-(235, 15), O
LINE (235, 15)-(240, 15), O
LINE (240, 15)-(240, 25), O
LINE (240, 25)-(250, 25), O
LINE (250, 25)-(250, 20), O
LINE (250, 20)-(245, 10), O
LINE (245, 10)-(255, 0), O
PAINT (250, 100), V, O
'     SWEDEN & FINLAND
LINE (125, 0)-(115, 10), O
LINE (115, 10)-(115, 15), O
LINE (115, 15)-(125, 25), O
LINE (125, 25)-(130, 15), O
LINE (130, 15)-(135, 15), O
LINE (135, 15)-(135, 5), O
LINE (135, 5)-(140, 5), O
LINE (140, 5)-(140, 0), O
'
LINE (150, 0)-(150, 25), O
LINE (150, 25)-(145, 30), O
LINE (145, 30)-(140, 30), O
LINE (140, 30)-(135, 15), O
PAINT (130, 5), P, O
PAINT (145, 5), Q, O
LOCATE (21), (25), 0, 30
PRINT "JULY 7, 1943"
SLEEP 5
RETURN

QUEST2ON:
CLS
COLOR 2, 1
PRINT
PRINT "THE SICILY INVASION WAS A HUGE SUCCESS! MOP-UP OPERATIONS HAVE ALREADY BEGUN.   GOOD SHOW GENERAL. YOUR NEXT ASSIGNMENT,AS YOU MIGHT HAVE GUESSED, IS TO INVADE"
PRINT "ITALY HERSELF. YOU WILL BE LEADING THE  NORTHERN FORCE AND LANDING AT ONE OF    ITALY'S MOST IMPORTANT PORTS. WHAT IS   THE NAME OF THIS PORT/CITY?"
PRINT
PRINT
PRINT "         A. ANZIO/CASSINO"
PRINT "         B. GENOA/VENICE"
PRINT "         C. ROME/TIBER"
PRINT "         D. NAPLES/NAVARONE"
INPUT PORT$
IF PORT$ <> "A" THEN GOTO 21 ELSE RETURN
21 CLS
PRINT
PRINT "*#!@ YOU GENERAL, YOUR STUPIDITY HAS LEDTO OUR DEFEAT. YOU'LL BE COURTMARTIALED"
PRINT "FOR YOUR MISTAKE. THE PORT/CITY WAS     ANZIO/CASSINO. MAYBE YOU WILL BE ABLE TO"
PRINT "ESCAPE THE SUPREME COMMANDER'S WRATH.   GOOD BYE!"
CALL TAPS
SLEEP 7
GOSUB FINALMESSAGE
RETURN

QUEST3ON:
CLS
COLOR 2, 1
PRINT
PRINT "THE PRESENCE OF OUR TROOPS ONSHORE  HAS CAUSED THE ITALIAN SURRENDER. THE GERMANARMY HAS OCCUPIED ROME, BUT MUSSOLINI"
PRINT "HAS BEEN FOUND AND EXECUTED. THE ROAD TOROME WILL BE LONG AND BLOODY. THOUGH THE"
PRINT "ITALIANS HAD SURRENDERED ON _________,  ROME WASN'T CAPTURED UNTIL"
PRINT "         "
PRINT "         A. FEBRUARY 3; FEBRUARY 1"
PRINT "         B. JANUARY 3; NOVEMBER 30"
PRINT "         C. SEPTEMBER 8; JUNE 4"
PRINT "         D. MAY 26; JUNE 1"
INPUT SURR$
IF SURR$ <> "C" THEN GOTO 31 ELSE GOTO 35
31 CLS
PRINT
PRINT
PRINT "YOU TRY MY PATIENCE, GENERAL. THE DATES WERE SEPTEMBER 8 AND JUNE 4. LUCKILY, I"
PRINT "WILL NOT HAVE TO DEAL WITH YOU AGAIN.   YOU ARE GOING TO ENGLAND. GOOD BYE AND  GOOD RIDDENS!"
SLEEP 3
GOSUB VICITALY
RETURN
35 CLS
PRINT
PRINT "YOUR WORK HERE IS FINISHED GENERAL. IKE HAS REQUESTED YOU IN ENGLAND. I WILL"
PRINT "SORELY MISS WORKING WITH YOU. GOOD BYE  AND GODSPEED!"
SLEEP 5
GOSUB VICITALY
RETURN

QUEST5ON:
CLS
COLOR 2, 0
PRINT
PRINT "WELCOME TO THE FRONT, GENERAL.  YOUR    ASSIGNMENT HERE IS NO EASY ONE. YOU ARE TO LEAD THE RETURN TO EUROPE, CODENAMED OPERTION: OVERLORD. LOSS OF THIS BATTLE WILL LOSE THE WAR FOR US, BUT VICTORY   COULD SPELL DISASTER FOR HITLER. TO LAND"
PRINT "YOU MUST KNOW EXACTLY WHAT SECTION OF   FRANCE WE WILL BE INVADING."
PRINT
PRINT "WHAT ARE THE NAMES OF THE TWO AMERICAN  LANDING BEACHES?"
PRINT
PRINT "        A. NEBRASKA & WYOMING"
PRINT "        B. BRAVO & CHARLIE"
PRINT "        C. UTAH & OMAHA"
PRINT "        D. FOXTROT & WHISKEY"
INPUT BEACH$
IF BEACH$ <> "C" THEN 30 ELSE RETURN
30 CLS
PRINT
PRINT "YOU LAND YOUR FORCES IN NORMANDY, ONLY  TO FIND YOURSELF IN THE WRONG SECTOR."
PRINT "WITHOUT AIR OR SEA SUPPORT, YOU ORDER A HASTY RETREAT. SOME OF YOUR MEN ARE     SAVED, BUT THE BEACH AND THE TIDE RUN "
PRINT "RED WITH THEIR YOUNG BLOOD. WITHOUT YOURSUPPORT, THE LANDINGS ARE MUCH MORE"
PRINT "DIFFICULT, RESULTING IN ANOTHER 3OO     DEAD. YOUR MISTAKE ALSO DELAYED THE WAR "
PRINT "3 MONTHS, COSTING US ANOTHER 800,000    MILITARY CASULATIES ALONE. YOU RECIEVE ADISHONERABLE DISCHARGE AND SPEND THE"
PRINT "REST OF YOUR LIFE ALONE AND GUILTY      FOR THE EXTRA DEATH YOU CAUSED, AND     EVENTUALLY COMMIT SUICIDE TO END THE    NIGHTMARES."
SLEEP 14
CALL TAPS
SLEEP 6
GOSUB FINALMESSAGE
RETURN

QUEST6ON:
CLS
COLOR 2, 0
PRINT
PRINT
PRINT "NOW GENERAL, SINCE YOU KNOW WHERE WE    WILL BE LANDING, YOU NEED TO KNOW WHEN."
PRINT "WE'LL BE LANDING IN THE SUMMER, WHEN    TIDES ARE LOWER AND STORMS ARE WEAKER."
PRINT "THE SOONER WE CAN GET THIS THING MOVING THE BETTER."
PRINT
PRINT "WHEN ARE THE D-DAY LANDINGS GOING TO BE HELD?"
PRINT
PRINT "         A. JUNE 6, 1944"
PRINT "         B. JUNE 1, 1944"
PRINT "         C. JULY 4, 1944"
PRINT "         D. AUGUST 1, 1945"
PRINT
INPUT DATEOF$
IF DATEOF$ <> "B" AND DATEOF$ <> "A" AND DATEOF$ <> "C" AND DATEOF$ <> "D" THEN 65
IF DATEOF$ = "D" THEN 65 ELSE IF DATEOF$ = "C" THEN 65 ELSE 61
61 IF DATEOF$ = "B" THEN 68 ELSE 62
62 IF DATEOF$ = "A" THEN RETURN
65 CLS
PRINT
PRINT "THINKING THE INVASION DATE WAS AFTER    JUNE 6, YOUR FORCES ARE ILL-PREPARED FOR"
PRINT "STORMING ASHORE EARLIER THEN EXPECTED.  BECAUSE OF THIS THEY FALL LIKE WHEAT"
PRINT "BEFORE THE SCYTHE. YOUR DEFEAT CAUSES   THE FAILURE OF THE INVASION, A LOSS"
PRINT "FROM WHICH THE ALLIES CAN NEVER RECOVER.CONGRATS GENERAL, YOU JUST LOST THE WAR."
SLEEP 10
CALL TAPS
GOSUB LOSS
68 PRINT
CLS
PRINT
PRINT "THINKING THE INVASION WAS SCHEDULED     EARLIER THAN IT WAS, YOUR TROOPS ARE"
PRINT "WEARY FROM THEIR CONSTANT STATE OF      READINESS, AND SO SUSTAIN HEAVY LOSSES."
PRINT "YOUR MISTAKE JEOPARDIZED THE INVASION.  YOU'RE GONNA HAVE A LOT OF LETTERS TO"
PRINT "WRITE HOME TO MOTHERS. THERE IS MUCH    BLOOD ON YOUR HANDS TODAY."
SLEEP 10
CALL TAPS
GOSUB LOSS
RETURN

QUEST9ON:
CLS
COLOR 2, 0
PRINT
PRINT "NOW THAT THE GERMAN OFFENSIVE HAS SLOWEDTHE US 82nd AND 101st AIRBORNE DIVISIONS"
PRINT "HAVE BEEN SENT IN TO DRIVE THEM BACK.   THE PROBLEM IS THAT THEY'VE BEEN"
PRINT "SURROUNDED IN A LARGE BELGIAN TOWN. WE  MUST HURRY AND RESUPPLY THESE TROOPS,"
PRINT "FOR IF WE DON'T, McAULIFFE AND HIS MEN  WILL BE LOST. WE NEED YOU TO TELL THE"
PRINT "AIR FORCE WHERE THEY ARE SO WE CAN MAKE A SUPPLY DROP AT THEIR POSITION."
PRINT
PRINT "    WHAT IS THE NAME OF THIS TOWN?"
PRINT
PRINT "        A. VIENNA"
PRINT "        B. BRUSSELS"
PRINT "        C. ST. VITH"
PRINT "        D. BASTOGNE"
PRINT
INPUT TOWN$
IF TOWN$ <> "D" THEN 91 ELSE RETURN
91 CLS
PRINT
PRINT "YOUR INCOMPETENCE HAS COST US THE LIVES OF OUR FINEST TROOPS. THOUGH THE BULGE"
PRINT "WAS CONTAINED, IT COST US A TOTAL OF    AROUND 100,000 CASUALTIES. THE GERMANS,"
PRINT "OVER 160,000. YOU DISGRACE THIS ARMY.   I'M GLAD TO INFORM YOU, GENERAL, THAT"
PRINT "YOU'VE BEEN RELIEVED. FINALLY THE ARMY'SDONE SOMETHING RIGHT, GOOD DAY!"
SLEEP 4
CALL TAPS
SLEEP 6
GOSUB FINALMESSAGE
RETURN

QUEST10ON:
CLS
COLOR 2, 0
PRINT
PRINT "CONGRATULATIONS, THE BULGE HAS BEEN     ELIMINATED. WE NOW ARE AIMING TO LINK UP"
PRINT "WITH SOVIET TROOPS AROUND DRESDEN. IKE  HAS SAID THIS TO THE SOVIET LEADER."
PRINT "THOUGH WE PLAN TO CARRY THIS OUT, HE MAYSTILL BE TRYING TO BEAT US TO BERLIN."
PRINT
PRINT
PRINT "WHO IS THE LEADER OF THE SOVIET UNION?"
PRINT
PRINT "        A. VLADIMIR LENIN"
PRINT "        B. JOSEPH STALIN"
PRINT "        C. IVAN IV"
PRINT "        D. KARL MARX"
PRINT
INPUT MAN$
IF MAN$ <> "B" THEN 105 ELSE 101
101 CLS
PRINT
PRINT "THE WAR IN EUROPE IS NOW OVER. SOVIET   TROOPS CAPTURED BERLIN AND HOSTILITIES"
PRINT "OFFICIALLY CEASED MAY 8, 1945. HITLER ISDEAD AND EUROPE IS FREE! NOW COMES THE"
PRINT "LONG TASK OF REBUILDING THESE PEOPLE'S  LIVES. YOU WILL GO ALONG WAY IN THE"
PRINT "MILITARY. SO LONG GENERAL. IT'S BEEN    GREAT."
SLEEP 10
RETURN
105 CLS
PRINT "DOESN'T MATTER THAT YOU DIDN'T KNOW IT'SJOSEPH STALIN. HE'S A CHEAT EITHER WAY."; ""
PRINT "THE WAR IN EUROPE IS NOW OVER. SOVIET   TROOPS CAPTURED BERLIN AND HOSTILITIES"
PRINT "OFFICIALLY CEASED MAY 8, 1945. HITLER ISDEAD AND EUROPE IS FREE! NOW COMES THE"
PRINT "LONG TASK OF REBUILDING THESE PEOPLE'S  LIVES. YOU WILL GO ALONG WAY IN THE"
PRINT "MILITARY. SO LONG GENERAL. IT'S BEEN    GREAT."
SLEEP 12
RETURN

VICITALY:
CLS
SCREEN 7
COLOR 2, 0
PAINT (23, 64), 15, 15
XLENGTH = 9
YLENGTH = 9
 FOR Y = 1 TO YLENGTH
  FOR X = 1 TO XLENGTH
    READ Z
    PSET (X, Y), Z
  NEXT X
NEXT Y
DIM SWASTIKA(XLENGTH * YLENGTH)                 ' ARRAYS SWASTIKA
GET (0, 0)-(XLENGTH, YLENGTH), SWASTIKA
                                                'SWASTIKA DATA
DATA 00,00,00,00,15,00,00,00,00
DATA 00,00,00,15,00,00,00,00,00
DATA 00,00,15,00,00,00,15,00,00
DATA 00,00,00,15,00,15,00,15,00
DATA 15,00,00,00,15,00,00,00,15
DATA 00,15,00,15,00,15,00,00,00
DATA 00,00,15,00,00,00,15,00,00
DATA 00,00,00,00,00,15,00,00,00
DATA 00,00,00,00,15,00,00,00,00

COLOR 1, 0
BR = 6
PAINT (12, 193), 3
CIRCLE (30, 30), 15, 14
PAINT (31, 31), 14, 14
  RANDOMIZE TIMER
FOR QW = 1 TO 5
  X = INT(RND * 300)
  Y = INT(RND * 80)
    CIRCLE (X, Y), 25, 7, PI * 0, PI * 2, .1
    PAINT (X, Y), 7, 7
  X = INT(RND * 300)
  Y = INT(RND * 80)
    CIRCLE (X, Y), 20, 7, PI * 0, PI * 2, .135
    PAINT (X - 2, Y), 7, 7
NEXT

LINE (0, 180)-(320, 200), 2, BF
LINE (220, 180)-(200, 200), BR
LINE (240, 180)-(260, 200), BR
LINE (220, 180)-(240, 180), BR
PAINT (221, 189), BR, BR
LINE (80, 150)-(300, 180), BR, BF
LINE (220, 180)-(240, 180), BR
LINE (220, 160)-(240, 180), 0, B
LINE (230, 160)-(230, 180), 0
LINE (150, 150)-(150, 140), BR
LINE (150, 140)-(160, 130), BR
LINE (160, 130)-(160, 125), BR
LINE (160, 125)-(165, 125), BR
LINE (165, 125)-(170, 120), BR
LINE (170, 120)-(170, 100), BR
LINE (170, 100)-(260, 100), BR
LINE (260, 100)-(265, 105), BR
LINE (265, 105)-(270, 105), BR
LINE (270, 105)-(275, 110), BR
LINE (275, 110)-(276, 115), BR
LINE (276, 115)-(278, 120), BR
LINE (278, 120)-(300, 120), BR
LINE (300, 120)-(300, 160), BR
LINE (300, 160)-(305, 168), BR
LINE (305, 168)-(307, 173), BR
LINE (307, 173)-(315, 173), BR
LINE (315, 173)-(318, 180), BR
LINE (318, 180)-(240, 180), BR
PAINT (175, 105), BR, BR
PAINT (317, 179), BR, BR
LINE (250, 120)-(265, 135), 1, BF
LINE (200, 120)-(215, 135), 1, BF
LINE (110, 160)-(150, 165), 1, BF
LINE (130, 160)-(130, 165), BR
' TRUCK
LINE (45, 160)-(75, 175), BR, BF
LINE (50, 160)-(70, 175), 8, BF
LINE (50, 160)-(70, 165), 1, BF
LINE (60, 160)-(60, 165), BR
CIRCLE (60, 160), 15, BR, PI * 1.9, PI * 1.1, .6
LINE (50, 160)-(70, 175), BR, B
PAINT (52, 156), BR, BR
LINE (45, 158)-(75, 158), 0
LINE (46, 176)-(55, 180), 0, BF
LINE (65, 176)-(74, 180), 0, BF
LINE (47, 172)-(73, 174), 0, BF
 BL = 4
 WHT = 15
 RED = 4
  FOR Y = 0 TO 26
    BL = 4
    WHT = 15
    GOSUB FLAGNAZI
      FOR HOLD = 1 TO 2344
      NEXT HOLD
    WHT = 3
    BL = 3
    GOSUB FLAGNAZI
  NEXT Y
 BL = 4
 WHT = 15
GOSUB FLAGNAZI

 FOR HOLD = 1 TO 40000
 NEXT HOLD
RD = 4

GOSUB FLAGBRIT

 FOR YY = 0 TO 26
    WHT = 15
    RD = 4
    BL = 1
       GOSUB FLAGBRIT
    WHT = 3
    RD = 3
    BL = 3
       FOR HOLD = 1 TO 2444
       NEXT HOLD
     GOSUB FLAGBRIT
 NEXT YY
WHT = 15
RD = 4
BL = 1
 GOSUB FLAGBRIT
SLEEP 2
RETURN

FLAGNAZI:
L = 220
M = 50
N = 261
O = 73
P = 241
Q = 63
R = 236
S = 58
LINE (L, M)-(L + 1, 100), 0, BF
CIRCLE (L, M), 2, 14
PAINT (L, M), 14, 14
LINE (L + 1, M + 3 + Y)-(N, O + Y), BL, BF
CIRCLE (P, Q + Y), 7, WHT
PAINT (P, Q + Y), WHT, WHT
PUT (R, S + Y), SWASTIKA                              ' PLACES SWASTIKA
LINE (R, S + Y)-(P + 4, S + Y), WHT
LINE (R, S + Y)-(R, Q + 4 + Y), WHT
RETURN

FLAGBRIT:
 LINE (L, M)-(L + 1, 100), 0, BF
 CIRCLE (L, M), 2, 14
 PAINT (L, M), 14, 14
 LINE (221, 80 - YY)-(261, 100 - YY), BL, BF
 LINE (240, 80 - YY)-(241, 100 - YY), RD, BF
 LINE (221, 90 - YY)-(261, 91 - YY), RD, BF
 LINE (221, 80 - YY)-(261, 100 - YY), RD
 LINE (221, 81 - YY)-(260, 100 - YY), RD
 LINE (261, 80 - YY)-(221, 100 - YY), RD
 LINE (261, 81 - YY)-(222, 100 - YY), RD
'
 LINE (261, 82 - YY)-(246, 89 - YY), WHT
 LINE (246, 89 - YY)-(261, 89 - YY), WHT
 LINE (261, 99 - YY)-(246, 92 - YY), WHT
 LINE (246, 92 - YY)-(261, 92 - YY), WHT
'
 LINE (236, 92 - YY)-(221, 99 - YY), WHT
 LINE (221, 89 - YY)-(235, 89 - YY), WHT
 LINE (236, 89 - YY)-(221, 82 - YY), WHT
 LINE (221, 92 - YY)-(235, 92 - YY), WHT
'
 LINE (239, 93 - YY)-(223, 100 - YY), WHT
 LINE (239, 93 - YY)-(239, 100 - YY), WHT
 PSET (239, 92 - YY), RD
 PSET (237, 93 - YY), WHT
 LINE (242, 100 - YY)-(242, 93 - YY), WHT
 LINE (242, 92 - YY)-(258, 100 - YY), WHT
 PSET (242, 92 - YY), RD
'
 LINE (259, 80 - YY)-(243, 88 - YY), WHT
 PSET (242, 88 - YY), WHT
 LINE (242, 88 - YY)-(242, 80 - YY), WHT
 LINE (239, 88 - YY)-(239, 80 - YY), WHT
 LINE (238, 88 - YY)-(222, 80 - YY), WHT
RETURN

PARLIAMENT:
COLOR 1, 0
CIRCLE (100, 20), 20, 14
PAINT (100, 21), 14, 14
BR = 6
PAINT (132, 35), 1
'       BIG BEN
GOSUB CLOCKTOWER
LINE (50, 85)-(45, 75), 0
LINE (45, 75)-(40, 70), 0
LINE (40, 70)-(45, 65), 0
CIRCLE (45, 75), 12, 0, PI * .5, PI * 1.6
PAINT (44, 76), 15, 0
PSET (45, 83), 0
PSET (40, 82), 0
PSET (37, 79), 0
PSET (35, 75), 0
PSET (37, 71), 0
PSET (41, 68), 0
CIRCLE (45, 75), 2, 0, PI * .9, PI * 1.5
PAINT (44, 75), 0, 0
LINE (55, 125)-(75, 185), BR, BF
LINE (95, 125)-(210, 185), BR, BF
LINE (75, 185)-(95, 185), BR
LINE (75, 125)-(80, 130), BR
LINE (80, 130)-(80, 135), BR
LINE (80, 135)-(90, 140), BR
LINE (90, 140)-(90, 130), BR
LINE (90, 130)-(95, 125), BR
PAINT (85, 150), BR, BR
LINE (110, 125)-(115, 115), 0
LINE (115, 115)-(120, 125), 0
LINE (170, 125)-(175, 115), 0
LINE (175, 115)-(180, 125), 0
LINE (210, 125)-(220, 135), BR
LINE (220, 135)-(215, 140), BR
LINE (215, 140)-(215, 145), BR
LINE (215, 145)-(225, 145), BR
LINE (225, 145)-(235, 155), BR
LINE (235, 155)-(235, 165), BR
LINE (235, 165)-(240, 175), BR
LINE (240, 175)-(240, 185), BR
LINE (240, 185)-(100, 185), BR
PAINT (225, 160), BR, BR
PAINT (176, 120), BR, 0
PAINT (115, 120), BR, 0
LINE (245, 185)-(265, 160), BR
LINE (265, 160)-(265, 150), BR
LINE (265, 150)-(260, 145), BR
LINE (260, 145)-(270, 135), BR
LINE (270, 135)-(255, 125), BR
LINE (255, 125)-(270, 125), BR
LINE (270, 125)-(270, 115), BR
LINE (270, 115)-(275, 110), BR
LINE (275, 110)-(275, 100), BR
LINE (275, 100)-(273, 98), BR
LINE (273, 98)-(287, 98), BR
LINE (287, 98)-(285, 100), BR
LINE (285, 100)-(285, 125), BR
LINE (285, 125)-(290, 125), BR
LINE (290, 125)-(290, 160), BR
LINE (290, 160)-(280, 170), BR
LINE (280, 170)-(280, 175), BR
LINE (280, 175)-(290, 185), BR
LINE (290, 185)-(245, 185), BR
PAINT (275, 150), BR, BR
' DOOR
LINE (130, 170)-(135, 185), 0, BF
LINE (130, 170)-(132, 165), 0
LINE (132, 165)-(135, 170), 0
PAINT (133, 168), 7, 0
LINE (155, 170)-(160, 185), 0, BF
LINE (155, 170)-(158, 165), 0
LINE (158, 165)-(160, 170), 0
PAINT (158, 169), 7, 0
LINE (134, 171)-(145, 160), 0
LINE (145, 160)-(156, 171), 0
LINE (135, 169)-(135, 185), 0
LINE (135, 185)-(155, 185), 0
LINE (155, 185)-(155, 169), 0
PAINT (136, 174), 7, 0
LINE (145, 160)-(145, 185), 0

LINE (270, 124)-(285, 124), 0
LINE (110, 125)-(110, 185), 0
LINE (120, 125)-(120, 185), 0
LINE (170, 125)-(170, 185), 0
LINE (180, 125)-(180, 185), 0
LINE (0, 185)-(320, 200), 0, BF
LINE (0, 186)-(320, 186), BR
'   ***   DEBRI  ***
LINE (305, 175)-(315, 185), 0, B
PAINT (310, 180), BR, 0
LINE (250, 175)-(250, 185), 0
LINE (250, 185)-(240, 185), 0
LINE (240, 185)-(250, 175), 0
PAINT (243, 183), BR, 0
RETURN

CLOCKTOWER:
LINE (35, 50)-(25, 60), BR
LINE (25, 60)-(25, 90), BR
LINE (25, 90)-(30, 90), BR
' CLOCK TOWER
LINE (30, 90)-(55, 185), BR, BF

LINE (55, 90)-(50, 85), BR
LINE (50, 85)-(45, 75), BR
LINE (45, 75)-(40, 70), BR
LINE (40, 70)-(45, 65), BR
LINE (45, 65)-(40, 60), BR
LINE (40, 60)-(40, 55), BR
LINE (40, 55)-(35, 50), BR
PAINT (40, 80), BR, BR
LINE (55, 125)-(55, 185), 0
LINE (25, 90)-(55, 90), 0
RETURN

LOSS:
SLEEP 1
RE = 4
BL = 0
CIRCLE (75, 20), 20, 14
GOSUB PARLIAMENT
 FOR Y = 1 TO 20
   RE = 4
   BL = 0
  GOSUB BRITFLAGS
  GOSUB PARLIAMENT
  GOSUB CLOCKTOWER
   RE = 1
   BL = 1
     FOR HOLD = 1 TO 4990
     NEXT HOLD
  GOSUB BRITFLAGS
  GOSUB PARLIAMENT
  GOSUB CLOCKTOWER
 NEXT Y
RE = 4
BL = 0
BR = 6
WHT = 15
 GOSUB BRITFLAGS
 GOSUB CLOCKTOWER
 GOSUB PARLIAMENT
LINE (55, 125)-(55, 185), 0
LINE (115, 115)-(115, 85), 0
LINE (175, 115)-(175, 85), 0
WHT = 15
  SLEEP 1
 GOSUB LITTLENAZI
  FOR Y = 20 TO 1 STEP -1
    RE = 4
    BL = 0
    WHT = 15
     GOSUB LITTLENAZI
    RE = 1
    BL = 1
    WHT = 1
      FOR HOLD = 1 TO 4990
      NEXT HOLD
    GOSUB LITTLENAZI
  NEXT Y
 RE = 4
 BL = 0
 WHT = 15
GOSUB LITTLENAZI
 SLEEP 2
GOSUB FINALMESSAGE
RETURN

BRITFLAGS:
'  FLAGS
  LINE (115, 115)-(115, 85), BL
  LINE (115, 85)-(130, 85), 1
  LINE (115, 85 + Y)-(130, 95 + Y), BL, B
  PAINT (118, 88 + Y), 1, BL
  LINE (116, 86 + Y)-(129, 94 + Y), RE
  LINE (175, 115)-(175, 85), BL
  LINE (175, 90)-(190, 85), 1
  LINE (175, 85 + Y)-(190, 95 + Y), BL, B
  PAINT (177, 86), 1, BL
  LINE (176, 86 + Y)-(189, 94 + Y), RE
     '  FLAG COLORS
  LINE (116, 94 + Y)-(129, 86 + Y), RE
  LINE (122, 86 + Y)-(122, 94 + Y), RE
  LINE (116, 90 + Y)-(129, 90 + Y), RE
  LINE (176, 94 + Y)-(189, 86 + Y), RE
  LINE (182, 86 + Y)-(182, 94 + Y), RE
  LINE (176, 90 + Y)-(189, 90 + Y), RE
RETURN

LITTLENAZI:
  LINE (116, 116)-(131, 116), 1
  LINE (176, 116)-(191, 116), 1
  LINE (115, 115)-(115, 85), BL
  LINE (115, 85)-(130, 85), 1
  LINE (116, 85 + Y)-(131, 95 + Y), RE, BF
  CIRCLE (124, 90 + Y), 2, WHT
  PAINT (124, 90 + Y), WHT, WHT
  LINE (123, 89 + Y)-(125, 91 + Y), BL
  LINE (125, 89 + Y)-(123, 91 + Y), BL
'
  LINE (176, 85 + Y)-(191, 95 + Y), RE, BF
  CIRCLE (183, 90 + Y), 2, WHT
  PAINT (183, 90 + Y), WHT, WHT
  LINE (182, 89 + Y)-(184, 91 + Y), BL
  LINE (182, 91 + Y)-(184, 89 + Y), BL
RETURN

FINALMESSAGE:
CLS
COLOR 4, 0
'CALL TAPS
LOCATE (8), (10), 0, 20
PRINT "YOU HAVE FAILED IN YOUR MISSION, CADET, AND A CADET YOU WILL STAY."
LOCATE (9), (10), 0, 20
PRINT "THE FINAL VERDICT FOR YOUR EXAM IS THAT YOU..."
SLEEP 4
GOSUB FAIL
RETURN

VICTORY:
CLS
SCREEN 13
COLOR 4
BR = 6
LOCATE (2), (1), 0, 30
PRINT "DER REICHSTAG, MAY, 1945"
COLOR 1
LINE (0, 180)-(325, 180), 2
PAINT (20, 190), 2, 2
LINE (20, 90)-(80, 180), BR, BF
LINE (240, 90)-(300, 180), BR, BF
LINE (80, 100)-(240, 180), BR, BF
LINE (80, 90)-(80, 180), 0
LINE (240, 80)-(240, 180), 0
CIRCLE (160, 100), 40, 8, PI * .4, PI * .99
LINE (172, 68)-(155, 76), 8
LINE (155, 76)-(165, 83), 8
LINE (165, 83)-(150, 95), 8
LINE (150, 95)-(157, 99), 8
LINE (157, 99)-(120, 99), 8
CIRCLE (160, 100), 40, 8, PI * .01, PI * .321
LINE (180, 72)-(185, 82), 8
LINE (185, 82)-(178, 88), 8
LINE (178, 88)-(185, 93), 8
LINE (185, 93)-(167, 99), 8
LINE (167, 99)-(200, 99), 8
'   CHUNKS OUT
LINE (290, 80)-(280, 90), 0
LINE (280, 90)-(285, 94), 0
LINE (285, 94)-(290, 103), 0
LINE (290, 103)-(283, 107), 0
LINE (283, 107)-(294, 115), 0
LINE (294, 115)-(300, 118), 0
LINE (300, 118)-(300, 80), 0
LINE (300, 80)-(290, 80), 0
PAINT (290, 100), 0, 0
CIRCLE (23, 120), 8, 0
PAINT (23, 120), 0, 0
LINE (300, 130)-(298, 134), 0
LINE (298, 134)-(299, 137), 0
LINE (299, 137)-(300, 140), 0
LINE (300, 140)-(300, 130), 0
PSET (299, 134), 0
LINE (85, 100)-(87, 102), 0
LINE (87, 102)-(94, 105), 0
LINE (94, 105)-(97, 103), 0
LINE (97, 103)-(99, 100), 0
LINE (99, 100)-(85, 100), 0
PAINT (88, 102), 0, 0
       ' WINDOWS
FOR XX = 90 TO 225 STEP 15
  LINE (XX, 110)-(XX + 5, 115), 0, BF               'DOES ALL THE WINDOWS
  NEXT XX

FOR XY = 90 TO 225 STEP 15
   LINE (XY, 125)-(XY + 5, 130), 0, BF              'DOES ALL THE WINDOWS
NEXT XY

FOR XZ = 90 TO 225 STEP 15
  LINE (XZ, 140)-(XZ + 5, 145), 0, BF               'DOES ALL THE WINDOWS
NEXT XZ
 
FOR YY = 90 TO 225 STEP 15
  LINE (YY, 155)-(YY + 5, 160), 0, BF               'DOES ALL THE WINDOWS
NEXT YY

LINE (26, 113)-(33, 115), 0
LINE (33, 115)-(37, 125), 0
LINE (37, 125)-(26, 127), 0
PAINT (29, 115), 0, 0
LINE (150, 155)-(155, 160), BR, BF
LINE (165, 155)-(170, 160), BR, BF
CIRCLE (160, 160), 10, 0, PI * -2, PI * -1
PAINT (160, 157), 8, 0
LINE (150, 161)-(150, 175), 0
LINE (170, 161)-(170, 175), 0
LINE (160, 161)-(160, 175), 0
LINE (140, 175)-(180, 180), 8, BF
LINE (140, 178)-(180, 178), 0
LINE (158, 167)-(158, 169), 0
LINE (162, 167)-(162, 169), 0

GOSUB DRAWstars

CIRCLE (167, 100), 40, 8, PI * .5, PI * .98
CIRCLE (217, 114), 80, 8, PI * .76, PI * .923
CIRCLE (145, 99), 48, 8, PI * 1.999, PI * .24
SLEEP 2

CALL EXPLOSIONS

LOCATE (2), (1), 0, 30
PRINT "                        "

'     NAZI FLAG
QWERT = 1.1
FOR X = 1 TO 5
   CIRCLE (70, 89), 30, 8, PI * -(QWERT - .1), PI * -(QWERT - .1)
     FOR HOLD = 1 TO 9437
     NEXT HOLD
   CIRCLE (70, 89), 30, 0, PI * -(QWERT - .1), PI * -(QWERT - .1)
  QWERT = QWERT - .1
NEXT

RED = 4
BLK = 0
WHT = 15
FOR Y = 1 TO 15
   RED = 4
   BLK = 0
   WHT = 15
  LINE (70, 89)-(70, 58), 8
  LINE (41, 73 - Y)-(69, 87 - Y), RED, BF
  CIRCLE (56, 81 - Y), 4, WHT
  PAINT (56, 81 - Y), WHT, WHT
  LINE (57, 80 - Y)-(55, 82 - Y), BLK
  PSET (58, 81 - Y), BLK
  PSET (54, 81 - Y), BLK
  LINE (55, 80 - Y)-(57, 82 - Y), BLK
  PSET (56, 79 - Y), BLK
  PSET (56, 83 - Y), BLK
    FOR HOLD = 1 TO 11000
    NEXT HOLD
   RED = 0
   WHT = 0
  LINE (41, 73 - Y)-(69, 88 - Y), RED, BF
  CIRCLE (56, 81 - Y), 5, WHT
  PAINT (56, 81 - Y), WHT, WHT
NEXT
   RED = 4
   BLK = 0
   WHT = 15
  LINE (70, 89)-(70, 58), 8
  LINE (41, 74 - Y)-(69, 88 - Y), RED, BF
  CIRCLE (56, 81 - Y), 4, WHT
  PAINT (56, 81 - Y), WHT, WHT
  LINE (57, 80 - Y)-(55, 82 - Y), BLK
  PSET (58, 81 - Y), BLK
  PSET (54, 81 - Y), BLK
  LINE (55, 80 - Y)-(57, 82 - Y), BLK
  PSET (56, 79 - Y), BLK
  PSET (56, 83 - Y), BLK
 SLEEP 1
PLAY "MB"
PLAY "C8E8G4G4G4G4MLG4. > C8MN < G4E8F8G4G4F8d4.C2P4MLC8E8MNG4G4G4G4MLG4. > C8 <"
 GOSUB BOMB
PLAY "MB"
PLAY "MNG4E8F8G4G4F4D4C2P4C > C8. < B16A4F4A4F4MLG4.A8MNG4 > C8. < B16A4F4A8 > C4. <"
GOSUB FINALMESSAGE2
RETURN

DRAWstars:
RANDOMIZE TIMER
FOR QQ = 1 TO 60
R1 = RND * 300
R2 = RND * 67
PSET (R1, R2), 15
NEXT QQ
RETURN

FINALMESSAGE2:
CLS
COLOR 4
LOCATE (8), (11), 0, 20
PRINT "YOU HAVE DELIVERED THE WORLD, CADET. YOU HAVE SAVED MILLIONS"
LOCATE (10), (10), 0, 20
PRINT "THE FINAL VERDICT FOR YOUR EXAM IS THAT YOU..."
SLEEP 3
PLAY "MB"
PLAY "G2.C8E8G4G4G4G4MLG4. > C8MN < G4E8F8G4G4F4D4C2."
GOSUB PASS
RETURN

PASS:
CLS
COLOR 1
Z = 260
X = -15
GOSUB DELTA
Z = 10
X = -15
GOSUB DELTA
SLEEP 1
LINE (60, 50)-(100, 60), 1, BF
LINE (60, 50)-(73, 110), 1, BF
LINE (70, 70)-(90, 80), 1, BF
LINE (88, 60)-(100, 80), 1, BF
SLEEP 1
LINE (110, 60)-(120, 110), 1, BF
LINE (110, 60)-(120, 50), 1
LINE (120, 61)-(140, 61), 1
LINE (140, 50)-(150, 60), 1
LINE (140, 60)-(150, 110), 1, BF
LINE (120, 90)-(140, 90), 1
LINE (120, 80)-(140, 90), 1, BF
LINE (120, 50)-(140, 50), 1
PAINT (135, 55), 1, 1
SLEEP 1
LINE (160, 50)-(200, 60), 1, BF
LINE (160, 50)-(170, 73), 1, BF
LINE (160, 73)-(200, 83), 1, BF
LINE (190, 80)-(200, 100), 1, BF
LINE (160, 100)-(200, 110), 1, BF
SLEEP 1
Q = 49
LINE (160 + Q, 50)-(200 + Q, 60), 1, BF
LINE (160 + Q, 50)-(170 + Q, 73), 1, BF
LINE (160 + Q, 73)-(200 + Q, 83), 1, BF
LINE (190 + Q, 80)-(200 + Q, 100), 1, BF
LINE (160 + Q, 100)-(200 + Q, 110), 1, BF
SLEEP 1
FOR BLINK = 1 TO 5
  A = 0
   GOSUB WORDS
      FOR HOLD = 1 TO 19777
      NEXT HOLD
    A = 1
   GOSUB WORDS
      FOR HOLD = 1 TO 24573
      NEXT HOLD
NEXT
RETURN 9999

WORDS:
LINE (60, 50)-(100, 60), A, BF
LINE (60, 50)-(73, 110), A, BF
LINE (70, 70)-(90, 80), A, BF
LINE (88, 60)-(100, 80), A, BF

LINE (110, 60)-(120, 110), A, BF
LINE (110, 60)-(120, 50), A
LINE (120, 61)-(140, 61), A
LINE (140, 50)-(150, 60), A
LINE (140, 60)-(150, 110), A, BF
LINE (120, 90)-(140, 90), A
LINE (120, 80)-(140, 90), A, BF
LINE (120, 50)-(140, 50), A
PAINT (135, 55), A, A

LINE (160, 50)-(200, 60), A, BF
LINE (160, 50)-(170, 73), A, BF
LINE (160, 73)-(200, 83), A, BF
LINE (190, 80)-(200, 100), A, BF
LINE (160, 100)-(200, 110), A, BF

Q = 49
LINE (160 + Q, 50)-(200 + Q, 60), A, BF
LINE (160 + Q, 50)-(170 + Q, 73), A, BF
LINE (160 + Q, 73)-(200 + Q, 83), A, BF
LINE (190 + Q, 80)-(200 + Q, 100), A, BF
LINE (160 + Q, 100)-(200 + Q, 110), A, BF
RETURN

FIRSTADV:
CIRCLE (75, 200), 35, 1, PI * .77, PI * 1
CIRCLE (80, 200), 35, 1, PI * .8, PI * 1
LINE (42, 200)-(47, 200), 1
LINE (50, 180)-(48, 178), 1
LINE (48, 178)-(56, 178), 1
LINE (53, 183)-(55, 185), 1
LINE (56, 178)-(56, 185), 1
PAINT (55, 179), 1, 1

SLEEP 2

LINE (59, 176)-(80, 179), 1, BF
LINE (80, 176)-(80, 173), 1
LINE (80, 173)-(86, 177), 1
LINE (86, 178)-(80, 182), 1
LINE (80, 179)-(80, 182), 1
PAINT (83, 179), 1, 1

LINE (210, 90)-(210, 139), 15
SLEEP 1
PAINT (225, 110), 1, 15
PAINT (86, 175), 1, 15
PAINT (225, 125), 1, 15
PAINT (85, 175), 1, 15
SLEEP 2
RETURN

SECONDADV:
        LINE (210, 90)-(210, 139), 15
        PAINT (225, 110), 1, 15
        PAINT (225, 125), 1, 15
       
        CIRCLE (75, 200), 35, 1, PI * .77, PI * 1
        CIRCLE (80, 200), 35, 1, PI * .8, PI * 1
        LINE (42, 200)-(47, 200), 1
        LINE (50, 180)-(48, 178), 1
        LINE (48, 178)-(56, 178), 1
        LINE (53, 183)-(55, 185), 1
        LINE (56, 178)-(56, 185), 1
        PAINT (55, 179), 1, 1

        LINE (59, 176)-(80, 179), 1, BF
        LINE (80, 176)-(80, 173), 1
        LINE (80, 173)-(86, 177), 1
        LINE (86, 178)-(80, 182), 1
        LINE (80, 179)-(80, 182), 1
        PAINT (83, 179), 1, 1
        PAINT (86, 175), 1, 15
  
        LINE (210, 90)-(210, 139), 15
        PAINT (225, 110), 1, 15
        PAINT (86, 175), 1, 15
        PAINT (225, 125), 1, 15
        PAINT (85, 175), 1, 15
       
SLEEP 2
 CIRCLE (96, 172), 5, 1, PI * .3, PI
 CIRCLE (96, 172), 9, 1, PI * .3, PI * .88
LINE (88, 170)-(90, 172), 1
LINE (99, 169)-(97, 171), 1
LINE (104, 164)-(102, 166), 1
LINE (97, 171)-(104, 171), 1
LINE (104, 164)-(104, 170), 1
  PAINT (102, 168), 1, 1
LINE (88, 168)-(100, 156), 1
LINE (90, 172)-(103, 159), 1
  LINE (100, 156)-(98, 154), 1
  LINE (103, 159)-(105, 161), 1
LINE (98, 154)-(105, 154), 1
LINE (105, 161)-(105, 155), 1
 PAINT (103, 157), 1, 1
SLEEP 1
CIRCLE (112, 153), 12, 15, PI * .1, PI * .73
LINE (100, 175)-(110, 165), 15
 PAINT (112, 153), 1, 15
PAINT (78, 140), 1, 15
PAINT (78, 155), 1, 15
SLEEP 3
RETURN

THIRDADV:
CIRCLE (75, 200), 35, 1, PI * .77, PI * 1
CIRCLE (80, 200), 35, 1, PI * .8, PI * 1
LINE (42, 200)-(47, 200), 1
LINE (50, 180)-(48, 178), 1
LINE (48, 178)-(56, 178), 1
LINE (53, 183)-(55, 185), 1
LINE (56, 178)-(56, 185), 1
PAINT (55, 179), 1, 1

LINE (59, 176)-(80, 179), 1, BF
LINE (80, 176)-(80, 173), 1
LINE (80, 173)-(86, 177), 1
LINE (86, 178)-(80, 182), 1
LINE (80, 179)-(80, 182), 1
PAINT (83, 179), 1, 1

PAINT (86, 175), 1, 15

 CIRCLE (96, 172), 5, 1, PI * .3, PI
 CIRCLE (96, 172), 9, 1, PI * .3, PI * .88
LINE (88, 170)-(90, 172), 1
LINE (99, 169)-(97, 171), 1
LINE (104, 164)-(102, 166), 1
LINE (97, 171)-(104, 171), 1
LINE (104, 164)-(104, 170), 1
  PAINT (102, 168), 1, 1
LINE (88, 168)-(100, 156), 1
LINE (90, 172)-(103, 159), 1
  LINE (100, 156)-(98, 154), 1
  LINE (103, 159)-(105, 161), 1
LINE (98, 154)-(105, 154), 1
LINE (105, 161)-(105, 155), 1
 PAINT (103, 157), 1, 1

CIRCLE (112, 153), 12, 15, PI * .1, PI * .73
LINE (100, 175)-(110, 165), 15
PAINT (112, 153), 1, 15

SLEEP 2
 LINE (210, 90)-(190, 105), 15
 LINE (190, 105)-(200, 135), 15
 CIRCLE (112, 153), 12, 1, PI * .1, PI * .73
 CIRCLE (98, 137), 15, 15, PI * .1, PI * .73
 LINE (86, 125)-(105, 150), 15
 LINE (108, 125)-(123, 150), 15
 PAINT (98, 137), 1, 15
 PAINT (76, 155), 1, 15
 PAINT (76, 140), 1, 15
 PAINT (200, 105), 1, 15
 PAINT (200, 115), 1, 15
RETURN

UPDMAP:
 CALL MAPP
 CIRCLE (75, 200), 35, 1, PI * .77, PI * 1
 CIRCLE (80, 200), 35, 1, PI * .8, PI * 1
 LINE (42, 200)-(47, 200), 1
 LINE (50, 180)-(48, 178), 1
 LINE (48, 178)-(56, 178), 1
 LINE (53, 183)-(55, 185), 1
 LINE (56, 178)-(56, 185), 1
 PAINT (55, 179), 1, 1
 
 LINE (59, 176)-(80, 179), 1, BF
 LINE (80, 176)-(80, 173), 1
 LINE (80, 173)-(86, 177), 1
 LINE (86, 178)-(80, 182), 1
 LINE (80, 179)-(80, 182), 1
 PAINT (83, 179), 1, 1
 
 PAINT (86, 175), 1, 15
 
  CIRCLE (96, 172), 5, 1, PI * .3, PI
  CIRCLE (96, 172), 9, 1, PI * .3, PI * .88
 LINE (88, 170)-(90, 172), 1
 LINE (99, 169)-(97, 171), 1
 LINE (104, 164)-(102, 166), 1
 LINE (97, 171)-(104, 171), 1
 LINE (104, 164)-(104, 170), 1
   PAINT (102, 168), 1, 1
 LINE (88, 168)-(100, 156), 1
 LINE (90, 172)-(103, 159), 1
   LINE (100, 156)-(98, 154), 1
   LINE (103, 159)-(105, 161), 1
 LINE (98, 154)-(105, 154), 1
 LINE (105, 161)-(105, 155), 1
  PAINT (103, 157), 1, 1
 
 CIRCLE (112, 153), 12, 15, PI * .1, PI * .73
 LINE (100, 175)-(110, 165), 15
 PAINT (112, 153), 1, 15
 
 CIRCLE (112, 153), 12, 1, PI * .1, PI * .73
 CIRCLE (98, 137), 15, 15, PI * .1, PI * .73
 LINE (86, 125)-(105, 150), 15
 LINE (108, 125)-(123, 150), 15
 PAINT (98, 137), 1, 15
RETURN

NORMANDY:
'  THIS DRAWING METHOD WAS TAKEN FROM A TUTORIAL
'  DEVELOPED BY MALLARD AT QBASIC.COM
COLOR 2, 1
LET XLENGTH = 19
LET YLENGTH = 13

FOR Y = 0 TO YLENGTH
  FOR X = 0 TO XLENGTH
    READ colour
    PSET (X, Y), colour
  NEXT X
NEXT Y

DIM TANK(XLENGTH * YLENGTH)
GET (0, 5)-(XLENGTH, YLENGTH), TANK
                          
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,00
DATA 00,00,00,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00
DATA 00,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00
DATA 06,06,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00
DATA 00,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00

FOR X = 1 TO 11 STEP 2
  GOSUB UPDMAP
   LOCATE (21), (25), 0, 30
   PRINT "JUNE 6, 1944"
     FOR HOLD = 1 TO 5000
     NEXT HOLD
   PUT (70 + X - 3, 30 + Y), TANK
     FOR HOLD = 1 TO 9000
     NEXT HOLD
  Y = Y + 5
NEXT
 
  SLEEP 1
LINE (60, 80)-(85, 85), 15
LINE (85, 85)-(105, 85), 15
 PAINT (80, 70), 1, 15
CIRCLE (75, 165), 4, 1, PI, PI * 1.55
CIRCLE (75, 165), 9, 1, PI, PI * 1.67
LINE (66, 165)-(66, 130), 1
LINE (71, 165)-(71, 130), 1
LINE (66, 130)-(62, 130), 1
LINE (71, 130)-(75, 130), 1
LINE (75, 130)-(69, 120), 1
LINE (61, 130)-(68, 120), 1
LINE (80, 172)-(77, 168), 1
  PAINT (68, 140), 1, 1
LINE (170, 55)-(170, 115), 15
LINE (170, 115)-(145, 130), 15
LINE (145, 130)-(120, 110), 15
SLEEP 1
CIRCLE (75, 127), 40, 15, PI * .38, PI * .58
LINE (65, 120)-(75, 120), 15
 PAINT (75, 110), 1, 15
 PAINT (175, 140), 1, 15
 PAINT (175, 125), 1, 15
 PAINT (175, 110), 1, 15
 PAINT (175, 90), 1, 15
 PAINT (175, 70), 1, 15
 PAINT (160, 126), 1, 15
SLEEP 3
RETURN

TANKER:
'  THIS DRAWING METHOD WAS TAKEN FROM A TUTORIAL
'  DEVELOPED BY MALLARD AT QBASIC.COM
COLOR 2, 1
LET XLENGTH = 19
LET YLENGTH = 13

FOR Y = 0 TO YLENGTH
  FOR X = 0 TO XLENGTH
    READ colour
    PSET (X, Y), colour
  NEXT X
NEXT Y

DIM TANK(XLENGTH * YLENGTH)
GET (0, 5)-(XLENGTH, YLENGTH), TANK
                           
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,00
DATA 00,00,00,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00
DATA 00,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00
DATA 06,06,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00
DATA 00,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00
RETURN

NORMANDY2:
GOSUB UPDMAP
LINE (60, 80)-(85, 85), 15
LINE (85, 85)-(105, 85), 15
 PAINT (80, 70), 1, 15
CIRCLE (75, 165), 4, 1, PI, PI * 1.55
CIRCLE (75, 165), 9, 1, PI, PI * 1.67
LINE (66, 165)-(66, 130), 1
LINE (71, 165)-(71, 130), 1
LINE (66, 130)-(62, 130), 1
LINE (71, 130)-(75, 130), 1
LINE (75, 130)-(69, 120), 1
LINE (61, 130)-(68, 120), 1
LINE (80, 172)-(77, 168), 1
PAINT (68, 140), 1, 1
CIRCLE (75, 127), 40, 15, PI * .38, PI * .58
LINE (65, 120)-(75, 120), 15
 PAINT (75, 110), 1, 15
LINE (100, 50)-(110, 55), 15
 PAINT (102, 53), 1, 15
LINE (170, 55)-(170, 115), 15
LINE (170, 115)-(145, 130), 15
LINE (145, 130)-(120, 110), 15
 PAINT (175, 140), 1, 15
 PAINT (175, 125), 1, 15
 PAINT (175, 110), 1, 15
 PAINT (175, 90), 1, 15
 PAINT (175, 70), 1, 15
 PAINT (160, 126), 1, 15
LINE (170, 55)-(170, 115), 1
LINE (170, 115)-(145, 130), 1
LINE (145, 130)-(120, 110), 1
LINE (125, 115)-(120, 110), 15
LINE (150, 120)-(165, 120), 15
LINE (165, 90)-(175, 80), 15
LINE (165, 115)-(165, 125), 15
PAINT (167, 100), 1, 15
 PAINT (77, 140), 1, 15
 PAINT (77, 155), 1, 15
PAINT (135, 125), 1, 15
RETURN

BULGE:
SLEEP 2
 LINE (105, 60)-(95, 62), 15
 LINE (95, 62)-(95, 65), 15
 LINE (95, 65)-(105, 67), 15
PAINT (103, 65), 4, 15
PAINT (97, 63), 4, 15
 PSET (102, 63), 1
LINE (170, 35)-(150, 50), 15
LINE (150, 50)-(150, 55), 15
LINE (150, 55)-(160, 65), 15
LINE (160, 65)-(160, 75), 15
LINE (160, 75)-(170, 85), 15
LINE (170, 85)-(160, 95), 15
LINE (160, 95)-(160, 105), 15
LINE (160, 105)-(150, 120), 15
LINE (150, 120)-(120, 110), 15
 LINE (104, 60)-(95, 62), 1
 LINE (95, 62)-(95, 65), 1
 LINE (95, 65)-(104, 67), 1
RETURN

DRESDEN:
LET XLENGTH = 19
LET YLENGTH = 13

FOR Y = 0 TO YLENGTH
  FOR X = 0 TO XLENGTH
    READ colour
    PSET (X, Y), colour
  NEXT X
NEXT Y

'DIM TANK(XLENGTH * YLENGTH)
'GET (0, 5)-(XLENGTH, YLENGTH), TANK
                         
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,00,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00,00,00
DATA 00,00,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,06,00
DATA 00,00,00,06,06,06,06,06,06,06,00,00,00,00,00,00,00,00,00,00
DATA 00,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00
DATA 06,06,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00
DATA 00,06,06,06,06,06,06,06,06,06,06,06,06,00,00,00,00,00,00,00

 LINE (105, 60)-(95, 62), 15
 LINE (95, 62)-(95, 65), 15
 LINE (95, 65)-(105, 67), 15
PAINT (103, 65), 4, 15
PAINT (97, 63), 4, 15
PSET (102, 63), 1
 GOSUB NORMANDY2
X = 0
WHILE X <= 55
   GOSUB NORMANDY2
    LOCATE (21), (23), 0, 30
    PRINT "JAN.- MAY 8, 1945"
     FOR HOLD = 1 TO 5000
     NEXT HOLD
 PUT (65 + X, 75), TANK
    FOR HOLD = 1 TO 9000
    NEXT HOLD
  X = X + 5
WEND

SLEEP 2
LINE (148, 45)-(140, 70), 15
LINE (140, 70)-(140, 115), 15
PAINT (115, 75), 1, 15
PAINT (110, 50), 1, 15
PAINT (160, 60), 1, 15
PAINT (150, 125), 1, 15
PAINT (170, 150), 1, 15
PAINT (200, 125), 1, 15
PAINT (200, 100), 1, 15
PAINT (175, 90), 1, 15
PAINT (167, 117), 1, 15
CIRCLE (75, 127), 40, 1, PI * .38, PI * .58
LINE (65, 120)-(75, 120), 1
LINE (90, 95)-(90, 100), 15
PAINT (145, 5), 1, 15
PAINT (75, 85), 1, 15
LINE (60, 80)-(85, 85), 1
LINE (85, 85)-(105, 85), 1
 PAINT (80, 70), 1, 15
CIRCLE (75, 127), 40, 1, PI * .38, PI * .58
PAINT (110, 75), 1, 15
SLEEP 3
RETURN


BOMB:
V = 17
Z = 13
P = 47
Z2 = 16
FOR Y = -10 TO 50
    G = 8
   LINE (55 + V, 26 + Y)-(65 + V, 26 + Y), G
   LINE (65 + V, 26 + Y)-(68 + V, 30 + Y), G
   LINE (55 + V, 26 + Y)-(58 + V, 30 + Y), G
   LINE (57 + V, 30 + Y)-(79 + V, 36 + Y), G, BF
     CIRCLE (79 + V, 33 + Y), 8, G, PI * 1.5, PI * .5, .4
     PAINT (80 + V, 33 + Y), G, G
   LINE (55 + V, 40 + Y)-(65 + V, 40 + Y), G
   LINE (55 + V, 40 + Y)-(58 + V, 37 + Y), G
   LINE (65 + V, 40 + Y)-(70 + V, 35 + Y), G
     PAINT (57 + V, 39 + Y), G, G
     PAINT (57 + V, 27 + Y), G, G
        
   LINE (55 + P, 26 + Y - Z)-(65 + P, 26 + Y - Z), G
   LINE (65 + P, 26 + Y - Z)-(68 + P, 30 + Y - Z), G
   LINE (55 + P, 26 + Y - Z)-(58 + P, 30 + Y - Z), G
   LINE (57 + P, 30 + Y - Z)-(79 + P, 36 + Y - Z), G, BF
     CIRCLE (79 + P, 33 + Y - Z), 8, G, PI * 1.5, PI * .5, .4
     PAINT (80 + P, 33 + Y - Z), G, G
   LINE (55 + P, 40 + Y - Z)-(65 + P, 40 + Y - Z), G
   LINE (55 + P, 40 + Y - Z)-(58 + P, 37 + Y - Z), G
   LINE (65 + P, 40 + Y - Z)-(70 + P, 35 + Y - Z), G
     PAINT (57 + P, 39 + Y - Z), G, G
     PAINT (57 + P, 27 + Y - Z), G, G
        
   LINE (55 - P, 26 + Y - Z2)-(65 - P, 26 + Y - Z2), G
   LINE (65 - P, 26 + Y - Z2)-(68 - P, 30 + Y - Z2), G
   LINE (55 - P, 26 + Y - Z2)-(58 - P, 30 + Y - Z2), G
   LINE (57 - P, 30 + Y - Z2)-(79 - P, 36 + Y - Z2), G, BF
     CIRCLE (79 - P, 33 + Y - Z2), 8, G, PI * 1.5, PI * .5, .4
     PAINT (80 - P, 33 + Y - Z2), G, G
   LINE (55 - P, 40 + Y - Z2)-(65 - P, 40 + Y - Z2), G
   LINE (55 - P, 40 + Y - Z2)-(58 - P, 37 + Y - Z2), G
   LINE (65 - P, 40 + Y - Z2)-(70 - P, 35 + Y - Z2), G
     PAINT (57 - P, 39 + Y - Z2), G, G
     PAINT (57 - P, 27 + Y - Z2), G, G
        
         FOR HOLD = 1 TO 2000
         NEXT HOLD
    G = 0
   LINE (55 + V, 26 + Y)-(65 + V, 26 + Y), G
   LINE (65 + V, 26 + Y)-(68 + V, 30 + Y), G
   LINE (55 + V, 26 + Y)-(58 + V, 30 + Y), G
   LINE (57 + V, 30 + Y)-(79 + V, 36 + Y), G, BF
     CIRCLE (79 + V, 33 + Y), 8, G, PI * 1.5, PI * .5, .4
     PAINT (80 + V, 33 + Y), G, G
   LINE (55 + V, 40 + Y)-(65 + 17, 40 + Y), G
   LINE (55 + V, 40 + Y)-(58 + 17, 37 + Y), G
   LINE (65 + V, 40 + Y)-(70 + 17, 35 + Y), G
     PAINT (57 + V, 39 + Y), G, G
     PAINT (57 + V, 27 + Y), G, G
   
   G = 0
   LINE (55 + P, 26 + Y - Z)-(65 + P, 26 + Y - Z), G
   LINE (65 + P, 26 + Y - Z)-(68 + P, 30 + Y - Z), G
   LINE (55 + P, 26 + Y - Z)-(58 + P, 30 + Y - Z), G
   LINE (57 + P, 30 + Y - Z)-(79 + P, 36 + Y - Z), G, BF
     CIRCLE (79 + P, 33 + Y - Z), 8, G, PI * 1.5, PI * .5, .4
     PAINT (80 + P, 33 + Y - Z), G, G
   LINE (55 + P, 40 + Y - Z)-(65 + P, 40 + Y - Z), G
   LINE (55 + P, 40 + Y - Z)-(58 + P, 37 + Y - Z), G
   LINE (65 + P, 40 + Y - Z)-(70 + P, 35 + Y - Z), G
     PAINT (57 + P, 39 + Y - Z), G, G
     PAINT (57 + P, 27 + Y - Z), G, G
   
    G = 0
   LINE (55 - P, 26 + Y - Z2)-(65 - P, 26 + Y - Z2), G
   LINE (65 - P, 26 + Y - Z2)-(68 - P, 30 + Y - Z2), G
   LINE (55 - P, 26 + Y - Z2)-(58 - P, 30 + Y - Z2), G
   LINE (57 - P, 30 + Y - Z2)-(79 - P, 36 + Y - Z2), G, BF
     CIRCLE (79 - P, 33 + Y - Z2), 8, G, PI * 1.5, PI * .5, .4
     PAINT (80 - P, 33 + Y - Z2), G, G
   LINE (55 - P, 40 + Y - Z2)-(65 - P, 40 + Y - Z2), G
   LINE (55 - P, 40 + Y - Z2)-(58 - P, 37 + Y - Z2), G
   LINE (65 - P, 40 + Y - Z2)-(70 - P, 35 + Y - Z2), G
     PAINT (57 - P, 39 + Y - Z2), G, G
     PAINT (57 - P, 27 + Y - Z2), G, G

NEXT
GOSUB EXPLO
RETURN

EXPLO:
FOR X = 0 TO 60
Q = 45 + 47
P = 80 - 13
  CIRCLE (Q, P), 2 + INT(X / 1.5), 4
  PAINT (Q, P), 4, 4
   CIRCLE (Q, P), 1 + INT(X / 2), 6
  PAINT (Q, P), 6, 6
   CIRCLE (Q, P), 1 + INT(X / 4), 14
  PAINT (Q, P), 14, 14
  
Q = 45 + 37
P = 80
  CIRCLE (Q, P), 2 + INT(X / 1.5), 4
  PAINT (Q, P), 4, 4
   CIRCLE (Q, P), 1 + INT(X / 2), 6
  PAINT (Q, P), 6, 6
   CIRCLE (Q, P), 1 + INT(X / 4), 14
  PAINT (Q, P), 14, 14

Q = 45 - 23
P = 80 - 11
  CIRCLE (Q, P), 2 + INT(X / 1.5), 4
  PAINT (Q, P), 4, 4
   CIRCLE (Q, P), 1 + INT(X / 2), 6
  PAINT (Q, P), 6, 6
   CIRCLE (Q, P), 1 + INT(X / 4), 14
  PAINT (Q, P), 14, 14

    FOR HOLD = 1 TO 2000
    NEXT HOLD
NEXT
FOR Y = 60 TO 59 STEP -1

Q = 45 + 47
P = 80 - 13
 CIRCLE (Q, P), 2 + INT(Y / 1.5), 0
  PAINT (Q, P), 0, 0
   CIRCLE (Q, P), 1 + INT(Y / 2), 0
  PAINT (Q, P), 0, 0
   CIRCLE (Q, P), 1 + INT(Y / 4), 0
  PAINT (Q, P), 0, 0

Q = 45 + 37
P = 80
    FOR HOLD = 1 TO 2000
    NEXT HOLD
 CIRCLE (Q, P), 2 + INT(Y / 1.5), 0
  PAINT (Q, P), 0, 0
   CIRCLE (Q, P), 1 + INT(Y / 2), 0
  PAINT (Q, P), 0, 0
   CIRCLE (Q, P), 1 + INT(Y / 4), 0
  PAINT (Q, P), 0, 0

Q = 45 - 23
P = 80 - 11
 CIRCLE (Q, P), 2 + INT(Y / 1.5), 0
  PAINT (Q, P), 0, 0
   CIRCLE (Q, P), 1 + INT(Y / 2), 0
  PAINT (Q, P), 0, 0
   CIRCLE (Q, P), 1 + INT(Y / 4), 0
  PAINT (Q, P), 0, 0
NEXT
PAINT (80, 110), 0, 0
PAINT (60, 90), 0, 0
PAINT (43, 75), 0, 0
PAINT (47, 78), 0, 0
PAINT (50, 85), 0, 0
PAINT (55, 87), 0, 0
RETURN

SUB BULGE2
 LINE (105, 60)-(95, 62), 15
 LINE (95, 62)-(95, 65), 15
 LINE (95, 65)-(105, 67), 15
PAINT (103, 65), 4, 15
PAINT (97, 63), 4, 15
 PSET (102, 63), 1
LINE (170, 35)-(150, 50), 15
LINE (150, 50)-(150, 55), 15
LINE (150, 55)-(160, 65), 15
LINE (160, 65)-(160, 75), 15
LINE (160, 75)-(170, 85), 15
LINE (170, 85)-(160, 95), 15
LINE (160, 95)-(160, 105), 15
LINE (160, 105)-(150, 120), 15
LINE (150, 120)-(120, 110), 15
 LINE (104, 60)-(95, 62), 1
 LINE (95, 62)-(95, 65), 1
 LINE (95, 65)-(104, 67), 1
   SLEEP 2
 PAINT (102, 65), 1, 15
 PAINT (98, 65), 1, 15
 PAINT (165, 60), 1, 15
 PAINT (163, 110), 1, 15
END SUB

SUB CREDITS
CLS
SCREEN 0
PLAY "T190"
PLAY "MB"
PLAY "MBo3 l8 ge"
PLAY "MBl4 g l8 ge l4 g l8 ge"
PRINT
PRINT
PRINT
PRINT
PRINT
COLOR 1:  PRINT " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
COLOR 4:  PRINT " º         OHIO HISTORY WAS ...       º"
COLOR 15: PRINT " º              CREATED,              º"
COLOR 1:  PRINT " º              DESIGNED,             º"
COLOR 4:  PRINT " º         AND PROGRAMMED BY...       º"
COLOR 15: PRINT " º         ALONG WITH GRAPHICS        º"
COLOR 1:  PRINT " º         AND ANIMATION BY...        º"
COLOR 15: PRINT " º                                    º"
COLOR 4:  PRINT " º           JUSTIN UPCHURCH          º"
COLOR 15: PRINT " º              (c) 1999              º"
COLOR 1:  PRINT " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
PLAY "MBgage l4 g l8 ef"
PLAY "MBg l4 f l8 dg l4 f l8 d"
PLAY "MBl2 c."
PLAY "MBo3 l8 ge"
PLAY "MBl4 g l8 ge l4 g l8 ge"
PLAY "MBgage l4 g l8 ef"
PLAY "MBg l4 f l8 dg l4 f l8 d"
PLAY "MBl2 c."
PLAY "MBo3 l8 gg"
PLAY "MB> l4 cc<g. l8 g"
PLAY "MBabca l2 g"
PLAY "MBo4 l8 c l4 c l8 cc<ab>c"
PLAY "MBl2 < b. l8 gg"
PLAY "MBl4 > cc<b. l8 b"
PLAY "MBo3 l8 ab>c<a l4 g l8 ef"
PLAY "MBg l4 f l8 dg l4 f l8 d"
PLAY "MBl2 c. l8 >ge"
PLAY "MBl4 g l8 ge l4 g l8 ge"
PLAY "MBgage l4 g l8 ef"
PLAY "MBo4 g l4 f l8 dg l4 f l8 d "
PLAY "MBl2 c. l8 ge"
PLAY "MBl4 g l8 ge l4 g l8 ge"
PLAY "MBgage l4 g l8 ef"
PLAY "MBo4 g l4 f l8 dg l4 f l8 d "
PLAY "MBl2 c p4 l8 gg"
PLAY "MBo5 l4 cc<g. l8 g"
PLAY "MBab>c<a l2 g"
PLAY "MBo5 l8 c l4 c l8cc<ab>c"
PLAY "MBl2 <b. l8 gg"
PLAY "MBo5 l4 cc<b. l8 b"
PLAY "MBab>c<a l4 g l8 ef"
PLAY "MBg l4 f l8 dg l4 f l8 d "
PLAY "MBl4 c p4 >c"


END SUB

SUB EXPLOSIONS
SCREEN 13
COLOR 1
RANDOMIZE TIMER
FL = 1
813 FOR Z = 1 TO 7
 P = INT(RND * 100) + 50          'Y
 Q = INT(RND * 290)               'X
  FOR X = 0 TO 8
           CIRCLE (Q, P), 2 + INT(X / 1.5), 4
        PAINT (Q, P), 4, 4
        CIRCLE (Q, P), 1 + INT(X / 2), 6
        PAINT (Q, P), 6, 6
        CIRCLE (Q, P), 1 + INT(X / 4), 14
        PAINT (Q, P), 14, 14
        PSET (Q - X, P - Y), 4
        PSET (Q - INT(3 * X / 2), P), 4
        PSET (Q - X, P + Y), 4
        PSET (Q + X, P - Y), 4
        PSET (Q + X, P + Y), 4
        PSET (Q + INT(3 * X / 2), P), 4
      FOR HOLD = 1 TO 1499
      NEXT HOLD
Y = Y + 1
  NEXT
Y = 8
  FOR X = 8 TO 0 STEP -1
        CIRCLE (Q, P), 2 + INT(X / 1.5), 0
        PAINT (Q, P), 0, 0
        CIRCLE (Q, P), 1 + INT(X / 2), 0
        PAINT (Q, P), 0, 0
        CIRCLE (Q, P), 1 + INT(X / 4), 0
        PAINT (Q, P), 0, 0
        PSET (Q + X, P - Y), 0
        PSET (Q + INT(3 * X / 2), P), 0
        PSET (Q + X, P + Y), 0
        PSET (Q - X, P - Y), 0
        PSET (Q - X, P + Y), 0
        PSET (Q - INT(3 * X / 2), P), 0
      FOR HOLD = 1 TO 1499
      NEXT HOLD
Y = Y - 1
  NEXT
Y = 0
Y2 = 0
814 NEXT
FL = FL + 1
IF FL <= 5 THEN 813
END SUB

SUB MAPP
CLS
COLOR 1, 8
V = 1
Q = 15

'       IRELAND
LINE (55, 20)-(65, 25), V, BF
LINE (50, 25)-(60, 30), V, BF
LINE (45, 30)-(55, 35), V, BF
LINE (50, 25)-(55, 20), Q
LINE (55, 35)-(60, 30), Q
LINE (55, 20)-(65, 20), Q
LINE (65, 20)-(65, 25), Q
LINE (65, 25)-(60, 25), Q
LINE (60, 25)-(60, 30), Q
LINE (50, 25)-(50, 29), Q
LINE (50, 29)-(45, 29), Q
LINE (45, 29)-(45, 35), Q
LINE (45, 35)-(55, 35), Q

PAINT (54, 24), V, Q
PAINT (56, 31), V, Q

'       UK
LINE (70, 10)-(75, 5), Q
LINE (75, 5)-(85, 5), Q
LINE (75, 5)-(70, 10), Q
LINE (60, 45)-(70, 45), Q
LINE (60, 45)-(65, 50), Q
LINE (70, 10)-(70, 20), Q
LINE (70, 20)-(75, 20), Q
LINE (85, 5)-(85, 10), Q
LINE (85, 10)-(90, 10), Q
LINE (90, 10)-(90, 15), Q
LINE (90, 15)-(85, 15), Q
LINE (85, 15)-(85, 35), Q
LINE (85, 35)-(90, 35), Q
LINE (90, 35)-(90, 45), Q
LINE (90, 45)-(85, 45), Q
LINE (85, 45)-(85, 50), Q
LINE (85, 50)-(65, 50), Q
LINE (70, 45)-(70, 40), Q
LINE (70, 40)-(65, 40), Q
LINE (65, 40)-(65, 35), Q
LINE (65, 35)-(70, 35), Q
LINE (70, 35)-(70, 30), Q
LINE (70, 30)-(75, 30), Q
LINE (75, 30)-(75, 20), Q
PAINT (72, 15), V, Q

'           SPAIN & PORT.
O = 15
P = 2
LINE (15, 100)-(25, 90), O
LINE (25, 90)-(45, 90), O
LINE (45, 90)-(45, 95), O
LINE (45, 95)-(55, 105), O
LINE (55, 105)-(60, 105), O
LINE (60, 105)-(65, 110), O
LINE (65, 110)-(65, 115), O
LINE (65, 120)-(60, 120), O
LINE (60, 120)-(60, 130), O
LINE (60, 130)-(45, 130), O
LINE (45, 130)-(40, 135), O
LINE (40, 135)-(35, 130), O
LINE (35, 130)-(20, 130), O
LINE (20, 120)-(20, 130), O
LINE (20, 120)-(25, 120), O
LINE (25, 120)-(25, 110), O
LINE (25, 110)-(15, 110), O
LINE (15, 110)-(15, 100), O
LINE (60, 105)-(65, 110), O
LINE (65, 110)-(65, 120), O
   LINE (15, 110)-(15, 115), O
   LINE (15, 115)-(10, 115), O
   LINE (10, 115)-(10, 120), O
   LINE (10, 120)-(20, 125), O
PAINT (35, 125), P, O
   PAINT (20, 115), P, O

'    FRANCE
LINE (65, 120)-(65, 110), O
LINE (65, 110)-(60, 105), O
LINE (60, 105)-(65, 105), O
LINE (65, 105)-(65, 95), O
LINE (65, 95)-(60, 95), O
LINE (60, 95)-(60, 80), O
LINE (85, 65)-(65, 65), O
LINE (65, 65)-(65, 60), O
LINE (65, 60)-(60, 60), O
LINE (60, 60)-(60, 70), O
LINE (60, 70)-(65, 75), O
LINE (65, 75)-(60, 80), O
LINE (85, 65)-(85, 60), O
LINE (85, 60)-(90, 60), O
LINE (65, 120)-(80, 120), O
LINE (80, 120)-(85, 115), O
LINE (85, 115)-(85, 110), O
LINE (85, 110)-(90, 110), O
LINE (90, 110)-(95, 105), O
LINE (95, 105)-(90, 100), O
LINE (90, 100)-(90, 95), O
LINE (90, 95)-(105, 95), O
LINE (100, 70)-(100, 80), O
LINE (90, 50)-(100, 60), O
LINE (100, 80)-(105, 85), O
LINE (90, 50)-(90, 60), O
LINE (80, 120)-(85, 115), O
Q = 4

'     LOW COUNTRIES
LINE (90, 50)-(100, 60), O
LINE (100, 60)-(100, 70), O
LINE (100, 70)-(105, 70), O
LINE (105, 70)-(105, 60), O
LINE (105, 60)-(110, 55), O
LINE (110, 55)-(115, 55), O
LINE (115, 55)-(115, 45), O
LINE (115, 45)-(110, 45), O
LINE (110, 45)-(100, 50), O
LINE (100, 50)-(90, 50), O
PAINT (100, 55), Q, O

'      GERMANY
LINE (115, 45)-(115, 55), O
LINE (115, 45)-(125, 45), O
LINE (105, 85)-(105, 95), O
LINE (140, 45)-(150, 45), O
LINE (125, 45)-(130, 30), O
LINE (130, 30)-(135, 30), O
LINE (135, 30)-(140, 45), O
LINE (150, 45)-(165, 35), O
LINE (165, 35)-(170, 35), O
LINE (170, 35)-(170, 55), O
LINE (170, 55)-(175, 55), O
LINE (175, 80)-(190, 80), O
LINE (175, 80)-(165, 90), O
LINE (110, 105)-(115, 105), O
LINE (175, 55)-(210, 90), O
LINE (195, 75)-(190, 80), O
LINE (165, 90)-(165, 110), O
LINE (165, 110)-(170, 115), O
LINE (170, 115)-(165, 120), O
LINE (165, 120)-(145, 120), O
LINE (145, 120)-(125, 95), O
LINE (125, 95)-(115, 105), O
LINE (110, 105)-(110, 100), O
LINE (110, 100)-(105, 95), O
PAINT (155, 100), Q, O

'    SWISS
LINE (90, 100)-(95, 105), O
LINE (95, 105)-(110, 105), O
PAINT (100, 100), P, O
PAINT (85, 75), Q, O

'       ITALY
LINE (75, 120)-(75, 125), O
LINE (75, 125)-(85, 125), O
LINE (85, 125)-(110, 155), O
LINE (110, 155)-(110, 165), O
LINE (110, 165)-(100, 175), O
LINE (110, 165)-(100, 175), O
LINE (100, 175)-(120, 170), O
LINE (115, 165)-(120, 170), O
LINE (115, 165)-(120, 160), O
LINE (120, 160)-(125, 165), O
LINE (125, 165)-(130, 160), O
LINE (130, 160)-(110, 130), O
LINE (110, 130)-(105, 120), O
LINE (105, 120)-(110, 110), O
LINE (110, 110)-(115, 110), O
LINE (115, 110)-(115, 105), O
PAINT (100, 120), 4, O

'   ISLANDS
LINE (75, 135)-(80, 145), O, B
LINE (75, 150)-(80, 160), O, B
LINE (75, 165)-(95, 185), O
LINE (95, 185)-(95, 175), O
LINE (95, 175)-(75, 165), O
PAINT (85, 173), Q, O
PAINT (77, 140), Q, O
PAINT (77, 155), Q, O

'   YUGOSLAVIA
LINE (115, 110)-(120, 110), O
LINE (120, 110)-(145, 145), O
LINE (145, 145)-(155, 145), O
LINE (155, 145)-(155, 130), O
LINE (155, 130)-(165, 130), O
LINE (165, 130)-(165, 115), O
PAINT (140, 120), Q, O

'   GREECE
LINE (145, 145)-(145, 150), O
LINE (145, 150)-(150, 150), O
LINE (150, 150)-(150, 160), O
LINE (150, 160)-(165, 185), O
LINE (165, 185)-(170, 185), O
LINE (170, 185)-(170, 155), O
LINE (170, 155)-(180, 145), O
LINE (180, 145)-(185, 140), O
LINE (185, 140)-(185, 130), O
LINE (185, 130)-(155, 130), O
PAINT (165, 150), Q, O

'   BULGARIA
LINE (185, 140)-(195, 135), O
LINE (195, 135)-(205, 135), O
LINE (205, 135)-(230, 150), O
LINE (230, 150)-(245, 150), O
LINE (245, 150)-(245, 145), O
LINE (245, 145)-(240, 145), O
LINE (240, 145)-(240, 130), O
LINE (240, 130)-(215, 110), O
LINE (215, 110)-(190, 110), O
LINE (190, 110)-(190, 120), O
LINE (190, 120)-(165, 120), O
LINE (165, 120)-(165, 130), O
PAINT (200, 125), P, O

'  CZECH
LINE (240, 130)-(260, 110), O
LINE (250, 120)-(240, 120), O
LINE (240, 120)-(240, 105), O
LINE (240, 105)-(230, 105), O
LINE (230, 105)-(230, 95), O
LINE (230, 95)-(220, 95), O
LINE (220, 95)-(220, 90), O
LINE (220, 90)-(220, 95), O
LINE (220, 90)-(210, 90), O
LINE (200, 80)-(195, 85), O
LINE (195, 85)-(185, 85), O
LINE (185, 85)-(185, 95), O
LINE (185, 95)-(165, 115), O
PAINT (200, 100), Q, O

'    AUSTRIA
PAINT (175, 95), Q, O

'    RUSSIA
LINE (260, 110)-(275, 110), O
LINE (275, 110)-(290, 120), O
LINE (290, 120)-(295, 110), O
LINE (295, 110)-(310, 110), O
LINE (310, 110)-(325, 120), O
LINE (170, 35)-(180, 45), O
LINE (180, 45)-(185, 45), O
LINE (185, 45)-(190, 40), O
LINE (190, 40)-(205, 40), O
LINE (205, 40)-(215, 30), O
LINE (215, 30)-(220, 30), O
LINE (220, 30)-(235, 15), O
LINE (235, 15)-(240, 15), O
LINE (240, 15)-(240, 25), O
LINE (240, 25)-(250, 25), O
LINE (250, 25)-(250, 20), O
LINE (250, 20)-(245, 10), O
LINE (245, 10)-(255, 0), O
PAINT (250, 100), V, O

'     SWEDEN & FINLAND
LINE (125, 0)-(115, 10), O
LINE (115, 10)-(115, 15), O
LINE (115, 15)-(125, 25), O
LINE (125, 25)-(130, 15), O
LINE (130, 15)-(135, 15), O
LINE (135, 15)-(135, 5), O
LINE (135, 5)-(140, 5), O
LINE (140, 5)-(140, 0), O

'
LINE (150, 0)-(150, 25), O
LINE (150, 25)-(145, 30), O
LINE (145, 30)-(140, 30), O
LINE (140, 30)-(135, 15), O
PAINT (130, 5), P, O
PAINT (145, 5), Q, O

 CIRCLE (112, 153), 12, 1, PI * .1, PI * .73
 CIRCLE (98, 137), 15, 15, PI * .1, PI * .73
 LINE (86, 125)-(105, 150), 15
 LINE (108, 125)-(123, 150), 15
' PAINT (98, 137), 1, 15
END SUB

SUB QUEST1ON
CLS
COLOR 2, 1
PRINT
PRINT "WELCOME GENERAL. IT IS ALMOST TIME FOR  THE RETURN TO EUROPE. WE'LL BE INVADING THE ISLAND OFF ITALY'S TOE. THIS LANDINGWILL BE IN PREPARATION FOR THE INVASION OF THE ITALIAN MAINLAND. WHAT IS THE"
PRINT "NAME OF THE ISLAND?"
PRINT
PRINT "        A. CORSICA"
PRINT "        B. RHODES"
PRINT "        C. SICILY"
PRINT "        D. SARDINIA"
INPUT ISLAND$
IF ISLAND$ <> "C" THEN GOTO 11 ELSE 9990
11 CLS
PRINT
PRINT
PRINT
PRINT
PRINT "YOUR INCOMPETENCE SCARES ME GENERAL, BUTLUCKLY WE CAUGHT YOUR MISTAKE IN TIME.  OUR OBJECTIVE IS ACTUALLY SICILY. DON'T LET THIS HAPPEN AGAIN."
SLEEP 3
9990 END SUB

SUB QUEST4ON
CLS
COLOR 2, 0
PRINT
PRINT
PRINT "WELCOME TO ENGLAND GENERAL. I HEAR YOU  HAD A FAIRLY GOOD TIME DOWN IN ITALY."
PRINT "AS YOU SHOULD KNOW, THE RUSSIANS HAVE   BEEN PRESSING ME, THE SUPREME COMMANDER,"
PRINT "TO OPEN UP A WESTERN FRONT.  WERE'RE    GOING TO DO JUST THAT."
PRINT "WHO IS THE ALLIED SUPREME COMMANDER IN  CHARGE OF THE D-DAY LANDINGS?"
PRINT
PRINT "        A. GEN. BERNARD MONTGOMERY"
PRINT "        B. GEN. GEORGE S. PATTON"
PRINT "        C. GEN. NORMAN SCHWARZKOPF"
PRINT "        D. GEN. DWIGHT D. EISENHOWER"
INPUT COMMANDER$
IF COMMANDER$ <> "D" THEN GOTO 41 ELSE 9994
41 CLS
PRINT
PRINT
PRINT "I'M SURPRISED AT YOU, GENERAL, NOT KNOWING YOUR COMMANDING OFFICER. YOU'RE LUCKY"
PRINT "I'M PATIENT. THE COMMANDER IS DWIGHT D. EISENHOWER. I GUESS YOU'RE NOT AS BRIGHT"
PRINT "AS YOU LOOK."
SLEEP 6
9994 END SUB

SUB QUEST7ON
CLS
COLOR 2, 0
PRINT
PRINT "THE INVASION WAS A HUGE SUCCESS! WE HAVERETURNED TO EUROPE. PARIS AND MUCH OF"
PRINT "FRANCE HAS BEEN LIBERATED. AS IT STANDS,WE HAVE REACHED A STALEMATE AT THE RHINE"
PRINT "RIVER. MONTY IS TRYING AN ATEMPT AT A   BRIDGE IN BELGIUM. HE IS CALLING THIS"
PRINT "OPERATION..."
PRINT
PRINT "         A. LONGSHOT"
PRINT "         B. RHINELAND"
PRINT "         C. MARKET-GARDEN"
PRINT "         D. OVERTHROW"
PRINT
INPUT OP$
IF OP$ <> "C" THEN 71
IF OP$ = "C" THEN 71
71 CLS
PRINT
PRINT "ANYWAYS, IT REALLY DOESN'T MATTER WHAT  THAT ARROGANT BRIT CALLED HIS SCHEME. "
PRINT "HE FAILED MISERABLY. THE 82ND AND 101ST WERE REALLY CHOPPED UP. TWO BRIT GROUPS"
PRINT "WERE BASICALLY DESTROYED. MARKET-GARDEN WAS TERRIBLE."
SLEEP 9
9997 END SUB

SUB QUEST8ON
CLS
COLOR 2, 0
PRINT
PRINT "AS THE SITUATION NOW STANDS, PATTON'S,  BRADLEY'S AND MONTY'S DRIVES HAVE ALL"
PRINT "GROUND TO A HALT, MAINLY DO TO SUPPLY   PROBLEMS AND POCKETS OF RESISTANCE. IT"
PRINT "APPEARS THE GERMANS ARE LAUNCHING AN    OFFENSIVE THROUGH THE ARDENNES IN"
PRINT "BELGIUM. WE MUST QUICKLY CRUSH THIS     ASSAULT BECAUSE CASUALTIES ARE MOUNTING."
PRINT
PRINT "WHEN DID THIS 'BATTLE OF THE BULGE'     BEGIN?"
PRINT "       A. DECEMBER 16"
PRINT "       B. DECEMBER 24"
PRINT "       C. DECEMBER 25"
PRINT "       D. JANUARY 1"
PRINT
INPUT BB$
IF BB$ <> "A" THEN 81 ELSE 9998
81 CLS
PRINT
PRINT "YOUR CONFUSION IS DISCOMFORTING, THOUGH WELL PLACED. IT WAS A SURPRISE OFFENSIVE"
PRINT "TO EVERYONE. JUST NEXT TIME, TRY TO STAYSHARPER. RIGHT NOW, THOUGH, THERE ARE"
PRINT "MORE PRESSING MATTERS."
SLEEP 8
9998 END SUB

SUB TAPS
PLAY "MB<GMSGML>CCC<GMS>C"
PLAY "MBMLEEE<GMS>CMLE<G>C"
PLAY "MBMLE<GMS>C"
PLAY "MBMLEEE<G>CMLGGG<E"
PLAY "MBCML<GGG"
PLAY "MBP3MLGGMS>CMLCCC"
END SUB