home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol5n15.zip / WS43.SCR < prev    next >
Text File  |  1986-08-05  |  372b  |  33 lines
  1. N WS.COM
  2. L
  3. N WS43.COM
  4. E 248 2A
  5. A 2A4
  6. JMP    2E1    ; Initialize Screen
  7. NOP
  8. JMP    300    ; De-Initialize
  9.  
  10. A 2E1
  11. MOV    AH,0F    ; Get Video Mode
  12. INT    10
  13. MOV    [2E0],AL    ; Save it
  14. SUB    BL,BL    ; Use 43 column mode
  15. MOV    AX,1112
  16. INT    10
  17. MOV    CX,0007    ; Set cursor to block
  18. MOV    AH,1
  19. INT    10
  20. RET
  21.  
  22. A 300
  23. MOV    AL,[2E0]    ; Get back mode
  24. SUB    AH,AH    ; And re-set
  25. INT    10
  26. RET
  27.  
  28. W
  29. Q
  30.  
  31.  
  32.  
  33.