Shareware Overload/ShartewareOverload.cdr/progm/qlib.zip/TITLE.BAS

BASIC Source File | 1991-01-26 | 1KB | 31 lines

SUB TITLE (PN$,VR$,CR$,M%)
    CLS
    F$="│ \                                      \ │"
    COLOR 0,7
    PRINT "┌──────────────────────────────────────────┐"
    PRINT "│                                          │"
    PRINT USING F$;SPACE$((40-LEN(LEFT$(PN$,40)))/2)+LEFT$(PN$,40)
    PRINT USING F$;SPACE$((40-LEN(LEFT$(VR$,40)))/2)+LEFT$(VR$,40)
    PRINT "│                                          │"
    PRINT "│              (C) Copyright               │"
    PRINT USING F$;SPACE$((40-LEN(LEFT$(CR$,40)))/2)+LEFT$(CR$,40)
    PRINT "│                                          │"
    PRINT "│           West's International           │"
    PRINT "│                 Box 279                  │"
    PRINT "│              Gold River, BC              │"
    PRINT "│                 V0P 1G0                  │"
    PRINT "│                                          │"
    PRINT "└──────────────────────────────────────────┘"
    COLOR 15,0
    IF M%=1 THEN
       PRINT
       PRINT "    Microsoft (R) QuickBASIC Compiler"
       PRINT "    Runtime Version 4.50 (C) Copyright"
       PRINT "    Microsoft Corporation, 1982-1988."
       PRINT "    All rights reserved.  Simultaneously"
       PRINT "    published in the U.S. and Canada."
    END IF
    PRINT
    SLEEP 2
END SUB