!       ELECTRONIC VOTING SYSTEMS
!       PROGRAM PASWOR.BAS                    CREATED ON SEPT 24, 1985
!       RESIDES ON [101,1]                    *** WRITTEN BY PROF. NGUYEN
!       BACK-UP ON [10,3]
!                           **** ALL COPYRIGHTS REVERSED ****
!
!       LAST DATE MODIFICATION:  OCT 22, 1985
!       ----------------------

MAP1 CRT'BUFFER,S,1920
MAP1 SCREENDEF,@CRT'BUFFER
   MAP2 SCREENLINE(24)
      MAP3 ONELINE,S,80
       MAP4 ONECHAR,S,1
MAP1 LENGTH,F,,0
MAP1 CRTINIT,S,2

!
BEGIN:
       CRTINIT=CHR$(27)+"g"                 !reset the crt

! call block input subroutine in [7,6] dsk0  (transmit only when X-page hit)
! Return in length the actual number of characters (blanks included)


       XCALL BLKINP,CRT'BUFFER,LENGTH

! got the whole screen in CRT'BUFFER

       PRINT CRT'BUFFER

END