1 rem truck in/out operations 20 Defshr GrossWtA!, wt110 30 Defshr GrossWtB!, wt210 40 Defshr Temp3%, t_6c5 50 Defshr L3$, lit03 60 Defshr L4$, lit04 70 Defshr L5$, lit05 80 Defshr L6$, lit06 90 Defshr L7$, lit07 100 Defshr L8$, lit08 110 Defshr L9$, lit09 120 Defshr L10$, lit10 130 Defshr L11$, lit11 140 Defshr L12$, lit12 150 Defshr L13$, lit13 160 Defshr L14$, lit14 170 Defshr L15$, lit15 180 Defshr L16$, lit16 190 Defshr L17$, lit17 200 Defshr L18$, lit18 800 L3$ = " " 805 L4$ = " " 810 L5$ = " " 815 L6$ = " " 820 L7$ = " " 825 L8$ = " " 830 L9$ = " " 835 L10$ = " " 840 L11$ = " " 845 L12$ = " " 850 L13$ = " " 855 L14$ = " " 860 L15$ = " " 865 L16$ = " " 870 L17$ = " " 875 L18$ = " " 880 Temp3% = 0 900 PRINT "Truck? " 910 Width% = 8: GOSUB 7010 920 IF C$ = "`" OR C$ = " " THEN GOTO 9999 930 IF C$ <> "#" THEN GOSUB 1010: GOTO 800 970 GrossWt! = GrossWtA! 980 M$ = STR$(GrossWt!): GOSUB 9000: L3$ = M$ 990 M$ = STR$(GrossWt!): GOSUB 9000: L5$ = M$ 1000 Temp3% = 1 1005 GOTO 800 1010 Truck.ID$ = C$ 1015 PRINT "Scale? A/B " 1020 GOSUB 8210: Scale$ = C$ 1025 OPEN "TRUCK" FOR RANDOM AS #2 LEN = 23 1030 FIELD #2, 8 AS TID$, 15 AS Rest$ 1035 T.ID$ = Truck.ID$ 1038 GOSUB 8110: CLOSE #2 1040 IF Scale$ = "B" OR Scale$ = "b" THEN GrossWt! = GrossWtB!: GOTO 1140 1045 GrossWt! = GrossWtA! 1050 M$ = STR$(GrossWt!): GOSUB 9000: L5$ = M$ 1055 L6$ = Truck.ID$ 1060 IF F$ = "Y" THEN GOTO 1200 1070 OPEN "TRUCK" FOR RANDOM AS #3 LEN = 23 1075 FIELD #3, 8 AS TID$, 15 AS Rest$ 1085 MaxIDs% = 400: GOSUB 8510 1090 CLOSE #3 1093 IF C$ = "`" THEN RETURN 1095 OPEN "TRUCK" FOR RANDOM AS #2 LEN = 23 1100 FIELD #2, 8 AS TruckID$, 6 AS TW$, 8 AS TTotal$, 1 AS TType$ 1140 RSET TW$ = RIGHT$(L5$,6) 1150 LSET TType$ = "T" 1160 LSET TruckID$ = Truck.ID$ 1170 RSET TTotal$ = " 0.0" 1175 PUT #2, RecNo% 1180 LPRINT "Inbound Truck" 1186 Temp3% = 1 1190 CLOSE #2 1195 RETURN 1200 OPEN "TRUCK" FOR RANDOM AS #2 LEN = 23 1220 FIELD #2, 8 AS TruckID$, 6 AS TW$, 8 AS TTotal$, 1 AS TType$ 1230 GET #2, RecNo2% 1250 NetWt! = GrossWt! - VAL(TW$) 1290 M$ = STR$(NetWt!): GOSUB 9000: L3$ = M$ 1300 M$ = LEFT$(TW$,6): GOSUB 9000: L4$ = M$ 1330 IF TType$ = "T" THEN CLOSE #2: GOTO 1430 1340 GrossWt! = NetWt! + VAL(TTotal$) 1350 M$ = STR$(GrossWt!): GOSUB 9000: RSET TTotal$ = M$ 1360 PUT #2, RecNo2% 1365 CLOSE #2 1370 GOTO 1700 1430 OPEN "TRUCK" FOR RANDOM AS #3 LEN = 23 1440 FIELD #3, 8 AS RecID$, 15 AS Rest$ 1460 GOSUB 4229 1470 CLOSE #3 1700 C% = 1 1710 PRINT "Enter ID " 1720 Width% = 8: GOSUB 7010 1730 IF C$ = "`" OR C$ = " " OR C$ = "#" THEN GOTO 2000 1750 T.ID$ = C$ 1760 OPEN "IDfile" FOR RANDOM AS #2 LEN = 18 1830 FIELD #2, 8 AS TID$, 10 AS Rest$ 1840 GOSUB 8110 1850 IF F$ <> "Y" THEN CLOSE #2: GOTO 1895 1860 M$ = STR$(VAL(Rest$) + NetWt!):Width% = 10:GOSUB 9010:RSET Rest$ = M$ 1870 GOSUB 2110 1880 PUT #2, RecNo2% 1890 CLOSE #2: GOTO 1980 1895 PRINT "Add a new Record" 1900 GOSUB 8210 1905 IF C$ <> "#" THEN GOTO 1980 1908 OPEN "IDfile" FOR RANDOM AS #3 LEN = 18 1910 FIELD #3, 8 AS TID$, 10 AS Rest$ 1920 MaxIDs% = 200: GOSUB 8510 1930 IF C$ = "`" THEN GOTO 1970 1940 M$ = STR$(VAL(Rest$) + NetWt!):Width% = 10:GOSUB 9010:RSET Rest$ = M$ 1950 LSET TID$ = T.ID$ 1955 GOSUB 2110 1960 PUT #3, RecNo% 1970 CLOSE #3 1980 C% = C% + 1 1990 IF C% < 7 THEN GOTO 1710 2000 LPRINT "Outbound Truck" 2040 Temp3% = 1 2100 RETURN 2110 IF C% = 1 THEN L7$ = T.ID$: L8$ = Rest$ 2120 IF C% = 2 THEN L9$ = T.ID$: L10$ = Rest$ 2130 IF C% = 3 THEN L11$ = T.ID$: L12$ = Rest$ 2140 IF C% = 4 THEN L13$ = T.ID$: L14$ = Rest$ 2150 IF C% = 5 THEN L15$ = T.ID$: L16$ = Rest$ 2160 IF C% = 6 THEN L17$ = T.ID$: L18$ = Rest$ 2170 RETURN 4229 PRINT "Deleting........" 4230 RecNo% = 1: WriteTo% = 1 4232 GET #3 4234 WHILE (0 = EOF(3)) 4236 IF RecID$ = Truck.ID$ THEN GOTO 4245 4238 PUT #3, WriteTo% 4240 WriteTo% = WriteTo% + 1 4245 RecNo% = RecNo% + 1 4250 GET #3, RecNo% 4255 WEND 4260 LSET RecID$ = " " 4265 LSET Rest$ = " " 4270 WHILE WriteTo% < RecNo% 4275 PUT #3, WriteTo% 4280 WriteTo% = WriteTo% + 1 4285 WEND 4290 RETURN 7010 C$ = "": M$ = "" 7015 WHILE C$ = "" 7020 C$ = INKEY$ 7025 WEND 7030 IF C$ = CHR$(8) THEN C$ = "#": RETURN 7040 IF C$ = "`" OR C$ = " " THEN RETURN 7050 PRINT " " 7070 WHILE C$ <> CHR$(8) 7080 IF C$ = CHR$(6) THEN M$ = LEFT$(M$, LEN(M$) -1): GOTO 7170 7100 IF C$ < " " OR C$ > "z" THEN GOTO 7180 7120 IF C$ > "`" THEN C$ = CHR$(ASC(C$) - 32) 7160 M$ = M$ + C$ 7170 PRINT M$;" " 7180 C$ = INKEY$ 7200 WEND 7220 C$ = M$ 7240 IF LEN(C$) > Width% THEN C$ = LEFT$(C$, Width%): RETURN 7250 IF LEN(C$) = Width% THEN RETURN 7270 C$ = C$ + " " 7280 GOTO 7250 8010 PRINT M$: L% = 1 8020 WHILE L% < 10 AND INKEY$ = "" 8030 L% = L% + 1 8040 WEND 8050 RETURN 8110 PRINT "Searching......." 8120 F$ = "N" 8130 WHILE 0 = EOF(2) AND F$ = "N" 8140 GET #2 8150 IF TID$ = T.ID$ THEN F$ = "Y": RecNo2% = LOC(2) - 1 8160 WEND 8170 IF F$ = "N" THEN M$ = "Not in file now ": GOSUB 8010 8180 RETURN 8210 C$ = "" 8220 WHILE C$ = "" 8230 C$ = INKEY$ 8240 WEND 8260 IF C$ = CHR$(8) THEN C$ = "#" 8280 RETURN 8510 RecNo% = -1 8540 F$ = "N" 8544 WriteTo% = 1 8545 WHILE NOT EOF(3) 8550 GET #3 8555 IF F$ = "Y" THEN GOTO 8570 8560 IF TID$ = " " OR TID$ > T.ID$ THEN F$ = "Y":RecNo% = LOC(3) 8570 WEND 8572 IF RecNo% = -1 THEN RecNo% = LOC(3) 8573 IF RecNo% > 0 THEN RecNo% = RecNo% - 1 8574 IF RecNo% = 0 THEN RecNo% = 1 8575 IF RecNo% > MaxIDs% THEN M$ = "File is Full": GOSUB 8010: RETURN 8580 WriteTo% = LOC(3) 8582 IF WriteTo% > 0 THEN WriteTo% = WriteTo% - 1 8585 WHILE WriteTo% > RecNo% 8590 GET #3, WriteTo% - 1 8595 IF TID$ <> " " THEN PUT #3, WriteTo% 8600 WriteTo% = WriteTo% - 1 8605 WEND 8615 RETURN 9000 Width% = 8 9010 IF LEN(M$)