10  DIM A$[72],B$[72],C$[72],D$[72]
20  DIM A1$[72],B1$[72],C1$[72],D1$[72]
30  DIM E$[5]
40  Y1=BRK(0)
50  GOTO 940
60  PURGE X,"BIL1SF"
70  ASSIGN *,1
80  ASSIGN *,2
90  ASSIGN *,3
100  ASSIGN *,4
110  PURGE X,"DUTZFL"
120  T=BRK(1)
130  GOTO 210
140  PRINT LIN(4)
150  PRINT "              (1) Add new trial #            (2) List trial #"
160  PRINT "              (3) Init log or crzyfl         (4) Repk file"
170  PRINT "              (5) Log file list              (6) Crzyfl list"
180  PRINT "              (7) Bill file maint            (8) Delete trial #"
190  PRINT "              (9) Activity report           (10) Stop"
200  PRINT "             (11) MENU"
210  PRINT "Command >";
220  S=0
230  ENTER 30,X,S
240  IF X=-256 THEN 2970
250  IF S<1 THEN 140
260  FILES *,*,*,*
270  ASSIGN "FREEFL.A001",1,R, PR 
280  IF R=6 THEN 270
290  GOTO S OF 310,490,740,940,1330,1490,1590,2410,2770,2970,140
300  IF S>11 THEN 2970
310  READ #1,1
320  FOR I=1 TO 1000
330  IF  END #1 THEN 360
340  READ #1;A$,B$
350  NEXT I
360  PRINT "ENTER NAME ";
370  A2=2
380  INPUT A$
390  PRINT "ACCESS -- (DAYS) ";
400  ENTER 255,X,A2
410  IF X=-256 THEN 400
420  PRINT 
430  A1=TIM(2)+A2-2
440  IF A1>365 THEN 390
450  CONVERT A1 TO B$
460  PRINT #1;A$,B$
470  PRINT #1; END 
480  GOTO 60
490  REM **** ACCESS LIST ****
500  PRINT LIN(2)
510  PRINT "                                        REMAINING"
520  PRINT "  NAME           TODAY'S JULIAN            DAYS        REMOVAL"
530  PRINT "---------------------------------------------------------------"
540  IMAGE 15A,8X,10A,9X,10A,7X,10A
550  READ #1,1
560  IF  END #1 THEN 910
570  READ #1;A$,B$
580  CONVERT B$ TO B3
590  B4=B3-TIM(2)+1
600  IF B4=-1 OR B4=-2 OR B4<-2 THEN 640
610  IF B4=0 THEN 660
620  CONVERT B4 TO C$
630  GOTO 670
640  C$="NO ACCESS"
650  GOTO 670
660  C$="TODAY ONLY"
670  CONVERT B$ TO B5
680  B5=B5+4
690  CONVERT B5 TO D$
700  CONVERT TIM(2) TO E$
710  PRINT  USING 540;A$,E$,C$,D$
720  GOTO 560
730  REM *** INIT SUB ***
740  PRINT "DO YOU WANT TO INIT LOG FILE";
750  INPUT D$
760  IF D$[1,1]="Y" THEN 810
770  PRINT "DO YOU WANT TO INIT CRAZY FILE ";
780  INPUT D$
790  IF D$[1,3]="YES" THEN 850
800  GOTO 60
810  PRINT "...WAIT"'7
820  ASSIGN "LOGFL.A001",1,X1, PR 
830  IF X1=6 THEN 820
840  GOTO 860
850  ASSIGN "CRZYFL.A001",1,X1, PR 
860  IF X1=6 THEN 850
870  FOR I=1 TO 5000
880  IF  END #1 THEN 60
890  PRINT #1,I; END 
900  NEXT I
910  PRINT LIN(2);"---------------------------------------------------------------"
920  ASSIGN *,1
930  GOTO 60
940  REM **** REPACK ****
950  T=BRK(0)
960  ASSIGN "FREEFL.A001",1,R, PR 
970  IF R=6 THEN 960
980  IF  END #1 THEN 60
990  READ #1,1;A$
1000  A$=""
1010  PRINT "Wait ..."
1020  PURGE X,"FRE01F"
1030  CREATE X,"FRE01F",20
1040  SYSTEM Y,"PRI-FRE01F"
1050  ASSIGN "FRE01F",2,R, PR 
1060  IF R=6 THEN 1050
1070  READ #1,1
1080  READ #2,1
1090  FOR I=1 TO 1000
1100  REM **
1110  IF  END #1 THEN 1220
1120  READ #1;A$,B$
1130  CONVERT B$ TO A2
1140  LET A1=TIM(2)
1150  IF A2+3<A1 THEN 1170
1160  GOTO 1200
1170  PRINT A$;" ";B$;" DELETED"
1180  PRINT CHR$(7)
1190  GOTO 1100
1200  PRINT #2;A$,B$
1210  NEXT I
1220  READ #1,1
1230  READ #2,1
1240  FOR I=1 TO 1000
1250  IF  END #2 THEN 1290
1260  READ #2;A$,B$
1270  PRINT #1;A$,B$
1280  NEXT I
1290  PRINT #1; END 
1300  ASSIGN *,2
1310  PURGE X,"FRE01F"
1320  GOTO 60
1330  REM *** LOG FILE LIST ***
1340  PRINT LIN(1);"---------------------------------------------------------"
1350  IMAGE15A,10X,"---",6X,32A
1360  PRINT 
1370  ASSIGN "LOGFL.A001",3,R, PR 
1380  IF R=6 THEN 1370
1390  READ #3,1
1400  FOR I=1 TO 1000
1410  IF  END #3 THEN 1450
1420  READ #3;A$,B$
1430  PRINT  USING 1350;A$,B$
1440  NEXT I
1450  PRINT LIN(1);"---------------------------------------------------------"
1460  PRINT LIN(1);"***************** NO MORE ENTRIES ***********************"
1470  PRINT 
1480  GOTO 60
1490  ASSIGN "CRZYFL.A001",1,R3, PR 
1500  IF R3=6 THEN 1490
1510  PRINT LIN(2);"*********************** CRAZY FILE LIST ************************"
1520  READ #1,1
1530  FOR I=1 TO 32767
1540  IF  END #1 THEN 1460
1550  READ #1;A$
1560  PRINT A$
1570  NEXT I
1580  STOP 
1590  REM ***
1600  REM
1610  ASSIGN "BIL01F.A001",1,R3, PR 
1620  IF R3=6 THEN 1610
1630  PRINT LIN(3)
1640  PRINT "***************** OVER-DUE BXXX ACCOUNTS ********************"
1650  PRINT 
1660  PRINT " (1) ADD     (2) LIST   (3) DELETE"
1670  PRINT " (4) STOP"
1680  A7=0
1690  PRINT CHR$(7)
1700  PRINT "Option >";
1710  ENTER 60,X4,A7
1720  PRINT 
1730  IF A7=0 THEN 60
1740  IF X4=-256 THEN 60
1750  IF A7>4 THEN 1630
1760  PRINT LIN(2)
1770  GOTO A7 OF 1780,1900,2160,140
1780  REM **** ADD TO BILL CHECK FILE ****
1790  READ #1,1
1800  FOR I=1 TO 200
1810  IF  END #1 THEN 1840
1820  READ #1;A1$,B1$
1830  NEXT I
1840  PRINT "ENTER ACCOUNT # ";
1850  INPUT B$
1860  PRINT "ENTER BILL START DATE ( JULIAN ) ";
1870  INPUT A1$
1880  PRINT #1;B$,A1$, END 
1890  GOTO 1660
1900  REM **** LIST BILL CHECK FILE ****
1910  IMAGE 10A,5X,10A,5X,20A,5X,5D
1920  IMAGE 10A,2X,15A,5X,10A,10X,10A
1930  PRINT LIN(3)
1940  A$="ACCOUNT"
1950  B$="INVOICE SENT"
1960  C$="STATUS"
1970  D$="DAYS LATE"
1980  PRINT  USING 1920;A$,B$,C$,D$
1990  PRINT 
2000  READ #1,1
2010  IF  END #1 THEN 1630
2020  READ #1;A1$,B1$
2030  CONVERT B1$ TO B1
2040  C1=TIM(2)-B1
2050  IF C1>7 AND C1<16 THEN 2090
2060  IF C1<7 THEN 2130
2070  IF C1>15 THEN 2110
2080  GOTO 2130
2090  C1$="LATE NOTICE SENT"
2100  GOTO 2140
2110  C1$="ACCOUNT SUSPENDED"
2120  GOTO 2140
2130  C1$="IN PROCESS"
2140  PRINT  USING 1910;A1$,B1$,C1$,C1
2150  GOTO 2010
2160  REM **** DELETE FROM BILL CHECK FILE ****
2170  CREATE R,"BIL1SF",100
2180  SYSTEM X,"PRI-BIL1SF"
2190  ASSIGN "BIL1SF",2,R8, PR 
2200  IF R8=6 THEN 2190
2210  READ #1,1
2220  READ #2,1
2230  REM
2240  PRINT "ENTER ACCOUNT TO BE DELETED FROM BILL CHECK FILE";
2250  INPUT C1$
2260  IF  END #1 THEN 2310
2270  READ #1;A1$,B1$
2280  IF A1$[1,4]=C1$[1,4] THEN 2270
2290  PRINT #2;A1$,B1$
2300  GOTO 2260
2310  READ #1,1
2320  READ #2,1
2330  IF  END #2 THEN 2370
2340  READ #2;A1$,B1$
2350  PRINT #1;A1$,B1$
2360  GOTO 2330
2370  FOR N=1 TO 50
2380  PRINT #1; END 
2390  NEXT N
2400  GOTO 1660
2410  REM **** PURGE NAME FROM FREE ACCESS ON B000 ****
2420  CREATE X,"DUTZFL",25
2430  IF TYP(1)=3 THEN 2720
2440  PRINT 
2450  SYSTEM X,"PRI-DUTZFL"
2460  READ #1,1
2470  IF TYP(1)=3 THEN 2750
2480  PRINT 
2490  PRINT "Enter name to be removed ";
2500  LINPUT C$
2510  IF  END #1 THEN 2730
2520  READ #1;A$,B$
2530  IF C$=A$ THEN 2550
2540  GOTO 2510
2550  PRINT "Wait..."'7
2560  READ #1,1
2570  ASSIGN "DUTZFL",4,R, PR 
2580  IF TYP(1)=3 THEN 2620
2590  READ #1;A$,B$
2600  PRINT #4;A$,B$
2610  GOTO 2580
2620  READ #1,1
2630  READ #4,1
2640  IF  END #4 THEN 2710
2650  READ #4;A$,B$
2660  IF A$=C$ THEN 2690
2670  PRINT #1;A$,B$
2680  GOTO 2640
2690  PRINT "Removing ";A$
2700  GOTO 2640
2710  PRINT #1; END 
2720  GOTO 490
2730  PRINT "Not found"'7
2740  GOTO 490
2750  PRINT LIN(1);"File is empty"'7
2760  GOTO 60
2770  REM **** ACTIVITY REPORT ****
2780  PRINT "------------------------------------------------------------------"
2790  PRINT LIN(3)
2800  ASSIGN "REPFL1.A001",4,R, NR 
2810  IF R=6 THEN 2800
2820  IF TYP(4)=3 THEN 2860
2830  READ #4;A$,B$
2840  PRINT A$;B$
2850  GOTO 2820
2860  PRINT LIN(1);"End of activity report"'7
2870  PRINT LIN(2);"Do you wan't to erase this report file ";
2880  ENTER 60,X,A$
2890  IF X=-256 THEN 60
2900  PRINT LIN(3)
2910  IF A$#"YES" THEN 60
2920  READ #4,1
2930  FOR T=1 TO 10000
2940  IF  END #4 THEN 60
2950  PRINT #4,T; END 
2960  NEXT T
2970  END 
