DP Tool Club 12/CD_ASCQ_12_0294.iso/vrac/uknet1.zip/UKNET1.AAF

Text File | 1994-01-14 | 97KB | 5,083 lines

;ATC Net Variables
;--------------------------------------------------------
;A - Heading to current fix
;B - Constant = 10
;C - Constant = 180
;D - Radial from current fix
;E - Error between current radial D and reciprical course R
;F - 0/1/2/3 denote altitude assignment number
;G - Last assigned altitude
;H - Last ATC command reference number
;I - Previous center reference number
;J - Current center reference number
;K - Enroute altitude
;L - Last assigned heading
;M - Error between current heading assignment A and last heading
;    assignment L
;N - Last ATC command parameter (altitude, heading, etc..)
;O - Error between current altitude and assigned altitude
;P - Reference number of VOR currently being tracked (enroute phase)
;    0/1/2 landing clearance flags (approach phase)
;Q - 0/1 Fix initial tracking flag
;R - Reciprical course
;S - Difference between current heading and new heading A
;T - Departing runway (departure phase), 0/1 TOD (enroute phase)
;U - Temporary variable.  Constant = 5 during APP phase.
;V - 0/1 Center initial contact flag
;W - Non-zero when entering new center control zone
;X - No. times through "airspeed" check
;Y - No. times through "altitude" check
;Z - 0/1 Tuned to correct frequency

flightplan:
  setvar(b,10)
  setvar(p,0)
  setvar(q,0)
  setvar(v,0)
  setvar(i,20)
  setvar(j,15)
  setvar(k,10000)
  print "D - Choose destination only   R - Defined flight route"
  if key("r")
    goto pre1
  endif
  if key("d")
    goto dest1
  endif
  goto flightplan

GKKtoGGD:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub MIDVOR
  endif
  if vartest(p,1,1)
    gosub WODNDB
  endif
  if vartest(p,2,2)
    gosub CPTVOR
  endif
  if vartest(p,3,3)
    gosub ALVINFIX
  endif
  gosub GGDbegin
  goto GKKtoGGD

pre1:
  print "A - GKK to GGD   B - Next   / - Main Menu"
  if key("a")
    setposition(18513.0022,13718.8826,0)
    setvar(k,7000)
    gosub GKKdeparture
    setvar(t,0)
    goto GKKtoGGD
  endif
  if key("b")
    goto pre2
  endif
  if key("/")
    goto flightplan
  endif
  goto pre1

GBBtoGKK:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub HONVOR
  endif
  if vartest(p,1,1)
    gosub MIDVOR
  endif
  gosub GKKbegin
  goto GBBtoGKK

pre2:
  print "A - GBB to GKK   B - Next   / - Main Menu"
  if key("a")
    setposition(19125.4616,13372.0173,0)
    setvar(k,12000)
    gosub GBBdeparture
    setvar(t,0)
    goto GBBtoGKK
  endif
  if key("b")
    goto pre3
  endif
  if key("/")
    goto flightplan
  endif
  goto pre2

GKKtoGBB:
  gosub centercheck
  gosub error
  if cylinder(19127,13369,0,55)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,8000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub MIDVOR
  endif
  if vartest(p,1,1)
    gosub WCONDB
  endif
  if vartest(p,2,2)
    gosub DTYVOR
  endif
  if vartest(p,3,3)
    gosub HONVOR
  endif
  gosub GBBbegin
  goto GKKtoGBB

pre3:
  print "A - GKK to GBB   B - Next   / - Main Menu"
  if key("a")
    setposition(18513.0022,13718.8826,0)
    setvar(k,11000)
    gosub GKKdeparture
    setvar(t,0)
    goto GKKtoGBB
  endif
  if key("b")
    goto pre4
  endif
  if key("/")
    goto flightplan
  endif
  goto pre3

GBBtoGLL:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub HONVOR
  endif
  if vartest(p,1,1)
    gosub WCONDB
  endif
  if vartest(p,2,2)
    gosub BNNVOR
  endif
  gosub GLLbegin
  goto GBBtoGLL

pre4:
  print "A - GBB to GLL   B - Next   / - Main Menu"
  if key("a")
    setposition(19125.4616,13372.0173,0)
    setvar(k,9000)
    gosub GBBdeparture
    setvar(t,0)
    goto GBBtoGLL
  endif
  if key("b")
    goto pre5
  endif
  if key("/")
    goto flightplan
  endif
  goto pre4

GLLtoGBB:
  gosub centercheck
  gosub error
  if cylinder(19127,13369,0,50)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,10000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub BPKVOR
  endif
  if vartest(p,1,1)
    gosub DTYVOR
  endif
  if vartest(p,2,2)
    gosub HONVOR
  endif
  gosub GBBbegin
  goto GLLtoGBB

pre5:
  print "A - GLL to GBB   B - Next   / - Main Menu"
  if key("a")
    setposition(18657.3714,13656.6998,0)
    setvar(k,13000)
    gosub GLLdeparture
    setvar(t,0)
    goto GLLtoGBB
  endif
  if key("b")
    goto pre6
  endif
  if key("/")
    goto flightplan
  endif
  goto pre5

GKKtoGJJ:
  gosub centercheck
  gosub error
  if cylinder(17749,13049,0,60)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,10000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub MIDVOR
  endif
  if vartest(p,1,1)
    gosub SAMVOR
  endif
  if vartest(p,2,2)
    gosub ORTACFIX
  endif
  if vartest(p,3,3)
    gosub JSYVOR
  endif
  gosub GJJbegin
  goto GKKtoGJJ

pre6:
  print "A - GKK to GJJ   B - Next   / - Main Menu"
  if key("a")
    setposition(18513.0022,13718.8826,0)
    setvar(k,15000)
    gosub GKKdeparture
    setvar(t,0)
    goto GKKtoGJJ
  endif
  if key("b")
    goto pre7
  endif
  if key("/")
    goto flightplan
  endif
  goto pre6

GJJtoGKK:
  gosub centercheck
  gosub error
  if cylinder(18660,13565,0,60)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,10000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub ANGLAFIX
  endif
  if vartest(p,1,1)
    gosub ORTACFIX
  endif
  if vartest(p,2,2)
    gosub MIDVOR
  endif
  gosub GKKbegin
  goto GJJtoGKK

pre7:
  print "A - GJJ to GKK   B - Next   / - Main Menu"
  if key("a")
    setposition(17748.1495,13051.0154,0)
    setvar(k,14000)
    gosub GJJdeparture
    setvar(t,0)
    goto GJJtoGKK
  endif
  if key("b")
    goto pre8
  endif
  if key("/")
    goto flightplan
  endif
  goto pre7

GGDtoGKK:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub CPTVOR
  endif
  if vartest(p,1,1)
    gosub WODNDB
  endif
  if vartest(p,2,2)
    gosub MIDVOR
  endif
  gosub GKKbegin
  goto GGDtoGKK

pre8:
  print "A - GGD to GKK   B - Next   / - Main Menu"
  if key("a")
    setposition(18704.9454,13047.5997,0)
    setvar(k,8000)
    gosub GGDdeparture
    setvar(t,0)
    goto GGDtoGKK
  endif
  if key("b")
    goto pre9
  endif
  if key("/")
    goto flightplan
  endif
  goto pre8

GLLtoGGD:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub WODNDB
  endif
  if vartest(p,1,1)
    gosub CPTVOR
  endif
  if vartest(p,2,2)
    gosub BCNVOR
  endif
  gosub GGDbegin
  goto GLLtoGGD

pre9:
  print "A - GLL to GGD   B - Next   / - Main Menu"
  if key("a")
    setposition(18657.3714,13656.6998,0)
    setvar(k,9000)
    gosub GLLdeparture
    setvar(t,0)
    goto GLLtoGGD
  endif
  if key("b")
    goto pre10
  endif
  if key("/")
    goto flightplan
  endif
  goto pre9

GGDtoGLL:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub CPTVOR
  endif
  if vartest(p,1,1)
    gosub WODNDB
  endif
  gosub GLLbegin
  goto GGDtoGLL

pre10:
  print "A - GGD to GLL   B - Next   / - Main Menu"
  if key("a")
    setposition(18704.9454,13047.5997,0)
    setvar(k,9000)
    gosub GGDdeparture
    setvar(t,0)
    goto GGDtoGLL
  endif
  if key("b")
    goto pre11
  endif
  if key("/")
    goto flightplan
  endif
  goto pre10

GGDtoGBB:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub BCNVOR
  endif
  if vartest(p,1,1)
    gosub CHELTFIX
  endif
  if vartest(p,2,2)
    gosub HONVOR
  endif
  gosub GBBbegin
  goto GGDtoGBB

pre11:
  print "A - GGD to GBB   B - Next   / - Main Menu"
  if key("a")
    setposition(18704.9454,13047.5997,0)
    setvar(k,10000)
    gosub GGDdeparture
    setvar(t,0)
    goto GGDtoGBB
  endif
  if key("b")
    goto pre12
  endif
  if key("/")
    goto flightplan
  endif
  goto pre11

GBBtoGGD:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub HONVOR
  endif
  if vartest(p,1,1)
    gosub CPTVOR
  endif
  if vartest(p,2,2)
    gosub BCNVOR
  endif
  gosub GGDbegin
  goto GBBtoGGD

pre12:
  print "A - GBB to GGD   B - Next   / - Main Menu"
  if key("a")
    setposition(19125.4616,13372.0173,0)
    setvar(k,9000)
    gosub GBBdeparture
    setvar(t,0)
    goto GBBtoGGD
  endif
  if key("b")
    goto pre13
  endif
  if key("/")
    goto flightplan
  endif
  goto pre12

GTEtoGKK:
  gosub centercheck
  gosub error
  if vartest(p,0,0)
    gosub BHDVOR
  endif
  if vartest(p,1,1)
    gosub SAMVOR
    if vartest(f,0,0)
      setvar(f,1)
      setvar(g,6000)
      gosub newaltitude
    endif
  endif
  if vartest(p,2,2)
    gosub MIDVOR
  endif
  gosub GKKbegin
  goto GTEtoGKK

pre13:
  print "A - GTE to GKK   B - Next   / - Main Menu"
  if key("a")
    setposition(18454.1804,12811.4203,0)
    setvar(k,9000)
    gosub GTEdeparture
    setvar(t,0)
    goto GTEtoGKK
  endif
  if key("b")
    goto pre14
  endif
  if key("/")
    goto flightplan
  endif
  goto pre13

GKKtoGTE:
  gosub centercheck
  gosub error
  if cylinder(18454,12881,0,45)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,7000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub MIDVOR
  endif
  if vartest(p,1,1)
    gosub SAMVOR
  endif
  if vartest(p,2,2)
    gosub DAWLYFIX
  endif
  gosub GTEbegin
  goto GKKtoGTE

