Basic code

From Invoicing
Jump to: navigation, search
  • 0010 REM BILL OF LADING ENTRY & MAINTENANCE - (DK) DISK2PGMSOIU01
  • 0020 BEGIN EXCEPT TL$,TOM,TOR,WCTLY,VAR$,WHOM$
  • 0030 SETERR 65420; SETESC 65400
  • 0040 PRINT 'KU',
  • 0050 REM 1020 - PLT CODE
  • 0052 REM 1050 - BOL#
  • 0054 REM 1130 - PLT#
  • 0056 REM 1170 - CARRIER
  • 0058 REM 1260 - DATE
  • 0060 REM 1310 - YN
  • 0062 REM 1430 - SHOP ORDER
  • 0064 REM 1630 - PREPAID COLLECT
  • 0066 REM 1660 -
  • 0068 REM 1690 -
  • 0070 REM 1720 -
  • 0072 REM 1740 -
  • 0074 REM 1770 -
  • 0076 REM 1840 - SHIP TO STATE
  • 0078 REM 1900 -
  • 0080 REM 2000 - STOP NUMBER
  • 0082 REM 2050 - REMOVE STOP NUMBER
  • 0084 REM 2200 - EDIT A LINE
  • 0086 REM 2320 - DELETE LINE
  • 0088 REM 2410 - STOP DESCRIPTION
  • 0090 REM 2660 - DELETE BOL
  • 0092 REM 2910 - ABOVE CORRECT
  • 0110 OPEN (1)DISK3ORDERSO0BQ
  • 0120 OPEN (2)DISK3ORDERO1
  • 0129 IOLIST J1$,J2$,J3$,J4$,J5$,J6$,J7$,J8$,J9$,J10$,J11$,J12$,J13$,J14$,J15$,J16$,J17$,J18$,J19$,J20$,J21$
  • 0130 OPEN INPUT (3)DISK2DATAH0
  • 0140 OPEN INPUT (4)DISK3ORDERSO0HM
  • 0150 OPEN (5)DISK2DATASO0ET
  • 0160 OPEN INPUT (6)DATACUST.DOCWOMAS
  • 0170 OPEN INPUT (7)DISK3ORDERO1DESC
  • 0180 OPEN INPUT (8)DATACUST.ADDRESS
  • 0190 OPEN INPUT (9)DATACUST.HEADER
  • 0200 OPEN INPUT (10)DATAJDE.SOWOXREF
  • 0210 OPEN (11)DISK3ORDERSO0BQ
  • 0227 OPEN INPUT (27)DISK2DATASO0GW
  • 0228 OPEN INPUT (28)DATAPROD.3RD_PTY_BILL
  • 0230 OPEN INPUT (34)DISK2DATABARDIST
  • 0260 OPEN INPUT (36)DATAPES.ORDER_PP
  • 0270 OPEN INPUT (37)DATAPES.ORDER_SHIPTO
  • 0280 OPEN INPUT (38)DATAPES.CUSTCOMMENTS
  • 0300 REM 300,5 SET VARIABLE VALUES
  • 0305 LET HP6PT$='BO'+$1B287331501B28733656$+'EO'; REM PROPORTIONAL EXPANDED PRT 6 PICAS
  • 0310 LET HP7PT$='BO'+$1B287331501B2873303756$+'EO'; REM PROPORTIONAL EXPANDED PRT 7 PICAS
  • 0315 LET HP8PT$='BO'+$1B287331501B2873303856$+'EO';REM PROPORTIONAL EXPANDED PRT 8 PICAS
  • 0320 LET HP9PT$='BO'+$1B287331501B2873303956$+'EO'; REM PROPORTIONAL EXPANDED PRT 9 PICAS
  • 0325 LET HP10PT$='BO'+$1B287331501B2873313056$+'EO'; REM PROPORTIONAL EXPANDED PRT 10 PICAS
  • 0330 LET HP11PT$='BO'+$1B287331501B2873313156$+'EO'; REM PROPORTIONAL EXPANDED PRT 11 PICAS
  • 0335 LET HP12PT$='BO'+$1B287331501B2873313256$+'EO'; REM PROPORTIONAL EXPANDED PRT 12 PICAS
  • 0340 LET HP13PT$='BO'+$1B287331501B2873313356$+'EO'; REM PROPORTIONAL EXPANDED PRT 13 PICAS
  • 0345 LET HP14PT$='BO'+$1B287331501B2873313456$+'EO'; REM PROPORTIONAL EXPANDED PRT 14 PICAS
  • 0350 LET HP15PT$='BO'+$1B287331501B2873313556$+'EO';REM PROPORTIONAL EXPANDED PRT 15 PICAS
  • 0355 LET HP24PT$='BO'+$1B287331501B2873323456$+'EO'; REM PROPORTIONAL EXPANDED PRT 24 PICAS
  • 0360 LET HP35PT$='BO'+$1B287331501B2873333556$+'EO'
  • 0365 LET REGPRT$='BO'+$1B2838551B381B28733070313068307330623430393954$+'EO'
  • 0370 LET GRAPHIC$='BO'+$1B283042$+'EO'
  • 0375 LET LOGO$='BO'+$1B2631304F1B2831431B2873307037322E30307620312E3030683073306231303154$+'EO'+!+$22$+#+'BO' +$1B2631304F$

