Code Gallery: Echtzeituhr (CIA)
Sie sind hier: Code Gallery » Echtzeituhr (CIA)Die auf dieser Seite vorhandenen BASIC-Programme (bzw. Snipplets) habe ich nach dem Transfer auf den PC nicht mehr getestet. Sie sollten aber problemlos funktionieren.
CIA-Echtzeituhr stellen
1670 rem *** cia-uhr stellen
1671 :
1680 ifh>12thensi=128:h=h-12
1690 h=int(h/10)*16+(h-int(h/10)*10)
1700 poke56587,h
1710 m=int(m/10)*16+(m-int(m/10)*10)
1720 poke56586,m
1730 s=int(s/10)*16+(s-int(s/10)*10)
1740 poke56585,s
1750 poke56584,0
1760 return
7200 rem ** cia - uhr stellen **
7210 input"stunde, minute, sekunde";h,m,s
7220 ifh>12thensi=128:h=h-12
7230 h=int(h/10)*16+(h-int(h/10)*10)+s1
7240 poke56587,h
7250 m=int(m/10)*16+(m-int(m/10)*10)
7260 poke56586,m
7270 s=int(s/10)*16+(s-int(s/10)*10)
7280 poke56585,s
7290 poke56584,0
7300 return
7310 rem ** echtzeit auslesen **
7320 h=0
7330 sr=peek(56587)
7340 ifsrand128thenh=12
7350 h=h+((srand112)/16)*10
7360 h=h+(srand15)
7370 sm=peek(56586)
7380 m=((smand240)/16)*10
7390 m=m+(smand15)
7400 sr=peek(56585)
7410 s=((srand240)/16)*10
7420 s=s+(srand15)
7430 z=peek(56584)
7440 return