; FIRST.ACT  --  a few odd PROCs/FUNCs›;›;   LegalDrive - allows determining if›;      the specified drive number is›;      recognized by DOS›;›;   MaskInput - uses underlines as input›;      masking for user responses›;›;   UnMask - cleans off excess masking›;      that the editor picks up›;›;   Find - returns the position in a›;      CHAR ARRAY (string) where the›;      sub-string was found, returns›;      0 if not found - search begins›;      at the position specified by›;      start›;›; ------------------------------------›       ›BYTE FUNC LegalDrive(BYTE drive_num)›BYTE drvbyt=$070A, bit, i›BYTE ARRAY mask=[1 2 4 8 16 32 64 128], drive(8)›  FOR bit=0 TO 7›  DO›    drive(bit)=(drvbyt&mask(bit)) RSH bit›  OD›RETURN(drive(drive_num-1))››PROC MaskInput(BYTE width)›BYTE i›  FOR i=1 TO width›  DO›    Put('_)›  OD›  FOR i=1 TO width›  DO›    Put(')›  OD›RETURN››PROC UnMask(CHAR ARRAY source,destination)›BYTE i›  FOR i=1 TO source(0)›  DO›    IF source(i)<>'_ THEN›      destination(i)=source(i)›    ELSE›      EXIT›    FI›  OD›  destination(0)=i-1›RETURN››BYTE FUNC Find(CHAR ARRAY str,sub BYTE start)›BYTE i, j›CHAR ARRAY tmp›  FOR i=start TO str(0)›  DO›    IF sub(1)=str(i) THEN›      tmp(0)=sub(0)›      FOR j=1 TO sub(0)›      DO›        tmp(j)=str(j+i-1)›      OD›      IF SCompare(tmp,sub)=0 THEN›        RETURN(i)›      FI›    FI›  OD›RETURN(0)››