d: ***************************************************************n: ***************************************************************Fx: ** GW-BASIC 3.23 **: ** FANCYCLS **: ** Fancy Clear Screen Routine **: ** (c) 1990 by **f: ** Thomas Jaeger **: ** 1848 Andalucia Drive **: ** El Paso, Texas 79935 **>: ** USA **: ***************************************************************: ***************************************************************::: This program is distributed under the shareware concept.':m: You can put this routine in your next GW-, TURBO-, POWER-, or: QuickBASIC routine. If you use this routine, please make a: distribution of US $1-5 to support this shareware concept.":,: Other routines will follow.'6:v@: ----------------------------------------------------------------------~J:T: How about a fancy clear screen routine to impress your friends^: in your next program?/h: Immediately you called FANCYCLS with GOSUB 10000, the screen startsbr: to crumble by coincidence. A great effect.|: If you have a monochrome, graphics card, you have to change in line: 10060 hexa decimal number &HB800 into &HB000. If you don't want the9: background color to be changed, just erase line 10090.A:: ----------------------------------------------------------------------: F%() : dimension is necessary for screen : : >>>>> Your program starts hier <<<<<:a: The following code only fills the screen with asteriks to give a better: demonstration. You can leave this code out of your program.:WAITING$  WAITING$ ""& ENDPRINT 0 COUNTER%  +: (P,"*");@D COUNTER%XN ENDPRINT jX  ,#b " PRESS ANY KEY! "l v WAITING$  ,# " WAIT A SECOND " ' : call FANCYCLS subroutine+: You probably want to end your program then.= : ProgramF ' :c' : Subroutine FANCYCLSl' :' COUNTER%  ' F%(COUNTER%) COUNTER%$' COUNTER%.' COUNTER%   8' F%((() COUNTER%)), F%(COUNTER)B' COUNTER%RL' SEG : &HB000 if you have a hercules monochrome cardkV' COUNTER%  `' F%(COUNTER%) , j' F%(COUNTER%)  , : Background = blackt' COUNTER%~' : to your main program