!	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