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

Text File | 1987-09-03 | 316 b | 26 lines

dime dm(52)
sele 10
use dmk
idm=1
do while idm<53
 dm(idm)=ywdh
 skip
 idm=idm+1
enddo
use
if yzs=0
 sele 3
else
 sele 5
endif
if wz=9
 @ 21,0 CLEAR to 23,79
 wz=1
else
 wz=wz+1
endif
@ 20,0 say repl("í╘",40)
@ 21+int((wz-1)/3),mod(wz-1,3)*27 SAY &zyy
@ row(),col()+1 say trim(DM(LX))
RETU