' ******************
' **   EUROQUIZ   **
' **      BY      **
' **  JAMES PAGE  **
' ******************
' *    26/4/89     *
' ******************

  CLEAR :CLS :SCREEN #1 GRAPHICS 8000 FIXED, 5000 FIXED
  USER SPACE 8000,5000
  WINDOW #1 FULL ON
  WINDOW #1 TITLE "E U R O Q U I Z  James Page '89"
  SET MODE 1: CLS
  REM variables
  DIM a(54),b(54),c$(54),cs(1 TO 5),cts$(1 TO 5),c(1 TO 26),cu$(1 TO 26)
  anycol=1:maxco1=10:maxco2=10:sh=8:hsc1=0:hsc2=0:sc1=0:sc2=0
  GOSUB citdata
  GOSUB welcome
  END

LABEL welcome
  GOSUB backg1
  BOX 125;250,7750,4500 COLOUR 4 ROUNDED FILL WITH 8
  BOX 250;3250,7500,1375 COLOUR 1 FILL WITH 8
  SET FONT 2 POINTS 36 COLOUR 6 EFFECTS 1
  MOVE 1937.5;4000:PRINT "E U R O Q U I Z"
  SET FONT 2 POINTS 18 COLOUR 6 EFFECTS 1
  MOVE 2187.5;3625:PRINT "For PCPLUS by James Page"
  t=450: x=12.5: y=3500: s=12.5: flag_gate=1
  GOSUB portugal
  t=6575: x=12.5: y=3500: s=12.5
  GOSUB portugal
  flag_gate=0
2 BOX 250;375,7500,2500 COLOUR 1 FILL WITH 8
  SET FONT 2 POINTS 14 COLOUR 5 EFFECTS 1
  MOVE 625;3000:PRINT "Countries HiScore ";hsc1
  MOVE 5000;3000:PRINT "Cities HiScore ";hsc2
  SET FONT 2 POINTS 18 COLOUR 0 EFFECTS 1
  MOVE 2437.5;2375:PRINT "1.. European Countries"
  MOVE 2437.5;2050:PRINT "2.. European Cities"
  MOVE 2437.5;1725:PRINT "3.. Instructions"
  MOVE 2437.5;1400:PRINT "4.. Change Settings"
  MOVE 2437.5;1075:PRINT "5.. Return to Basic2"
  SET FONT 3 POINTS 18 COLOUR 6 EFFECTS 1
  MOVE 2062.5;625:PRINT "Please choose an option (1 to 5)"


LABEL again
  uopt$=INKEY$
  IF uopt$="1" THEN PRINT #2 CHR$(7):GOSUB ecoun: GOTO welcome
  IF uopt$="2" THEN PRINT #2 CHR$(7):GOSUB eciti: GOTO welcome
  IF uopt$="3" THEN PRINT #2 CHR$(7):GOSUB inst:GOTO 2
  IF uopt$="4" THEN PRINT #2 CHR$(7):GOSUB settings:GOTO 2
  IF uopt$="5" THEN PRINT #2 CHR$(7):RETURN
  GOTO again

LABEL ecoun
  CLS
  count=0
  sc=0 :sh=8: t=175 :x=68.75: y=250: x1=1.8 :s=62.5
  GOSUB backg1: GOSUB backg2
  flag_gate=1:GOSUB portugal:flag_gate=0
4 GOSUB cfind
  count=count+1
  sc1=sc:IF sc1>hsc1 THEN hsc1=sc1
  IF count >= maxco1 THEN GOSUB score1:CLS: RETURN
  GOTO 4

LABEL eciti
  CLS
  count=0
  sc=0 :sh=8: t=175 :x=68.75: y=250 :s=62.5
REM   sc=0 :sh=8: t=14 :x=5.5: y=10: x1=1.8 :s=2.5
  GOSUB backg1:GOSUB backg2
  flag_gate=1:GOSUB portugal:flag_gate=0
  GOSUB plotcit
5 GOSUB randcit
  count=count+1
  sc2=sc:IF sc2>hsc2 THEN hsc2=sc2
  IF count >= maxco2 THEN GOSUB score2:CLS: RETURN
  GOTO 5

