b.prg

包括出车记录

**************飞行窗口.PRG***************************
CLEAR
SET TALK OFF
SET COLO OF NORMAL TO +B/GB+


hzstr = "车辆管理信息系统"
max = 5000
nn = 4
i = 1

DO WHILE i<40
   IF i<=17
      @ nn,0 SAY SPACE(i*2)
      @ nn,0 SAY SUBSTR(hzstr,35-i*2,i*2)
   ELSE
      @ nn,0 SAY SPACE(i*2)
      @ nn,i-17 SAY hzstr
   ENDIF
   k = 0
   DO WHILE K<max
      k = k+1
   ENDDO
   max = max-20
   i=i+2
 ENDDO


 hz = '哈尔滨市天鹅出租汽车公司'
 max = 6000
 nn = 20
 i = 1
 DO WHILE i<40
    IF i<=17
        @ nn,100-i*2 SAY SPACE(i*2)
        @ nn,100-i*2 SAY SUBSTR(hz,1,i*2)
    ELSE
        @ nn,100-i*2 SAY SPACE(34+i)
        @ nn,100-i*2 SAY hz
    ENDIF
    @ 0,0 SAY SPACE(1)
    k = 0
    DO WHILE K<max
        k = k+1
    ENDDO
    max=max-20
    i=i+2     
ENDDO 


str ='设计者： '
str1 ='徐 佳 '
nn=8
max=10000
i=0
DO WHILE (i<9)
    IF (i>0)
    @ nn,78-i*2 SAY SPACE((i-1)*2)
    @ nn,0 SAY SPACE((i-1)*2)
  ENDIF
  @ nn,0 SAY SUBSTR(str,1,(i+1)*2)
  @ nn,78-i*2 SAY SUBSTR(str,1,i*2)
  k=0
  DO WHILE (k<max)
     k=k+1
  ENDDO
  i=i+1
  max =max-50
ENDDO


i=0
DO WHILE (i<11)
   @ nn,i*2 SAY SPACE(18)
   @ 0,0 SAY CHR(14)+"S2,1]"
   @ nn,i*2+6 SAY str
   @ 0,0 SAY CHR(14)+"S7,0]"
   @ nn,54-i*2 SAY SPACE(18)
   @ 0,0 SAY CHR(14)+"S2,1]"
   @ nn,54-i*2 SAY str1
   k=0
   DO WHILE (k<max)
      k=k+1
   ENDDO
   i=i+1
   max = max-50
ENDDO


SET ESCAPE OFF
X=1
DO WHILE X<=4
 @12,28 SAY '请输入口令'
 SET CONSOLE OFF
 STORE "   " TO XZ
 @14,31 GET XZ
 READ
 SET CONSOLE ON
 IF UPPER(XZ)="007"
   DO MAIN
 ELSE
    @16,21 SAY "第"+STR(X,1)+"次口令错!还有";
      +STR(4-X,1)+"次选择机会"
    X=X+1
  ENDIF
 ENDDO
@16,21 SAY "非程序操作人员禁止使用"   
QUIT

**************END 飞行窗口.PRG*********************************