home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / APL90 / APL_PROGS / TRANSFERT < prev    next >
Encoding:
Text File  |  1987-02-17  |  1.1 KB  |  48 lines  |  [TEXT/APL9]
  1.  
  2. æ  87 2 17 16 43 14  TRANSFERT
  3.  
  4.  
  5.  
  6.     ã DESCRIBE
  7. [1]   éThis workspace can be used to create files containingé
  8. [2]   é   the character representation of user definedé
  9. [3]   é   functions and operators.é
  10. [4]   éUse the following procedure :é
  11. [5]   éé
  12. [6]   é    )LOAD "the workspace you want to transfert"é
  13. [7]   é    )COPY the function W_Lé
  14. [8]   é    )OUTPUT XXXé
  15. [9]   é    W_Lé
  16. [10]  é    )OUTPUTé
  17. [11]  é    )INPUT XXXé
  18. [12]  éé
  19. [13]  éThis will create a Macintosh file named after the WSIDé
  20. [14]  é   (or "APLTMP" in the case of a clear workspace).é
  21. [15]  éé
  22. [16]  éThis file can later be read with the command :é
  23. [17]  é   )INPUT "the file name or è"é
  24. [18]  éor, if you don't want to display its content,é
  25. [19]  é   )INPUT "the file name or è"  -NODISPé
  26.     ã 
  27.  
  28.  
  29.  
  30.     ã W_L;W_1
  31. [1]   ∫(0=ÇèWSID)/éèWSIDóééAPLTMPééé
  32. [2]   é)OUTPUT é,èWSID
  33. [3]   éééæ  éé,(ªèTS),éé  éé,èWSIDé
  34. [4]   W_1óèNL 3 4
  35. [5]   W_1ó(W_1[;èIO+0 1]°.†éW_é)´W_1
  36. [6]  W_9: ò(0=1ÇÇW_1)/W_7
  37. [7]   ò(0ÅÇèCR W_1[èIO;])/W_6
  38. [8]   éééééé
  39. [9]   éãé,W_1[èIO;],é[è]ãé
  40. [10] W_6: W_1ó1 0ÑW_1
  41. [11]  òW_9
  42. [12] W_7: éééééé
  43. [13]  é)OUTPUTé
  44.     ã 
  45.  
  46.  
  47.  
  48.