home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pgxos / mp2txt.cmd < prev    next >
OS/2 REXX Batch file  |  2006-10-19  |  3KB  |  85 lines
  1.       MP2TXT.CO (c) 1990
  2.       Copyright by Paul Globman
  3.       -------------------------
  4.  
  5. MP2TXT is a "MSPLAN to TEXT" utility that directs the printer output to a
  6. routine that writes to a TEXT file.  MSPLAN does not offer an option to save
  7. a spreadsheet to a TEXT file for further editing/merging with other documents.
  8.  
  9. Operating parameters
  10. --------------------
  11. 1) This utility is written for XOS-C users.  XBASIC.CO must be in bank #3.
  12.  
  13. 2) Your MSPLAN spreadsheet cannot be in bank #2.
  14.  
  15. 3) The output file will be in bank #2 and is called LPT.DO.
  16.  
  17. 4) You may run MP2TXT.CO cross bank via F3, or cursor select it.
  18.  
  19.  
  20. MP2TXT.CO will prompt you for the MSPLAN file name, and you will then be in
  21. MSPLAN.  When you press PRINT or SHIFT PRINT, the data is diverted from the
  22. printer port and appended to the LPT.DO file in bank #2.  Succesive print
  23. operations will collect in one file, and will be separated by a ^L (printer
  24. form feed) at the end of each spreadsheet.
  25.  
  26. When you exit MSPLAN and return to the menu, printed material is once again directed to the printer port.
  27.  
  28.  
  29. Errors
  30. ------
  31. If XBASIC is not in bank #3, then MP2TXT will not operate and you are returned
  32. to the menu.  If you run out of RAM in bank #2, your spreadsheet will not be
  33. fully printed, but you will not corrupt other files or crash the Tandy 200.
  34.  
  35. If entering MSPLAN via MP2TXT causes the "Bad file format" message, you may
  36. ignore the message and enter the name of your spreadsheet.
  37.  
  38. XOS-C does NOT cross load the actual MSPLAN files.  You may cross load
  39. MP2TXT.CO by storing it in bank #3 and calling it from bank #1, where the
  40. spreadsheet file is located.
  41.  
  42.  
  43. WARNING
  44. -------
  45. Do not use without XOS-C installed.
  46.  
  47.  
  48. 1 '************************
  49. 2 '*  MP2TXT.CO           *
  50. 3 '*    by Paul Globman   *
  51. 4 '*  Copyright (c) 1990  *
  52. 5 '************************
  53. 10 FOR I = 65362 TO 65535 
  54. 20 READ X:POKE I,X:SM=SM+X
  55. 30 NEXT
  56. 40 IF SM = 22381 THEN 60
  57. 50 PRINT"error in data":STOP
  58. 60 SAVEM"MP2TXT.CO",65362,65535,65362
  59. 1000 DATA 33,198,255,34,61,245,33
  60. 1010 DATA 132,255,34,19,245,205,219
  61. 1020 DATA 160,33,242,255,62,8,205
  62. 1030 DATA 112,248,58,119,239,167,194
  63. 1040 DATA 198,255,33,168,156,34,87
  64. 1050 DATA 249,34,201,248,33,234,255
  65. 1060 DATA 62,2,205,112,248,195,153
  66. 1070 DATA 108,229,213,197,245,33,213
  67. 1080 DATA 255,119,35,34,137,255,58
  68. 1090 DATA 210,255,60,50,210,255,241
  69. 1100 DATA 254,10,202,175,255,254,13
  70. 1110 DATA 194,167,255,62,10,195,135
  71. 1120 DATA 255,58,210,255,254,19,218
  72. 1130 DATA 193,255,33,210,255,62,4
  73. 1140 DATA 205,112,248,175,50,210,255
  74. 1150 DATA 33,213,255,34,137,255,193
  75. 1160 DATA 209,225,241,201,33,168,156
  76. 1170 DATA 34,61,245,34,19,245,195
  77. 1180 DATA 164,103,0,213,255,0,0
  78. 1190 DATA 0,0,0,0,0,0,0
  79. 1200 DATA 0,0,0,0,0,0,0
  80. 1210 DATA 0,0,0,0,0,5,237
  81. 1220 DATA 255,50,58,76,80,84,11
  82. 1230 DATA 245,255,51,58,88,66,65
  83. 1240 DATA 83,73,67,46,67,79
  84. 1250 REM       END OF DATA
  85.