Category : BASIC Source Code
Archive   : QBTTL30.ZIP
Filename : TITLE.BAS

DECLARE SUB BoldFile (Msg$)
DECLARE SUB BoldLtrs ()
DECLARE SUB Center (Down%, Text$)
DECLARE SUB DownSizeFile (DSMsg$)
DECLARE SUB DownSizeLtrs ()
DECLARE SUB Frame (Row%, LRow%, Col%, Wide%, Style%)
DECLARE SUB HelpFile ()
DECLARE SUB InpScreen ()
DECLARE SUB Logon ()
DECLARE SUB MediumFile (MediumMsg$)
DECLARE SUB MediumLtrs ()
DECLARE SUB OutLineFile (OLMsg$)
DECLARE SUB OutLineLtrs ()
DECLARE SUB OutputScreen ()
DECLARE SUB ProgramChoice ()
DECLARE SUB ShadowFile (ShadowMsg$)
DECLARE SUB ShadowLtrs ()
DECLARE SUB Spot (Down%, Over%)
DECLARE SUB TopLine (Where%, Text$)
DECLARE SUB WhatNow ()
DECLARE FUNCTION GetKey% ()
DIM SHARED BoldData$, Alpha$(80, 8)
DIM SHARED MediumData$, Delta$(80, 6)
DIM SHARED OutLineData$, Queen$(40, 4)
DIM SHARED ShadowData$, Sugar$(30, 7)
DIM SHARED DSData$, Charlie$(40, 4)
CONST PgUp = -&H49, PgDn = -&H51, Esc = 27, CR = 13, ShadColr = 0
CONST Wait$ = "P L E A S E W A I T"
CONST Load$ = "L O A D I N G F O N T S"
CONST NotFound$ = "Fonts Not Found - Cannot be Loaded"
COMMON SHARED x%, Size%, FileName$, Help$
BoldData$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz 0123456789,.:$@*#!-+=%?;'[]"
MediumData$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz 0123456789.,!?@';:$#%-*=+[]"
OutLineData$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890"
ShadowData$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ "
DSData$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789"
Logon
ON KEY(10) GOSUB EndProgram
KEY(10) ON
ON ERROR GOTO ErrorProc

Menu:
CLOSE
DO
ProgramChoice
DO
SELECT CASE GetKey%
CASE ASC("B")
BoldLtrs
EXIT DO
CASE ASC("D")
DownSizeLtrs
EXIT DO
CASE ASC("H")
HelpFile
EXIT DO
CASE ASC("M")
MediumLtrs
EXIT DO
CASE ASC("O")
OutLineLtrs
EXIT DO
CASE ASC("S")
ShadowLtrs
EXIT DO
CASE ASC("X")
GOSUB EndProgram
CASE ELSE
END SELECT
LOOP
LOOP

ErrorProc:
COLOR 0, 3: CLS : Frame 3, 16, 4, 88, 3
SELECT CASE ERR
CASE 5, 13
Spot 2, 18: PRINT "* * * P R O G R A M M I N G E R R O R * * *"
Spot 2, 18: PRINT "Illegal Function Call or Type Mismatch"
CASE 25, 68, 71
Spot 2, 18: PRINT "* * * D E V I C E E R R O R * * *"
Spot 2, 18: PRINT "PRINTER or DISK DRIVE Not Ready/Available"
CASE 52, 63, 64
Spot 2, 18: PRINT "* * *F I L E or R E C O R D E R R O R * * *"
Spot 2, 18: PRINT "Bad Record Number (-0?-), OR Bad File Name"
Spot 1, 18: PRINT "Create records and files if necessary"
CASE ELSE:
END SELECT
Spot 2, 18: PRINT "* * ERROR NUMBER * * ÉÍÍͯ ";
COLOR 15, 1: PRINT ERR: COLOR 0, 3
Spot 2, 18: LINE INPUT "Press To Return to MENU....."; anyk$
RESUME Menu

EndProgram:
COLOR 0, 3: CLS : SYSTEM

