05 REM - PROGRAM NAME: "EXP002"
10 REM - PROGRAM SORTS TRANSACTIONS INORDER BY ACCOUNT,
     P.O. NUMBER, AND STATUS
12 OPEN "LP:"  FOR OUTPUT AS FILE 3
15 INPUT "ENTER FILE NAME";I$
16 OPEN I$ AS FILE 1
25 DIM #1,T$(5000)=46
26 INPUT "PRINT OR SORT";R$
27 IF R$="PRINT" THEN GOTO 855
30 LET M=5000
40 LET J=1
45 LET K=1
50 LET A$=T$(J)
52 LET E%=0
53 LET J=J+1
55 FOR J=J TO M
70 LET B$=T$(J)
80 IF MID(B$,1,7)="9999999" THEN 600
90 IF MID(A$,1,12)<=MID(B$,1,12) THEN LET T$(K)=A$
     ELSE 400
95 LET K=K+1
100 LET A$=B$
110 NEXT J
200 GOTO 615
400 LET T$(K)=B$
410 LET K=K+1
415 LET E%=E%+1
416 LET M=K
420 GOTO 110
600 LET T$(K)=A$
605 LET K=K+1
606 LET B$=MID(B$,1,41)+"99999"
610 LET T$(K)=B$
615 IF E%=0 THEN 800
616 LET P=P+1
617 IF P=10 THEN GOTO 700
620 LET E%=0
680 GOTO 40
700 PRINT "*";M
705 SLEEP(5)
710 LET P=0
720 GOTO 620
800 GOTO 855
855 PRINT #3,"LISTING OF SORTED INVOICES & PURCHASE ORDERS ";
     DATE$(0)
856 PRINT #3                  !SKIP A LINE
860 FOR X=1 TO 5000
875 PRINT #3,T$(X)
877 IF MID(T$(X),1,7)="9999999" GOTO 999
880 NEXT X
999 CLOSE 1,3
1050 END