i got the saving/loading thing fixed for dbc (the ink was just the wrong color)
EDIT: I forgot the code.
dim textfile$(100):sync on:sync rate 50:now=1:do:if keystate(14)=0 then back=0:if returnkey()=0 then ret=0
if keystate(14)=1
if back=0:textfile$(now)=left$(textfile$(now),len(textfile$(now))-1):back=1:if textfile$(now)="" and now>1 then dec now:endif
else:textfile$(now)=textfile$(now)+entry$():endif
clear entry buffer
if returnkey()=1 and ret=0 then clear entry buffer : textfile$(now)=left$(textfile$(now),len(textfile$(now))-1) : inc now : ret=1
if controlkey()=1 and keystate(31)=1
cls:ink rgb(0,0,0),0:print "Save Filename: ":ink rgb(255,255,255),0:input file$:open to write 1,file$:print "Saving..."
for save=1 to now:write string 1,textfile$(save):next save:close file 1:clear entry buffer:endif
if controlkey()=1 and keystate(24)=1:cls
ink rgb(0,0,0),0:print "Open Filename:":ink rgb(255,255,255),0:input file$:open to read 1,file$:print "Opening..."
for open=1 to 100
if file end(1)=1 then exit
now=open:read string 1,textfile$(open):next open
close file 1:clear entry buffer
endif:line len(textfile$(now))*8,now*15,len(textfile$(now))*8,now*15+15:ink rgb(100,100,100),0:print "Press Ctrl+S to save - Press Ctrl+O to open - Press Esc to exit"
for liner=1 to 100:line 0,liner*15,640,liner*15:next liner
ink 0,0:for printer=1 to now:text 0,printer*15,textfile$(printer):next printer:sync
cls rgb(255,255,255):loop
Programs for programmers.
