Liren Large Software Subsidy 6/06.iso/b/b068/3.img/DLZPZK.IDX

Text File | 1993-02-28 | 1.0 KB | 41 lines

SET COLOR TO
CLEAR
@ 0,0 SAY '⌐│'
@ 0,2 SAY REPL('⌐Ñ',38)
@ 0,78 SAY '⌐╖'
@ 1,0 SAY '⌐º'
@ 1,78 SAY '⌐º'
@ 2,0 SAY '⌐╟'
@ 2,2 SAY REPL('⌐Ñ',38)
@ 2,78 SAY '⌐╧'
i=3
DO WHILE i<22
  @ i,0 SAY '⌐º'
  @ i,78 SAY '⌐º'
  i=i+1
ENDDO
@ 22,0 SAY '⌐╟'
@ 22,2 SAY REPL('⌐Ñ',38)
@ 22,78 SAY '⌐╧'
@ 23,0 SAY '⌐º'
@ 23,78 SAY '⌐º'
@ 24,0 SAY '⌐╗'
@ 24,2 SAY REPL('⌐Ñ',38)
@ 24,78 SAY '⌐┐'
SET COLOR TO W+/B
@ 1,2  SAY '                       '
@ 1,24 SAY '╗╢╙¡─·╩╣╙├╛⌐╘┴KJRJ▓╞╬±╖╓╬÷╚φ╝■'
@ 1,54 SAY '                        '
@ 23,2 SAY ' < ╠ß╩╛╨┼╧ó > ⌐ª ╣Γ┤°╥╞╢»: íⁿ ╗≥ í² ╝ⁿ ⌐ª ╣Γ┤°╤í╘±: Enter ╝ⁿ ⌐ª < ╠ß╩╛╨┼╧ó >'
      i=4
      j=11
      @  i+4,j SAY '                  '
      @  i+5,j SAY '     ▓╞╬±╖╓╬÷     '
      @  i+6,j SAY '  ==============  '
      @  i+7,j SAY '  1. ▒φ ╕± ╖╓ ╬÷  '
      @  i+8,j SAY '  2. ═╝╨╬╖╓╬÷ ú▒  '
      @  i+9,j SAY '  3. ═╝╨╬╖╓╬÷ ú▓  '
      @ i+10,j SAY '  4. ═╦       │÷  '
      @ i+11,j SAY '                  '
      SET COLOR TO 7
   @ i+7,j+18 SAY '