home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / oct94 / mp_fig19.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  9.6 KB  |  577x467  |  4-bit (5 colors)
   ocr: - - STATUSTEHFOT#rorml.status method status(var eventinfo statustvent) var stCmd, stWin, stText String enduar if not eventInfo.isPreFilter0) then if aduMatch(eventinfo.statusvalue0), - then (IHnFF1)(E0123]):(-.5".stCmd,stwin,stText) if stCmd.upper0) = "F" then arsthessagehask/Smallint(stwin) + 1] = stText disableDefault else eventinfo.setstatusualue(stText) eventInfo.setReason(Smallint(stwin)) endif else if not aduMatch(eventinfo.statusvalue), arsthessageaskTeventinfo.reason0) + 1]) then disableDefault endif endif endif endmetnod 2 replacements made. Edit Line 4 Col9