LABEL inst
  anyup=500
  SET FONT 3 POINTS 18 COLOUR 6 EFFECTS 1
  BOX 250;375,7500,2500 COLOUR 1 FILL WITH 8
  MOVE 437.5;2500:PRINT "Instructions"
  MOVE 437.5;2000:PRINT "Euroquiz will test your knowledge of the countries"
  MOVE 437.5;1750:PRINT "and cities of Europe."
  MOVE 437.5;1250:PRINT "In the Countries option (1), a country is selected"
  MOVE 437.5;1000:PRINT "randomly (flashes), and you are given five"
  MOVE 437.5;750:PRINT "country names from which to pick the correct one."
  GOSUB anykey
  SET FONT 3 POINTS 18 COLOUR 6 EFFECTS 1
  BOX 250;375,7500,2500 COLOUR 1 FILL WITH 8
  MOVE 437.5;2500:PRINT "When selecting option 2, you will be tested on the"
  MOVE 437.5;2250:PRINT "cities of Europe."
  MOVE 437.5;1750:PRINT "A city is randomly selected by ""+"" on the map, and"
  MOVE 437.5;1500:PRINT "you will be given five city names to choose the"
  MOVE 437.5;1250:PRINT "correct city from, marked by the cross."
  GOSUB anykey
  SET FONT 3 POINTS 18 COLOUR 6 EFFECTS 1
  BOX 250;375,7500,2500 COLOUR 1 FILL WITH 8
  MOVE 437.5;2500:PRINT "To select a country or city name, you use the"
  MOVE 437.5;2250:PRINT "cursor keys to move up and down through the list"
  MOVE 437.5;2000:PRINT "and highlight one of the names."
  MOVE 437.5;1500:PRINT "To select your answer, you press the HOME key. "
  MOVE 437.5;1250:PRINT "If the up and down selection doesn't work, press"
  MOVE 437.5;1000:PRINT "the CTRL key once, and try again."
  MOVE 437.5;750:PRINT "Note: The NUMLOCK key must always be lit.
  GOSUB anykey
  RETURN

LABEL settings
  SET FONT 3 POINTS 18 COLOUR 6 EFFECTS 1
  BOX 250;375,7500,2500 COLOUR 1 FILL WITH 8
  MOVE 437.5;2500:PRINT "Change Settings"
  MOVE 437.5;2000:PRINT "Number of goes for Countries option is ";maxco1
  MOVE 437.5;1750:PRINT "Number  of  goes  for Cities  option  is ";maxco2
  MOVE 437.5;1250:PRINT "1 . . Change countries   2 . . Change cities   3 . . Exit"
LABEL getgo
  i$=INKEY$
  IF i$="1" THEN GOSUB getco1:GOTO settings
  IF i$="2" THEN GOSUB getco2:GOTO settings
  IF i$="3" THEN RETURN
  GOTO getgo

LABEL getco1
  MOVE 437.5;1000:PRINT "Use up/down to change number of goes. HOME selects"
  MOVE 437.5;500:PRINT "Countries = ";maxco1
  i$=INKEY$
  IF i$="" THEN GOTO getco1
  IF i$="8" AND maxco1 < 99 THEN maxco1=maxco1 + 1
  IF i$="2" AND maxco1 > 1 THEN maxco1=maxco1 - 1
  IF i$="7" THEN  RETURN
  BOX 2000;500,375,250 COLOUR 1 FILL WITH 8
  GOTO getco1

LABEL getco2
  MOVE 437.5;1000:PRINT "Use up/down to change number of goes. HOME selects "
  MOVE 437.5;500:PRINT "Cities =    ";maxco2
  i$=INKEY$
  IF i$="" THEN GOTO getco2
  IF i$="8" AND maxco2 < 99 THEN maxco2=maxco2 + 1
  IF i$="2" AND maxco2 > 1 THEN maxco2=maxco2 - 1
  IF i$="7" THEN  RETURN
  BOX 1875;500,375,250 COLOUR 1 FILL WITH 8
  GOTO getco2

LABEL score1
  SET FONT 2 POINTS 36 COLOUR 6 EFFECTS 1
  BOX 87.5;1000,7875,1175 COLOUR 2 ROUNDED FILL WITH 8
  BOX 87.5;1000,7875,1175 COLOUR 1 ROUNDED
  MOVE 437.5;1375:PRINT "You scored";sc;"out of";maxco1
  anyup=1125
  GOSUB anykey
  RETURN

LABEL score2
  SET FONT 2 POINTS 36 COLOUR 6 EFFECTS 1
  BOX 87.5;1000,7875,1175 COLOUR 2 ROUNDED FILL WITH 8
  BOX 87.5;1000,7875,1175 COLOUR 1 ROUNDED
  MOVE 437.5;1375:PRINT "You scored ";sc;" out of ";maxco2
  anyup=1125
  GOSUB anykey
  RETURN

