home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9110b.d64 / weltzeit (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  20 lines
  1. 1 DIMS$(24),L$(24),ZZ(23):POKE53280,14:POKE53281,14:PRINT"[144]":L$(0)="BRD"
  2. 2 INPUT"HEIMATSTADT ";S$:S$(0)=LEFT$(S$,16):INPUT"ZEIT SS,MM,SS ";ST$,MI$,SE$
  3. 3 PRINT"[147]";:FORI=1TO24:PRINTS$(I-1)SPC(16-LEN(S$(I-1)))L$(I-1)SPC(11-LEN(L$(I-1)))":"
  4. 4 READS$(I),L$(I):NEXTI:FORI=0TO23:READZZ(I):NEXTI:TI$=ST$+MI$+SE$
  5. 5 PRINT"";:FORI=0TO23:TT=VAL(TI$)+ZZ(I)*10000:IFTT>235959THENTT=TT-240000
  6. 6 IFTT<0THENTT=TT+240000
  7. 7 TS$=MID$(RIGHT$("00000"+RIGHT$(STR$(TT),LEN(STR$(TT))-1),6),1,2)
  8. 8 TM$=MID$(RIGHT$("00000"+RIGHT$(STR$(TT),LEN(STR$(TT))-1),6),3,2)
  9. 9 IFVAL(TM$)>59THENSS=VAL(TS$)+1:TS$=RIGHT$("0"+RIGHT$(STR$(SS),LEN(STR$(SS))-1),2)
  10. 10 IFVAL(TM$)>59THENSS=VAL(TM$)-60:TM$=RIGHT$("0"+RIGHT$(STR$(SS),LEN(STR$(SS))-1),2)
  11. 11 IFVAL(TS$)>23THENTS$="00"
  12. 12 PRINTSPC(30)TS$":"TM$:PRINT""SPC(37)RIGHT$(TI$,2);:GETA$:IFA$<>""THENPRINT"[147]":END
  13. 13 FORJ=0TOI:PRINT:NEXTJ,I:GOTO5
  14. 14 DATAMOSKAU,UDSSR,RIAD,SAUDI-ARAB.,BAGDAD,IRAK,TEHERAN,IRAN,MALE,MALEDIVEN,DELHI
  15. 15 DATAINDIEN,SINGAPUR,SINGAPUR,JAKATA,INDONESIEN,PEKING,CHINA,TOKYO,JAPAN,ADELAIDE
  16. 16 DATAAUSTRALIEN,SYDNEY,,SUVA,FIDSCHI,HAWAI,USA,SAN FRANCICO,,DENVER,,CHICAGO,
  17. 17 DATANEW YORK,,SANTIAGO,CHILE,BUENOS AIRES,ARGENTINIEN,RIO DE JANEIRO,BRASILIEN
  18. 18 DATAAZOREN,PORTUGAL,LODON,G.BRITANIEN,,
  19. 19 DATA0,1,2,2,2.3,4,4.3,7,6,7,8,8.3,9,11,-11,-9,-8,-7,-6,-5,-4,-4,-2,-1
  20.