Liren Large Software Subsidy 9/09.iso/i/i034/18.img/HLM.PRG

Text File | 1993-12-27 | 5.8 KB | 279 lines

CLEA
*CLEAR
SET BELL ON
SET MENU OFF
SET SCOR OFF
SET ESCAPE OFF
*SET COLOR TO , ,0
*PAWD="    "
*DO WHILE PAWD<>"KEYB"
*CCEPT TO PAWD
*ENDDO
CLEAR
CLEAR ALL
SET PRINT OFF
*SET COLOR TO , ,44
@ 2,1 SAY ''
*WAIT '   <>  ╟δ╩Σ╚δ╣ñ╫≈╚φ┼╠╡─╟²╢»╞≈║┼ (A...E):' TO Q
*WAIT '   <>  ╟δ╩Σ╚δ╬─╤º,╣┼┤·╬─╗»╫¿╠Γ┐Γ╦∙╘┌╟²╢»╞≈║┼ (A...E):' TO R
*WAIT '   <>  ╟δ╩Σ╚δ╙∩╤╘╫¿╠Γ,╘¡╬─┐Γ╦∙╘┌╡─╟²╢»╞≈║┼ (A...E):' TO S
Q="C"
R="C"
S="C"
SET PATH TO &S:\HLM
SET BELL OFF
SET TALK OFF
JWJL=0
*DO WHILE .T.
CLEAR
SET COLOR TO , , 3
@ 1,0 SAY '    ***************** <<║∞ ┬Ñ ├╬>> ╫¿ ╠Γ ╦≈ ╥² ─┐ ┬╝ **************** '
@ 3,3 SAY '                            1---- ╙∩╤╘'
@ 4,3 SAY '                            2---- ╬─╤º '
@ 5,3 SAY '                            3---- ╣┼┤·╬─╗»            '
@ 6,3 SAY '                            4---- ╘─╢┴╘¡╬─           '
@ 7,0 SAY '    ***************************  0---- ═╦│÷  **************************'
J=0
@ 9,5 SAY '╟δ╤í╘±: 'GET J PICT '9'
READ
DO CASE
CASE J=0
SET ESCAPE ON
quit
RETURN
CASE J=1
DO WHILE .T.
CLEAR
*SET COLOR TO , , G
@ 1,1 say '    ****************************** ╙∩       ╤╘ ***************************'
@ 3,5 SAY '        1--╡Ñ╫╓          2--╦½╥⌠┤╩          3--╦─╫╓╕±│╔╙∩  '
@ 4,5 SAY '        4--┴┐┤╩          5--╓·┤╩            6--╕▒┤╩      '
@ 5,5 SAY '        7--╜Θ┤╩          8--┴¼┤╩            9--╧≤╔∙┤╩    '
@ 6,5 SAY '       10--╢■╥⌠╜ß╣╣,╚²╥⌠╜ß╣╣'
@ 7,0 SAY '     ******************************* 0---╖╡╗╪ ****************************'
K=0
K1='N'
DO WHILE UPPER(K1)='N'
@ 9,5 SAY '╟δ╤í╘±: 'GET K PICT '99'
READ
K1='Y'
DO CASE
CASE K=1
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╡Ñ╫╓? (Y/N) ' GET K1
READ
CASE K=2
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╦½╥⌠┤╩? (Y/N) ' GET K1
READ
CASE K=3
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╦─╫╓╕±│╔╙∩? (Y/N) ' GET K1
READ
CASE K=4
@ 9,1 SAY SAPCE(60)
@ 9,5 SAY '┴┐┤╩? (Y/N) ' GET K1
READ
CASE K=5
@ 9,1 SAY SAPCE(60)
@ 9,5 SAY '╓·┤╩? (Y/N) ' GET K1
READ
CASE K=6
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╕▒┤╩? (Y/N) ' GET K1
READ
CASE K=7
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╜Θ┤╩? (Y/N) ' GET K1
READ
CASE K=8
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '┴¼┤╩? (Y/N) ' GET K1
READ
CASE K=9
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╧≤╔∙┤╩? (Y/N) ' GET K1
READ
CASE K=10
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╢■╥⌠╜ß╣╣,╚²╥⌠╜ß╣╣? (Y/N) ' GET K1
READ
OTHERWISE
K=0
ENDCASE
ENDDO K1
IF K=0
EXIT
ELSE
DO &Q:YY
ENDIF
ENDDO
CASE J=2
DO WHILE .T.
CLEAR
*SET COLOR TO , , G
@ 1,1 SAY '    ************************** ╬─     ╤º *****************************'
@ 3,5 SAY '                 1--╨▐┤╟╩╓╖¿                2--░«╟Θ├Φ╨┤           '
@ 4,5 SAY '                 3--╨─└φ├Φ╨┤                4--═Γ├▓├Φ╨┤          '
@ 5,5 SAY '                 5--╩½┤╩                 '
@ 7,0 SAY '     ************************** 0---╖╡╗╪ ****************************'
K=0
K1="N"
DO WHILE UPPER(K1)="N"
@ 9,5 SAY '╟δ╤í╘±: ' GET K PICT '9'
READ
K1="Y"
DO CASE
   CASE K=1
   @ 9,1 SAY SPACE(60)
   @ 9,5 SAY '╨▐┤╟╩╓╖¿? (Y/N) ' GET K1
   READ
   CASE K=2
   @ 9,1 SAY SPACE(60)
   @ 9,5 SAY '░«╟Θ├Φ╨┤? (Y/N) ' GET K1
   READ
   CASE K=3
   @ 9,1 SAY SPACE(60)
   @ 9,5 SAY '╨─└φ├Φ╨┤? (Y/N) ' GET K1
   READ
   CASE K=4
   @ 9,1 SAY SPACE(60)
   @ 9,5 SAY '═Γ├▓├Φ╨┤? (Y/N) ' GET K1
   READ
   CASE K=5
   @ 9,1 SAY SPACE(60)
   @ 9,5 SAY  '╩½ ┤╩? (Y/N) ' GET K1
   READ
