
  250 .gbase OPT FNEQUD(&00040313):OPT FNEQUW(&0000):OPT
FNEQUB(&00):OPT FNEQUD(&14001418) 
  260 OPT  FNEQUD(&EC002800):OPT FNEQUW(&1003):OPT
FNEQUD(&1404D718):OPT FNEQUD(&EC04EB00):OPT FNEQUW(&1003) 
  270 OPT FNEQUD(&14001418):OPT FNEQUD(&2804EB00):OPT
FNEQUW(&1000):OPT FNEQUD(&D8001418):OPT FNEQUD(&EC04EB03)  
  280 OPT FNEQUW(&1003): OPT FNEQUD(&3C003C18):OPT
FNEQUD(&3C04C300):OPT FNEQUW(&1000):OPT FNEQUD(&3C003C18) 
  290 OPT FNEQUD(&C4003C00):OPT FNEQUW(&1003):OPT
FNEQUD(&C4003C18):OPT FNEQUD(&C404C303):OPT FNEQUW(&1003) 
  300 OPT FNEQUD(&3C04C318):OPT FNEQUD(&C404C300):OPT
FNEQUW(&1003):OPT FNEQUW(&0303) 
 6500REM replace OSCLI(x$) with dummy=FNoscli(x$). EQUB x with
OPTFNequb(byte), EQUW x with OPTFNequw(word), EQUS with
OPTFNequs(string$), EQUD with OPTFNequd(doubleword) 
 6510DEF FNEQUS(string$) 
 6520$P%=string$ 
 6530P%=P%+LEN(string$) 
 6540=rep% 
 6550: 
 6560DEF FNEQUB(byte) 
 6570?P%=byte 
 6580P%=P%+1 
 6590=rep% 
 6600: 
 6610DEF FNEQUW(word) 
 6620?P%=word MOD &100 
 6630P%?1=word DIV &100 
 6640P%=P%+2 
 6650=rep% 
 6660: 
 6670DEF FNEQUD(doubleword) 
 6680!P%=doubleword 
 6690P%=P%+4 
 6700=rep% 
 6710: 
 6720DEFFNOSCLI(x$) 
 6730$&780=x$ 
 6740X%=&80:Y%=7 
 6750CALL &FFF7 
 6760=0 

