home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / database / datapln1.arj / A1.#@# / FBO_DPI.BAT < prev    next >
DOS Batch File  |  1993-05-06  |  9KB  |  405 lines
  1. ECHO OFF
  2. REM ── 05-16-91...
  3.  
  4. CD\
  5. ECHO Press [Enter]....
  6. PRINT /T
  7. CLS
  8. \TAKE-OFF.DIR\J.COM /H
  9. CLS
  10. TYPE \TAKE-OFF.DIR\VV
  11. BREAK OFF
  12. CD \TAKE-OFF.DIR
  13.  
  14. IF EXIST LIFE.EXE IF EXIST DEATH.EXE DEATH
  15.  
  16. IF EXIST AIRPORT\APT.NEW IF EXIST AIRPORT\AIRPORT.OUT GOTO NOSTOP1
  17.  
  18. :LOADAPT
  19. IF NOT EXIST AIRPORT\APT.NEW   GOTO NOAPT
  20. IF NOT EXIST AIRPORT\AIRPORT.* GOTO NOAPT
  21. IF EXIST CAIRGEN.EXE IF EXIST AIRPORT\AIRPORT.SSS CAIRGEN.EXE
  22. CLS
  23. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  24. IF EXIST \TAKE-OFF.DIR\AIRPORT\!??.APT ECHO CANADIAN AFD'S LOADED.
  25. IF EXIST \TAKE-OFF.DIR\AIRPORT\{??.APT ECHO WESTERN  AFD'S LOADED.
  26. IF EXIST \TAKE-OFF.DIR\AIRPORT\}??.APT ECHO EASTERN  AFD'S LOADED.
  27. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\???.APT ECHO - AIRPORT AFD'S NOT PRESENT.
  28. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  29. IF EXIST \TAKE-OFF.DIR\AIRPORT\!.AP? ECHO CANADIAN DIAGRAMS LOADED.
  30. IF EXIST \TAKE-OFF.DIR\AIRPORT\{.AP? ECHO WESTERN  DIAGRAMS LOADED.
  31. IF EXIST \TAKE-OFF.DIR\AIRPORT\}.AP? ECHO EASTERN  DIAGRAMS LOADED.
  32. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\?.AP? ECHO - AIRPORT DIAGRAMS NOT PRESENT.
  33. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  34. ECHO - See AUDIT [F8] for print-out of Airport Index & Airport ID's.
  35. ECHO - Available as subscription.....updated every 56 days.
  36. ECHO 
  37. PAUSE
  38. GOTO NOSTOP1
  39.  
  40. :NOAPT
  41. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  42. IF EXIST AIRPORT\AIRPORT.* ECHO - Old Airports purged! Please apply for updates.
  43. IF EXIST AIRPORT\AIRPORT.* ERASE AIRPORT\AIRPORT.*
  44. IF EXIST AIRPORT\*.FPT     ERASE AIRPORT\*.FPT
  45. ECHO - Your system has no airports!.....
  46. ECHO ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  47. PAUSE
  48.  
  49. :NOSTOP1
  50.  
  51. IF EXIST SUCCESS ERASE SUCCESS
  52. IF EXIST *.FB GOTO NEXTONE1
  53. VOL >FB
  54. QLOAD
  55.  
  56. :NEXTONE
  57. CLS
  58. :NEXTONE1
  59. IF %1. == . GOTO ENDING
  60.  
  61. IF %1 == EXTEND MENU_EXT
  62. IF %1 == extend MENU_EXT
  63. IF %1 == X MENU_EXT
  64. IF %1 == x MENU_EXT
  65.  
  66. IF %1 == RECALL GOTO OPTIONP
  67. IF %1 == recall GOTO OPTIONP
  68. IF %1 == FBO  GOTO STARTER
  69. IF %1 == FBO$ GOTO MAIN
  70. IF %1 == FBO! GOTO CLEARANCE
  71. IF %1 == FBOHELP GOTO HELPENDING
  72. IF %1 == GRAPH GOTO CHARTMASTER
  73. IF %1 == graph GOTO CHARTMASTER
  74. IF %1 == G GOTO CHARTMASTER
  75. IF %1 == g GOTO CHARTMASTER
  76.  
  77. IF %1 == LISTPLAN GOTO OPTIONB
  78. IF %1 == listplan GOTO OPTIONB
  79. IF %1 == NAVSUM GOTO OPTIONC
  80. IF %1 == navsum GOTO OPTIONC
  81. IF %1 == PRINT GOTO OPTIOND
  82. IF %1 == print GOTO OPTIOND
  83.  
  84. IF %1 == PREF GOTO OPTIONJ
  85. IF %1 == pref GOTO OPTIONJ
  86. IF %1 == AUTO GOTO OPTIONL
  87. IF %1 == auto GOTO OPTIONL
  88. IF %1 == RNAV GOTO OPTIONM
  89. IF %1 == rnav GOTO OPTIONM
  90. IF %1 == PLAN GOTO OPTIONK
  91. IF %1 == plan GOTO OPTIONK
  92. IF %1 == AIRPORT GOTO AIRPORTS
  93. IF %1 == airport GOTO AIRPORTS
  94. IF %1 == AFD GOTO AIRPORTS
  95. IF %1 == afd GOTO AIRPORTS
  96.  
  97. IF %1 == W&B GOTO W&B
  98. IF %1 == w&b GOTO W&B
  99. IF %1 == MAIN GOTO MAIN
  100. IF %1 == main GOTO MAIN
  101. IF %1 == MENU GOTO CLEARANCE
  102. IF %1 == menu GOTO CLEARANCE
  103. IF %1 == MANUAL GOTO MANUAL
  104. IF %1 == manual GOTO MANUAL
  105. IF %1 == HELP GOTO HELP
  106. IF %1 == help GOTO HELP
  107. IF %1 == MODEL GOTO MODEL
  108. IF %1 == model GOTO MODEL
  109.  
  110. IF %1 == SEARCH GOTO NAVTLU
  111. IF %1 == search GOTO NAVTLU
  112. IF %1 == S GOTO NAVTLU
  113. IF %1 == s GOTO NAVTLU
  114.  
  115. IF %1 == INTERSECTION GOTO XSCTN
  116. IF %1 == intersection GOTO XSCTN
  117. IF %1 == I GOTO XSCTN
  118. IF %1 == i GOTO XSCTN
  119.  
  120. IF %1 == NAVAID GOTO NAVAID
  121. IF %1 == navaid GOTO NAVAID
  122. IF %1 == N GOTO NAVAID
  123. IF %1 == n GOTO NAVAID
  124.  
  125. IF %1 == RESET GOTO RESET
  126. IF %1 == reset GOTO RESET
  127. IF %1 == AUTOEXEC GOTO AEXEC
  128. IF %1 == autoexec GOTO AEXEC
  129.  
  130. IF %1 == ALARM GOTO ALARM
  131. IF %1 == alarm GOTO ALARM
  132. IF %1 == FUEL GOTO FUEL
  133. IF %1 == fuel GOTO FUEL
  134.  
  135. IF %1 == LOGOS GOTO LOGOS
  136. IF %1 == logos GOTO LOGOS
  137.  
  138. IF %1 == VIEW GOTO VIEW
  139. IF %1 == view GOTO VIEW
  140. IF %1 == V GOTO VIEW
  141. IF %1 == v GOTO VIEW
  142.  
  143. ECHO - [ %1 ] Function unknown!......
  144. PAUSE
  145. GOTO ENDING
  146. :VIEW
  147. VIEW 12
  148. GOTO ENDING
  149.  
  150. :FUEL
  151. QLOAD
  152. IF NOT EXIST FB ECHO - Fuel load not successful.....
  153. IF NOT EXIST FB PAUSE
  154. GOTO ENDING
  155.  
  156. :RESET
  157. BEGIN
  158. GOTO ENDING
  159.  
  160. :MAIN
  161. IDLER
  162. GOTO ENDING
  163.  
  164. :XSCTN
  165. IDLER 5
  166. GOTO ENDING
  167.  
  168. :NAVAID
  169. IDLER 4
  170. GOTO ENDING
  171.  
  172. :ALARM
  173. IF NOT %2. == . GOTO ALARMA
  174. ECHO - Vendor # missing!......
  175. GOTO ALARMEXI
  176. :ALARMA
  177. IF NOT %3. == . GOTO ALARMGO
  178. ECHO - Time missing!......
  179. :ALARMEXI
  180. PAUSE
  181. GOTO ENDING
  182.  
  183. :ALARMGO
  184. IF EXIST *.LLL ERASE *.LLL
  185. IF EXIST FBOW?.DAT ERASE FBOW?.DAT
  186. IDLER 10 %2 %3              %4 %5 %6 %7 %8 %9
  187. REM - spaces are required to allow for commandmsg$ display.....
  188. IF NOT EXIST SUCCESS GOTO ENDING
  189. IF %2 == 8  GOTO DUATLOG
  190. IF %2 == 9  GOTO DUATLOG
  191.  
  192. :ALARMC
  193. SHIFT
  194. SHIFT
  195. SHIFT
  196. GOTO NEXTONE
  197.  
  198. :DUATLOG
  199. CLS
  200. ECHO - Printing DUAT log.......
  201. COPY /B FBOW?.DAT PRN:
  202. COPY /B *.LLL PRN:
  203. COPY /B SUCCESS PRN:
  204. GOTO ALARMC
  205.  
  206. :CLEARANCE
  207. CLEARANC
  208. GOTO ENDING
  209.  
  210. :OPTIONB
  211. CLEARANC B
  212. GOTO ENDING
  213.  
  214. :OPTIONC
  215. CLEARANC C
  216. GOTO ENDING
  217.  
  218. :OPTIOND
  219. IF EXIST PRTARGET ERASE PRTARGET
  220. CLEARANC D PRTARGET nonesuch nonesuch
  221. GOTO PLANFINI
  222.  
  223. :OPTIONJ
  224. IF EXIST PRTARGET ERASE PRTARGET
  225. IF EXIST AIRPORTS ERASE AIRPORTS
  226. IF EXIST APTARGET ERASE APTARGET
  227. CLEARANC J PRTARGET %2 %3
  228. GOTO OPTJLM
  229.  
  230. :OPTIONL
  231. IF EXIST PRTARGET ERASE PRTARGET
  232. IF EXIST AIRPORTS ERASE AIRPORTS
  233. IF EXIST APTARGET ERASE APTARGET
  234. CLEARANC L PRTARGET %2 %3 %4 %5 %6 %7
  235. GOTO OPTJLM
  236.  
  237. :OPTIONM
  238. IF EXIST PRTARGET ERASE PRTARGET
  239. IF EXIST AIRPORTS ERASE AIRPORTS
  240. IF EXIST APTARGET ERASE APTARGET
  241. CLEARANC M PRTARGET %2 %3
  242. GOTO OPTJLM
  243.  
  244. :OPTIONK
  245. IF EXIST AIRPORTS ERASE AIRPORTS
  246. CLEARANC K
  247. GOTO ENDING
  248.  
  249. :OPTIONP
  250. IF EXIST PRTARGET ERASE PRTARGET
  251. IF EXIST AIRPORTS ERASE AIRPORTS
  252. IF EXIST APTARGET ERASE APTARGET
  253. CLEARANC P PRTARGET zzzzz zzzzz
  254. GOTO OPTJLM
  255.  
  256. :OPTJLM
  257. CLS
  258. IF NOT EXIST PRTARGET ECHO - Plan was not successful......!
  259. IF NOT EXIST PRTARGET PAUSE
  260. IF NOT EXIST PRTARGET GOTO ENDING
  261. CLS
  262. ECHO - Please turn printer & modem on. Thank you.
  263. COPY /B PRTARGET PRN:
  264. CLS
  265. IF EXIST WEABRIEF ERASE WEABRIEF
  266. IF EXIST SUCCESS IDLER 11
  267. CLS
  268. ECHO - Printing enroute weather briefing.........
  269. IF EXIST WEABRIEF COPY /B WEABRIEF PRN:
  270. CLS
  271. IF NOT EXIST AIRPORTS GOTO ACHART
  272. AFD
  273. ECHO - Please turn printer on. Thank you.
  274. COPY /B APTARGET PRN:
  275.  
  276. :ACHART
  277. IF EXIST GRTARGET ERASE GRTARGET
  278. IF %2. == . CHARTER
  279. IF %2. == . GOTO ENDING
  280. CHARTER GRTARGET
  281. GOTO XCHARTMASTER
  282.  
  283. :CHARTMASTER
  284. IF EXIST GRTARGET ERASE GRTARGET
  285. IF %2. == . CHARTER
  286. IF %2. == . GOTO ENDING
  287. CHARTER GRTARGET %3
  288. :XCHARTMASTER
  289. IF NOT EXIST GRTARGET GOTO ENDING
  290. ECHO - Please turn printer on. Thank you.
  291. COPY /B GRTARGET PRN:
  292. GOTO ENDING
  293.  
  294. :PLANFINI
  295. IF NOT EXIST PRTARGET GOTO ENDING
  296. CLS
  297. ECHO - Please turn printer on. Thank you.
  298. COPY /B PRTARGET PRN:
  299. IF %2. == R. GOTO PLANFB
  300. IF %2. == r. GOTO PLANFB
  301. GOTO PLANFA
  302.  
  303. :PLANFB
  304. IF EXIST GRTARGET ERASE GRTARGET
  305. CHARTER GRTARGET
  306. IF NOT EXIST GRTARGET GOTO ENDING
  307. ECHO - Please turn printer on. Thank you.
  308. COPY /B GRTARGET PRN:
  309. :PLANFA
  310. IF %3. == . GOTO OPTDKP
  311. SHIFT
  312. GOTO AIRPORTS
  313.  
  314. :AIRPORTS
  315. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT CLS
  316. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT ECHO - Airports not present!
  317. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT PAUSE
  318. IF NOT EXIST \TAKE-OFF.DIR\AIRPORT\AIRPORT.OUT GOTO ENDING
  319. IF EXIST APTARGET ERASE APTARGET
  320. IF %2. == . AIRPORT
  321. IF %2. == . GOTO ENDING
  322. AIRPORT %2 %3 APTARGET %4 %5
  323. IF NOT EXIST APTARGET GOTO ENDING
  324. REM - IF %4. == . PAUSE
  325. CLS
  326. :OPTDKPX
  327. IF NOT EXIST APTARGET GOTO ENDING
  328. ECHO - Please turn printer on. Thank you.
  329. COPY /B APTARGET PRN:
  330. GOTO ENDING
  331.  
  332. :OPTDKP
  333. CLS
  334. IF EXIST APTARGET ERASE APTARGET
  335. IF EXIST AIRPORTS AFD
  336. GOTO OPTDKPX
  337.  
  338. :W&B
  339. WB
  340. GOTO ENDING
  341.  
  342. :MODEL
  343. BUILD
  344. GOTO ENDING
  345.  
  346. :NAVTLU
  347. NAVTLU
  348. GOTO ENDING
  349.  
  350. :STARTER
  351. DIR \TAKE-OFF.DIR\*.VER >VERSIONS
  352. TYPE \TAKE-OFF.DIR\VERSIONS | MORE
  353. TYPE \TAKE-OFF.DIR\COPYRATE.MAN
  354. TYPE \TAKE-OFF.DIR\TOMBSTON.EXE
  355. PAUSE
  356. GOTO MAIN
  357.  
  358. :HELPENDING
  359. DIR \TAKE-OFF.DIR\*.VER >VERSIONS
  360. ECHO - Versions installed......
  361. TYPE \TAKE-OFF.DIR\VERSIONS | MORE
  362. PAUSE
  363. GOTO ENDING
  364.  
  365. :MANUAL
  366. ECHO - PRINT CLEARANCE MANUAL
  367. ECHO -
  368. ECHO - Turn Printer on! DOS print file must be in path.
  369. ECHO -
  370. PAUSE
  371. CD\
  372. DIR \TAKE-OFF.DIR\*.VER >VERSIONS
  373. PRINT \TAKE-OFF.DIR\VERSIONS
  374. PRINT \TAKE-OFF.DIR\HELP.BAS
  375. CLS
  376. TYPE  \TAKE-OFF.DIR\V
  377. ECHO - Wait for printing to stop!
  378. PAUSE
  379. GOTO ENDING
  380.  
  381. :HELP
  382. IDLER 1
  383. GOTO ENDING
  384.  
  385. :LOGOS
  386. IF EXIST \TAKE-OFF.DIR\AIRPORT\MAKELOGO.EXE IF EXIST \TAKE-OFF.DIR\AIRPORT\LOGOS.BAT GOTO LOGOS2
  387. CLS
  388. ECHO - Please install Master Airport directory. Thank you.
  389. ECHO 
  390. PAUSE
  391. GOTO ENDING
  392.  
  393. :LOGOS2
  394. IF EXIST \TAKE-OFF.DIR\AIRPORT\*.LGO    ERASE \TAKE-OFF.DIR\AIRPORT\*.LGO
  395. IF EXIST \TAKE-OFF.DIR\AIRPORT\ADHEADER ERASE \TAKE-OFF.DIR\AIRPORT\ADHEADER
  396. \TAKE-OFF.DIR\AIRPORT\LOGOS
  397.  
  398. :AEXEC
  399. cd\
  400. AUTOEXEC.BAT
  401.  
  402. :ENDING
  403. \TAKE-OFF.DIR\MENU_DPI
  404.  
  405.