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 >
Encoding:
Commodore BASIC  |  1989-01-01  |  293 b   |  11 lines
  1. 704 gt=int(10*1.8/t1+0.5):rem:50 cm mess-strecke
  2. 708 print:print:print
  3. 710 t = int(100*t1)/100
  4. 712 print "  geschwindigkeit:";gt;"km/h"
  5. 716 print "  =========================="
  6. 720 if gt<= 60 then 740
  7. 724 poke db,128:print:rem: blitz ein !
  8. 728 print "  geblitzt, da zu schnell!!!"
  9. 732 for i=1 to 1200 : next
  10. 736 poke db,0 : print:rem: blitz aus !
  11.