; TOROSH.TXT

setvar(a,1)  ; original ascent
setvar(d,1)  ; original descent
setvar(x,0)  ; atc responece
setvar(q,0)  ; chatter variable
setvar(b,0)  ; cloud cover set sw
setvar(v,0)  ; voice
setvar(t,0)  ; text

print "Be sure TOR.SC1 and SD-11.SCN is loaded"
wait (3)

voctxt:
   print "Press (V) for voice messages, (T) for text messages"
   if key("v")
      setvar(v,1)
      goto nav1loop
   endif
   if key("t")
      setvar(t,1)
      goto nav1loop
   endif
   goto  voctxt

nav1loop:
   print "Please set Nav1 to 113.3"
   if nav1(113.3)
      goto adfloop
   endif
   goto nav1loop

adfloop:
   print "Please set Nav2 (ADF) to 391 (Oshawa NDB)"
   if adf(391)
      print "Contact ground on 121.9 now to start flight"
      wait(5)
      goto mainloop
   endif
   goto adfloop


mainloop:
   if key("x")
      if com(121.90)     ;Toronto ground     - got the right freq?
         gosub ground
         goto mainloop
      endif
      if com(118.70)     ;Toronto tower      - got the right freq?
         gosub tower
         gosub aftakeoff
         goto mainloop
      endif
      if com(128.80)     ;Toronto depature   - got the right freq?
         gosub departure
         goto mainloop
      endif
      if com(119.30)     ;Toronto tarsa      - got the right freq?
         gosub enroute
         gosub coastline
         gosub arrival
         goto mainloop
      endif
      if com(120.10)     ;Oshawa tower       - got the right freq?
         gosub oshtower
         goto mainloop
      endif
   endif

   goto mainloop


ground:                         ;ground instruction protion of flight
     if key("x")
        if vartest(v,1,1)
           play "TOR04.VOC"        ;pilot ask for taxi instr
           wait(1)
           play "TOR05.VOC"        ;atc taxi instr
           wait(1)
           RETURN
        endif
        if vartest(t,1,1)
           print "MMC, taxi via gulf,alpha,lime  Hold short -->"
           wait(3)
           print "of 24R,  Contact tower on 118.7"
           wait(4)
           RETURN
        endif
     endif

     goto ground


tower:                          ; tower portion of flight
     if key("x")
        if vartest(v,1,1)
            play "TOR06.VOC"       ;pilot ask for tower instr
            wait(1)
            play "TOR07.VOC"       ;tower instr
            wait(1)
            RETURN
        endif
        if vartest(t,1,1)
           print "MMC,runway heading stay with me, cleared  -->"
           wait(3)
           print "for takeoff on 24R"
           wait(4)
           RETURN
        endif
     endif

     goto tower


aftakeoff:      after take-off prortion of flight
     if altitude(1500,9000)
        if vartest(v,1,1)
           play "TOR08.VOC"
           wait(1)
           RETURN
        endif
        if vartest(t,1,1)
           print "MMC,contact departure on 128.8"
           wait(4)
           RETURN
        endif
     endif

     goto aftakeoff


departure:      depature protion of flight
     if key("x")
        if vartest(v,1,1)
           play "TOR09.VOC"        ;pilot ask for departure intsr
           wait(1)
           play "TOR10.VOC"        ;departure instr
           wait(1)
        endif
        if vartest(t,1,1)
           print "MMC,radar identified, climb and maintain 5000 -->"
           wait(3)
           print "at 3600 ft, turn left heading 180"
           wait(4)
        endif
     endif

     if dme(5,10)
        if vartest(v,1,1)
           play "TOR11.VOC"        ;contact tarsa
           RETURN
        endif
        if vartest(t,1,1)
           print "MMC,contact center on 119.3"
           wait(3)
           RETURN
        endif
     endif

     goto departure

enroute:
     if key("x")
        if vartest(v,1,1)
           play "TOR12.VOC"        ;pilot ask for tarsa instr
           wait(1)
           play "TOR13.VOC"        ;tarsa instr
           wait(1)
           RETURN
        endif
        if vartest(t,1,1)
           print "MMC,radr identified, turn left direct Oshawa NDB -->"
           wait(3)
           print "climb and maintain 7000 ft, speed 250 or less"
           wait(4)
           RETURN
        endif
     endif

     goto enroute

