home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / WIN_GAME / GLIDPTH.ZIP / GLIDE < prev    next >
Text File  |  1994-01-17  |  49KB  |  2,071 lines
  1. Global Speedrpm1 As Single
  2. Global Throttle1 As Single
  3. Global Throttle3 As Integer
  4. Global Thrust1 As Single
  5. Global Sta1 As Single
  6. Global Ena1 As Single
  7. Global Start1 As Single
  8. Global Fuel As Single
  9. Global Speedrpm2 As Single
  10. Global Throttle2 As Single
  11. Global Thrust2 As Single
  12. Global Sta2 As Single
  13. Global Ena2 As Single
  14. Global Speedrpm3 As Single
  15.  
  16. Global Thrust3 As Single
  17. Global Sta3 As Single
  18. Global Ena3 As Single
  19. Global Start3 As Single
  20. Global Speedrpm4 As Single
  21. Global Throttle4 As Single
  22. Global Thrust4 As Single
  23. Global Sta4 As Single
  24. Global Ena4 As Single
  25. Global Start4 As Single
  26. Global Altitude As Currency
  27. Global FileName$
  28. Global ts1$
  29. Global Bat As Single
  30. Global Gen As Single
  31. Global Hyd As Single
  32. Global Oil As Single
  33. Global Vrate As Single
  34. Global lndist As Single
  35. Global dstv As Single
  36. Global cdis As Single
  37. Global glslope As Single
  38. Global glpath As Single
  39. Global Auto As Single
  40. Global Mile As Single
  41. Global grav As Single
  42. Global GLS As Single
  43. Global Fspeed As Single 'GENERAL DECLARATIONS
  44. Dim Dragx As Single
  45. Dim DragY As Single
  46. Dim stri2K  As Single
  47. Dim striK  As Single
  48. Dim striC  As Single
  49. Dim striD As Single
  50. Dim st2K As Single
  51.  
  52. Const LEFT_BUTTON = 1
  53. Const RIGHT_BUTTON = 2
  54.  
  55.  Dim NA As Single
  56.  
  57.  
  58. Sub RandomizeDemo ()
  59. End Sub
  60.  
  61. Sub Command1_Click ()
  62. End Sub
  63.  
  64. Sub Command5_Click ()
  65.  
  66. End Sub
  67.  
  68. Sub Command2_Click ()
  69.  
  70. End Sub
  71.  
  72. Sub Command3_Click ()
  73.  
  74. End Sub
  75.  
  76. Sub Form_Load ()
  77. 'Fuel = 600000
  78.  
  79. End Sub
  80.  
  81. Sub Option1_Click ()
  82.  
  83.  
  84. End Sub
  85.  
  86. Sub Option2_Click ()
  87.  
  88. End Sub
  89.  
  90. Sub Form_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Single)
  91.  
  92. 'picture32.Move (x - picture32.width / 2 - DragX), (y - picture32.height / 2 - DragY)
  93.  
  94. 'Test Edit
  95. 'If Button And 1 Then
  96. 'If x = 2520 Then
  97. 'If x > 2520 Then
  98. 'x = 2520
  99. 'End If
  100. 'If x < 2520 Then
  101. 'x = 2520
  102. 'End If
  103. 'If y < 1650 Then
  104. 'If y > 1200 Then ''picture42.Print (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - Drag
  105. Y)
  106. 'End If
  107. 'End If
  108. 'End If
  109. 'End If
  110.  
  111.  
  112. 'Picture32.Move x, y
  113. 'Picture32.Move (x - Picture32.width / 2), (y - picture32.height / 2)
  114.  
  115.  
  116. 'Cls
  117.  
  118.  
  119. 'jsx = 0
  120. 'jsx = jsx + x
  121. 'jsy = 0
  122. 'jsy = jsy + y
  123. '
  124.  'Line (3615, 870)-(jsx, jsy)
  125.  
  126. 'Line (2205, 1200)-(2205, 1560)
  127. ''Line ((jsx - 50), (jsy + 1))-((jsx + 50), (jsy + 1))
  128. 'Line ((jsx - 50), (jsy + 2))-((jsx + 50), (jsy + 2))
  129. 'Line ((jsx - 50), (jsy + 3))-((jsx + 50), (jsy + 3))
  130. 'Line ((jsx - 50), (jsy + 4))-((jsx + 50), (jsy + 4))
  131.  
  132.  
  133.  
  134. ' Rudder Animate Control
  135.  
  136. If button And 1 Then
  137. Picture39.picture = LoadPicture("c:\icon\rudrd.ico")
  138. Picture40.picture = LoadPicture("c:\icon\rudld.ico")
  139.  
  140. End If
  141.  
  142. 'If x = 2520 Then
  143. 'If Button And 1 Then
  144.  
  145. 'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
  146. '
  147. 'End If
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154. End Sub
  155.  
  156. Sub Form_MouseMove (button As Integer, Shift As Integer, X As Single, Y As Single)
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163.  
  164. 'If x = 2205 Then
  165. 'picture32.Move (x - picture32.width / 2 - DragX), (Y - picture32.height / 2 - DragY)
  166. 'If Button And 1 Then
  167.  
  168. 'picture32.Move ((X - picture32.width / 2) - Dragx), ((Y - picture32.height / 2) - Dr
  169. agY)
  170.  
  171. 'picture51.Cls
  172. 'Picture51.Print Dragx
  173.  
  174. 'picture52.Cls
  175. 'Picture52.Print DragY
  176.  
  177.  
  178.  
  179.  
  180.  
  181. 'End If
  182. 'End If
  183.  
  184. 'If Button And 1 Then
  185. 'If y < 1560 Then
  186. 'If y > 1200 Then
  187. 'If x > 2200 Then
  188. 'If x < 2210 Then
  189. 'Picture48.Cls
  190. 'Picture48.Print Abs(360 - (1560 - Y))
  191. 'Picture48.Print Int((1560 - y) / 3.6)
  192.  
  193. 'picture32.Move (x - picture32.width / 2 - DragX), (y - picture32.height / 2 - DragY)
  194.  
  195. 'Throttle1 = Int((1560 - y) / 3.6)
  196.  
  197. 'End If
  198. 'End If
  199. 'End If
  200. 'End If
  201. 'End If
  202.  
  203. 'If x = 2520 Then
  204. 'If Button And 1 Then
  205.  
  206. 'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
  207. 'End If
  208. 'End If
  209.  
  210. 'If x = 2520 Then
  211. 'If Button And 1 Then
  212.  
  213. 'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
  214. 'End If
  215. 'End If
  216.  
  217. End Sub
  218.  
  219. Sub Form_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
  220.  
  221.  
  222. 'If Button And 1 Then
  223. 'Picture39.pICTURE = LoadPicture("c:\icon\rudr.ico")
  224. 'Picture40.pICTURE = LoadPicture("c:\icon\rudl.ico")
  225.  
  226. 'If y < 1560 Then
  227. 'If y > 1200 Then
  228. 'If x = 2205 Then
  229. 'Picture48.Cls
  230.  
  231. 'Picture48.Print Int((1560 - y) / 3.6) 'End If
  232. 'End If
  233. 'End If
  234. 'End If
  235.  
  236. 'If x = 2520 Then
  237. 'If Button And 1 Then
  238.  
  239. 'picture42.Move (x - picture42.width / 2 - DragX), (y - picture42.height / 2 - DragY)
  240. 'End If
  241. 'End If
  242.  
  243.  
  244. End Sub
  245.  
  246. Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
  247. 'Source.Move (x - DragX), (y - DragY)
  248.  
  249. 'Source.Move ((x - picture32.width / 2) - Dragx), ((y - picture32.height / 2) - DragY
  250. )
  251.  
  252.  
  253. 'If button And 1 Then
  254. 'If x > 2200 Then
  255. 'If x < 2210 Then
  256. 'If Y < 1560 Then
  257. 'If Y > 1200 Then
  258.  
  259.  
  260.  
  261. 'picture32.Move (x - picture32.width / 2 - DragX), (Y - picture32.height / 2 - DragY)
  262. 'End If
  263. 'End If
  264. ''End If
  265. 'End If
  266. 'End If
  267.  
  268. 'If x = 2520 Then
  269. 'If Button And 1 Then
  270.  
  271. 'picture42.Move (x - picture42.width / 2 - Dragx), (y - picture42.height / 2 - Dragy)
  272. 'End If
  273. 'End If
  274.  
  275. End Sub
  276.  
  277. Sub Picture42_DragOver (Source As Control, X As Single, Y As Single, State As Integer
  278. )
  279. 'If X = 2520 Then
  280.  
  281. 'If Button And 1 Then
  282. 'JT = (X - Picture42.width / 2 - Dragx)
  283. 'JZ = (Y - Picture42.height / 2 - DragY)
  284.  
  285.  
  286.  
  287. 'pICTURE49.Print JT
  288. 'PICTURE50.Print JZ
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295. 'End If 'End If
  296.  
  297.  
  298. End Sub
  299.  
  300. Sub Picture32_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  301. e)
  302. 'picture32.Move ((x - picture32.width / 2) - Dragx) - ((y - picture32.height / 2) - d
  303. ragy)
  304.  
  305. 'picture32.Drag 1
  306. 'DragX = x
  307. 'DragY = y
  308.  
  309.  
  310. End Sub
  311.  
  312. Sub Picture32_MouseMove (button As Integer, Shift As Integer, X As Single, Y As Singl
  313. e)
  314.  
  315. 'If Button And 1 Then
  316.  
  317.  
  318. 'picture32.Move ((x - picture32.width / 2)) - ((y - picture32.height / 2))
  319.  
  320. 'End If
  321. End Sub
  322.  
  323. Sub Picture32_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
  324. 'Picture32.Drag 2
  325.  
  326.  
  327.  
  328. 'picture32.Move (picture32.width / 2 - x), (picture32.height / 2 - Y)
  329. End Sub
  330.  
  331. Sub Picture40_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  332. e)
  333. Picture40.picture = LoadPicture("c:\icon\rudld.ico")
  334. End Sub
  335.  
  336. Sub Picture40_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
  337. Picture40.picture = LoadPicture("c:\icon\rudl.ico")
  338. End Sub
  339.  
  340. Sub Picture39_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  341. e)
  342. Picture39.picture = LoadPicture("c:\icon\rudrd.ico")
  343. End Sub
  344.  
  345. Sub Picture39_MouseUp (button As Integer, Shift As Integer, X As Single, Y As Single)
  346. Picture39.picture = LoadPicture("c:\icon\rudr.ico")
  347. End Sub
  348.  
  349. Sub Picture60_Click ()
  350. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  351. Picture49.picture = LoadPicture("c:\icon\jystk\clr.ico")
  352. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  353. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  354. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  355. Picture60.picture = LoadPicture("c:\icon\jystk\botrt.ico")
  356. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  357. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  358. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  359.  
  360.  
  361.  
  362.  
  363. End Sub
  364.  
  365. Sub Picture57_Click ()
  366. Picture57.picture = LoadPicture("c:\icon\jystk\toplft.ico")
  367. Picture49.picture = LoadPicture("c:\icon\jystk\cul.ico")
  368. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  369. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  370. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  371. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  372. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  373. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  374. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  375. End Sub
  376.  
  377. Sub Picture30_Click ()
  378. Auto = 0
  379. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  380. Picture49.picture = LoadPicture("c:\icon\jystk\cuc.ico")
  381. Picture30.picture = LoadPicture("c:\icon\jystk\topctr.ico")
  382. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  383. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  384. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  385. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  386. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  387. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  388. NA = NA - 1
  389. End Sub
  390.  
  391. Sub Picture58_Click ()
  392. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  393. Picture49.picture = LoadPicture("c:\icon\jystk\cur.ico")
  394. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  395. Picture58.picture = LoadPicture("c:\icon\jystk\toprt.ico")
  396. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  397. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  398. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  399. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  400. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  401.  
  402. End Sub
  403.  
  404. Sub Picture33_Click ()
  405. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  406. Picture49.picture = LoadPicture("c:\icon\jystk\cr.ico")
  407. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  408. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  409. Picture33.picture = LoadPicture("c:\icon\jystk\rtctr.ico")
  410. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  411. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  412. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  413. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  414.  
  415. End Sub
  416.  
  417. Sub Picture50_Click ()
  418. Auto = 0
  419. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  420. Picture49.picture = LoadPicture("c:\icon\jystk\clc.ico")
  421. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  422. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  423. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico") Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  424. Picture50.picture = LoadPicture("c:\icon\jystk\botctr.ico")
  425. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  426. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  427. NA = NA + 1
  428. End Sub
  429.  
  430. Sub Picture59_Click ()
  431. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  432. Picture49.picture = LoadPicture("c:\icon\jystk\cll.ico")
  433. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  434. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  435. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  436. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  437. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  438. Picture59.picture = LoadPicture("c:\icon\jystk\botlft.ico")
  439. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  440.  
  441. End Sub
  442.  
  443. Sub Picture21_Click ()
  444. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  445. Picture49.picture = LoadPicture("c:\icon\jystk\cl.ico")
  446. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  447. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  448. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  449. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  450. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  451. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  452. Picture21.picture = LoadPicture("c:\icon\jystk\lftctr.ico")
  453.  
  454. End Sub
  455.  
  456. Sub Picture49_Click ()
  457. Auto = 0
  458. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  459. Picture49.picture = LoadPicture("c:\icon\jystk\lftctr.ico")
  460. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  461. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  462. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  463. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  464. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  465. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  466. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  467.  
  468. End Sub
  469.  
  470. Sub Picture50_KeyPress (KeyAscii As Integer)
  471. NA = NA + 1
  472. End Sub
  473.  
  474. Sub Picture30_KeyPress (KeyAscii As Integer)
  475. NA = NA - 1
  476. End Sub
  477.  
  478. Sub Picture76_Click ()
  479. Fuel = 125000
  480.  
  481. 'lndist = 50160
  482. 'dstv = 0
  483. 'cdis = 50160
  484. 'Altitude = 5280
  485. 'Fspeed = 300
  486. 'Throttle1 = 40
  487. 'NA = -4 p3$ = ("c:\icon\radarb.ico")
  488. p2$ = ("c:\icon\Cap-1.bmp")'
  489. 'p4$ = ("c:\icon\fuel1.ico")
  490. 'p5$ = ("c:\icon\hyd1.ico")
  491. 'p6$ = ("c:\icon\oil1.ico")
  492. 'lgup$ = ("c:\icon\LG1.ico")
  493. 'p8$ = ("c:\icon\pwr1.ico")
  494. 'p9$ = ("c:\icon\bat1.ico")
  495. 'p10$ = ("c:\icon\gen1.ico")
  496. 'p11$ = ("c:\icon\fl1.ico")
  497. 'p12$ = ("c:\icon\ind8.ico")
  498. 'p13$ = ("c:\icon\ind8.ico")
  499. 'p14$ = ("c:\icon\ind8.ico")
  500. 'p15$ = ("c:\icon\ind8.ico")
  501. 'p16$ = ("c:\icon\ind8.ico")
  502. p17$ = ("c:\icon\number\0")
  503. p18$ = ("c:\icon\number\1")
  504. p19$ = ("c:\icon\number\2")
  505. p20$ = ("c:\icon\alt1.ico")
  506. p21$ = ("c:\icon\Cap-1.bmp")
  507. p22$ = ("c:\icon\Cap-2.bmp")
  508. p23$ = ("c:\icon\Cap-3.bmp")
  509. p24$ = ("c:\icon\Cap-4.bmp")
  510. p25$ = ("c:\icon\Cap-5.bmp")
  511. p26$ = ("c:\icon\Cap-6.bmp")
  512. p27$ = ("c:\icon\Cap-7.bmp")
  513. p28$ = ("c:\icon\Cap-8.bmp")
  514. p29$ = ("c:\icon\Cap-9.bmp")
  515. p30$ = ("c:\icon\Cap-10.bmp")
  516. p31$ = ("c:\icon\Cap-11.bmp")
  517. p32$ = ("c:\icon\tr1.ico")
  518. p33$ = ("c:\icon\Cap-13.bmp")
  519. p34$ = ("c:\icon\Cap-14.bmp")
  520. p35$ = ("c:\icon\Cap-15.bmp")
  521. 'Picture10.picture = LoadPicture(p2$)
  522. 'Picture15.picture = LoadPicture(p4$)
  523. 'Picture16.picture = LoadPicture(p5$)
  524. 'Picture17.picture = LoadPicture(p6$)
  525. 'Picture18.picture = LoadPicture(p7$)
  526. 'Picture19.picture = LoadPicture(p8$)
  527. 'Picture20.picture = LoadPicture(p9$)
  528. 'Picture5.picture = LoadPicture(p10$)
  529. 'Picture22.picture = LoadPicture(p11$)
  530. 'Picture13.picture = LoadPicture(p12$)
  531. 'Picture23.Picture = LoadPicture(p13$)
  532. 'Picture7.picture = LoadPicture(p14$)
  533. 'Picture11.picture = LoadPicture(p15$)
  534. 'Picture8.Picture = LoadPicture(p16$)
  535. Picture4.picture = LoadPicture(p17$)
  536. Picture3.picture = LoadPicture(p18$)
  537. Picture24.picture = LoadPicture(p19$)
  538. Picture31.picture = LoadPicture(p20$)
  539. Do While DoEvents()
  540. 'FORWARD SPEED VARIABLE
  541. If Fspeed > 0 Then
  542. Fspeed = Fspeed - (Fspeed / 4)
  543. End If
  544. Fspeed = Fspeed + (RPMIND1 / 1)
  545. If Fspeed < 0 Then
  546. Fspeed = 0
  547. End If
  548.  
  549. If Altitude < 150 Then
  550. Auto = 0
  551. Picture71.picture = LoadPicture("c:\icon\onoff\off.ico")
  552. End If
  553. If Fspeed < 110 Then
  554. Altitude = Altitude - grav
  555. End If
  556. If Fspeed > 110 Then
  557. Picture78.picture = LoadPicture("c:\icon\blank.ico")
  558. grav = grav - 32
  559. End If
  560. If grav < 0 Then
  561. grav = 0
  562. End If
  563.  
  564. If Fspeed < 110 Then
  565. If Altitude > 0 Then
  566. grav = grav + 32
  567. Picture78.Cls
  568. Picture78.picture = LoadPicture("c:\icon\stall.ico")
  569. NA = NA - 1
  570. End If
  571. End If
  572.  
  573. If Altitude = 0 Then
  574. grav = 0
  575. NA = 0
  576. End If
  577.  
  578. 'End Forward speed Variable
  579.  
  580. If Throttle1 > 100 Then
  581. Throttle1 = 100
  582. End If
  583. If Altitude < 0 Then
  584. Altitude = 0
  585. End If
  586. If RPMIND1 < Throttle1 Then
  587. RPMIND1 = RPMIND1 + ((Throttle1 - RPMIND1) / 5)
  588. RPMIND1 = Int(RPMIND1)
  589. End If
  590.  
  591. If RPMIND1 > Throttle1 Then
  592. RPMIND1 = RPMIND1 - ((Throttle1 + RPMIND1) / 5)
  593. RPMIND1 = Int(RPMIND1)
  594. End If
  595.  
  596. '*********Begin Flight Mechanics******************************************
  597. 'Begin Nose> Determine
  598. 'Lift
  599. Altitude = Altitude + ((Fspeed * ((NA) / .9) / 100) * 2)
  600.  
  601.  
  602. If LGI > 0 Then
  603. Fspeed = Fspeed - 5
  604. End If
  605.  
  606. If FLI > 0 Then
  607. Altitude = Altitude + 4
  608. End If
  609. Fuel = Fuel - (RPMIND1 * 10)
  610. Fuel = Int(Fuel)
  611. Picture41.Cls
  612. Picture41.Print Fuel
  613.  
  614.  
  615. FuelI = Fuel / 500000
  616. FuelI = (FuelI * 10) * 2
  617. FuelI = Int(FuelI) If FuelI > 18 Then
  618. FuelI = 18
  619. End If
  620. If FuelI < 0 Then
  621. FuelI = 0
  622. Throttle1 = 0
  623. End If
  624. Picture37.Cls
  625. Picture37.Print FuelI
  626. NA = Int(NA)
  627.  
  628. If NA = 0 Then
  629. Picture14.picture = LoadPicture("c:\icon\8ball\8bn0.ico")
  630. End If
  631. If NA = 1 Then
  632. Picture14.picture = LoadPicture("c:\icon\8ball\8bp1.ico")
  633. End If
  634. If NA = 2 Then
  635. Picture14.picture = LoadPicture("c:\icon\8ball\8bp2.ico")
  636. End If
  637. If NA = 3 Then
  638. Picture14.picture = LoadPicture("c:\icon\8ball\8bp3.ico")
  639. End If
  640. If NA = 4 Then
  641. Picture14.picture = LoadPicture("c:\icon\8ball\8bp4.ico")
  642. End If
  643. If NA = 5 Then
  644. Picture14.picture = LoadPicture("c:\icon\8ball\8bp5.ico")
  645. End If
  646. If NA = 6 Then
  647. Picture14.picture = LoadPicture("c:\icon\8ball\8bp6.ico")
  648. End If
  649. If NA = 7 Then
  650. Picture14.picture = LoadPicture("c:\icon\8ball\8bp7.ico")
  651. End If
  652. If NA = 8 Then
  653. Picture14.picture = LoadPicture("c:\icon\8ball\8bp8.ico")
  654. End If
  655. If NA = 9 Then
  656. Picture14.picture = LoadPicture("c:\icon\8ball\8bp9.ico")
  657. End If
  658. If NA = 10 Then
  659. Picture14.picture = LoadPicture("c:\icon\8ball\8bp10.ico")
  660. End If
  661. If NA = 11 Then
  662. Picture14.picture = LoadPicture("c:\icon\8ball\8bp11.ico")
  663. End If
  664. If NA = 12 Then
  665. Picture14.picture = LoadPicture("c:\icon\8ball\8bp12.ico")
  666. End If
  667. If NA = 13 Then
  668. Picture14.picture = LoadPicture("c:\icon\8ball\8bp13.ico")
  669. End If
  670. If NA = 14 Then
  671. Picture14.picture = LoadPicture("c:\icon\8ball\8bp14.ico")
  672. End If
  673. If NA = 15 Then
  674. Picture14.picture = LoadPicture("c:\icon\8ball\8bp15.ico")
  675. End If
  676. If NA = -1 Then
  677. Picture14.picture = LoadPicture("c:\icon\8ball\8bn1.ico")
  678. End If
  679. If NA = -2 Then
  680. Picture14.picture = LoadPicture("c:\icon\8ball\8bn2.ico")
  681. End If
  682. If NA = -3 Then Picture14.picture = LoadPicture("c:\icon\8ball\8bn3.ico")
  683. End If
  684. If NA = -4 Then
  685. Picture14.picture = LoadPicture("c:\icon\8ball\8bn4.ico")
  686. End If
  687. If NA = -5 Then
  688. Picture14.picture = LoadPicture("c:\icon\8ball\8bn5.ico")
  689. End If
  690. If NA = -6 Then
  691. Picture14.picture = LoadPicture("c:\icon\8ball\8bn6.ico")
  692. End If
  693. If NA = -7 Then
  694. Picture14.picture = LoadPicture("c:\icon\8ball\8bn7.ico")
  695. End If
  696. If NA = -8 Then
  697. Picture14.picture = LoadPicture("c:\icon\8ball\8bn8.ico")
  698. End If
  699. If NA = -9 Then
  700. Picture14.picture = LoadPicture("c:\icon\8ball\8bn9.ico")
  701. End If
  702. If NA = -10 Then
  703. Picture14.picture = LoadPicture("c:\icon\8ball\8bn10.ico")
  704. End If
  705. If NA = -11 Then
  706. Picture14.picture = LoadPicture("c:\icon\8ball\8bn11.ico")
  707. End If
  708. If NA = -12 Then
  709. Picture14.picture = LoadPicture("c:\icon\8ball\8bn12.ico")
  710. End If
  711. If NA = -13 Then
  712. Picture14.picture = LoadPicture("c:\icon\8ball\8bn13.ico")
  713. End If
  714. If NA = -14 Then
  715. Picture14.picture = LoadPicture("c:\icon\8ball\8bn14.ico")
  716. End If
  717. If NA = -15 Then
  718. Picture14.picture = LoadPicture("c:\icon\8ball\8bn15.ico")
  719. End If
  720.  
  721.  
  722.  
  723.  
  724. '********************************* End 8 ball determine
  725.  
  726.  
  727.  
  728.  
  729.  
  730.  
  731. Picture51.Cls
  732. picture52.Cls
  733.  
  734.  
  735.  
  736. 'Oil = Oil + (gen - 1)
  737. 'Oil = Int(Oil)
  738. 'If Oil > 18 Then
  739. 'Oil = 18
  740. 'End If
  741. 'If Oil < 1 Then
  742. 'Oil = 1
  743. 'End If
  744. 'Oil = Oil - 1
  745.  
  746. If gen > 18 Then
  747. gen = 18 End If
  748.  
  749. Bat = Bat - .5
  750. gen = gen - 1
  751.  
  752. 'Battery Control
  753.  
  754. Bat = Bat + (gen / 9.5)
  755. Bat = Int(Bat)
  756. If Bat > 18 Then
  757. Bat = 18
  758. End If
  759. If Bat < 1 Then
  760. Bat = 1
  761. End If
  762.  
  763. 'End Battery Control
  764.  
  765.  
  766.  
  767. Oil = Oil + (RPMIND1 / 2)
  768. Oil = Int(Oil)
  769. Hyd = Hyd + (RPMIND1 / 10)
  770.  
  771.  
  772. If Hyd > 2 Then
  773. Hyd = Hyd - 1
  774. End If
  775.  
  776. Hyd = Int(Hyd)
  777.  
  778. gen = (RPMIND1 / 2.5)
  779. gen = Int(gen)
  780. gen = Abs(gen)
  781.  
  782.  
  783.  
  784. Picture48.Cls
  785. Picture48.Print Hyd
  786.  
  787.  
  788. Hyd = Hyd + (gen / 9.5)
  789. Hyd = Int(Hyd)
  790. If Hyd > 18 Then
  791. Hyd = 18
  792. End If
  793. If Hyd < 1 Then
  794. Hyd = 1
  795. End If
  796. Hyd = Hyd - 1
  797.  
  798. Picture34.picture = LoadPicture("c:\icon\guage\guage2.ico")
  799.  
  800.  
  801. 'Speedometer***********************************************************
  802.  
  803.  
  804.  
  805.  
  806. 'Fuel Guage ...........................................................
  807.  
  808. Picture37.Cls
  809. Picture37.Print FuelI
  810.  
  811. If FuelI = 0 Then
  812. Picture65.picture = LoadPicture("c:\icon\nugage\guag1.ico") End If
  813.  
  814. If FuelI = 1 Then
  815. Picture65.picture = LoadPicture("c:\icon\nugage\guag2.ico")
  816. End If
  817.  
  818. If FuelI = 2 Then
  819. Picture65.picture = LoadPicture("c:\icon\nugage\guag3.ico")
  820. End If
  821.  
  822. If FuelI = 3 Then
  823. Picture65.picture = LoadPicture("c:\icon\nugage\guag4.ico")
  824. End If
  825.  
  826. If FuelI = 4 Then
  827. Picture65.picture = LoadPicture("c:\icon\nugage\guag5.ico")
  828. End If
  829.  
  830. If FuelI = 5 Then
  831. Picture65.picture = LoadPicture("c:\icon\nugage\guag6.ico")
  832. End If
  833.  
  834. If FuelI = 6 Then
  835. Picture65.picture = LoadPicture("c:\icon\nugage\guag7.ico")
  836. End If
  837.  
  838. If FuelI = 7 Then
  839. Picture65.picture = LoadPicture("c:\icon\nugage\guag8.ico")
  840. End If
  841.  
  842. If FuelI = 8 Then
  843. Picture65.picture = LoadPicture("c:\icon\nugage\guag9.ico")
  844. End If
  845.  
  846. If FuelI = 9 Then
  847. Picture65.picture = LoadPicture("c:\icon\nugage\guag10.ico")
  848. End If
  849.  
  850. If FuelI = 10 Then
  851. Picture65.picture = LoadPicture("c:\icon\nugage\guag11.ico")
  852. End If
  853.  
  854. If FuelI = 11 Then
  855. Picture65.picture = LoadPicture("c:\icon\nugage\guag12.ico")
  856. End If
  857.  
  858. If FuelI = 12 Then
  859. Picture65.picture = LoadPicture("c:\icon\nugage\guag13.ico")
  860. End If
  861.  
  862. If FuelI = 13 Then
  863. Picture65.picture = LoadPicture("c:\icon\nugage\guag14.ico")
  864. End If
  865.  
  866. If FuelI = 14 Then
  867. Picture65.picture = LoadPicture("c:\icon\nugage\guag15.ico")
  868. End If
  869.  
  870. If FuelI = 15 Then
  871. Picture65.picture = LoadPicture("c:\icon\nugage\guag16.ico")
  872. End If
  873.  
  874. If FuelI = 16 Then
  875. Picture65.picture = LoadPicture("c:\icon\nugage\guag17.ico")
  876. End If If FuelI = 17 Then
  877. Picture65.picture = LoadPicture("c:\icon\nugage\guag18.ico")
  878. End If
  879.  
  880. If FuelI = 18 Then
  881. Picture65.picture = LoadPicture("c:\icon\nugage\guag19.ico")
  882. End If
  883.  
  884.  
  885. Picture34.picture = LoadPicture("c:\icon\guage\guage2.ico")
  886. 'Picture34.picture = LoadPicture("c:\icon\guage\guage3.ico")
  887.  
  888. ' DISPLAY GENERATION -------------------------------------
  889.  
  890. '***** Start engine speed vs throttle  icon generation *******
  891.  
  892. '***** Display generation Experiment for automated picture loading...
  893. a = Int(RPMIND1 / 4)
  894. If a = 0 Then
  895. Picture45.picture = LoadPicture("c:\icon\nugage\guag1.ico")
  896. End If
  897. If a = 1 Then
  898. Picture45.picture = LoadPicture("c:\icon\nugage\guag1.ico")
  899. End If
  900. If a = 2 Then
  901. Picture45.picture = LoadPicture("c:\icon\nugage\guag2.ico")
  902. End If
  903. If a = 3 Then
  904. Picture45.picture = LoadPicture("c:\icon\nugage\guag3.ico")
  905. End If
  906. If a = 4 Then
  907. Picture45.picture = LoadPicture("c:\icon\nugage\guag4.ico")
  908. End If
  909. If a = 5 Then
  910. Picture45.picture = LoadPicture("c:\icon\nugage\guag5.ico")
  911. End If
  912. If a = 6 Then
  913. Picture45.picture = LoadPicture("c:\icon\nugage\guag6.ico")
  914. End If
  915. If a = 7 Then
  916. Picture45.picture = LoadPicture("c:\icon\nugage\guag7.ico")
  917. End If
  918. If a = 8 Then
  919. Picture45.picture = LoadPicture("c:\icon\nugage\guag8.ico")
  920. End If
  921. If a = 9 Then
  922. Picture45.picture = LoadPicture("c:\icon\nugage\guag9.ico")
  923. End If
  924. If a = 10 Then
  925. Picture45.picture = LoadPicture("c:\icon\nugage\guag10.ico")
  926. End If
  927. If a = 11 Then
  928. Picture45.picture = LoadPicture("c:\icon\nugage\guag11.ico")
  929. End If
  930. If a = 12 Then
  931. Picture45.picture = LoadPicture("c:\icon\nugage\guag12.ico")
  932. End If
  933. If a = 13 Then
  934. Picture45.picture = LoadPicture("c:\icon\nugage\guag13.ico")
  935. End If
  936. If a = 14 Then
  937. Picture45.picture = LoadPicture("c:\icon\nugage\guag14.ico")
  938. End If
  939. If a = 15 Then
  940. Picture45.picture = LoadPicture("c:\icon\nugage\guag15.ico")
  941. End If If a = 16 Then
  942. Picture45.picture = LoadPicture("c:\icon\nugage\guag16.ico")
  943. End If
  944. If a = 17 Then
  945. Picture45.picture = LoadPicture("c:\icon\nugage\guag17.ico")
  946. End If
  947. If a = 18 Then
  948. Picture45.picture = LoadPicture("c:\icon\nugage\guag18.ico")
  949. End If
  950. If a = 19 Then
  951. Picture45.picture = LoadPicture("c:\icon\nugage\guag19.ico")
  952. End If
  953. If a = 20 Then
  954. Picture45.picture = LoadPicture("c:\icon\nugage\guag20.ico")
  955. End If
  956. If a = 21 Then
  957. Picture45.picture = LoadPicture("c:\icon\nugage\guag21.ico")
  958. End If
  959. If a = 22 Then
  960. Picture45.picture = LoadPicture("c:\icon\nugage\guag22.ico")
  961. End If
  962. If a = 23 Then
  963. Picture45.picture = LoadPicture("c:\icon\nugage\guag23.ico")
  964. End If
  965. If a = 24 Then
  966. Picture45.picture = LoadPicture("c:\icon\nugage\guag24.ico")
  967. End If
  968. If a = 25 Then
  969. Picture45.picture = LoadPicture("c:\icon\nugage\guag25.ico")
  970. End If
  971.  
  972. Picture34.picture = LoadPicture("c:\icon\guage\guage2.ico")
  973. 'Picture34.picture = LoadPicture("c:\icon\guage\guage3.ico")
  974. ' END ENGINE SPEED VS ENGINE THROTTLE ICON GENERATION.
  975. 'Begin Altitude "Strip"
  976. stri2K = 0
  977. striK = 0
  978. striC = 0
  979. striD = 0
  980. ALTDH = Altitude
  981. If ALTDH > 10000 Then
  982. str2K = Int(ALTDH / 10000)
  983. ALTDH = ALTDH - (str2K * 10000)
  984. End If
  985. If ALTDH > 1000 Then
  986. striK = Int(ALTDH / 1000)
  987. ALTDH = ALTDH - (striK * 1000)
  988. End If
  989. If ALTDH > 100 Then
  990. striC = Int(ALTDH / 100)
  991. ALTDH = ALTDH - (striC * 100)
  992. End If
  993. If ALTDH > 10 Then
  994. striD = Int(ALTDH / 10)
  995. ALTDH = ALTDH - (striD * 10)
  996. End If
  997.  
  998. striO = Int(ALTDH)
  999.  
  1000.  
  1001. If str2K = 0 Then
  1002. Picture25.picture = LoadPicture("c:\icon\number\0")
  1003. End If
  1004.  
  1005. If str2K = 1 Then
  1006. Picture25.picture = LoadPicture("c:\icon\number\1") End If
  1007.  
  1008. If str2K = 2 Then
  1009. Picture25.picture = LoadPicture("c:\icon\number\2")
  1010. End If
  1011.  
  1012. If str2K = 3 Then
  1013. Picture25.picture = LoadPicture("c:\icon\number\3")
  1014. End If
  1015.  
  1016. If str2K = 4 Then
  1017. Picture25.picture = LoadPicture("c:\icon\number\4")
  1018. End If
  1019.  
  1020. If str2K = 5 Then
  1021. Picture25.picture = LoadPicture("c:\icon\number\5")
  1022. End If
  1023.  
  1024. If str2K = 6 Then
  1025. Picture25.picture = LoadPicture("c:\icon\number\6")
  1026. End If
  1027.  
  1028. If str2K = 7 Then
  1029. Picture25.picture = LoadPicture("c:\icon\number\7")
  1030. End If
  1031.  
  1032. If str2K = 8 Then
  1033. Picture25.picture = LoadPicture("c:\icon\number\8")
  1034. End If
  1035.  
  1036. If str2K = 9 Then
  1037. Picture25.picture = LoadPicture("c:\icon\number\9")
  1038. End If
  1039.  
  1040.  
  1041.  
  1042. If striK = 0 Then
  1043. Picture26.picture = LoadPicture("c:\icon\number\0")
  1044. End If
  1045.  
  1046. If striK = 1 Then
  1047. Picture26.picture = LoadPicture("c:\icon\number\1")
  1048. End If
  1049.  
  1050. If striK = 2 Then
  1051. Picture26.picture = LoadPicture("c:\icon\number\2")
  1052. End If
  1053.  
  1054. If striK = 3 Then
  1055. Picture26.picture = LoadPicture("c:\icon\number\3")
  1056. End If
  1057.  
  1058. If striK = 4 Then
  1059. Picture26.picture = LoadPicture("c:\icon\number\4")
  1060. End If
  1061.  
  1062. If striK = 5 Then
  1063. Picture26.picture = LoadPicture("c:\icon\number\5")
  1064. End If
  1065.  
  1066. If striK = 6 Then
  1067. Picture26.picture = LoadPicture("c:\icon\number\6")
  1068. End If
  1069.  
  1070. If striK = 7 Then
  1071. Picture26.picture = LoadPicture("c:\icon\number\7") End If
  1072.  
  1073. If striK = 8 Then
  1074. Picture26.picture = LoadPicture("c:\icon\number\8")
  1075. End If
  1076.  
  1077. If striK = 9 Then
  1078. Picture26.picture = LoadPicture("c:\icon\number\9")
  1079. End If
  1080.  
  1081. If striC = 0 Then
  1082. Picture27.picture = LoadPicture("c:\icon\number\0")
  1083. End If
  1084.  
  1085. If striC = 1 Then
  1086. Picture27.picture = LoadPicture("c:\icon\number\1")
  1087. End If
  1088.  
  1089. If striC = 2 Then
  1090. Picture27.picture = LoadPicture("c:\icon\number\2")
  1091. End If
  1092.  
  1093. If striC = 3 Then
  1094. Picture27.picture = LoadPicture("c:\icon\number\3")
  1095. End If
  1096.  
  1097. If striC = 4 Then
  1098. Picture27.picture = LoadPicture("c:\icon\number\4")
  1099. End If
  1100.  
  1101. If striC = 5 Then
  1102. Picture27.picture = LoadPicture("c:\icon\number\5")
  1103. End If
  1104.  
  1105. If striC = 6 Then
  1106. Picture27.picture = LoadPicture("c:\icon\number\6")
  1107. End If
  1108.  
  1109. If striC = 7 Then
  1110. Picture27.picture = LoadPicture("c:\icon\number\7")
  1111. End If
  1112.  
  1113. If striC = 8 Then
  1114. Picture27.picture = LoadPicture("c:\icon\number\8")
  1115. End If
  1116.  
  1117. If striC = 9 Then
  1118. Picture27.picture = LoadPicture("c:\icon\number\9")
  1119. End If
  1120.  
  1121. If striD = 0 Then
  1122. Picture28.picture = LoadPicture("c:\icon\number\0")
  1123. End If
  1124.  
  1125. If striD = 1 Then
  1126. Picture28.picture = LoadPicture("c:\icon\number\1")
  1127. End If
  1128.  
  1129. If striD = 2 Then
  1130. Picture28.picture = LoadPicture("c:\icon\number\2")
  1131. End If
  1132.  
  1133. If striD = 3 Then
  1134. Picture28.picture = LoadPicture("c:\icon\number\3")
  1135. End If If striD = 4 Then
  1136. Picture28.picture = LoadPicture("c:\icon\number\4")
  1137. End If
  1138.  
  1139. If striD = 5 Then
  1140. Picture28.picture = LoadPicture("c:\icon\number\5")
  1141. End If
  1142.  
  1143. If striD = 6 Then
  1144. Picture28.picture = LoadPicture("c:\icon\number\6")
  1145. End If
  1146.  
  1147. If striD = 7 Then
  1148. Picture28.picture = LoadPicture("c:\icon\number\7")
  1149. End If
  1150.  
  1151. If striD = 8 Then
  1152. Picture28.picture = LoadPicture("c:\icon\number\8")
  1153. End If
  1154.  
  1155. If striD = 9 Then
  1156. Picture28.picture = LoadPicture("c:\icon\number\9")
  1157. End If
  1158.  
  1159. If striO = 0 Then
  1160. Picture29.picture = LoadPicture("c:\icon\number\0")
  1161. End If
  1162.  
  1163. If striO = 1 Then
  1164. Picture29.picture = LoadPicture("c:\icon\number\1")
  1165. End If
  1166.  
  1167. If striO = 2 Then
  1168. Picture29.picture = LoadPicture("c:\icon\number\2")
  1169. End If
  1170.  
  1171. If striO = 3 Then
  1172. Picture29.picture = LoadPicture("c:\icon\number\3")
  1173. End If
  1174.  
  1175. If striO = 4 Then
  1176. Picture29.picture = LoadPicture("c:\icon\number\4")
  1177. End If
  1178.  
  1179. If striO = 5 Then
  1180. Picture29.picture = LoadPicture("c:\icon\number\5")
  1181. End If
  1182.  
  1183. If striO = 6 Then
  1184. Picture29.picture = LoadPicture("c:\icon\number\6")
  1185. End If
  1186.  
  1187. If striO = 7 Then
  1188. Picture29.picture = LoadPicture("c:\icon\number\7")
  1189. End If
  1190.  
  1191. If striO = 8 Then
  1192. Picture29.picture = LoadPicture("c:\icon\number\8")
  1193. End If
  1194.  
  1195. If striO = 9 Then
  1196. Picture29.picture = LoadPicture("c:\icon\number\9")
  1197. End If
  1198.  
  1199.  
  1200. Picture34.picture = LoadPicture("c:\icon\guage\guage2.ico") 'Picture34.picture = LoadPicture("c:\icon\guage\guage3.ico")
  1201.  
  1202. stri2K = 0
  1203. striK = 0
  1204. striC = 0
  1205. striD = 0
  1206. striO = 0
  1207.  
  1208. '****************************************************************************
  1209. 'END ALTITUDE "STRIP"
  1210. '****************************************************************************
  1211.  
  1212. '****************************************************************************
  1213. 'Begin FSpeed "Strip"
  1214. '****************************************************************************
  1215. SpeedM = Fspeed
  1216. SpeedM = (SpeedM / 10)
  1217. SpeedM = Int(SpeedM)
  1218.  
  1219. If SpeedM = 0 Then
  1220. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex1.ico")
  1221. End If
  1222.  
  1223. If SpeedM = 1 Then
  1224. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex1.ico")
  1225. End If
  1226. If SpeedM = 2 Then
  1227. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex2.ico")
  1228. End If
  1229. If SpeedM = 3 Then
  1230. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex3.ico")
  1231. End If
  1232. If SpeedM = 4 Then
  1233. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex4.ico")
  1234. End If
  1235. If SpeedM = 5 Then
  1236. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex5.ico")
  1237. End If
  1238. If SpeedM = 6 Then
  1239. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex6.ico")
  1240. End If
  1241. If SpeedM = 7 Then
  1242. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex7.ico")
  1243. End If
  1244. If SpeedM = 8 Then
  1245. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex8.ico")
  1246. End If
  1247. If SpeedM = 9 Then
  1248. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex9.ico")
  1249. End If
  1250. If SpeedM = 10 Then
  1251. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex10.ico")
  1252. End If
  1253. If SpeedM = 11 Then
  1254. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex11.ico")
  1255. End If
  1256. If SpeedM = 12 Then
  1257. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex12.ico")
  1258. End If
  1259. If SpeedM = 13 Then
  1260. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex13.ico")
  1261. End If
  1262. If SpeedM = 14 Then
  1263. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex14.ico")
  1264. End If
  1265. If SpeedM = 15 Then Picture67.picture = LoadPicture("c:\icon\iconmstr\hex15.ico")
  1266. End If
  1267. If SpeedM = 16 Then
  1268. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex16.ico")
  1269. End If
  1270. If SpeedM = 17 Then
  1271. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex17.ico")
  1272. End If
  1273. If SpeedM = 18 Then
  1274. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex18.ico")
  1275. End If
  1276. If SpeedM = 19 Then
  1277. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex19.ico")
  1278. End If
  1279. If SpeedM = 20 Then
  1280. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex20.ico")
  1281. End If
  1282. If SpeedM = 21 Then
  1283. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex21.ico")
  1284. End If
  1285. If SpeedM = 22 Then
  1286. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex22.ico")
  1287. End If
  1288. If SpeedM = 23 Then
  1289. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex23.ico")
  1290. End If
  1291. If SpeedM = 24 Then
  1292. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex24.ico")
  1293. End If
  1294. If SpeedM = 25 Then
  1295. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex25.ico")
  1296. End If
  1297. If SpeedM = 26 Then
  1298. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex26.ico")
  1299. End If
  1300. If SpeedM = 27 Then
  1301. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex27.ico")
  1302. End If
  1303. If SpeedM = 28 Then
  1304. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex28.ico")
  1305. End If
  1306. If SpeedM = 29 Then
  1307. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex29.ico")
  1308. End If
  1309. If SpeedM = 30 Then
  1310. Picture67.picture = LoadPicture("c:\icon\iconmstr\hex30.ico")
  1311. End If
  1312.  
  1313.  
  1314. FORSPDH = Fspeed
  1315. If FORSPDH > 100 Then
  1316. striC = Int(FORSPDH / 100)
  1317. FORSPDH = FORSPDH - (striC * 100)
  1318. End If
  1319. If FORSPDH > 10 Then
  1320. striD = Int(FORSPDH / 10)
  1321. FORSPDH = FORSPDH - (striD * 10)
  1322. End If
  1323.  
  1324. stri0 = Int(FORSPDH)
  1325.  
  1326. If striC = 0 Then
  1327. Picture61.picture = LoadPicture("c:\icon\number\0")
  1328.  
  1329. End If
  1330.   If striC = 1 Then
  1331. Picture61.picture = LoadPicture("c:\icon\number\1")
  1332. End If
  1333.  
  1334. If striC = 2 Then
  1335. Picture61.picture = LoadPicture("c:\icon\number\2")
  1336. End If
  1337.  
  1338. If striC = 3 Then
  1339. Picture61.picture = LoadPicture("c:\icon\number\3")
  1340. End If
  1341.  
  1342. If striC = 4 Then
  1343. Picture61.picture = LoadPicture("c:\icon\number\4")
  1344. End If
  1345.  
  1346. If striC = 5 Then
  1347. Picture61.picture = LoadPicture("c:\icon\number\5")
  1348. End If
  1349.  
  1350. If striC = 6 Then
  1351. Picture61.picture = LoadPicture("c:\icon\number\6")
  1352. End If
  1353.  
  1354. If striC = 7 Then
  1355. Picture61.picture = LoadPicture("c:\icon\number\7")
  1356. End If
  1357.  
  1358. If striC = 8 Then
  1359. Picture61.picture = LoadPicture("c:\icon\number\8")
  1360. End If
  1361.  
  1362. If striC = 9 Then
  1363. Picture61.picture = LoadPicture("c:\icon\number\9")
  1364. End If
  1365.  
  1366. If striD = 0 Then
  1367. Picture62.picture = LoadPicture("c:\icon\number\0")
  1368. End If
  1369.  
  1370. If striD = 1 Then
  1371. Picture62.picture = LoadPicture("c:\icon\number\1")
  1372. End If
  1373.  
  1374. If striD = 2 Then
  1375. Picture62.picture = LoadPicture("c:\icon\number\2")
  1376. End If
  1377.  
  1378. If striD = 3 Then
  1379. Picture62.picture = LoadPicture("c:\icon\number\3")
  1380. End If
  1381.  
  1382. If striD = 4 Then
  1383. Picture62.picture = LoadPicture("c:\icon\number\4")
  1384. End If
  1385.  
  1386. If striD = 5 Then
  1387. Picture62.picture = LoadPicture("c:\icon\number\5")
  1388. End If
  1389.  
  1390. If striD = 6 Then
  1391. Picture62.picture = LoadPicture("c:\icon\number\6")
  1392. End If
  1393.  
  1394. If striD = 7 Then
  1395. Picture62.picture = LoadPicture("c:\icon\number\7") End If
  1396.  
  1397. If striD = 8 Then
  1398. Picture62.picture = LoadPicture("c:\icon\number\8")
  1399. End If
  1400.  
  1401. If striD = 9 Then
  1402. Picture62.picture = LoadPicture("c:\icon\number\9")
  1403. End If
  1404.  
  1405. If stri0 = 0 Then
  1406. Picture63.picture = LoadPicture("c:\icon\number\0")
  1407. End If
  1408.  
  1409. If stri0 = 1 Then
  1410. Picture63.picture = LoadPicture("c:\icon\number\1")
  1411. End If
  1412.  
  1413. If stri0 = 2 Then
  1414. Picture63.picture = LoadPicture("c:\icon\number\2")
  1415. End If
  1416.  
  1417. If stri0 = 3 Then
  1418. Picture63.picture = LoadPicture("c:\icon\number\3")
  1419. End If
  1420.  
  1421. If stri0 = 4 Then
  1422. Picture63.picture = LoadPicture("c:\icon\number\4")
  1423. End If
  1424.  
  1425. If stri0 = 5 Then
  1426. Picture63.picture = LoadPicture("c:\icon\number\5")
  1427. End If
  1428.  
  1429. If stri0 = 6 Then
  1430. Picture63.picture = LoadPicture("c:\icon\number\6")
  1431. End If
  1432.  
  1433. If stri0 = 7 Then
  1434. Picture63.picture = LoadPicture("c:\icon\number\7")
  1435. End If
  1436.  
  1437. If stri0 = 8 Then
  1438. Picture63.picture = LoadPicture("c:\icon\number\8")
  1439. End If
  1440.  
  1441. If stri0 = 9 Then
  1442. Picture63.picture = LoadPicture("c:\icon\number\9")
  1443. End If
  1444.  
  1445. Picture34.picture = LoadPicture("c:\icon\guage\guage2.ico")
  1446. 'Picture34.picture = LoadPicture("c:\icon\guage\guage3.ico")
  1447.  
  1448. stri2K = 0
  1449. striK = 0
  1450. striC = 0
  1451. striD = 0
  1452. st2K = 0
  1453.  
  1454. '****************************************************************************
  1455. 'END Forward Speed "STRIP" **************************************************
  1456. '****************************************************************************
  1457. ' Begin Windscreen generation
  1458.  
  1459.  
  1460. 'Picture10.picture = LoadPicture(p21$)
  1461. 'Picture10.picture = LoadPicture(p22$)
  1462. 'Picture10.picture = LoadPicture(p23$)
  1463. 'Picture10.picture = LoadPicture(p24$)
  1464. 'Picture10.picture = LoadPicture(p25$)
  1465. 'Picture10.picture = LoadPicture(p26$)
  1466. 'Picture10.picture = LoadPicture(p27$)
  1467. 'Picture10.picture = LoadPicture(p28$)
  1468. 'Picture10.picture = LoadPicture(p29$)
  1469. 'Picture10.picture = LoadPicture(p30$)
  1470. 'Picture10.picture = LoadPicture(p31$)
  1471. 'Picture10.picture = LoadPicture(p32$)
  1472. 'Picture10.picture = LoadPicture(p33$)
  1473. 'Picture10.picture = LoadPicture(p34$)
  1474. 'Picture10.picture = LoadPicture(p35$)
  1475.  
  1476.  
  1477. Picture6.Cls
  1478. Picture6.Print Int(Altitude)
  1479. Picture1.Cls
  1480. Picture1.Print Throttle1
  1481. 'Picture2.picture = LoadPicture("c:\icon\radar3.ico")
  1482. 'Picture2.picture = LoadPicture("c:\icon\radar5.ico")
  1483. Display.caption = Time$
  1484.  
  1485. ' Start speed vs icon generation
  1486.  
  1487. 'Maxspeed = 400 knots
  1488.  
  1489.  
  1490.  
  1491. 'Picture2.Picture = LoadPicture("c:\icon\radar7.ico")
  1492. 'Picture10.Picture = LoadPicture("c:\icon\panel10.ico")
  1493. If gen = 1 Then
  1494. Picture35.picture = LoadPicture("c:\icon\nugage\guag1.ico")
  1495. End If
  1496.  
  1497. If gen = 2 Then
  1498. Picture35.picture = LoadPicture("c:\icon\nugage\guag2.ico")
  1499. End If
  1500.  
  1501. If gen = 3 Then
  1502. Picture35.picture = LoadPicture("c:\icon\nugage\guag3.ico")
  1503. End If
  1504.  
  1505. If gen = 4 Then
  1506. Picture35.picture = LoadPicture("c:\icon\nugage\guag4.ico")
  1507. End If
  1508.  
  1509. If gen = 5 Then
  1510. Picture35.picture = LoadPicture("c:\icon\nugage\guag5.ico")
  1511. End If
  1512.  
  1513. If gen = 6 Then
  1514. Picture35.picture = LoadPicture("c:\icon\nugage\guag6.ico")
  1515. End If
  1516.  
  1517. If gen = 7 Then
  1518. Picture35.picture = LoadPicture("c:\icon\nugage\guag7.ico")
  1519. End If
  1520.  
  1521. If gen = 8 Then Picture35.picture = LoadPicture("c:\icon\nugage\guag8.ico")
  1522. End If
  1523.  
  1524. If gen = 9 Then
  1525. Picture35.picture = LoadPicture("c:\icon\nugage\guag9.ico")
  1526. End If
  1527.  
  1528. If gen = 10 Then
  1529. Picture35.picture = LoadPicture("c:\icon\nugage\guag10.ico")
  1530. End If
  1531.  
  1532. If gen = 11 Then
  1533. Picture35.picture = LoadPicture("c:\icon\nugage\guag11.ico")
  1534. End If
  1535.  
  1536. If gen = 12 Then
  1537. Picture35.picture = LoadPicture("c:\icon\nugage\guag12.ico")
  1538. End If
  1539.  
  1540. If gen = 13 Then
  1541. Picture35.picture = LoadPicture("c:\icon\nugage\guag13.ico")
  1542. End If
  1543.  
  1544. If gen = 14 Then
  1545. Picture35.picture = LoadPicture("c:\icon\nugage\guag14.ico")
  1546. End If
  1547.  
  1548. If gen = 15 Then
  1549. Picture35.picture = LoadPicture("c:\icon\nugage\guag15.ico")
  1550. End If
  1551.  
  1552. If gen = 16 Then
  1553. Picture35.picture = LoadPicture("c:\icon\nugage\guag16.ico")
  1554. End If
  1555.  
  1556. If gen = 17 Then
  1557. Picture35.picture = LoadPicture("c:\icon\nugage\guag17.ico")
  1558. End If
  1559.  
  1560. If gen = 18 Then
  1561. Picture35.picture = LoadPicture("c:\icon\nugage\guag18.ico")
  1562. End If
  1563.  
  1564. 'Battery Icon
  1565.  
  1566. If Bat = 1 Then
  1567. Picture7.picture = LoadPicture("c:\icon\ind1.ico")
  1568. End If
  1569.  
  1570. If Bat = 2 Then
  1571. Picture7.picture = LoadPicture("c:\icon\ind2.ico")
  1572. End If
  1573.  
  1574. If Bat = 3 Then
  1575. Picture7.picture = LoadPicture("c:\icon\ind3.ico")
  1576. End If
  1577.  
  1578. If Bat = 4 Then
  1579. Picture7.picture = LoadPicture("c:\icon\ind4.ico")
  1580. End If
  1581.  
  1582. If Bat = 5 Then
  1583. Picture7.picture = LoadPicture("c:\icon\ind5.ico")
  1584. End If
  1585.  
  1586. If Bat = 6 Then Picture7.picture = LoadPicture("c:\icon\ind6.ico")
  1587. End If
  1588.  
  1589. If Bat = 7 Then
  1590. Picture7.picture = LoadPicture("c:\icon\ind7.ico")
  1591. End If
  1592.  
  1593. If Bat = 8 Then
  1594. Picture7.picture = LoadPicture("c:\icon\ind8.ico")
  1595. End If
  1596.  
  1597. If Bat = 9 Then
  1598. Picture7.picture = LoadPicture("c:\icon\ind9.ico")
  1599. End If
  1600.  
  1601. If Bat = 10 Then
  1602. Picture7.picture = LoadPicture("c:\icon\ind10.ico")
  1603. End If
  1604.  
  1605. If Bat = 11 Then
  1606. Picture7.picture = LoadPicture("c:\icon\ind11.ico")
  1607. End If
  1608.  
  1609. If Bat = 12 Then
  1610. Picture7.picture = LoadPicture("c:\icon\ind12.ico")
  1611. End If
  1612.  
  1613. If Bat = 13 Then
  1614. Picture7.picture = LoadPicture("c:\icon\ind13.ico")
  1615. End If
  1616.  
  1617. If Bat = 14 Then
  1618. Picture7.picture = LoadPicture("c:\icon\ind14.ico")
  1619. End If
  1620.  
  1621. If Bat = 15 Then
  1622. Picture7.picture = LoadPicture("c:\icon\ind15.ico")
  1623. End If
  1624.  
  1625. If Bat = 16 Then
  1626. Picture7.picture = LoadPicture("c:\icon\ind16.ico")
  1627. End If
  1628.  
  1629. If Bat = 17 Then
  1630. Picture7.picture = LoadPicture("c:\icon\ind17.ico")
  1631. End If
  1632.  
  1633. If Bat = 18 Then
  1634. Picture7.picture = LoadPicture("c:\icon\ind18.ico")
  1635. End If
  1636.  
  1637.  
  1638. 'Picture34.picture = LoadPicture("c:\icon\guage\guage2.ico")
  1639. Picture34.picture = LoadPicture("c:\icon\guage\guage3.ico")
  1640.  
  1641.  
  1642.  
  1643. If Hyd = 1 Then
  1644. Picture36.picture = LoadPicture("c:\icon\nugage\guag1.ico")
  1645. End If
  1646.  
  1647. If Hyd = 2 Then
  1648. Picture36.picture = LoadPicture("c:\icon\nugage\guag2.ico")
  1649. End If
  1650.  
  1651. If Hyd = 3 Then Picture36.picture = LoadPicture("c:\icon\nugage\guag3.ico")
  1652. End If
  1653.  
  1654. If Hyd = 4 Then
  1655. Picture36.picture = LoadPicture("c:\icon\nugage\guag4.ico")
  1656. End If
  1657.  
  1658. If Hyd = 5 Then
  1659. Picture36.picture = LoadPicture("c:\icon\nugage\guag5.ico")
  1660. End If
  1661.  
  1662. If Hyd = 6 Then
  1663. Picture36.picture = LoadPicture("c:\icon\nugage\guag6.ico")
  1664. End If
  1665.  
  1666. If Hyd = 7 Then
  1667. Picture36.picture = LoadPicture("c:\icon\nugage\guag7.ico")
  1668. End If
  1669.  
  1670. If Hyd = 8 Then
  1671. Picture36.picture = LoadPicture("c:\icon\nugage\guag8.ico")
  1672. End If
  1673.  
  1674. If Hyd = 9 Then
  1675. Picture36.picture = LoadPicture("c:\icon\nugage\guag9.ico")
  1676. End If
  1677.  
  1678. If Hyd = 10 Then
  1679. Picture36.picture = LoadPicture("c:\icon\nugage\guag10.ico")
  1680. End If
  1681.  
  1682. If Hyd = 11 Then
  1683. Picture36.picture = LoadPicture("c:\icon\nugage\guag11.ico")
  1684. End If
  1685.  
  1686. If Hyd = 12 Then
  1687. Picture36.picture = LoadPicture("c:\icon\nugage\guag12.ico")
  1688. End If
  1689.  
  1690. If Hyd = 13 Then
  1691. Picture36.picture = LoadPicture("c:\icon\nugage\guag13.ico")
  1692. End If
  1693.  
  1694. If Hyd = 14 Then
  1695. Picture36.picture = LoadPicture("c:\icon\nugage\guag14.ico")
  1696. End If
  1697.  
  1698. If Hyd = 15 Then
  1699. Picture36.picture = LoadPicture("c:\icon\nugage\guag15.ico")
  1700. End If
  1701.  
  1702. If Hyd = 16 Then
  1703. Picture36.picture = LoadPicture("c:\icon\nugage\guag16.ico")
  1704. End If
  1705.  
  1706. If Hyd = 17 Then
  1707. Picture36.picture = LoadPicture("c:\icon\nugage\guag17.ico")
  1708. End If
  1709.  
  1710. If Hyd = 18 Then
  1711. Picture36.picture = LoadPicture("c:\icon\nugage\guag18.ico")
  1712. End If
  1713.  
  1714.  
  1715. 'End Hyd Generation
  1716. 'Begin Oil Generation
  1717.  
  1718. If Oil = 1 Then
  1719. Picture66.picture = LoadPicture("c:\icon\nugage\guag1.ico")
  1720. End If
  1721.  
  1722. If Oil = 2 Then
  1723. Picture66.picture = LoadPicture("c:\icon\nugage\guag2.ico")
  1724. End If
  1725. If Oil = 3 Then
  1726. Picture66.picture = LoadPicture("c:\icon\nugage\guag3.ico")
  1727. End If
  1728. If Oil = 4 Then
  1729. Picture66.picture = LoadPicture("c:\icon\nugage\guag4.ico")
  1730. End If
  1731. If Oil = 5 Then
  1732. Picture66.picture = LoadPicture("c:\icon\nugage\guag5.ico")
  1733. End If
  1734. If Oil = 6 Then
  1735. Picture66.picture = LoadPicture("c:\icon\nugage\guag6.ico")
  1736. End If
  1737. If Oil = 7 Then
  1738. Picture66.picture = LoadPicture("c:\icon\nugage\guag7.ico")
  1739. End If
  1740. If Oil = 8 Then
  1741. Picture66.picture = LoadPicture("c:\icon\nugage\guag8.ico")
  1742. End If
  1743. If Oil = 9 Then
  1744. Picture66.picture = LoadPicture("c:\icon\nugage\guag9.ico")
  1745. End If
  1746. If Oil = 10 Then
  1747. Picture66.picture = LoadPicture("c:\icon\nugage\guag10.ico")
  1748. End If
  1749. If Oil = 11 Then
  1750. Picture66.picture = LoadPicture("c:\icon\nugage\guag11.ico")
  1751. End If
  1752. If Oil = 12 Then
  1753. Picture66.picture = LoadPicture("c:\icon\nugage\guag12.ico")
  1754. End If
  1755. If Oil = 13 Then
  1756. Picture66.picture = LoadPicture("c:\icon\nugage\guag13.ico")
  1757. End If
  1758. If Oil = 14 Then
  1759. Picture66.picture = LoadPicture("c:\icon\nugage\guag14.ico")
  1760. End If
  1761. If Oil = 15 Then
  1762. Picture66.picture = LoadPicture("c:\icon\nugage\guag15.ico")
  1763. End If
  1764. If Oil = 16 Then
  1765. Picture66.picture = LoadPicture("c:\icon\nugage\guag16.ico")
  1766. End If
  1767. If Oil = 17 Then
  1768. Picture66.picture = LoadPicture("c:\icon\nugage\guag17.ico")
  1769. End If
  1770. If Oil = 18 Then
  1771. Picture66.picture = LoadPicture("c:\icon\nugage\guag18.ico")
  1772. End If
  1773. If Oil = 19 Then
  1774. Picture66.picture = LoadPicture("c:\icon\nugage\guag19.ico")
  1775. End If
  1776.  
  1777.  
  1778.  
  1779.  
  1780. 'End Hyd Generation
  1781.  
  1782.  
  1783. 'Picture34.picture = LoadPicture("c:\icon\guage\guage2.ico")
  1784. 'Picture34.picture = LoadPicture("c:\icon\guage\guage3.ico")
  1785.  
  1786. Picture57.picture = LoadPicture("c:\icon\jystk\blank.ico")
  1787. Picture49.picture = LoadPicture("c:\icon\jystk\lftctr.ico")
  1788. Picture30.picture = LoadPicture("c:\icon\jystk\blank.ico")
  1789. Picture58.picture = LoadPicture("c:\icon\jystk\blank.ico")
  1790. Picture33.picture = LoadPicture("c:\icon\jystk\blank.ico")
  1791. Picture60.picture = LoadPicture("c:\icon\jystk\blank.ico")
  1792. Picture50.picture = LoadPicture("c:\icon\jystk\blank.ico")
  1793. Picture59.picture = LoadPicture("c:\icon\jystk\blank.ico")
  1794. Picture21.picture = LoadPicture("c:\icon\jystk\blank.ico")
  1795.  
  1796. 'ILS GENERATE*****************************************************************
  1797. If GLS = 1 Then
  1798. glslope = (((lndist - dstv) / cdis) * 5280)
  1799. picture56.Cls
  1800. picture56.Print ((lndist - dstv) / cdis)
  1801.  
  1802. picture53.Cls
  1803. picture53.Print glslope
  1804. dstv = dstv + Fspeed
  1805. picture54.Cls
  1806. Mile = Abs((dstv - lndist) / 5280)
  1807. Mile = Int(Mile)
  1808. picture54.Print Mile
  1809.  
  1810. glpath = (Altitude - glslope)
  1811.  
  1812.  
  1813. picture55.Cls
  1814. picture55.Print Int(glpath)
  1815.  
  1816. glpath = Int(glpath)
  1817. End If
  1818.  
  1819. If Auto = 1 Then
  1820. If glpath > 0 Then
  1821. NA = NA - .5
  1822. End If
  1823. End If
  1824.  
  1825. If Auto = 1 Then
  1826. If glpath < 0 Then
  1827. NA = NA + .5
  1828. End If
  1829. End If
  1830.  
  1831. If glpath > 13 Then
  1832. Picture2.picture = LoadPicture("c:\icon\ils\ilsp13.ico")
  1833. End If
  1834. If glpath < -13 Then
  1835. Picture2.picture = LoadPicture("c:\icon\ils\ilsm13.ico")
  1836. End If
  1837.  
  1838. If glpath = 0 Then
  1839. Picture2.picture = LoadPicture("c:\icon\ils\ilsctr.ico")
  1840. End If
  1841. If glpath = 1 Then
  1842. Picture2.picture = LoadPicture("c:\icon\ils\ilsp1.ico")
  1843. End If
  1844. If glpath = 2 Then
  1845. Picture2.picture = LoadPicture("c:\icon\ils\ilsp2.ico") End If
  1846. If glpath = 3 Then
  1847. Picture2.picture = LoadPicture("c:\icon\ils\ilsp3.ico")
  1848. End If
  1849. If glpath = 4 Then
  1850. Picture2.picture = LoadPicture("c:\icon\ils\ilsp4.ico")
  1851. End If
  1852. If glpath = 5 Then
  1853. Picture2.picture = LoadPicture("c:\icon\ils\ilsp5.ico")
  1854. End If
  1855. If glpath = 6 Then
  1856. Picture2.picture = LoadPicture("c:\icon\ils\ilsp6.ico")
  1857. End If
  1858. If glpath = 7 Then
  1859. Picture2.picture = LoadPicture("c:\icon\ils\ilsp7.ico")
  1860. End If
  1861. If glpath = 8 Then
  1862. Picture2.picture = LoadPicture("c:\icon\ils\ilsp8.ico")
  1863. End If
  1864. If glpath = 9 Then
  1865. Picture2.picture = LoadPicture("c:\icon\ils\ilsp9.ico")
  1866. End If
  1867. If glpath = 10 Then
  1868. Picture2.picture = LoadPicture("c:\icon\ils\ilsp10.ico")
  1869. End If
  1870. If glpath = 11 Then
  1871. Picture2.picture = LoadPicture("c:\icon\ils\ilsp11.ico")
  1872. End If
  1873. If glpath = 12 Then
  1874. Picture2.picture = LoadPicture("c:\icon\ils\ilsp12.ico")
  1875. End If
  1876. If glpath = 13 Then
  1877. Picture2.picture = LoadPicture("c:\icon\ils\ilsp13.ico")
  1878. End If
  1879. If glpath = -1 Then
  1880. Picture2.picture = LoadPicture("c:\icon\ils\ilsm1.ico")
  1881. End If
  1882. If glpath = -2 Then
  1883. Picture2.picture = LoadPicture("c:\icon\ils\ilsm2.ico")
  1884. End If
  1885. If glpath = -3 Then
  1886. Picture2.picture = LoadPicture("c:\icon\ils\ilsm3.ico")
  1887. End If
  1888. If glpath = -4 Then
  1889. Picture2.picture = LoadPicture("c:\icon\ils\ilsm4.ico")
  1890. End If
  1891. If glpath = -5 Then
  1892. Picture2.picture = LoadPicture("c:\icon\ils\ilsm5.ico")
  1893. End If
  1894. If glpath = -6 Then
  1895. Picture2.picture = LoadPicture("c:\icon\ils\ilsm6.ico")
  1896. End If
  1897. If glpath = -7 Then
  1898. Picture2.picture = LoadPicture("c:\icon\ils\ilsm7.ico")
  1899. End If
  1900. If glpath = -8 Then
  1901. Picture2.picture = LoadPicture("c:\icon\ils\ilsm8.ico")
  1902. End If
  1903. If glpath = -9 Then
  1904. Picture2.picture = LoadPicture("c:\icon\ils\ilsm9.ico")
  1905. End If
  1906. If glpath = -10 Then
  1907. Picture2.picture = LoadPicture("c:\icon\ils\ilsm10.ico")
  1908. End If
  1909. If glpath = -11 Then
  1910. Picture2.picture = LoadPicture("c:\icon\ils\ilsm11.ico") End If
  1911. If glpath = -12 Then
  1912. Picture2.picture = LoadPicture("c:\icon\ils\ilsm12.ico")
  1913. End If
  1914. If glpath = -13 Then
  1915. Picture2.picture = LoadPicture("c:\icon\ils\ilsm13.ico")
  1916. End If
  1917. If Mile = 0 Then
  1918. Picture77.picture = LoadPicture("c:\icon\number\0")
  1919. End If
  1920. If Mile = 1 Then
  1921. Picture77.picture = LoadPicture("c:\icon\number\1")
  1922. End If
  1923. If Mile = 2 Then
  1924. Picture77.picture = LoadPicture("c:\icon\number\2")
  1925. End If
  1926. If Mile = 3 Then
  1927. Picture77.picture = LoadPicture("c:\icon\number\3")
  1928. End If
  1929. If Mile = 4 Then
  1930. Picture77.picture = LoadPicture("c:\icon\number\4")
  1931. End If
  1932. If Mile = 5 Then
  1933. Picture77.picture = LoadPicture("c:\icon\number\5")
  1934. End If
  1935. If Mile = 6 Then
  1936. Picture77.picture = LoadPicture("c:\icon\number\6")
  1937. End If
  1938. If Mile = 7 Then
  1939. Picture77.picture = LoadPicture("c:\icon\number\7")
  1940. End If
  1941. If Mile = 8 Then
  1942. Picture77.picture = LoadPicture("c:\icon\number\8")
  1943. End If
  1944. If Mile = 9 Then
  1945. Picture77.picture = LoadPicture("c:\icon\number\9")
  1946. End If
  1947.  
  1948. If Auto = 1 Then
  1949. Picture79.picture = LoadPicture("c:\icon\auto.ico")
  1950. End If
  1951.  
  1952. If Auto = 0 Then
  1953. Picture79.picture = LoadPicture("c:\icon\blank.ico")
  1954. End If
  1955.  
  1956.  
  1957.  
  1958. Loop
  1959. End Sub
  1960.  
  1961. Sub Picture75_Click ()
  1962. End
  1963.  
  1964. End Sub
  1965.  
  1966. Sub Picture72_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  1967. e)
  1968. GLS = 1
  1969.  
  1970. If button = 1 Then
  1971. Fuel = 125000
  1972.  
  1973. lndist = 50160
  1974. dstv = 0
  1975. cdis = 50160 Altitude = 5280
  1976. Fspeed = 300
  1977. Throttle1 = 40
  1978. NA = -4
  1979.  
  1980. Picture72.picture = LoadPicture("c:\icon\onoff\on.ico")
  1981. End If
  1982. If button = 2 Then
  1983. Picture72.picture = LoadPicture("c:\icon\onoff\off.ico")
  1984. End If
  1985.  
  1986. End Sub
  1987.  
  1988. Sub Picture73_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  1989. e)
  1990. If button = 1 Then
  1991. Picture73.picture = LoadPicture("c:\icon\onoff\on.ico")
  1992. End If
  1993. If button = 2 Then
  1994. Picture73.picture = LoadPicture("c:\icon\onoff\off.ico")
  1995. End If
  1996.  
  1997. End Sub
  1998.  
  1999. Sub Picture74_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  2000. e)
  2001. If button = 1 Then
  2002. Picture74.picture = LoadPicture("c:\icon\onoff\on.ico")
  2003. End If
  2004. If button = 2 Then
  2005. Picture74.picture = LoadPicture("c:\icon\onoff\off.ico")
  2006. End If
  2007.  
  2008. End Sub
  2009.  
  2010. Sub Picture71_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  2011. e)
  2012. If button = 1 Then
  2013. Picture71.picture = LoadPicture("c:\icon\onoff\on.ico")
  2014. Auto = 1
  2015. End If
  2016. If button = 2 Then
  2017. Picture71.picture = LoadPicture("c:\icon\onoff\off.ico")
  2018. Auto = 0
  2019. End If
  2020.  
  2021. End Sub
  2022.  
  2023. Sub Picture70_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  2024. e)
  2025. If button = 1 Then
  2026. Picture70.picture = LoadPicture("c:\icon\onoff\on.ico")
  2027. End If
  2028. If button = 2 Then
  2029. Picture70.picture = LoadPicture("c:\icon\onoff\off.ico")
  2030. End If
  2031.  
  2032. End Sub
  2033.  
  2034. Sub Picture68_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Singl
  2035. e)
  2036. If button = 1 Then
  2037. Picture68.picture = LoadPicture("c:\icon\onoff\on.ico")
  2038. End If
  2039. If button = 2 Then
  2040. Picture68.picture = LoadPicture("c:\icon\onoff\off.ico") End If
  2041.  
  2042. End Sub
  2043.  
  2044. Sub Picture8_Click ()
  2045. Throttle1 = Throttle1 + 1
  2046. End Sub
  2047.  
  2048. Sub Picture44_Click ()
  2049. Throttle1 = Throttle1 - 1
  2050. End Sub
  2051.  
  2052. Sub Picture11_Click ()
  2053. Throttle1 = 100
  2054. End Sub
  2055.  
  2056. Sub Picture13_Click ()
  2057. Throttle1 = 75
  2058. End Sub
  2059.  
  2060. Sub Picture23_Click ()
  2061. Throttle1 = 50
  2062. End Sub
  2063.  
  2064. Sub Picture32_Click ()
  2065. Throttle1 = 25
  2066. End Sub
  2067.  
  2068. Sub Picture12_Click ()
  2069. Throttle1 = 0
  2070.  
  2071. End Sub