SUB BoldFile (Msg$)
BoldTxt$ = ""
L% = LEN(Msg$)
FOR q% = 1 TO 8
FOR K% = 1 TO L%
r% = INSTR(BoldData$, (MID$(Msg$, K%, 1)))
IF r% = 0 THEN r% = 53
BoldTxt$ = BoldTxt$ + Alpha$(r%, q%)
NEXT K%
place% = INT(82 - LEN(BoldTxt$)) / 2
PRINT #1, "x% = x% + 1: LOCATE x%,"; STR$(place%); " : PRINT "; CHR$(34); BoldTxt$; CHR$(34)
BoldTxt$ = ""
NEXT q%
END SUB

SUB BoldLtrs
DO UNTIL Alpha$(1, 1) <> ""
COLOR 0, 3, 8: CLS : Frame 3, 12, 10, 88, 2
Center 2, Wait$
COLOR 20, 3: Center 2, Load$
CLOSE : OPEN "bold.fnt" FOR RANDOM AS 1
CLOSE : OPEN "bold.fnt" FOR INPUT AS 1
Size = LOF(1)
IF Size < 10 THEN
COLOR 31, 4
Center 4, NotFound$
SLEEP (2)
EXIT SUB
END IF
FOR Beta% = 1 TO 80
FOR r% = 1 TO 8
INPUT #1, Alpha$(Beta%, r%)
NEXT r%
NEXT Beta%
LOOP
CLOSE
TopLine 1, "USING LETTERS, NUMBERS, AND SYMBOLS ®¯ LIMIT OF [-9-] CHARACTERS"
InpScreen
x% = 8: Spot 7, 40: LINE INPUT Title$
IF LEN(Title$) = 0 THEN EXIT SUB
IF LEN(Title$) > 9 THEN Title$ = LEFT$(Title$, 9)
Spot 2, 6
LINE INPUT ; "Save Title on Disk as : { File Name + .BAS extension } "; FileName$
Center 2, "Saving Title in Disk File " + CHR$(34) + FileName$ + CHR$(34)
IF FileName$ = "" THEN EXIT SUB
OPEN FileName$ FOR OUTPUT AS 1
BoldFile Title$
WhatNow
OutputScreen
END SUB

SUB Center (Down%, Text$)
x% = x% + Down%
p% = INT((82 - LEN(Text$)) / 2)
LOCATE x%, p%: PRINT Text$;
END SUB

SUB DownSizeFile (DSMsg$)
DownTxt$ = ""
L% = LEN(DSMsg$)
FOR Easy% = 1 TO 3
FOR K% = 1 TO L%
rr% = INSTR(DSData$, (MID$(DSMsg$, K%, 1)))
DownTxt$ = DownTxt$ + Charlie$(rr%, Easy%)
NEXT K%
place% = INT(82 - LEN(DownTxt$)) / 2
PRINT #1, "x% = x% + 1: LOCATE x%,"; STR$(place%); " : PRINT "; CHR$(34); DownTxt$; CHR$(34)
DownTxt$ = ""
NEXT Easy%
END SUB

SUB DownSizeLtrs
DO UNTIL Charlie$(1, 1) <> ""
COLOR 0, 3, 8: CLS : Frame 3, 12, 10, 88, 2
Center 2, Wait$
COLOR 20, 3: Center 2, "L O A D I N G F O N T S"
CLOSE : OPEN "downsize.fnt" FOR RANDOM AS 1
CLOSE : OPEN "downsize.fnt" FOR INPUT AS 1
Size = LOF(1)
IF Size < 10 THEN
COLOR 31, 4
Center 4, NotFound$
SLEEP (2)
EXIT SUB
END IF
FOR Easy% = 1 TO 37
FOR rr% = 1 TO 3
INPUT #1, Charlie$(Easy%, rr%)
NEXT rr%
NEXT Easy%
LOOP
CLOSE
TopLine 1, "USING DOWNSIZE CHARACTERS ®¯ LIMIT OF [-18-] LETTERS AND NUMBERS"
InpScreen
x% = 8: Spot 7, 40: LINE INPUT Down$
Down$ = UCASE$(Down$)
IF LEN(Down$) = 0 THEN EXIT SUB
IF LEN(Down$) > 18 THEN Down$ = LEFT$(Down$, 18)
Spot 2, 6
LINE INPUT ; "Save Title on Disk as : { File Name + .BAS extension } "; FileName$
Center 2, "Saving Title in Disk File " + CHR$(34) + FileName$ + CHR$(34)
IF FileName$ = "" THEN EXIT SUB
OPEN FileName$ FOR OUTPUT AS 1
DownSizeFile Down$
WhatNow
OutputScreen
END SUB

