crappyed.asi

StarCom Manager 3.06 用QB编写的管理程序

rem HERE IS THE ROUTINE FOR TYPING IN FILES IN 80-COLUMN MODE.
cls

b$=chr$(27)
c$=chr$(13)
d$=chr$(8)
e$=chr$(32)
lf$=chr$(10)
crlf$=c$+lf$

retypefi:
gosub continue:

if a$=b$ then
realfile$=""
file$=""
file1$=""
file2$=""
end
endif

if a$=c$ then
print ""
file$=file$+crlf$
a$=""
endif

gosub cursor:

if a$=d$ then
locate a,c
print e$;
locate a,c
d=len(file$)
e=d-1
file$=mid$(file$,1,e)
if e<0 then
e=0
c=c+1
locate a,c
endif
if b=0 then
a=a-1
b=79
locate a,b
print e$;
locate a,b
endif
goto retypefi:
endif

print a$;
file$=file$+a$
realfile$=ucase$(file$)
goto retypefi:

rem THIS IS THE END OF THE ROUTINE FOR TYPING IN FILES IN 80-COLUMN MODE.


continue:
gosub function:
a$=inkey$
if a$="" then continue:
return

cursor:
a=csrlin
b=pos(0)
c=b-1
return


function:
if extended=0 then
return
endif

if a$=";" then
function$=a$
a$=""
gosub help:
return
endif

goto function:

help:
cls
print "Help Screen: F2=Save & Exit  Esc: Cancel"
print ""

wait:
function$=inkey$
if function$="" then wait:

if function$=b$ then
return
endif

if extended=0 then wait:

if function$="<" then
open "o",1,"testfile.doc"
print # 1, file$
close 1
endif
end
return


end