' "****************************************************************"
' "* Pretvaranje TXT formata u SCR format za RKLAMNI PANO  128x64 *"
' "* Copyright (C) 1993. by: Stankovic Goran dipl.ing.el.         *"
' "* www.qsl.net/yt2fsg      goranstank@email.com                 *"
' "****************************************************************"
DIM bin%(16)
CLS
PRINT "****************************************************************"
PRINT "* Pretvaranje TXT formata u SCR format za RKLAMNI PANO  128x64 *"
PRINT "*     Copyright (C) 1993. by: Stankovic Goran dipl.ing.el.     *"
PRINT "****************************************************************"
PRINT
pocetak:
CLOSE
hop1:
PRINT
LINE INPUT " File (*.TXT)  >"; imef$
imef$ = UCASE$(imef$)
IF LEN(imef$) < 1 THEN
  PRINT
  FILES "*.TXT"
  GOTO hop1
END IF
imef1$ = imef$ + ".TXT"
imef2$ = imef$ + ".SCR"

CLS
PRINT " Prevodi podatke iz fajla "; imef1$; " na fajl "; imef2$; "     < F10 >  Exit"
PRINT "_____________________________________________________________________________"

OPEN imef1$ FOR INPUT AS #1
OPEN imef2$ FOR OUTPUT AS #2
' ----------------------------------------
posao1:
brl% = 0: brb% = 0
DO
  LINE INPUT #1, red$
  PRINT brl%; ": "; red$;
  duz% = LEN(red$)
  IF duz% > 0 THEN
    IF LEFT$(red$, 1) = " " OR LEFT$(red$, 1) = "*" THEN
       IF duz% < 128 THEN
         PRINT " GRESKA u liniji br:"; brl%; " Linija je kraca od 128 znaka. "
         GOTO rip2
       END IF
       FOR j% = 0 TO 15
         b1% = 0
         FOR i% = 0 TO 7
           aa$ = MID$(red$, i% + 1 + j% * 8, 1)
           IF aa$ = "*" THEN
             b11% = 1
           ELSE
             b11% = 0
           END IF
           b1% = b1% + b11% * 2 ^ (7 - i%)
         NEXT i%
         PRINT #2, CHR$(b1%);
         brb% = brb% + 1
         bin%(j%) = b1%
       NEXT j%
       PRINT "  => ";
       FOR j% = 0 TO 15
              PRINT bin%(j%); ",";
       NEXT j%
       PRINT
    ELSE
      PRINT
    END IF
  END IF
rip2:
  brl% = brl% + 1
  IF brb% >= 1023 THEN EXIT DO
  key$ = INKEY$
  IF EOF(1) OR key$ = CHR$(0) + CHR$(68) THEN EXIT DO
LOOP
  IF brb% < 1023 THEN
    FOR i% = brb% TO 1023
      PRINT #2, CHR$(0);
    NEXT i%
  END IF
CLOSE
END