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

Text File | 1987-08-25 | 337 b | 30 lines

do zcx130
sele 3
@ 4,0 say repl("í╘",40)
use lsk1
if yzs=0
 wz=9
 zxcx="zcx131"
 do cd with yyz,5,0,20,4,1,15
 use
 zxcx="gyc130"
 sele 2
 @ 5,0 clear
 do tsh
 retu
else
 sele 4
 use lsk2
 zxcx="zcx132"
 do cd with yyz,5,0,20,4,1,7
 use
 sele 3
 use
 sele 2
 zxcx="gyc130"
 @ 5,0 clear
 do tsh
 retu
endif