10
20 :
30
40
50
60 :
70
80
90 DEFFNrm(!&70):LOCAL Y%:Y%=?&72 EOR &F0:IF?&72<&80:IF?&71>&BF:?&73=0
100 IF!&70<0:IF?&71>&7F OR Y%=&E:?&F6=?&70:?&F7=?&71:=(USR&FFB9)AND&FF ELSE =?!&70
110 :
120
130
140 DEFFNwm(!&70,A%):?&D6=?&70:?&D7=?&71:CALL&FFB3:ENDPROC