'===========================================================================
' Subject: SOME LINE EFFECTS                 Date: 09-26-98 (17:29)       
' Author:  Alexander Meyer                   Code: QB, QBasic, PDS        
' Origin:  Meyer.Karl@t-online.de          Packet: GRAPHICS.ABC
'===========================================================================
'                             ////
'                           0(o o)0
'-------------------------ooO (_) Ooo---------------------
' LINE.BAS -- Written in QuickBasic 4.5
'
' Name: Some line effects
' Author: Alexander Meyer
' Date: 09-26-1998
' Description: Some line effects in SCREEN 13
'
'For questions or comments mail to: Meyer.Karl@t-online.de
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
'
' * This routine maybe runs too fast on Pentium. *
' * You can put a delay (FOR i = .... : NEXT i) into the FOR/NEXT loops.) *

SCREEN 13
CLS

FOR i% = 0 TO 300
  IF INKEY$ <> "" THEN END
  LINE (i%, i%)-(i% / 25, i% * 2), i%
NEXT i%
DO: LOOP WHILE INKEY$ = ""

CLS
DO
FOR z = 200 TO 210
  FOR x = 1 TO 200
    FOR y = 1 TO 10
      IF INKEY$ <> "" THEN GOTO TheNext
      LINE (x, z)-(y, x), x, , z
    NEXT y
  NEXT x
NEXT z
LOOP

TheNext:
LOCATE 5, 5: PRINT "Some line effects"
DO
'FOR i = 1 TO 2
  FOR x = 1 TO 200
    FOR y = 1 TO 50
      IF INKEY$ <> "" THEN GOTO TheNext2
      LINE (x, 10)-(y, x), y
    NEXT y
  NEXT x
'NEXT i
LOOP

TheNext2:
DO
'FOR i = 1 TO 2
  FOR x = 1 TO 550 ' STEP 5
    FOR y = 1 TO 50 STEP 2
      LINE (x, 0)-(y, x), y, , x
      IF INKEY$ <> "" THEN GOTO TheNext3
    '  LINE (x + 5, 0)-(y - 1, x - 1), 0
    NEXT y
  NEXT x
'NEXT i
LOOP

TheNext3:
DO
'FOR i = 1 TO 2
  FOR x = 1 TO 350 'STEP 5
    FOR y = 1 TO 50 STEP 2
      LINE (x + y, y + x)-(y, y), y, B, x / y
      IF INKEY$ <> "" THEN END
    '  LINE (x + 5, 0)-(y - 1, x - 1), 0, B, x / y
    NEXT y
  NEXT x
'NEXT i
LOOP
END