PROGRAM CLS
* This is a program that will clear the screen in a cool way.
LastUpdated... = "Rev: 09:04 26Apr1994 u2443 51 /roi/SFLO.MAIN/CUST.BP/CLS"
***
* Abstract
*    This program will begin with a random list of row numbers, and will
* extract them in random order clearing each line as it goes. This is 
* just to make computing a little more fun.
***
* Revision Log
* Proj Who... When.... Why..............................................
* 0000 u2443  22Apr94  Initial coding. (What else?)
*
***
 
LIST = CONVERT("~",@FM,"12~20~9~4~10~16~22~19~1~3~0~7~18~2~15~5~17~6~23~8~21~11~14~12~13")
ROWS = ""
FOR I = 1 TO 23
   PTR = RND(DCOUNT(LIST,@FM))+1
   ROWS<-1> = LIST<PTR>
   DEL LIST<PTR>
NEXT I
ROWS<-1> = LIST
 
MORE.ROWS = ROWS NE ""
CS = ""
LOOP WHILE MORE.ROWS
   REMOVE ROW FROM ROWS SETTING MORE.ROWS
   CS := @(0,ROW):@(-4)
REPEAT
CRT CS:@(0,23):
 
END