100 OPEN "SETUP.DAT" FOR RANDOM AS #1 LEN = 52
110 FIELD #1,5 AS SIL$,5 AS SOL$,5 AS SQL$,5 AS SPL$,5 AS SCL$,4 AS SSCLT$,1 AS SLPC$,1 AS SH$,15 AS SIP$,4 AS SPORT$,2 AS LFCR$
120 GET #1,1
130 ILEN$=SIL$:OLEN$=SOL$:QLEN$=SQL$:PLEN$=SPL$:CLEN$=SCL$:SCLT$=SSCLT$:LPC$=SLPC$:HOST$=SH$:IP$=LTRIM$(SIP$):PORT$=SPORT$:CLOSE #1:PORT%=VAL(PORT$)
140 ILEN#=VAL(ILEN$):OLEN#=VAL(OLEN$):PLEN#=VAL(PLEN$):CLEN#=VAL(CLEN$):QLEN#=VAL(QLEN$):O%=VAL(OCNT$)
150 EQL$="===================="
160 S$="N":INPUT "^INBOUND?       ^N,Y",S$
170 IF S$="N" THEN GOTO 390
180 OPEN "INBOUND.DAT" FOR RANDOM AS #1 LEN=36
190 FIELD #1, 8 AS REC_ID$, 8 AS IN_WT$, 8 AS IN_T$, 10 AS IN_D$, 2 AS LFCR$
200 OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
210 PRINT #4,"ID #       INBOUND WT   TIME    DATE"+CHR$(13)+CHR$(10);
220 PRINT #4,EQL$+EQL$+CHR$(13)+CHR$(10)
230 PRINT "Printing..."
240 FOR I% = 1 TO ILEN#
250 GET #1, I%
260 IF REC_ID$ = "        " THEN GOTO 280
270 PRINT #4,REC_ID$+"  "+IN_WT$+"  "+IN_T$+"  "+IN_D$+CHR$(13)+CHR$(10);
280 l:
290 NEXT I%
300 CLOSE #1
310 OPEN "QUICK.DAT" FOR RANDOM AS #1 LEN=13
320 FIELD #1, 3 AS QID$, 8 AS QTR$, 2 AS LFCR$
330 FOR I% = 1 TO QLEN#
340 GET #1, I%
350 IF QID$ = "   " THEN GOTO 370
360 PRINT #4,QID$+"       "+QTR$+CHR$(13)+CHR$(10);
370 NEXT I%
380 CLOSE #1:CLOSE #4
390 S$="N":INPUT "^PERMANENT?     ^N,Y",S$
400 IF S$="N" THEN GOTO 540
410 OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
420 OPEN "PERM.DAT" FOR RANDOM AS #1 LEN=29
430 FIELD #1, 8 AS PID$, 8 AS PTWT$, 8 AS ACC$, 3 AS PLD$, 2 AS LFCR$
440 PRINT #4,"ID #        TARE WT    ACCUM WT   LOADS"+CHR$(13)+CHR$(10);
450 PRINT #4,EQL$+EQL$+CHR$(13)+CHR$(10)
460 PRINT "Printing..."
470 FOR I% = 1 TO PLEN#
480 GET #1, I%
490 PRID$=PID$:PRWT$=PTWT$:PACC$=ACC$:PRLD$=PLD$
500 IF PRID$ = "        " THEN GOTO 520
510 PRINT #4, PRID$+"   "+PRWT$+"     "+PACC$+"    "+PRLD$+CHR$(13)+CHR$(10);
520 NEXT I%
530 CLOSE #1:CLOSE #4
540 S$="N":INPUT "^BADGE?         ^N,Y",S$
550 IF S$="N" THEN GOTO 680
560 OPEN "BADGE.DAT" FOR RANDOM AS #1 LEN=46
570 FIELD #1,20 AS BDG$,8 AS BID$,16 AS BDGNM$,2 AS LFCR$
580 OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
590 PRINT #4,"ID #     BADGE #              USER"+CHR$(13)+CHR$(10);
600 PRINT #4,EQL$+EQL$+CHR$(13)+CHR$(10)
610 PRINT "Printing..."
620 FOR I% = 1 TO 100
630 GET #1, I%
640 IF BID$ = "        " THEN GOTO 660
650 PRINT #4,BID$+" "+BDG$+" "+BDGNM$+CHR$(13)+CHR$(10);
660 NEXT I%
670 CLOSE #1:CLOSE #4
680 S$="N":INPUT "^TRANSACTION?   ^N,Y",S$
690 IF S$="N" THEN GOTO 820
700 OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
710 OPEN "OUTBOUND.DAT" FOR RANDOM AS #1 LEN=77
720 FIELD #1,8 AS A$,8 AS B$,8 AS C$,8 AS D$,16 AS E$,8 AS F$,19 AS G$,2 AS H$
730 PRINT #4,"ID          GROSS     TARE      NET     COMODITY        DATE      TIME       "+CHR$(13)+CHR$(10);
740 PRINT #4,EQL$+EQL$+EQL$+"============"+CHR$(13)+CHR$(10)
750 PRINT "Printing..."
760 FOR I% = 1 TO OLEN#
770 GET #1, I%
780 IF A$ = "        " THEN GOTO 800
790 PRINT #4,A$+" "+C$+" "+B$+" "+D$+" "+E$+" "+G$+CHR$(13)+CHR$(10);
800 NEXT I%
810 CLOSE #1:CLOSE #4
820 S$="N":INPUT "^COMMODITY?     ^N,Y",S$
830 IF S$="N" THEN GOTO 960
840 OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
850 OPEN "COMOD.DAT" FOR RANDOM AS #1 LEN=46
860 FIELD #1,16 AS CA$,8 AS CB$,11 AS CC$,3 AS CD$,6 AS CE$,2 AS LFCR$
870 PRINT #4,"COMMODITY            ACCUM WT   UNITS  LOADS   FACTOR"+CHR$(13)+CHR$(10);
880 PRINT #4,EQL$+EQL$+"============="+CHR$(13)+CHR$(10)
890 PRINT "Printing..."
900 FOR I% = 1 TO CLEN#
910 GET #1, I%
920 IF CA$ = "                " THEN GOTO 940
930 PRINT #4,CA$+" "+CC$+"    "+CE$+"  "+CD$+" "+CB$+CHR$(13)+CHR$(10);
940 NEXT I%
950 CLOSE #1:CLOSE #4
960 S$="N":INPUT "^SCALE ACCUMS?  ^N,Y",S$
970 IF S$="N" THEN GOTO 1040
980 S1$=PADL$(S1$,9," "):S2$=PADL$(S2$,9," ")
990 OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
1000 PRINT #4," SCALE A    SCALE B"+CHR$(13)+CHR$(10);
1010 PRINT #4,EQL$+CHR$(13)+CHR$(10)
1020 PRINT #4,S1$+"  "+S2$+CHR$(13)+CHR$(10)
1030 CLOSE #4
1040 CFFLG%=1
1050 CHAIN "file1.bas"