'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
¿
'³                                                                            
³
'³  Melt all the characters off the screen using a pointer to video memory.   
³
'³                                                                            
³
'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Ù
$COMPILE EXE
DEFINT A-Z
TYPE Video
  char AS BYTE
  attr AS BYTE
END TYPE
DIM cell    AS Video PTR
DIM save    AS DWORD
cell = &HB800?? * 65536??
DO
  cells = 2000
  save = cell
  FOR counter = 1 TO 2000
    IF @cell.char < 32 THEN
      INCR @cell.char
    ELSEIF @cell.char > 32 THEN
      DECR @cell.char
    ELSE
      DECR cells
      @cell.attr = 7
    END IF
    cell = cell + 2
  NEXT z
  cell = save
LOOP UNTIL cells = 0
 * QMPro 1.53 * (huskily) Oh, yes!  Scan me NOW!  ºÞº³º³Û³ºÝ³ºÝ³³
--- QScan v1.065b
---------------