F4P PLAYER=PLAYER/-TR/-CK/CO:10
F4P TERMINAL=TERMINAL/-TR/-CK
F4P MESSGE=MESSGE/-TR/-CK
F4P INPOUT=INPOUT/-TR/-CK
F4P GETVAL=GETVAL/-TR/-CK
F4P PLAYUTIL=PLAYUTIL/-TR/-CK
MAC RDAST=RDAST
.OPEN PLAYERBLD.CMD
.DATA PLAYER/FP,PLAYER/-SP/MA/CR=PLAYER,GETVAL
.DATA INPOUT,MESSGE,TERMINAL,STRMOV,ATAN3,RDAST,PLAYUTIL
.DATA /
.DATA LIBR=F4PRJD:RO
.DATA COMMON=LEDFOR:RW
.DATA UNITS=1
.DATA ASG=TI:1
.DATA ACTFIL=1
.DATA PRI=51
.DATA TASK=...PLY
.DATA /
.CLOSE
TKB @PLAYERBLD
PIP PLAYERBLD.CMD;*/DE