home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / NIGHT-FLIGHT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.1 KB  |  121 lines
  1. 0 REM NO FRILLS DISK 126
  2. 2 POKE53281,15:POKE53280,12
  3. 5 C$="                                      ":G=1:F=1100
  4. 6 M$(1)="YOU RAN OUT OF FUEL":M$(2)="YOU RAN THE PLANE INTO THE GROUND"
  5. 7 M$(3)="YOUR SPEED WAS STRUCTURELLY TOO FAST":M$(4)="NOT ENOUGH LIFT ON TAKEOFF
  6. 8 [129]X[178]1[164]5:[135]L(X),W(X):[130]:[131]32899,32,32904,32,33094,32,33294,32,33494,32
  7. 9 M$(5)[178]"NOT ENOUGH OXYGEN UP HERE"
  8. 10 [153]"LOADPRINT#   TYPE '1' IF YOU NEED INSTRUCTIONS"
  9. 20 [161]A$:[139]A$[178]""[167]20
  10. 30 [139]A$[178]"1"[167]800
  11. 35 [137]900
  12. 300 MS[178]150:I[178]0:ALT[178]0
  13. 310 [133]"THROTTLE (0/100%)";A:A[178][182]([181](A)):A[178].01[172]A:[139]A[177]1[167][153]"ON"C$"ON":[137]310
  14. 312 [141]1650:G[178]2:[137]1100
  15. 315 [133]"ELEVATOR  (-100/100%)";B:[139]B[177]100[176]B[179][171]100[167][153]"ON"C$"ON":[137]315
  16. 316 [141]1600:B[178][171].01[172]B
  17. 317 [141]700:[153]"ON"C$:[153]C$:[153]C$:[153]C$
  18. 320 S[178][181](A[172]MS[170].7[172]B[172]S[170]I):[139]B[177].1[167]I[178]I[170].05
  19. 323 [139]S[177]200[167]Y[178]3:[137]3000
  20. 325 VS[178][181](100[172]S[173]4[172]([171]B)):ALT[178][181](ALT[170]VS[173]300):[139]A[179].3[167]ALT[178]ALT[171]1:VS[178]VS[171]105
  21. 326 [139]ALT[179]0[167]Y[178]2:[137]3000
  22. 327 F[178]F[171](VS[173]100[170]S)[173]250
  23. 328 FU[178][181](F[173]100):[139]FU[178]0[167]Y[178]1:[137]3000
  24. 329 [139]ALT[177]2100[167]Y[178]5:[137]3000
  25. 330 HE[178]C[170]HE:MH[178][181](HE[173]20):[139]HE[177]360[167]HE[178]0
  26. 335 [139]HE[179]0[167]HE[178]360
  27. 337 [139]FU[179][177]OF[167][141]1360
  28. 340 [139]MH[179][177]OMH[167][141]1450
  29. 345 [139]VS[179][177]OVS[167][141]1300
  30. 350 [139]S[179][177]OS[167][141]1200
  31. 355 [139]ALT[179][177]OALT[167][141]1400
  32. 400 [141]700:T[178]0:[153]"CHANGE (A,T,E,L)":[161]A$:[139]A$[178]""[167]320
  33. 420 [139]A$[178]"A"[167]500
  34. 430 [139]A$[178]"E"[167]600
  35. 440 [139]A$[178]"T"[167]650
  36. 445 [139]A$[178]"L"[167]2000
  37. 450 [137]320
  38. 500 [141]700
  39. 520 [133]"AILERONS (-100/100%)";C:[139]C[179][171]100[176]C[177]100[167][153]"ON"C$"ON":[137]620
  40. 525 [141]1700:C[178].01[172]C:[137]317
  41. 600 [141]700
  42. 620 [133]"ELEVATOR (-100/100%)";B:[139]B[179][171]100[176]B[177]100[167][153]"ON"C$"ON":[137]620
  43. 625 [141]1600:B[178][171].01[172]B:[137]317
  44. 650 [141]700
  45. 660 [133]"THROTTLE (0/100%)";A:A[178][182]([181](A)):[139]A[177]100[167][153]"ON"C$"ON":[137]660
  46. 665 A[178].01[172]A:[141]1650:[137]317
  47. 700 [153]"":[142]
  48. 800 [153]"LOADTHE CONTROLS RESPOND SIMILAR TO THOSE":[153]"IN A SMALL AIRPLANE."
  49. 805 [153]:[153]"THE THROTTLE CONTROLS AIR SPEED"
  50. 810 [153]:[153]"THE AILERONS CONTROLS TURNS OR HEADING"
  51. 820 [153]:[153]"THE ELEVATOR CONTROLS UP,DOWN MOVEMENT"
  52. 825 [153]:[153]"TO MODIFY THE CONTROLS, INPUT T,A,E
  53. 830 PRINT"FOR THROTTLE-AILERONS-ELEVATOR
  54. 835 [153]"RESPECTIVELY.
  55. 840 PRINT:PRINT"THE OBJECT IS: TAKE-OFF, MAKE AT LEAST
  56. 845 [153]"A 360 DEGREE TURN AND THEN LAND...
  57. 847 PRINT"WHEN YOU THINK YOUR AIRCRAFT IS SAFE":PRINT"TO LAND, TYPE 'L'":PRINT
  58. 850 PRINTTAB(15)"GOOD.LUCK"
  59. 860 PRINT"   GENTLY PRESS <SPACE> TO CONTINUE"
  60. 870 GETA$:IFA$=""THEN870
  61. 900 PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164]"TAB(15)" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  62. 910 PRINT"[167]  F U E L  [146][165]" TAB(15)"[167]     AIR   SPEED      [146][165]"
  63. 920 PRINT"[167]E   1/2   F[146][165]"TAB(15)"[167]0   50   100  150  200[146][165]"
  64. 930 PRINT"[167]     [221]    [209][165]"TAB(15)"[167][209]    [165]    [221]    [221]    [221] [165]"
  65. 940 PRINT" [163][163][163][163][163][163][163][163][163][163][163]"TAB(15)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  66. 950 PRINTTAB(5)" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  67. 960 PRINTTAB(5)"[167]    A L T I T U D E    [146][165]"
  68. 970 PRINTTAB(5)"[167]0   500  1000 1500 2000[146][165]"
  69. 980 PRINTTAB(5)"[167][209]    [221]     [165]    [165]   [167]  [165]"
  70. 990 PRINTTAB(5)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  71. 1010 PRINTTAB(5)" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  72. 1020 PRINTTAB(5)"[167]   H E A D I N G   [146][165]"
  73. 1030 PRINTTAB(5)"[167]0  90  180  270 360[146][165]"
  74. 1040 PRINTTAB(5)"[167][209]  [167]    [221]    [221]     [165]"
  75. 1050 PRINTTAB(5)" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  76. 1055 PRINTTAB(5)"[129] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  77. 1060 PRINTTAB(5)"[167][129]     VERTICAL   SPEED     [146][165]"
  78. 1070 PRINTTAB(5)"[167][129]0    5   10   15   20   25[146][165]"
  79. 1080 PRINTTAB(5)"[129][167][209]    [221]    [165]   [167]    [167]    [167] [165]"
  80. 1090 PRINTTAB(5)"[129] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  81. 1100 T=1:GOSUB700:PRINT"[158]FOR TAKE-OFF ":ONGGOTO300,315
  82. 1190 L(6)=INTS/10+55435
  83. 1200 POKEL(2),W(2):L(2)=INT(S/10+1163):W(2)=PEEK(L(2)):POKEL(2),81:OS=S:POKEL(6),2:RETURN
  84. 1300 POKEL(5),W(5):L(5)=INT((ABS(VS/100)+1750)):W(5)=PEEK(L(5)):POKEL(5),81
  85. 1310 OVS=VS:GOSUB700
  86. 1320 IFVS=0THENPRINT"[145][145][145][145][145]     "
  87. 1330 IFVS<0THENPRINT"[145][145][145][145][145]DOWN"
  88. 1340 IFVS>0THENPRINT"[145][145][145][145][145] UP "
  89. 1350 RETURN
  90. 1360 POKEL(1),W(1):L(1)=1155-11+FU:W(1)=PEEK(L(1)):POKEL(1),81
  91. 1370 OF=FU:RETURN
  92. 1400 POKEL(3),W(3):L(3)=INT(ALT/100+1350):W(3)=PEEK(L(3)):POKEL(3),81
  93. 1410 OALT=ALT:RETURN
  94. 1450 POKEL(4),W(4):L(4)=MH+1550:W(4)=PEEK(L(4))
  95. 1455 IFL(4)>=1548THENPOKEL(4),81
  96. 1460 OMH=MH:RETURN
  97. 1600 PRINT""TAB(26);"ELEVATOR          [157][157][157][157][157][157][157][157][157][157]"B"%":GOSUB700
  98. 1625 RETURN
  99. 1650 PRINT""TAB(26)"THROTTLE          [157][157][157][157][157][157][157][157][157][157]"A/.01"%":GOSUB700
  100. 1660 RETURN
  101. 1700 PRINT""TAB(26)"AILERONS          [157][157][157][157][157][157][157][157][157][157]"C"%":GOSUB700:RETURN
  102. 2000 PRINT"[147]YOU HAVE ATTEMPTED TO LAND AT A":PRINT"SPEED OF"S"MPH"
  103. 2010 PRINT"AND AN ALTITUDE OF"ALT"FEET":PRINT"WITH A"HE"DEGREE HEADING."
  104. 2020 PRINT"YOUR SPEED WAS";:IFS<10THENPRINT" EXCELLENT":GOTO2060
  105. 2030 IFS<20THENPRINT" GOOD":GOTO2060
  106. 2040 IFS<30THENPRINT" ACCEPTABLE":GOTO2060
  107. 2050 PRINT" POOR"
  108. 2060 PRINT"YOUR ALTITUDE WAS";:IFALT<10THENPRINT" EXCELLENT":GOTO2100
  109. 2070 IFALT<30THENPRINT" GOOD":GOTO2100
  110. 2080 IFALT<60THENPRINT" ACCEPTABLE":GOTO2100
  111. 2090 PRINT" POOR"
  112. 2100 PRINT"YOU ";
  113. 2120 IFHE<5ORHE>355THENPRINT"WERE ON THE RUNWAY":GOTO2200
  114. 2150 PRINT"WERE NOT ON THE RUNWAY"
  115. 2200 PRINT"CARE TO FLY AGAIN(1=YES)"
  116. 2210 GETA$:IFA$=""THEN2210
  117. 2220 IFA$="1"THENRESTORE:GOTO5
  118. 2500 END
  119. 3000 PRINT"[147]C R A S H":IFT=1THENY=4
  120. 3010 PRINTM$(Y):GOTO2200
  121.