Listing of file='IDS2P010' on disk='vmedia/701-2717B.wvd.zip'
# Sector 602, program filename = 'IDS2P010' 9844 DEFFNK(F)=MOD(VAL(STR(E2$(F),5)),2) : DEFFN0(F)=INT(MOD(VAL(STR(E2$(F),3)),16)*.125) : DEFFN1(F)=INT(MOD(VAL(STR(E2$(F),2)),8)*.25) 9845 DEFFN2(F)=INT(MOD(VAL(STR(E2$(F),3)),4)*.5) : DEFFN3(F)=MOD(VAL(STR(E2$(F),3)),2) : DEFFN4(F)=INT(MOD(VAL(STR(E2$(F),8)),4)*.5) : DEFFNH(F)=INT(MOD(VAL(STR(E2$(F),8)),64)*.03125) : DEFFNI(F)=INT(MOD(VAL(STR(E2$(F),8)),32)*.0625) : DEFFNJ(F)=INT(MOD(VAL(STR(E2$(F),8)),8)*.25)