10 '    Program by Kim Watt
20 '    Breeze Computing Inc.
30 '    P.O. Box 1013
40 '    Berkley, Mich. 48072
50 '    313-288-9422
60 '
70 '
80 CLEAR25000:DEFSTRA:DEFINTN:DIMA(300)
100 CLS:PRINT:PRINT:ONERRORGOTO0
110 PRINT"1.  Create a file
115 PRINT"2.  Add to end of file in memory
120 PRINT"3.  Edit file in memory
130 PRINT"4.  List file in memory
140 PRINT"5.  Print file in memory
150 PRINT"6.  Read file from disk
160 PRINT"7.  Write file to disk
170 PRINT"8.  End program
180 PRINT:PRINT:PRINT"Selection ? ";:GOSUB10000:IFA=""THEN100
190 ONINSTR("12345678",A)GOTO1000,8000,2000,3000,4000,5000,6000,7000
200 GOTO100
1000 CLS:N=0
1010 LINEINPUTA(N):IFA(N)=""THENN=N-1:GOTO100
1020 N=N+1:GOTO1010
2000 CLS:IFN<=0THENPRINT"NO FILE in memory!":GOTO3007
2002 PRINT"Line to edit ? ";:GOSUB10000
2004 IFA=""THEN100ELSEIFVAL(A)<0ORVAL(A)>N+1THEN2002
2006 PRINTA(VAL(A)):PRINT:PRINT"Enter correct line.":PRINT
2008 LINEINPUTA(VAL(A)):GOTO2000
3000 CLS:IFN<=0THEN2000ELSEFORL=0TON:PRINTL;A(L)
3005 NEXTL
3007 LINEINPUT"Press <ENTER> to continue. ";A$:GOTO100
4000 CLS:IFN<=0THEN2000ELSEPRINT"Output to lineprinter
4005 IFPEEK(&H37E8)>127THENPRINT"Printer NOT READY":GOTO3007
4010 FORL=0TON:LPRINTL;A(L):GOTO3005
5000 ONERRORGOTO9000:CLS:PRINT"Enter filename to load: ";:GOSUB10000
5010 IFA=""THEN100
5020 CLOSE:OPEN"I",1,A:INPUT#1,N
5030 FORL=0TON:INPUT#1,A(L):NEXTL:CLOSE:GOTO100
6000 CLS:PRINT"Enter filename to save: ";:GOSUB10000
6010 IFA=""THEN100ELSEAA=A
6015 FORL=0TON:IFINSTR(A(L),",")>0THENPRINT"Line"L"contains commas!  You must remove them.":GOTO3007:ELSENEXT
6017 ONERRORGOTO6500
6018 CLOSE:OPEN"I",1,AA:CLOSE:PRINT
6019 PRINT"That file already exists, replace it ? ";:GOSUB10000:IFA=""THEN6019ELSEA=LEFT$(A,1):IFA="N"ORA="n"THEN6000ELSEIFA="Y"ORA="y"THEN6020ELSE6019
6020 CLOSE:OPEN"O",1,AA:PRINT#1,N
6030 FORL=0TON:PRINT#1,A(L)",";:NEXTL
6040 CLOSE:GOTO100
6500 RESUME6020
7000 ONERRORGOTO0:CLEAR50:END
8000 CLS:IFN<=0THEN2000ELSEFORL=0TON:PRINTA(L):NEXTL:GOTO1010
9000 PRINT:PRINT"That file DOES NOT EXIST!":RESUME3007
10000 A="":LINEINPUTA:RETURN
