' "**************************************************************"
' "*     PROGRAMIRANJE REKLAMA sa 3 komada EPROM-a              *"
' "*     Verzija: 2.0    16.09.1992.                            *"
' "*     Copyright (C) 1992. by: Stankovic Goran dipl.ing.el.   *"
' "*     www.qsl.net/yt2fsg      goranstank@email.com           *"
' "**************************************************************"
CLS
PRINT "**************************************************************"
PRINT "*     PROGRAMIRANJE REKLAMA sa 3 komada EPROM-a              *"
PRINT "*     Verzija: 2.0    16.09.1992.                            *"
PRINT "*     Copyright (C) 1992. by: Stankovic Goran dipl.ing.el.   *"
PRINT "**************************************************************"
PRINT
PRINT
PRINT
pocetak:

'-------------------------------------------------------------
CLOSE
PRINT "Program za programiranje reklama sa 24 sijalice."
PRINT "Koristiti 3 komada EPROM-a od 8 KB ."
PRINT
EPROMmem% = 8 * 1024 - 1

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

hop2:
PRINT
LINE INPUT " File (*.BN*) >"; imef20$
imef20$ = UCASE$(imef20$)
IF LEN(imef20$) < 1 THEN
  PRINT
  FILES "*.BN*"
  GOTO hop2
END IF
imef21$ = imef20$ + ".BN1"
imef22$ = imef20$ + ".BN2"
imef23$ = imef20$ + ".BN3"



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

OPEN imef1$ FOR INPUT AS #1
OPEN imef21$ FOR OUTPUT AS #2
OPEN imef22$ FOR OUTPUT AS #3
OPEN imef23$ FOR OUTPUT AS #4

GOSUB posao1

CLOSE
END


' ----------------------------------------
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% < 24 THEN
         PRINT " GRESKA u liniji br:"; brl%; " Linija je kraca od 24 znaka. "
         GOTO rip2
       END IF
         b1% = 0
         FOR i% = 0 TO 7
           aa$ = MID$(red$, i% + 1, 1)
           IF aa$ = "*" THEN
             b11% = 0
           ELSE
             b11% = 1
           END IF
           b1% = b1% + b11% * 2 ^ i%
         NEXT i%
         bin1% = b1%
         b1% = 0
         FOR i% = 0 TO 7
           aa$ = MID$(red$, i% + 9, 1)
           IF aa$ = "*" THEN
             b11% = 0
           ELSE
             b11% = 1
           END IF
           b1% = b1% + b11% * 2 ^ i%
         NEXT i%
         bin2% = b1%
         b1% = 0
         FOR i% = 0 TO 7
           aa$ = MID$(red$, i% + 17, 1)
           IF aa$ = "*" THEN
             b11% = 0
           ELSE
             b11% = 1
           END IF
           b1% = b1% + b11% * 2 ^ i%
         NEXT i%
         bin3% = b1%
         PRINT #2, CHR$(bin1%);
         PRINT #3, CHR$(bin2%);
         PRINT #4, CHR$(bin3%);
         brb% = brb% + 1
       PRINT "  => "; bin1%; " "; bin2%; " "; bin3%
    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
PRINT
PRINT
PRINT "PUNIM EPROM-e DO KRAJA.     MOLIM SACEKAJTE ..."
FOR i% = brb% TO EPROMmem%
  PRINT #2, CHR$(255);
  PRINT #3, CHR$(255);
  PRINT #4, CHR$(255);
NEXT i%

RETURN