Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/CBHS-1A.PRG

Text File | 1990-02-28 | 989 b | 35 lines

*│╔▒╛║╦╦π╫╙│╠╨≥╓«╥╗A:CBHS-1A.PRG
aa2='      '
bb2=.t.
do while bb2
clear
@ 5,25 say ptbl+':'
@ 6,8 say '***************************************************************'
@ 8,5 say '║╕╣▄╓╪┴┐     ' get a(1)
@ 9,5 say '║╕╣▄╜≡╢ε     ' get a(2)
@ 10,5 say '┤°╕╓╓╪┴┐     ' get a(3)
@ 11,5 say '┤°╕╓╜≡╢ε     ' get a(4)
@ 12,5 say '╞ß┴╧         ' get a(5)
@ 13,5 say '╕¿┴╧         ' get a(6)
@ 14,5 say '═Γ╣║╝■       ' get a(7)
@ 15,5 say '╝╙╣ñ╖╤       ' get a(8)
@ 16,5 say '┤≥░ⁿ╖╤       ' get a(9)
@ 8,45 say '▓─┴╧▓ε╥∞     ' get a(10)
@ 9,45 say '╚╝┴╧         ' get a(11)
@ 10,45 say '╢»┴ª         ' get a(12)
@ 11,45 say '╣ñ╫╩         ' get a(13)
@ 12,45 say '╕ú└√╖╤       ' get a(14)
@ 13,45 say '│╡╝Σ╛¡╖╤     ' get a(15)
@ 14,45 say '╖╧╞╖╦≡╩º     ' get a(16)
@ 15,45 say '╣▄└φ╖╤       ' get a(17)
@ 16,45 say '╖╤╙├▓ε╥∞     ' get a(18)
     read
@ 18,20 say '╔╧├µ╩Σ╚δ╡─╩²╛▌╢╘┬≡(Y/N)?   ' get aa2
     read
if aa2='Y'.or.aa2='y'
   bb2=.f.
endif
enddo
return