home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / IFRSIM.DSK / CARACAS.bas next >
BASIC Source File  |  2014-09-09  |  4KB  |  126 lines
  1. 20 S = 100:S1 = 0:UP = 24579
  2. 30 ST = 24576:O1 = ST +56:O2 = ST +58:I1 = ST +60:I2 = ST +61:MA = ST +12:X1 = ST +26:Y1 = ST +28:AL = ST +87
  3. 40 SH = ST +09:PL = ST +06:LI = ST +15:XY = ST +18:DF = ST +39:CH = ST +93:WS = ST +42:WW = ST +43:WN = ST +44:WE = ST +45
  4. 50  REM  
  5. 51  REM  NAV AID LOCATIONS
  6. 52  REM 
  7. 60 XC = 130:YC = 100:XF = 64:YF = 121
  8. 61  REM 
  9. 62  REM  FIELD ELEVATION
  10. 63  REM 
  11. 64 FE% = 16
  12. 65  REM 
  13. 70  TEXT : GOSUB 5000
  14. 80 MT = 15:GAS = 0:MI = 0:SE = 0:S1 = 0
  15. 81  REM 
  16. 82  REM   SET UP WIND DRIFT
  17. 83  REM 
  18. 90  POKE WN,0: POKE WE,0: POKE WS,0: POKE WW,0
  19. 100 A% =  RND(1) *4:B% =  RND(1) *50
  20. 110  ON A% GOTO 120,130,140,150
  21. 120  POKE WN,B%: GOTO 160
  22. 130  POKE WE,B%: GOTO 160
  23. 140  POKE WS,B%: GOTO 160
  24. 150  POKE WW,B%: GOTO 160
  25. 160  CALL ST
  26. 170  POKE O1,32: POKE O2,32: POKE I1,48: POKE I2,48
  27. 171  REM 
  28. 172  REM 
  29. 175  REM  OMNI MESSAGE AND
  30. 176  REM  STARTING X Y CORD
  31. 177  REM 
  32. 180  VTAB 22: REM   OMNI MESSAGE
  33. 190  POKE X1,54: POKE Y1,121
  34. 191  REM 
  35. 192  REM  STARTING ALTITUDE
  36. 193  REM 
  37. 200  POKE AL,36: POKE AL -3,50:MA% = 18
  38. 201  REM 
  39. 202  REM 
  40. 210  CALL UP
  41. 220 S1 = S1 +1: IF S1 >S  THEN 270
  42. 230  GOTO 210
  43. 240  REM  
  44. 250  REM    UPDATE THE CLOCK
  45. 260  REM  
  46. 270 S1 = 0:SE = SE +1: IF SE <60  THEN 280
  47. 271 SE = 0:MI = MI +1:GA = GA +1: IF GA = MT  THEN 550
  48. 272  GOTO 210
  49. 280  HTAB 1: VTAB 24: PRINT HO;":";MI;":";SE;"     ";DM%;".";DN%;" DME  ";
  50. 281  REM 
  51. 282  REM   DO ADF AND OMNI
  52. 283  REM 
  53. 290 X =  PEEK(X1):Y =  PEEK(Y1):XD = XC -X:YD = YC -Y
  54. 300 IX = XF -X:IY = YF -Y:DX = Y -(108 -X/20):DY = Y -(60 +X/1.5)
  55. 301  REM 
  56. 302  REM     DO THE DME
  57. 303  REM 
  58. 304  IF XD <0  THEN XD = XD * -1
  59. 305  IF YD <0  THEN YD = YD * -1
  60. 306 DM% =  SQR(XD ^2 +YD ^2)
  61. 307 DM% = DM% *2:DN% = DM%/10:DN% = DN% *10:DN% = DM% -DN%:DM% = DM%/10
  62. 308  REM 
  63. 309  REM  DO THE ADF
  64. 310  REM 
  65. 311  IF IX = 0  THEN 330
  66. 320 IT = IY/IX
  67. 330 T1 =  ATN(IT)
  68. 340 T1% = 16 -10 *T1
  69. 350  IF X >XF  THEN PF% = (176 -T1%) - PEEK(CH)
  70. 360  IF X <XF  THEN PF% = (208 -T1%) - PEEK(CH)
  71. 370  IF PF% >64  THEN PF% = PF% -64: GOTO 370
  72. 380  POKE DF,PF%
  73. 381  REM 
  74. 382  REM   DO THE OMNI
  75. 383  REM 
  76. 390  IF DY < -5  THEN DY =  -6
  77. 400  IF DY >5  THEN DY = 6
  78. 410  IF DX < -5  THEN DX =  -6
  79. 420  IF DX >5  THEN DX = 6
  80. 430  IF DI >5  THEN DI = 6
  81. 440  IF DI < -5  THEN DI =  -6
  82. 450  POKE O1,32 +DX: POKE I1,48
  83. 460  POKE O2,32 +DY: POKE I2,48
  84. 461  REM 
  85. 462  REM   DO THE GLIDE SLOPE
  86. 463  REM 
  87. 470  IF  PEEK(ALT) <MA%  THEN 550
  88. 480 SL = 77 -X/3:DI =  PEEK(ALT) +FE% -SL
  89. 490  IF DI >5  THEN DI = 6
  90. 500  IF DI < -5  THEN DI =  -6
  91. 530  POKE I1,48 -DI
  92. 540  IF  PEEK(AL) >MA%  THEN 210
  93. 545  REM 
  94. 546  REM   DO THE AIRPORT
  95. 547  REM 
  96. 550  HGR : HCOLOR= 3: CALL 24588
  97. 551  REM 
  98. 552  REM   FIRST THE AIRPORT
  99. 553  REM 
  100. 554  HCOLOR= 2: HPLOT 130,100: HPLOT  TO 140,100: HPLOT 130,101: HPLOT  TO 140,101
  101. 555  HPLOT 54,121: HPLOT 56,121: HPLOT 54,122: HPLOT 56,122
  102. 580  REM 
  103. 582  REM   THEN THE NAV TRACK
  104. 583  REM 
  105. 584  FOR I = 30 TO 125  STEP 8:J = 108 -I/20
  106. 585  HPLOT I,J: NEXT 
  107. 586  FOR I = 20 TO 105  STEP 2:J = 60 +I/1.5
  108. 587  HPLOT I,J: NEXT 
  109. 590  HOME : VTAB 23: PRINT "PUSH RETURN TO FLY THIS AGAIN": PRINT "ANY OTHER KEY WILL GO BACK TO MENU": GET A$
  110. 595  IF  ASC(A$) = 13  THEN 70
  111. 596  PRINT  CHR$(4)
  112. 597  PRINT  CHR$(4);"RUN MENU"
  113. 599  END 
  114. 600  REM 
  115. 5000  TEXT : HOME : PRINT "YOU ARE CLEARED FOR THE CARACAS": PRINT 
  116. 5010  PRINT "INTL DEL CENTRO LDA VOR DME RWY 10"
  117. 5020  PRINT : PRINT "APPROACH"
  118. 5030  PRINT : PRINT "FLY HEADING 090 UNTIL 13 DME FROM TUY"
  119. 5040  PRINT : PRINT "THEN FLY 13 DME ARC TO 091 (TOP OMNI)"
  120. 5050  PRINT : PRINT "ADF IS SAN SEBASTIAN - BOT OMNI IS"
  121. 5060  PRINT : PRINT "NO LEON -- GOOD LUCK ON YOUR FLIGHT"
  122. 5070  PRINT : PRINT "COPYRIGHT 1982 BY VERNON BROWN": PRINT "COPYRIGHT 1982 BY PROGRAMMERS SOFTWARE"
  123. 5080  PRINT : PRINT "CUSTOM PROGRAMMED FOR"
  124. 5090  PRINT "AEROPUERTO DE CARACAS"
  125. 5100  PRINT "INTERNACIONAL DEL CENTRO"
  126. 6000  PRINT : PRINT "HIT ANY KEY WHEN READY TO FLY": GET A$: HOME : RETURN