home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / FLY-MILES (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  162 lines
  1. 140 CLR:POKE53280,11:POKE53281,9:POKE646,7:PRINTCHR$(147)
  2. 150 PRINT"  [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]  "
  3. 160 PRINT"  ONE MOMENT PLEASE..READING CITY DATA"
  4. 170 PRINT"  [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]  ":GOSUB740
  5. 180 PRINTCHR$(147)
  6. 190 PRINT"  [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] "
  7. 200 PRINT"  [194]            AIR MILES             [194] "
  8. 210 PRINT"  [194]                                  [194] "
  9. 220 PRINT"  [194] [1] VIEW LIST OF CITIES          [194] "
  10. 230 PRINT"  [194]                                  [194] "
  11. 240 PRINT"  [194] [2] FIND DISTANCE BETWEEN CITIES [194] "
  12. 250 PRINT"  [194]                                  [194] "
  13. 260 PRINT"  [194] [3] EXIT PROGRAM                 [194] "
  14. 270 PRINT"  [194]                                  [194] "
  15. 280 PRINT"  [194]          SELECT 1 - 3            [194] "
  16. 290 PRINT"  [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] "
  17. 300 GOSUB600
  18. 310 GETMS$:IFMS$=""THEN310
  19. 320 MS=VAL(MS$):IFMS<1ORMS>3THEN310
  20. 330 ONMSGOTO1450,360,350
  21. 340 GOTO310
  22. 350 PRINT"[147]":END
  23. 360 R=3963.34:GOSUB600
  24. 370 INPUT"  NAME OF 1ST CITY";C1$:GOSUB620:GOSUB480:Y1=RA:D1=V
  25. 380 IFV$=""THEN1610
  26. 390 GOSUB650:GOSUB480:X1=RA:D2=V:GOSUB600
  27. 400 INPUT"  NAME OF 2ND CITY";C2$:GOSUB680:GOSUB480:Y2=RA:D3=V
  28. 410 IFV$=""THEN1610
  29. 420 GOSUB710:GOSUB480:X2=RA:D4=V
  30. 430 IFD1<>D3THENY2=-Y2
  31. 440 IFD2<>D4THENX2=-X2
  32. 450 A=SIN(Y1):B=SIN(Y2)
  33. 460 C=COS(Y1):D=COS(Y2):E=COS(X2-X1)
  34. 470 GOTO500
  35. 480 DD=M/60+D:RA=DD/57.2957795
  36. 490 RETURN
  37. 500 F=(A*B)+(C*D*E)
  38. 510 FF=-ATN(F/SQR(-F*F+1))+((null)/2):D=R*FF:D%=D
  39. 520 PRINT:PRINT"[145][145][145][145]     THE DISTANCE BETWEEN           ":PRINT
  40. 530 PRINT"     "C1$ " AND "C2$"           ":PRINT"             "
  41. 540 PRINT"     IS.....";D%;" MILES.":PRINT
  42. 550 PRINT"  [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]  "
  43. 560 PRINT"       PRESS SPACE BAR FOR MENU":GOSUB600
  44. 570 GETAN$:IFAN$=""THEN570
  45. 580 IFASC(AN$)=32THENPRINT"[147]":GOTO190
  46. 590 GOTO570
  47. 600 GETKB$:IFKB$<>""THEN600
  48. 610 RETURN
  49. 620 FORJ=1TOQNSTEP7
  50. 630 IFC1$=C$(J)THEND$=C$(J+1):GOSUB2000:RETURN
  51. 640 NEXT:V$="":RETURN
  52. 650 FORJ=1TOQNSTEP7
  53. 660 IFC1$=C$(J)THEND$=C$(J+4):GOSUB2100:RETURN
  54. 670 NEXT:RETURN
  55. 680 FORJ=1TOQNSTEP7
  56. 690 IFC2$=C$(J)THEND$=C$(J+1):GOSUB2200:RETURN
  57. 700 NEXT:V$="":RETURN
  58. 710 FORJ=1TOQNSTEP7
  59. 720 IFC2$=C$(J)THEND$=C$(J+4):GOSUB2300:RETURN
  60. 730 NEXT:RETURN
  61. 740 DIMC$(532)
  62. 750 FORJ=1TO532:READA$:C$(J)=A$:NEXT:QN=J-1:RETURN
  63. 760 DATA ALBUQUERQUE,35,0,N,106,9,W
  64. 770 DATA AMSTERDAM,53,23,N,4,54,E
  65. 780 DATA ANTWERP,51,13,N,4,25,E
  66. 790 DATA ATHENS,37,58,N,23,46,E
  67. 800 DATA ATLANTA,33,50,N,84,24,W
  68. 810 DATA BALTIMORE,39,18,N,76,37,W
  69. 820 DATA BELFAST,54,35,N,5,56,W
  70. 830 DATA BELGRADE,44,50,N,20,37,E
  71. 840 DATA BERLIN,52,32,N,13,24,E
  72. 850 DATA BOSTON,42,20,N,71,0,W
  73. 860 DATA BUENOS AIRES,34,30,S,58,20,W
  74. 870 DATA BUFFALO,42,55,N,78,50,W
  75. 880 DATA CAIRO,30,1,N,31,14,E
  76. 890 DATA CAPE TOWN,33,56,S,18,28,E
  77. 900 DATA CARACAS,10,30,N,66,50,W
  78. 910 DATA CHICAGO,41,45,N,87,40,W
  79. 920 DATA CINCINNATI,39,10,N,84,26,W
  80. 930 DATA COLUMBUS,38,57,N,83,1,W
  81. 940 DATA CLEVELAND,41,28,N,81,43,W
  82. 950 DATA DALLAS,32,47,N,96,48,W
  83. 960 DATA DENVER,39,43,N,105,1,W
  84. 970 DATA DETROIT,42,20,N,83,3,W
  85. 980 DATA DUBLIN,53,20,N,6,15,W
  86. 990 DATA ERIE,42,10,N,80,7,W
  87. 995 DATAEUGENE OR,44,04,N,123,04,W
  88. 1000 DATA FAIRBANKS,64,59,N,147,40,W
  89. 1010 DATA GENEVA,46,12,N,6,9,E
  90. 1020 DATA GREENSBORO,36,7,N,79,46,W
  91. 1030 DATA HARTFORD,41,47,N,72,41,W
  92. 1040 DATA HONG KONG,22,11,N,114,14,E
  93. 1050 DATA HONOLULU,21,19,N,157,52,W
  94. 1060 DATA HOUSTON,29,50,N,95,20,W
  95. 1070 DATA INDIANAPOLIS,39,42,N,86,10,W
  96. 1080 DATA ISTANBUL,41,0,N,29,0,E
  97. 1090 DATA JERUSALEM,31,47,N,35,10,E
  98. 1100 DATA JOHANNESBURG,26,10,S,28,8,E
  99. 1110 DATA KALAMAZOO,42,20,N,85,35,W
  100. 1115 DATAKANSAS CITY MO,39,06,N,94,34,W
  101. 1120 DATA KATMANDU,27,45,N,85,12,E
  102. 1130 DATALAS VEGAS,36,10,N,115,5,W
  103. 1140 DATALISBON,39,0,N,9,12,W
  104. 1150 DATALONDON,15,30,N,0,5,W
  105. 1160 DATALOS ANGELES,34,0,N,118,10,W
  106. 1170 DATAMEXICO CITY,19,20,N,99,10,W
  107. 1180 DATAMIAMI,25,52,N,80,15,W
  108. 1190 DATAMINNEAPOLIS,44,58,N,93,20,W
  109. 1200 DATAMONTREAL,45,30,N,73,34,W
  110. 1210 DATAMOSCOW,55,45,N,37,35,E
  111. 1220 DATANEW ORLEANS,30,0,N,90,5,W
  112. 1230 DATANEW YORK,40,45,N,74,0,W
  113. 1240 DATAOKLAHOMA CITY,35,25,N,97,30,W
  114. 1250 DATAOMAHA,41,15,N,96,0,W
  115. 1260 DATAPARIS,48,50,N,2,20,E
  116. 1270 DATAPHILADELPHIA,40,0,N,75,10,W
  117. 1280 DATAPITTSBURGH,40,25,N,79,55,W
  118. 1290 DATAPHOENIX,33,30,N,112,10,W
  119. 1300 DATAPROVIDENCE,41,41,N,71,15,W
  120. 1310 DATAQUEBEC,46,52,N,71,13,W
  121. 1320 DATARENO,39,30,N,119,0,W
  122. 1330 DATARICHMOND,37,3,N,77,27,W
  123. 1340 DATARIO DE JANEIRO,23,0,S,43,12,W
  124. 1350 DATAROME,41,54,N,12,30,E
  125. 1355 DATASACRAMENTO,38,35,N,121,29,W
  126. 1360 DATASAN FRANCISCO,37,35,N,122,30,W
  127. 1365 DATASAN ANDREAS,38,11,N,120,40,W
  128. 1370 DATASEATTLE,47,41,N,122,15,W
  129. 1375 DATASALEM OR,44,56,N,123,02,W
  130. 1377 DATASTOCKTON,37,57,N,121,17,W
  131. 1380 DATAST. LOUIS,38,40,N,90,20,W
  132. 1390 DATASPOKANE,47,45,N,117,25,W
  133. 1400 DATATAMPA,27,57,N,82,30,W
  134. 1410 DATATOKYO,35,45,N,139,45,E
  135. 1420 DATATORONTO,43,39,N,79,20,W
  136. 1430 DATATUCSON,32,14,N,110,59,W
  137. 1435 DATAVANCOUVER WA,45,37,N,122,40,W
  138. 1440 DATAWASHINGTON,38,52,N,77,0,W
  139. 1450 PRINT"[147]       PRESS RETURN   [146] TO SCROLL"
  140. 1460 PRINT"       PRESS SPACE BAR[146] FOR MENU"
  141. 1465 PRINT:PRINT TAB(7)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  142. 1470 POKE650,255:FORX=1TOQNSTEP7
  143. 1480 PRINTTAB(7)"[180]"TAB(13)C$(X)TAB(32)"[170]"
  144. 1490 FORT=1TO50:NEXT
  145. 1500 GETPN$:IFPN$=""THEN1500
  146. 1510 IFPN$=CHR$(13)THEN1540
  147. 1520 IFPN$=CHR$(32)THENX=QN:GOTO180
  148. 1530 IFPN$<>CHR$(13)ORPN$<>CHR$(32)THEN1500
  149. 1540 NEXT
  150. 1550 PRINTTAB(7)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  151. 1560 PRINT"        PRESS SPACE BAR FOR MENU"
  152. 1570 GOSUB600
  153. 1580 GETPN$:IFPN$=""THEN1580
  154. 1590 IFPN$=CHR$(32)THENPOKE650,0:GOTO180
  155. 1600 GOTO1580
  156. 1610 PRINT"  NOT ON LIST. CHECK MENU ITEM 1."
  157. 1620 FORT=1TO1500:NEXT:PRINT"[147]":GOTO190
  158. 2000 M$=C$(J+2):V$=C$(J+3):D=VAL(D$):M=VAL(M$):V=ASC(V$):J=QN:RETURN
  159. 2100 M$=C$(J+5):V$=C$(J+6):D=VAL(D$):M=VAL(M$):V=ASC(V$):J=QN:RETURN
  160. 2200 M$=C$(J+2):V$=C$(J+3):D=VAL(D$):M=VAL(M$):V=ASC(V$):J=QN:RETURN
  161. 2300 M$=C$(J+5):V$=C$(J+6):D=VAL(D$):M=VAL(M$):V=ASC(V$):J=QN:RETURN
  162.