home *** CD-ROM | disk | FTP | other *** search
- ECHO OFF
- REM ── 05-16-91...
-
- CD\
- PRINT /T
- CLS
- \TAKE-OFF.DIR\J.COM /H
- CLS
- TYPE \TAKE-OFF.DIR\VV
- BREAK OFF
- CD \TAKE-OFF.DIR
-
- IF EXIST LIFE.EXE IF EXIST DEATH.EXE DEATH
-
- IF EXIST AIRPORT\APT.NEW IF EXIST AIRPORT\AIRPORT.OUT GOTO NOSTOP1
-
- :LOADAPT
- IF NOT EXIST AIRPORT\APT.NEW GOTO NOAPT
- IF NOT EXIST AIRPORT\AIRPORT.* GOTO NOAPT
- IF EXIST CAIRGEN.EXE IF EXIST AIRPORT\AIRPORT.SSS CAIRGEN.EXE
- CLS
- ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
- IF EXIST \TAKE-OFF.DIR\AIRPORT\!??.APT ECHO CANADIAN AFD'S LOADED.
- IF EXIST \TAKE-OFF.DIR\AIRPORT\{??.APT ECHO WESTERN AFD'S LOADED.
- IF EXIST \TAKE-OFF.DIR\AIRPORT\}??.APT ECHO EASTERN AFD'S LOADED.
- IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\???.APT ECHO - AIRPORT AFD'S NOT PRESENT.
- ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
- IF EXIST \TAKE-OFF.DIR\AIRPORT\!.AP? ECHO CANADIAN DIAGRAMS LOADED.
- IF EXIST \TAKE-OFF.DIR\AIRPORT\{.AP? ECHO WESTERN DIAGRAMS LOADED.
- IF EXIST \TAKE-OFF.DIR\AIRPORT\}.AP? ECHO EASTERN DIAGRAMS LOADED.
- IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\?.AP? ECHO - AIRPORT DIAGRAMS NOT PRESENT.
- ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
- ECHO - See AUDIT [F8] for print-out of Airport Index & Airport ID's.
- ECHO - Available as subscription.....updated every 56 days.
- ECHO
- PAUSE
- GOTO NOSTOP1
-
- :NOAPT
- ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
- IF EXIST AIRPORT\AIRPORT.* ECHO - Old Airports purged due to format change! Please apply for updates.
- IF EXIST AIRPORT\AIRPORT.* ERASE AIRPORT\AIRPORT.*
- IF EXIST AIRPORT\*.FPT ERASE AIRPORT\*.FPT
- ECHO - Your system has no airports!.....
- ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
- PAUSE
-
- :NOSTOP1
-
- IF EXIST SUCCESS ERASE SUCCESS
- IF EXIST *.FB GOTO NEXTONE1
- VOL >FB
- QLOAD
-
- :NEXTONE
- CLS
- :NEXTONE1
- IF %1. == . GOTO ENDING
-
- IF %1 == EXTEND MENU_EXT
- IF %1 == extend MENU_EXT
- IF %1 == X MENU_EXT
- IF %1 == x MENU_EXT
-
- IF %1 == RECALL GOTO OPTIONP
- IF %1 == recall GOTO OPTIONP
- IF %1 == FBO GOTO STARTER
- IF %1 == FBO$ GOTO MAIN
- IF %1 == FBO! GOTO CLEARANCE
- IF %1 == FBOHELP GOTO HELPENDING
- IF %1 == GRAPH GOTO CHARTMASTER
- IF %1 == graph GOTO CHARTMASTER
- IF %1 == G GOTO CHARTMASTER
- IF %1 == g GOTO CHARTMASTER
-
- IF %1 == LISTPLAN GOTO OPTIONB
- IF %1 == listplan GOTO OPTIONB
- IF %1 == NAVSUM GOTO OPTIONC
- IF %1 == navsum GOTO OPTIONC
- IF %1 == PRINT GOTO OPTIOND
- IF %1 == print GOTO OPTIOND
-
- IF %1 == PREF GOTO OPTIONJ
- IF %1 == pref GOTO OPTIONJ
- IF %1 == AUTO GOTO OPTIONL
- IF %1 == auto GOTO OPTIONL
- IF %1 == RNAV GOTO OPTIONM
- IF %1 == rnav GOTO OPTIONM
- IF %1 == PLAN GOTO OPTIONK
- IF %1 == plan GOTO OPTIONK
- IF %1 == AIRPORT GOTO AIRPORTS
- IF %1 == airport GOTO AIRPORTS
- IF %1 == AFD GOTO AIRPORTS
- IF %1 == afd GOTO AIRPORTS
-
- IF %1 == W&B GOTO W&B
- IF %1 == w&b GOTO W&B
- IF %1 == MAIN GOTO MAIN
- IF %1 == main GOTO MAIN
- IF %1 == MENU GOTO CLEARANCE
- IF %1 == menu GOTO CLEARANCE
- IF %1 == MANUAL GOTO MANUAL
- IF %1 == manual GOTO MANUAL
- IF %1 == HELP GOTO HELP
- IF %1 == help GOTO HELP
- IF %1 == MODEL GOTO MODEL
- IF %1 == model GOTO MODEL
-
- IF %1 == SEARCH GOTO NAVTLU
- IF %1 == search GOTO NAVTLU
- IF %1 == S GOTO NAVTLU
- IF %1 == s GOTO NAVTLU
-
- IF %1 == INTERSECTION GOTO XSCTN
- IF %1 == intersection GOTO XSCTN
- IF %1 == I GOTO XSCTN
- IF %1 == i GOTO XSCTN
-
- IF %1 == NAVAID GOTO NAVAID
- IF %1 == navaid GOTO NAVAID
- IF %1 == N GOTO NAVAID
- IF %1 == n GOTO NAVAID
-
- IF %1 == RESET GOTO RESET
- IF %1 == reset GOTO RESET
- IF %1 == AUTOEXEC GOTO AEXEC
- IF %1 == autoexec GOTO AEXEC
-
- IF %1 == ALARM GOTO ALARM
- IF %1 == alarm GOTO ALARM
- IF %1 == FUEL GOTO FUEL
- IF %1 == fuel GOTO FUEL
-
- IF %1 == LOGOS GOTO LOGOS
- IF %1 == logos GOTO LOGOS
-
- IF %1 == VIEW GOTO VIEW
- IF %1 == view GOTO VIEW
- IF %1 == V GOTO VIEW
- IF %1 == v GOTO VIEW
-
- ECHO - [ %1 ] Function unknown!......
- PAUSE
- GOTO ENDING
- :VIEW
- VIEW 12
- GOTO ENDING
-
- :FUEL
- QLOAD
- IF NOT EXIST FB ECHO - Fuel load not successful.....
- IF NOT EXIST FB PAUSE
- GOTO ENDING
-
- :RESET
- BEGIN
- GOTO ENDING
-
- :MAIN
- IDLER
- GOTO ENDING
-
- :XSCTN
- IDLER 5
- GOTO ENDING
-
- :NAVAID
- IDLER 4
- GOTO ENDING
-
- :ALARM
- IF NOT %2. == . GOTO ALARMA
- ECHO - Vendor # missing!......
- GOTO ALARMEXI
- :ALARMA
- IF NOT %3. == . GOTO ALARMGO
- ECHO - Time missing!......
- :ALARMEXI
- PAUSE
- GOTO ENDING
-
- :ALARMGO
- IDLER 10 %2 %3 %4 %5 %6 %7 %8 %9
- REM - spaces are required to allow for commandmsg$ display.....
- IF NOT EXIST SUCCESS GOTO ENDING
- IF %2 == 8 GOTO DUATLOG
- IF %2 == 9 GOTO DUATLOG
-
- :ALARMC
- SHIFT
- SHIFT
- SHIFT
- GOTO NEXTONE
-
- :DUATLOG
- CLS
- ECHO - Printing DUAT log.......
- COPY /A DUAT.DAT PRN:
- COPY /B SUCCESS PRN:
- GOTO ALARMC
-
- :CLEARANCE
- CLEARANC
- GOTO ENDING
-
- :OPTIONB
- CLEARANC B
- GOTO ENDING
-
- :OPTIONC
- CLEARANC C
- GOTO ENDING
-
- :OPTIOND
- IF EXIST PRTARGET ERASE PRTARGET
- CLEARANC D PRTARGET nonesuch nonesuch
- GOTO PLANFINI
-
- :OPTIONJ
- IF EXIST PRTARGET ERASE PRTARGET
- IF EXIST AIRPORTS ERASE AIRPORTS
- IF EXIST APTARGET ERASE APTARGET
- CLEARANC J PRTARGET %2 %3
- GOTO OPTJLM
-
- :OPTIONL
- IF EXIST PRTARGET ERASE PRTARGET
- IF EXIST AIRPORTS ERASE AIRPORTS
- IF EXIST APTARGET ERASE APTARGET
- CLEARANC L PRTARGET %2 %3 %4 %5 %6 %7
- GOTO OPTJLM
-
- :OPTIONM
- IF EXIST PRTARGET ERASE PRTARGET
- IF EXIST AIRPORTS ERASE AIRPORTS
- IF EXIST APTARGET ERASE APTARGET
- CLEARANC M PRTARGET %2 %3
- GOTO OPTJLM
-
- :OPTIONK
- IF EXIST AIRPORTS ERASE AIRPORTS
- CLEARANC K
- GOTO ENDING
-
- :OPTIONP
- IF EXIST PRTARGET ERASE PRTARGET
- IF EXIST AIRPORTS ERASE AIRPORTS
- IF EXIST APTARGET ERASE APTARGET
- CLEARANC P PRTARGET zzzzz zzzzz
- GOTO OPTJLM
-
- :OPTJLM
- CLS
- IF NOT EXIST PRTARGET ECHO - Plan was not successful......!
- IF NOT EXIST PRTARGET PAUSE
- IF NOT EXIST PRTARGET GOTO ENDING
- CLS
- ECHO - Please turn printer & modem on. Thank you.
- COPY /B PRTARGET PRN:
- CLS
- IF EXIST WEABRIEF ERASE WEABRIEF
- IF EXIST SUCCESS IDLER 11
- CLS
- ECHO - Printing enroute weather briefing.........
- IF EXIST WEABRIEF COPY /B WEABRIEF PRN:
- CLS
- IF NOT EXIST AIRPORTS GOTO ACHART
- AFD
- ECHO - Please turn printer on. Thank you.
- COPY /B APTARGET PRN:
-
- :ACHART
- IF EXIST GRTARGET ERASE GRTARGET
- IF %2. == . CHARTER
- IF %2. == . GOTO ENDING
- CHARTER GRTARGET
- GOTO XCHARTMASTER
-
- :CHARTMASTER
- IF EXIST GRTARGET ERASE GRTARGET
- IF %2. == . CHARTER
- IF %2. == . GOTO ENDING
- CHARTER GRTARGET %3
- :XCHARTMASTER
- IF NOT EXIST GRTARGET GOTO ENDING
- ECHO - Please turn printer on. Thank you.
- COPY /B GRTARGET PRN:
- GOTO ENDING
-
- :PLANFINI
- IF NOT EXIST PRTARGET GOTO ENDING
- CLS
- ECHO - Please turn printer on. Thank you.
- COPY /B PRTARGET PRN:
- IF %2. == R. GOTO PLANFB
- IF %2. == r. GOTO PLANFB
- GOTO PLANFA
-
- :PLANFB
- IF EXIST GRTARGET ERASE GRTARGET
- CHARTER GRTARGET
- IF NOT EXIST GRTARGET GOTO ENDING
- ECHO - Please turn printer on. Thank you.
- COPY /B GRTARGET PRN:
- :PLANFA
- IF %3. == . GOTO OPTDKP
- SHIFT
- GOTO AIRPORTS
-
- :AIRPORTS
- IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT CLS
- IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT ECHO - Airports not present!
- IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT PAUSE
- IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT GOTO ENDING
- IF EXIST APTARGET ERASE APTARGET
- IF %2. == . AIRPORT
- IF %2. == . GOTO ENDING
- AIRPORT %2 %3 APTARGET %4 %5
- IF NOT EXIST APTARGET GOTO ENDING
- REM - IF %4. == . PAUSE
- CLS
- :OPTDKPX
- IF NOT EXIST APTARGET GOTO ENDING
- ECHO - Please turn printer on. Thank you.
- COPY /B APTARGET PRN:
- GOTO ENDING
-
- :OPTDKP
- CLS
- IF EXIST APTARGET ERASE APTARGET
- IF EXIST AIRPORTS AFD
- GOTO OPTDKPX
-
- :W&B
- WB
- GOTO ENDING
-
- :MODEL
- BUILD
- GOTO ENDING
-
- :NAVTLU
- NAVTLU
- GOTO ENDING
-
- :STARTER
- DIR \TAKE-OFF.DIR\*.VER >VERSIONS
- TYPE \TAKE-OFF.DIR\VERSIONS | MORE
- TYPE \TAKE-OFF.DIR\COPYRATE.MAN
- TYPE \TAKE-OFF.DIR\TOMBSTON.EXE
- PAUSE
- GOTO MAIN
-
- :HELPENDING
- DIR \TAKE-OFF.DIR\*.VER >VERSIONS
- ECHO - Versions installed......
- TYPE \TAKE-OFF.DIR\VERSIONS | MORE
- PAUSE
- GOTO ENDING
-
- :MANUAL
- ECHO - PRINT CLEARANCE MANUAL
- ECHO -
- ECHO - Turn Printer on! DOS print file must be in path.
- ECHO -
- PAUSE
- CD\
- DIR \TAKE-OFF.DIR\*.VER >VERSIONS
- PRINT \TAKE-OFF.DIR\VERSIONS
- PRINT \TAKE-OFF.DIR\HELP.BAS
- CLS
- TYPE \TAKE-OFF.DIR\V
- ECHO - Wait for printing to stop!
- PAUSE
- GOTO ENDING
-
- :HELP
- IDLER 1
- GOTO ENDING
-
- :LOGOS
- IF EXIST \TAKE-OFF.DIR\AIRPORT\MAKELOGO.EXE IF EXIST \TAKE-OFF.DIR\AIRPORT\LOGOS.BAT GOTO LOGOS2
- CLS
- ECHO - Please install Master Airport directory. Thank you.
- ECHO
- PAUSE
- GOTO ENDING
-
- :LOGOS2
- IF EXIST \TAKE-OFF.DIR\AIRPORT\*.LGO ERASE \TAKE-OFF.DIR\AIRPORT\*.LGO
- IF EXIST \TAKE-OFF.DIR\AIRPORT\ADHEADER ERASE \TAKE-OFF.DIR\AIRPORT\ADHEADER
- \TAKE-OFF.DIR\AIRPORT\LOGOS
-
- :AEXEC
- cd\
- AUTOEXEC.BAT
-
- :ENDING
- \TAKE-OFF.DIR\MENU_DPI
-
-