home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / TIME-CONVERSION (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.8 KB  |  165 lines
  1. 1 CITY$=" = PUBLIC DOMAIN"
  2. 2 DOWN=7
  3. 3 ACROSS=7
  4. 4 POKE53280,1:POKE53281,1:REM  64
  5. 5 PRINT"[144][147]PLEASE ENTER DATE"
  6. 9 OPEN1,3
  7. 10 DIM DM(12):CC$=""
  8. 11 PRINT:PRINT:PRINT"MONTH      DAY       YEAR
  9. 12 [153]" (null) (null)       (null)(null)       (null)CLOSE(null)
  10. 13 PRINT" [221] [202][192][192][192][192][192][192][201][221][221][213][192][192][192][192][192][192][203] [221]
  11. 14 [153]" MID$TANTANTANTANTANTANTANRIGHT$(null)(null)(null)(null)(null)TANTANTANTANTANTANTAN(null)
  12. 15 PRINT"         [221][221][221][221][221][221]
  13. 16 [153]"
  14. 17 PRINTSPC(7):
  15. 18 INPUTDT$
  16. 100 PRINT"[147]PLEASE ENTER TIME"
  17. 110 PRINT:PRINT:PRINT"HOURS    MINUTES   SECONDS
  18. 120 [153]" (null) (null)       (null)(null)       (null)CLOSE(null)
  19. 130 PRINT" [221] [202][192][192][192][192][192][192][201][221][221][213][192][192][192][192][192][192][203] [221]
  20. 140 [153]" MID$TANTANTANTANTANTANTANRIGHT$(null)(null)(null)(null)(null)TANTANTANTANTANTANTAN(null)
  21. 150 PRINT"         [221][221][221][221][221][221]
  22. 160 [153]"
  23. 170 PRINTSPC(7):
  24. 180 INPUTLT$
  25. 185 GOSUB 12000
  26. 190 GOSUB11000
  27. 225 GET B$:IF B$="" GOTO 225
  28. 230 IF B$="E"THEN B=50000
  29. 235 IF B$="C"THEN B=60000
  30. 240 IF B$="M"THEN B=70000
  31. 245 IF B$="P"THEN B=80000
  32. 247 IFB$="O" THEN GOSUB11050
  33. 250 T=VAL(LT$)+B-DS*10000:IFT>240000THENT=T-240000
  34. 255 BX=B/10000
  35. 260 T$="000000"+MID$(STR$(T),2)
  36. 265 TI$=RIGHT$(T$,6)
  37. 300 MM$=LEFT$(DT$,2):DD$=MID$(DT$,3,2):YY$=RIGHT$(DT$,2)
  38. 310 MM=VAL(MM$):DD=VAL(DD$):YY=VAL(YY$)
  39. 320 IFMM=1THEN390
  40. 330 FORI=1TO12
  41. 340 READ DM(I)
  42. 345 NEXTI
  43. 350 IF Y/4=INT(Y/4)THEN DM(2)=29
  44. 360 FOR I=1TOMM-1
  45. 370 JD=JD+DM(I)
  46. 380 NEXTI
  47. 390 JD=JD+DD
  48. 400 DATA 31,28,31,30,31,30,31,31,30,31,30,31
  49. 410 IFMM=6THENQ=11
  50. 420 IF (MM=7)OR(MM=5)THENQ=12
  51. 430 IF (MM=8)OR(MM=4)THENQ=13
  52. 440 IF (MM=9)OR(MM=3)THENQ=14
  53. 450 IF (MM=10)OR(MM=2)THENQ=15
  54. 460 IF (MM=11)OR(MM=1)THENQ=16
  55. 470 IF (MM=12)THENQ=17
  56. 480 IF (Q=0)THENSTOP
  57. 5000 PRINT"[147]
  58. 5040 [153]"TOTOTO(null)  (null)  (null) NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW      ";
  59. 5050 [153]"FN     THEN   (null)GET     WORLD  CLOCK    GETWAIT      ";
  60. 5060 [153]"FN      FNSQRTAB((null)NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAIT"
  61. 5070 [153]"FN         THEN   (null) = SUN    (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)";
  62. 5080 [153]"FN         THEN             (null) THEN(null)           (null)";
  63. 5090 [153]"FN         THEN             (null) THEN (null)         (null)
  64. 5100 PRINT"[165]         [206]              [204][206][206][163]        [206]
  65. 5110 [153]"(null)        (null)          ^  SQR(null)TO(null)         (null)
  66. 5120 PRINT" [205]      [206]          [203][179] [206]            [206]
  67. 5130 [153]"  (null)   TO(null)            EXP(null)            THEN
  68. 5140 PRINT"_  [205][207][163][194][165]            [207]             [167]
  69. 5150 [153]"HON.(null) '           OR(null)(null)(null)(null)(null)(null)          (null) ^
  70. 5160 PRINT"     [207][163][163][205]         [173][189] '  [206]          [167][167][199]
  71. 5170 [153]"- - FN- - (null) - - - -FN- - -THEN(null)- - - - -SQRTHENLEFT$-
  72. 5180 PRINT"    [165]     [205]       [165]     [167][205]         [186][167][200]
  73. 5190 [153]"    FN     THEN       (null)      (null)(null)(null)TAB((null)  (null)(null)SQR  EXP
  74. 5200 PRINT"    [205]     [206]        [208]     [206]    [205][206]  [205]
  75. 5210 [153]"     (null)   (null)         THEN    (null)         (null)TO TO
  76. 5220 PRINT"     [167]  [206]           [205]  [167]              [205]
  77. 5230 [153]"     THEN (null)             (null) (null)          (null)TAB(TAB((null)
  78. 5240 PRINT"     [167][206]               [163]           [205][164][164][206][206]";""
  79. 5300 PRINT"S.F.[145]N.Y LONDONTOKYO
  80. 5310 [153]"RIOCAPE TOWNSYDNEY
  81. 5320 PRINT"JERUSALEMDACCA
  82. 5500 H0$[178][200](TI$,2):H0[178][197](H0$):H1[178]H0[170]19:[139]H1[179]0[167]H1[178]H1[170]23
  83. 5505 H1[178]H0[170]16[170]DS:[139]H1[177]23[167]H1[178]H1[171]24:[143] SAN FRANCISCO
  84. 5507 HH[178]H0[170]14:[139]HH[177]23[167]HH[178]HH[171]24:[143] HILO
  85. 5508 HX[178]H0[171]BX[170]DS:[139]HX[179]0[167]HX[178]HX[170]24:[143] LOCAL
  86. 5510 H2[178]H0[170]19[170]DS:[139]H2[177]23[167]H2[178]H2[171]24:[143] NEW YORK
  87. 5515 H3[178]H0[170]21:[139]H3[177]23[167]H3[178]H3[171]24:[143] RIO
  88. 5520 H4[178]H0[170]2:[139]H4[177]23[167]H4[178]H4[171]24:[143] JERUSALEM OR CAPETOWN
  89. 5525 H6[178]H0[170]9:[139]H6[177]23[167]H6[178]H6[171]24:[143] TOKYO
  90. 5530 H7[178]H0[170]10:[139]H7[177]23[167]H7[178]H7[171]24:[143] SYDNEY
  91. 5535 H8[178]H0[170]6:[139]H8[177]23[167]H8[178]H8[171]24:[143] DACCA
  92. 5538 H9[178]H0:[139]H9[177]23[167]H9[178]H9[171]24:[143] LONDON
  93. 5539 H1$[178][196](H1):H1$[178][201](H1$,2):HO$[178][201]([196](H0),2)
  94. 5540 H2$[178][201]([196](H2),2):H3$[178][201]([196](H3),2):H4$[178][201]([196](H4),2)
  95. 5545 HH$[178][201]([196](HH),2)
  96. 5548 HX$[178][201]([196](HX),2)
  97. 5550 H5$[178][201]([196](H5),2):H6$[178][201]([196](H6),2):H7$[178][201]([196](H7),2)
  98. 5555 H8$[178][201]([196](H8),2)
  99. 5558 H9$[178][201]([196](H9),2)
  100. 5560 MM$[178][202](TI$,3,2):SS$[178][201](TI$,2)
  101. 6000 [153]"";H1$;":";MM$;"";H2$;":";MM$
  102. 6020 [153][163]18);"";H9$;":";MM$
  103. 6021 [153][163]35);"";H6$;":";MM$;
  104. 6022 [153]HH$;":";MM$
  105. 6023 [153]"";[163]9);H3$;":";MM$;
  106. 6024 [153]"";H4$;":";MM$;
  107. 6025 [153]"";H7$;":";MM$;"WAIT"
  108. 6026 [153]"";[163]23);H4$;":";MM$;
  109. 6027 [153]"";H8$;":";MM$;"WAIT"
  110. 6028 [141]8000
  111. 6030 BB[178](H0[179]0)[176](H0[177][178]3)
  112. 6031 B[178](H0[177][178]0)[175](H0[179]3)
  113. 6032 [153]"";
  114. 6033 [139] (H0[177][178]20)[176](B)[167] [153]"(OVER PACIFIC)":[137] 6035
  115. 6034 [153]"THEN             "
  116. 6035 [139] (H0[179]20)[175](BB)[167] [153]"                           "
  117. 6040 Y[178]2[172](H0[171]3)
  118. 6041 [139]Y[178]0[167] Y[178]Y[170]1
  119. 6042 [139]Y[177][178]12[167] Y[178]Y[170]2
  120. 6043 [139]Y[177][178]32 [167] Y[178]Y[170]3
  121. 6044 [139] Y[178]37[167] Y[178]38
  122. 6045 X2[178]39[171]Y
  123. 6076 [139] (HH[179][177]H0)[175](X2[177]39)[167] 5500
  124. 6077 [139] (HH[179][177]H0)[175] (X2[179][178]0)[167][153][200](CC$,Q[170]1)""TK$:[137]5500
  125. 6078 [139]X1[178]X2[137]6095
  126. 6079 [139]X1[179][177]0[167][153][200](CC$,Q[170]1)[163]X1)TK$:[153]"ON";
  127. 6080 [153][200](CC$,Q[170]1)[166]X2);:[161]#1,TK$:[153]"ON"
  128. 6095 [153][200](CC$,Q[170]1)[166]X2)"(null)";
  129. 7000 [129] ZZ[178]1[164]50:[130]ZZ
  130. 7010 [153]"CMD(null)";
  131. 7011 X1[178]X2
  132. 7012 HH[178]H0
  133. 7100 [137]5500
  134. 8000 [153][200](CC$,DOWN[170]1)[163]ACROSS)"*"
  135. 8010 [153]"*";CITY$
  136. 8020 [153]"";HX$;":";MM$;":";SS$;"WAIT";" (";B$;
  137. 8030 [139] DS [167][153]"DT)";:[137] 8050
  138. 8040 [153]"ST)";
  139. 8050 [153]""
  140. 8060 [142]
  141. 10040 [133]N
  142. 10050 B[178]N[172]10000
  143. 10060 [142]
  144. 11000 [153]"LOADENTER TIME ZONEWAIT"
  145. 11010 [153]:[153]"TYPE EWAIT IF IN EASTERN U.S. TIME ZONE
  146. 11020 PRINT:PRINT"TYPE C[146] IF IN CENTRAL U.S. TIME ZONE
  147. 11030 [153]:[153]"TYPE MWAIT IF IN MOUNTAIN TIME
  148. 11040 PRINT:PRINT"TYPE P[146] IF IN PACIFIC TIME
  149. 11045 [153]:[153]"IF NOT IN CONT. U.S., TYPE OWAIT FOR OTHER":[142]
  150. 11050 [153]"LOADIF OUTSIDE CONT. U.S.
  151. 11060 PRINT:PRINT"ENTER NUMBER OF HOUR YOU MUST ADD
  152. 11070 [153]:[153]"TO LOCAL TIME TO EQUAL GREENWICH TIME
  153. 11080 PRINT:PRINT"COUNT WEST FROM ENGLAND (I.E.
  154. 11090 [153]:[153]"GREENLAND=3 JAPAN=15)
  155. 11100 INPUTN
  156. 11110 B=N*10000
  157. 11120 RETURN
  158. 12000 REM DAYLIGHT SAVINGS
  159. 12010 PRINT""
  160. 12020 PRINT"DAYLIGHT SAVINGS TIME (Y/N)"
  161. 12030 GET DS$:IF DS$="" GOTO12030
  162. 12040 DS=0
  163. 12050 IF DS$="Y"THEN DS=1
  164. 12060 RETURN
  165.