' "*******************************************************************"
' "* Pretvaranje TXT formata u FNT format za znakove reklamnog panoa *"
' "*     Copyright (C) 1993. by: Stankovic Goran dipl.ing.el.        *"
' "*     www.qsl.net/yt2fsg      goranstank@email.com                *"
' "*******************************************************************"
CLS
pocetak:
PRINT "*******************************************************************"
PRINT "* Pretvaranje TXT formata u FNT format za znakove reklamnog panoa *"
PRINT "*     Copyright (C) 1993. by: Stankovic Goran dipl.ing.el.        *"
PRINT "*******************************************************************"

CLOSE
hop1:
PRINT
LINE INPUT " File (*.TXT)  >"; imef1$
imef1$ = UCASE$(imef1$)
IF LEN(imef1$) < 1 THEN
  PRINT
  FILES "*.TXT"
  GOTO hop1
END IF
imef11$ = imef1$ + ".TXT"
imef21$ = imef1$ + ".FNT"

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

OPEN imef11$ FOR INPUT AS #1
OPEN imef21$ FOR OUTPUT AS #2

posao1:
brl% = 0
brb% = 0
DO
  pr% = 0: er% = 0
  LINE INPUT #1, red$
  duz% = LEN(red$)
  IF duz% > 0 THEN
    PRINT brl%; ": "; red$;
    IF LEFT$(red$, 1) = " " OR LEFT$(red$, 1) = "*" THEN
       IF duz% < 64 THEN
         PRINT " GRESKA u liniji br:"; brl%; " Linija je kraca od 64 znaka. "
         GOTO rip2
       END IF
       PRINT " => ";
       FOR j% = 0 TO 7
         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%);
         PRINT b1%;
         brb% = brb% + 1
       NEXT j%
       PRINT
    ELSE
      PRINT
    END IF
  END IF
rip2:
  brl% = brl% + 1
  key$ = INKEY$
  IF EOF(1) OR key$ = CHR$(0) + CHR$(68) THEN EXIT DO
LOOP

CLOSE
END