LABEL anykey
  SET FONT 3 POINTS 14 COLOUR anycol
  MOVE 500;anyup:PRINT "Please press any key to continue"
  anycol=anycol+1:IF anycol>=14 THEN anycol=1
  IF INKEY$="" THEN GOTO anykey
  RETURN

LABEL backg1
   BOX 0;0,8000,5000 COLOUR 2 FILL WITH 8
   SET MODE 4
   BOX 0;0,8000,5000 COLOUR 1 FILL WITH 27
   SET MODE 2
   RETURN

LABEL backg2
   BOX 125;250,5000,4500 COLOUR 4  ROUNDED FILL WITH 8
   BOX 125;250,5000,4500 COLOUR 1 ROUNDED
   BOX 5437.5;250,2437.5,4500 COLOUR 2 ROUNDED FILL WITH 8
   BOX 5437.5;250,2437.5,4500 COLOUR 1 ROUNDED
   BOX 5562.5;4000,2212.5,500 COLOUR 6 FILL WITH 8
   BOX 5562.5;1625,2212.5,2000 COLOUR 6 FILL WITH 8
   BOX 5562.5;950,2187.5,350 COLOUR 4 FILL WITH 8
   SET MODE 3:SET FONT 2 POINTS 28 COLOUR 7 EFFECTS 5
   MOVE 5662.5;4100:PRINT ;"PC PLUS"
   SET MODE 1
   RETURN

