Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/╞▒╢.PRG

Text File | 1991-06-22 | 2.2 KB | 112 lines

*╚╦├±▒╥╞▒╢ε│╠╨≥:╞▒╢ε.PRG
clear
set talk off
hjbm=0
@ 2,34 say '╥¬║╧╝╞╞▒╢ε╡─▓┐├┼'
@ 3,33 say '================='
@ 5,15 say '╓▒╩⌠--------------- 1'
@ 5,45 say '╕ú└√--------------- 6'
@ 7,15 say '═╦╨▌--------------- 2'
@ 7,45 say '╙═╞ß--------------- 7'
@ 9,15 say '╟░▓µ--------------- 3'
@ 9,45 say '╗·─ú--------------- 8'
@ 11,15 say '│σ╤╣--------------- 4'
@ 11,45 say '╨┬▓·╞╖------------- 9'
@ 13,15 say '▒╕┴╧--------------- 5'
@ 13,45 say '╫▄╫░--------------- 10'
@ 17,15 say '╫ó   ╘┌ A:┼╠(╔╧)▓σ╚δ╧α╙ª▓┐├┼╩²╛▌┐¿'
@ 18,15 say '╥Γ:  ╘┌ B:┼╠(╧┬)▓σ╚δ╩²╛▌╫▄┐¿'
@ 15,10 say '╟δ╩Σ╚δ╥¬║╧╝╞╡─▓┐├┼╡─▒α║┼' get hjbm
     read
if hjbm=1
   store '╓▒╩⌠' to w1
   nn=0
   zje=0
   do while nn<=14
   nn=nn+1
   do case
      case nn=1
           store '░∞╣½' to w2
      case nn=2
           store '▒ú╬└' to w2
      case nn=3
           store '└═╚╦' to w2
      case nn=4
           store '╔·╝╝' to w2
      case nn=5
           store '▓╞╬±' to w2
      case nn=6
           store '╝╝┐¬' to w2
      case nn=7
           store '╣⌐╧·' to w2
      case nn=8
           store '╓╩╝∞' to w2
      case nn=9
           store '╒■╣ñ' to w2
      case nn=10
           store '╧·╩█' to w2
      case nn=11
           store '╨╨╒■' to w2
      case nn=12
           store '▒α═Γ' to w2
      case nn=13
           @ 4,50 say '║╧═¼╓╞'
           store '1' to w2
      case nn=14
           @ 4,50 say '║╧═¼╓╞'
           store '2' to w2
      case nn=15
           @ 4,50 say '║╧═¼╓╞'
           store '3' to w2
   endcase
   do c:╞▒╢ε1
   zje=zje+zje1
   enddo
   @ 20,20 say '╩╡╖ó╜≡╢ε╫▄╩²:'
   @ 20,33 say zje
   @ 20,50 say '(Ԫ)'
endif
if hjbm=2
   store '═╦╨▌' to w1
   do c:╞▒╢ε2
endif
if hjbm=3
   store '╟░▓µ' to w1
   do c:╞▒╢ε2
endif
if hjbm=4
   store '│σ╤╣' to w1
   do c:╞▒╢ε2
endif
if hjbm=5
   store '▒╕┴╧' to w1
   do c:╞▒╢ε2
endif
if hjbm=6
   store '╕ú└√' to w1
   do c:╞▒╢ε2
endif
if hjbm=7
   store '╙═╞ß' to w1
   do c:╞▒╢ε2
endif
if hjbm=8
   store '╗·─ú' to w1
   do c:╞▒╢ε2
endif
if hjbm=9
   store '╨┬▓·╞╖' to w1
   do c:╞▒╢ε2
endif
if hjbm=10
   store '╫▄╫░' to w1
   do c:╞▒╢ε2
endif
?
?
wait
release all
return