From f1b046bd13d3975f13da451fd458eb9eb3d4ff63 Mon Sep 17 00:00:00 2001
From: minjaesong <alswo9628@gmail.com>
Date: Wed, 23 Dec 2020 18:57:23 +0900
Subject: [PATCH] basic: example program FUNCTION PLOTTER

---
 assets/sinc1.bas | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 assets/sinc1.bas

diff --git a/assets/sinc1.bas b/assets/sinc1.bas
new file mode 100644
index 0000000..044d1b5
--- /dev/null
+++ b/assets/sinc1.bas
@@ -0,0 +1,17 @@
+1 GOTO 1000
+100 LABEL SINCQ:REM gets Sinc(Q)
+110 Q=SIN(I)/I
+120 RETURN
+200 LABEL TOSPC
+201 REM Converts 0-1 value into screen line
+202 REM input is Q, results are stored to SQ
+210 SQ="I":REM currently empty string literals can't be used because of bug
+220 FOR X=1 TO 10 MAX 10+Q*20
+230 SQ=SQ+(IF X==FIX(10+Q*20) THEN "@" ELSE IF X==10 THEN ":" ELSE " ")
+240 NEXT
+250 RETURN
+1000 FOR I=1 TO 20
+1010 GOSUB SINCQ
+1020 GOSUB TOSPC
+1030 PRINT(SQ)
+1040 NEXT