1: DECLARE SUB RedrawScreen (Strt!, lns!, fc!, bc!) 2: DECLARE SUB Sleep2 (n!) 3: SCREEN 0 4: WIDTH 80, 50 5: CLS 6: DIM SHARED Hdr$, Msg$ 7: Hdr$ = "Hiway 80 Pawn Shop" 8: Msg$ = "Welcome to the Hiway 80 Pawn Shop" 9: RedrawScreen 3, 50, 15, 1 10: DO UNTIL 1 = 2: GOSUB ScrollMessage: Sleep2 .1: LOOP 11: SLEEP 12: END 13: 14: 15: ScrollMessage: 16: IF LEN(Msg$) < 80 THEN Msg$ = Msg$ + STRING$(80 - LEN(Msg$), " ") 17: IF LEN(Msg$) > 80 THEN Msg$ = LEFT$(Msg$, 80) 18: Msg$ = RIGHT$(Msg$, 79) + LEFT$(Msg$, 1) 19: LOCATE 1, 1, 0: PRINT Msg$; 20: RETURN 21: 22: SUB DrawMenu (n$) 23: FOR q = 1 TO LEN(n$) 24: NEXT q 25: END SUB 26: 27: SUB RedrawScreen (Strt, lns, fc, bc) 28: COLOR fc, bc 29: IF LEN(Hdr$) / 2 = INT(LEN(Hdr$) / 2) THEN ELSE n = 1 30: 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) 31: FOR q = Strt + 1 TO lns - 1: LOCATE q, 1: PRINT CHR$(179) + STRING$(78, CHR$(32)) + CHR$(179); : NEXT q 32: LOCATE lns, 1: PRINT CHR$(192) + STRING$(78, 196) + CHR$(217); 33: END SUB 34: 35: SUB Sleep2 (n) 36: a = TIMER + n 37: DO UNTIL TIMER >= a: LOOP 38: END SUB 39: |