Stars of Shareware: Programmierung

home *** CD-ROM | disk | FTP | other *** search

/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / pascal / riptools / riptools.doc < prev next >

Wrap

Text File | 1993-12-10 | 64.6 KB | 1,959 lines

╔════════════════════════════════════════════════╗ ║ ║ ║ RipTools Version 1.0 ║ ║ BetaVersion 1.2 ║ ║ ║ ║ ║ ║ For Turbo Pascal 6.0 and 7.0 ║ ║ ║ ║ Programmed By : Shawn Hord ║ ║ ║ ║ ║ ║ Copyright(c)1993 The Computer Doctor, Inc. ║ ║ All Rights Reserved ║ ║ ║ ╚════════════════════════════════════════════════╝ COPYRIGHT NOTICE ---------------- RipTools is a copyrighted program being distributed under the shareware concept. As such you may use RipTool for a period of 30 days without registering the software. After the 30 day evaluation period, you must register your copy of RipTools or you will be in violation of United States and International copyright laws. As a shareware program, RipTools may be freely distributed through a BBS. Shareware distributors may distribute copies of RipTools on disk for a modest disk duplication charge not to exceed $6 per disk. WARRANTY -------- RipTools is distributed without warranty. In no event will The Computer Doctor, Inc., or Shawn Hord be liable to you for damages, including any loss of profits, lost savings, or other incidental or consequential damages arising out of your use of or inability to use the program, even if The The Computer Doctor, Inc. or Shawn Hord, or an authorized representative has been advised of the possibility of such damages. The Computer Doctor,Inc. and Shawn Hord will not be liable for any such claim by any other party. ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 i RipTools is a suplemental unit that can be used with RMDOOR4.5 written by: Mark Goodwin and Randy Hunt. That allows Turbo Pascal programmers to create Door programs. This Unit will not opperate correctly unless you are using RMDOOR Version 4.5 or higher. To implement this supplemental unit in your Turbo Pascal Programs simply add the following line to the beging of your program. USES RMDOOR,RipTools For further information about RMDOOR4.5 please see your RMDOOR Documentation. ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 i █ Table of contents ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ Section Page Constants . . . . . . . . . . . . . . . . . . . 1 RipTools Unit Procedures listed . . . . . . . . . . . . . . . . . . . 2 RipTools Unit Functions listed . . . . . . . . . . . . . . . . . . . 3 RipTools Unit Procedure Explained . . . . . . . . . . . . . . . . . . . 4 ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 i █ Constants used in the RipTools Unit ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ───────────────────────────────────────────────────────────────────────────── Costant Value Meaning ───────────────────────────────────────────────────────────────────────────── Default 0 Default 8x8 BitMapped Graphics Font Triplex 1 Triplex Scalable Graphics Font Small 2 SmallFont Scalable Graphics Font SansSerif 3 SansSerif Scalable Graphics Font Gothic 4 Gothic(old english) Scalable Grafx Font Script 5 Script Scalable Graphics Font Simplex 6 Simplex Scalable Graphics Font TriplexScrip 7 Triplex Script Scalable Graphics Font Complex 8 Complex Scalable Graphics Font European 9 European Scalable Graphics Font Bold 10 Bold Scalable Graphics Font BClipboard 1 Clipboard Button Style Attribute BInvert 2 Invert Button, Button Style Attribute BResetScreen 4 Reset Screen, Button Style Attribute BChiseled 8 Chiseled Special Effect, Button Attribute BRecessed 16 Recessed Special Effect, Button Attribute BDropShadow 32 Droped Shadow Special Effect Button Attr. BAutoStamp 64 AutoStamp to ClipBoard, Button Attribute BIcon 128 ICON Button, Button Style Attribute BPlain 256 PLAIN Button, Button Style Attribute BBevel 512 Beveled Special Effect, Button Attribute BMouse 1024 Mouse Button, Button Style Attribute BUnderLine 2048 Underline Hot Key on Mouse Button, Attr. BHotIcons 4096 HotKey for Icons, Button Attribute BVerticalAdj 8192 Vertical Adjust, Button Style Attribute BRadioGroup 16384 Button Belongs to a Radio Group, Attr. BSunken 32768 Sunken Special Effect, Button Attribute RemoteOnly FALSE Used to toggle sending RipScrip info to both Local and Remote screens. False = Send to Both Local and Remote True = Send Rip ONLY to Remote Terminal CreateFile FALSE Used to toggle the Local captureing of RipScrip Commands to a file you name. When Set to True you All RipScrip Commands send to the remote or local screens will be captured. GREAT FOR TESTING YOUR OUTPUT See: Pre-Viewing Your Programs Rip OutPut. ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 i █ RipTools Unit Procedures ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ────────────────────────────────────────────────────────────────────────────── Procedure Description ────────────────────────────────────────────────────────────────────────────── RegisterRipTools Registers RipTools, removes the delay. OpenFile Creates a local Rip capture file. CloseFile Closes the local Rip capture file. RipTextWindow Creates text window for non-RipScrip output. RipGraphWindow Creates graphics window for RipScrip output. RipResetWindows Resets and clears the graphics and text windows. RipClrTextWindow Clears the text window. RipClrGraphWindow Clears the graphics window. RipGotoXY Places the text cursor at X,Y positions RipMove Places the graphics cursor at the X,Y positions. RipHomeTextCursor Homes the text cursor to the top left corner. RipEraseEOL Erases a line to End-Of-Line in the Text Window. RipSetColor Sets Current Drawing Color, affects Text also. RipWriteMode Selects Copy or XOR Graphics Writting Mode. RipPutText Writes a String to the display at the current graphics pointer location, w/current text style. RipPutTextXY Write a String to the display at X,Y pointer location. Uses current Text Style. RipTextStyle Sets the current font style, direction and point size, for RipPutText and RipPutTextXY. RipPutPixel Puts a Pixel at X,Y location using current color. RipLine Draws a line from (X1,Y1) to (X2,Y2) locations RipRectangle Draws a rectangle, using the current SetColor. RipBar Draws a Bar using the current RipFillStyle. RipCircle Draws a Circle at X,Y. Using current SetColor. RipOval Draws elliptical arc in current color and line style. RipFillOval Draws filled ellipse using current color and pattern. RipArc Draws circular arc in current color and linestyle. RipOvalArc Draws an elliptical arc in current color and linestyle. RipPieSlice Draws a circular pie slice. RipOvalPieSlice Draws an elliptical pie slice. RipBezier Draw a Bezier curve. RipPoly Draws a closed polygon in current color and line-style. RipFillPoly Draws a filled polygon in current fillstyle and color. RipPolyLine Draws an open polygon in current color. RipFloodFill Fill a region of the screen using fill style and color. RipLineStyle Sets the current line style and thickness. RipFillStyle Sets the current Fill Pattern (predefined) and color. RipFillPattern Defines a user defined fill pattern and color. RipMouseField Defines a rectangular hot mouse Region. RipKillMouseFields Destroys all pre-defined mouse regions. RipBeginText Define a rectangular text region. RipTextRegion Display a line of text in rectangular text region. RipEndText Ends a previous Text Region for output. ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 i █ RipTools Unit Procedures, (continued) ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ────────────────────────────────────────────────────────────────────────────── Procedure Description ────────────────────────────────────────────────────────────────────────────── RipGetImage Gets an (X1,Y1) to (X2,Y2) Graphics region and copies it to the clipboard. (icon) RipPutImage Puts current Image from the clipboard to an X,Y location. RipSaveImage2Disk Write contents of the clipboard (icon) to disk. RipLoadIcon Loads and displays an icon from disk to screen. RipButtonStyle Sets the current Mouse Button Style. RipButton Defines and displays Mouse Button, using current button Style. RipScrollRegion Scrolls a (X1,Y1) (X2,Y2) graphics region UP or DOWN. RipPlayBackScene Playback Local .RIP file. (effects remote user only) RipEnterBlockMode Used to auto-initiate any desired File Transfer modes. RipComplete Sends the "END-OF-RIP-SCENE" command to users terminal. █ RipTools Unit Functions ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ────────────────────────────────────────────────────────────────────────────── Function Description ────────────────────────────────────────────────────────────────────────────── Dec2Mega Converts an Integer(Base10) to a MegaNum(Base36) Number Word2Mega Converts a Word(Base10/16) to a MegaNum(Base36) Number ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RegisterRipTools Procedure ─────────────────────────────────────────────────────────────────────────── Function This removes the delay at the end of the program, and displays your name and copy number when the program ends. Declaration RegisterRipTools; OpenFile Procedure ─────────────────────────────────────────────────────────────────────────── Function Opens the capture file that will be used for capturing your RipScrip output. This output can be used to test your RipScrip commands, via a RipScrip viewer. In order for you to begin capturing your RipScrip output you must set the constant varible: CreateFile to True. Toggling this varible from True or False will determine what parts of your RipScrip output will be captured. This is useful for playing back the RipScene once you have reset the screen and want to re-display the screen again without having to re-call your procedures again. Use the DisplayFile command in the RMDOOR TPU unit to display the file to the screen. Declaration OpenFile(FileName : String); Example Procedure Dummy; Begin CreateFile:=True; OpenFile('TEST.RIP'); ... End; RipCloseFile Procedure ─────────────────────────────────────────────────────────────────────────── Function RipCloseFile closes the current capture file, and sets the Constant varible: CreateFile to FALSE. Declaration RipCloseFile; Example Procedure Dummp; Begin CreateFile:=True; RipOpenFile('TEST.RIP'); RipCloseFile; CreateFile:=False; {Safty purposes only} End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipTextWindow Procedure ─────────────────────────────────────────────────────────────────────────── Function The RipTextWindow defines a Text window that will be used to display Non-Graphicsl ANSI and ASCII text from your program. You can set text wrap mode on/off and you can specify the text font size that will be used to display the text. Declaration RipTextWindow(X1,Y1,X2,Y2, Wrap, Size: Integer); Remarks Table Values for the Wrap Parameter WRAP ────┬────────────────────────────────────────────────────────────────────- 0 │ Text that extends beyond the right margin is truncated. 1 │ Text that extends beyond the right margin will wrap to the next line. Table Values for the Size Parameter SIZE Font Size X Column Range Y Row Range ────┬────────────────────────────────────────- 0 │ 8x8 0-79 0-42 1 │ 7x8 0-90 0-42 2 │ 8x14 0-79 0-24 3 │ 7x14 0-90 0-24 4 │ 16x14 0-39 0-24 Example Procedure Dummy; Begin RipTextWindow(0,0,80,11,1,2); {1/2 the scrn for Txt} RMWrite('This is a test of the national broadcast system.'); End; RipGraphWindow Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will define the Graphics View Port where all RipScrip Commands will effect. All non-RipScrip commands are sent to the Text Window if one has been defined, other wise they will be ignored. Declaration RipGraphWindow(X1,Y1,X2,Y2 : Integer); Example Procedure Dummy; Begin RipGraphWindow(0,0,640,200); {set top 1/2 of scrn grafx} End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipResetWindows Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will reset both the Text and Graphics Windows to full screen, and will home the text cursor to the top left hand corner. Declaration RipResetWindow; Example Procedure ExitMyProgram; Begin RipResetWindows; {CleanUp} End; RipClrTextWindow Procedure ─────────────────────────────────────────────────────────────────────────── Function The RipClrWindow procedure will clear the TextWindow and home the text cursor to the top left corner of the defined window. Declaration RipClrTextWindow; Example Program MyProgram; Begin RipTextWindow(0,0,80,25,1,2); RMWriteLn('This is only a test. Press the Enter Key.'); Repeat Until RMReadKey=#13; RipClrTextWindow; End. RipClrGraphWindow Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will clear the current graphics window, while not affecting the current text window. The graphics pointer will be homed to the top left hand corner. Declaration RipClrGraphWindow; Example Program MyProgram; Begin RipGraphWindow(0,0,640,340); RipClrGraphWindow; ... End. ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipGotoXY Procedure ─────────────────────────────────────────────────────────────────────────── Function The RipGotoXY positions the Text Cursor in the current Text window to the X,Y positions you pass to the procedure. Declaration RipGotoXY(X,Y : Integer); Example Program MyProgram; Var Txt : String; Begin Txt:='Hello World'; RipTextWindow(0,0,80,25,1,2); RipGotoXY(40-(Length(Txt) Div 2),12); RMWrite(Txt); End. RipMoveXY Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure is simular to the GotoXY procedure except it will position the graphics cursor instead. Declaration RipMoveXY(X,Y : Integer); Example Program MyProgram; Begin RipGraphWindow(0,0,600,300); RipClrGraphWindow; RipTextStyle(Triplex,0,4); RipPutText('This is a test'); RipMoveXY(100,100); RipPutText('This text is at a different location.'); End. RipHomeTextCursor Procedure ─────────────────────────────────────────────────────────────────────────── Function The RipHomeTextCursor will move the text cursor in the current text window to the top left hand corner of it's window, All text that my be in the window is not erased. Declaration RipHomeTextCursor; Example Procedure MyProc; Begin RipTextWindow(0,0,80,11,1,2); RMWrite('This is a test, Press enter to continue.'); RipHomeTextCursor; End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipEraseEOL Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will erase the current text line from the current cursor position to the rightmargin of the current defined text window. Declaration RipEraseEOL; Example Program MyProgram; Begin RipGotoXY(1,2); RMWrite('WHAT IS THIS............'); RipGotoXY(14,2); RipEraseEOL; End; RipWriteMode Procedure ─────────────────────────────────────────────────────────────────────────── Function In normal mode, things are drawn in the current drawing color over top of whatever is in the graphics viewport. This is the typical mode of operation in a GUI environment. In the XOR mode, instead of changing each pixel to the current drawing color, the pixel is inverted (black changes to white, red to green, etc.). Drawing the same item a second time erases it completely. This mode is useful for drawing something temporarily, or for animation. The Rubber Band mode of most paint programs uses a mode like this. Mode Description ────┬───────────────────────────────── 00 │ Normal drawing mode (overwrite) 01 │ XOR (complimentary) mode Declaration RipWriteMode(Mode : Byte); Example RipWriteMode(0); ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipPutText Procedure ─────────────────────────────────────────────────────────────────────────── Function The RipPutText procedure display a graphics string in the graphics window. It uses the current settings set by the RipTextStyle. Declaration RipPutText(TxtStr : String); Example Program MyProg; Begin RipTextStyle(2,0,4); RipPutText('This is a test'); End. RipPutTextXY Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure is exactly like RipPutText except that you can specify the X,Y location of where the string will be displayed I will display the string using the current settings set by the RipTextStyle command. Declaration RipPutTextXY(X,Y : Integer; TxtStr : String); Example Program MyProg; Begin ... RipPutTextXY(100,100,'This is a test.'); ... End. RipSetColor Procedure ─────────────────────────────────────────────────────────────────────────── Function Use this procedure to select the current drawing color. Declaration RipSetColor(C : Byte); Example Program MyProg; Begin RipGraphWindow(0,0,640,350); RipSetColor(14); {Yellow} RipLine(0,0,640,350); {Draw a diag. Line} End. ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipTextStyle Procedure ─────────────────────────────────────────────────────────────────────────── Function Using this procedure will effect how the RipPutText/XY commands will display their strings onto the display. You can set the font, the direction the font will display, and the point size of the font. Declaration RipTextStyle(Font, Direction, Size : Integer); Remarks FONT CONSTANTS: Constant Value Desctiption ─────────────┬────┬────────────────────────────────────────── Default │ 0 │ Default 8x8 BitMapped Graphics Font Triplex │ 1 │ Triplex Scalable Graphics Font Small │ 2 │ SmallFont Scalable Graphics Font SansSerif │ 3 │ SansSerif Scalable Graphics Font Gothic │ 4 │ Gothic(old english) Scalable Grafx Font Script │ 5 │ Script Scalable Graphics Font Simplex │ 6 │ Simplex Scalable Graphics Font TriplexScrip │ 7 │ Triplex Script Scalable Graphics Font Complex │ 8 │ Complex Scalable Graphics Font European │ 9 │ European Scalable Graphics Font Bold │ 10 │ Bold Scalable Graphics Font DIRECTION PARAMETER ───┬─────────────── 0 │ Horizontal 1 │ Vertical SIZE PARAMETER SIZE PARAMETER ───┬──────────────────────────┬───┬────────────────── 1 │ Normal default size (x4) │ 2 │ x2 Magnification 3 │ x3 Magnification │ 4 │ x4 Magnification 5 │ x5 Magnification │ 6 │ x6 Magnification 7 │ x7 Magnification │ 8 │ x8 Magnification 9 │ x9 Magnification │10 │ x10 Magnification Example Program MyProg; Begin ... RipTextStyle(Triplex,0,1); ... End. ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipPutPixel Procedure ─────────────────────────────────────────────────────────────────────────── Function The RipPutPixel will put place a pixel at the given X,Y location, using the current drawing color. This method of drawing is not highly recommended because of the length of time it takes to draw the many pixels and has been placed here for completness only. Declaration RipPutPixel(X,Y : Integer); Sample Procedure StarField; Var Loop : Integer; Begin For Loop:=1 to 100 Do Begin RipSetColor(Random(14+1)); RipPutPixel(Random(638)+1,Random(338)+1); End; End; RipLine Procedure ─────────────────────────────────────────────────────────────────────────── Function Rip Draws a line between (X1,Y1) and (X2,Y2) points, using the current drawing color and line style. Declaration RipLine(X1,Y1,X2,Y2: Integer); Sample Procedure Dummy; Begin RipLine(0,0,640,300); End; RipRectangle Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws a rectanglar region, using current drawing color and line style. Declaration RipRectangle(X1,Y1,X2,Y2); Example Procedure Dummy; Begin RipRectangle(10,10,50,40); End; RipBar Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws a Filled rectanglar region, using current drawing color and FillStyle. Declaration RipBar(X1,Y1,X2,Y2); Example Procedure Dummy; Begin RipBar(10,10,50,40); End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipCircle Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws a circular region using the current drawing color and line style. Declaration RipCircle(X,Y,Radius : Integer); Sample Procedure Dummy; Begin RipCircle(100,100,50); End; RipOval Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws an Oval region using the current drawing color and line styles. Declaration RipOval(X,Y,StartAngle,EndAngle,XRadius,YRadius : Integer); Sample Procedure Dummy; Begin RipOval(100,100,90,360,30,40); End; RipFillOval Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws a Filled Oval using the current Fill Style and Fill color. Declaration RipFillOval(X,Y,XRadius,YRadius : Integer); Sample Procedure Dummy; Begin RipFillOval(100,100,50,40); End; RipArc Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws an Arc using the current drawing color and line style. Declaration RipArc(X,Y,StartAngle, EndAngle, Radius : Integer); Sample Procedure Dummy; Begin RipArc(100,100,90,180,40); End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipOvalArc Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws an Oval Arc using the current drawing color and line style. Declaration RipOvalArc(X,Y,StartAngle,EndAngle,XRadius, YRadius : Interg); Sample Procedure Dummy; Begin RipOvalArc(X,Y,0,90,40,100); End; RipPieSlice Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws a PieSlice region using the current line style and current drawing color. Declaration RipPieSlice(X,Y,StartAngle,EndAngle,Radius : Integer); Sample Procedure Dummy; Begin RipPieSlice(100,100,0,80,20); End; RipOvalPieSlice Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws an Oval PieSlice region using the current line style and current drawing color. Declaration RipOvalPieSlice(X,Y,StartAngle,EndAngle,XRadius, YRadius : Integer); Sample Procedure Dummy; Begin RipOvalPieSlice(100,100,0,90,40,60); End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipBezier Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws a Bezier curve using the current drawing color and line style. You must enter the the number of lines you want to make up the curve, the less the number count is the less resolution the curve will have, and the more the number count is, the higher the resolution of the curve. Declaration RipBezier(X1,Y1,X2,Y2,X3,Y3,X4,Y4, Count : Integer); Sample Procedure RoundedCorners; Begin RipBezier(10,10,40,10,10,50,40,50,5); End; RipPoly Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws a polygon shaped region, the shape will automatically connect the first (X,Y) points with the last (X,Y) Points. in order to use this procedure you must first define your polygon points by Assigning the X and Y cooranates using the Global Varible: POLYPOINTS. RipTools will allow upto 1000 X,Y point locations to be defined. Declaration RipPoly(NumberOfPoints : Integer); Sample Procedure Dummy; Begin PolyPoints[1].X:=10; PolyPoints[1].Y:=15; PolyPoints[2].X:=20; {define polygon, makes a triangle} PolyPoints[2].Y:=30; RipPoly(2); End; RipFillPoly Procedure ─────────────────────────────────────────────────────────────────────────── Function Draws a filled polygon shaped region, the shape will auto- matically connect the first (X,Y) points with the last (X,Y) points, assigned by the POLYPOINTS record varible. RipTools allows you to creat 1000 (X,Y) coornates to be defined. The filled polygon uses the current fill style and fill color. Declaration RipFillPoly(NumberOfPoints : Integer); Sample Procedure Dummy; Begin RipFillStyle(1,2); PolyPoints[1].X:=10; PolyPoints[1].Y:=15; PolyPoints[2].X:=20; {define polygon, makes a triangle} PolyPoints[2].Y:=30; RipPoly(2); End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipPolyLine Procedure ─────────────────────────────────────────────────────────────────────────── Function The RipLine procedure is simular to the RipPoly procedure except that the beggin (X,Y) points are NOT connected to the ending (X,Y) points, giving you an open polygon rather than a closed polygon. The procedure is executed excatly like the RipPoly procedure where you assign the (X,Y) points through the POLYPOINTS record. Declaration RipPolyLine(NumberOfPoints : Integer); Sample Procedure Sample; Begin PolyPoints[1].X:=10; PolyPoints[1].Y:=10; PolyPoints[2].X:=10; PolyPoints[2].Y:=20; PolyPoints[3].X:=10; PolyPoints[3].Y:=0; RipPolyLine(3); End; RipFloodFill Procedure ─────────────────────────────────────────────────────────────────────────── Function Fills a region of the screen using the current FillStyle and Fill Color. Declaration RipFloodFill(X,Y,BorderColor : Integer); Sample Procedure Sample; Begin RipFillStyle(2,4); RipFloodFill(10,10,0); End; RipFillStyle Procedure ─────────────────────────────────────────────────────────────────────────── Function The RipFillStyle is used by any of the RipTools that Fills a region of the screen. i.e. RipBar, RipFillPoly, RipFloodFill. It sets the current fill pattern and current fill color. Declaration RipFillStyle(Pattern, Colour : Integer); Sample Procedure Sample; Begin RipFillStyle(0,1); {solid blue} RipBar(100,100,500,200); {draw a solid blue bar} End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipMouseField Procedure ─────────────────────────────────────────────────────────────────────────── Function Creates a mouse field region on the screen, so that when a user clicks a mouse button while in that area, a HostString will be sent to execute a command that that region represents. Declaration RipMouseField(FieldNumber,X1,Y1,X2,Y2,Clicked, Clr: Integer; TxtStr : String); Remarks Clicked ───┬───────────────────────────────────────────────── 0 │ Do not invert selected region. 1 │ Region will be inverted giving the user a visual │ responce that the area has been clicked on. Clr ───┬────────────────────────────────────────────────────── 0 │ Do not Zoom, Clear and Reset window to full size. 1 │ Zoom window to full size, reset and clear window also Note: The FieldNumber Parameter is used for upward compatiblity with older version of RipScrip commands. You sould leave this number at Zero(0). if you are using RipTools with a RipTerminal that is older than version 1.54 of the RipScrip standard(not that there is one) you will need to place a MouseField number here so it can identify it from other the other mouse fields you may want to create. Sample Procedure Sample; Begin RipMouseField(0,10,10,100,30,1,0,'C^m'); {continue area} End; RipKillMouseFields Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will destroy ALL the mouse fields that you have created. Declaration RipKillMouseFields; Sample Procedure CleanUp; Begin RipKillMouseFields; End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipBeginTextRegion Procedure ─────────────────────────────────────────────────────────────────────────── Function This command defines a rectangular portion of the graphics viewport that is to display text, usually a long stream of text. Following this command should be a number of RIP_REGION_TEXT commands with the text to be displayed. Declaration RipBeginTextRegion(X1,Y1,X2,Y2 : Integer); Sample Program Sample; Begin RipTextRegion(10,10,100,200); ... RipTextRegion(0,'This is a test...This is only a test.'); ... End. RipTextRegion Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure places a stream of text in a predefined text region that has been defined by the RipBeginTextRegion procedure. Declaration RipTextRegion(Justify : Integer; TxtStr : String); Remarks Justify ───────┬───────────────────────────────────────────────────── 0 │ Don't right/left justify. Left-justify only 1 │ Perform right/left margin justification of this line │ of text. (centered) Sample Program Sample; Begin ... RipTextRegion(0,'This is a test...'); ... End; End; RipEndText Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure destroys a defined text region defined by the RipBeginTextRegion procedure. Declaration RipEndText; Sample Procedure Sample; Begin ... RipEndText; ... End; ══════════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipGetImage Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will copy an (X1,Y1) (X2,Y2) region of the screen onto the clipboard. Declaration RipGetImage(X1,Y1,X2,Y2 : Integer); Sample Procedure Sample; Begin ... RipGetImage(100,100,200,200); ... End; RipPutImage Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will paste an image that was copied onto the clipboard onto the screen at the (X,Y) coornates that you give. Declaration RipPutImage(X,Y,PutMode : Integer); Remarks PutMode ────┬───────────────────────────────────────────────────────── 00 │ Paste the image on-screen normally (COPY) 01 │ Exclusive-OR Image with the one already on screen (XOR) 02 │ Logically OR Image with the one already on screen (OR) 03 │ Logically AND Image with the one already on screen (AND) 04 │ Pase the invers of the image on the screen (NOT) Sample Procedure Sample; Begin ... RipPutImage(10,10,0); ... End; RipSaveImage2Disk Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure saves the contents of the clipboard to a disk file. Declaration RipSaveImage2Disk(FileName : String); Sample Program Sample; Begin ... RipSaveImage2Disk('IMAGES.CLP'); ... End. ═════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipLoadIcon Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure load an ICON(clipboard file) from the disk drive and places it on the screen. Declaration RipLoadIcon(X,Y,PutMode,Clp : Integer; FileName: String); Remarks PutMode ────┬───────────────────────────────────────────────────────── 00 │ Paste the image on-screen normally (COPY) 01 │ Exclusive-OR Image with the one already on screen (XOR) 02 │ Logically OR Image with the one already on screen (OR) 03 │ Logically AND Image with the one already on screen (AND) 04 │ Pase the invers of the image on the screen (NOT) Clp ────┬───────────────────────────────────────────────────────── 00 │ Simply load the Icon and paste it on the screen. 01 │ Load the Icon and paste it on the screen & the clipboard. RipButtonStyle Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure is one of the most complicated of all the procedures to use within the RipTool Unit. The RipButtonStyle sets the apperance and style of any mouse buttons that you may want to use within your Rip program. Follow close to the details given so you can understand better on how to use this procedure. After awhile you find it easier to use as you get familiar with how buttons are created. A suggestion is to experiment alittle before you begin any serious prgramming. Declaration RipButtonStyle(Width, Height, Orientation : Integer; Flags1 : Word; BevelSize, TxtColor, TxtBackGround, Bright, Dark, Surface, GroupNumber, Flags2, UnderlineColor, CornerColor : Integer); Remarks The <width> and (height) parameter defines the width and height of your button, if you set these values to zero(0) the buttons size will be determined by the (X1,Y1) (X2,Y2) parameters in the RipButton procedure below, other wise any value over zero(0) the size of the button will be what ever width and height you specify in these parameters. The <orientation> parameter controls the position of the optional text label that you may want to have on the label. Orientation Values ───┬─────────────────────────────────────────────■ 00 │ Display label above button 01 │ Display label to the left of button 02 │ Display label in the center of the button 03 │ Display label to the right of button 04 │ Display label beneath the button ( C O N T I N U E D T O N E X T P A G E ) ═════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipButtonStyle (continued) Procedure ─────────────────────────────────────────────────────────────────────────── Remarks The <flags1> parameter controls the different attributes the button you are creating will have. A button can one or more attributes assigned to it. Flags1 Value Description of Attribute ─────────────┬───────┬─────────────────────────────────────────── BClipboard │ 1 │ Clipboard Button Style Attribute BInvert │ 2 │ Invert Button, Button Style Attribute BResetScreen │ 4 │ Reset Screen, Button Style Attribute BChiseled │ 8 │ Chiseled Special Effect, Button Attribute BRecessed │ 16 │ Recessed Special Effect, Button Attribute BDropShadow │ 32 │ Droped Shadow Special Effect Button Attr. BAutoStamp │ 64 │ AutoStamp to ClipBoard, Button Attribute BIcon │ 128 │ ICON Button, Button Style Attribute BPlain │ 256 │ PLAIN Button, Button Style Attribute BBevel │ 512 │ Beveled Special Effect, Button Attribute BMouse │ 1024 │ Mouse Button, Button Style Attribute BUnderLine │ 2048 │ Underline Hot Key on Mouse Button, Attr. BHotIcons │ 4096 │ HotKey for Icons, Button Attribute BVerticalAdj │ 8192 │ Vertical Adjust, Button Style Attribute BRadioGroup │ 16384 │ Button Belongs to a Radio Group, Attr. BSunken │ 32768 │ Sunken Special Effect, Button Attribute i.e: If you want to have a PLAIN button with a beveled edge and you also want the button to have a CHISELED special effect then you could create that buton's attribute like the following: MyFlags:=BPlain+BBevel+BChiseled; or MyFlags:=256+512+8; either of the two examples above will create the button mentioned. The <bevelsize> parameter is used to tell the button how big you want a beveled edge on the button, if the BBevel<512> Attribute is set on. this parameter has a value from 0(no bevel) to 10(max bevel size) The <textcolor> parameter tell the button what color you want the text label on the button to be, you can choose of 16 different colors. The <textbackground> parameter tell the button what background color you want. The background color is used to shadow the text label. The <bright> parameter is the color for the top edge of the button. The <dark> parameter is the color for the bottom edge of the button. The <surface> parameter is the color of the button when displayed The <GroupNumber> specifies what button number the button is, if you are grouping a set of buttons together like Radio Buttons or Check Boxes. so when you activate one button in the group it deactivates the others. Great for option toggles in setup portions of your programs. ( C O N T I N U E D T O N E X T P A G E ) ═════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipButtonStyle (continued) Procedure ─────────────────────────────────────────────────────────────────────────── Remarks The <flags2> parameter is used to tell the button addition information about the buttons behavior. Flags2 Values and which can be active with certin Flags1 Attributes. Val Description of Flags Field #2 Icon Clip Plain Mouse No-Mouse ────┬──────────────────────────────────┬────┬────┬─────┬─────┬──────── 1 │ Button is in a check box group │ Y │ Y │ Y │ Y │ N 2 │ Highlight hotkey character │ Y │ Y │ Y │ Y │ N 4 │ Explode (zoom out when clicked) │ Y │ Y │ Y │ Y │ N 8 │ Left Justify Label (top/ctr/btm) │ Y │ Y │ Y │ Y │ Y 16 │ Right Justify Label (top/ctr/btm)│ Y │ Y │ Y │ Y │ Y The <underlinecolor> parameter, tells the button what color you want the underline and Hotkey to be. The <cornercolor> parameter allows you to change the color of the corners of the button, making the button appear 3D. Sample Program MyProg; Var MyFlags : WORD; Begin ... MyFlags:=BPlain+BBeveled+BChiseled; RipButtonStyle(100,40,0,MyFlags,3,14,0,15,8,7,0,2+4,4,7); RipButton(10,10,0,0,'E',1,'','ENTER','^M'); ... End; RipButton Procedure ─────────────────────────────────────────────────────────────────────────── Function Places a button on the screen, using the current settings set by the RipButtonStyle procedure (see above). Declaration RipButton(X1,Y1,X2,Y2: Integer; HotKey: String; Flags:Integer; IconName, TextLabel, HostCmd: String); Remarks If you have specified the <width> and <height> of the button in the RipButtonStyle procedure then the (X2,Y2) parameters are ignored and are computed using the <width> and <height> values you gave. The <hotkey> parameter MUST BE a single character if you need to represent the hotkey as a control ASCII character then you must use the CHR() function or represent the character using the #ASCII_NUMBER (i.e. #13 = carrage return). The <flags> parameter tells the button how you want the button displayed. Values Description ──────┬───────────────────────────────────────────── 1 │ Draw button as already selected 2 │ Button is "default" when <ENTER> is pressed (continues to next page) ═════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipButton (continued) Procedure ─────────────────────────────────────────────────────────────────────────── Remarks The <iconname> parameter is used to specify the Icon name you want displayed. If your button is NOT an Icon type button then you can use ''(null string) to ignore the Icon name. NOTE: DO NOT Specify a path with the IconName, only the name of the icon should be given! Otherwise an error will occure. The <textlabel> parameter is the Text Label you want to have displayed with the button. If you do not want a text label then you can use the null string('') as your parameter option and your text label will be ignored. The <hostcmd> parameter is the Host String Command that is sent to the host when the button has been pressed. You can enter the null string('') as the parameter to tell the button not to send a Host command string back to the host. Sample Program MyProg; Begin ... RipButton(10,10,0,0,'C',1,'','Continue','^M'); ... End. RipScrollRegion Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will scroll an (X1,Y1) (X2,Y2) region, either Up or Down depending on the location of the destination(Y) parameter. This procedure only moves the region to the destination specified, so you are going to have to cleanup the effected areas. Note: This is the only procedure in the RipTools Unit that will effect the entire screen, including Text windows. This procedure is makes a great special effect for clearing the screen. Declaration RipScrollRegion(X1,Y1,X2,Y2,DestLine : Integer); Sample Procedure CoolClr; Var FirstTime : Boolean; Begin FirstTime:=True; For Loop:=340 downto 0 Do Begin RipScrollRegion(0,10,600,350,0); If FirstTime then Begin RipFillStyle(1,0); RipBar(0,340,600,350); FirsTime:=False; End; End; End; ═════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipPlayBackScene Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure will play-back a .RIP Scene on the users terminal just specify the filename that you want re-played. DO NOT INCLUDE THE PATH TO THE .RIP File. Declaration RipPlayBackScene(FileName : String); Sample RipPlayBackScene('TEST.RIP'); RipEnterBlockMode Procedure ─────────────────────────────────────────────────────────────────────────── This procedure is for completness only. When you call this procedure ALL RIP commands are ignored and the users terminal will send the init string for starting up protocols. i.e ZMODEM. this is useful when you want to upload a group of Icons or a .RIP file to the users storage drive. RipTools does not have any kind of MODEM Protocols included these will have to be supplied by you. Declaration RipEnterBlockMode(Mode,ProtoCol,FileType : Integer; FileName : String); Remarks The <mode> parameter specifies the type of transfer you wish to initiate, upload or download. If you specify download you must specify a filename. MODE Desctiption ────┬─────────────────────────────────────────── 0 │ Download Mode, Filename parameter Required 1 │ Upload Mode, no file name required. The <protocol> parameter specifies what protocol you want to upload or download the given file. Value Protocol Filename Required? ─────┬───────────────────────────┬────────────────── 0 │ Xmodem (checksum) │ Yes 1 │ Xmodem (CRC) │ Yes 2 │ Xmodem-1K │ Yes 3 │ Xmodem-1K (G) │ Yes 4 │ Kermit │ Yes 5 │ Ymodem (batch) │ No 6 │ Ymodem-G │ No 7 │ Zmodem (crash recovery) │ No The <file_type> parameter determines what type of files are to be received during the block transfer. These are the valid parameters: Value Description of Block Transfer Contents --------------------------------------------------------------- 0 RIP file sequence (display it) 1 RIP file sequence (store them) 2 ICN file sequence (store them in proper directories) 3 HLP file sequence (store it, and auto-load if needed) 4 COMPOSITE DYNAMIC file sequence (batch protocols only) 5 ACTIVE DYNAMIC file sequence (batch protocols only) ═════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Procedures Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ RipComplete Procedure ─────────────────────────────────────────────────────────────────────────── Function This procedure tells the RipTerminal that all RipScrip commands have been sent and are read to be executed. Most Ripscrip terminals have a built in "TIME-OUT" feature that will automatically send this command, however do not expect it, and to make sure that your program is complete we recommend that after sending all the rip information to the users terminal you should execute this procedure. This procedure sends three of the RipComplete commands to insure the terminal program recieves the message. Declaration RipComplete; Sample Program MyRip; Begin ... {RipTool Commands} ... RipComplete; End. ═════════════════════════════════════════════════════════════════════════ RipTools For Turbo Pascal 6.0 and 7.0 █ RipTools Unit Functions Explained ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ Dec2Mega Function ─────────────────────────────────────────────────────────────────────────── Function Converts an Integer Number into a Base36 MegaNum. The returned result is a two character string. Declaration Dec2Mega(Number : Integer) : String; Sample Procedure Sample; Begin ... RMWrite(Dec2Mega(120)); ... End; Word2Mega Function ─────────────────────────────────────────────────────────────────────────── Function Converts a word type into a Base36 MegaNum. The returned result is a four character string. Declaration Word2Mega(Number : Word) : String; Sample Procedure Sample; Begin ... RMWrite(Word2Mega($FE2A)); ... End; REGISTRATION ------------ Registration of RipTools is only $25.00. Please use the form in the file REGISTER.FRM. When you register RMDoor, you will receive a notice of verification and instructions on how to turn your shareware version of RipTools into a registered version.