PROC Spiral:
  LOCAL lc1z%,lc18z%,lc19z%,lc20z%,lc2z%
  LOCAL lc4z%,lc3z%,lc5z%,lc6z%,lc7z%
  LOCAL lc8z%,lc9z%,lc10z%,lc12z%,lc11z%
  LOCAL lc13z%,lc14z%,lc15z%,lc16z%,lc17z%
  gGMODE 2
  lc2z%=INT(RND*460)+25
  lc3z%=INT(RND*140)+10
  lc4z%=INT(RND*240)+25
  lc5z%=INT(RND*140)+10
  lc6z%=INT(RND*4)+1
  lc7z%=INT(RND*4)-5
  lc8z%=INT(RND*4)-5
  lc9z%=INT(RND*4)+1
  lc10z%=lc2z%
  lc11z%=lc3z%
  lc12z%=lc4z%
  lc13z%=lc5z%
  lc14z%=lc6z%
  lc15z%=lc7z%
  lc16z%=lc8z%
  lc17z%=lc9z%
  lc18z%=0
  lc19z%=INT(RND*400)+3
  DO
    gAT lc2z%,lc3z%
    gLINETO lc4z%,lc5z%
    lc2z%=lc2z%+lc6z%
    lc4z%=lc4z%+lc7z%
    lc3z%=lc3z%+lc8z%
    lc5z%=lc5z%+lc9z%
    IF lc2z%<8
      lc6z%=ABS(lc6z%)
    ENDIF
    IF lc4z%<8
      lc7z%=ABS(lc7z%)
    ENDIF
    IF lc2z%>290
      lc6z%=lc6z%-lc6z%-lc6z%
    ENDIF
    IF lc4z%>290
      lc7z%=lc7z%-lc7z%-lc7z%
    ENDIF
    IF lc3z%<10
      lc8z%=ABS(lc8z%)
    ENDIF
    IF lc5z%<10
      lc9z%=ABS(lc9z%)
    ENDIF
    IF lc3z%>150
      lc8z%=lc8z%-lc8z%-lc8z%
    ENDIF
    IF lc5z%>150
      lc9z%=lc9z%-lc9z%-lc9z%
    ENDIF
    IF lc18z%290
        lc14z%=lc14z%-lc14z%-lc14z%
      ENDIF
      IF lc12z%>290
        lc15z%=lc15z%-lc15z%-lc15z%
      ENDIF
      IF lc11z%<10
        lc16z%=ABS(lc16z%)
      ENDIF
      IF lc13z%<10
        lc17z%=ABS(lc17z%)
      ENDIF
      IF lc11z%>150
        lc16z%=lc16z%-lc16z%-lc16z%
      ENDIF
      IF lc13z%>150
        lc17z%=lc17z%-lc17z%-lc17z%
      ENDIF
    ENDIF
  UNTIL KEY
ENDP