SUB Frame (Row%, LRow%, Col%, Wide%, Style%)
ss% = 80 - (Col% * 2)
IF Wide% > 80 THEN Wide% = ss%
Rw% = Row%: LRw% = LRow%
SELECT CASE Style%
CASE 1, 11
LOCATE Row%, Col%: PRINT CHR$(218); STRING$(Wide%, 196); CHR$(191);
Side% = 179: GOSUB SideLines:
LOCATE Row%, Col%: PRINT CHR$(192); STRING$(Wide%, 196); CHR$(217);
CASE 2, 22
LOCATE Row%, Col%: PRINT CHR$(201); STRING$(Wide%, 205); CHR$(187);
Side% = 186: GOSUB SideLines
LOCATE Row%, Col%: PRINT CHR$(200); STRING$(Wide%, 205); CHR$(188);
CASE 3, 33
LOCATE Row%, Col%: PRINT CHR$(219); STRING$(Wide%, 223); CHR$(219);
Side% = 219: GOSUB SideLines
LOCATE Row%, Col%: PRINT CHR$(219); STRING$(Wide%, 220); CHR$(219);
CASE ELSE
END SELECT
IF Style% > 10 THEN
COLOR ShadColr
FOR Rw% = Rw% + 1 TO LRw% + 1
LOCATE Rw%, Col% + Wide% + 2: PRINT STRING$(2, 219);
NEXT
LOCATE Rw%, Col% + 2: PRINT STRING$(Wide% + 2, 219);
END IF
x% = 3
EXIT SUB

SideLines:
FOR Row% = Row% + 1 TO LRow%: LOCATE Row%, Col%
PRINT CHR$(Side%); SPACE$(Wide%); CHR$(Side%): NEXT
RETURN
END SUB

FUNCTION GetKey%
DO
ch$ = INKEY$
LOOP UNTIL LEN(ch$) > 0
IF LEN(ch$) = 1 THEN
GetKey% = ASC(UCASE$(ch$))
ELSE
GetKey% = -1 * ASC(RIGHT$(ch$, 1))
END IF
END FUNCTION

SUB HelpFile
COLOR 0, 3, 0: CLS
DO WHILE Help$ = ""
Frame 3, 4, 12, 88, 1: Center 1, "W O R K I N G"
HelpText = FREEFILE
OPEN "title.hlp" FOR BINARY AS HelpText
Size% = LOF(HelpText)
IF Size% < 10 THEN
LOCATE 10, 30: PRINT "Help File Not Found"
SLEEP (2)
EXIT SUB
END IF
Help$ = STRING$(Size%, 32)
GET HelpText, , Help$
CLOSE HelpText
LOOP

m% = 1
DO
CLS
IF m% <= 0 THEN m% = 1
FOR x% = 1 TO 25: LOCATE x%, 1: PRINT MID$(Help$, m%, 80);
m% = m% + 80
NEXT
DO
SELECT CASE GetKey%
CASE PgDn
EXIT DO
CASE PgUp
m% = m% - 4000
EXIT DO
CASE Esc
EXIT SUB
CASE ELSE
END SELECT
LOOP
IF m% >= Size% THEN m% = Size% - 1999
LOOP
END SUB

SUB InpScreen
COLOR 15, 1, 8: x% = 3
Spot 1, 6: PRINT "ÉÍÍÍ» ËÍÍÍ» ÉÍÍÍ» ÉÍÍÍ» ÉÍËÍ» ÉÍÍÍ» ÉÍËÍ» Õ˸ ÉÍËÍ» Ë ÉÍÍÍ»"
Spot 1, 6: PRINT "º ÌÍÍ˼ Ì͵ ÌÍÍ͹ º Ì͵ º º º º Ì͵"
Spot 1, 6: PRINT "ÈÍÍͼ ¼ ÈÍ ÈÍÍͼ ¼ È Ê ÈÍÍͼ Ê Ôʾ Ê ÈÍÍͼ ÈÍÍͼ"
COLOR 0, 3: Frame 8, 22, 1, 88, 2
Center 6, "For Some Fonts Only Characters A - Z, and Spaces Can Be Converted"
Center 2, "For Bold and Medium, Alpha Numeric Characters and Symbols can be Converted."
Center 2, "See Top of Screen for [Character Limit] - Also See Help File."
Spot 2, 8: PRINT "[Enter Characters for TITLE:]"
LOCATE x%, 40: COLOR 1, 7: PRINT STRING$(18, 176)
COLOR 0, 3
END SUB

