DECLARE SUB RedrawScreen (Strt!, lns!, fc!, bc!)
DECLARE SUB Sleep2 (n!)
SCREEN 0
WIDTH 80, 50
CLS
DIM SHARED Hdr$, Msg$
Hdr$ = "Hiway 80 Pawn Shop"
Msg$ = "Welcome to the Hiway 80 Pawn Shop"
RedrawScreen 3, 50, 15, 1
DO UNTIL 1 = 2: GOSUB ScrollMessage: Sleep2 .1: LOOP
SLEEP
END


ScrollMessage:
IF LEN(Msg$) < 80 THEN Msg$ = Msg$ + STRING$(80 - LEN(Msg$), " ")
IF LEN(Msg$) > 80 THEN Msg$ = LEFT$(Msg$, 80)
Msg$ = RIGHT$(Msg$, 79) + LEFT$(Msg$, 1)
LOCATE 1, 1, 0: PRINT Msg$;
RETURN

SUB DrawMenu (n$)
FOR q = 1 TO LEN(n$)
NEXT q
END SUB

SUB RedrawScreen (Strt, lns, fc, bc)
COLOR fc, bc
IF LEN(Hdr$) / 2 = INT(LEN(Hdr$) / 2) THEN  ELSE n = 1
LOCATE Strt, 1: PRINT CHR$(218) + STRING$(38 - INT(LEN(Hdr$) / 2), CHR$(196)) + " " + Hdr$ + " " + STRING$(38 - INT(LEN(Hdr$) / 2) - n, CHR$(196)) + CHR$(191)
FOR q = Strt + 1 TO lns - 1: LOCATE q, 1: PRINT CHR$(179) + STRING$(78, CHR$(32)) + CHR$(179); : NEXT q
LOCATE lns, 1: PRINT CHR$(192) + STRING$(78, 196) + CHR$(217);
END SUB

SUB Sleep2 (n)
a = TIMER + n
DO UNTIL TIMER >= a: LOOP
END SUB