home *** CD-ROM | disk | FTP | other *** search
/ PC Consument 1997 #6 / pc-consument-1997-6.iso / thoolen / 00000001.exe / rar / PIC2SPF.BAS < prev    next >
BASIC Source File  |  1997-04-22  |  1KB  |  53 lines
  1. Com$ = COMMAND$                     'Als dit niet werkt, zet dan een ' vooraan
  2. IF Com$ <> "" THEN
  3.    DIM a$(1 TO 2)
  4.    a = 1
  5.    FOR b = 1 TO LEN(Com$)
  6.       b$ = MID$(Com$, b, 1)
  7.       a$(a) = RTRIM$(a$(a) + b$)
  8.       IF b$ = " " THEN a = a + 1
  9.       IF a = 3 THEN a = 2
  10.    NEXT b
  11. END IF
  12. Pic$ = a$(1)
  13. Spf$ = a$(2)
  14. IF Pic$ = "" THEN LINE INPUT "PIC-bestand: "; Pic$
  15. IF Spf$ = "" THEN
  16.    Spf$ = LEFT$(Pic$, INSTR(Pic$, ".")) + "SPF"
  17. END IF
  18. OPEN Spf$ FOR OUTPUT AS #1
  19.    OPEN Pic$ FOR INPUT AS #2
  20.       FOR a = 0 TO 320
  21.          FOR b = 0 TO 200
  22.             INPUT #2, c
  23.          NEXT b
  24.       NEXT a
  25.       PRINT #1, "256"
  26.       FOR d = 1 TO 256
  27.          INPUT #2, c, b, a
  28.          PRINT #1, 65536 * a + 256 * b + c
  29.       NEXT d
  30.    CLOSE #2
  31.    OPEN Pic$ FOR INPUT AS #2
  32.       k = 0
  33.       e = 0
  34.       a$ = "BM0,0C0"
  35.       FOR a = 0 TO 320
  36.          FOR b = 0 TO 200
  37.             INPUT #2, c
  38.             IF c <> k THEN
  39.                k = c
  40.                a$ = a$ + "D" + LTRIM$(STR$(e))
  41.                a$ = a$ + "C" + LTRIM$(STR$(c))
  42.                e = 0
  43.             END IF
  44.             e = e + 1
  45.             IF LEN(a$) > 70 THEN PRINT #1, a$: a$ = ""
  46.          NEXT b
  47.          a$ = a$ + "BR1BU201"
  48.       NEXT a
  49.       PRINT #1, a$
  50.    CLOSE #2
  51. CLOSE #1
  52.  
  53.