** Last revision: June 14, 1986 at 14:11 * * A demo program for SAVEREST.BIN by: H.M. Van Tassell * CLEAR SET TALK OFF * filler = REPLICATE("°",80) * * Load the binary file into dBASEIII ver 1.2 or later LOAD SaveRest * Syntax: CALL SaveRest WITH "S" or "R" * TEXT A demo program for the use of SAVEREST.BIN to save and then restore the screen. The screen will be first painted with a solid design then a window will be put on screen and then the original screen will be restored ENDTEXT ? WAIT CLEAR * I = 0 DO WHILE I < 8 @ 00+i,0 SAY filler @ 12-i,0 SAY filler @ 13+i,0 SAY filler @ 24-i,0 SAY filler I = I + 1 ENDDO CALL SaveRest WITH "S" * @ 24,30 SAY " Press any key... " key = 0 DO WHILE key = 0 key = INKEY() ENDDO @ 24,00 * @ 8,20 TO 16,40 DOUBLE @ 9,21 CLEAR TO 15,39 @ 11,23 SAY "Gosh, a window" @ 19,40 TO 21,59 @ 20,41 SAY " Press any key... " * key = 0 I = 9999 DO WHILE key = 0 .AND. I > 999 @ 13,27 SAY STR(I,4) key = INKEY() I = I - 1 ENDDO * CALL SaveRest WITH "R" * @ 24,30 SAY " Press any key... " key = 0 DO WHILE key = 0 key = INKEY() ENDDO @ 24,00 *