home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Graphics / PerfectPaint / rexx / bridge / TextPreview.rx < prev    next >
Text File  |  1999-08-16  |  1KB  |  46 lines
  1. /*
  2.     PerfectPaint Script
  3.     Make text Preview
  4. */
  5.  
  6. name="ram:script"
  7. path='perfectpaint:rexx/text'
  8.     
  9. ADDRESS COMMAND 'List >'||name||' '||path||' PAT=#?.rx NOHEAD LFORMAT="%s"'
  10. ADDRESS COMMAND 'Sort 'name' 'name'.s'
  11.  
  12. i=0
  13. IF OPEN('listfile',name'.s') THEN DO
  14.     DO FOREVER
  15.         fline = READLN('listfile')
  16.         IF EOF('listfile') THEN BREAK
  17.         i=i+1
  18.         nom.i=fline
  19.     END
  20.     CALL CLOSE('listfile')
  21. END
  22.  
  23. file='T:HELP.guide'
  24. CALL OPEN(out,file,write)
  25.  
  26. CALL WRITELN(out,"@DATABASE HELP.guide")
  27. CALL WRITELN(out,'@NODE "Main" "Help"')
  28. CALL WRITELN(out,' ')
  29. CALL WRITELN(out,'   @{B}Select a script@{UB}')
  30. CALL WRITELN(out,' ')
  31. CALL WRITELN(out,"__________________________________________________________________________")
  32. CALL WRITELN(out,"@{FG SHINE}¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯@{FG TEXT}")
  33. do j=1 to i
  34.     data2= LEFT(nom.j, LENGTH(nom.j) - 3)||'.iff'
  35.     data='@{" '||nom.j||' "  link "perfectpaint:rexx/text/preview/'||data2||'/Main" 0}'
  36.     CALL WRITELN(out,data)
  37. end
  38. CALL WRITELN(out,"__________________________________________________________________________")
  39. CALL WRITELN(out,"@{FG SHINE}¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯@{FG TEXT}")
  40.  
  41. CALL WRITELN(out,"@ENDNODE")
  42.  
  43. CALL CLOSE(out)
  44.  
  45. ADDRESS COMMAND    'delete >nil: ram:script'
  46. ADDRESS COMMAND    'delete >nil: ram:script.s'