+'EO'+$+%+&+'

  • 0380 LET RLOGO$='BO'+$1B2631304F1B2832431B2873307037322E30307620312E3030683073306231303254$+'EO'+!+$22$+#
  • 0385 LET FLOGO$='BOLD'+HP35PT$+F R I S A +REGPRT$+'ENDBOLD'
  • 0390 LET RSIG$='BO'+$1B2631304F1B2833431B287330703732763073306231303354$+'EO'+!+$22$+#
  • 0395 LET BSIG$='BO'+$1B2631304F1B2834431B287330703732763073306231303454$+'EO'+!+$22$+#
  • 0400 LET HP12CPI$='BO'+$1B266B3453$+'EO'
  • 0500 OPEN (40)DISK2SCOTINFO
  • 0505 READ (40,KEY=!+FID(0)),,,,PLT$,,PQUE$
  • 0506 FIND (40,KEY=DAY),,,DATE$
  • 0507 IF PLT$= THEN LET PLT$=5
  • 0600 OPEN (61)DISK2DATASODATES
  • 0800 LET M$=###,##0,M1$=##0,M2$=000000,M3$=0000000,SEL$=DISK2SCOTTRAFFICCOP,CO2$=S00023
  • 0810 LET H8L$='BO'+$1B266C3844$+'EO',H10C$='BO'+$1B266B3053$+'EO',H16C$='BO'+$1B266B3253$+'EO',H6L$='BO'+$1B266C3644$+'EO',H18P$='BO'+$1B287331501B2873313956$+'EO',H10P$='BO'+$1B287330501B266B3053$+'EO',HBC$='BO'+$1B283059$+'EO',HR8$='BO'+$1B283855$+$1B381B28733070313068307330623430393954$+'EO',H16P$='BO'+$1B287331501B2873313656$+'EO',HOCR$='BO'+$1B28304F$+'EO',HOCR$='BO'+$1B381B28733170313876307330623432393754$+'EO',H11P$='BO'+$1B287331501B2873313256$+'EO',H12C$='BO'+$1B2873313248$+'EO',HBU$='BO'+$1B28733342$+'EO',HEU$='BO'+$1B28733042$+'EO',H16LPI$='BO'+$1B266C313644$+'EO',H25CPI$='BO'+$1B2873323548$+'EO'
  • 0900 DIM Z1$(40,x),Z$(30),L$(80,_),L0$(80,-)
  • 1000 PRINT 'CS','SB',@(0,0),SHIPPER'S NUMBER,@(28),1 FOB,@(45),FREIGHT,@(64),TOTAL WT,@(0,2),2 CARRIER,@(35),3 SHIP DATE,@(62),4 PRINT IND,@(0,4),5 STOP,@(13),CONSIGNED TO,@(11,8),6 DESCRIPTION,'BU',@(5,10),SO,@(13,10),WEIGHT, @(21,10),QTY ,@(27,10),CUSTOMER ORDER NUMBER,@(58,10),CC,@(63,10),DESCRIPTION,'EU'
  • 1010 IF PLT$ THEN LET A1$=PLT$; GOTO 1040
   1040
   FIND (40,KEY=P+A1$,DOM=1020)
  • 1020 SETCTL 14500; LET TOC=0,CTLY=1020; PRINT 'CF','BR',@(0,22),ENTER PLANT CODE OR CR TO END,'ER',@(18,0),'RB',; INPUT (0,ERR=14600,TIM=TOM,SIZ=3)A1$(=15990,LEN=1,1)
  • 1040 FIND (40,KEY=P+A1$,DOM=1020)
  • 1050 SETCTL 14500; LET TOC=0,CTLY=1050; PRINT 'CF','BR',@(0,22),ENTER BILL OF LADING NUMBER, CTL(I) TO ADD, CTL(II) TO CHANGE PLANT,,@(29,23),OR CTL(IV) TO END,'ER',@(18,0),A1$,-,Z1$(1,5),@(20),'RB',; INPUT (0,ERR=14600,TIM=TOM,SIZ=7)AA2$
  • 1055 SETCTL 0
  • 1060 LET A2=NUM(AA2$,ERR=2500); IF A20 AND LEN(AA2$)5 THEN GOTO 1050
    1050
    SETCTL 14500; LET TOC=0,CTLY=1050; PRINT 'CF','BR',@(0,22),ENTER BILL OF LADING NUMBER, CTL(I) TO ADD, CTL(II) 
    TO CHANGE PLANT,,@(29,23),OR CTL(IV) TO END,'ER',@(18,0),A1$,-,Z1$(1,5),@(20),'RB',; INPUT (0,ERR=14600,TIM=TOM,SIZ=7)AA2$
  • 1061 IF A20 THEN GOTO 2500 ELSE IF CTL=2 THEN GOTO 1020 ELSE IF CTL=4 THEN GOTO 15990 ELSE IF CTL1 THEN GOTO 1050
    • THEN GOTO 2500
     IF LEN(AA2$)5 THEN GOTO 1050
     SETCTL 14500; LET TOC=0,CTLY=1050; PRINT 'CF','BR',@(0,22),ENTER BILL OF LADING NUMBER, CTL(I) TO ADD, 
     CTL(II) TO 
     CHANGE PLANT,,@(29,23),OR CTL(IV) TO END,'ER',@(18,0),A1$,-,Z1$(1,5),@(20),'RB',; INPUT (0,ERR=14600,TIM=TOM,SIZ=7)AA2$
    • THEN GOTO 1020
     SETCTL 14500; LET TOC=0,CTLY=1020; PRINT 'CF','BR',@(0,22),ENTER PLANT CODE OR CR TO END,'ER',@(18,0),'RB',; 
     INPUT (0,ERR=14600,TIM=TOM,SIZ=3)A1$(=15990,LEN=1,1)
    • THEN GOTO 15990
     PRINT 'KL',
    • THEN GOTO 1050
    1050
    SETCTL 14500; LET TOC=0,CTLY=1050; PRINT 'CF','BR',@(0,22),ENTER BILL OF LADING NUMBER, CTL(I) TO ADD, CTL(II) 
    TO CHANGE PLANT,,@(29,23),OR CTL(IV) TO END,'ER',@(18,0),A1$,-,Z1$(1,5),@(20),'RB',; INPUT (0,ERR=14600,TIM=TOM,SIZ=7)AA2$
  • 1070 EXTRACT (40,KEY=BL+A1$)A2; REM ASSIGN A NEW BOL#
  • 1080 LET A2=A2+1
  • 1084 IF A21000000 THEN LET BOLNUM$=STR(A2M2$) ELSE LET M2$=M3$,BOLNUM$=STR(A2M3$)
  • 1085 IF M2$M3$ AND x(2)=00000 THEN GOTO 1080 ELSE IF M2$M3$ AND BOLNUM$(3)=0000 THEN LET A2=A2+90001; GOTO 1084 ELSE IF M2$M3$ AND BOLNUM5$(1,1)=0 THEN LET LETTER$=BOLNUM$(2,1),AA2=NUM(BOLNUM$(3)) ELSE IF M2$M3$ THEN LET LETTER$=CHR(64+NUM(BOLNUM$(1,1))),AA2=NUM(BOLNUM$(3))
  • 1086 IF M2$=M3$ AND BOLNUM$(4)=0000 THEN LET A2=A2+990001; GOTO 1084 ELSE IF M2$=M3$ THEN LET LETTER$=CHR(96+NUM(BOLNUM$(1,1))),AA2=NUM(BOLNUM$(4))
  1084
  IF A21000000 THEN LET BOLNUM$=STR(A2M2$) ELSE LET M2$=M3$,BOLNUM$=STR(A2M3$)
  • 1090 WRITE (40,KEY=BL+A1$)A2
  • 1100 LET A2$=STR(AA20000),K$=A1$+LETTER$+A2$,A$=,B$=,TW=0
  • 1110 PRINT 'CF',@(18,0),A1$,-,LETTER$,A2$
  • 1120 LET A3$=A1$; GOTO 1140
    1140
    FIND (40,KEY=P+A3$,DOM=1130),,WA3$
  • 1130 PRINT 'BR',@(0,23),ENTER PLANT CODE,'ER',@(34,0),Z$(1,8),@(34),'RB',; INPUT (0,ERR=1130,SIZ=3)A3$(LEN=1,1)
  • 1140 FIND (40,KEY=P+A3$,DOM=1130),,WA3$
  • 1145 REM IF A3$=1 THEN LET CO2$=R00960 ELSE LET CO2$=S00023
  • 1146 LET CO2$=S00023
  • 1147 IF A$=P THEN LET B$=CO2$
  • 1150 PRINT @(0,22),'CE',@(34,0),WA3$
  • 1160 IF X=1 THEN GOTO 3000
    3000
    IF CTR=0 THEN GOTO 3100
    • 3100
   'RB','RB'; WAIT 3
  • 1170 PRINT 'BR',@(0,23),ENTER CARRIER'S NUMBER OR NAME,'ER',@(10,2),Z$(1,20),@(10),Z1$(1,14),@(10),'RB',; INPUT (0,ERR=1170,SIZ=8)WA4$(LEN=2,14)
  • 1180 LET A4$=WA4$,A4=NUM(A4$(2),ERR=1190); IF FPT(A4)0 OR A41 OR A499999 THEN GOTO 1190 ELSE LET A4$=A4$(1,1)+STR(A400000); GOTO 1200
   1190
   READ (3,KEY=DK2#=WA4$,DOM=1230)
   1200
   READ (3,KEY=A4$,DOM=1190),WA4$; GOTO 1235
    • 1235
   IF A4$=C00002 AND A$ THEN LET A$=C,B$=O2$
  • 1190 READ (3,KEY=DK2#=WA4$,DOM=1230)
  • 1200 READ (3,KEY=A4$,DOM=1190),WA4$; GOTO 1235
  • 1230 FIND (3,END=1170)A4$,WA4$
  • 1235 IF A4$=C00002 AND A$ THEN LET A$=C,B$=O2$
  • 1240 PRINT @(0,22),'CE',@(10,2),Z$(1,20),@(10),WA4$
  • 1250 IF X=1 THEN GOTO 3000
    3000
    IF CTR=0 THEN GOTO 3100
    • 3100
   'RB','RB'; WAIT 3
  • 1260 (loop) PRINT 'BR',@(0,23),ENTER DATE OR CTL(I) = TODAY'S DATE,'ER',@(47,2),Z$(1,10),@(47),mmddyy ,@(47),'RB',; INPUT (0,ERR=1260,SIZ=9)A5$(=1265,LEN=6,8); GOTO 1270
    1270
    CALL VALIDAT,A5$,W,DF;IF DF=1 THEN GOTO 1260
    1260
    (loop)
  • 1265 IF CTL=1 THEN LET A5$=DATE$
  • 1266 GOTO 1290
    1290
    PRINT @(0,22),'CE',@(47,2),Z$(1,10),@(47),A5$
  • 1270 CALL VALIDAT,A5$,W,DF; IF DF=1 THEN GOTO 1260
    1260
    (loop)
  • 1290 PRINT @(0,22),'CE',@(47,2),Z$(1,10),@(47),A5$
  • 1300 IF X=1 THEN GOTO 3000
    3000
    IF CTR=0 THEN GOTO 3100
    • 3100
   'RB','RB'; WAIT 3 
  • 1310 PRINT 'BR',@(0,23),CR = Y CTL(I) = N ,'ER',@(74,2),'CL','RB',; INPUT (0,ERR=1310,SIZ=2)A6$(Y=1330,N=1330,=1320)
  • 1320 IF CTL=1 THEN LET A6$=N ELSE LET A6$=Y
  • 1330 PRINT @(0,22),'CE',@(74,2),'CL',A6$
  • 1340 IF X=1 THEN GOTO 3000
    3000
    IF CTR=0 THEN GOTO 3100
    • 3100
   'RB','RB'; WAIT 3
  • 1400 LET ST=0,R19003=0
  • 1410 IF ST=9 THEN GOTO 3000 ELSE LETST=ST+1,CTR=0,SW=0,PY=11,S$=STR(ST),V0$=,V1$=,V$=,CHECKU$=
     3000
    IF CTR=0 THEN GOTO 3100
    • 3100
   'RB','RB'; WAIT 3
  • 1420 PRINT @(26,4),'CL',@(4,5),'CL',S$,@(26,6),'CL',@(26,7),'CL',@(26,8),'CL',@(0,11),'CE'
  • 1430 PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER OR CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
    1450
    IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$
  • 1440 IF CTL=4 THEN GOTO 3000 ELSE IF CTL=1 THEN GOTO 1600 ELSE GOTO 1430
    3000
    IF CTR=0 THEN GOTO 3100
    • 3100
    'RB','RB'; WAIT 3
    1600
    LET O1$= 00000
    1430
    PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
    (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
    1450
    IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$
  • 1450 IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$
  • 1455 LET JDEWO$=; FIND (10,KEY=JDEWO#=O1$,DOM=1460)SO#=O1$,#JDEWO$
  • 1460 IF LEN(O1$)7 THEN GOTO 1430 ELSE LET O1=NUM(O1$(1,6),ERR=1430); IF LEN(O1$)=6 THEN LET O1$=O1$+ ELSE IF O1$(7) AND (O1$(7)A OR O1$(7)Z) THEN GOTO 1430
    1430
    PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
    (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
    1450
    IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$
  • 1470 FIND (5,KEY=O1$+0,DOM=10000)W,Q,,,,F$,,,,,,,O$
  • 1472 IF F$= THEN LET F$=C
  • 1475 FIND (5,KEY=O1$+1)U1$,U2$,U3$,U4$,U5$,U6$,U7$
  • 1478 FIND (5,KEY=O1$+9,DOM=1480)BL$; IF BL$ THEN GOTO 10050
    10050
    PRINT @(20,22),'CE',THAT IS ALREADY ON BILL NUMBER ,BL$(1,1),-,BL$(2,5),'RB','RB'; WAIT 3; GOTO 1430
    • 1430
      PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
      (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
      1450
       IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$    
  • 1480 FIND(2,KEY=O$+000),O2$,O3$,O4$,,,O7$; FIND (2,KEY=O$+999),,,X7$; IF O2$=004846 OR O2$=020637 OR O2$=020638 OR O2$=021925 THEN FIND (2,KEY=O$+100),,,,N5; LET O7$=O7$+ Item +STR(N5)
  • 1482 IF O2$(1,1)9 THEN FIND (9,KEY=LCN_ID#=O2$)#LCN_ID$ ELSE FIND (9,KEY=O2$)#LCN_ID$
  • 1485 IF LCN_ID$=R19003 AND U4$=MAYFIELD AND U5$=KY THEN LET R19003=1
  • 1490 IF O4$=C OR O4$=D OR O4$=S THEN GOTO 10100
    10100
    PRINT @(0,22),'CE','BR',@(20,23),THIS SHOP ORDER IS NOT IN WORK IN PROCESS !!!,'ER',@(20,22),ARE YOU SURE THAT THE ORDER 
    IS CORRECT (YESN) ,'RB',; INPUT (0,ERR=10100,SIZ=5)ANS1$(YES=10110,N=1430)
  • 1495 LET NCR_STAT$=; GOSUB 4000; IF NCR_STAT$=OPEN THEN GOTO 10600
    10600
    PRINT @(0,22),'CL',@(20,22),AN OPEN NCR EXISTS ON THIS SHOP ORDER !!!;WAIT 2; PRINT @(0,22),'CL'; GOTO 1430
    • 1430
    PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
    (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
    1450
    IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$ 
  • 1500 IF O3$(1,3)=101 THEN LET CC$=01 ELSE IF O3$(1,3)=212 OR O3$(1,3)=600 THEN LET CC$=03 ELSE LET CC$=02
  • 1510 LET D$=; IF LCN_ID$=P00085 AND X7$=ST QT THEN FIND (2,KEY=O$+100)N1$; LET D$=Stock #+N1$
  • 1515 IF JDEWO$ THEN LET WOSO$=JDEWO$ ELSE LET WOSO$=O1$
  • 1520 PRINT @(4,PY),'CE',WOSO$,@(12),WM$,@(21),QM1$,@(26),O7$,@(58),CC$,@(62),D$
  • 1525 IF JDEWO$ THEN LET PY=PY+1; PRINT @(4,PY),O1$
  • 1530 LET F$=F$+  ; IF A$= THEN LET A$=F$(1,1) ELSE GOTO 1550
    1550
    IF A$(1,1)F$(1,1) THEN GOTO 10200
    • 10200
    PRINT @(20,22),'CE',FREIGHT FOR THIS ORDER DOES NOT MATCH BILL OF LADING,'RB','RB'; WAIT 3; GOTO 1430
      • 1430
    PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
      (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
        • 1450
          IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$ 
  • 1540 IF A$(1,1)=C THEN LET WA$=COLLECT,B$=O2$ ELSE IF A$(1,1)=P THEN LETWA$=PREPAID,B$=CO2$ ELSE IF A$(1,1)= THEN LET WA$= ,B$=O2$
  • 1545 PRINT @(53,0),WA$
  • 1550 IF A$(1,1)F$(1,1) THEN GOTO 10200
    10200
    PRINT @(20,22),'CE',FREIGHT FOR THIS ORDER DOES NOT MATCH BILL OF LADING,'RB','RB'; WAIT 3; GOTO 1430
      • 1430
    PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
      (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
        • 1450
          IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$ 
  • 1555 IF V1$= THEN GOSUB 11000; LET V$=NO METAL ON METAL CONTACT!; IF LCN_ID$=W00049 AND (U7$=1 OR U7$=10) THEN LET V$=GUARANTEED STD TRANSIT BY 5PM DEL.; REM LET V$=SECURE LOAD PROTECTING CORNERSSURFACES CHGD BY RON HAHN 62015
    11000
    LET V1$=U1$,V2$=U2$,V3$=U3$,V4$=U4$,V5$=U5$,V6$=U6$,V0$=U5$,CHECKU$=CVS(U2$,3)+CVS(U3$,3)+CVS(U4$,3)+CVS(U5$,3)
  • 1556 PRINT @(26,8),'CL',V$
  • 1560 IF CHECKU$CVS(U2$,3)+CVS(U3$,3)+CVS(U4$,3)+U5$ THEN GOTO 10300; REM CHECK MORE OF THE SHIPPING ADDRESS PER BRAD CLINT - DK - 81506 - IF V0$U5$ THEN GOTO 10300
    10300
    PRINT @(20,22),'CE',SHIP TO ADDRESS DOES NOT MATCH - PLEASE CORRECT,'RB','RB'; WAIT 3; GOTO 1430
    • 1430
    PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
    (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
      • 1450
       IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$ 
  • 1565 LET CTR=CTR+1,C$=STR(CTR00),TW=TW+W,SW=SW+W
  • 1570 WRITE (1,KEY=K$+S$+C$)O1$,W,Q,O7$,CC$,D$; WRITE (5,KEY=O1$+9)K$+S$+C$
  • 1571 IF A4$=C00002 OR A$(1,1)=C THEN READ (61,KEY=O1$,DOM=1572,RETAIN)#DATE7$; IF DATE7$= THEN WRITE (61,RETAIN)DATE7#=DATE$; REM CPU OR COLLECT
  • 1575 PRINT @(73,0),TWM$
  • 1580 IF CTR=30 THEN GOTO 3000 ELSE LET PY=PY+1; IF PY20 THEN PRINT @(0,11),'LD'; LET PY=20
    3000
    IF CTR=0 THEN GOTO 3100
    • 3100
    'RB','RB'; WAIT 3 
  • 1590 GOTO 1430
    1430
    PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
      (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
      1450
      IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$
  • 1600 LET O1$= 00000
  • 1610 PRINT @(4,PY),'CE',O1$
  • 1620 IF A$ THEN GOTO 1660
    1660
    PRINT @(13,PY),'CL',Z1$(1,5),@(13),'RB',; INPUT (0,ERR=1660,SIZ=6)W(70000)
  • 1630 PRINT 'BR',@(0,23),C = COLLECT P = PREPAID,'ER',@(53,0),Z$(1,3),@(53),'RB',; INPUT (0,ERR=1630,SIZ=3) A$(C=1640,P=1640)
  • 1640 IF A$=C THEN LET WA$=COLLECT,B$= ELSE LET WA$=PREPAID,B$=S00023
  • 1650 PRINT @(0,22),'CE',@(53,0),WA$
  • 1660 PRINT @(13,PY),'CL',Z1$(1,5),@(13),'RB',; INPUT (0,ERR=1660,SIZ=6)W(70000)
  • 1670 IF W=0 THEN GOTO 1660
    1660
    PRINT @(13,PY),'CL',Z1$(1,5),@(13),'RB',; INPUT (0,ERR=1660,SIZ=6)W(70000)
  • 1680 PRINT @(12,PY),'CL',WM$
  • 1690 PRINT @(21,PY),'CL',Z1$(1,3),@(21),'RB',; INPUT (0,ERR=1690,SIZ=4)Q(999)
  • 1700 IF Q=0 THEN GOTO 1690
    1690 
    PRINT @(21,PY),'CL',Z1$(1,3),@(21),'RB',; INPUT (0,ERR=1690,SIZ=4)Q(999)
  • 1710 PRINT @(21,PY),'CL',QM1$
  • 1720 PRINT @(26,PY),'CL',Z1$(1,30),@(26),'RB',; INPUT (0,ERR=1720,SIZ=32)O7$(LEN=0,30)
  • 1730 PRINT @(26,PY),'CL',O7$
  • 1740 PRINT 'BR',@(0,23),1=ROUND BARS 2=FORGINGS 3=RINGS 4=BILLETS,'ER',@(58,PY),'CL','RB',; INPUT (0 ,ERR =1740,SIZ=3)CC(4)
  • 1750 IF CC=0 THEN GOTO 1740 ELSE LET CC$=STR(CC00)
    1740 
    PRINT 'BR',@(0,23),1=ROUND BARS  2=FORGINGS  3=RINGS  4=BILLETS,'ER',@(58,PY),'CL','RB',; INPUT (0 ,ERR =1740 ,SIZ= 
    3)CC(4)
  • 1760 PRINT @(0,22),'CE',@(58,PY),CC$
  • 1770 PRINT @(62,PY),'CL',Z1$(1,15),@(62),'RB',; INPUT (0,ERR=1770,SIZ=17)D$(LEN=0,15)
  • 1780 PRINT @(62,PY),'CL',D$
  • 1790 IF V1$ THEN GOTO 1565
    1565
    LET CTR=CTR+1,C$=STR(CTR00),TW=TW+W,SW=SW+W
  • 1800 LET Y=4; GOSUB 11100; IF W$= THEN GOTO 1800 ELSE LET V1$=W$
  • 1810 LET Y=5; GOSUB 11100; LET V2$=W$
  • 1820 LET Y=6; GOSUB 11100; LET V3$=W$
  • 1830 LET Y=7; GOSUB 11100; LET V4$=W$
  • 1835 LET V5$=,V6$=
  • 1840 PRINT 'BR',@(0,23),CTL(III) = CANADA CTL(IV) = MEXICO ,'ER',@(20,22),'CL',PLEASE ENTER THE SHIP TO STATE ,Z1$(1,2),@(51),'RB',; INPUT (0,ERR=,SIZ=3)V0$(=1850,LEN=2,2); GOTO 1860
    1860
    IF LEN(V0$)=2 THEN FIND (40,KEY=ST+V0$,DOM=1840)
  • 1850 IF CTL=3 THEN LET V0$=CANADA ELSE IF CTL=4 THEN LET V0$=MEXICO ELSE GOTO 1840
    1840
    PRINT 'BR',@(0,23),CTL(III) = CANADA    CTL(IV) = MEXICO ,'ER',@(20,22),'CL',PLEASE ENTER THE SHIP TO STATE 
    ,Z1$(1,2),@(51),'RB',; INPUT (0,ERR=,SIZ=3)V0$(=1850,LEN=2,2); GOTO 1860
    • 1860
      IF LEN(V0$)=2 THEN FIND (40,KEY=ST+V0$,DOM=1840)
  • 1860 IF LEN(V0$)=2 THEN FIND (40,KEY=ST+V0$,DOM=1840)
  • 1870 PRINT @(0,22),'CE'
  • 1880 GOTO 1565
    1565
    LET CTR=CTR+1,C$=STR(CTR00),TW=TW+W,SW=SW+W
  • 1900 PRINT @(25,8),'CL',Z1$(1,40),@(25),'RB',; INPUT (0,ERR=1900,SIZ=42)V$(LEN=0,40)
  • 1910 PRINT @(25,8),'CL',V$
  • 1920 GOTO 3000
    3000 
    IF CTR=0 THEN GOTO 3100
    • 3100
    'RB','RB'; WAIT 3
  • 2000 PRINT @(0,11),'CE','BR',@(0,23),ENTERSTOPNUMBERORCTL(I)TOADDASTOP,'ER',@(25,4),'CL',@(25,6),'CL',@(25,7),'CL',@(25,8), 'CL',@(3,5),'CL','RB',; INPUT (0,ERR=2000,SIZ=3)S(ST),@(3,5),'CL'
  • 2001 REM PRINT @(0,11),'CE','BR',@(0,23),ENTER STOP NUMBER OR CTL(I) TO ADD A STOP,'ER',@(25,4),'CL',@(25,6),'CL' ,@(25,7),'CL',@(25,8),'CL',@(3,5),'CL','RB',; IF A$=C THEN LET S=1 ELSE INPUT (0,ERR=2000,SIZ=3)S(ST),@(3,5),'CL'
  • 2010 IF CTL=1 THEN GOTO 1410 ELSE IF S=0 THEN GOTO 2000 ELSE LET S$=STR(S)
    1410
    IF ST=9 THEN GOTO 3000 ELSE LETST=ST+1,CTR=0,SW=0,PY=11,S$=STR(ST),V0$=,V1$=,V$=,CHECKU$=
    • 3000
    IF CTR=0 THEN GOTO 3100
      • 3100
    'RB','RB'; WAIT 3
     2000
     PRINT @(0,11),'CE','BR',@(0,23),ENTERSTOPNUMBERORCTL(I)TOADDASTOP,'ER',@(25,4),'CL',@(25,6),'CL',@(25,7),'CL',@(25,8), 
    'CL',@(3,5),'CL','RB',; INPUT (0,ERR=2000,SIZ=3)S(ST),@(3,5),'CL'
  • 2020 FIND (1,KEY=K$+S$+ ,DOM=10500)V$,V1$,V0$,CTR,SW
  • 2030 READ (1,KEY=K$+S$+00)V2$,V3$,V4$,V5$
  • 2040 PRINT @(3,5),S$,@(25,4),V1$,@(25,5),V2$,@(25,6),V3$,@(25,7),V4$, ,V5$,@(25,8),V$
  • 2050 PRINT @(20,22),'CE',DO YOU WISH TO REMOVE THIS STOP (YESN) ,'RB',; INPUT (0,ERR=2050,SIZ=5)Y$(YES=2060,N=2090)
  • 2060 LET ST=S-1,TW=TW-SW; PRINT @(73,0),TWM$
  • 2062 READ(1,KEY=K$+S$,ERR=2064)
  • 2064 LET K1$=KEY(1,END=2080)
  • 2066 IF K1$(1,6)K$ THEN GOTO 2080
    2080
    GOTO 2000
    • 2000
      PRINT @(0,11),'CE','BR',@(0,23),ENTERSTOPNUMBERORCTL(I)TOADDASTOP,'ER',@(25,4),'CL',@(25,6),'CL',@(25,7),'CL',@(25,8), 
      'CL',@(3,5),'CL','RB',; INPUT (0,ERR=2000,SIZ=3)S(ST),@(3,5),'CL'
  • 2068 READ RECORD (1,KEY=K1$)R$
  • 2069 IF K1$(7,1)S$ THEN GOTO 2072 ELSE IF K1$(8)01 THEN GOTO 2076
    2072
    LET S0=NUM(K1$(7,1))-1,ST=S0
    2076
    REMOVE (1,KEY=K1$)
  • 2070 READ (1,KEY=K1$)O1$; REMOVE (5,KEY=O1$+9,ERR=2071)
  • 2071 GOTO 2076
    2076
    NEXT I
  • 2072 LET S0=NUM(K1$(7,1))-1,ST=S0
  • 2073 IF K1$(8)00 THEN READ (1,KEY=K1$)O1$; REMOVE (5,KEY=O1$+9,ERR=2074); WRITE(5,KEY=O1$+9) K1$(1,6)+STR(S0)+K1$(8)
  • 2074 WRITE RECORD (1,KEY=K1$(1,6)+STR(S0)+K1$(8))R$
  • 2076 REMOVE (1,KEY=K1$)
  • 2077 READ (61,KEY=O1$,DOM=2078,RETAIN); WRITE (61,RETAIN)DATE7#=
  • 2078 GOTO 2064
    2064
  • 2080 GOTO 2000
    2000
    PRINT @(0,11),'CE','BR',@(0,23),ENTERSTOPNUMBERORCTL(I)TOADDASTOP,'ER',@(25,4),'CL',@(25,6),'CL',@(25,7),'CL',@(25,8), 
    'CL',@(3,5),'CL','RB',; INPUT (0,ERR=2000,SIZ=3)S(ST),@(3,5),'CL'
  • 2090 LET C=0,PY=10; DIM CTR[10]
  • 2095 READ (1,KEY=K$+S$+00)
  • 2100 LET K1$=KEY(1,END=2200)
  • 2110 IF K1$(1,7)K$+S$ THEN GOTO 2200
    2200
    IF C=0 THEN GOTO 2350 ELSE PRINT @(0,22),'CE',@(10),ENTER INCORRECT NUMBER, CTL(IV) TO RESTART, OR CR FOR MORE  
    'RB',; INPUT (0,ERR=2200,SIZ=3)OP(C),@(0,22),'CL'
  • 2120 READ (1,KEY=K1$)O1$,W,Q,O7$,CC$,D$
  • 2130 LET PY=PY+1,C=C+1,CTR[C]=NUM(K1$(8))
  • 2140 PRINT @(0,PY),'CE',C,@(4),O1$,@(12),WM$,@(21),QM1$,@(26),O7$,@(58),CC$,@(62),D$
  • 2150 IF PY20 THEN GOTO 2100
    2100
    LET K1$=KEY(1,END=2200)
  • 2200 IF C=0 THEN GOTO 2350 ELSE PRINT @(0,22),'CE',@(10),ENTER INCORRECT NUMBER, CTL(IV) TO RESTART, OR CR FOR MORE ,'RB',; INPUT (0,ERR=2200,SIZ=3)OP(C),@(0,22),'CL'
  • 2210 IF CTL=4 THEN GOTO 2090 ELSE IF OP0 THEN GOTO 2300
   2090
   LET C=0,PY=10; DIM CTR[10]
   2300
   LET PY=OP+10,C$=STR(CTR[OP]00)
  • 2220 LET K1$=KEY(1,END=2360)
  • 2230 IF K1$(1,7)K$+S$ THEN GOTO 2360
   2360 
   LET PY=PY+1
  • 2240 PRINT @(0,11),'CE'
  • 2250 LET C=0,PY=10; DIM CTR[10]
  • 2260 GOTO 2120
   2120
   READ (1,KEY=K1$)O1$,W,Q,O7$,CC$,D$
  • 2300 LET PY=OP+10,C$=STR(CTR[OP]00)
  • 2310 FIND (11,KEY=K$+S$+C$)O1$,W,Q,O7$,CC$,D$
  • 2320 PRINT @(15,22),'CL',DO YOU WISH TO DELETE #,STR(OP), FROM SHIPMENT (YESN) ,'RB',; INPUT (0,ERR=2320,SIZ=5)Y$ *(YES=2330,N=2400)
  • 2330 REMOVE (1,KEY=K$+S$+C$); REMOVE (5,KEY=O1$+9,ERR=2335)
  • 2335 LET TW=TW-W,SW=SW-W; PRINT @(73,0),TWM$
  • 2340 GOTO 2090
   2090
   LET C=0,PY=10; DIM CTR[10]
  • 2350 LET CTR=0,PY=10
  • 2360 LET PY=PY+1
  • 2370 IF PY=20 THEN LET PY=11
  • 2372 FOR I=11 TO 20
  • 2375 PRINT @(0,I),Z$(1,3)
  • 2376 NEXT I
  • 2380 GOTO 1430
   1430
   PRINT @(4,PY),'CE','BR',@(0,23),CTL(I) FOR NO SHOP ORDER  OR  CTL(IV) TO END,'ER',@(4,PY),Z1$(1,7),@(4),'RB',; INPUT 
   (0,ERR=1430,SIZ=8)O1$(=1440,LEN=6,7); GOTO 1450
    • 1450
        IF LEN(O1$)=5 OR O1$(1,5)=00000 THEN LET O1$= +O1$ 
  • 2400 FIND (11,KEY=K$+S$+C$)O1$,W,Q,O7$,CC$,D$
  • 2405 IF POS(Stock #=D$)=1 THEN GOTO 2420
    2420
    PRINT @(62,PY),'CL',D$
  • 2410 PRINT @(0,22),'CE',@(62,PY),'CL',Z1$(1,15),@(62),'RB',; INPUT (0,ERR=2410,SIZ=17)D$(LEN=0,15)
  • 2420 PRINT @(62,PY),'CL',D$
  • 2430 WRITE (11,KEY=K$+S$+C$)O1$,W,Q,O7$,CC$,D$
  • 2440 GOTO 2200
    2200
    IF C=0 THEN GOTO 2350 ELSE PRINT @(0,22),'CE',@(10),ENTER INCORRECT NUMBER, CTL(IV) TO RESTART, OR CR FOR MORE 
    ,'RB',; INPUT (0,ERR=2200,SIZ=3)OP(C),@(0,22),'CL'
  • 2500 IF LEN(AA2$)5 THEN GOTO 1050
    1050
    IF O3$(1,3)=101 THEN LET CC$=01 ELSE IF O3$(1,3)=212 OR O3$(1,3)=600 THEN LET CC$=03 ELSE 
    LET CC$=02
  • 2501 LET R19003=0,A2$=STR(NUM(AA2$,ERR=2505)00000),K$=A1$+A2$,LETTER$=A2$(1,1),A2$=A2$(2); GOTO 2510
  • 2505 LET A2$=AA2$(1,1)+STR(NUM(AA2$(2),ERR=1050)0000),K$=A1$+A2$,LETTER$=A2$(1,1),A2$=A2$(2)
  • 2510 EXTRACT (1,KEY=K$+000,DOM=10400)A3$,A4$,A5$,A$,B$,ST,A6$,TW; REMOVE (1,KEY=K$+000)
  • 2520 LET S$=STR(ST),O2$=B$
  • 2530 FIND (1,KEY=K$+S$+ )V$,V1$,V0$,CTR,SW
  • 2540 READ (1,KEY=K$+S$+00)V2$,V3$,V4$,V5$
  • 2550 FIND (40,KEY=P+A3$),,WA3$
  • 2560 FIND (3,KEY=A4$),WA4$
  • 2570 IF A$=C THEN LET WA$=COLLECT ELSE IF A$=P THEN LET WA$=PREPAID ELSE LET WA$=
  • 2580 PRINT'CF',@(18,0),A1$, -,LETTER$,A2$,@(34,0),WA3$,@(53,0),WA $,@(73,0),TWM$,@(10,2),WA4$,@(47,2),A5$,@(74,2),A6$, @(3,5),S$,@(26,4),V1$,@(26,5),V2$,@(26,6),V3$,@(26,7),V4$, ,V5$,@(26,8),V$
  • 2590 LET PY=10
  • 2600 LET K1$=KEY(1,END=2651)

Reflection