home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 3 / Killer-Drive_64_03_1998_-_de_Side_A.d64 / wegberechnung (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  475b  |  22 lines
  1. 10 print"[147]":poke53280,0:poke53281,0
  2. 20 printtab(14)"[152]wegberechnung"
  3. 25 printtab(13)"---------------"
  4. 26 printtab(16)"von awar"
  5. 30 print"kmh:";
  6. 40 input a
  7. 50 print"bremsweg in meter    :";
  8. 60 print a/10*a/10
  9. 70 print"reaktionsweg in meter:";
  10. 80 print a/10*3
  11. 90 print"anhalteweg in meter  :";
  12. 100 printa/10*a/10+a/10*3
  13. 104 print:print
  14. 105 print"noch einmal (j/n):";
  15. 110 input a$
  16. 120 if a$="n"then print"[147]**** commodore 64 basic v2 ****"
  17. 123 if a$="j"then goto 10
  18. 125 print
  19. 130 print"64k ram system  38911 basic bytes free"
  20. 140 forx=1to180:nextx
  21. 150 poke53280,12:new
  22.