'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
'º þ GRID.BAS --- Programmed by QP7                                         º
'º þ Version 1.01                                                           º
'º þ This renders a cool effect I created when I was screwing arround.      º
'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

SCREEN 12: WINDOW (0, 0)-(1000, 1000)
RANDOMIZE TIMER
      
x = 500: y = 500                'Set the starting cursor position

DO
c = RND * 100                   'Choose a random diagonal direction
SELECT CASE c
  CASE IS >= 75: direction$ = "UR": GOTO getouttahere
  CASE IS >= 50: direction$ = "UL": GOTO getouttahere
  CASE IS >= 25: direction$ = "DR": GOTO getouttahere
  CASE IS >= 0: direction$ = "DL": GOTO getouttahere
END SELECT

getouttahere:

GOSUB checkb

  'Process the direction
SELECT CASE direction$
  CASE "UR"
    FOR i = 1 TO 10
      y = y + 1
      x = x + 1
      PSET (x, y), 1             'Draw the current point
    NEXT i
  CASE "UL"
    FOR i = 1 TO 10
      y = y + 1
      x = x - 1
      PSET (x, y), 2
    NEXT i
  CASE "DR"
    FOR i = 1 TO 10
      y = y - 1
      x = x + 1
      PSET (x, y), 1
    NEXT i
  CASE "DL"
    FOR i = 1 TO 10
      y = y - 1
      x = x - 1
      PSET (x, y), 2
    NEXT i
END SELECT
LOOP WHILE INKEY$ = ""
END

'--- Check the boundries.  If out of bounds, change the direction ---
checkb:
SELECT CASE direction$
  CASE "UR"
    IF x > 1000 THEN direction$ = "UL"
    IF y > 1000 THEN direction$ = "DR"
  CASE "UL"
    IF x < 0 THEN direction$ = "UR"
    IF y > 1000 THEN direction$ = "DL"
  CASE "DR"
    IF x > 1000 THEN direction$ = "DL"
    IF y < 0 THEN direction$ = "UR"
  CASE "DL"
    IF x < 0 THEN direction$ = "DR"
    IF y < 0 THEN direction$ = "UL"
END SELECT
RETURN