home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 40 / Commodore_Disc_40_19xx_-_de.d64 / clock (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  585b  |  21 lines
  1. 1 diml(12):fori=1to12:readl(i):nexti:print"[147]uhrzeit eingeben (ssmmss)":inputti$
  2. 2 print"datum eingeben (tag,monat,jahr)":inputta,mo,ja
  3. 3 ifmo<1ormo>12then2
  4. 4 ifja<1988orja>2100then2
  5. 5 x=1984
  6. 6 x=x+4:ifx>jathenl(2)=28:goto9
  7. 7 ifx=jathenl(2)=29:goto9
  8. 8 goto6
  9. 9 ifta=29andmo=2andl(2)=28then2
  10. 10 ifta<0orta>l(mo)then2
  11. 11 print"[147]"
  12. 12 print"uhrzeit : ";left$(ti$,2);":";mid$(ti$,3,2);":";right$(ti$,2)
  13. 13 print"datum   :";ta;"[157].";mo;"[157].";ja
  14. 14 t1=val(ti$)
  15. 15 ifti$="235959"thenta=ta+1:print"            "
  16. 16 ifta>l(mo)thenta=1:mo=mo+1:ifmo>12thenmo=1:ja=ja+1
  17. 17 t2=val(ti$):ift1<t2ort2=0then12
  18. 18 geta$:ifa$=" "thenend
  19. 19 goto17
  20. 20 data31,28,31,30,31,30,31,31,30,31,30,31
  21.