Download 31295005453542

165
1050 IF T-1 THEN CLEAR 0 BEEP 0 DISP "Must be processed first."
0 WAIT 4500 0 GOTO 370
! If not processed data file, notify user & return to main prog
1060 GOSUB 4430
! Single plot routine
1070 CLEAR 0 BEEP
1080 DISP "What title do you want for the "
1090 DISP 1$;" axis of this "
1100 DISP K$;" vs ";I$;" curve";
1110 INPUT U$
'
! Input horiz title
1120 IF LEN(U$)>25 THEN CLEAR 0 BEEP 0 DISP "No more than 25
characters." 0 WAIT 4500 0 GOTO 1070
! If title is too long, notify user and re-enter horizontal title
1130 CLEAR 0 BEEP
1140 DISP "What title do you want for the "
1150 DISP K$;" axis of this "
1160 DISP K$;" vs ";I$;" curve";
1170 INPUT V$
! Input vertical title
1180 IF LEN(V$)>25 THEN CLEAR 0 BEEP 0 DISP "No more than 25
Characters." 0 WAIT 4500 0 GOTO 1130
! If title is too long, notify user and re-enter vertical title
1190 A-P(l,4)/2048
A - * of 2048-byte blks
1200 B-FP(A)
B - fractional part A
1210 Q1-IP(A)+1
Ql = * of reads curve 1
1220 IF B-0 THEN Ql-Ql-1
Allow for integer A
1230 A-P(2,4)/2048
A = * of 2048-byte blks
1240 B-FP(A)
B = fractional part A
1250 Q2-IP(A)+1
Q2 = * of reads curve 2
1260 IF B-0 THEN Q2-Q2-1
Allow for integer A
1270 CLEAR 0 BEEP
1280 DISP "Do you want a grid or graph?"
1290 DISP "(GRID/GRAPH)"
1300 INPUT Q$
Choose grid or graph
1310 A-0 0 B-0
1320 IF S$-"Y" THEN A-8
! If chose single plot option, set x origin offset