coastline:
     if vartest(b,0,0)
        if cylinder(18126,19131,10,12)  ;10 miles from Toronto
           setvar(cloud1top,9000)
           setvar(cloud1bot,2000)
           setvar(cloud1cover,9)
           setvar(b,2)
        endif
     endif
     if cylinder(18126,19131,14,16)   ;16 miles from Toronto
        if vartest(q,0,0)
           if vartest(v,1,1)
              play "TOR14.VOC"        ;speed reduction  210
           endif
           if vartest(t,1,1)
              print "MMC,reduce speed to 210 indicated"
              wait(3)
           endif
           setvar(q,1)
        endif
     endif

     if cylinder(18256,19351,0,23)    ;23 miles from oshawa
        if vartest(q,1,1)
           if vartest(v,1,1)
              play "TOR20.VOC"        ;descend command 5000 speed 190
              setvar(q,2)
              RETURN
           endif
           if vartest(t,1,1)
              print "MMC,descend and maintain 5000 ft, at 5000 -->
              wait(3)
              print "reduce speed to 190 indicated"
              wait(3)
              setvar(q,2)
              RETURN
           endif
        endif
     endif

     gosub checkasc

     if vartest(a,9,11)
        if altitude(0,0)
        endif
        if vartest(result,7500,10000)
           if vartest(v,1,1)
              play "TOR17.VOC"
              setvar(a,1)
              wait(10)
           endif
           if vartest(t,1,1)
              print "MMC,maintain assigned altitude"
              wait(10)
           endif
        endif
        if vartest(result,0,6500)
           if vartest(v,1,1)
              play "TOR17.VOC"
              setvar(a,1)
              wait(10)
           endif
           if vartest(t,1,1)
              print "MMC,maintain assigned altitude"
              wait(10)
           endif
        endif
     endif

     if airspeed(250,500)
        if vartest(v,1,1)
           play "TOR19.VOC"    ;maintaine 250 or less
           wait(15)
        endif
        if vartest(t,1,1)
           print "MMC, reduce speed to 250 or less indicated"
           wait(15)
        endif
     endif

     goto coastline


arrival:         ; descent into oshwaw
     if cylinder(18256,19351,0,18)    ;18 miles from oshawa
        if vartest(q,2,2)
           if vartest(v,1,1)
              play "TOR21.VOC"    ;descend command to 4000 ft,speed 170
           endif
           if vartest(t,1,1)
              print "MMC, descend to 4000 ft, at 4000 reduce speed -->"
              wait(3)
              print "to 170 indicated"
              wait(4)
           endif
           setvar(q,3)
        endif
     endif

     if cylinder(18256,19351,0,9)     ;9 miles from oshawa
        if vartest(v,1,1)
           play "TOR22.VOC"    ;descend command to 2500,tower
           RETURN
        endif
        if vartest(t,1,1)
           print "MMC, descend to 2500 ft, contact Oshawa tower -->"
           wait(3)
           print "on 120.1,   good day"
           wait(4)
           RETURN
        endif
     endif

     goto arrival


oshtower:        ; contact oshawa tower  rtn
     if key("x")
        if vartest(v,1,1)
           play "TOR24.VOC"        ;pilot calls oshawa tower
           wait(1)
           play "TOR25.VOC"        ;oshawa tower instr
           wait(8)
           if geardown()
              goto done
           endif
           play "TOR16.VOC"         ;gear down call
           goto done
        endif
        if vartest(t,1,1)
           print "MMC, check gear down,cleared to land on 04"
           wait(8)
           if geardown()
              goto done
           endif
           print "MMC, check gear down please"
           goto done
        endif
     endif

     goto oshtower


checkasc:  ; check if reach 7000' feet
     if vartest(vely,0,250)
        if altitude(0,0)
        endif
        if vartest(result,0,6800)
           if vartest(v,1,1)
              play "TOR18.VOC"         ;expedite climb
              RETURN
           endif
           if vartest(t,1,1)
              print "MMC, expedite climb "
              wait(3)
              RETURN
           endif
        endif
     endif
     if altitude(0,0)
     endif
     if vartest(result,6800,10000)
        setvar(a,10)
     endif
     RETURN


done:
      EOF
