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