10  '--------------------------------------------------------------------
20  '       TRASFERIMENTO MULTIPLO TRA  C200-ASC02 E C200HS                
30  '   -  Il programm12a realizza i seguenti trasferimenti:                
40  '                                                                       
50  '         PLC        <---    ASCI BASIC                                 
60  '                                                                       
70  '   STAMPANTE SERIALE PANASONIC:                                        
75  '                  9600, 8 BIT NO PARITY, XON XOFF, STOP BITS 1         
80  '                                                                       
90  '  DM1100-DM1109: NOME PRODOTTO (ASCII)                                 
100 '  DM1110-DM1119: NOME IMPIANTO (ASCII)                                 
110 '  DM1120       : TESTA DI PRODUZIONE (ASCII)                           
120 '                                                                       
130 '  DM1200-DM1210: DATI NUMERICI                                         
140 '                                                                       
150 '                                                                       
160 '                                                                       
165 '-----------------------------------------------------------------------
170 CLEAR 5000
180 DIM TBNUM(20)
190 LTPREC%=0:TBSTR$="":INIZIO%=0:FLAGINCH%=0
200 'LETTURA FLAG DI STAMPA DA PLC -> DM3700
210 PC READ "@D,1200,1,I4";INIZIO%
220 IF INIZIO% <> 0 AND LTPREC% <> INIZIO% THEN GOSUB 300
230 LTPREC%=INIZIO%
240 GOTO 200
300 'INIZIO ROUTINE LETTURA DATI DA PLC E INVIO ALLA STAMPANTE
310 PC READ "@D,1100,21,21A3";TBSTR$
320 PC READ "@D,1201,10,S10I4";TBNUM(1)
330 PRODOTTO$=MID$(TBSTR$,1,20)
340 PLANT$=MID$(TBSTR$,21,20)
350 TESTA$=MID$(TBSTR$,41,1)
400 S$=STR$(TBNUM(1))
410 M$=STR$(TBNUM(2))
420 O$=STR$(TBNUM(3))
430 GIORNI$=STR$(TBNUM(4))
440 MESI$=STR$(TBNUM(5))
450 ANNI$=STR$(TBNUM(6))
454 DEC%=TBNUM(7) MOD 10
458 IF DEC% < 4 THEN PESO%=TBNUM(7)\10 ELSE PESO%=TBNUM(7)\10+1
460 NETTO$=STR$(PESO%)
470 TARA$=STR$(TBNUM(8))
480 P1$=STR$(TBNUM(10))
482 P20$=STR$(TBNUM(9))
486 P2$="0000"+RIGHT$(P20$,((LEN(P20$))-1))
490 IF TBNUM(10)<>0 THEN PROG$=P1$+RIGHT$(P2$,4) ELSE PROG$=P2$
500 T$=O$+"."+M$+"."+S$
510 TDATA$=GIORNI$+"/"+MESI$+"/"+ANNI$
600 '------------------------------ Apro la Porta di comunicazione N°2
650 OPEN #2,"COMU:(59)"
700 PRINT #2, CHR$(27)+"!"+CHR$(56)
710 '-------------------------------Inizio stampa
720 GOSUB 2000
750 CLOSE #2
760 ZERO%=0
770 PC WRITE "@D,1200,1,I4";ZERO%
780 RETURN
2000 ' ----------------------------sub Stampa
2010 PRINT #2,CHR$(2)+"M3000"
2020 PRINT #2,CHR$(2)+"e"
2030 PRINT #2,CHR$(2)+"f258"
2040 PRINT #2,CHR$(2)+"O0210"
2050 PRINT #2,CHR$(2)+"V0"
2060 PRINT #2,CHR$(2)+"L"
2070 PRINT #2,"D11"
2080 PRINT #2,"PC"
2090 PRINT #2,"SE"
2100 PRINT #2,"H15"
2110 PRINT #2,"z"
2120 '''''''''''''''''''''''''''''''
2200 PRINT #2,"491100600220197"+ PRODOTTO$
2210 PRINT #2,"491100500220256"+ TDATA$
2220 PRINT #2,"491100501240256"+ T$
2230 'PRINT #2,"491100600590315"+ CODICE ANNO
2240 PRINT #2,"491100602760374"+ PLANT$
2250 PRINT #2,"491100601580374"+ TARA$
2260 PRINT #2,"491100600400374"+ NETTO$
2270 PRINT #2,"491101003150315"+ PROG$
2280 PRINT #2,"491101002560315"+ TESTA$
2400 ''''''''''''''''''''''''''''''''''
2410 PRINT #2,"491100100400268"+ "Date Time"
2420 'PRINT #2,"491100102200327"+ "Year Code  / Day Code"
2430 PRINT #2,"491100100400386"+ "Net Weight Kg."
2440 PRINT #2,"491100102560327"+ "Head / Bag Number"
2450 PRINT #2,"491100101500386"+ "Tare Kg."
2460 PRINT #2,"491100102560386"+ "Plant"
2470 PRINT #2,"491100100400205"+ "Product Code"
2480 'PRINT #2,"491101000200118"+ "LOGO CLIENTE"
2600 ''''''''''''''''''''''''''''''''''
2610 PRINT #2,"4X1100002370217L169001"
2620 PRINT #2,"4X1100000240138L003571"
2630 PRINT #2,"4X1100000240217L001571"
2640 PRINT #2,"4X1100000240276L001209"
2650 PRINT #2,"4X1100000240335L001571"
2660 PRINT #2,"4X1100000240386L001571"
2670 PRINT #2,"4X1100001380335L051001"
2680 PRINT #2,"4X1100000200000L386001"
2690 PRINT #2,"4X1100005950000L386001"
2700 PRINT #2,"4X1100000200000L001571"
2800 ''''''''''''''''''''''''''''''''''
2810 PRINT #2,"E"
2820 RETURN