SUB Logon
TopLine 25, " Version 2.1 "
COLOR 4, 7: Frame 4, 18, 10, 88, 33
p% = 21: COLOR 0
Spot 3, p%: PRINT "±±±±±±Ü ±Ü ±±±±±±Ü ±±Ü ±±±±±±Ü"
Spot 1, p%: PRINT " ß±±Ûßß ±Û ß±±Ûßß ±±Û ±±Ûßßßß"
Spot 1, p%: PRINT " ±±Û ±Û ±±Û ±±Û ±±±±±Ü"
Spot 1, p%: PRINT " ±±Û ±Û ±±Û ±±Û ±±Ûßßß"
Spot 1, p%: PRINT " ±±Û ±Û ±±Û ±±±±±±Ü ±±±±±±Ü"
Spot 1, p%: PRINT " ßß ßß ßß ßßßßßß ßßßßßß"
p% = 16: COLOR 1
Spot 2, p%: PRINT "ÞÛÛÛÛÜ Û Û ÞÛÛÛÝ ÞÛÝ ÞÛÛÛÛÜ ÞÛßßÛÛ ÞÛÛÛÛÛ"
Spot 1, p%: PRINT " Û Û Û Û Û Û Û Û Û Û Û"
Spot 1, p%: PRINT " ÛÛÛÛÝ Û Û Û Û Û Û ÛÛÛ ÛÜÜÜÛ"
Spot 1, p%: PRINT " Û Û Û Û Û Û Ü Û Û Û ÛßÛÜ "
Spot 1, p%: PRINT "ÞÛÛÛÛß ßÛÛÛß ÞÛÛÛÝ ÛÛÛÛÛ ÞÛÛÛÛß ÞÛÜÜÛÛ ÞÛ ßÛ"
COLOR 15, 1: Center 5, ""
SLEEP (5)
END SUB

SUB MediumFile (MediumMsg$)
MediumTxt$ = ""
L% = LEN(MediumMsg$)
FOR Easy% = 1 TO 6
FOR K% = 1 TO L%
rr% = INSTR(MediumData$, (MID$(MediumMsg$, K%, 1)))
MediumTxt$ = MediumTxt$ + Delta$(rr%, Easy%)
NEXT K%
place% = INT(82 - LEN(MediumTxt$)) / 2
PRINT #1, "x% = x% + 1: LOCATE x%,"; STR$(place%); " : PRINT "; CHR$(34); MediumTxt$; CHR$(34)
MediumTxt$ = ""
NEXT Easy%
END SUB

SUB MediumLtrs
DO UNTIL Delta$(1, 1) <> ""
COLOR 0, 3, 8: CLS : Frame 3, 12, 10, 88, 2
Center 2, Wait$
COLOR 20, 3: Center 2, "L O A D I N G F O N T S"
CLOSE : OPEN "medium.fnt" FOR RANDOM AS 1
CLOSE : OPEN "medium.fnt" FOR INPUT AS 1
Size = LOF(1)
IF Size < 10 THEN
COLOR 31, 4
Center 4, NotFound$
SLEEP (2)
EXIT SUB
END IF
FOR Easy% = 1 TO 80
FOR rr% = 1 TO 6
INPUT #1, Delta$(Easy%, rr%)
NEXT rr%
NEXT Easy%
LOOP
CLOSE
TopLine 1, "USING MEDIUM CHARACTERS ®¯ LIMIT OF [-11-] LETTERS, NUMBERS, SYMBOLS"
InpScreen
x% = 8: Spot 7, 40: LINE INPUT Medium$
IF LEN(Medium$) = 0 THEN EXIT SUB
IF LEN(Medium$) > 11 THEN Medium$ = LEFT$(Medium$, 11)
Spot 2, 6
LINE INPUT ; "Save Title on Disk as : { File Name + .BAS extension } "; FileName$
Center 2, "Saving Title in Disk File " + CHR$(34) + FileName$ + CHR$(34)
IF FileName$ = "" THEN EXIT SUB
OPEN FileName$ FOR OUTPUT AS 1
MediumFile Medium$
WhatNow
OutputScreen
END SUB

