I am getting an "EOF at line 980" error when I try to load a character list. The save seems to work? When I "*." the file is listed. The load procedure is almost the same as the save procedure. I have no idea why it crashes?
Please could someone fix my load procedure?
My updated script:
Please could someone fix my load procedure?
My updated script:
Code:
10PROCdb20REPEAT30CLS40PRINT"1]create 2]delete 3]edit 4]disk 5]exit"'50PROCpr60opt=FNmenu70IFopt=1PROCcr80IFopt=2PROCde90IFopt=3PROCed100IFopt=4PROCdk110UNTILopt=5120END130DEFPROCdb 140REM4 records,2 fields 150DATA4,2 160DATADONOVAN,100 170DATAJULIET,60 180DATATYLER,110 190DATAWILLIE,120 200DIMd$(11,2),id%(11) 210LOCALrd,fd,free:READrds,fds 220dp=1:fp=rds+1 230FORrd=1TOrds 240FORfd=1TOfds 250READd$(rd,fd):id%(rd)=rd+1 260NEXT,:id%(rds)=-1 270FORfree=rds+1TO11 280id%(free)=free+1 290NEXTfree:id%(11)=-1:ENDPROC 300DEFFNmenu:LOCALopt 310INPUT"Select] "opt 320=opt 330DEFPROCcr:af=0:LOCALlp 340INPUT"Type name to add."n$ 350p=dp:lp=dp 360IFp=-1PROCad(n$,p,lp):ENDPROC 370REPEAT 380IFn$<d$(p,1)PROCad(n$,p,lp) 390lp=p:p=id%(p) 400UNTILp=-1ORaf=1 410IFp=-1ANDaf=0PROCad(n$,-1,lp)420ENDPROC430DEFPROCde:df=0 440LOCALlp:IFdp=-1PRINT"EMPTY":ENDPROC 450INPUT"Type name to delete."n$ 460p=dp:lp=dp 470REPEAT 480IFn$=d$(p,1)PROCdel(p,lp) 490lp=p:p=id%(p) 500UNTILp=-1ORdf=1 510IFp=-1ANDdf=0PRINT"No such name "520ENDPROC530DEFPROCpr:LOCALcount:count=0:p=dp 540IFdp=-1PRINT"EMPTY"':ENDPROC 550REPEAT 560PRINTd$(p,1)":"d$(p,2)":"id%(p) 570p=id%(p):count=count+1 580UNTILp=-1 590PRINT'count" chars:"10-count" free spaces"600ENDPROC610DEFPROCad(N$,p,lp):af=1 620IFid%(fp)=-1PRINT"NO ROOM!":ENDPROC 630nfp=id%(fp) 640d$(fp,1)=N$:id%(fp)=p 650IFp=lp dp=fp ELSE id%(lp)=fp 660fp=nfp:ENDPROC 670DEFPROCdel(p,lp):df=1 680IFp=lp ANDlp=dp dp=id%(lp):id%(p)=fp:fp=p:ENDPROC 690id%(lp)=id%(p):id%(p)=fp:fp=p700ENDPROC710DEFFNname 720LOCALf$ 730REPEAT 740INPUT'''"Filename (max 7ch)? "f$ 750UNTILLENf$<=7ANDf$>CHR$32760=f$770DEFPROCdk 780INPUT"SAVE(S) LOAD(L)]"A$ 790IFA$="S" name$=FNname:PROCsa(name$) 800IFA$="L" name$=FNname:PROClo(name$)810ENDPROC820DEFPROCsa(name$) 830LOCALrd,fd,chl 840chl=OPENOUT(name$) 850PRINT''"Saving: "name$ 860PRINT#chl,rds,fds 870FORrd=1TOrds 880FORfd=1TOfds 890PRINT#chl,d$(rd,fd) 900NEXT, 910CLOSE#chl 920PRINT''"Done!"930ENDPROC940DEFPROClo(name$) 950LOCALrd,fd 960chl=OPENOUT(name$) 970PRINT'''"Loading file:"name$ 980INPUT#chl,rds,fds 990FORrd=1TOrds 1000FORfd=1TOfds 1010INPUT#chl,d$(rd,fd) 1020NEXT, 1030CLOSE#chl 1040PRINT'''"Done!"1050ENDPROCStatistics: Posted by modboy — Fri Dec 06, 2024 2:25 pm
