RosettaCodeData/Task/Euler-method/ZX-Spectrum-Basic/euler-method.zx

mirror of https://github.com/acmeism/RosettaCodeData.git
10 LET d$="-0.07*(y-20)": LET y=100: LET a=0: LET b=100: LET s=10
20 LET t=a
30 IF t<=b THEN PRINT t;TAB 10;y: LET y=y+s*VAL d$: LET t=t+s: GO TO 30
	`10 LET d$="-0.07*(y-20)": LET y=100: LET a=0: LET b=100: LET s=10`
	`20 LET t=a`
	`30 IF t<=b THEN PRINT t;TAB 10;y: LET y=y+s*VAL d$: LET t=t+s: GO TO 30`