home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 August
/
64er_Magazin_89-08_1989_Markt__Technik_de.d64
/
auto-grs
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
293b
|
11 lines
704 gt=int(10*1.8/t1+0.5):rem:50 cm mess-strecke
708 print:print:print
710 t = int(100*t1)/100
712 print " geschwindigkeit:";gt;"km/h"
716 print " =========================="
720 if gt<= 60 then 740
724 poke db,128:print:rem: blitz ein !
728 print " geblitzt, da zu schnell!!!"
732 for i=1 to 1200 : next
736 poke db,0 : print:rem: blitz aus !