home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 March / 64er_Magazin_94-03_1994_Markt__Technik_de_Side_A.d64 / kalender prg. 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  286 b   |  13 lines
  1. 5 rem nicht geeignet fuer schaltjahre
  2. 10 input"datum format ttmmjjjj ";d$
  3. 20 t=val(mid$(d$,1,2))
  4. 30 m=val(mid$(d$,3,2))
  5. 40 j=val(mid$(d$,5))
  6. 50 if m<1 or m>12 then run
  7. 60 if t<1 or t>31 then run
  8. 70 rem welche tagesnummer ?
  9. 80 if m>2 then n=int(30.6*(m+1))-63+t:goto 100
  10. 90 n=int(30.6*(m+13))-428+t
  11. 100 print"nummer"n
  12. 110 end
  13.