home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / pascal / 7477 < prev    next >
Encoding:
Internet Message Format  |  1992-12-15  |  2.1 KB
  1. Path: sparky!uunet!europa.asd.contel.com!emory!ogicse!usenet.coe.montana.edu!icsu0237
  2. From: icsu0237@cs.montana.edu (Jeff Patterson)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: need help with 'boss key'/screen blank
  5. Message-ID: <1992Dec15.102324.1063@coe.montana.edu>
  6. Date: 15 Dec 92 10:23:24 GMT
  7. Article-I.D.: coe.1992Dec15.102324.1063
  8. References: <Bz9tor.8sq@javelin.sim.es.com>
  9. Sender: usenet@coe.montana.edu (USENET News System)
  10. Organization: Montana State University, Dept. of Computer Science, Bozeman MT 59717
  11. Lines: 44
  12.  
  13. In article <Bz9tor.8sq@javelin.sim.es.com> tpehrson@javelin.sim.es.com writes:
  14. >could someone please tell me an easy way to blank a text screen and grab it
  15. >back to serve as a 'boss key'?  i'm wondering if i can do some memory
  16. >fancy-footing so that i can stuff it / pull it and not have to redraw.
  17. >
  18. >responses anticipated with gratitude.
  19. >
  20.  
  21. I too had this problem.  It's not as difficult as you might think...
  22. A simple and effective way to do this is to define a type at start:
  23.  
  24.     type
  25.       screentype:array[80,25] of word;
  26.  
  27. and then to define two variables as follows
  28.  
  29.     var
  30.       screen:screentype absolute $B800:0000; {address of text page}
  31.       screencopy:screentype;
  32.  
  33. The address should be the same on your computer.  If not, see if you can find
  34. it in a tech man.
  35.  
  36. Anyway, what has been created is a variable called screen which always has in it
  37. what is currently on the monitor, and a copy of this variable called screencopy.
  38. When the "boss key" condition is met, simply include the following command:
  39.  
  40.     screencopy:=screen;
  41.  
  42. then write whatever you feel is a good "boss key" front (a C:\ or something)
  43. When you want to toggle back, simply type:
  44.  
  45.     screen:=screencopy;
  46.  
  47. and BLAM!, you have what you originally had.  Hope that this can help somehow...
  48.  
  49.             Hope I could help out,
  50.                  - Jeff
  51.  
  52. -- 
  53. ================================================================================
  54. Jeff Patterson   CS Department  || "We are the keepers of the sacred words..."
  55. icsu0237@caesar.cs.montana.edu  ||            - Head Knight who says "NEEEGH!"
  56. ================================================================================
  57.