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

Text File | 1987-08-26 | 384 b | 23 lines

sele 2
rest from "fwbl.mem" addi
if ssfwh=3.or.ssfwh=2
 @ 8,12 say "╥≥╧╡═│╓╨┤╦╩▒╧▐╢¿╡─╖╢╬º╩╟╢╠╙∩┤╩╗π╗≥ì
╗∙▒╛┤╩, ╣╩▓╦╡Ñ╓╨┤╦╧ε▓╗─▄╘╦╨╨"
 @ 10,8 say "╨Φ╓╪╨┬╓╕╢¿╡Ñ┤╩╖╢╬º║≤╖╜┐╔╜°╚δ"
 sele 1
 wait " "
 @ 2,0 clear
 do tsh
else
 @ 2,0 say repl("í╘",40)
 use cdk160
 zxcx="gyc161"
 do cd with "xm",3,8,20,3,2,3
 @ 3,0 clear
 do tsh
 use
 sele 1
 zxcx="gyc10"
endif
retu