home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / RIP.CMD < prev    next >
OS/2 REXX Batch file  |  1994-02-02  |  25KB  |  607 lines
  1. $IF NOT %NORIP
  2. GOTO EXITSELECT
  3. PtrRIP.VER:
  4.     COMPRINT CHR$(27,91,48,33)
  5.         DELAY 2
  6.         PUSHARG COMCHAR$
  7.  
  8. GOTO EXITSELECT
  9. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  10. PtrRIP.TEXT.WINDOW:
  11. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  12. '        Function:  Define the size and location of the Text Window
  13. '           Level:  0
  14. '         Command:  w
  15. '       Arguments:  x0:2, y0:2, x1:2, y1:2, wrap:1, size:1
  16. '          Format:  !|w <x0> <y0> <x1> <y1> <wrap> <size>
  17. '         Example:  !|w00001B0M10
  18.         RIP "w222211"
  19.         GOTO EXITSELECT
  20. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  21. PtrRIP.VIEWPORT:
  22. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  23. '        Function:  Define the size & location of the Graphics Window
  24. '           Level:  0
  25. '         Command:  v
  26. '       Arguments:  x0:2, y0:2, x1:2, y1:2
  27. '          Format:  !|v <x0> <y0> <x1> <y1>
  28. '         Example:  !|v00002E1M
  29.         RIP "v2222"
  30.         GOTO EXITSELECT
  31. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  32. PtrRIP.RESET.WINDOWS:
  33. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  34. '        Function:  Clear Graphics/Text Windows & reset to full screen
  35. '           Level:  0
  36. '         Command:  *
  37. '       Arguments:  <none>
  38. '          Format:  !|*
  39. '         Example:  !|*
  40.         RIP "*"
  41.         GOTO EXITSELECT
  42. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  43. PtrRIP.ERASE.WINDOW:
  44. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  45. '        Function:  Clears Text Window to current background color
  46. '           Level:  0
  47. '         Command:  e
  48. '       Arguments:  <none>
  49. '          Format:  !|e
  50. '         Example:  !|e
  51.         RIP "e"
  52.         GOTO EXITSELECT
  53. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  54. PtrRIP.ERASE.VIEW:
  55. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  56. '        Function:  Clear Graphics Window to current background color
  57. '           Level:  0
  58. '         Command:  E
  59. '       Arguments:  <none>
  60. '          Format:  !|E
  61. '         Example:  !|E
  62.         RIP "E"
  63.         GOTO EXITSELECT
  64. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  65. PtrRIP.GOTOXY:
  66. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  67. '        Function:  Move text cursor to row & column in Text Window
  68. '           Level:  0
  69. '         Command:  g
  70. '       Arguments:  x:2, y:2
  71. '          Format:  !|g <x> <y>
  72. '         Example:  !|g0509
  73.         RIP "g22"
  74.         GOTO EXITSELECT
  75. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  76. PtrRIP.HOME:
  77. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  78. '        Function:  Move cursor to upper-left corner of Text Window
  79. '           Level:  0
  80. '         Command:  H
  81. '       Arguments:  <none>
  82. '          Format:  !|H
  83. '         Example:  !|H
  84.         RIP "H"
  85.         GOTO EXITSELECT
  86. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  87. PtrRIP.ERASE.EOL:
  88. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  89. '        Function:  Erase current line from cursor to end of line
  90. '           Level:  0
  91. '         Command:  >
  92. '       Arguments:  <none>
  93. '          Format:  !|>
  94. '         Example:  !|>
  95.         RIP ">"
  96.         GOTO EXITSELECT
  97. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  98. PtrRIP.COLOR:
  99. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  100. '        Function:  Set current Drawing Color for graphics
  101. '           Level:  0
  102. '         Command:  c
  103. '       Arguments:  color:2
  104. '          Format:  !|c <color>
  105. '         Example:  !|cA
  106.         RIP "c2"
  107.         GOTO EXITSELECT
  108. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  109. PtrRIP.SET.PALETTE:
  110. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  111. '        Function:  Set 16-color Palette from master 64-color palette
  112. '           Level:  0
  113. '         Command:  Q
  114. '       Arguments:  c1:2, c2:2, ... c16:2
  115. '          Format:  !|Q <c1> <c2> ... <c16>
  116. '         Example:  !|Q000102030405060708090A0B0C0D0E0F
  117.         RIP "Q2222222222222222"
  118.         GOTO EXITSELECT
  119. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  120. PtrRIP.ONE.PALETTE:
  121. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  122. '        Function:  Set color of 16-color Palette from Master Palette
  123. '           Level:  0
  124. '         Command:  a
  125. '       Arguments:  color:2 value:2
  126. '          Format:  !|a <color> <value>
  127. '         Example:  !|a051B
  128.         RIP "a22"
  129.         GOTO EXITSELECT
  130. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  131. PtrRIP.WRITE.MODE:
  132. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  133. '        Function:  Set drawing mode for graphics primitives
  134. '           Level:  0
  135. '         Command:  W
  136. '       Arguments:  mode:2
  137. '          Format:  !|W <mode>
  138. '         Example:  !|W00
  139.         RIP "W2"
  140.         GOTO EXITSELECT
  141. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  142. PtrRIP.MOVE:
  143. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  144. '        Function:  Move the current drawing position to (X,Y)
  145. '           Level:  0
  146. '         Command:  m
  147. '       Arguments:  x:2, y:2
  148. '          Format:  !|m <x> <y>
  149. '         Example:  !|m0509
  150.         RIP "m22"
  151.         GOTO EXITSELECT
  152. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  153. PtrRIP.TEXT:
  154. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  155. '        Function:  Draw text in current font/color at current spot
  156. '           Level:  0
  157. '         Command:  T
  158. '       Arguments:  text-string
  159. '          Format:  !|T <text-string>
  160. '         Example:  !|Thello world
  161.         RIP "T$"
  162.         GOTO EXITSELECT
  163. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  164. PtrRIP.TEXT.XY:
  165. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  166. '        Function:  Draw text in current font/color at specific spot
  167. '           Level:  0
  168. '         Command:  @
  169. '       Arguments:  x:2, y:2 and text-string
  170. '          Format:  !|@ <x> <y> <text-string>
  171. '         Example:  !|@0011hello world
  172.         RIP "@22$"
  173.         GOTO EXITSELECT
  174. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  175. PtrRIP.FONT.STYLE:
  176. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  177. '        Function:  Select current font style, orientation and size
  178. '           Level:  0
  179. '         Command:  Y
  180. '       Arguments:  font:2, direction:2, size:2, res:2
  181. '          Format:  !|Y <font> <direction> <size> <res>
  182. '         Example:  !|Y01000400
  183.         RIP "Y22200"
  184.         GOTO EXITSELECT
  185. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  186. PtrRIP.PIXEL:
  187. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  188. '        Function:  Draws a one pixel using current drawing color
  189. '           Level:  0
  190. '         Command:  X
  191. '       Arguments:  x:2, y:2
  192. '          Format:  !|X <x> <y>
  193. '         Example:  !|X1122
  194.         RIP "X22"
  195.         GOTO EXITSELECT
  196. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  197. PtrRIP.LINE:
  198. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  199. '        Function:  Draw a line in the current color/line style
  200. '           Level:  0
  201. '         Command:  L
  202. '       Arguments:  x0:2, y0:2, x1:2, y1:2
  203. '          Format:  !|L <x0> <y0> <x1> <y1>
  204. '         Example:  !|L00010A0E
  205.         RIP "L2222"
  206.         GOTO EXITSELECT
  207. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  208. PtrRIP.RECTANGLE:
  209. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  210. '        Function:  Draw a rectangle in current color/line style
  211. '           Level:  0
  212. '         Command:  R
  213. '       Arguments:  x0:2, y0:2, x1:2, y1:2
  214. '          Format:  !|R <x0> <y0> <x1> <y1>
  215. '         Example:  !|R00010A0E
  216.         RIP "R2222"
  217.         GOTO EXITSELECT
  218. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  219. PtrRIP.BAR:
  220. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  221. '        Function:  Draw filled rectangle with fill color/pattern
  222. '           Level:  0
  223. '         Command:  B
  224. '       Arguments:  x0:2, y0:2, x1:2, y1:2
  225. '          Format:  !|B <x0> <y0> <x1> <y1>
  226. '         Example:  !|B00010A0E
  227.         RIP "B2222"
  228.         GOTO EXITSELECT
  229. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  230. PtrRIP.CIRCLE:
  231. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  232. '        Function:  Draw circle in current color and line thickness
  233. '           Level:  0
  234. '         Command:  C
  235. '       Arguments:  x.center:2, y.center:2, radius:2
  236. '          Format:  !|C <x.center> <y.center> <radius>
  237. '         Example:  !|C1E180M
  238.         RIP "C222"
  239.         GOTO EXITSELECT
  240. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  241. PtrRIP.OVAL:
  242. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  243. '        Function:  Draw elliptical arc in current color/line style
  244. '           Level:  0
  245. '         Command:  O
  246. '       Arguments:  x:2, y:2, st.ang:2, end.ang:2, x.rad:2, y.rad:2
  247. '          Format:  !|O <x> <y> <st.ang> <end.ang> <x.rad> <y.rad>
  248. '         Example:  1E1A18003G150Z
  249.         RIP "O222222"
  250.         GOTO EXITSELECT
  251. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  252. PtrRIP.FILLED.OVAL:
  253. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  254. '        Function:  Draw filled ellipse using current color/pattern
  255. '           Level:  0
  256. '         Command:  o
  257. '       Arguments:  x.center:2, y.center:2, x.rad:2, y.rad:2
  258. '          Format:  !|o <x.center> <y.center> <x.rad> <y.rad>
  259. '         Example:  !|o1G2B0M0G
  260.         RIP "o2222"
  261.         GOTO EXITSELECT
  262. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  263. PtrRIP.ARC:
  264. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  265. '        Function:  Draw circular arc in current color/line thickness
  266. '           Level:  0
  267. '         Command:  A
  268. '       Arguments:  x:2, y:2, start.ang:2, end.ang:2, radius:2
  269. '          Format:  !|A <x> <y> <start.ang> <end.ang> <radius>
  270. '         Example:  !|A1E18003G15
  271.         RIP "A22222"
  272.         GOTO EXITSELECT
  273. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  274. PtrRIP.OVAL.ARC:
  275. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  276. '        Function:  Draw an elliptical arc
  277. '           Level:  0
  278. '         Command:  V
  279. '       Arguments:  x:2, y:2, st.ang:2, e.ang:2, radx:2 rady:2
  280. '          Format:  !|V <x> <y> <st.ang> <e.ang> <radx> <rady>
  281. '         Example:  !|V1E18003G151Q
  282.         RIP "V222222"
  283.         GOTO EXITSELECT
  284. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  285. PtrRIP.PIE.SLICE:
  286. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  287. '        Function:  Draws a circular pie slice
  288. '           Level:  0
  289. '         Command:  I
  290. '       Arguments:  x:2, y:2, start.ang:2, end.ang:2, radius:2
  291. '          Format:  !|I <x> <y> <start.ang> <end.ang> <radius>
  292. '         Example:  !|I1E18003G15
  293.         RIP "I22222"
  294.         GOTO EXITSELECT
  295. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  296. PtrRIP.OVAL.PIE.SLICE:
  297. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  298. '        Function:  Draws an elliptical pie slice
  299. '           Level:  0
  300. '         Command:  i
  301. '       Arguments:  x:2, y:2, st.ang:2, e.ang:2, radx:2 rady:2
  302. '          Format:  !|i <x> <y> <st.ang> <e.ang> <radx> <rady>
  303. '         Example:  !|i1E18003G151Q
  304.         RIP "i222222"
  305.         GOTO EXITSELECT
  306. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  307. PtrRIP.BEZIER:
  308. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  309. '        Function:  Draw a bezier curve
  310. '           Level:  0
  311. '         Command:  Z
  312. '       Arguments:  x1:2 y1:2 x2:2 y2:2 x3:2 y3:2 x4:2 y4:2 cnt:2
  313. '          Format:  !|Z <x1> <y1> <x2> <y2> <x3> <y3> <x4> <y4> <cnt>
  314. '         Example:  !|Z0A0B0C0D0E0F0G0H1G
  315.         RIP "Z222222222"
  316.         GOTO EXITSELECT
  317. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  318. PtrRIP.FILL:
  319. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  320. '        Function:  Flood fill screen area with current fill settings
  321. '           Level:  0
  322. '         Command:  F
  323. '       Arguments:  x:2, y:2, border:2
  324. '          Format:  !|F <x> <y> <border>
  325. '         Example:  !|F25090F
  326.         RIP "F222"
  327.         GOTO EXITSELECT
  328. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  329. PtrRIP.LINE.STYLE:
  330. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  331. '        Function:  Defines a line style and thickness
  332. '           Level:  0
  333. '         Command:  =
  334. '       Arguments:  style:2, user.pat:4, thick:2
  335. '          Format:  !|= <style> <user.pat> <thick>
  336. '         Example:  !|=01000001
  337.         RIP "=242"
  338.         GOTO EXITSELECT
  339. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  340. PtrRIP.FILL.STYLE:
  341. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  342. '        Function:  Set current fill style (predefined) & fill color
  343. '           Level:  0
  344. '         Command:  S
  345. '       Arguments:  pattern:2, color:2
  346. '          Format:  !|S <pattern> <color>
  347. '         Example:  !|S050F
  348.         RIP "S22"
  349.         GOTO EXITSELECT
  350. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  351. PtrRIP.FILL.PATTERN:
  352. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  353. '        Function:  Set user-definable (custom) fill pattern/color
  354. '           Level:  0
  355. '         Command:  s
  356. '       Arguments:  c1:2 c2:2 c3:2 c4:2 c5:2 c6:2 c7:2 c8:2 col:2
  357. '          Format:  !|s <c1> <c2> <c3> <c4> <c5> <c6> <c7> <c8> <col>
  358. '         Example:  !|s11223344556677880F
  359.         RIP "s222222222"
  360.         GOTO EXITSELECT
  361. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  362. PtrRIP.MOUSE:
  363. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  364. '        Function:  Defines a rectangular hot mouse region
  365. '           Level:  1
  366. '         Command:  M
  367. '       Arguments:  num:2 x0:2 y0:2 x1:2 y1:2 clk:1 clr:1 res:5 text
  368. '          Format:  !|1M <num> <x0><y0><x1><y1> <clk><clr><res><text>
  369. '         Example:  !|1M00001122331100000host command^M
  370.         RIP "1M222221100000$"
  371.         GOTO EXITSELECT
  372. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  373. PtrRIP.KILL.MOUSE.FIELDS:
  374. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  375. '        Function:  Destroys all previously defined hot mouse regions
  376. '           Level:  1
  377. '         Command:  K
  378. '       Arguments:  <none>
  379. '          Format:  !|1K
  380. '         Example:  !|1K
  381.         RIP "1K"
  382.         GOTO EXITSELECT
  383. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  384. PtrRIP.BEGIN.TEXT:
  385. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  386. '        Function:  Define a rectangular text region
  387. '           Level:  1
  388. '         Command:  T
  389. '       Arguments:  x1:2, y1:2, x2:2, y2:2, res:2
  390. '          Format:  !|1T <x1> <y1> <x2> <y2> <res>
  391. '         Example:  !|1T00110011
  392.         RIP "1T222200"
  393.         GOTO EXITSELECT
  394. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  395. PtrRIP.REGION.TEXT:
  396. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  397. '        Function:  Display a line of text in rectangular text region
  398. '           Level:  1
  399. '         Command:  t
  400. '       Arguments:  justify:1 and text-string
  401. '          Format:  !|1t <justify> <text-string>
  402. '         Example:  !|1t1This is a text line to be justified
  403.         RIP "1t1$"
  404.         GOTO EXITSELECT
  405. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  406. PtrRIP.END.TEXT:
  407. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  408. '        Function:  End a rectangular text region
  409. '           Level:  1
  410. '         Command:  E
  411. '       Arguments:  <none>
  412. '          Format:  !|1E
  413. '         Example:  !|1E
  414.         RIP "1E"
  415.         GOTO EXITSELECT
  416. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  417. PtrRIP.GET.IMAGE:
  418. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  419. '        Function:  Copy rectangular image to clipboard (as icon)
  420. '           Level:  1
  421. '         Command:  C
  422. '       Arguments:  x0:2, y0:2, x1:2, y1:2, res:1
  423. '          Format:  !|1C <x0> <y0> <x1> <y1> <res>
  424. '         Example:  !|1C001122330
  425.         RIP "1C22220"
  426.         GOTO EXITSELECT
  427. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  428. PtrRIP.PUT.IMAGE:
  429. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  430. '        Function:  Pastes the clipboard contents onto the screen
  431. '           Level:  1
  432. '         Command:  P
  433. '       Arguments:  x:2, y:2, mode:2, res:1
  434. '          Format:  !|1P <x> <y> <mode> <res>
  435. '         Example:  !|1P0011010
  436.         RIP "1P2220"
  437.         GOTO EXITSELECT
  438. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  439. PtrRIP.WRITE.ICON:
  440. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  441. '        Function:  Write contents of the clipboard (icon) to disk
  442. '           Level:  1
  443. '         Command:  W
  444. '       Arguments:  res:1, filename
  445. '          Format:  !|1W <res> <filename>
  446. '         Example:  !|1W0filename.icn
  447.         RIP "1W0$"
  448.         GOTO EXITSELECT
  449. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  450. PtrRIP.LOAD.ICON:
  451. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  452. '        Function:  Loads and displays a disk-based icon to screen
  453. '           Level:  1
  454. '         Command:  I
  455. '       Arguments:  x:2, y:2, mode:2, clipboard:1, res:2, filename
  456. '          Format:  !|1I <x> <y> <mode> <clipboard> <res> <filename>
  457. '         Example:  !|1I001101010button.icn
  458.         RIP "1I222100$"
  459.         GOTO EXITSELECT
  460. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  461. PtrRIP.BUTTON.STYLE:
  462. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  463. '        Function:  Button style definition
  464. '           Level:  1
  465. '         Command:  B
  466. '       Arguments:  wid:2 hgt:2 orient:2 flags:4 size:2
  467. '                    dfore:2 dback:2 bright:2 dark:2 surface:2
  468. '                    grp.no:2 flags2:2 uline.col:2 corner.col:2
  469. '                    res:6
  470. '          Format:  !|1B <wid> <hgt> <orient> <flags>
  471. '                    <bevsize> <dfore> <dback> <bright> <dark>
  472. '                    <surface> <grp.no> <flags2> <uline.col>
  473. '                    <corner.col> <res>
  474. '         Example:  !|1B0A0A010274030F080F080700010E07000000
  475.         RIP "1B22242222222222000000"
  476.         GOTO EXITSELECT
  477. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  478. PtrRIP.BUTTON:
  479. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  480. '        Function:  Define a Mouse Button
  481. '           Level:  1
  482. '         Command:  U
  483. '       Arguments:  x0:2 y0:2 x1:2 y1:2 hotkey:2 flags:1 res:1
  484. '                    ...text
  485. '          Format:  !|1U <x0> <y0> <x1> <y1> <hotkey> <flags>
  486. '                    <res> <text>
  487. '         Example:  !|1U010100003200iconfile<>Label<>HostCmd^m
  488.         RIP "1U2222210$"
  489.         GOTO EXITSELECT
  490. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  491. PtrRIP.DEFINE:
  492. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  493. '        Function:  Define a text variable
  494. '           Level:  1
  495. '         Command:  D
  496. '       Arguments:  flags:3 res:2 ...text
  497. '          Format:  !|1D <flags> <res> <text>
  498. '         Example:  !|1D00700text.var,60:?question?default data
  499.         RIP "1D300$"
  500.         GOTO EXITSELECT
  501. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  502. PtrRIP.COPY.REGION:
  503. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  504. '        Function:  Copy screen region up/down
  505. '           Level:  1
  506. '         Command:  G
  507. '       Arguments:  x0:2 y0:2 x1:2 y1:2 res:2 dest.line:2
  508. '          Format:  !|1G <x0> <y0> <x1> <y1> <res> <dest.line>
  509. '         Example:  !|1G080G140M0005
  510.         RIP "1G2222002"
  511.         GOTO EXITSELECT
  512. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  513. PtrRIP.READ.SCENE:
  514. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  515. '        Function:  Playback local .RIP file
  516. '           Level:  1
  517. '         Command:  R
  518. '       Arguments:  res:8 filename...
  519. '          Format:  !|1R <res> <filename>
  520. '         Example:  !|1R00000000testfile.rip
  521.         RIP "1R00000000$"
  522.         GOTO EXITSELECT
  523. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  524. PtrRIP.FILE.QUERY:
  525. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  526. '        Function:  Query existing information on a particular file
  527. '           Level:  1
  528. '         Command:  F
  529. '       Arguments:  mode:2 res:4 filename...
  530. '          Format:  !|1F <mode> <res> <filename>
  531. '         Example:  !|1F010000testfile.icn
  532.         RIP "1F20000$"
  533.         GOTO EXITSELECT
  534. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  535. PtrRIP.NO.MORE:
  536. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  537. '        Function:  End of RIPscrip Scene
  538. '           Level:  0
  539. '         Command:  #
  540. '       Arguments:  <none>
  541. '          Format:  !|#
  542. '         Example:  !|#
  543.         RIP "#"
  544.         GOTO EXITSELECT
  545. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  546. PtrRIP.QUERY:
  547. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  548. '        Function:  Query the contents of a text variable
  549. '           Level:  1
  550. '         Command:  <escape>
  551. '       Arguments:  mode:1 res:3 ...text
  552. '          Format:  !|1<escape> <mode> <res> <text>
  553. '         Example:  !|1<escape>0000this is a query $COMMAND$^m
  554.         RIP "1"+chr$(27)+"10000$"
  555.         GOTO EXITSELECT
  556. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  557. PtrRIP.ENTER.BLOCK.MODE:
  558. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  559. '        Function:  Enter block transfer mode with host
  560. '           Level:  9 (system command)
  561. '         Command:  <escape>
  562. '       Arguments:  mode:1 proto:1 file.type:2 res:4
  563. '                    [filename:2] <>
  564. '          Format:  !|9<escape> <proto> <file.type> <res>
  565. '                    [filename] <>
  566. '         Example:  !|9<escape>00010000ICONFILE.ICN<>
  567.         RIP "9"+CHR$(27)+"1120000$<>"
  568.         GOTO EXITSELECT
  569.  
  570.  
  571. ' THESE REMAINING FUNCTIONS WILL HAVE TO BE TREATED A BIT DIFFERENTLY
  572. ' (I'll do this later)
  573. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  574. PtrRIP.POLYGON:
  575. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  576. '        Function:  Draw polygon in current color/line-style
  577. '           Level:  0
  578. '         Command:  P
  579. '       Arguments:  npoints:2, x1:2, y1:2, ... xn:2, yn:2
  580. '          Format:  !|P <npoints> <x1> <y1> ... <xn> <yn>
  581. '         Example:  !|P03010105090905
  582. '        RIP "P"
  583.         GOTO EXITSELECT
  584. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  585. PtrRIP.FILL.POLYGON:
  586. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  587. '        Function:  Draw filled polygon in current color/fill pattern
  588. '           Level:  0
  589. '         Command:  p
  590. '       Arguments:  npoints:2, x1:2, y1:2, ... xn:2, yn:2
  591. '          Format:  !|p <npoints> <x1> <y1> ... <xn> <yn>
  592. '         Example:  !|p03010105050909
  593. '        RIP "p"
  594.         GOTO EXITSELECT
  595. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  596. PtrRIP.POLYLINE:
  597. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  598. '        Function:  Draw a Poly-Line (multi-faceted line)
  599. '           Level:  0
  600. '         Command:  l
  601. '       Arguments:  npoints:2, x1:2, y1:2, ... xn:2, yn:2
  602. '          Format:  !|l <npoints> <x1> <y1> ... <xn> <yn>
  603. '         Example:  !|l03010105090905
  604. '        RIP "4"
  605.         GOTO EXITSELECT
  606.  
  607. $ENDIF