ts@uwasa.fi (Timo Salmi LASK) (12/07/89)
Wed 6-Dec-89: Updated the programmers' Turbo Pascal 5.0 (and 4.0) units collection to be version /pc/ts/tspas17. The new procedures include WHEREXFN and WHEREYFN which locate the cursor position without the Crt unit. As you will recall Crt unit includes a WhereX and a WhereY function. The reason I have prepared alternatives to Crt functions and procedures in this, and the earlier releases, is because with some incompatible PCs the Crt unit causes problems, and redirection requires special measures with the Crt. - KEYPREFN is a replacement of KeyPressed and READKEFN for ReadKey. - CLUSIZFN gives the cluster size on a device. ALLSIZFN gives the true total size allocated to a file instead of the size shown on ordinary directory listings. - INKEYFN is a Basic-like timed input. Tspas17.arc is available by anonymous ftp as usual. Let me repeat a wish for those of you who may have found my programs or units useful. As I am not asking for any registration fees for the PD versions, would you do me a reciprocal favor by uploading at least some of my packages to, say eg one local bulletin board (BBS), and thus contribute to disseminating the *latest* versions of these packages. And, if you distribute these packages, would you PLEASE distribute an entire package, not individual programs from within any package. This is a request that all of us share who write PD programs. ................................................................... Prof. Timo Salmi (Site 128.214.12.3) School of Business Studies, University of Vaasa, SF-65101, Finland Internet: ts@chyde.uwasa.fi Funet: vakk::salmi Bitnet: salmi@finfun Summary of the Functions and procedures in the TSPAS Package Functions are indicated by the ending FN, the procedures by the lack of it. TSUNTA: PANMR Scroll screen right PANML Scroll screen left WIDTHFN Current width of text screen ATTRIBFN Color attribute for direct write to video memory VIDXY Direct write to the screen video memory VDCHXY Direct read from the screen video memory VDAEXYFN Direct read of a screen video memory color attribute TSUNTB: TIMERFN Time elapsed since midnight POWERFN Conventional raising of a positive number to a power POWERGFN Generalized raising of any real to a power POWERLFN Raise longint to a non-negative integer power TWOTOFN Two to a power, fast R16TOFN Sixteen to a power, fast BITONFN Status of a bit in a word CONVBFN Convert from a number of any base to any other base BINDECFN Convert binary to decimal, fast DECBINFN Convert decimal to binary, fast (outdated by BINFN) BINFN Convert decimal to binary, very fast LBINFN Convert longint to binary, fast HEXDECFN Convert hexadecimal to decimal, fast DECHEXFN Convert decimal to hexadecimal, fast (outdated by HEXFN) HEXFN Convert decimal to hexadecimal, very fast LHEXFN Convert longint to hexadecimal, fast TSUNTC: PLAYNOTE Play a note PRTONLFN Get the online status of a printer DSKCNTFN Get the number of disk devices (MsDos 3+ only) REVCOLOR Reverse text colors (a toggle) TSUNTD: TRIMRGFN Trim a string right TRIMLFFN Trim a string left LEADFN Lead a string with a multiple character (i.e. pad left) TRAILFN Trail a string with a multiple character (i.e. pad right) DOSDELAY Delay without using the Crt unit PARSE Extract all substrings from a string STRCNTFN Number of substrings in a string (resembles ParamCount) SPARTFN Returns a specified substring (resembles ParamStr) TSUNTE: CURSOFF Turn off cursor (keeps other cursor attributes) CURSON Turn cursor back on as it was CURSOR Change cursor size BORDER Change border color (CGA, VGA) CLB Clear the keyboard buffer MONOFN Is it a monochrome CAPSONFN CapsLock status NUMLONFN NumLock status FEXISTFN File existence status, handles ReadOnly files correctly FSIZEFN File size in bytes as in directory CLUSIZFN Cluster size on a device (cluster is the allocation unit) ALLSIZFN Allocated true size of a file in bytes CMDLNFN Returns the entire command line WKDAYFN Returns modern weekday WEEKNRFN Returns the week number for a given date TSUNTF: EDRDLN Readln with line-editing potential EDREADLN Readln with line-editing, recall, and insert toggle TSUNTG: DRIVESFN Number of diskette drives on the system FDRIVEFN The name of the first diskette drive on the system INDRIVFN Is a media present in the given drive GOATXY As the ordinary GoToXY but no Crt unit required WHEREXFN As the ordinary WhereX but no Crt unit required WHEREYFN As the ordinary WhereY but no Crt unit required KEYPREFN As the ordinary KeyPressed but no Crt unit required READKEFN As the ordinary ReadKey but no Crt unit required INKEYFN Basic-like timed character input REVAREA Reverse the colors of an area USEPRN Redirect write and writeln to the printer USECON Restore write and writeln direction to the screen