Liren Large Software Subsidy 6/06.iso/b/b007/2.ddi/AMISG/MENU.PRG

Text File | 1991-08-02 | 2.9 KB | 172 lines

** BEGIN OF MENU.PRG **
DO AMISG
SET ESCA ON
ON ESCA RETU TO MAST
ON ERROR DO ERROR WITH SYS(16)
SET TALK OFF
SET SAFE OFF
CLEAR
HS=25
SELE 1
USE SYS INDE SYS
IF EOF()
RETU
ENDIF
RNO=RECNO()
CDBH='0'
SET MESS TO HS-1
DO WHILE .T.
DO CO
CLEAR
GO RNO
LNO=LEN(TRIM(NO))
@ 0,0
@ 0,2 SAY '▓╦╡Ñ║┼: {.'+CDBH+'.}'
@ 0,64 SAY '▓╦╡Ñ├√:'+NAME
@ HS/9,INT((68-LEN(TRIM(NOTE)))/2) PROM '0**í╢ '+TRIM(NOTE)+' í╖**0'
A=TRIM(NO)
SET FILT TO NO=A .AND. LEN(TRIM(NO))=LNO+1
GO TOP
I=1
DO WHILE .NOT. EOF()
@ HS/9+(I+3)/2,9 PROM STR(I,1)+'..'+TRIM(NOTE)
I=I+1
SKIP
IF .NOT.EOF()
IF I=10
@ HS/9+I/2+1,45 PROM 'A..'+TRIM(NOTE)
ELSE
@ HS/9+I/2+1,45 PROM STR(I,1)+'..'+TRIM(NOTE)
ENDIF
I=I+1
SKIP
ENDIF
ENDDO
@ HS/9+IIF(I/2=INT(I/2),I/2+1,(I+3)/2),IIF(I/2=INT(I/2),45,9) PROM 'D..╓┤╨╨▓┘╫≈╧╡═│├ⁿ┴ε'
I=I+1
@ HS/9+IIF(I/2=INT(I/2),I/2+1,(I+3)/2),IIF(I/2=INT(I/2),45,9) PROM 'F..╓┤╨╨╩²╛▌┐Γ├ⁿ┴ε!'
I=I+1
@ HS/9+IIF(I/2=INT(I/2),I/2+1,(I+3)/2),IIF(I/2=INT(I/2),45,9) PROM 'M..▓╦╡Ñ╤í╘±!'
MENU TO GNH
GNH=GNH-1
IF GNH=I
@ HS-5,10 CLEAR TO HS-2,70
@ HS-4,10 TO HS-2,70 DOUB
@ HS-5,30 SAY '╟δ╩Σ╚δ▓╦╡Ñ├√!'
MN=SPACE(10)
DO WHILE .T.
MN=TRIM(MN)+SPACE(10-LEN(TRIM(MN)))
@ HS-3,12 SAY '▓╦╡Ñ├√╗≥│╠╨≥├√:' GET MN PICT '!!!!!!!!!!'
READ
MN=TRIM(LTRIM(MN))
IF LEN(MN)=0
EXIT
ENDIF
SET FILT TO
SET EXACT ON
LOCA FOR NAME=MN
SET EXACT OFF
IF .NOT.EOF()
IF TYPE='1'
SAVE TO SYS
PN=TRIM(NAME)
@ 0,2 SAY '▓╦╡Ñ║┼: {.'+CDBH+'--'+STR(GNH,1)+'.}'
@ 0,64 SAY '▓╦╡Ñ├√:'+PN
MMMM='╘╦╨╨│╠╨≥:'+TRIM(NOTE)+'[&PN..PRG]'
@ 0,40-LEN(MMMM)/2 SAY MMMM
CLOS DATA
DO &PN
CLOS DATA
REST FROM SYS
SELE 1
USE SYS INDE SYS
ELSE
RNO=RECNO()
NUM=TRIM(NO)
CDBH='0'
DO WHILE LEN(NUM)<>0
CDBH=CDBH+'--'+STR(VAL(SUBS(NUM,1,1))+1,1)
IF LEN(NUM)>1
NUM=SUBS(NUM,2)
ELSE
NUM=''
ENDIF
ENDDO
ENDIF
EXIT
ENDIF
ENDDO
LOOP
ENDIF
IF GNH=I-1
@ HS-5,0 CLEAR
@ HS-4,0 TO HS-2,79 DOUB
@ HS-5,30 SAY '╟δ╩Σ╚δ╩²╛▌┐Γ├ⁿ┴ε!'
FOX=SPACE(76)
@ HS-3,1 SAY '.' GET FOX
READ
IF LEN(TRIM(FOX))<>0
SAVE TO SYS
CLOS DATA
&FOX
A=INKEY(5)
REST FROM SYS
SELE 1
USE SYS INDE SYS
ENDIF
LOOP
ENDIF
IF GNH=I-2
@ HS-5,0 CLEAR
@ HS-4,0 TO HS-2,79 DOUB
@ HS-5,30 SAY '╟δ╩Σ╚δ▓┘╫≈╧╡═│├ⁿ┴ε!'
DOS=SPACE(75)
@ HS-3,1 SAY 'C>' GET DOS
READ
IF LEN(TRIM(DOS))<>0
RUN &DOS
A=INKEY(5)
ENDIF
LOOP
ENDIF
IF GNH=0
SET FILT TO
GO RNO
IF LEN(TRIM(NO))=0
ON ERROR
CLEAR
SET COLO TO 7/0
@ 5,30 SAY '╗╢╙¡─·╘┘┤╬╩╣╙├▒╛╧╡═│!'
@ 7,30 SAY '   ╘┘        ╝√ !    '
A=INKEY(5)
ON ERROR
QUIT
ENDIF
CDBH=SUBS(CDBH,1,LEN(CDBH)-3)
A=SUBS(NO,1,LEN(TRIM(NO))-1)
SEEK A
RNO=RECNO()
LOOP
ENDIF
GO TOP
SKIP GNH-1
IF TYPE='0'
CDBH=CDBH+'--'+STR(GNH,1)
RNO=RECNO()
LOOP
ELSE
PN=TRIM(NAME)
SAVE TO SYS
@ 0,2 SAY '▓╦╡Ñ║┼: {.'+CDBH+'--'+STR(GNH,1)+'.}'
@ 0,64 SAY '▓╦╡Ñ├√:'+PN
MMMM='╘╦╨╨│╠╨≥:'+TRIM(NOTE)+'[&PN..PRG]'
@ 0,40-LEN(MMMM)/2 SAY MMMM
CLOS DATA
DO &PN.
REST FROM SYS
SELE 1
USE SYS INDE SYS
ENDIF
ENDDO
** END OF MENU.PRG **