;
;Darin Arrick
;pg 290 Window program w /rev. blink
;04/02/89
;
prognam  segment
         assume cs:prognam

         mov  ah,6      ;scroll up function,INT 10h
         mov  al,0      ;scroll all lines (cls)
         mov  ch,0
         mov  cl,0
         mov  dh,24d
         mov  dl,79d
         mov  bh,07d    ;blank lines
         int  10h       ;call it

pos_curse:              ;scroll one line up
         mov  ah,6d
         mov  al,1d
         mov  ch,8d
         mov  cl,30d
         mov  dh,16d
         mov  dl,50d
         mov  bh,0F0h   ;rev. blinking
         int  10h       ;call it


         mov  ah,2d     ;set up window
         mov  dh,16d    ;in middle of screen
         mov  dl,30d
         mov  bh,0d
         int  10h       ;call it

         mov  cx,20d    ;input 20 characters

get_char:
         mov  ah,1d     ;input char
         int  21h
         cmp  al,3d     ;if ^C, exit
         jz   exit
         loop get_char  ;else finish

         jmp  pos_curse ;if 20 chars, then go to next line

exit:    mov  ax,4C00h  ;DOS exit call
         int  21h

prognam  ends           ; Und das ist Alles!
         end


