home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / mar95 / mcin102.gif < prev    next >
Graphics Interchange Format  |  1995-11-15  |  10.7 KB  |  475x380  |  4-bit (5 colors)
   ocr: HIGUREZSsLESchpt.rom method run(var eventinto Event) var tc TCursor lowval, highval, numrecs Number endvar lowval = 1900 highval = 8000 tC.open("ORDERS.DB", - "Total Invoice") tc.setRange(lowwal,highual) numrecs = CC.nkecoras0) msginfo(" "There are : - string(numrecs)* :E invoices between In" + String(lowwal)*" "+ String(highual)) endmetnod Edit Line: 12 Col: 6