Specifications

130 Chapter 9
Saving and Recalling Files
Sample Program
600 END IF
610 CASE 7
620 Extension$=".dta"
630 END SELECT
640 !
650 CALL Inp_file_name(File$)
660 !
670 IF Extension$=".csv" THEN
680 OUTPUT @Agt4287a;":MMEM:STOR """&File$&Extension$&""","&Par$
690 ELSE
700 OUTPUT @Agt4287a;":MMEM:STOR """&File$&Extension$&""""
710 END IF
720 PRINT "## Done ##"
730 PRINT "Save file name: "&File$&Extension$
740 !
750 END
760 !=============================================
770 ! File Name Input Function
780 !=============================================
790 SUB Inp_file_name(Inp_name$)
800 DIM Inp_char$[9]
810 ON ERROR GOTO Inp_start
820 Inp_start: !
830 PRINT "## File Name Input ##"
840 PRINT "Input Save File Name (without Extension)"
850 INPUT "Name?",Inp_name$
860 PRINT "Input Name: "&Inp_name$
870 INPUT "OK? [Y/N]",Inp_char$
880 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
890 OFF ERROR
900 SUBEND