0001 ! DEL1 3-6-94 !
0010 SUB DELI(#1)
0015 USER OFF
0020 DISP 'Store,Load,Delete,Ex>'; @ INPUT '';A$
0030 IF A$[1,1]#"S" THEN 45
0040 CALL COPDN(#1) @ GOTO 20
0045 IF A$[1,1]#"L" THEN 55
0050 CALL COPUP(#1) @ GOTO 20
0055 IF A$[1,1]#"D" THEN 65
0060 CALL DEL(#1) @ GOTO 20
0065 IF A$[1,1]#"E" THEN 20
0200 END SUB 
0500 SUB DEL(#1)
0501 BEEP @ DISP "Clear Figures Y/N  >";
0502 INPUT "","N";Z$
0503 IF Z$[1,1]#"Y" THEN 590
0505 Q=-999999
0510 READ #1,1;S
0520 ON ERROR GOTO 580
0530 F=S+5
0535 DISP "Working"
0550 READ #1,F;N,E,Z
0560 PRINT #1,F;Q,Q,Q
0580 OFF ERROR
0590 END SUB 
0600 SUB COPDN(#1)
0610 INPUT "Figure File Name >";F$
0620 IF F$="" THEN 800
0630 IF LEN(F$)>8 THEN BEEP @ GOTO 610
0640 FOR I=1 TO INF @ IF CAT$(I)="" THEN 710
0650 U=POS(CAT$(I)[1,8]," ") @ IF NOT U THEN U=9
0660 IF CAT$(I)[1,U-1]#F$ THEN 700
0670 DISP "Overwrite "&F$&" Y/N >"; @ INPUT "","N";A$
0680 IF A$[1,1]="Y" THEN PURGE F$ @ GOTO 710
0690 GOTO 610
0700 NEXT I
0710 DISP "Working"
0715 CREATE DATA F$,0,24 @ ASSIGN #51 TO F$
0720 READ #1,1;S
0730 ON ERROR GOTO 790
0740 F=S+4 @ Q=-999999
0750 F=F+1 @ G=F-S-5
0760 READ #1,F;N,E,Z
0770 PRINT #51,G;N,E,Z
0775 IF N=Q AND E=Q AND Z=Q THEN 790
0780 GOTO 750
0790 OFF ERROR @ ASSIGN #51 TO *
0800 END SUB 
0810 SUB COPUP(#1)
0840 INPUT "Figure File Name >";F$
0850 IF F$="" THEN 990
0855 ASSIGN #51 TO F$
0890 CALL DEL(#1)
0900 DISP "Working"
0910 ON ERROR GOTO 980
0920 READ #1,1;S
0930 F=S+4
0940 FOR I=1 TO INF
0950 READ #51,I-1;N,E,Z
0960 PRINT #1,I+F;N,E,Z
0970 NEXT I
0980 OFF ERROR @ ASSIGN #51 TO *
0990 END SUB 
