image of READY prompt

Wang2200.org

Listing of file='IDS2LOCL' on disk='vmedia/701-2715B.wvd.zip'

# Sector 90, program filename = 'IDS2LOCL'
0008 GOTO 1000
   : DEFFND(F)=INT(VAL(STR(E2$(F),7))/64)
   : DEFFNK(F)=MOD(VAL(STR(E2$(F),5)),2)
   : DEFFNV(Q)=VAL(STR(E2$(F),Q))
   : DEFFNQ(Q)=VAL(@E2$(),2)+10*#PART+Q-260