; 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