100 TRM$=CHR$(13)+CHR$(10):S1$="       00":S2$="       00"
110 OPEN "INBOUND.DAT" FOR RANDOM AS #1 LEN=36
120 FIELD #1, 8 AS REC_ID$, 8 AS IN_WT$, 8 AS IN_T$, 10 AS IN_D$, 2 AS LFCR$
130 ASS$="0"
140 FOR I%=1 TO 100
150 PRINT "  Please Wait"
160 RSET REC_ID$=ESP$:RSET IN_WT$=ESP$:RSET IN_T$=ESP$:RSET IN_D$=SPACE$(10):RSET LFCR$=TRM$
170 PUT #1,I%
180 NEXT I%
190 CLOSE #1:ILEN#=100:ILEN$="100"
200 OPEN "PERM.DAT" FOR RANDOM AS #1 LEN=29
210 FIELD #1,8 AS PID$,8 AS PTWT$,8 AS ACC$,3 AS PLD$,2 AS LFCR$
220 FOR I%=1 TO 100
230 PRINT "Loading..."
240 RSET PID$=ESP$:RSET PTWT$=ESP$:RSET ACC$=ESP$:RSET PLD$=TSP$:RSET LFCR$=TRM$
250 PUT #1,I%
260 NEXT I%
270 CLOSE #1:PLEN#=100:PLEN$="100"
280 OPEN "OUTBOUND.DAT" FOR RANDOM AS #1 LEN=77
290 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$
300 FOR I%=1 TO 100
310 PRINT "Loading..."
320 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$
330 PUT #1,I%
340 NEXT I%
350 CLOSE #1:OLEN#=100:OLEN$="100"
360 OPEN "COMOD.DAT" FOR RANDOM AS #1 LEN=46
370 FIELD #1,16 AS CA$,8 AS CB$,11 AS CC$,3 AS CD$,6 AS CE$,2 AS LFCR$
380 RSET CA$="NONE            ":RSET CB$="       1":RSET CC$=SPACE$(11)
390 RSET CD$=TSP$:RSET CE$=SSP$:RSET LFCR$=TRM$:PUT #1,1
400 FOR I%=2 TO 10
410 RSET CA$=SPACE$(16):RSET CB$=ESP$:RSET CC$=SPACE$(11):RSET CD$=TSP$:RSET CE$=SSP$:RSET LFCR$=TRM$
420 PUT #1,I%
430 NEXT I%
440 CLOSE #1:CLEN#=10:CLEN$="10"
450 OPEN "QUICK.DAT" FOR RANDOM AS #1 LEN=13
460 FIELD #1, 3 AS QID$, 8 AS QTR$, 2 AS LFCR$
470 FOR I%=1 TO 100
480 PRINT "  Please Wait"
490 RSET QID$=TSP$:RSET QTR$=ESP$:RSET LFCR$=TRM$
500 PUT #1,I%
510 NEXT I%
520 CLOSE #1:QLEN#=100:QLEN$="100"
530 OPEN "BADGE.DAT" FOR RANDOM AS #1 LEN=46
540 FIELD #1,20 AS BDG$,8 AS BID$,16 AS BDGNM$,2 AS LFCR$
550 FOR I%=1 TO 100
560 RSET BDG$=SPACE$(20):LSET BID$=ESP$:LSET BDGNM$=SPACE$(16):LSET LFCR$=TRM$:PUT #1,I%
570 NEXT I%
580 CLOSE #1
590 OPEN "SETUP.DAT" FOR RANDOM AS #1 LEN = 52
600 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$
610 LSET SIL$="  100":LSET SOL$="  100":LSET SQL$="  100":LSET SPL$="  100":LSET SCL$="   10":LSET SSCLT$="PLAT":LSET SLPC$="N"
620 LSET SH$="N":LSET SIP$="111.111.111.111":LSET SPORT$="1920"
630 PUT #1,1:CLOSE #1
640 OPEN "PROMPT.DAT" FOR RANDOM AS #1 LEN = 82
650 FIELD #1,16 AS SPMT1$,16 AS SPMT2$,16 AS SPMT3$,16 AS SPMT4$,16 AS SPMT5$,2 AS LFCR$
660 LSET SPMT1$=SPACE$(16):LSET SPMT2$=SPACE$(16):LSET SPMT3$=SPACE$(16):LSET SPMT4$=SPACE$(16):LSET SPMT5$=SPACE$(16):LSET LFCR$=TRM$
670 PUT #1,1:CLOSE #1:CMNT$="N"
680 CHAIN "File1.bas"