LABEL portugal
SHAPE 3*x+t;9*s+y,4*x+t;12*s+y,3*x+t;13*s+y,7*x+t;19*s+y,10*x+t;18*s+y,5*x+t;9*s+y,3*x+t;9*s+y COLOUR c(1) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL spain
SHAPE 7*x+t;19*s+y,7*x+t;23*s+y,10*x+t;23*s+y,26*x+t;15*s+y,25*x+t;13*s+y,20*x+t;11*s+y,18*x+t;7*s+y,13*x+t;4*s+y,10*x+t;5*s+y,8*x+t;4*s+y,6*x+t;8*s+y,5*x+t;9*s+y,10*x+t;18*s+y,7*x+t;19*s+y COLOUR c(2) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL italy
SHAPE 33*x+t;18*s+y,38*x+t;14*s+y,38*x+t;11*s+y,46*x+t;5*s+y,46*x+t;3*s+y,45*x+t;1*s+y,47*x+t;1*s+y,51*x+t;7*s+y,45*x+t;10*s+y,41*x+t;17*s+y,43*x+t;18*s+y,45*x+t;22*s+y,40*x+t;23*s+y,35*x+t;20*s+y,33*x+t;21*s+y,33*x+t;18*s+y COLOUR c(3) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL france
SHAPE 20*x+t;18*s+y,19*x+t;26*s+y,16*x+t;30*s+y,21*x+t;32*s+y,26*x+t;31*s+y,29*x+t;33*s+y,30*x+t;32*s+y,33*x+t;32*s+y,37*x+t;27*s+y,32*x+t;23*s+y,33*x+t;21*s+y,33*x+t;18*s+y,26*x+t;15*s+y,20*x+t;18*s+y COLOUR c(4) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL switzerland
SHAPE 33*x+t;21*s+y,32*x+t;23*s+y,35*x+t;25*s+y,40*x+t;23*s+y,35*x+t;20*s+y,33*x+t;21*s+y COLOUR c(5) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL belgium
SHAPE 33*x+t;32*s+y,30*x+t;32*s+y,29*x+t;33*s+y,33*x+t;37*s+y,33*x+t;32*s+y COLOUR c(6) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL germany
SHAPE 33*x+t;36*s+y,40*x+t;41*s+y,44*x+t;39*s+y,45*x+t;32*s+y,42*x+t;30*s+y,45*x+t;27*s+y,40*x+t;23*s+y,35*x+t;25*s+y,37*x+t;27*s+y,33*x+t;32*s+y,33*x+t;36*s+y COLOUR c(7) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL holland
SHAPE 36*x+t;38*s+y,33*x+t;38*s+y,33*x+t;36*s+y COLOUR c(8) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL austria
SHAPE 45*x+t;27*s+y,49*x+t;27*s+y,50*x+t;25*s+y,47*x+t;22*s+y,45*x+t;22*s+y,40*x+t;23*s+y,45*x+t;27*s+y COLOUR c(9) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL yugoslavia
SHAPE 43*x+t;18*s+y,45*x+t;22*s+y,47*x+t;22*s+y,50*x+t;20*s+y,54*x+t;20*s+y,58*x+t;15*s+y,58*x+t;8*s+y,55*x+t;11*s+y,53*x+t;12*s+y,51*x+t;10*s+y,43*x+t;18*s+y COLOUR c(10) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL albania
SHAPE 53*x+t;12*s+y,55*x+t;11*s+y,58*x+t;8*s+y,55*x+t;6*s+y,53*x+t;8*s+y,53*x+t;12*s+y COLOUR c(11) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL greece
SHAPE 55*x+t;6*s+y,56*x+t;8*s+y,58*x+t;9*s+y,61*x+t;11*s+y,68*x+t;11*s+y,65*x+t;8*s+y,60*x+t;7*s+y,61*x+t;3*s+y,58*x+t;1*s+y,55*x+t;6*s+y COLOUR c(12) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL rumania
SHAPE 58*x+t;15*s+y,54*x+t;20*s+y,59*x+t;26*s+y,60*x+t;25*s+y,64*x+t;26*s+y,68*x+t;19*s+y,63*x+t;15*s+y COLOUR c(13) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL czechoslovakia
SHAPE 51*x+t;24*s+y,57*x+t;28*s+y,45*x+t;32*s+y,42*x+t;30*s+y,45*x+t;27*s+y,49*x+t;27*s+y,50*x+t;25*s+y,51*x+t;24*s+y COLOUR c(14) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL poland
SHAPE 57*x+t;28*s+y,62*x+t;37*s+y,60*x+t;40*s+y,55*x+t;40*s+y,52*x+t;38*s+y,51*x+t;40*s+y,44*x+t;39*s+y,45*x+t;32*s+y COLOUR c(15) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL denmark
SHAPE 41*x+t;40*s+y,41*x+t;43*s+y,39*x+t;43*s+y,38*x+t;40*s+y,40*x+t;41*s+y COLOUR c(16) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL sweden
SHAPE 46*x+t;42*s+y,53*x+t;52*s+y,52*x+t;58*s+y,58*x+t;64*s+y,56*x+t;68*s+y,49*x+t;64*s+y,43*x+t;47*s+y COLOUR c(17) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL norway
SHAPE 43*x+t;47*s+y,40*x+t;46*s+y,37*x+t;48*s+y,37*x+t;54*s+y,49*x+t;64*s+y COLOUR c(18) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL uk
SHAPE 27*x+t;34*s+y,25*x+t;35*s+y,28*x+t;37*s+y,25*x+t;46*s+y,27*x+t;48*s+y,25*x+t;46*s+y,27*x+t;48*s+y,25*x+t;50*s+y,27*x+t;51*s+y,23*x+t;51*s+y,21*x+t;44*s+y,23*x+t;44*s+y,23*x+t;40*s+y,21*x+t;41*s+y,21*x+t;37*s+y,17*x+t;35*s+y COLOUR c(19) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL eire
SHAPE 19*x+t;41*s+y,16*x+t;39*s+y,13*x+t;41*s+y,15*x+t;47*s+y,19*x+t;47*s+y,18*x+t;45*s+y,19*x+t;43*s+y COLOUR c(20) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL nire
SHAPE 19*x+t;47*s+y,18*x+t;45*s+y,19*x+t;43*s+y,20*x+t;45*s+y COLOUR c(21) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL iceland
SHAPE 18*x+t;64*s+y,15*x+t;66*s+y,17*x+t;69*s+y,21*x+t;67*s+y,21*x+t;65*s+y COLOUR c(22) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL bulgaria
SHAPE 68*x+t;19*s+y,66*x+t;14*s+y,68*x+t;11*s+y,58*x+t;9*s+y,58*x+t;15*s+y,63*x+t;15*s+y,68*x+t;19*s+y COLOUR c(23) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL finland
SHAPE 58*x+t;64*s+y,59*x+t;62*s+y,56*x+t;58*s+y,58*x+t;52*s+y,67*x+t;58*s+y,60*x+t;70*s+y,56*x+t;68*s+y COLOUR c(24) FILL WITH sh
IF flag_gate =0 THEN RETURN
LABEL hungary
SHAPE 47*x+t;22*s+y,50*x+t;25*s+y,51*x+t;24*s+y,57*x+t;28*s+y,59*x+t;26*s+y,54*x+t;20*s+y,50*x+t;20*s+y COLOUR c(25) FILL WITH sh
IF flag_gate=0 THEN RETURN
LABEL russia
SHAPE 55*x+t;40*s+y,57*x+t;45*s+y,67*x+t;58*s+y,63*x+t;65*s+y,71.5*x+t;63*s+y,71.5*x+t;21*s+y,68*x+t;19*s+y,64*x+t;26*s+y,60*x+t;25*s+y,57*x+t;28*s+y,62*x+t;37*s+y,60*x+t;40*s+y COLOUR c(26) FILL WITH sh
RETURN
LABEL plotcit
   FOR n=1 TO 54
   PLOT a(n)*x+t;b(n)*s+y COLOUR 1
   NEXT n