OTHERWISE
K=0
ENDCASE
ENDDO K1
IF K=0
EXIT
ELSE

DO &Q:WX
ENDIF
ENDDO
CASE J=3
DO WHILE .T.
CLEAR
*SET COLOR TO , , G
@ 1,0 SAY '     ************************** ╣┼ ┤· ╬─ ╗» ****************************'
@ 2,5 SAY '          1--╧╖╟·╥⌠└╓╗µ╗¡     2--╢╘┴¬├╒╙∩╛╞┴ε    3--╣┼┤·╡Σ╝«   '
@ 3,5 SAY '          4--╜╠╙²             5--╖■╫░            6--╥√╩│  '
@ 4,5 SAY '          7--╩╥─┌│┬╔Φ         8--╘░┴╓╥╒╩⌡        9--╔·╗ε╙├╛▀       '
@ 5,5 SAY '         10--╒Σ╞µ═µ║├        11--╥╜╥⌐▒ú╜í       12--╔±╣φ╬╫╩⌡    '
@ 6,5 SAY '         13--╓░╣┘            14--╚╦├√╦≈╥²        '
è@ 7,0 SAY '     *************************** 0---╖╡╗╪ *****************************'
k=00
K1='N'
DO WHILE UPPER(K1)='N'
@ 9,5 SAY '╟δ╤í╘±: ' GET K PICT '99'
READ
K1='Y'
DO CASE
CASE K=1
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╧╖╟·╥⌠└╓╗µ╗¡? (Y/N) ' GET K1
READ
CASE K=2
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╢╘┴¬├╒╙∩╛╞┴ε? (Y/N) ' GET K1
READ
CASE K=3
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╣┼┤·╡Σ╝«? (Y/N) ' GET K1
READ
CASE K=4
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╜╠╙²? (Y/N) ' GET K1
READ
CASE K=5
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╖■╫░? (Y/N) ' GET K1
READ
CASE K=6
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╥√╩│? (Y/N) ' GET K1
READ
CASE K=7
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╩╥─┌│┬╔Φ? (Y/N) ' GET K1
READ
CASE K=8
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╘░┴╓╥╒╩⌡? (Y/N) ' GET K1
READ
CASE K=9
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╔·╗ε╙├╛▀? (Y/N) ' GET K1
READ
CASE K=10
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╒Σ╞µ═µ║├? (Y/N) ' GET K1
READ
CASE K=11
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╥╜╥⌐▒ú╜í? (Y/N) ' GET K1
READ
CASE K=12
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╔±╣φ╬╫╩⌡? (Y/N) ' GET K1
èREAD
CASE K=13
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╓░╣┘? (Y/N) ' GET K1
READ
CASE K=14
@ 9,1 SAY SPACE(60)
@ 9,5 SAY '╚╦├√╦≈╥²? (Y/N) ' GET K1
READ
OTHERWISE
K=0
ENDCASE
ENDDO K1
IF K=0
EXIT
ELSE
DO &Q:GDDJ
ENDIF
ENDDO
CASE J=4
  K1=1
  DO WHILE K1<>0
  CLEAR
  K=0
  @ 1,5 SAY '╟δ╩Σ╚δ╘─╢┴╡─╗╪╩²ú¿ú▒ú¡ú▒ú▓ú░ú⌐' GET K PICT '999'
  READ
  IF (K>=1) .AND. (K<=120)
    C1='N'
    @ 2,5 SAY '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐ú┐' GET C1 PICT 'A'
    READ
    IF K=18
      K=17
    ENDIF
    IF K<10
      FILENAME='HLMA'+STR(K,1)
    ELSE
      IF K<100
        FILENAME='HLMA'+STR(K,2)
      ELSE
        FILENAME='HLMA'+STR(K,3)
      ENDIF
    ENDIF
    USE &FILENAME
    IF UPPER(C1)="Y"
      LIST OFF ╘¡╬─ ALL TO PRINT
    ELSE
      DISPLAY OFF ╘¡╬─ ALL
      WAIT
    ENDIF
  ELSE
    K1=0
  ENDIF
*ENDDO

*ENDCASE
ENDDO