home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / zeitanzeige (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  293b  |  11 lines
  1. 5 rem zeitanzeige
  2. 6 rem -----------
  3. 10 print"[147]"
  4. 20 printtab(1)"[199]eben [211]ie die aktuelle [213]hrzeit ein:"
  5. 30 printtab(1)"[198]ormat: ([200][200].[205][205].[211][211]):";
  6. 40 poke19,64:inputzt$:poke19,0:print
  7. 50 ti$=mid$(zt$,1,2)+mid$(zt$,4,2)+mid$(zt$,7,2):printchr$(147)
  8. 60 poke214,0:poke211,32:sys58732
  9. 70 print""mid$(ti$,1,2)+":"+mid$(ti$,3,2)+":"+mid$(ti$,5,2)
  10. 80 ifpeek(203)=64then60
  11.