RETURN

LABEL citdata
   RESTORE thedat
   FOR n=1 TO 54
   READ c$(n)
   READ a(n)
   READ b(n)
   NEXT n
   RESTORE coldat
   FOR n=1 TO 26
   READ c(n)
   NEXT n
   RESTORE cundat
   FOR n=1 TO 26
   READ cu$(n)
   NEXT n
RETURN


LABEL randcit
   n=1
   WINDOW CURSOR OFF
   BOX 5625;3750,2125,250 COLOUR 2 FILL WITH 8
   SET MODE 2:SET FONT 1 POINTS 14 COLOUR 5 EFFECTS 1:MOVE 5625;3750: PRINT "Scored ";sc;" of ";count
   BOX 5565.2;1500,2212.5,2125 COLOUR 6 FILL WITH 8
45 rn=INT (RND*54)+1
   IF rn >50 THEN GOTO 45
55 FOR m=rn TO rn+5
   cts$(n)=c$(m)
   n=n+1: IF n>5 THEN GOTO 60
   NEXT m
60 SET FONT 2 POINTS 18 COLOUR 4 EFFECTS 1
   ad=INT (RND*5)+1
   FOR n=1 TO 5
   MOVE 5687.5;3625-n*400 :PRINT cts$(n)
   NEXT n

LABEL getcho
   SET COLOUR 0
   GRAPHICS CURSOR 1
   ud=1: col=1
70 SET COLOUR 1 :MOVE 5687.5;3625-ud*400 :PRINT cts$(ud)
   MOVE a(rn+ad-1)*x+t;b(rn+ad-1)*s+y
   WINDOW CURSOR ON
LABEL wait
   WINDOW CURSOR ON
   FOR tim=1 TO 600:NEXT tim
   WINDOW CURSOR OFF
   FOR tim=1 TO 600:NEXT tim
   i$=INKEY$
REM   IF i$="" THEN GOTO wait
   IF i$="2" AND ud <5 THEN ud=ud+1
   IF i$="8" AND ud >1 THEN ud=ud-1
   IF i$="7" THEN GOSUB checkit:RETURN
   IF ud>1 THEN WINDOW CURSOR OFF :SET COLOUR 4: MOVE 5687.5;3625-(ud-1)*400 :PRINT cts$(ud-1)
   IF ud<5 THEN WINDOW CURSOR OFF :SET COLOUR 4: MOVE 5687.5;3625-(ud+1)*400 :PRINT cts$(ud+1)
   SET COLOUR 3 :MOVE 5687.5;3625-ud*400 :PRINT cts$(ud)
   GOTO 70

LABEL checkit
   SET FONT 2 POINTS 20 COLOUR 7 EFFECTS 1
   IF ud=ad THEN MOVE 5725;1000 :PRINT "CORRECT":sc=sc+1 ELSE MOVE 5725;1000 :PRINT "WRONG"
   WINDOW CURSOR OFF
   SET FONT 2 POINTS 10 COLOUR 6 EFFECTS 1
   MOVE 5650;750: PRINT "P R E S S  A N Y  K E Y"
90 IF INKEY$="" THEN GOTO 90
   SET FONT 2 POINTS 10 COLOUR 2 EFFECTS 1
   MOVE 5650;750: PRINT "P R E S S  A N Y  K E Y"
   BOX 5687.5;950,1937.5,350 COLOUR 4 FILL WITH 8
   RETURN

