SET ESCAPE OFF
SET TALK OFF
SET CENTURY ON
CLEAR
CLEAR ALL
ON ERROR keyb chr(7)
SET LIBRARY TO netware.plb
DO ENCRY
SET HELP OFF
SET PRINTER TO lpt3
SET DEVICE TO PRINTER
@ 0, 0 SAY CHR(14)+'[KB1,0]'
@ 0, 0 SAY CHR(14)+'[{%1}]'
@ 0, 0 SAY CHR(14)+'[CU1,0]'
@ 0, 0 SAY CHR(14)+'[ST0CO'+STR(1,3)+'B0,0,639,449CO15R0,0,639,449]'
@ 0, 0 SAY CHR(14)+'[{-4|6}]'
@ 0, 0 SAY CHR(14)+'[{(1)3}]'
@ 0, 0 SAY CHR(14)+'[{@100,80=11 YY系统}]'
@ 0, 0 SAY CHR(14)+'[{@100,80=11电脑信息管理系统}]'
@ 0, 0 SAY CHR(14)+'[{(8)1}]'
@ 0, 0 SAY CHR(14)+'[{-4|6}]'
@ 0, 0 SAY CHR(14)+'[{@100,80=11 YY系统}]'
@ 0, 0 SAY CHR(14)+'[{@100,80=11电脑信息管理系统}]'
@ 0, 0 SAY CHR(14)+'[{(14)1}]'
@ 0, 0 SAY CHR(14)+'[{-0|0}]'
@ 0, 0 SAY CHR(14)+'[{@100,80=11 YY系统}]'
@ 0, 0 SAY CHR(14)+'[{@100,80=11电脑信息管理系统}]'
IF ISCOLOR()
@ 0, 0 SAY CHR(14)+'[CO4]'
@ 0, 0 SAY CHR(14)+'[B285,300,355,398]'
@ 0, 0 SAY CHR(14)+'[{-290|300}]'
@ 0, 0 SAY CHR(14)+'[{@120,40=3(0)1GLD}]'
@ 0, 0 SAY CHR(14)+'[{-220|400}]'
@ 0, 0 SAY CHR(14)+'[{@40,50=10(6)1kkk}]'
ENDIF
READ TIMEOUT 3
@ 0, 0 SAY CHR(14)+'[CU1,1]'
@ 0, 0 SAY CHR(14)+'[CL]'
@ 0, 0 SAY CHR(14)+'[{%0}]'
ON ERROR
SET PRINTER TO prn
SET DEVICE TO SCREEN
SET DATE ANSI
SET CONSOLE OFF
SET MESSAGE TO 23 CENTER
SET SCOREBOARD OFF
SET HEADING OFF
SET SAFETY OFF
SET ECHO OFF
SET PRINTER OFF
SET STATUS OFF
SET ESCAPE OFF
SET EXCLUSIVE ON
SET DEVICE TO SCREEN
SET INTENSITY ON
SET DELETED ON
PUSH MENU _MSYSMENU
SET SYSMENU TO
SET NEAR ON
SET SYSMENU OFF
SET REFRESH TO 3
IF ISCOLOR()
SET COLOR TO W+/B, GR+/GR, N
ELSE
SET COLOR TO W+/N, N/W
ENDIF
SET FUNCTION 2 TO '-1;'
SET FUNCTION 3 TO '-2;'
SET FUNCTION 4 TO '-3;'
SET FUNCTION 5 TO '-4;'
SET FUNCTION 6 TO '-5;'
SET FUNCTION 7 TO '-6;'
SET FUNCTION 8 TO '-7;'
SET FUNCTION 9 TO '-8;'
SET FUNCTION 10 TO '-9;'
ON ERROR DO ERRHAND WITH ERROR(),MESSAGE(),MESSAGE(1),SYS(16),LINENO()
CLOSE DATABASES
CLEAR
PUBLIC G_GYDM, G_STORNO, G_GYMM, G_VLOGADD, G_ADDTEL
STORE SPACE(4) TO G_VLOGADD
请各位兄弟看一下，在什么地方加了密。
