home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / SMALLFNT.ZIP / EXAMPLE.BAS < prev    next >
BASIC Source File  |  1990-02-15  |  331b  |  17 lines
  1.    REM $INCLUDE: 'smallfnt.bi'
  2.  
  3.    DEFINT A-Z
  4.    REDIM SmallFont(0 TO 320)
  5.    SCREEN 2
  6.    InitSmallFont SmallFont()
  7.    OPEN "example.txt" FOR INPUT AS #1
  8.    DO UNTIL EOF(1)
  9.       LINE INPUT #1, Text$
  10.       SmallPrint SmallFont(), Text$ + CHR$(13) + CHR$(10)
  11.    LOOP
  12.    CLOSE
  13.    DO
  14.    LOOP UNTIL LEN(INKEY$)
  15.    END
  16.  
  17.