SUB OutLineFile (OLMsg$)
OutTxt$ = ""
L% = LEN(OLMsg$)
FOR Easy% = 1 TO 4
FOR K% = 1 TO L%
rr% = INSTR(OutLineData$, (MID$(OLMsg$, K%, 1)))
OutTxt$ = OutTxt$ + Queen$(rr%, Easy%)
NEXT K%
place% = INT(82 - LEN(OutTxt$)) / 2
PRINT #1, "x% = x% + 1: LOCATE x%,"; STR$(place%); " : PRINT "; CHR$(34); OutTxt$; CHR$(34)
OutTxt$ = ""
NEXT Easy%
END SUB

SUB OutLineLtrs
DO UNTIL Queen$(1, 1) <> ""
COLOR 0, 3, 8: CLS : Frame 3, 12, 10, 88, 2
Center 2, Wait$
COLOR 20, 3: Center 2, "L O A D I N G F O N T S"
CLOSE : OPEN "outline.fnt" FOR RANDOM AS 1
CLOSE : OPEN "outline.fnt" FOR INPUT AS 1
Size = LOF(1)
IF Size < 10 THEN
COLOR 31, 4
Center 4, NotFound$
SLEEP (2)
EXIT SUB
END IF
FOR Easy% = 1 TO 37
FOR rr% = 1 TO 4
INPUT #1, Queen$(Easy%, rr%)
NEXT rr%
NEXT Easy%
LOOP
CLOSE
TopLine 1, "USING OUTLINE LETTERS AND NUMBERS ®¯ LIMIT OF [-8-] CHARACTERS"
InpScreen
x% = 8: Spot 7, 40: LINE INPUT OutLine$
OutLine$ = UCASE$(OutLine$)
IF LEN(OutLine$) = 0 THEN EXIT SUB
IF LEN(OutLine$) > 8 THEN OutLine$ = LEFT$(OutLine$, 8)
Spot 2, 6
LINE INPUT ; "Save Title on Disk as : { File Name + .BAS extension } "; FileName$
Center 2, "Saving Title in Disk File " + CHR$(34) + FileName$ + CHR$(34)
IF FileName$ = "" THEN EXIT SUB
OPEN FileName$ FOR OUTPUT AS 1
OutLineFile OutLine$
WhatNow
OutputScreen
END SUB

SUB OutputScreen
COLOR 0, 3: Frame 12, 22, 2, 88, 2
Center 11, "Data for QuickBasic Print Statements to center and print the above"
Center 1, "Caption is stored on disk in File named [ " + CHR$(34) + FileName$ + CHR$(34) + " ]"
Center 2, "®®® <> ¯¯¯"
Center 2, "You can now load your Main Module and merge this ASCII file into it."
Center 2, "®®® <> ¯¯¯"
Center 2, "¹ Press to continue Ì"
LINE INPUT anyk$
END SUB

SUB ProgramChoice
COLOR 1, 1, 4: CLS : COLOR 1, 7: Frame 1, 2, 1, 88, 2
x% = 1: Center 1, "YE OLE' TITLE BUILDING PROGRAM"
COLOR 4, 7: Frame 12, 22, 6, 88, 33
p% = 12: COLOR 14, 1
Spot 2, p%: PRINT "ÛÛÛÛÛ Ü ÛÜ ÜÛ"
Spot 1, p%: PRINT " Û Û ÛÛÜÛÛ"
Spot 1, p%: PRINT " Û ÛÜÜÜÜ ÜÜÜÜÜ Û Û Û ÜÜÜÜÜ ÛÜÜÜÜ Ü Ü"
Spot 1, p%: PRINT " Û Û Û ÛÜÜÜÛ Û Û ÛÜÜÜÛ Û Û Û Û"
Spot 1, p%: PRINT " Û Û Û ÛÜÜÜÜ Û Û ÛÜÜÜÜ Û Û ÛÜÜÜÛ"
p% = 8: COLOR 0, 7: Spot 4, p%
PRINT "old Characters [U&L] [8 x 8]"; TAB(43); "hadow Letters [CAPS] [7x9]"
Spot 2, p%
PRINT "utline [CAPS & Numbers] [4x8]"; TAB(43); "edium Charct [U&L] [6 x 6]"
Spot 2, p%
PRINT "ownSize Letters [CAPS] [3x4]"; TAB(43); "elp - How to Build Title"
Spot 2, 33: PRINT "eit The Program"
x% = 11: p% = 9: COLOR 14
Spot 2, p%: PRINT "B": LOCATE x%, 44: PRINT "S"
Spot 2, p%: PRINT "O": LOCATE x%, 44: PRINT "M"
Spot 2, p%: PRINT "D": LOCATE x%, 44: PRINT "H"
Spot 2, 35: PRINT "X"
COLOR 1: Frame 20, 21, 14, 88, 1
Center 18, "SELECT B - S - O - M - D - H - X"
END SUB

