autil180.asi

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

rem HERE IS THE ROUTINE FOR GENERATING AN ASCII LIST.
b$=chr$(27)
c$=chr$(13)
d$=chr$(8)
e$=chr$(32)

a$=command$
nocase$=ucase$(a$)
if nocase$=" /A" then asciilis:
end

asciilis:
CLS
PRINT "Here are your options:"
PRINT
PRINT
PRINT "F1- Print the entire list."
PRINT
PRINT "F2- Print one symbol of your choice."
print
print "F3- Print one ASCII number for the keypress of your choice."
PRINT
PRINT "Esc- Quit and return to the Main Options Menu."
PRINT
PRINT
PRINT "Please press the key corresponding to your choice. ";

waitasci:
GOSUB continue:

IF a$ = b$ THEN
end
endif

if extended=0 then waitasci:
IF a$ = ";" THEN printlis:
IF a$ = "<" THEN printone:
if a$="=" then asckey:
GOTO waitasci:

printlis:
CLS
print "Press PgUp to move forward."
print
print "Press PgDn to move back."
print
print "Press Esc to quit."
print
print "Press any key to continue. ";
gosub continue:
if a$=b$ then asciilis:

screen1:
column=0
cls
FOR c = 0 TO 119

PRINT c; 
print " - ";
a$ = CHR$(c)

IF c = 0 THEN
a$ = " "
ENDIF

PRINT a$;
PRINT " ";
column = column + 1

IF column = 6 THEN
PRINT
column = 0
ENDIF

next c

whatscrn:
GOSUB continue:
if a$=b$ then asciilis:
if extended=0 then whatscrn:
if a$="Q" then screen2:
goto whatscrn:

screen2:
column=0
CLS

for c=120 to 239
print c;
print " - ";
a$=chr$(c)
print a$;
print " ";
column=column+1

if column=6 then
print
column=0
endif

NEXT c

whatscr2:
GOSUB continue:
if a$=b$ then asciilis:
if extended=0 then whatscr2:
if a$="I" then screen1:
if a$="Q" then screen3:
goto whatscr2:

screen3:
column=0
cls
for c=240 to 255
print c;
print " - ";
a$=chr$(c)
print a$;
print " ";
column=column+1

if column=6 then
print
column=0
endif

next c

whatscr3:
gosub continue:
if a$=b$ then asciilis:
if extended=0 then whatscr3:
if a$="I" then screen2:
goto whatscr3:

printone:
CLS
PRINT "Code number (0-255)? ";
GOSUB retypefi:
d = VAL(file$)
file$ = ""
IF a < 0 then printone:
if a > 255 THEN printone:
onecode$ = CHR$(d)
WIDTH 40
LOCATE 12, 20
PRINT onecode$
PRINT
PRINT
PRINT
PRINT "Press any key to return. ";
GOSUB continue:
WIDTH 80
GOTO asciilis:

asckey:
CLS
WIDTH 80
PRINT "Press a key. ";
GOSUB continue:
CLS
WIDTH 40
LOCATE 12, 20
keynumbr=asc(a$)
print keynumbr
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "Another (y/n)? ";

wait4ask:
GOSUB continue:
IF nocase$= "Y" THEN asckey:

IF nocase$= "N" THEN
width 80
cls
goto asciilis:
endif

GOTO wait4ask:

rem THIS IS THE END OF THE ROUTINE FOR GENERATING AN ASCII LIST.


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

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

retypefi:
GOSUB continue:

IF a$ = b$ THEN
realfile$ = ""
file$ = ""
RETURN
ENDIF

IF a$ = C$ THEN
PRINT ""
RETURN
ENDIF

GOSUB cursor:
LOCATE a, b

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$
nocase$=ucase$(file$)
GOTO retypefi:

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

rem  HERE IS THE SUBROUTINE FOR INITIALIZING ROW/COLUMN POSITION OF CURSOR.

cursor:
a = CSRLIN
b = POS(0)
c = b - 1
RETURN

rem  THIS IS THE END OF THE ROUTINE FOR INITIALIZING CURSOR POSITION.


end