home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n15.zip / CS.SCR < prev    next >
Text File  |  1986-08-05  |  688b  |  43 lines
  1. N CS.COM
  2. A 100
  3. MOV    DL,18     ; 24 columns default
  4. SUB    BH,BH     ; Get number of columns
  5. MOV    AX,1130 
  6. INT    10 
  7. MOV    AH,0F     ; Get video information
  8. INT    10 
  9. DEC    AH     
  10. MOV    CH,DL 
  11. MOV    CL,AH     ; CX = maximum row and col
  12. MOV    AH,00     ; Graphics attribute
  13. CMP    AL,07     ; See if monochrome mode
  14. JZ    011D 
  15. CMP    AL,03    ; See if text mode 
  16. JA    012D 
  17. MOV    DL,20    ; Write space to display
  18. MOV    AH,02 
  19. INT    21 
  20. MOV    AL,08     ; Backspace
  21. MOV    AH,0E 
  22. INT    10 
  23. MOV    AH,08     ; Read attribute
  24. INT    10 
  25. PUSH    BX     ; Save video page
  26. MOV    BH,AH     ; Clear screen
  27. MOV    DX,CX 
  28. SUB    CX,CX 
  29. MOV    AX,0600 
  30. INT    10 
  31. POP    BX     ; Get back video page
  32. SUB    DX,DX     ; Home cursor
  33. MOV    AH,02 
  34. INT    10 
  35. INT    20 
  36.  
  37. R CX
  38. 42
  39. W
  40. Q
  41.  
  42.  
  43.