pre14:
  print "A - GKK to GTE   B - Next   / - Main Menu"
  if key("a")
    setposition(18513.0022,13718.8826,0)
    setvar(k,10000)
    gosub GKKdeparture
    setvar(t,0)
    goto GKKtoGTE
  endif
  if key("b")
    goto pre15
  endif
  if key("/")
    goto flightplan
  endif
  goto pre14

GTEtoGJJ:
  gosub centercheck
  gosub error
  if cylinder(17749,13049,0,55)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,10000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub BHDVOR
  endif
  if vartest(p,1,1)
    gosub SKERYFIX
  endif
  if vartest(p,2,2)
    gosub GURVOR
  endif
  gosub GJJbegin
  goto GTEtoGJJ

pre15:
  print "A - GTE to GJJ   B - Next   / - Main Menu"
  if key("a")
    setposition(18454.1804,12811.4203,0)
    setvar(k,14000)
    gosub GTEdeparture
    setvar(t,0)
    goto GTEtoGJJ
  endif
  if key("b")
    goto pre16
  endif
  if key("/")
    goto flightplan
  endif
  goto pre15

GJJtoGTE:
  gosub centercheck
  gosub error
  if cylinder(18455,12812,0,55)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,8000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub GURVOR
  endif
  if vartest(p,1,1)
    gosub BHDVOR
  endif
  gosub GTEbegin
  goto GJJtoGTE

pre16:
  print "A - GJJ to GTE   B - Next   / - Main Menu"
  if key("a")
    setposition(17748.1495,13051.0154,0)
    setvar(k,15000)
    gosub GJJdeparture
    setvar(t,0)
    goto GJJtoGTE
  endif
  if key("b")
    goto pre17
  endif
  if key("/")
    goto flightplan
  endif
  goto pre16

GBBtoGJJ:
  gosub centercheck
  gosub error
  if cylinder(17749,13049,0,60)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,10000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub HONVOR
  endif
  if vartest(p,1,1)
    gosub CPTVOR
  endif
  if vartest(p,2,2)
    gosub PEPISFIX
  endif
  if vartest(p,3,3)
    gosub SAMVOR
  endif
  if vartest(p,4,4)
    gosub ORTACFIX
  endif
  if vartest(p,5,5)
    gosub JSYVOR
  endif
  gosub GJJbegin
  goto GBBtoGJJ

pre17:
  print "A - GBB to GJJ   B - Next   / - Main Menu"
  if key("a")
    setposition(19125.4616,13372.0173,0)
    setvar(k,18000)
    gosub GBBdeparture
    setvar(t,0)
    goto GBBtoGJJ
  endif
  if key("b")
    goto pre18
  endif
  if key("/")
    goto flightplan
  endif
  goto pre17

GJJtoGBB:
  gosub centercheck
  gosub error
  if cylinder(19127,13369,0,60)
    if vartest(t,0,0)
      setvar(t,1)
      setvar(g,10000)
      gosub newaltitude
    endif
  endif
  if vartest(p,0,0)
    gosub ANGLAFIX
  endif
  if vartest(p,1,1)
    gosub ORTACFIX
  endif
  if vartest(p,2,2)
    gosub SAMVOR
  endif
  if vartest(p,3,3)
    gosub WCONDB
  endif
  if vartest(p,4,4)
    gosub DTYVOR
  endif
  if vartest(p,5,5)
    gosub HONVOR
  endif
  gosub GBBbegin
  goto GJJtoGBB

pre18:
  print "A - GJJ to GBB   B - Next   / - Main Menu"
  if key("a")
    setposition(17748.1495,13051.0154,0)
    setvar(k,17000)
    gosub GJJdeparture
    setvar(t,0)
    goto GJJtoGBB
  endif
  if key("b")
    goto pre1
  endif
  if key("/")
    goto flightplan
  endif
  goto pre18

BNNVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint BNN VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18771,13646,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18771,13646,0,0)
    endif
    printvar(result,"Radial from BNN VOR is ")
  endif
  return

CPTVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint CPT VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18693,13453,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18693,13453,0,0)
    endif
    printvar(result,"Radial from CPT VOR is ")
  endif
  return

DTYVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint DTY VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18987,13521,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18987,13521,0,0)
    endif
    printvar(result,"Radial from DTY VOR is ")
  endif
  return

HONVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint HON VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(19082,13385,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(19082,13385,0,0)
    endif
    printvar(result,"Radial from HON VOR is ")
  endif
  return

BCNVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint BCN VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18874,12921,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18874,12921,0,0)
    endif
    printvar(result,"Radial from BCN VOR is ")
  endif
  return

BPKVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint BPK VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18761,13822,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18761,13822,0,0)
    endif
    printvar(result,"Radial from BPK VOR is ")
  endif
  return

MIDVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint MID VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18484,13590,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18484,13590,0,0)
    endif
    printvar(result,"Radial from MID VOR is ")
  endif
  return

SAMVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint SAM VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18467,13389,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18467,13389,0,0)
    endif
    printvar(result,"Radial from SAM VOR is ")
  endif
  return

JSYVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint JSY VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(17749,13092,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(17749,13092,0,0)
    endif
    printvar(result,"Radial from JSY VOR is ")
  endif
  return

BHDVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint BHD VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18315,12767,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18315,12767,0,0)
    endif
    printvar(result,"Radial from BHD VOR is ")
  endif
  return

GURVOR:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint GUR VOR"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(17864,12949,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(17864,12949,0,0)
    endif
    printvar(result,"Radial from GUR VOR is ")
  endif
  return

WODNDB:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint WOD NDB"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18665,13543,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18665,13543,0,0)
    endif
    printvar(result,"Radial from WOD NDB is ")
  endif
  return

WCONDB:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint WCO NDB"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18840,13543,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18840,13543,0,0)
    endif
    printvar(result,"Radial from WCO NDB is ")
  endif
  return

ORTACFIX:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint ORTAC"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18076,13156,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18076,13156,0,0)
    endif
    printvar(result,"Radial from ORTAC is ")
  endif
  return

ANGLAFIX:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint ANGLA"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(17953,13136,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(17953,13136,0,0)
    endif
    printvar(result,"Radial from ANGLA is ")
  endif
  return

ALVINFIX:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint ALVIN"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18821,13072,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18821,13072,0,0)
    endif
    printvar(result,"Radial from ALVIN is ")
  endif
  return

CHELTFIX:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint CHELT"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18898,13160,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18898,13160,0,0)
    endif
    printvar(result,"Radial from CHELT is ")
  endif
  return

PEPISFIX:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint PEPIS"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18564,13435,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18564,13435,0,0)
    endif
    printvar(result,"Radial from PEPIS is ")
  endif
  return

SKERYFIX:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint SKERY"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18123,12833,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18123,12833,0,0)
    endif
    printvar(result,"Radial from SKERY is ")
  endif
  return

DAWLYFIX:
  if vartest(q,0,0)
    setvar(q,1)
play "HASH.VOC"
    print "FMS switching to waypoint DAWLY"
    wait(3)
    setvar(f,0)
  endif
  if cylinder(18392,12788,0,6)
    addvar(p,1)
    setvar(q,0)
  endif
  if key("r")
    if radial(18392,12788,0,0)
    endif
    printvar(result,"Radial from DAWLY is ")
  endif
  return

centercheck:
  movevar(i,j)
  if cylinder(18662,13657,0,150)
    setvar(j,1)
    w := j - i
    if vartest(w,0,0)
      setvar(z,0)
      if com(134.50)
        setvar(z,1)
        if vartest(v,1,1)
play "HASH.VOC"
          print "BA 321 LONDON center with you.  Altimeter 29.92"
          wait(5)
          setvar(v,0)
        endif
      endif
      return
    endif
    if vartest(z,1,1)
play "HASH.VOC"
      print "BA 321 contact LONDON center on 134.50"
      wait(5)
      setvar(z,0)
      setvar(v,1)
    endif
    return
  endif
  if cylinder(17529,12332,0,150)
    setvar(j,2)
    w := j - i
    if vartest(w,0,0)
      setvar(z,0)
      if com(132.90)
        setvar(z,1)
        if vartest(v,1,1)
play "HASH.VOC"
          print "BA 321 BREST center with you.  Altimeter 29.92"
          wait(5)
          setvar(v,0)
        endif
      endif
      return
    endif
    if vartest(z,1,1)
play "HASH.VOC"
      print "BA 321 contact BREST center on 132.90"
      wait(5)
      setvar(z,0)
      setvar(v,1)
    endif
    return
  endif
  if cylinder(18464,13366,0,32767)
    setvar(j,3)
    w := j - i
    if vartest(w,0,0)
      setvar(z,0)
      if com(122.10)
        setvar(z,1)
        if vartest(v,1,1)
play "HASH.VOC"
          print "BA 321 GENERIC center with you.  Altimeter 29.92"
          wait(5)
          setvar(v,0)
        endif
      endif
      return
    endif
    if vartest(z,1,1)
play "HASH.VOC"
      print "BA 321 contact GENERIC center on 122.10"
      wait(5)
      setvar(z,0)
      setvar(v,1)
    endif
    return
  endif
  return

appinit:
  setvar(f,0)
  setvar(l,400)
  setvar(x,20)
  setvar(h,0)
  setvar(y,15)
  setvar(n,0)
  setvar(u,5)
  setvar (c,180)
  setvar(p,0)
  return

dest1:
  print "A - Exeter (GTE)   B - Next   / - Main menu"
  if key("a")
    if altagl(0,100)
      print "Begin your flight to Exeter"
      wait(2)
      gosub departcheck
      wait(10)
    endif
play "HASH.VOC"
    print "BA 321 resume own navigation"
    wait(10)
    goto GTEgeneric
  endif
  if key("b")
    goto dest2
  endif
  if key("/")
    goto flightplan
  endif
  goto dest1

GTEgeneric:
  gosub centercheck
  gosub GTEbegin
  goto GTEgeneric

GTEbegin:
  if cylinder(18455,12812,0,40)
    gosub appinit
play "HASH.VOC"
    print "BA 321 contact Exeter approach on 128.15"
    goto GTEradio
  endif
  return

GTEradio:
  if altagl(1500,32767)
    if com(128.15)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      goto GTEapproach
    endif
  endif
  goto GTEradio

GTEapproach:
  if cylinder(18455,12812,0,35)
    if vartest(w0dir,2912,19296)
      goto GTE8runway
    endif
    if vartest(w0dir,19296,32767)
      goto GTE13runway
    endif
    if vartest(w0dir,-32767,-29854)
      goto GTE13runway
    endif
    if vartest(w0dir,-29854,-13470)
      goto GTE26runway
    endif
    if vartest(w0dir,-13470,2912)
      goto GTE31runway
    endif
  endif
  gosub error
  goto GTEapproach

GTErunway:
play "HASH.VOC"
    if vartest(w0dir,2912,19296)
      setvar(t,8)
      print "Local winds are favoring runway 8"
    endif
    if vartest(w0dir,19296,32767)
      setvar(t,13)
      print "Local winds are favoring runway 13"
    endif
    if vartest(w0dir,-32767,-29854)
      setvar(t,13)
      print "Local winds are favoring runway 13"
    endif
    if vartest(w0dir,-29854,-13470)
      setvar(t,26)
      print "Local winds are favoring runway 26"
    endif
    if vartest(w0dir,-13470,2912)
      setvar(t,31)
      print "Local winds are favoring runway 31"
    endif
  return

