'===========================================================================
' Subject: README READER PROGRAM              Date: 06-28-00 (19:51)       
'  Author: Edward L. Blake                    Code: QB, QBasic, PDS        
'  Origin: blakee@cyanwerks.com             Packet: MISC.ABC
'===========================================================================
' 1994-1995 Edward L. Blake
' Email: blakee@cyanwerks.com
' Pre-Made Readme Reader program
' Purpose: For Reading a Readme file in the current directory.
' Useful for simply typing "Readme" at the command-line for
' a program or distribution.
'
'
DECLARE SUB WIN (X1!, Y1!, X2!, Y2!, A$)
DIM A$(2000)
CLS
COLOR 0, 3
WIN 5, 9, 75, 11, ""
LOCATE 10, 6: PRINT "Loading file..."
OPEN "README.TXT" FOR INPUT AS #1
DO UNTIL EOF(1)
INPUT #1, A$(I)
I = I + 1
LOOP
CLOSE #1


COLOR 7, 1
WIN 1, 1, 80, 24, "Read Me program"
COLOR 15, 5
LOCATE 25, 1: PRINT " Esc - Exit ³ PgDn and PgUp - Go page Down/Up                                   ";
COLOR 15, 1
DO
I$ = INKEY$
IF I$ = CHR$(27) THEN
CLS
SYSTEM
END IF
IF I$ = CHR$(0) + CHR$(73) THEN X = X - 20
IF I$ = CHR$(0) + CHR$(81) THEN X = X + 20
IF I$ = CHR$(0) + CHR$(72) THEN X = X - 1
IF I$ = CHR$(0) + CHR$(80) THEN X = X + 1
IF X < 0 THEN X = 0
IF X >= 350 - 22 THEN X = 350 - 22

FOR I = 1 TO 22
LOCATE 1 + I, 2: PRINT A$(I + X) + STRING$(78 - LEN(A$(X + I)), 32)
NEXT I
COLOR 15, 5
LOCATE 25, 1: PRINT " Esc - Exit ³ PgDn and PgUp - Go page Down/Up                               " + STR$(X);
COLOR 15, 1
LOOP

SUB BCKGND
FOR I = 1 TO 24
LOCATE I, 1: PRINT STRING$(80, 177);
NEXT I
LOCATE 25, 1: PRINT STRING$(80, 177);
END SUB

SUB WIN (X1, Y1, X2, Y2, A$)
FOR I = Y1 TO Y2
LOCATE I, X1: PRINT STRING$(X2 - X1, 32);
NEXT I
LOCATE Y1, X1 + 1: PRINT STRING$(X2 - X1 - 1, 196);
LOCATE Y2, X1 + 1: PRINT STRING$(X2 - X1 - 1, 196);
FOR I = Y1 + 1 TO Y2 - 1
LOCATE I, X1: PRINT CHR$(179);
LOCATE I, X2: PRINT CHR$(179);
NEXT I
LOCATE Y1, X1: PRINT CHR$(218);
LOCATE Y1, X2: PRINT CHR$(191);
LOCATE Y2, X1: PRINT CHR$(192);
LOCATE Y2, X2: PRINT CHR$(217);
IF A$ <> "" THEN
LOCATE Y1, ((X2 + X1) / 2) - ((LEN(A$) + 2) / 2): PRINT CHR$(180) + A$ + CHR$(195)
END IF
END SUB