From: dave@powerbasic.com (Dave Navarro)
Subject: Who knows....
 
$LIB GRAPH +
 
SCREEN 12
 
FOR X%=0 TO 639 STEP 2
  INCR C%,2
  IF C%>15 THEN C%=1
  LINE (320,240)-(X%,0),C%
  LINE (320,240)-(639-X%,479), C%
NEXT X%
FOR Y%=0 TO 479 STEP 2
  INCR C%,2
  IF C%>15 THEN C%=1
  LINE (320,240)-(0,479%-Y%),C%
  LINE (320,240)-(639,Y%),C%
NEXT Y%
 
DIM P%(0:15)
FOR I%=0 TO 15
  P%(I%)=I%
NEXT I%
 
WHILE INKEY$=""
  PALETTE USING P%(0)
  T%=P%(1)
  ARRAY DELETE P%(1), T%
WEND
 
SCREEN 0,0,0
 
*** QwkNews (tm) v2.1
 * [TN71] Internet Newsgroup: alt.lang.powerbasic
--- GEcho 1.20/Pro
---------------