SUB ShadowFile (ShadowMsg$)
ShadowTxt$ = ""
L% = LEN(ShadowMsg$)
FOR Easy% = 1 TO 7
FOR K% = 1 TO L%
rr% = INSTR(ShadowData$, (MID$(ShadowMsg$, K%, 1)))
ShadowTxt$ = ShadowTxt$ + Sugar$(rr%, Easy%)
NEXT K%
place% = INT(82 - LEN(ShadowTxt$)) / 2
PRINT #1, "x% = x% + 1: LOCATE x%,"; STR$(place%); " : PRINT "; CHR$(34); ShadowTxt$; CHR$(34)
ShadowTxt$ = ""
NEXT Easy%
END SUB

SUB ShadowLtrs
DO UNTIL Sugar$(1, 1) <> ""
COLOR 0, 3, 8: CLS : Frame 3, 12, 10, 88, 2
Center 2, Wait$
COLOR 20, 3: Center 2, Load$
CLOSE : OPEN "shadow.fnt" FOR RANDOM AS 1
CLOSE : OPEN "shadow.fnt" FOR INPUT AS 1
Size = LOF(1)
IF Size < 10 THEN
COLOR 31, 4
Center 4, NotFound$
SLEEP (2)
EXIT SUB
END IF
FOR Easy% = 1 TO 27
FOR rr% = 1 TO 7
INPUT #1, Sugar$(Easy%, rr%)
NEXT rr%
NEXT Easy%
LOOP
CLOSE
TopLine 1, "USING SHADOW PRINT ®¯ LIMIT OF [-8-] LETTERS"
InpScreen
x% = 8: Spot 7, 40: LINE INPUT Shadow$
Shadow$ = UCASE$(Shadow$)
IF LEN(Shadow$) = 0 THEN EXIT SUB
IF LEN(Shadow$) > 8 THEN Shadow$ = LEFT$(Shadow$, 8)
Spot 2, 6
LINE INPUT ; "Save Title on Disk as : { File Name + .BAS extension } "; FileName$
Center 2, "Saving Title in Disk File " + CHR$(34) + FileName$ + CHR$(34)
IF FileName$ = "" THEN EXIT SUB
OPEN FileName$ FOR OUTPUT AS 1

ShadowFile Shadow$
WhatNow
OutputScreen
END SUB

SUB Spot (Down%, Over%)
x% = x% + Down%: LOCATE x%, Over%
END SUB

SUB TopLine (Where%, Text$)
COLOR 1, 1, 8: CLS
SELECT CASE Where%
CASE 1
ch% = 196
Text$ = "´ " + Text$ + " Ã"
COLOR 14, 4
CASE 25
ch% = 240
Text$ = "ÛÜÜ " + Text$ + " ÜÜÛ"
COLOR 15, 2
CASE ELSE
END SELECT
p% = INT(80 - LEN(Text$)) / 2
LOCATE Where%, 1: PRINT STRING$(80, ch%);
LOCATE Where%, p%: PRINT Text$;
COLOR 0, 3
END SUB

SUB WhatNow
Center 2, "Now we'll read file and display on screen."
Center 2, "¹ Press to continue Ì"
LINE INPUT anyk$
CLOSE : OPEN FileName$ FOR INPUT AS 1
COLOR 2, 0, 4: CLS : x% = 1
WHILE NOT EOF(1)
LINE INPUT #1, Display$
Center 1, MID$(Display$, 37, LEN(Display$) - 37)
WEND
CLOSE #1
END SUB