TRM$=CHR$(13)+CHR$(10):S1$="       00":S2$="       00"
REM *************** 
REM Creates tables: inbound 100, outbound 100, permanent 100, quick print 100, commodities 10. 
REM *************** 
CreateTables:
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$
ASS$="0"   
FOR I%=1 TO 100
  PRINT "  Please Wait"
  RSET REC_ID$=ESP$:RSET IN_WT$=ESP$:RSET IN_T$=ESP$:RSET IN_D$=SPACE$(10):RSET LFCR$=TRM$
  PUT #1,I%
NEXT I%
CLOSE #1:ILEN#=100:ILEN$="100"
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$
FOR I%=1 TO 100
  PRINT "Loading..."
  RSET PID$=ESP$:RSET PTWT$=ESP$:RSET ACC$=ESP$:RSET PLD$=TSP$:RSET LFCR$=TRM$
  PUT #1,I%
NEXT I%
CLOSE #1:PLEN#=100:PLEN$="100"
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$
FOR I%=1 TO 100
  PRINT "Loading..."
  RSET A$=ESP$:RSET B$=ESP$:RSET C$=ESP$:RSET D$=ESP$:RSET E$=SPACE$(16):RSET F$=ESP$:RSET G$=SPACE$(19):RSET H$=TRM$
  PUT #1,I%
NEXT I%
CLOSE #1:OLEN#=100:OLEN$="100"
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$
RSET CA$="NONE            ":RSET CB$="       1":RSET CC$=SPACE$(11)
RSET CD$=TSP$:RSET CE$=SSP$:RSET LFCR$=TRM$:PUT #1,1
FOR I%=2 TO 10
  RSET CA$=SPACE$(16):RSET CB$=ESP$:RSET CC$=SPACE$(11):RSET CD$=TSP$:RSET CE$=SSP$:RSET LFCR$=TRM$
  PUT #1,I%
NEXT I%
CLOSE #1:CLEN#=10:CLEN$="10"
OPEN "QUICK.DAT" FOR RANDOM AS #1 LEN=13
FIELD #1, 3 AS QID$, 8 AS QTR$, 2 AS LFCR$
FOR I%=1 TO 100
  PRINT "  Please Wait"
  RSET QID$=TSP$:RSET QTR$=ESP$:RSET LFCR$=TRM$ 
  PUT #1,I%
NEXT I%
CLOSE #1:QLEN#=100:QLEN$="100"
INITBADGE:
OPEN "BADGE.DAT" FOR RANDOM AS #1 LEN=46
FIELD #1,20 AS BDG$,8 AS BID$,16 AS BDGNM$,2 AS LFCR$
FOR I%=1 TO 100
  RSET BDG$=SPACE$(20):LSET BID$=ESP$:LSET BDGNM$=SPACE$(16):LSET LFCR$=TRM$:PUT #1,I%
NEXT I%
CLOSE #1
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$
LSET SIL$="  100":LSET SOL$="  100":LSET SQL$="  100":LSET SPL$="  100":LSET SCL$="   10":LSET SSCLT$="PLAT":LSET SLPC$="N"
LSET SH$="N":LSET SIP$="111.111.111.111":LSET SPORT$="1920"
PUT #1,1:CLOSE #1
OPEN "PROMPT.DAT" FOR RANDOM AS #1 LEN = 82
FIELD #1,16 AS SPMT1$,16 AS SPMT2$,16 AS SPMT3$,16 AS SPMT4$,16 AS SPMT5$,2 AS LFCR$
LSET SPMT1$=SPACE$(16):LSET SPMT2$=SPACE$(16):LSET SPMT3$=SPACE$(16):LSET SPMT4$=SPACE$(16):LSET SPMT5$=SPACE$(16):LSET LFCR$=TRM$
PUT #1,1:CLOSE #1:CMNT$="N"
CHAIN "File1.bas"