home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SCRNFRMT.ZIP / SCRNFRMT.COM (.txt)
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1989-03-20  |  26.5 KB  |  186 lines
  1. Copyright (C) 1984 BORLAND Inc
  2. ADM 3Ae 1al selectedP
  3. ^#V#N#F
  4. s#r#q#p
  5.     #^#V
  6. 9^#Vh&
  7. |/g}/o#
  8. T]=o`9y
  9. T9^K#
  10. 8/<oz
  11. T9^K#
  12. oGOW_g
  13. `1pF,
  14. w###6
  15. ##N#F*
  16. Nw#Fw
  17. q#p#6
  18. #w#w#w
  19. TRUEFALSE
  20.     N#F#s#r
  21. N#F#^#V
  22. " C}=(
  23. F+N+++V+^
  24. q#p##
  25. User break
  26. Run-time
  27.  error 
  28. , PC=
  29. Program aborted
  30.     --Exists!
  31.   Do You want to overwrite it?
  32.   Press Y es or N o.
  33. P                Screen Formatter Edit Commands                                  
  34. P    The edit commands for the main menu are based on similar Turbo Pascal*      
  35. P    edit commands. They are as follows:                                         
  36. P    ^A -----   Moves the cursor back to the previous menu selection.            
  37. P    ^F -----   Moves the cursor to the next menu selection.                     
  38. P    ^T -----   Erases the current menu selection.                               
  39. P    ^S -----   Moves the cursor at the current menu selection to the            
  40. P               previous character posistion.                                    
  41. P    ^D -----   Moves the cursor at the current menu selection to the next       
  42. P               character posistion.                                             
  43. P    ^G -----   Deletes the character at the current posistion of the cursor.    
  44. P    ^Q -----   Terminates data entery into the menu and starts the program.     
  45. P    ESC ----   Terminates the program from the main menu.                       
  46. P*Turbo Pascal is a registered trade mark of BORLAND INTERNATIONAL               
  47. P                Screen Formatter User Index Edit Commands                       
  48. P    The edit commands for the User Index program are based on similar           
  49. P    Turbo Pascal* edit commands. They are as follows:                           
  50. P    ^A -----   Moves the cursor back to the previous Input posistion.           
  51. P    ^F -----   Moves the cursor to the next Input posistion.                    
  52. P    ^T -----   Erases the current Input posistion value.                        
  53. P    ^Q -----   Terminates data entery into the User Index program.              
  54. P    ESC ----   Returns the program to the main menu.                            
  55. P*Turbo Pascal is a registered trade mark of BORLAND INTERNATIONAL               
  56. P                     Screen File Name Help!                                     
  57. P    This is the name of the file that you created with the Turbo Pascal*        
  58. Peditor. The file should be stored on a diskette currently in one of your        
  59. Psystem disk drives. The file name should follow standard operating system       
  60. Pconventions. A limit of fourteen characters is allowed by the program.          
  61. P    The individule lines should not exceed eighty characters. Also the number   
  62. Pof lines should not exceed twenty_three. The screen formatter program will      
  63. Pignore data outside of these bouderies.                                         
  64. P    Several characters have been selected as input location markers. These      
  65. Pmarkers should be placed just below the input posistions. For example:          
  66. P               Patient ID #                    .                                
  67. P                           --------------------                                 
  68. P     The folowing characters are valid location markers: "_", "-",and "|".      
  69. PThese markers can be mixed in any combination to mark locations for             
  70. Pinput. Also these characters can be used in the text of the screen but they     
  71. Pwill result in false input locations that you will have to remove from          
  72. Pthe typed constant array file that you generate.                                
  73. P                      Type File Name Help!                                      
  74. P    This is a name that you will be assigning to the disk file that con-        
  75. Ptains the type constant array, that was generated on the processed screen file. 
  76. PThe only restrictions are that you follow standard operating system conven-     
  77. Ptions.                                                                          
  78. P    The typed constant array can be used by you to generate the code necessary  
  79. Pto read input data from screens similar to the input screen used by this        
  80. Pprogram.                                                                        
  81. Q    For an example process the file stored on this disk called NCOMSCRN.PAS.     
  82. PThen view the file that was created.                                            
  83. P                     Procedure File Name Help!                                  
  84. P    This is a name that you will be assigning to the disk file that con-        
  85. Ptains the proceduralized screen from the processed screen file. The only        
  86. Prestrictions are that you follow standard operating system conventions.         
  87. P    The procedure stored in this file contains the necessary code to write      
  88. Pthe screen image under program control. This procedure can be included in       
  89. Pany program using the Turbo Pascal* language.                                   
  90. Q    For an example process the file stored on this disk called NCOMSCRN.PAS.     
  91. PThen view the created procedure file.                                           
  92. P* Turbo Pascal is a registered trademark of BORLAND INTERNATIONAL Inc.          
  93. P                            Index help!                                         
  94. P    The three options allow you to chose how data inputs will be ordered. The   
  95. Pfirst option, L>R / T>B, indicates that data inputs will be read from left to   
  96. Pright then top to bottom.                                                       
  97. Pie.   Name:Sandy (1)                Weight:190 (2)                              
  98. P           -----                           ___                                  
  99. P      Country:USA (3)                                                           
  100. P              ---                                                               
  101. PThe second option, T>B / L>R, indicates that data                               
  102. Pinputs will be read from top to bottom then left to right.                      
  103. Pie.    Name:Sandy (1)              Weight:190 (3)                               
  104. P            -----                         ---                                   
  105. P       Country:USA (2)                                                          
  106. P               ---                                                              
  107. PThe third option allows you to index data inputs in any order that you chose.   
  108. Pie     Name:Sandy (2)             Weight:190 (1)                                
  109. P            -----                        ---                                    
  110. P       Country:USA (3)                                                          
  111. P               ---                                                              
  112. PTo make your selection enter a "x" in the appropriate box!                      
  113. P                 Typed Constant Array Name Help!                                
  114. P    This is a name that will be assigned to the typed constant array, that      
  115. Pwas created from the screen file you generated using the Turbo Pascal*          
  116. Peditor. The array name must follow the standard conventions of Turbo Pascal*    
  117. Pin regards to identifiers. The only restriction by this program is that the     
  118. Pname can not exceed a length of fifty characters.                               
  119. P* Turbo Pascal is a Registered Trademark of BORLAND INTERNATIONAL Inc.          
  120. P                      Procedure Name Help!                                      
  121. P    This is a name that will be assigned to the procedure, that was created     
  122. Pfrom the screen file you generated using the Turbo Pascal* editor. The          
  123. Pprocedure name must follow the standard conventions of Turo Pascal* in regards  
  124. Pto identifiers. The only restriction by this program is that the name can       
  125. Pnot exceed a length of fifty characters.                                        
  126. P* Turbo Pascal is a Registered Trademark of BORLAND INTERNATIONAL Inc.          
  127. Press any key to continue.
  128. +)]T)
  129. +)]T)
  130. +)]T)
  131. +)]T)
  132. +)]T)
  133. P                   Screen   Formatter    Program                                
  134. P      INPUTS                               OUPUTS                               
  135. P      ======                               ======                               
  136. PScreen File Name:                Screen Procedure File Name:                    
  137. P                 --------------                              ______________     
  138. P                                 Typed Constant Array File Name:                
  139. P                                                                 -------------- 
  140. P******************************************************************************  
  141. P* Input Locations Read:   L>R/T>B [ ]  or  T>B/L>R [ ]  or  User Indexed [ ] *  
  142. P*                                  -                -                     -  *  
  143. P******************************************************************************  
  144. PTyped Constant Array Name:                                                      
  145. P                          --------------------------------------------------    
  146. P    Screen Procedure Name:                                                      
  147. P                          --------------------------------------------------    
  148. QA "?" responce for any of these prompts will bring help!                         
  149. Unable to locate ---!
  150.   Press any Key to continue.
  151. s#r*W
  152. s#r*>
  153. 3User Index option_Enter the Index # for each input.
  154. s#r*(
  155. ^P                                                                                
  156. procedure        !F
  157. begin
  158. ClrScr;
  159.      write
  160.      Location = array[1..*m
  161. ,1..3] of integer;
  162. const
  163.      !
  164.  : Location = (
  165.           !(
  166.           
  167. P                CARE-WARE  *  604 BAXTER ST.  *  CHAMPLIN, MN 55316             
  168. P                        SCREEN FORMATTER (c)   VER. 1.0                         
  169. P     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  170. P          This program was designed to aid the program developer, in the design 
  171. P     of user input and output screens. Up to 50 input/output fields per screen  
  172. P     are allowed. Screen Formatter was designed to be used with the most popular
  173. P     implementation of the Pascal language available today; TURBO Pascal* !     
  174. P          If you find this program to be a valuable aid to your software        
  175. P     enviroment please send a ten dollar ($10.00) donation to:                  
  176. P                  WORLD VISION                                                  
  177. P                  Box O                                                         
  178. P                  Pasadena, CA 91109                                            
  179. P          Please give a copy of this program to a friend!                       
  180. P     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  
  181. P     *Turbo Pascal is a trademark of Borland International.                     
  182. P     Screen Formatter is copyrighted and is placed in the public domain by for  
  183. P     general use by Care-Ware. No waranty is implied nor is this product        
  184. P     supported.                                                                 
  185. $Screen Formatter Program -- Working!
  186.