LABEL cfind
   n=1
   WINDOW CURSOR OFF
   BOX 5625;3750,2125,250 COLOUR 2 FILL WITH 8
   SET MODE 2:SET FONT 1 POINTS 14 COLOUR 5 EFFECTS 1:MOVE 5625;3750: PRINT "Scored ";sc;" of ";count
   BOX 5562.5;1500,2212.5,2125 COLOUR 6 FILL WITH 8
   46 cr=INT (RND*26)+1
   IF cr >22 THEN GOTO 46
   56 FOR m=cr TO cr+5
   cts$(n)=cu$(m)
   n=n+1: IF n>5 THEN GOTO 61
   NEXT m
61 SET FONT 2 POINTS 18 COLOUR 4 EFFECTS 1
   ad=INT (RND*5)+1
   FOR n=1 TO 5
   MOVE 5687.5;3625-n*400 :PRINT cts$(n)
   NEXT n
   ud=1: col=1
71 SET COLOUR 1 :MOVE 5687.5;3625-ud*400 :PRINT cts$(ud)
   i$=INKEY$
   IF i$="2" AND ud <5 THEN ud=ud+1
   IF i$="8" AND ud >1 THEN ud=ud-1
   IF i$="7" THEN GOSUB checkit:RETURN
   IF ud>1 THEN SET COLOUR 4: MOVE 5687.5;3625-(ud-1)*400 :PRINT cts$(ud-1)
   IF ud<5 THEN SET COLOUR 4: MOVE 5687.5;3625-(ud+1)*400 :PRINT cts$(ud+1)
100 tc=c(cr+ad-1)
   c(cr+ad-1)=1
   ON cr+ad-1 GOSUB portugal,spain,italy,france,switzerland,belgium,germany,holland,austria,yugoslavia,albania,greece,rumania,czechoslovakia,poland,denmark,sweden,norway,uk,eire,nire,iceland,bulgaria,finland,hungary,russia
   c(cr+ad-1)=tc
   ON cr+ad-1 GOSUB portugal,spain,italy,france,switzerland,belgium,germany,holland,austria,yugoslavia,albania,greece,rumania,czechoslovakia,poland,denmark,sweden,norway,uk,eire,nire,iceland,bulgaria,finland,hungary,russia
   SET COLOUR 3 :MOVE 5687.5;3625-ud*400 :PRINT cts$(ud)
   GOTO 71

LABEL thedat
DATA "Glasgow",22.7,46,"Edinburgh",24.4,46,"Liverpool",23.4,40
DATA "Manchester",24.2,40.3,"Birmingham",23,37,"London",25,35
DATA "Belfast",19.2,45,"Dublin",18,42,"Hull",26.3,40.5
DATA "Amsterdam",34.8,37.8,"Hague",33.6,37,"Brussels",31.4,34
DATA "Paris",28,29,"Lyons",29,20,"Marseilles",29,17
DATA "Bordeaux",21.5,20,"Madrid",14,13,"Barcelona",23,17
DATA "Seville",8.6,7.5,"Valencia",18,8,"Oporto",7,17.5
DATA "Lisbon",4.5,13,"Oslo",42,48,"Stockholm",51.6,51
DATA "Helsinki",60,53.7,"Hamburg",40,39,"Berlin",43,37
DATA "Frankfurt",38,30,"Stuttgart",38,26,"Munich",41,25
DATA "Bern",34,23,"Vienna",48.4,25,"Milan",37,19
DATA "Turin",34,19,"Genoa",37,16,"Venice",43,20
DATA "Naples",44,7.7,"Rome",42,9.2,"Florence",40,15
DATA "Belgrade",53,18,"Trieste",44.5,19,"Budapest",52.5,24
DATA "Bucharest",63,16,"Sofia",59,13,"Athens",60,4
DATA "Warsaw",57,36,"Lodz",54,34,"Krakow",55,31,"Reykjavik",17,66
DATA "Riga",57,45,"Leningrad",65,52,"Minsk",65,38
DATA "Kiev",68,30,"Odessa",69,20

LABEL coldat
DATA 6,2,7,3,5,6,8,7,6,3,7,2,7,15,6,6,7,11,7,3,7,15,8,6,8,3

LABEL cundat
DATA "Portugal","Spain","Italy","France","Switzerland","Belgium"
DATA "Germany","Holland","Austria","Yugoslavia","Albania"
DATA "Greece","Rumania","Czech'vakia","Poland","Denmark"
DATA "Sweden","Norway","Britain","Eire","N Ireland","Iceland"
DATA "Bulgaria","Finland","Hungary","Russia"