#include "crt.bi"
#include "fbgfx.bi"

dim shared as integer iWait=1
dim shared as single fDiv

const ScrWid=640,ScrHei=512
const ScX=ScrWid/320,ScY=ScrHei/256

screenres ScrWid,ScrHei,,,fb.gfx_HIGH_PRIORITY 'mode 1
window (0,0)-(1280,1024)
color &h2C

sub PROCC(L as integer,iAng as integer)
  static as integer OX(...) = {9, 0,-9, 0}
  static as integer OY(...) = {0, 9, 0,-9}
  if L=0 then
    line -step(ScX+OX(iAng shr 1),ScY),,bf
    line -step(-ScX,OY(iAng shr 1)-ScY),,bf
    if len(inkey$) then iWait=0
    if iWait then sleep 10,1
    exit sub
  end if
  L -= 1
  PROCC(L,(iAng+1) and 7)
  PROCC(L,(iAng-1) and 7)
end sub

pset(300,200)
PROCC(12,0)
sleep