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

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

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