diff --git a/assets/disk0/home/basic/sinc2.bas b/assets/disk0/home/basic/sinc2.bas index daef039..3c3fb62 100644 --- a/assets/disk0/home/basic/sinc2.bas +++ b/assets/disk0/home/basic/sinc2.bas @@ -3,7 +3,7 @@ 10 DEFUN SINC(P)=IF P==0 THEN 1.0 ELSE SIN(P)/P 20 DEFUN TOCHAR(P,X)=IF (X==ROUND(ZEROLINE+P*AMP)) THEN "@" ELSE IF (X==ZEROLINE) THEN "|" ELSE CHR(250) 30 DEFUN SCONCAT(ACC,S)=ACC+S -40 DEFUN PLOTLINE(F,X)=FOLD(SCONCAT,"",MAP(TOCHAR~