10 REM PROGRAM WILL PLOT ASCII DATA POINTS (UP TO 512) WITH VALUES
20 REM OF UP TO 4095.  DATA FROM FILES IN STANDARD OS/8 FORMAT.
30 REM TO EXIT TYPE <RETURN> AFTER PLOT
40 DIM D(5000)
50 DIM F$(13)
60 DIM D$(512,8)
70 PRINT PNT(27);"[1J";PNT(27);"[H"
80 PRINT "DATA FILE ";
90 INPUT F$
100 FILE #1: F$
110 I=0
120 INPUT #1:D$(I)
130 IF END #1 THEN 200
140 D(I)=VAL(D$(I))
150 D(I)=4095-D(I)
160 D(I)=D(I)/10
170 D$(I)=STR$(D(I))
180 I=I+1
190 GOTO 120
200 CLOSE #1
210 PRINT "MAXIMUM VALUE OF ORDINATE";
220 INPUT M$
230 PRINT "CONDITION 1 ENDS AT ";
240 INPUT A$
250 PRINT "CONDITION 2 ENDS AT ";
260 INPUT B$
270 I$=STR$(I)
280 PRINT "CONDITION 3 ENDS AT ";I$
290 PRINT PNT(27);PNT(80);PNT(112)
300 PRINT "W(P1)"
310 PRINT "P[0,0]"
320 PRINT "T'";M$;"'"
330 PRINT "P[0,205]"
340 PRINT "T' UV'"
350 PRINT "P[38,0]"
360 PRINT "V[,+410][+750]"
370 PRINT "P[33,412]"
380 PRINT "T'0'"
390 PRINT "P[38,410]"
400 PRINT "W(P4)"
410 PRINT "P[+";A$;"]"
420 PRINT "V[,0]"
430 PRINT "P[38,410]"
440 PRINT "P[+";B$;"]"
450 PRINT "V[,0]"
460 PRINT "P[38,410]"
470 PRINT "P[+";I$;"]"
480 PRINT "V[,0]"
490 PRINT "P[25,412]"
500 PRINT "P[+";A$;"]"
510 PRINT "T'";A$;"'"
520 PRINT "P[25,412]"
530 PRINT "P[+";B$;"]"
540 PRINT "T'";B$;"'"
550 PRINT "P[25,412]"
560 PRINT "P[+";I$;"]"
570 PRINT "T'";I$;"'"
580 LET X=39
590 FOR J=1 TO I
600 X$=STR$(X)
610 PRINT "P[";X$;",";D$(J);"]"
620 PRINT "S(C0)"
630 PRINT "W(P1)"
640 PRINT "V[]"
650 LET X=X+1
660 NEXT J
670 INPUT Q$
680 PRINT "S(E)"
690 PRINT PNT(27);PNT(92)
700 END