home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / CLRSCR.D < prev    next >
Text File  |  1988-07-11  |  896b  |  36 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;--------------------------------
  4. ; C L R S C R  --  CLEAR THE SCREEN 
  5. ;
  6. ; Entry conditions:
  7. ;    None
  8. ; Exit conditions:
  9. ;    AX,BX,CX,DX modified
  10. ;
  11. SUBPGM    CLRSCR
  12. BEGIN    CLRSCR
  13.     MOV    AH,0FH        ; GET THE VIDEO MODE
  14.     INT    10H
  15.     CMP    AL,02        ; CGA TEXT?
  16.     JZ    CLR05        ; YES, GO CLEAR IT
  17.     CMP    AL,03        ; ...WITH COLOR?
  18.     JZ    CLR05        ; YES, GO CLEAR IT
  19.     CMP    AL,07        ; OR JUST MONO?
  20.     JZ    CLR05        ; YES, GO CLEAR IT
  21.     MOV    AH,00        ; CLEAR THE SCREEN BY SETTING THE VIDEO MODE
  22.     INT    10H
  23.     RETURN
  24. ;
  25. CLR05:
  26.     CURSOR    0,0        ; PLACE THE CURSOR IN THE HOME POSITION
  27.     MOV    CX,2000        ; CLEAR THE SCREEN BY FILLING WITH SPACES
  28.     MOV    BH,[VIDPAGE]    ; GET THE VIDEO PAGE NUMBER
  29.     MOV    BL,07        ; ENDING ROW, COLUMN
  30.     MOV    AX,0920H    ; WRITE SPACES
  31.     INT    10H
  32.     RETURN
  33. ;
  34. ENDPGM    CLRSCR
  35. ;
  36.