home *** CD-ROM | disk | FTP | other *** search
/ B Soft 3 / B-Soft_3_19xx_Maik__Mike_de_Side_A.d64 / anhalteweg (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  371b  |  6 lines
  1. 0 deffna(x)=int((x/10)*3):deffnb(x)=int((x/10)^2):poke53280,0:poke53281,0:poke198,0
  2. 1 print"[153][147]fahrschule: anhaltewegberechnung        (w) 1993 wizard / jff":poke19,1
  3. 2 print"nach einer idee von dolman!":print:input"geschwindigkeit (in km/h): ";a$
  4. 3 a=val(a$):poke19,0:r$=chr$(13):printr$"reaktionsweg:"fna(a)"meter"r$"    bre";
  5. 4 print"msweg:"fnb(a)"meter"r$"  anhalteweg:"fna(a)+fnb(a)"meter":poke198,0:wait198,1:goto
  6.