home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh62a.d64 / steller (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  139b  |  6 lines
  1. 10 INPUT"ZEIT (HHMMSS)";A$:A$=A$+"00"
  2. 20 FORN=0TO3:T(N)=VAL(MID$(A$,2*N+1,2))
  3. 30 IF T(0)>11 THEN T(0)=T(0)+68
  4. 40 POKE 56331-N,T(N)+6*INT(T(N)/10)
  5. 50 NEXT
  6.