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