Anonymous user
Biorhythms: Difference between revisions
→{{header|Locomotive Basic}}
Line 771:
2000 p = 100 * sin(2*pi*diff/l)
2010 print t$; " cycle: " tab(22)
2020 print using "+###"; int(p)
2030
2040 if abs(p) < 15 then print " (critical)" else print
{{out}}
<pre>Birthday (y,m,d) 1943,3,9
| |||