'MARQUEE.BAS
'Marquee is a Screen Saver Program That Will Work with Qbasic.
ON ERROR GOTO 2
DELAY% = 10000: CLS : Blanks$ = SPACE$(80)
LOCATE 10, 1
PRINT "Enter the message to display (up to 79 chrs, no commas): "
LOCATE 12, 1: INPUT "", Msg$: CLS : StrLen% = LEN(Msg$)
DO
    FOR VPos% = 80 TO 1 STEP -1
        IF VPos% + StrLen% > 80 THEN
            Display$ = LEFT$(Msg$, (81 - VPos%))
            LOCATE 12, VPos%: PRINT Display$
          ELSEIF VPos% = 1 THEN
            FOR Ptr% = StrLen% TO 1 STEP -1
                DELAY% = 4000:
                Display$ = RIGHT$(Msg$, Ptr%):  LOCATE 1, 23: PRINT Msg$
                FOR Slow% = 1 TO DELAY%: NEXT Slow%
                LOCATE 12, 1: PRINT Blanks$
             DELAY% = 4000
            NEXT Ptr%
        ELSE LOCATE 12, VPos%: PRINT Msg$
        END IF
      IF INKEY$ <> "" THEN 2
    FOR Slow% = 1 TO DELAY%: NEXT Slow%
    LOCATE 12, 1: PRINT Blanks$
    NEXT VPos%
  CLS
LOOP
ON ERROR GOTO 0

2 CLS : PRINT "Please Wait...": CHAIN "moneycga"