home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 October / 64er_Magazin_91-10_1991_Markt__Technik_de_Side_B.d64 / weltzeit (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.