home *** CD-ROM | disk | FTP | other *** search
/ PC Consument 1997 #6 / pc-consument-1997-6.iso / thoolen / 00000001.exe / rar / SPFVIEW.BAS < prev    next >
BASIC Source File  |  1997-04-22  |  339b  |  18 lines
  1. FILES "*.spf"
  2. LINE INPUT "SPF-bestand: "; Spf$
  3. a = INSTR(Spf$, ".")
  4. IF a = 0 THEN Spf$ = Spf$ + ".SPF"
  5. SCREEN 13
  6. OPEN Spf$ FOR INPUT AS #1
  7.    INPUT #1, KleurenTotaal
  8.    FOR a = 1 TO KleurenTotaal
  9.       INPUT #1, b
  10.       PALETTE a - 1, b
  11.    NEXT a
  12.    DO UNTIL EOF(1)
  13.       LINE INPUT #1, a$
  14.       DRAW a$
  15.    LOOP
  16. CLOSE #1
  17.  
  18.