GTE8runway:
  if com(128.15)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 8"
    setvar(h,7)
    setvar(n,8)
    wait(15)
  endif
  if radial(18455,12812,259,304)
    goto GTE1fix
  endif
  if radial(18455,12812,304,349)
    goto GTE2fix
  endif
  if radial(18455,12812,349,360)
    goto GTE3fix
  endif
  if radial(18455,12812,0,79)
    goto GTE3fix
  endif
  if radial(18455,12812,79,169)
    goto GTE4fix
  endif
  if radial(18455,12812,169,214)
    goto GTE5fix
  endif
  if radial(18455,12812,214,259)
    goto GTE6fix
  endif

GTE1fix:
  if cylinder(18465,12725,0,3)
play "HASH.VOC"
    print "Cleared for NDB approach."
    wait(5)
    print "Contact Exeter tower on 119.80"
    goto GTE8final
  endif
  gosub error
  gosub GTEaltitude
  if radial(18465,12725,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE1fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE1fix

GTE2fix:
  if cylinder(18529,12702,0,3)
    goto GTE1fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18529,12702,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE2fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE2fix

GTE3fix:
  if cylinder(18622,12775,0,5)
    goto GTE2fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18622,12775,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE3fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE3fix

GTE4fix:
  if cylinder(18285,12840,0,5)
    goto GTE5fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18285,12840,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE4fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE4fix

GTE5fix:
  if cylinder(18344,12738,0,3)
    goto GTE6fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18344,12738,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE5fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE5fix

GTE6fix:
  if cylinder(18412,12735,0,3)
play "HASH.VOC"
    print "Cleared for NDB approach."
    wait(5)
    print "Contact Exeter tower on 119.80"
    goto GTE8final
  endif
  gosub error
  gosub GTEaltitude
  if radial(18412,12735,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE6fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE6fix

GTE8final:
  if com(119.80)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Exeter tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18455,12812,252,272)
play "HASH.VOC"
      print "BA 321 cleared to land runway 8"
      goto GTEland
    endif
  endif
  goto GTE8final

GTE13runway:
  if com(128.15)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 13"
    setvar(h,7)
    setvar(n,13)
    wait(15)
  endif
  if radial(18455,12812,308,353)
    goto GTE7fix
  endif
  if radial(18455,12812,353,360)
    goto GTE8fix
  endif
  if radial(18455,12812,0,38)
    goto GTE8fix
  endif
  if radial(18455,12812,38,128)
    goto GTE9fix
  endif
  if radial(18455,12812,128,218)
    goto GTE10fix
  endif
  if radial(18455,12812,218,263)
    goto GTE11fix
  endif
  if radial(18455,12812,263,308)
    goto GTE12fix
  endif

GTE7fix:
  if cylinder(18527,12762,0,3)
play "HASH.VOC"
    print "Cleared for NDB approach."
    wait(5)
    print "Contact Exeter tower on 119.80"
    goto GTE13final
  endif
  gosub error
  gosub GTEaltitude
  if radial(18527,12762,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE7fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE7fix

GTE8fix:
  if cylinder(18586,12796,0,3)
    goto GTE7fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18586,12796,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE8fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE8fix

GTE9fix:
  if cylinder(18592,12914,0,5)
    goto GTE8fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18592,12914,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE9fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE9fix

GTE10fix:
  if cylinder(18322,12702,0,5)
    goto GTE11fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18322,12702,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE10fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE10fix

GTE11fix:
  if cylinder(18438,12680,0,3)
    goto GTE12fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18438,12680,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE11fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE11fix

GTE12fix:
  if cylinder(18485,12729,0,3)
play "HASH.VOC"
    print "Cleared for NDB approach."
    wait(5)
    print "Contact Exeter tower on 119.80"
    goto GTE13final
  endif
  gosub error
  gosub GTEaltitude
  if radial(18485,12729,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE12fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE12fix

GTE13final:
  if com(119.80)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Exeter tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18455,12812,301,321)
play "HASH.VOC"
      print "BA 321 cleared to land runway 13"
      goto GTEland
    endif
  endif
  goto GTE13final

GTE26runway:
  if com(128.15)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 26"
    setvar(h,7)
    setvar(n,26)
    wait(15)
  endif
  if radial(18455,12812,79,124)
    goto GTE13fix
  endif
  if radial(18455,12812,124,169)
    goto GTE14fix
  endif
  if radial(18455,12812,169,259)
    goto GTE15fix
  endif
  if radial(18455,12812,259,349)
    goto GTE16fix
  endif
  if radial(18455,12812,349,360)
    goto GTE17fix
  endif
  if radial(18455,12812,0,34)
    goto GTE17fix
  endif
  if radial(18455,12812,34,79)
    goto GTE18fix
  endif

GTE13fix:
  if cylinder(18444,12898,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 300 and intercept localizer."
    wait(5)
    print "Contact Exeter tower on 119.80"
    goto GTE26final
  endif
  gosub error
  gosub GTEaltitude
  if radial(18444,12898,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE13fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE13fix

GTE14fix:
  if cylinder(18380,12921,0,3)
    goto GTE13fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18380,12921,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE14fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE14fix

GTE15fix:
  if cylinder(18287,12848,0,5)
    goto GTE14fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18287,12848,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE15fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE15fix

GTE16fix:
  if cylinder(18624,12783,0,5)
    goto GTE17fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18624,12783,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE16fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE16fix

GTE17fix:
  if cylinder(18565,12885,0,3)
    goto GTE18fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18565,12885,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE17fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE17fix

GTE18fix:
  if cylinder(18497,12888,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 210 and intercept localizer."
    wait(5)
    print "Contact Exeter tower on 119.80"
    goto GTE26final
  endif
  gosub error
  gosub GTEaltitude
  if radial(18497,12888,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE18fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE18fix

GTE26final:
  if com(119.80)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Exeter tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18455,12812,72,92)
play "HASH.VOC"
      print "BA 321 cleared to land runway 26"
      goto GTEland
    endif
  endif
  goto GTE26final

GTE31runway:
  if com(128.15)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 31"
    setvar(h,7)
    setvar(n,31)
    wait(15)
  endif
  if radial(18455,12812,128,173)
    goto GTE19fix
  endif
  if radial(18455,12812,173,218)
    goto GTE20fix
  endif
  if radial(18455,12812,218,308)
    goto GTE21fix
  endif
  if radial(18455,12812,308,360)
    goto GTE22fix
  endif
  if radial(18455,12812,0,38)
    goto GTE22fix
  endif
  if radial(18455,12812,38,83)
    goto GTE23fix
  endif
  if radial(18455,12812,83,128)
    goto GTE24fix
  endif

GTE19fix:
  if cylinder(18382,12861,0,3)
play "HASH.VOC"
    print "Cleared for NDB approach."
    wait(5)
    print "Contact Exeter tower on 119.80"
    goto GTE31final
  endif
  gosub error
  gosub GTEaltitude
  if radial(18382,12861,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE19fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE19fix

GTE20fix:
  if cylinder(18323,12827,0,3)
    goto GTE19fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18323,12827,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE20fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE20fix

GTE21fix:
  if cylinder(18317,12709,0,5)
    goto GTE20fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18317,12709,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE21fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE21fix

GTE22fix:
  if cylinder(18587,12921,0,5)
    goto GTE23fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18587,12921,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE22fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE22fix

GTE23fix:
  if cylinder(18471,12943,0,3)
    goto GTE24fix
  endif
  gosub error
  gosub GTEaltitude
  if radial(18471,12943,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE23fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE23fix

GTE24fix:
  if cylinder(18424,12894,0,3)
play "HASH.VOC"
    print "Cleared for NDB approach."
    wait(5)
    print "Contact Exeter tower on 119.80"
    goto GTE31final
  endif
  gosub error
  gosub GTEaltitude
  if radial(18424,12894,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GTE24fix
  endif
  gosub heading
  gosub GTEcommand
  goto GTE24fix

GTE31final:
  if com(119.80)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Exeter tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18455,12812,121,141)
play "HASH.VOC"
      print "BA 321 cleared to land runway 31"
      goto GTEland
    endif
  endif
  goto GTE31final

GTEland:
  if varmask(ground,1)
    print "(c) 1993 - John Mechalas"
    wait(3)
    goto stop
  endif
  goto GTEland

GTEaltitude:
  if cylinder(18455,12812,23,30)
    if vartest(f,0,0)
    setvar(g,3500)
      if com(128.15)
play "HASH.VOC"
        if altitude(3600,32767)
          print "BA 321 descend and maintain 3500"
          setvar(h,4)
          setvar(n,3500)
          wait(5)
        endif
        if altitude(0,3400)
          print "BA 321 climb and maintain 3500"
          setvar(h,3)
          setvar(n,3500)
          wait(5)
        endif
      endif
      setvar(f,1)
    endif
  endif
  if cylinder(18455,12812,0,22)
    if vartest(f,0,1)
    setvar(g,2100)
      if com(128.15)
play "HASH.VOC"
        if altitude(2200,32767)
          print "BA 321 descend and maintain 2100"
          setvar(h,4)
          setvar(n,2100)
          wait(5)
        endif
        if altitude(0,2000)
          print "BA 321 climb and maintain 2100"
          setvar(h,3)
          setvar(n,2100)
          wait(5)
        endif
      endif
      setvar(f,2)
    endif
  endif
  return

GTEcommand:
  s := a - result
  if vartest(s,-360,0)
    addvar(s,360)
  endif
  m := l - a
  if vartest(m,0,0)
    return
  endif
  if com(128.15)
    movevar(n,a)
play "HASH.VOC"
    if vartest(s,0,180)
      printvar(a,"BA 321 turn right heading ")
      setvar(h,2)
    endif
    if vartest(s,180,360)
      printvar(a,"BA 321 turn left heading ")
      setvar(h,1)
    endif
  endif
  movevar(l,a)
  wait(10)
  return

GTEdeparture:
  if altitude(0,0)
  endif
  u := result / b / b * b * b
  addvar(u,4000)
  print "Taxi to departing runway and contact tower on 119.80 to begin flight."

GTEground:
  if com(119.80)
    gosub GTErunway
    wait(5)
    goto GTEhold
  endif
  goto GTEground

GTEhold:
  if groundspeed(0,0)
    if com(119.80)
play "HASH.VOC"
      printvar(t,"BA 321 cleared for takeoff on runway ")
      wait(5)
      goto GTEtakeoff
    endif
  endif
  goto GTEhold

GTEtakeoff:
  if altagl(500,32767)
    if com(119.80)
play "HASH.VOC"
      print "Contact Exeter departure on 128.15"
      setvar(f,0)
      wait(3)
      goto GTEclimbout
    endif
  endif
  goto GTEtakeoff

GTEclimbout:
  setvar(z,0)
  if com(128.15)
    setvar(z,1)
    if vartest(f,0,0)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      wait(5)
      addvar(f,1)
    endif
  endif
  if cylinder(18455,12812,0,0)
  endif
  movevar(r,result)
  gosub vectoring
  if vartest(f,3,3)
    setvar(x,0)
    setvar(y,0)
    return
  endif
  goto GTEclimbout

dest2:
  print "A - Jersey (GJJ)   B - Next   / - Main menu"
  if key("a")
    if altagl(0,100)
      print "Begin your flight to Jersey"
      wait(2)
      gosub departcheck
      wait(10)
    endif
play "HASH.VOC"
    print "BA 321 resume own navigation"
    wait(10)
    goto GJJgeneric
  endif
  if key("b")
    goto dest3
  endif
  if key("/")
    goto flightplan
  endif
  goto dest2

GJJgeneric:
  gosub centercheck
  gosub GJJbegin
  goto GJJgeneric

GJJbegin:
  if cylinder(17749,13049,0,40)
    gosub appinit
play "HASH.VOC"
    print "BA 321 contact Jersey approach on 120.30"
    goto GJJradio
  endif
  return

GJJradio:
  if altagl(1500,32767)
    if com(120.30)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      goto GJJapproach
    endif
  endif
  goto GJJradio

GJJapproach:
  if cylinder(17749,13049,0,35)
    if vartest(w0dir,-546,32221)
      goto GJJ9runway
    endif
    if vartest(w0dir,32221,32767)
      goto GJJ27runway
    endif
    if vartest(w0dir,-32767,-546)
      goto GJJ27runway
    endif
  endif
  gosub error
  goto GJJapproach

GJJrunway:
play "HASH.VOC"
    if vartest(w0dir,-546,32221)
      setvar(t,9)
      print "BA 321 taxi to runway 9 and hold short"
    endif
    if vartest(w0dir,32221,32767)
      setvar(t,27)
      print "BA 321 taxi to runway 27 and hold short"
    endif
    if vartest(w0dir,-32767,-546)
      setvar(t,27)
      print "BA 321 taxi to runway 27 and hold short"
    endif
  return

GJJ9runway:
  if com(120.30)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 9"
    setvar(h,7)
    setvar(n,9)
    wait(15)
  endif
  if radial(17749,13049,264,309)
    goto GJJ1fix
  endif
  if radial(17749,13049,309,354)
    goto GJJ2fix
  endif
  if radial(17749,13049,354,360)
    goto GJJ3fix
  endif
  if radial(17749,13049,0,84)
    goto GJJ3fix
  endif
  if radial(17749,13049,84,174)
    goto GJJ4fix
  endif
  if radial(17749,13049,174,219)
    goto GJJ5fix
  endif
  if radial(17749,13049,219,264)
    goto GJJ6fix
  endif

GJJ1fix:
  if cylinder(17766,12963,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 130 and intercept localizer."
    wait(5)
    print "Contact Jersey tower on 119.45"
    goto GJJ9final
  endif
  gosub error
  gosub GJJaltitude
  if radial(17766,12963,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ1fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ1fix

GJJ2fix:
  if cylinder(17832,12946,0,3)
    goto GJJ1fix
  endif
  gosub error
  gosub GJJaltitude
  if radial(17832,12946,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ2fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ2fix

GJJ3fix:
  if cylinder(17919,13026,0,5)
    goto GJJ2fix
  endif
  gosub error
  gosub GJJaltitude
  if radial(17919,13026,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ3fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ3fix

GJJ4fix:
  if cylinder(17577,13062,0,5)
    goto GJJ5fix
  endif
  gosub error
  gosub GJJaltitude
  if radial(17577,13062,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ4fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ4fix

GJJ5fix:
  if cylinder(17645,12966,0,3)
    goto GJJ6fix
  endif
  gosub error
  gosub GJJaltitude
  if radial(17645,12966,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ5fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ5fix

GJJ6fix:
  if cylinder(17713,12968,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 40 and intercept localizer."
    wait(5)
    print "Contact Jersey tower on 119.45"
    goto GJJ9final
  endif
  gosub error
  gosub GJJaltitude
  if radial(17713,12968,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ6fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ6fix

GJJ9final:
  if com(119.45)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Jersey tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(17749,13049,257,277)
play "HASH.VOC"
      print "BA 321 cleared to land runway 9"
      goto GJJland
    endif
  endif
  goto GJJ9final

GJJ27runway:
  if com(120.30)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 27"
    setvar(h,7)
    setvar(n,27)
    wait(15)
  endif
  if radial(17749,13049,84,129)
    goto GJJ7fix
  endif
  if radial(17749,13049,129,174)
    goto GJJ8fix
  endif
  if radial(17749,13049,174,264)
    goto GJJ9fix
  endif
  if radial(17749,13049,264,354)
    goto GJJ10fix
  endif
  if radial(17749,13049,354,360)
    goto GJJ11fix
  endif
  if radial(17749,13049,0,39)
    goto GJJ11fix
  endif
  if radial(17749,13049,39,84)
    goto GJJ12fix
  endif

GJJ7fix:
  if cylinder(17731,13134,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 310 and intercept localizer."
    wait(5)
    print "Contact Jersey tower on 119.45"
    goto GJJ27final
  endif
  gosub error
  gosub GJJaltitude
  if radial(17731,13134,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ7fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ7fix

GJJ8fix:
  if cylinder(17665,13151,0,3)
    goto GJJ7fix
  endif
  gosub error
  gosub GJJaltitude
  if radial(17665,13151,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ8fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ8fix

GJJ9fix:
  if cylinder(17578,13071,0,5)
    goto GJJ8fix
  endif
  gosub error
  gosub GJJaltitude
  if radial(17578,13071,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ9fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ9fix

GJJ10fix:
  if cylinder(17920,13035,0,5)
    goto GJJ11fix
  endif
  gosub error
  gosub GJJaltitude
  if radial(17920,13035,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ10fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ10fix

GJJ11fix:
  if cylinder(17852,13131,0,3)
    goto GJJ12fix
  endif
  gosub error
  gosub GJJaltitude
  if radial(17852,13131,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ11fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ11fix

GJJ12fix:
  if cylinder(17784,13129,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 220 and intercept localizer."
    wait(5)
    print "Contact Jersey tower on 119.45"
    goto GJJ27final
  endif
  gosub error
  gosub GJJaltitude
  if radial(17784,13129,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GJJ12fix
  endif
  gosub heading
  gosub GJJcommand
  goto GJJ12fix

GJJ27final:
  if com(119.45)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Jersey tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(17749,13049,77,97)
play "HASH.VOC"
      print "BA 321 cleared to land runway 27"
      goto GJJland
    endif
  endif
  goto GJJ27final

GJJland:
  if varmask(ground,1)
    if com(119.45)
      print "BA 321 contact ground control on 121.90"
    endif
    if com(121.90)
      goto taxi
    endif
  endif
  goto GJJland

GJJaltitude:
  if cylinder(17749,13049,16,30)
    if vartest(f,0,0)
    setvar(g,3000)
      if com(120.30)
play "HASH.VOC"
        if altitude(3100,32767)
          print "BA 321 descend and maintain 3000"
          setvar(h,4)
          setvar(n,3000)
          wait(5)
        endif
        if altitude(0,2900)
          print "BA 321 climb and maintain 3000"
          setvar(h,3)
          setvar(n,3000)
          wait(5)
        endif
      endif
      setvar(f,1)
    endif
  endif
  if cylinder(17749,13049,0,15)
    if vartest(f,0,1)
    setvar(g,2000)
      if com(120.30)
play "HASH.VOC"
        if altitude(2100,32767)
          print "BA 321 descend and maintain 2000"
          setvar(h,4)
          setvar(n,2000)
          wait(5)
        endif
        if altitude(0,1900)
          print "BA 321 climb and maintain 2000"
          setvar(h,3)
          setvar(n,2000)
          wait(5)
        endif
      endif
      setvar(f,2)
    endif
  endif
  return

GJJcommand:
  s := a - result
  if vartest(s,-360,0)
    addvar(s,360)
  endif
  m := l - a
  if vartest(m,0,0)
    return
  endif
  if com(120.30)
    movevar(n,a)
play "HASH.VOC"
    if vartest(s,0,180)
      printvar(a,"BA 321 turn right heading ")
      setvar(h,2)
    endif
    if vartest(s,180,360)
      printvar(a,"BA 321 turn left heading ")
      setvar(h,1)
    endif
  endif
  movevar(l,a)
  wait(10)
  return

GJJdeparture:
  if altitude(0,0)
  endif
  u := result / b / b * b * b
  addvar(u,4000)
  print "Contact ground control on 121.90 to begin flight."

GJJground:
  if com(121.90)
    gosub GJJrunway
    wait(5)
    goto GJJhold
  endif
  goto GJJground

GJJhold:
  if groundspeed(0,0)
    if com(119.45)
play "HASH.VOC"
      printvar(t,"BA 321 cleared for takeoff on runway ")
      wait(5)
      goto GJJtakeoff
    endif
  endif
  goto GJJhold

GJJtakeoff:
  if altagl(500,32767)
    if com(119.45)
play "HASH.VOC"
      print "Contact Jersey departure on 120.30"
      setvar(f,0)
      wait(3)
      goto GJJclimbout
    endif
  endif
  goto GJJtakeoff

GJJclimbout:
  setvar(z,0)
  if com(120.30)
    setvar(z,1)
    if vartest(f,0,0)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      wait(5)
      addvar(f,1)
    endif
  endif
  if cylinder(17749,13049,0,0)
  endif
  movevar(r,result)
  gosub vectoring
  if vartest(f,3,3)
    setvar(x,0)
    setvar(y,0)
    return
  endif
  goto GJJclimbout

dest3:
  print "A - London Heathrow (GLL)   B - Next   / - Main menu"
  if key("a")
    if altagl(0,100)
      print "Begin your flight to London Heathrow"
      wait(2)
      gosub departcheck
      wait(10)
    endif
play "HASH.VOC"
    print "BA 321 resume own navigation"
    wait(10)
    goto GLLgeneric
  endif
  if key("b")
    goto dest4
  endif
  if key("/")
    goto flightplan
  endif
  goto dest3

GLLgeneric:
  gosub centercheck
  gosub GLLbegin
  goto GLLgeneric

GLLbegin:
  if cylinder(18660,13656,0,40)
    gosub appinit
play "HASH.VOC"
    print "BA 321 contact Heathrow approach on 119.20"
    goto GLLradio
  endif
  return

GLLradio:
  if altagl(1500,32767)
    if com(119.20)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      goto GLLapproach
    endif
  endif
  goto GLLradio

GLLapproach:
  if cylinder(18660,13656,0,35)
    if vartest(w0dir,910,32767)
      goto GLL9runway
    endif
    if vartest(w0dir,-32767,-3458)
      goto GLL9runway
    endif
    if vartest(w0dir,29308,32767)
      goto GLL23runway
    endif
    if vartest(w0dir,-32767,-19842)
      goto GLL23runway
    endif
    if vartest(w0dir,-19842,910)
      goto GLL27runway
    endif
  endif
  gosub error
  goto GLLapproach

GLLrunway:
play "HASH.VOC"
    if vartest(w0dir,910,32767)
      setvar(t,9)
      print "BA 321 taxi to runway 9 and hold short"
    endif
    if vartest(w0dir,-32767,-3458)
      setvar(t,9)
      print "BA 321 taxi to runway 9 and hold short"
    endif
    if vartest(w0dir,29308,32767)
      setvar(t,23)
      print "BA 321 taxi to runway 23 and hold short"
    endif
    if vartest(w0dir,-32767,-19842)
      setvar(t,23)
      print "BA 321 taxi to runway 23 and hold short"
    endif
    if vartest(w0dir,-19842,910)
      setvar(t,27)
      print "BA 321 taxi to runway 27 and hold short"
    endif
  return

GLL9runway:
  if com(119.20)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 9"
    setvar(h,7)
    setvar(n,9)
    wait(15)
  endif
  if radial(18660,13656,272,317)
    goto GLL1fix
  endif
  if radial(18660,13656,317,360)
    goto GLL2fix
  endif
  if radial(18660,13656,0,2)
    goto GLL2fix
  endif
  if radial(18660,13656,2,92)
    goto GLL3fix
  endif
  if radial(18660,13656,92,182)
    goto GLL4fix
  endif
  if radial(18660,13656,182,227)
    goto GLL5fix
  endif
  if radial(18660,13656,227,272)
    goto GLL6fix
  endif

GLL1fix:
  if cylinder(18689,13573,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 130 and intercept localizer."
    wait(5)
    print "Contact London Heathrow tower on 118.70"
    goto GLL9final
  endif
  gosub error
  gosub GLLaltitude
  if radial(18689,13573,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL1fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL1fix

GLL2fix:
  if cylinder(18757,13566,0,3)
    goto GLL1fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18757,13566,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL2fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL2fix

GLL3fix:
  if cylinder(18831,13657,0,5)
    goto GLL2fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18831,13657,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL3fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL3fix

GLL4fix:
  if cylinder(18488,13645,0,5)
    goto GLL5fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18488,13645,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL4fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL4fix

GLL5fix:
  if cylinder(18569,13559,0,3)
    goto GLL6fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18569,13559,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL5fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL5fix

GLL6fix:
  if cylinder(18636,13571,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 40 and intercept localizer."
    wait(5)
    print "Contact London Heathrow tower on 118.70"
    goto GLL9final
  endif
  gosub error
  gosub GLLaltitude
  if radial(18636,13571,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL6fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL6fix

GLL9final:
  if com(118.70)
    if vartest(p,0,0)
play "HASH.VOC"
      print "London Heathrow tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18660,13656,265,285)
play "HASH.VOC"
      print "BA 321 cleared to land runway 9"
      goto GLLland
    endif
  endif
  goto GLL9final

GLL23runway:
  if com(119.20)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 23"
    setvar(h,7)
    setvar(n,23)
    wait(15)
  endif
  if radial(18660,13656,44,89)
    goto GLL7fix
  endif
  if radial(18660,13656,89,134)
    goto GLL8fix
  endif
  if radial(18660,13656,134,224)
    goto GLL9fix
  endif
  if radial(18660,13656,224,314)
    goto GLL10fix
  endif
  if radial(18660,13656,314,359)
    goto GLL11fix
  endif
  if radial(18660,13656,359,360)
    goto GLL12fix
  endif
  if radial(18660,13656,0,44)
    goto GLL12fix
  endif

GLL7fix:
  if cylinder(18701,13733,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 270 and intercept localizer."
    wait(5)
    print "Contact London Heathrow tower on 118.70"
    goto GLL23final
  endif
  gosub error
  gosub GLLaltitude
  if radial(18701,13733,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL7fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL7fix

GLL8fix:
  if cylinder(18661,13788,0,3)
    goto GLL7fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18661,13788,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL8fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL8fix

GLL9fix:
  if cylinder(18543,13782,0,5)
    goto GLL8fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18543,13782,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL9fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL9fix

GLL10fix:
  if cylinder(18782,13535,0,5)
    goto GLL11fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18782,13535,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL10fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL10fix

GLL11fix:
  if cylinder(18792,13653,0,3)
    goto GLL12fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18792,13653,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL11fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL11fix

GLL12fix:
  if cylinder(18738,13694,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 180 and intercept localizer."
    wait(5)
    print "Contact London Heathrow tower on 118.70"
    goto GLL23final
  endif
  gosub error
  gosub GLLaltitude
  if radial(18738,13694,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL12fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL12fix

GLL23final:
  if com(118.70)
    if vartest(p,0,0)
play "HASH.VOC"
      print "London Heathrow tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18660,13656,37,57)
play "HASH.VOC"
      print "BA 321 cleared to land runway 23"
      goto GLLland
    endif
  endif
  goto GLL23final

GLL27runway:
  if com(119.20)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 27"
    setvar(h,7)
    setvar(n,27)
    wait(15)
  endif
  if radial(18660,13656,92,137)
    goto GLL13fix
  endif
  if radial(18660,13656,137,182)
    goto GLL14fix
  endif
  if radial(18660,13656,182,272)
    goto GLL15fix
  endif
  if radial(18660,13656,272,360)
    goto GLL16fix
  endif
  if radial(18660,13656,0,2)
    goto GLL16fix
  endif
  if radial(18660,13656,2,47)
    goto GLL17fix
  endif
  if radial(18660,13656,47,92)
    goto GLL18fix
  endif

GLL13fix:
  if cylinder(18630,13738,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 310 and intercept localizer."
    wait(5)
    print "Contact London Heathrow tower on 118.70"
    goto GLL27final
  endif
  gosub error
  gosub GLLaltitude
  if radial(18630,13738,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL13fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL13fix

GLL14fix:
  if cylinder(18562,13745,0,3)
    goto GLL13fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18562,13745,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL14fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL14fix

GLL15fix:
  if cylinder(18488,13654,0,5)
    goto GLL14fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18488,13654,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL15fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL15fix

GLL16fix:
  if cylinder(18831,13666,0,5)
    goto GLL17fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18831,13666,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL16fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL16fix

GLL17fix:
  if cylinder(18750,13752,0,3)
    goto GLL18fix
  endif
  gosub error
  gosub GLLaltitude
  if radial(18750,13752,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL17fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL17fix

GLL18fix:
  if cylinder(18683,13740,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 220 and intercept localizer."
    wait(5)
    print "Contact London Heathrow tower on 118.70"
    goto GLL27final
  endif
  gosub error
  gosub GLLaltitude
  if radial(18683,13740,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GLL18fix
  endif
  gosub heading
  gosub GLLcommand
  goto GLL18fix

GLL27final:
  if com(118.70)
    if vartest(p,0,0)
play "HASH.VOC"
      print "London Heathrow tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18660,13656,85,105)
play "HASH.VOC"
      print "BA 321 cleared to land runway 27"
      goto GLLland
    endif
  endif
  goto GLL27final

GLLland:
  if varmask(ground,1)
    if com(118.70)
      print "BA 321 contact ground control on 121.90"
    endif
    if com(121.90)
      goto taxi
    endif
  endif
  goto GLLland

GLLaltitude:
  if cylinder(18660,13656,26,35)
    if vartest(f,0,0)
    setvar(g,7000)
      if com(119.20)
play "HASH.VOC"
        if altitude(7100,32767)
          print "BA 321 descend and maintain 7000"
          setvar(h,4)
          setvar(n,7000)
          wait(5)
        endif
        if altitude(0,6900)
          print "BA 321 climb and maintain 7000"
          setvar(h,3)
          setvar(n,7000)
          wait(5)
        endif
      endif
      setvar(f,1)
    endif
  endif
  if cylinder(18660,13656,0,25)
    if vartest(f,0,1)
    setvar(g,2500)
      if com(119.20)
play "HASH.VOC"
        if altitude(2600,32767)
          print "BA 321 descend and maintain 2500"
          setvar(h,4)
          setvar(n,2500)
          wait(5)
        endif
        if altitude(0,2400)
          print "BA 321 climb and maintain 2500"
          setvar(h,3)
          setvar(n,2500)
          wait(5)
        endif
      endif
      setvar(f,2)
    endif
  endif
  return

GLLcommand:
  s := a - result
  if vartest(s,-360,0)
    addvar(s,360)
  endif
  m := l - a
  if vartest(m,0,0)
    return
  endif
  if com(119.20)
    movevar(n,a)
play "HASH.VOC"
    if vartest(s,0,180)
      printvar(a,"BA 321 turn right heading ")
      setvar(h,2)
    endif
    if vartest(s,180,360)
      printvar(a,"BA 321 turn left heading ")
      setvar(h,1)
    endif
  endif
  movevar(l,a)
  wait(10)
  return

GLLdeparture:
  if altitude(0,0)
  endif
  u := result / b / b * b * b
  addvar(u,4000)
  print "Contact clearance delivery on 121.70 to begin flight."
  if com(121.70)
play "HASH.VOC"
    print "BA 321 cleared for IFR flight via filed routing."
    wait(4)
    printvar(u,"Climb and maintain ")
    wait(3)
    printvar(k,"Within 10 minutes of departure expect ")
    wait(3)
    print "Departure frequency is 119.20"
    wait(3)
    print "Contact ground control on 121.90 for taxi instructions."
    goto GLLground
  endif
  goto GLLdeparture
GLLground:
  if com(121.90)
    gosub GLLrunway
    wait(5)
    goto GLLhold
  endif
  goto GLLground

GLLhold:
  if groundspeed(0,0)
    if com(118.70)
play "HASH.VOC"
      printvar(t,"BA 321 cleared for takeoff on runway ")
      wait(5)
      goto GLLtakeoff
    endif
  endif
  goto GLLhold

GLLtakeoff:
  if altagl(500,32767)
    if com(118.70)
play "HASH.VOC"
      print "Contact Heathrow departure on 119.20"
      setvar(f,0)
      wait(3)
      goto GLLclimbout
    endif
  endif
  goto GLLtakeoff

GLLclimbout:
  setvar(z,0)
  if com(119.20)
    setvar(z,1)
    if vartest(f,0,0)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      wait(5)
      addvar(f,1)
    endif
  endif
  if cylinder(18660,13656,0,0)
  endif
  movevar(r,result)
  gosub vectoring
  if vartest(f,3,3)
    setvar(x,0)
    setvar(y,0)
    return
  endif
  goto GLLclimbout

dest4:
  print "A - Birmingham International (GBB)   B - Next   / - Main menu"
  if key("a")
    if altagl(0,100)
      print "Begin your flight to Birmingham International"
      wait(2)
      gosub departcheck
      wait(10)
    endif
play "HASH.VOC"
    print "BA 321 resume own navigation"
    wait(10)
    goto GBBgeneric
  endif
  if key("b")
    goto dest5
  endif
  if key("/")
    goto flightplan
  endif
  goto dest4

GBBgeneric:
  gosub centercheck
  gosub GBBbegin
  goto GBBgeneric

GBBbegin:
  if cylinder(19127,13369,0,40)
    gosub appinit
play "HASH.VOC"
    print "BA 321 contact Birmingham approach on 118.05"
    goto GBBradio
  endif
  return

GBBradio:
  if altagl(1500,32767)
    if com(118.05)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      goto GBBapproach
    endif
  endif
  goto GBBradio

GBBapproach:
  if cylinder(19127,13369,0,35)
    if vartest(w0dir,11104,32767)
      goto GBB15runway
    endif
    if vartest(w0dir,-32767,-21662)
      goto GBB15runway
    endif
    if vartest(w0dir,-21662,11104)
      goto GBB33runway
    endif
  endif
  gosub error
  goto GBBapproach

GBBrunway:
play "HASH.VOC"
    if vartest(w0dir,11104,32767)
      setvar(t,15)
      print "BA 321 taxi to runway 15 and hold short"
    endif
    if vartest(w0dir,-32767,-21662)
      setvar(t,15)
      print "BA 321 taxi to runway 15 and hold short"
    endif
    if vartest(w0dir,-21662,11104)
      setvar(t,33)
      print "BA 321 taxi to runway 33 and hold short"
    endif
  return

GBB15runway:
  if com(118.05)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 15"
    setvar(h,7)
    setvar(n,15)
    wait(15)
  endif
  if radial(19127,13369,328,360)
    goto GBB1fix
  endif
  if radial(19127,13369,0,13)
    goto GBB1fix
  endif
  if radial(19127,13369,13,58)
    goto GBB2fix
  endif
  if radial(19127,13369,58,148)
    goto GBB3fix
  endif
  if radial(19127,13369,148,238)
    goto GBB4fix
  endif
  if radial(19127,13369,238,283)
    goto GBB5fix
  endif
  if radial(19127,13369,283,328)
    goto GBB6fix
  endif

GBB1fix:
  if cylinder(19211,13347,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 190 and intercept localizer."
    wait(5)
    print "Contact Birmingham International tower on 118.30"
    goto GBB15final
  endif
  gosub error
  gosub GBBaltitude
  if radial(19211,13347,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB1fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB1fix

GBB2fix:
  if cylinder(19255,13399,0,3)
    goto GBB1fix
  endif
  gosub error
  gosub GBBaltitude
  if radial(19255,13399,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB2fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB2fix

GBB3fix:
  if cylinder(19221,13512,0,5)
    goto GBB2fix
  endif
  gosub error
  gosub GBBaltitude
  if radial(19221,13512,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB3fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB3fix

GBB4fix:
  if cylinder(19039,13221,0,5)
    goto GBB5fix
  endif
  gosub error
  gosub GBBaltitude
  if radial(19039,13221,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB4fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB4fix

GBB5fix:
  if cylinder(19156,13239,0,3)
    goto GBB6fix
  endif
  gosub error
  gosub GBBaltitude
  if radial(19156,13239,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB5fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB5fix

GBB6fix:
  if cylinder(19183,13302,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 100 and intercept localizer."
    wait(5)
    print "Contact Birmingham International tower on 118.30"
    goto GBB15final
  endif
  gosub error
  gosub GBBaltitude
  if radial(19183,13302,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB6fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB6fix

GBB15final:
  if com(118.30)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Birmingham International tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(19127,13369,321,341)
play "HASH.VOC"
      print "BA 321 cleared to land runway 15"
      goto GBBland
    endif
  endif
  goto GBB15final

GBB33runway:
  if com(118.05)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 33"
    setvar(h,7)
    setvar(n,33)
    wait(15)
  endif
  if radial(19127,13369,148,193)
    goto GBB7fix
  endif
  if radial(19127,13369,193,238)
    goto GBB8fix
  endif
  if radial(19127,13369,238,328)
    goto GBB9fix
  endif
  if radial(19127,13369,328,360)
    goto GBB10fix
  endif
  if radial(19127,13369,0,58)
    goto GBB10fix
  endif
  if radial(19127,13369,58,103)
    goto GBB11fix
  endif
  if radial(19127,13369,103,148)
    goto GBB12fix
  endif

GBB7fix:
  if cylinder(19042,13390,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 10 and intercept localizer."
    wait(5)
    print "Contact Birmingham International tower on 118.30"
    goto GBB33final
  endif
  gosub error
  gosub GBBaltitude
  if radial(19042,13390,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB7fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB7fix

GBB8fix:
  if cylinder(18998,13338,0,3)
    goto GBB7fix
  endif
  gosub error
  gosub GBBaltitude
  if radial(18998,13338,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB8fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB8fix

GBB9fix:
  if cylinder(19032,13225,0,5)
    goto GBB8fix
  endif
  gosub error
  gosub GBBaltitude
  if radial(19032,13225,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB9fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB9fix

GBB10fix:
  if cylinder(19214,13516,0,5)
    goto GBB11fix
  endif
  gosub error
  gosub GBBaltitude
  if radial(19214,13516,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB10fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB10fix

GBB11fix:
  if cylinder(19097,13498,0,3)
    goto GBB12fix
  endif
  gosub error
  gosub GBBaltitude
  if radial(19097,13498,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB11fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB11fix

GBB12fix:
  if cylinder(19070,13435,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 280 and intercept localizer."
    wait(5)
    print "Contact Birmingham International tower on 118.30"
    goto GBB33final
  endif
  gosub error
  gosub GBBaltitude
  if radial(19070,13435,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GBB12fix
  endif
  gosub heading
  gosub GBBcommand
  goto GBB12fix

GBB33final:
  if com(118.30)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Birmingham International tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(19127,13369,141,161)
play "HASH.VOC"
      print "BA 321 cleared to land runway 33"
      goto GBBland
    endif
  endif
  goto GBB33final

GBBland:
  if varmask(ground,1)
    if com(118.30)
      print "BA 321 contact ground control on 121.80"
    endif
    if com(121.80)
      goto taxi
    endif
  endif
  goto GBBland

GBBaltitude:
  if cylinder(19127,13369,26,35)
    if vartest(f,0,0)
    setvar(g,5300)
      if com(118.05)
play "HASH.VOC"
        if altitude(5400,32767)
          print "BA 321 descend and maintain 5300"
          setvar(h,4)
          setvar(n,5300)
          wait(5)
        endif
        if altitude(0,5200)
          print "BA 321 climb and maintain 5300"
          setvar(h,3)
          setvar(n,5300)
          wait(5)
        endif
      endif
      setvar(f,1)
    endif
  endif
  if cylinder(19127,13369,0,25)
    if vartest(f,0,1)
    setvar(g,2500)
      if com(118.05)
play "HASH.VOC"
        if altitude(2600,32767)
          print "BA 321 descend and maintain 2500"
          setvar(h,4)
          setvar(n,2500)
          wait(5)
        endif
        if altitude(0,2400)
          print "BA 321 climb and maintain 2500"
          setvar(h,3)
          setvar(n,2500)
          wait(5)
        endif
      endif
      setvar(f,2)
    endif
  endif
  return

GBBcommand:
  s := a - result
  if vartest(s,-360,0)
    addvar(s,360)
  endif
  m := l - a
  if vartest(m,0,0)
    return
  endif
  if com(118.05)
    movevar(n,a)
play "HASH.VOC"
    if vartest(s,0,180)
      printvar(a,"BA 321 turn right heading ")
      setvar(h,2)
    endif
    if vartest(s,180,360)
      printvar(a,"BA 321 turn left heading ")
      setvar(h,1)
    endif
  endif
  movevar(l,a)
  wait(10)
  return

GBBdeparture:
  if altitude(0,0)
  endif
  u := result / b / b * b * b
  addvar(u,4000)
  print "Contact ground control on 121.80 to begin flight."

GBBground:
  if com(121.80)
    gosub GBBrunway
    wait(5)
    goto GBBhold
  endif
  goto GBBground

GBBhold:
  if groundspeed(0,0)
    if com(118.30)
play "HASH.VOC"
      printvar(t,"BA 321 cleared for takeoff on runway ")
      wait(5)
      goto GBBtakeoff
    endif
  endif
  goto GBBhold

GBBtakeoff:
  if altagl(500,32767)
    if com(118.30)
play "HASH.VOC"
      print "Contact Birmingham departure on 118.05"
      setvar(f,0)
      wait(3)
      goto GBBclimbout
    endif
  endif
  goto GBBtakeoff

GBBclimbout:
  setvar(z,0)
  if com(118.05)
    setvar(z,1)
    if vartest(f,0,0)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      wait(5)
      addvar(f,1)
    endif
  endif
  if cylinder(19127,13369,0,0)
  endif
  movevar(r,result)
  gosub vectoring
  if vartest(f,3,3)
    setvar(x,0)
    setvar(y,0)
    return
  endif
  goto GBBclimbout

dest5:
  print "A - London Gatwick (GKK)   B - Next   / - Main menu"
  if key("a")
    if altagl(0,100)
      print "Begin your flight to London Gatwick"
      wait(2)
      gosub departcheck
      wait(10)
    endif
play "HASH.VOC"
    print "BA 321 resume own navigation"
    wait(10)
    goto GKKgeneric
  endif
  if key("b")
    goto dest6
  endif
  if key("/")
    goto flightplan
  endif
  goto dest5

GKKgeneric:
  gosub centercheck
  gosub GKKbegin
  goto GKKgeneric

GKKbegin:
  if cylinder(18511,13713,0,40)
    gosub appinit
play "HASH.VOC"
    print "BA 321 contact Gatwick approach on 125.85"
    goto GKKradio
  endif
  return

GKKradio:
  if altagl(1500,32767)
    if com(125.85)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      goto GKKapproach
    endif
  endif
  goto GKKradio

GKKapproach:
  if cylinder(18511,13713,0,35)
    if vartest(w0dir,-1456,31310)
      goto GKK8runway
    endif
    if vartest(w0dir,31310,32767)
      goto GKK26runway
    endif
    if vartest(w0dir,-32767,-1456)
      goto GKK26runway
    endif
  endif
  gosub error
  goto GKKapproach

GKKrunway:
play "HASH.VOC"
    if vartest(w0dir,-1456,31310)
      setvar(t,8)
      print "BA 321 taxi to runway 8 and hold short"
    endif
    if vartest(w0dir,31310,32767)
      setvar(t,26)
      print "BA 321 taxi to runway 26 and hold short"
    endif
    if vartest(w0dir,-32767,-1456)
      setvar(t,26)
      print "BA 321 taxi to runway 26 and hold short"
    endif
  return

GKK8runway:
  if com(125.85)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 8"
    setvar(h,7)
    setvar(n,8)
    wait(15)
  endif
  if radial(18511,13713,259,304)
    goto GKK1fix
  endif
  if radial(18511,13713,304,349)
    goto GKK2fix
  endif
  if radial(18511,13713,349,360)
    goto GKK3fix
  endif
  if radial(18511,13713,0,79)
    goto GKK3fix
  endif
  if radial(18511,13713,79,169)
    goto GKK4fix
  endif
  if radial(18511,13713,169,214)
    goto GKK5fix
  endif
  if radial(18511,13713,214,259)
    goto GKK6fix
  endif

GKK1fix:
  if cylinder(18521,13626,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 120 and intercept localizer."
    wait(5)
    print "Contact London Gatwick tower on 124.25"
    goto GKK8final
  endif
  gosub error
  gosub GKKaltitude
  if radial(18521,13626,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK1fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK1fix

GKK2fix:
  if cylinder(18585,13603,0,3)
    goto GKK1fix
  endif
  gosub error
  gosub GKKaltitude
  if radial(18585,13603,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK2fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK2fix

GKK3fix:
  if cylinder(18678,13676,0,5)
    goto GKK2fix
  endif
  gosub error
  gosub GKKaltitude
  if radial(18678,13676,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK3fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK3fix

GKK4fix:
  if cylinder(18341,13741,0,5)
    goto GKK5fix
  endif
  gosub error
  gosub GKKaltitude
  if radial(18341,13741,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK4fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK4fix

GKK5fix:
  if cylinder(18400,13639,0,3)
    goto GKK6fix
  endif
  gosub error
  gosub GKKaltitude
  if radial(18400,13639,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK5fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK5fix

GKK6fix:
  if cylinder(18468,13636,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 30 and intercept localizer."
    wait(5)
    print "Contact London Gatwick tower on 124.25"
    goto GKK8final
  endif
  gosub error
  gosub GKKaltitude
  if radial(18468,13636,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK6fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK6fix

GKK8final:
  if com(124.25)
    if vartest(p,0,0)
play "HASH.VOC"
      print "London Gatwick tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18511,13713,252,272)
play "HASH.VOC"
      print "BA 321 cleared to land runway 8"
      goto GKKland
    endif
  endif
  goto GKK8final

GKK26runway:
  if com(125.85)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 26"
    setvar(h,7)
    setvar(n,26)
    wait(15)
  endif
  if radial(18511,13713,79,124)
    goto GKK7fix
  endif
  if radial(18511,13713,124,169)
    goto GKK8fix
  endif
  if radial(18511,13713,169,259)
    goto GKK9fix
  endif
  if radial(18511,13713,259,349)
    goto GKK10fix
  endif
  if radial(18511,13713,349,360)
    goto GKK11fix
  endif
  if radial(18511,13713,0,34)
    goto GKK11fix
  endif
  if radial(18511,13713,34,79)
    goto GKK12fix
  endif

GKK7fix:
  if cylinder(18500,13799,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 300 and intercept localizer."
    wait(5)
    print "Contact London Gatwick tower on 124.25"
    goto GKK26final
  endif
  gosub error
  gosub GKKaltitude
  if radial(18500,13799,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK7fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK7fix

GKK8fix:
  if cylinder(18436,13822,0,3)
    goto GKK7fix
  endif
  gosub error
  gosub GKKaltitude
  if radial(18436,13822,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK8fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK8fix

GKK9fix:
  if cylinder(18343,13749,0,5)
    goto GKK8fix
  endif
  gosub error
  gosub GKKaltitude
  if radial(18343,13749,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK9fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK9fix

GKK10fix:
  if cylinder(18680,13684,0,5)
    goto GKK11fix
  endif
  gosub error
  gosub GKKaltitude
  if radial(18680,13684,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK10fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK10fix

GKK11fix:
  if cylinder(18621,13786,0,3)
    goto GKK12fix
  endif
  gosub error
  gosub GKKaltitude
  if radial(18621,13786,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK11fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK11fix

GKK12fix:
  if cylinder(18553,13789,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 210 and intercept localizer."
    wait(5)
    print "Contact London Gatwick tower on 124.25"
    goto GKK26final
  endif
  gosub error
  gosub GKKaltitude
  if radial(18553,13789,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GKK12fix
  endif
  gosub heading
  gosub GKKcommand
  goto GKK12fix

GKK26final:
  if com(124.25)
    if vartest(p,0,0)
play "HASH.VOC"
      print "London Gatwick tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18511,13713,72,92)
play "HASH.VOC"
      print "BA 321 cleared to land runway 26"
      goto GKKland
    endif
  endif
  goto GKK26final

GKKland:
  if varmask(ground,1)
    if com(124.25)
      print "BA 321 contact ground control on 121.80"
    endif
    if com(121.80)
      goto taxi
    endif
  endif
  goto GKKland

GKKaltitude:
  if cylinder(18511,13713,26,35)
    if vartest(f,0,0)
    setvar(g,6500)
      if com(125.85)
play "HASH.VOC"
        if altitude(6600,32767)
          print "BA 321 descend and maintain 6500"
          setvar(h,4)
          setvar(n,6500)
          wait(5)
        endif
        if altitude(0,6400)
          print "BA 321 climb and maintain 6500"
          setvar(h,3)
          setvar(n,6500)
          wait(5)
        endif
      endif
      setvar(f,1)
    endif
  endif
  if cylinder(18511,13713,0,25)
    if vartest(f,0,1)
    setvar(g,3000)
      if com(125.85)
play "HASH.VOC"
        if altitude(3100,32767)
          print "BA 321 descend and maintain 3000"
          setvar(h,4)
          setvar(n,3000)
          wait(5)
        endif
        if altitude(0,2900)
          print "BA 321 climb and maintain 3000"
          setvar(h,3)
          setvar(n,3000)
          wait(5)
        endif
      endif
      setvar(f,2)
    endif
  endif
  return

GKKcommand:
  s := a - result
  if vartest(s,-360,0)
    addvar(s,360)
  endif
  m := l - a
  if vartest(m,0,0)
    return
  endif
  if com(125.85)
    movevar(n,a)
play "HASH.VOC"
    if vartest(s,0,180)
      printvar(a,"BA 321 turn right heading ")
      setvar(h,2)
    endif
    if vartest(s,180,360)
      printvar(a,"BA 321 turn left heading ")
      setvar(h,1)
    endif
  endif
  movevar(l,a)
  wait(10)
  return

GKKdeparture:
  if altitude(0,0)
  endif
  u := result / b / b * b * b
  addvar(u,4000)
  print "Contact clearance delivery on 121.95 to begin flight."
  if com(121.95)
play "HASH.VOC"
    print "BA 321 cleared for IFR flight via filed routing."
    wait(4)
    printvar(u,"Climb and maintain ")
    wait(3)
    printvar(k,"Within 10 minutes of departure expect ")
    wait(3)
    print "Departure frequency is 125.85"
    wait(3)
    print "Contact ground control on 121.80 for taxi instructions."
    goto GKKground
  endif
  goto GKKdeparture
GKKground:
  if com(121.80)
    gosub GKKrunway
    wait(5)
    goto GKKhold
  endif
  goto GKKground

GKKhold:
  if groundspeed(0,0)
    if com(124.25)
play "HASH.VOC"
      printvar(t,"BA 321 cleared for takeoff on runway ")
      wait(5)
      goto GKKtakeoff
    endif
  endif
  goto GKKhold

GKKtakeoff:
  if altagl(500,32767)
    if com(124.25)
play "HASH.VOC"
      print "Contact Gatwick departure on 125.85"
      setvar(f,0)
      wait(3)
      goto GKKclimbout
    endif
  endif
  goto GKKtakeoff

GKKclimbout:
  setvar(z,0)
  if com(125.85)
    setvar(z,1)
    if vartest(f,0,0)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      wait(5)
      addvar(f,1)
    endif
  endif
  if cylinder(18511,13713,0,0)
  endif
  movevar(r,result)
  gosub vectoring
  if vartest(f,3,3)
    setvar(x,0)
    setvar(y,0)
    return
  endif
  goto GKKclimbout

dest6:
  print "A - Bristol (GGD)   B - Next   / - Main menu"
  if key("a")
    if altagl(0,100)
      print "Begin your flight to Bristol"
      wait(2)
      gosub departcheck
      wait(10)
    endif
play "HASH.VOC"
    print "BA 321 resume own navigation"
    wait(10)
    goto GGDgeneric
  endif
  if key("b")
    goto dest7
  endif
  if key("/")
    goto flightplan
  endif
  goto dest6

GGDgeneric:
  gosub centercheck
  gosub GGDbegin
  goto GGDgeneric

GGDbegin:
  if cylinder(18704,13043,0,40)
    gosub appinit
play "HASH.VOC"
    print "BA 321 contact Bristol approach on 127.75"
    goto GGDradio
  endif
  return

GGDradio:
  if altagl(1500,32767)
    if com(127.75)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      goto GGDapproach
    endif
  endif
  goto GGDradio

GGDapproach:
  if cylinder(18704,13043,0,35)
    if vartest(w0dir,546,32767)
      goto GGD9runway
    endif
    if vartest(w0dir,-32767,-32221)
      goto GGD9runway
    endif
    if vartest(w0dir,-32221,546)
      goto GGD27runway
    endif
  endif
  gosub error
  goto GGDapproach

GGDrunway:
play "HASH.VOC"
    if vartest(w0dir,546,32767)
      setvar(t,9)
      print "Local winds are favoring runway 9"
    endif
    if vartest(w0dir,-32767,-32221)
      setvar(t,9)
      print "Local winds are favoring runway 9"
    endif
    if vartest(w0dir,-32221,546)
      setvar(t,27)
      print "Local winds are favoring runway 27"
    endif
  return

GGD9runway:
  if com(127.75)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 9"
    setvar(h,7)
    setvar(n,9)
    wait(15)
  endif
  if radial(18704,13043,270,315)
    goto GGD1fix
  endif
  if radial(18704,13043,315,360)
    goto GGD2fix
  endif
  if radial(18704,13043,360,360)
    goto GGD3fix
  endif
  if radial(18704,13043,0,90)
    goto GGD3fix
  endif
  if radial(18704,13043,90,180)
    goto GGD4fix
  endif
  if radial(18704,13043,180,225)
    goto GGD5fix
  endif
  if radial(18704,13043,225,270)
    goto GGD6fix
  endif

GGD1fix:
  if cylinder(18730,12959,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 130 and intercept localizer."
    wait(5)
    print "Contact Bristol tower on 133.85"
    goto GGD9final
  endif
  gosub error
  gosub GGDaltitude
  if radial(18730,12959,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD1fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD1fix

GGD2fix:
  if cylinder(18798,12949,0,3)
    goto GGD1fix
  endif
  gosub error
  gosub GGDaltitude
  if radial(18798,12949,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD2fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD2fix

GGD3fix:
  if cylinder(18875,13038,0,5)
    goto GGD2fix
  endif
  gosub error
  gosub GGDaltitude
  if radial(18875,13038,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD3fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD3fix

GGD4fix:
  if cylinder(18532,13038,0,5)
    goto GGD5fix
  endif
  gosub error
  gosub GGDaltitude
  if radial(18532,13038,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD4fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD4fix

GGD5fix:
  if cylinder(18609,12949,0,3)
    goto GGD6fix
  endif
  gosub error
  gosub GGDaltitude
  if radial(18609,12949,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD5fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD5fix

GGD6fix:
  if cylinder(18677,12959,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 40 and intercept localizer."
    wait(5)
    print "Contact Bristol tower on 133.85"
    goto GGD9final
  endif
  gosub error
  gosub GGDaltitude
  if radial(18677,12959,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD6fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD6fix

GGD9final:
  if com(133.85)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Bristol tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18704,13043,263,283)
play "HASH.VOC"
      print "BA 321 cleared to land runway 9"
      goto GGDland
    endif
  endif
  goto GGD9final

GGD27runway:
  if com(127.75)
play "HASH.VOC"
    print "BA 321 expect vectors for runway 27"
    setvar(h,7)
    setvar(n,27)
    wait(15)
  endif
  if radial(18704,13043,90,135)
    goto GGD7fix
  endif
  if radial(18704,13043,135,180)
    goto GGD8fix
  endif
  if radial(18704,13043,180,270)
    goto GGD9fix
  endif
  if radial(18704,13043,270,360)
    goto GGD10fix
  endif
  if radial(18704,13043,360,360)
    goto GGD11fix
  endif
  if radial(18704,13043,0,45)
    goto GGD11fix
  endif
  if radial(18704,13043,45,90)
    goto GGD12fix
  endif

GGD7fix:
  if cylinder(18677,13126,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 310 and intercept localizer."
    wait(5)
    print "Contact Bristol tower on 133.85"
    goto GGD27final
  endif
  gosub error
  gosub GGDaltitude
  if radial(18677,13126,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD7fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD7fix

GGD8fix:
  if cylinder(18609,13136,0,3)
    goto GGD7fix
  endif
  gosub error
  gosub GGDaltitude
  if radial(18609,13136,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD8fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD8fix

GGD9fix:
  if cylinder(18532,13047,0,5)
    goto GGD8fix
  endif
  gosub error
  gosub GGDaltitude
  if radial(18532,13047,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD9fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD9fix

GGD10fix:
  if cylinder(18875,13047,0,5)
    goto GGD11fix
  endif
  gosub error
  gosub GGDaltitude
  if radial(18875,13047,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD10fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD10fix

GGD11fix:
  if cylinder(18798,13136,0,3)
    goto GGD12fix
  endif
  gosub error
  gosub GGDaltitude
  if radial(18798,13136,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD11fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD11fix

GGD12fix:
  if cylinder(18730,13126,0,3)
play "HASH.VOC"
    print "BA 321 turn to heading 220 and intercept localizer."
    wait(5)
    print "Contact Bristol tower on 133.85"
    goto GGD27final
  endif
  gosub error
  gosub GGDaltitude
  if radial(18730,13126,0,0)
  endif
  movevar(d,result)
  e := d - r
  if vartest(e,-15,15)
    goto GGD12fix
  endif
  gosub heading
  gosub GGDcommand
  goto GGD12fix

GGD27final:
  if com(133.85)
    if vartest(p,0,0)
play "HASH.VOC"
      print "Bristol tower with you."
      wait(5)
      setvar(p,1)
    endif
    if radial(18704,13043,83,103)
play "HASH.VOC"
      print "BA 321 cleared to land runway 27"
      goto GGDland
    endif
  endif
  goto GGD27final

GGDland:
  if varmask(ground,1)
    print "(c) 1993 - John Mechalas"
    wait(3)
    goto stop
  endif
  goto GGDland

GGDaltitude:
  if cylinder(18704,13043,26,35)
    if vartest(f,0,0)
    setvar(g,3000)
      if com(127.75)
play "HASH.VOC"
        if altitude(3100,32767)
          print "BA 321 descend and maintain 3000"
          setvar(h,4)
          setvar(n,3000)
          wait(5)
        endif
        if altitude(0,2900)
          print "BA 321 climb and maintain 3000"
          setvar(h,3)
          setvar(n,3000)
          wait(5)
        endif
      endif
      setvar(f,1)
    endif
  endif
  if cylinder(18704,13043,0,25)
    if vartest(f,0,1)
    setvar(g,2000)
      if com(127.75)
play "HASH.VOC"
        if altitude(2100,32767)
          print "BA 321 descend and maintain 2000"
          setvar(h,4)
          setvar(n,2000)
          wait(5)
        endif
        if altitude(0,1900)
          print "BA 321 climb and maintain 2000"
          setvar(h,3)
          setvar(n,2000)
          wait(5)
        endif
      endif
      setvar(f,2)
    endif
  endif
  return

GGDcommand:
  s := a - result
  if vartest(s,-360,0)
    addvar(s,360)
  endif
  m := l - a
  if vartest(m,0,0)
    return
  endif
  if com(127.75)
    movevar(n,a)
play "HASH.VOC"
    if vartest(s,0,180)
      printvar(a,"BA 321 turn right heading ")
      setvar(h,2)
    endif
    if vartest(s,180,360)
      printvar(a,"BA 321 turn left heading ")
      setvar(h,1)
    endif
  endif
  movevar(l,a)
  wait(10)
  return

GGDdeparture:
  if altitude(0,0)
  endif
  u := result / b / b * b * b
  addvar(u,4000)
  print "Taxi to departing runway and contact tower on 133.85 to begin flight."

GGDground:
  if com(133.85)
    gosub GGDrunway
    wait(5)
    goto GGDhold
  endif
  goto GGDground

GGDhold:
  if groundspeed(0,0)
    if com(133.85)
play "HASH.VOC"
      printvar(t,"BA 321 cleared for takeoff on runway ")
      wait(5)
      goto GGDtakeoff
    endif
  endif
  goto GGDhold

GGDtakeoff:
  if altagl(500,32767)
    if com(133.85)
play "HASH.VOC"
      print "Contact Bristol departure on 127.75"
      setvar(f,0)
      wait(3)
      goto GGDclimbout
    endif
  endif
  goto GGDtakeoff

GGDclimbout:
  setvar(z,0)
  if com(127.75)
    setvar(z,1)
    if vartest(f,0,0)
      wait(3)
play "HASH.VOC"
      print "BA 321 radar contact"
      wait(5)
      addvar(f,1)
    endif
  endif
  if cylinder(18704,13043,0,0)
  endif
  movevar(r,result)
  gosub vectoring
  if vartest(f,3,3)
    setvar(x,0)
    setvar(y,0)
    return
  endif
  goto GGDclimbout

vectoring:
  if vartest(r,0,5)
    if vartest(f,1,1)
      movevar(g,u)
      addvar(f,1)
      if vartest(z,1,1)
play "HASH.VOC"
        printvar(u,"BA 321 climb and maintain ")
        setvar(h,3)
        movevar(n,u)
        wait(3)
      endif
    endif
  endif
  if vartest(r,2,10)
    if vartest(d,0,0)
      if vartest(z,1,1)
play "HASH.VOC"
        print "BA 321 proceed direct to first navigation fix"
        addvar(d,1)
      endif
    endif
  endif
  if vartest(r,10,20)
    if vartest(f,2,2)
      movevar(g,k)
      addvar(f,1)
      if vartest(z,1,1)
play "HASH.VOC"
        printvar(k,"BA 321 climb and maintain ")
        setvar(h,3)
        movevar(n,k)
        wait(7)
      endif
    endif
  endif
  gosub error
  return

dest7:
  goto dest1

taxi:
  print "BA 321 taxi to the ramp.  Thank you for flying ATC Net."
  wait(3)
  print "ATC Net is (c) 1993 by John Mechalas"
  wait(3)
  print "Reset the adventure to fly again"

stop:
  goto stop

heading:
  a := d / u * u
  addvar(a,-180)
adjust:
  if vartest(a,-32768,0)
    addvar(a,360)
    goto adjust
  endif
  if vartest(a,361,32767)
    addvar(a,-360)
    goto adjust
  endif
  if heading(0,0)
  endif
  return

error:
  if key("w")
    if course()
    endif
    printvar(result,"Course is ")
    wait(1)
  endif
  if key("/")
    if vartest(h,1,1)
      printvar(n,"BA 321 turn left heading ")
    endif
    if vartest(h,2,2)
      printvar(n,"BA 321 turn right heading ")
    endif
    if vartest(h,3,3)
      printvar(n,"BA 321 climb and maintain ")
    endif
    if vartest(h,4,4)
      printvar(n,"BA 321 descend and maintain ")
    endif
    if vartest(h,5,5)
      printvar(n,"BA 321 check altimeter and maintain ")
    endif
    if vartest(h,6,6)
      print "BA 321 reduce speed to 250 knots"
    endif
    if vartest(h,7,7)
      printvar(n,"BA 321 expect vectors for runway ")
    endif
  endif
  if course(0,0)
  endif
  r := result - c
  if vartest(r,-360,0)
    addvar(r,360)
  endif
  if airspeed(270,10000)
    if altitude(0,9800)
      if vartest(x,15,32767)
play "HASH.VOC"
        print "BA 321 reduce speed to 250 knots."
        setvar(h,6)
        setvar(x,0)
      endif
      addvar(x,1)
    endif
  endif
  if vartest(f,0,2)
    if altitude(0,0)
    endif
    o := result - g
    if vartest(o,300,32767)
      if vartest(vely,100,32767)
        if vartest(y,10,32767)
play "HASH.VOC"
          printvar(g,"BA 321 check altimeter and maintain ")
          setvar(h,5)
          movevar(n,g)
          setvar(y,0)
        endif
        addvar(y,1)
      endif
    endif
    if vartest(o,-32767,-300)
      if vartest(vely,-32767,-100)
        if vartest(y,10,32767)
play "HASH.VOC"
          printvar(g,"BA 321 check altimeter and maintain ")
          setvar(h,5)
          movevar(n,g)
          setvar(y,0)
        endif
        addvar(y,1)
      endif
    endif
  endif
  return

newaltitude:
  if altitude(0,0)
  endif
  e := g - result
  if vartest(z,1,1)
play "HASH.VOC"
    if vartest(e,-32767,-1)
      printvar(g,"BA 321 descend and maintain ")
      movevar(n,g)
      setvar(h,4)
    endif
    if vartest(e,1,32767)
      printvar(g,"BA 321 climb and maintain ")
      movevar(n,g)
      setvar(h,3)
    endif
  endif
  wait(5)
  return

departcheck:
  if cylinder(18704,13043,0,2)
    goto GGDdeparture
  endif
  if cylinder(18511,13713,0,2)
    goto GKKdeparture
  endif
  if cylinder(19127,13369,0,2)
    goto GBBdeparture
  endif
  if cylinder(18660,13656,0,2)
    goto GLLdeparture
  endif
  if cylinder(17749,13049,0,2)
    goto GJJdeparture
  endif
  if cylinder(18455,12812,0,2)
    goto GTEdeparture
  endif
  if altagl(0,1000)
    goto departcheck
  endif
  setvar(z,1)
  return


EOF