Liren Large Software Subsidy 6/06.iso/b/b032/6.img/31/GYC17.PRG

Text File | 1987-09-04 | 414 b | 22 lines

rest from "fwbl.mem" addi
if ssfwh=3.or.ssfwh=2
 @ 8,12 say "╥≥╧╓╘┌╡Ñ┤╩╓╕╢¿╡─╖╢╬º╩╟╢╠╙∩┤╩╗π╗≥ì
╗∙▒╛┤╩, ╣╩▓╦╡Ñ╓╨┤╦╧ε─┐▓╗─▄╘╦╨╨."
 @ 10,8 say "╨Φ╓╪╨┬╓╕╢¿╤º╧░╖╢╬º║≤, ╖╜┐╔╜°╚δ."
 wait " "
 @ 2,0 clear
 do tsh
else
 sele 2
 @ 2,0 say repl("í╘",40)
 use lsk1
 set filter to gc>54.and.gc<70
 do tsh1
 do cd00 with "trim(ywm)+'   '+trim(zw)",3,1,40,2,1,19
 @ 3,0 clear
 do tsh
 use
 sele 1
endif
retu