サインカーブ ( Sine Curve ) - SHARP POCKET COMPUTER PC-G815 BASIC - https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/

sin.bas

1 ' Sine Curve | SHARP POCKET COMPUTER PC-G815 BASIC
2 ' Copyright (c) 2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
100 DEGREE
110 CLS
120 FOR X=0 TO 143 STEP 2
130 PSET (X,16)
140 NEXT X
150 O=16
160 FOR X=1 TO 143
170 Y= SIN (-X/144*360)*16+16
180 LINE (X-1,O)-(X,Y)
190 O=Y
200 NEXT X