Liren Large Software Subsidy 6/06.iso/b/b034/xy.img/S4/MAI.PRG

Text File | 1980-01-01 | 1.4 KB | 51 lines

          *****╓≈┐╪▓╦╡Ñ(MAI)*****
SET TALK OFF
DO WHIL .T.
   CLEAR
   @ 0,16 SAY '        ╗¬─╧╩ª╖╢┤≤╤º║»╩┌▓┐╤º╝«╣▄└φ╧╡═│  '
   @ 1,16 SAY '   ▒╛╧╡═│╙╨╥╘╧┬╣ª─▄:  '
   @ 2,16 SAY '                1. ╤º╔·╫ó▓ß╡╟╝╟   '
   @ 3,16 SAY '                2. ╤º╔·│╔╝¿╡╟╝╟ '
   @ 4,16 SAY '                3. ╤º╝«╕ⁿ╕─╡╟╝╟(░ⁿ└¿╘÷,╔╛) '
   @ 5,16 SAY '                4. ▓Θ╤»,═│╝╞,┤≥╙í▒φ╕±   '
   @ 6,16 say '                5. ╜ß╥╡,▒╧╥╡╡╟╝╟'
   @ 7,16 SAY '                6. ╧╡═│╬¼╗ñ≈  '
   @ 8,16 SAY '                7. ═ú╓╣▓┘╫≈  '
   PUBLIC X,Z,Y,SHA1,LLO,ZZ,SHB1,SHB2,FEN,MFEN
   STORE 0 TO LLO
   @ 9,0 SAY '╟δ╩Σ╚δ╣ª─▄▒α║┼:(1__7)' GET LLO RANGE 1,7
   READ
   IF LLO = 1
      DO XZC
      DO ZHUCE
      ELSE
      IF LLO =2
         DO XZC
         DO LFI
         ELSE
           IF LLO = 3
              DO XZC
              DO XJGG
              ELSE
              IF LLO =  4
                 DO XZC
                 DO CSD
                 CLOSE DATABASES
                 ELSE
                 IF LLO = 5
                    DO XZC
                    DO JB
                    ELSE
                    IF LLO = 6
                       DO WHMK
                       ELSE
                       IF LLO= 7
                          QUIT
                       ENDIF
                    ENDIF
                  ENDIF
                ENDIF
              ENDIF
          ENDIF
       ENDIF
   ENDDO