home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / laser / screen2.arc / SCREEN.ASC next >
Text File  |  1988-10-03  |  3KB  |  59 lines
  1. land                                ;  switch to landscape mode
  2. font re10                           ;  choose a font
  3. char 35, 65                         ;  adjust character size for paper
  4.                                     ;    Char is 35 dots wide, 65 high
  5.  
  6. block  8, 2, 88, 4                  ;  define the text window for heading
  7. placetext uc                        ;  Place text in upper center
  8. text /Screen Layout Form/           ;  insert text
  9. placetext ll                        ;  place text in lower left of window
  10. text /Application:/                 ;  insert text
  11. placetext lr                        ;  place text in lower right of window
  12. text /Page ___ of ___/              ;  insert text
  13. placetext cc                        ;  change default to center all text
  14.  
  15. bold 6                              ;  set line thickness to 6 dots
  16. box  8,  7, 88, 32                  ;  draw a box for the border
  17. rule h3
  18. bold 1                              ;  set line thickness to 1 dot
  19. duphorizontal  8,  8, 80, 24, 1     ;  draw 24 horizontal lines, incr by 1
  20. dupvertical    8,  7, 25, 80, 1     ;  draw 80 vertical lines, incr by 1
  21. bold 4                              ;  set line thickness to 4 dots
  22. dupvertical   18,  7, 25, 7, 10     ;  draw 7 vertical lines, incr by 10
  23. duphorizontal  8, 12, 80, 4, 5      ;  draw 4 horizontal lines, incr by 5
  24. bold 3                              ;  set line thickness to 3 dots
  25. dupvertical   13,  7, 25, 8, 10     ;  draw 8 vertical lines, incr by 10
  26. rule s
  27.  
  28. setgray 10                          ;  set a 10% gray screen fill
  29.  
  30. storearray /0 - 9/10 - 19/20 - 29/30 - 39/40 - 49/50 - 59/60 - 69/70 - 79/
  31.                                     ;  fill the text array buffer
  32. dupprocedure 8 10 0                 ;  draw 8 boxes
  33.   box  8,  5, 18,  7                ;  draw a box for column heading
  34.   list +1 1                         ;  insert one line of text
  35. dupend                              ;  end the duplicated routine
  36.  
  37. bufclear                            ;  reset the array buffer
  38. storearray ///0/-/4/5/-/9/10/-/14/15/-/19/20/-/24/
  39. ;
  40. ; The above command has two null entries inserted into the text array
  41. ; buffer.  This was done to allow the use of the dupprocedure.  The list
  42. ; command, when used with the plus, increments before referencing the
  43. ; text.  Since we need to increment by three (+3), the list command
  44. ; starts with the third entry (0 + 3).
  45.  
  46. dupprocedure 5 0 5
  47.   box  4,  7,  8, 12                ;  draw a box for row headings
  48.   list +3 3                         ;  insert three lines of text
  49. dupend                              ;  end the duplicated routine
  50. setclear                            ;  set fill pattern to clear
  51.  
  52. block  7, 33, 88, 35                ;
  53. text /This form was created with FormSet Version 2, the forms compiler from/Orbit Enterprises, Inc. (312) 469-3405/
  54.  
  55. place cl
  56. raster orbiten1.ras
  57.  
  58. print                               ;  print the form
  59.