SCRNCLS.ASM 2/2

 BBS: Inland Empire Archive
Date: 11-08-92 (09:05)             Number: 395
From: MARK BUTLER                  Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: SCRNCLS.ASM  2/2               Conf: (2) Quik_Bas

 >>> continued from the previous message

        mov     al,20h
        mov     cx,0001h
        int     10h
        cmp     dh,18h
        je      L00122
        inc     dh
        jmp     L0010c
L00122:
        cmp     dl,00h
        je      L0012d
        dec     dl
        mov     dh,00h
        jmp     L0010c
L0012d:
        xor     dx,dx
        mov     ah,02h
        int     10h
        retf    0
wipeleft        endp

wiperight proc  far
        mov     ah,08h
        mov     bh,00h
        int     10h
        mov     bl,ah
        mov     dl,00h
        mov     dh,00h
R0010c:
        mov     ah,02h
        int     10h
        mov     ah,09h
        mov     al,20h
        mov     cx,0001h
        int     10h
        cmp     dh,18h
        je      R00122
        inc     dh
        jmp     R0010c
R00122:
        cmp     dl,4fh
        je      R0012d
        inc     dl
        mov     dh,00h
        jmp     R0010c
R0012d:
        xor     dx,dx
        mov     ah,02h
        int     10h
        retf    0
wiperight       endp

cseg    ends
        end
==========================8< Cut Here 8<=============================

 That's all folks!


 תש [-M-H-B-] שת


--- PPoint 1.35
 * Origin: Terminal Oasis, Portland OR (1:105/330.5)