10 REM                    DGRAPH.BA
20 REM
30 REM
40 REM ROUTINE TO TABULATE, GRAPH AND FILE DATA (DATE AND LATENCY)
50 REM TO REVIEW DATA, REQUEST "OLD"
60 REM TO REPEAT RUN, ENTER <CR> WHEN TABULATION OR GRAPH COMPLETE
70 DIM A$(30),M1(12),X(100),Y(100),L$(50)
80 PRINT PNT(27);"[1J";PNT(27);"[H"
90 PRINT TAB(27);"DATA GRAPHING"
100 PRINT\PRINT
110 PRINT "NEW OR OLD";
120 INPUT A$
130 IF A$="NEW" THEN 160
140 IF A$="OLD" THEN 210
150 GOTO 110
160 PRINT "FILE NAME";
170 INPUT A$\PRINT
180 FILEVN#1:A$
190 GOSUB 690
200 GOTO 1040
210 PRINT "FILE NAME";
220 INPUT A$\PRINT
230 FILEN#1:A$
240 PRINT "<G>RAPH OR <T>ABULATE"
250 INPUT Q$
260 IF Q$="G" THEN 1080
270 IF Q$="T" THEN 290
280 GOTO 240
290 INPUT #1:M,D,Y,L,C
300 Z = C
310 RESTORE #1
320 N = 0
330 PRINT " DATE";TAB(21);"DAY";TAB(42);"LATENCY"
340 INPUT #1:M
350 IF M=0 THEN 420
360 INPUT #1:D,Y,L,C
370 T = C-Z
380 M$=STR$(M)\D$=STR$(D)\Y$=STR$(Y)\T$=STR$(T)\L$=STR$(L)
390 PRINT M$;"/";D$;"/";Y$;TAB(22);T$;TAB(41);L$;" MSEC"
400 N = N+1
410 GOTO 340
420 PRINT\PRINT "ADDITIONAL DATA (Y/N)";
430 INPUT Q$
440 IF Q$="Y" THEN 490
450 IF Q$="N" THEN 470
460 GOTO 420
470 CLOSE #1
480 GOTO 1040
490 RESTORE #1
500 FILEVN#2:"SYS:TEMP"
510 INPUT #1:M
520 IF M=0 THEN 560
530 INPUT #1:D,Y,L,C
540 PRINT #2:M,D,Y,L,C
550 GOTO 510
560 PRINT #2:M
570 CLOSE #1
580 CLOSE #2
590 FILEVN#1:A$
600 FILEN#2:"SYS:TEMP"
610 INPUT #2:M
620 IF M=0 THEN 660
630 INPUT #2:D,Y,L,C
640 PRINT #1:M,D,Y,L,C
650 GOTO 610
660 CLOSE #2
670 GOSUB 690
680 GOTO 1040
690 PRINT\PRINT "DATE (MM/DD/YY)"
700 INPUT T$
710 M$=SEG$(T$,1,2)\M=VAL(M$)
720 D$=SEG$(T$,4,5)\D=VAL(D$)
730 Y$=SEG$(T$,7,8)\Y=VAL(Y$)
740 PRINT "LATENCY (MSEC)";
750 INPUT L$\L=VAL(L$)
760 PRINT M$;"/";D$;"/";Y$;TAB(20);L$;" MSEC";TAB(40);
770 PRINT "CORRECT (Y/N)";
780 INPUT Q$
790 IF Q$="Y" THEN 820
800 IF Q$="N" THEN 690
810 GOTO 770
820 FOR I = 1 TO M
830 READ M1(I)
840 NEXT I
850 RESTORE
860 C = M1(M)+D
870 IF Y/4-INT(Y/4)=0 THEN 890
880 GOTO 920
890 IF M>2 THEN 910
900 GOTO 920
910 C = C+1
920 C = C+(Y-84)*365
930 DATA 0,31,59,90,120,151,181,212,243,273,304,334
940 N = N+1
950 PRINT #1:M,D,Y,L,C
960 PRINT\PRINT "ADDITIONAL DATA (Y/N)";
970 INPUT Q$
980 IF Q$="Y" THEN 690
990 IF Q$="N" THEN 1010
1000 GOTO 960
1010 M=0\PRINT #1:M
1020 CLOSE #1
1030 RETURN
1040 N$ = STR$(N)
1050 PRINT "TOTAL ENTRIES = ";N$
1060 INPUT Q$
1070 GOTO 80
1080 B=0
1090 FOR I=1 TO 3
1100 INPUT #1:M,D,Y,L,C
1110 B=B+L
1120 NEXT I
1130 B=B/3
1140 RESTORE #1
1150 INPUT #1:M,D,Y,L,C
1160 Z=C
1170 RESTORE #1
1180 N=0
1190 INPUT #1:M
1200 IF M=0 THEN 1270
1210 INPUT #1:D,Y,L,C
1220 X(N)=38+(C-Z)*13
1230 Y(N)=(L-B)/B
1240 Y(N)=320-Y(N)*320
1250 N=N+1
1260 GOTO 1190
1270 CLOSE #1
1280 V=N-1
1290 PRINT PNT(27);PNT(80);PNT(112)
1300 PRINT "S(C0)"
1310 PRINT "W(P1)"
1320 PRINT "P[0,0]"
1330 PRINT "T'+20%'"
1340 PRINT "P[+2]"
1350 PRINT "V[,+480]"
1360 PRINT "P[0,465]"
1370 PRINT "T'-10%'"
1380 PRINT "P[+3]"
1390 PRINT "P[,320]"
1400 PRINT "V[+750]"
1410 PRINT "P[38,322]"
1420 FOR I=1 TO 58
1430 PRINT "V[]"
1440 PRINT "P[+13]"
1450 NEXT I
1460 PRINT "W(P4)"
1470 N=0
1480 X$=STR$(X(N))
1490 Y$=STR$(Y(N))
1500 PRINT "P[";X$;",";Y$;"]"
1510 FOR N=1 TO V
1520 X$=STR$(X(N))
1530 Y$=STR$(Y(N))
1540 PRINT "V[";X$;",";Y$;"]"
1550 NEXT N
1560 PRINT "W(P1)"
1570 PRINT "P[650,450]"
1580 PRINT "T'";A$;"'"
1590 INPUT Q$
1600 PRINT "S(E)"
1610 PRINT PNT(27);PNT(92)
1620 GOTO 80
1630 END