image of READY prompt

Wang2200.org

Listing of file='IDS2P011' on disk='vmedia/701-2717B.wvd.zip'

# Sector 189, program filename = 'IDS2P011'
9874 DEFFNM(F)=INT(MOD(VAL(STR(E2$(F),8)),16)*.125)
   : DEFFN5(F)=INT(MOD(VAL(STR(E2$(F),7)),64)*.03125)
   : DEFFN6(F)=INT(MOD(VAL(STR(E2$(F),7)),32)*.0625)
   : DEFFN7(F)=MOD(VAL(STR(E2$(F),8)),2)
   : DEFFN8(F)=INT(MOD(VAL(STR(E2$(F),7)),4)*.5)
   : DEFFN9(F)=MOD(VAL(STR(E2$(F),7)),2)
   : DEFFNE(F)=INT(MOD(VAL(STR(E2$(F),7)),16)*.125)
   : DEFFNG(F)=INT(MOD(VAL(STR(E2$(F),7)),8)*.25)