OPEN "SETUP.DAT" FOR RANDOM AS #1 LEN = 52 
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$
GET #1,1
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$)
ILEN#=VAL(ILEN$):OLEN#=VAL(OLEN$):PLEN#=VAL(PLEN$):CLEN#=VAL(CLEN$):QLEN#=VAL(QLEN$):O%=VAL(OCNT$)
EQL$="===================="
PrintTemp:
S$="N":INPUT "^INBOUND?       ^N,Y",S$
IF S$="N" THEN GOTO PrintPerm 
OPEN "INBOUND.DAT" FOR RANDOM AS #1 LEN=36
FIELD #1, 8 AS REC_ID$, 8 AS IN_WT$, 8 AS IN_T$, 10 AS IN_D$, 2 AS LFCR$
OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
PRINT #4,"ID #       INBOUND WT   TIME    DATE"+CHR$(13)+CHR$(10);
PRINT #4,EQL$+EQL$+CHR$(13)+CHR$(10)
PRINT "Printing..."
FOR I% = 1 TO ILEN#
  GET #1, I%
  IF REC_ID$ = "        " THEN GOTO PrtTempNul
  PRINT #4,REC_ID$+"  "+IN_WT$+"  "+IN_T$+"  "+IN_D$+CHR$(13)+CHR$(10);
  PrtTempNul:
NEXT I%
CLOSE #1

OPEN "QUICK.DAT" FOR RANDOM AS #1 LEN=13
FIELD #1, 3 AS QID$, 8 AS QTR$, 2 AS LFCR$
FOR I% = 1 TO QLEN#
  GET #1, I%
  IF QID$ = "   " THEN GOTO QuickPrtNul
  PRINT #4,QID$+"       "+QTR$+CHR$(13)+CHR$(10);
QuickPrtNul:
NEXT I%
CLOSE #1:CLOSE #4

PrintPerm:
S$="N":INPUT "^PERMANENT?     ^N,Y",S$
IF S$="N" THEN GOTO PrintBadge
OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
OPEN "PERM.DAT" FOR RANDOM AS #1 LEN=29 
FIELD #1, 8 AS PID$, 8 AS PTWT$, 8 AS ACC$, 3 AS PLD$, 2 AS LFCR$ 
PRINT #4,"ID #        TARE WT    ACCUM WT   LOADS"+CHR$(13)+CHR$(10);
PRINT #4,EQL$+EQL$+CHR$(13)+CHR$(10)
PRINT "Printing..."
FOR I% = 1 TO PLEN#
  GET #1, I%
  PRID$=PID$:PRWT$=PTWT$:PACC$=ACC$:PRLD$=PLD$
  IF PRID$ = "        " THEN GOTO PrtPermNul
  PRINT #4, PRID$+"   "+PRWT$+"     "+PACC$+"    "+PRLD$+CHR$(13)+CHR$(10);
PrtPermNul:
NEXT I%
CLOSE #1:CLOSE #4

PrintBadge:
S$="N":INPUT "^BADGE?         ^N,Y",S$
IF S$="N" THEN GOTO PrintTrans
OPEN "BADGE.DAT" FOR RANDOM AS #1 LEN=46
FIELD #1,20 AS BDG$,8 AS BID$,16 AS BDGNM$,2 AS LFCR$
OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
PRINT #4,"ID #     BADGE #              USER"+CHR$(13)+CHR$(10);
PRINT #4,EQL$+EQL$+CHR$(13)+CHR$(10)
PRINT "Printing..."
FOR I% = 1 TO 100
  GET #1, I%
  IF BID$ = "        " THEN GOTO PrtBadgeNul
  PRINT #4,BID$+" "+BDG$+" "+BDGNM$+CHR$(13)+CHR$(10);
PrtBadgeNul:
NEXT I%
CLOSE #1:CLOSE #4

PrintTrans:
S$="N":INPUT "^TRANSACTION?   ^N,Y",S$
IF S$="N" THEN GOTO PrintComod
OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
OPEN "OUTBOUND.DAT" FOR RANDOM AS #1 LEN=77
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$
PRINT #4,"ID          GROSS     TARE      NET     COMODITY        DATE      TIME       "+CHR$(13)+CHR$(10);
PRINT #4,EQL$+EQL$+EQL$+"============"+CHR$(13)+CHR$(10)
PRINT "Printing..."
FOR I% = 1 TO OLEN#
  GET #1, I%
  IF A$ = "        " THEN GOTO OutBndPrtNul
  PRINT #4,A$+" "+C$+" "+B$+" "+D$+" "+E$+" "+G$+CHR$(13)+CHR$(10);
OutBndPrtNul:
NEXT I%
CLOSE #1:CLOSE #4

PrintComod:
S$="N":INPUT "^COMMODITY?     ^N,Y",S$
IF S$="N" THEN GOTO PrintSclAcc 
OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
OPEN "COMOD.DAT" FOR RANDOM AS #1 LEN=46
FIELD #1,16 AS CA$,8 AS CB$,11 AS CC$,3 AS CD$,6 AS CE$,2 AS LFCR$
PRINT #4,"COMMODITY            ACCUM WT   UNITS  LOADS   FACTOR"+CHR$(13)+CHR$(10);
PRINT #4,EQL$+EQL$+"============="+CHR$(13)+CHR$(10)
PRINT "Printing..."
FOR I% = 1 TO CLEN#
  GET #1, I%
  IF CA$ = "                " THEN GOTO ComodPrtNul
  PRINT #4,CA$+" "+CC$+"    "+CE$+"  "+CD$+" "+CB$+CHR$(13)+CHR$(10);
ComodPrtNul:
NEXT I% 
CLOSE #1:CLOSE #4

PrintSclAcc:
S$="N":INPUT "^SCALE ACCUMS?  ^N,Y",S$
IF S$="N" THEN GOTO ChainFile1
S1$=PADL$(S1$,9," "):S2$=PADL$(S2$,9," ")
OPEN "com2:tmo5000" FOR OUTPUT AS #4:FLUSH #4
PRINT #4," SCALE A    SCALE B"+CHR$(13)+CHR$(10);
PRINT #4,EQL$+CHR$(13)+CHR$(10)
PRINT #4,S1$+"  "+S2$+CHR$(13)+CHR$(10)
CLOSE #4

ChainFile1:
CFFLG%=1
CHAIN "file1.bas"