pen.bas

来自「smallbasic for linux」· BAS 代码 · 共 17 行

#!/usr/local/bin/sbrun -g
' pen

print "Use MemoPad key to exit"

pen on
while pen(0)=0:wend
pset pen(4),pen(5)
while 1
  if pen(0)
    line pen(4),pen(5)
  fi
wend
pen off