printeru.asi

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

b$=chr$(27)

rem consecutive to wait4:

printers:
cls
print "Here are the printers you can select:"
print
print
print "F1- AEG Olympia NP 80-24E, Epson Mode."
print
print "F2- AEG Olympia NP 80-24E, IBM Mode."
print
print "F3- AEG Olympia NP 80-24E, IBM AGM Mode."
print
print "Esc- Quit."
print
print
print "Please press the key corresponding to your choice. ";

wait:
gosub continue:

if a$=b$ then
end
endif

if extended=0 then wait:
if a$=";" then aegolyme:
if a$="<" then aegolymi:
if a$="=" then aegolyia:
goto wait:

aegolyme:
cls
print "Here are the features you can select:"
print
print
print "F1- Character Pitch and Printing Modes."
print
print "F2- Margins and Horizontal Movement."
print
print "Esc- Quit This Menu."
print
print
print "Please press the key corresponding to your choice. ";

wait1:
gosub continue:
if a$=b$ then printers:
if extended=0 then wait1:
if a$=";" then characte:
if a$="<" then margins:
goto wait1:

characte:
cls
print "Here are the features you can select:"
print
print
print "F1- 10 CPI (Pica)."
print
print "F2- 12 CPI (Elite)."                     
print
print "F3- 15 CPI."                             
print
print "F4- Toggle Proportional On/Off."
print
print "F5- Select Condensed."
print
print "F6- Cancel Condensed."
print
print "F7- Select/Cancel Double-Width."
print
print "N- Next Menu."
print
print "Esc- Quit This Menu."
print
print
print "Please press the key corresponding to your choice. ";

wait2:
gosub continue:
if a$=b$ then aegolyme:
if nocase$="N" then charact2:
if extended=0 then wait2:
if a$=";" then pica:
if a$="<" then elite:
if a$="=" then fifteenc:
if a$=">" then proporti:
if a$="?" then selectco:
if a$="@" then cancelco:
if a$="A" then doublewi:
goto wait2:

pica:
a$=b$+"P"
lprint a$
gosub testchar:
goto characte:

elite:
a$=b$+"M"
lprint a$
gosub testchar:
goto characte:

fifteenc:
a$=b$+"g"
lprint a$
gosub testchar:
goto characte:

proporti:

if proporti=0 then
a$=b$+"p 1"
lprint a$
proporti=1
gosub testchar:
goto characte:
endif

if proporti=1 then
a$=b$+"p 0"
lprint a$
proporti=0
gosub testchar:
goto characte:
endif

selectco:
a$=b$+"SI"
lprint a$
gosub testchar:
goto characte:

cancelco:
a$=chr$(18)
lprint a$
gosub testchar:
goto characte:

doublewi:

if doublewi=0 then
a$=b$+"W 1"
lprint a$
doublewi=1
gosub testchar:
goto characte:
endif

if doublewi=1 then
a$=b$+"W 0"
lprint a$
doublewi=0
gosub testchar:
goto characte:
endif

charact2:
cls
print "Here are the remaining features you can select:"
print
print
print "F8- Select Bold."
print
print "F9- Cancel Bold."
print
print "F10- Select/Cancel Double-Height."
print
print "<Alt-F1>- Select Superscript."
print
print "<Alt-F2>- Select Subscript."
print
print "<Alt-F3>- Cancel Superscript."
print
print "<Alt-F4>- Cancel Subscript."
print
print "<Alt-F5>- Select/Cancel Underlining."
print
print "Esc- Quit This Menu."
print
print
print "Please press the key corresponding to your choice. ";

wait3:
gosub continue:
if a$=b$ then characte:
if extended=0 then wait3:
if a$="B" then selectbo:
if a$="C" then cancelbo:
if a$="D" then doublehe:
if a$="h" then selectsu:
if a$="i" then selectsb:
if a$="j" then cancelsu:
if a$="k" then cancelsb:
if a$="l" then underlin:
goto wait3:

selectbo:
a$=b$+"E"
lprint a$
a$=b$+"G"
lprint a$
gosub testchar:
goto charact2:

cancelbo:
a$=b$+"F"
lprint a$
a$=b$+"H"
lprint a$
gosub testchar:
goto charact2:

doublehe:

if doublehe=0 then
a$=b$+"w 1"
lprint a$
doublehe=1
gosub testchar:
goto charact2:
endif

if doublehe=1 then
a$=b$+"w 0"
lprint a$
doublehe=0
gosub testchar:
goto charact2:
endif

selectsu:
a$=b$+"S 1"
lprint a$
gosub testchar:
goto charact2:

selectsb:
a$=b$+"S 0"
lprint a$
gosub testchar:
goto charact2:

cancelsu:
a$=b$+"T"
lprint a$
gosub testchar:
goto charact2:

cancelsb:
a$=b$+"T"
lprint a$
gosub testchar:
goto charact2:

underlin:

if underlin=0 then
a$=b$+"- 1"
lprint a$
underlin=1
gosub testchar:
goto charact2:
endif

if underlin=1 then
a$=b$+"- 0"
lprint a$
underlin=0
gosub testchar:
goto charact2:
endif

aegolymi:
end

aegolyia:
end

continue:
a$=inkey$
if a$="" then continue:
nocase$=ucase$(a$)
return

testchar:
cls
print "Do you want to test the feature you've selected? ";
gosub continue:

if nocase$="Y" then
lprint "This is a test."
print
print "Press any key to return to the Character Menu. ";
gosub continue:
return
endif

if nocase$="N" then
return
endif

rem HERE IS THE ROUTINE FOR MARGINS AND HORIZONTAL MOVEMENT.

margins:
cls
print "Here are the features you can select:"
print
print
print "F1- Set Left Margin."
print
print "F2- Set Right Margin."
print
print "F3- Set Horizontal Tabs."
print
print "F4- Go to Next Horizontal Tab."
print
print "F5- Quit This Menu."
print
print "Esc- Quit to DOS."
print
print
print "Please press the key corresponding to your choice. ";

wait4:
gosub continue:

if a$=b$ then
end
endif

if extended=0 then wait4:
if a$=";" then setleft:
if a$="<" then setright:
if a$="=" then sethoriz:
if a$=">" then gotonext:
if a$="?" then aegolyme:
goto wait4:

setleft:
goto aegolyme:

setright:
goto aegolyme:

sethoriz:
goto aegolyme:

gotonext:
goto aegolyme:

end