Liren Large Software Subsidy 5/05.iso/a/a070/3.ddi/FOXPRO/SAMPLE/REPORTER.PRG

Text File | 1989-11-07 | 1.3 KB | 39 lines

* ┌─────────────────────────────────────────────────────────────────────┐ *
* │  PROG NAME: REPORTER.PRG  Problems & Suggestions Box                │ *
* │  Copyright (c) 1989 Tech III, Inc. All rights reserved.             │ *
* │  Tech III of San Pedro, California      [phone].             │ *
* │  "The bridge connecting people and technology."(tm)                 │ *
* └─────────────────────────────────────────────────────────────────────┘ *
DEFINE WINDOW lmsg FROM 01,00 TO 05,79 ZOOM CLOSE COLOR SCHEME 7
ACTIVATE WINDOW lmsg
SELECT 0
USE system
LOCATE FOR LABEL = 'LETTER'
@ 00,01 SAY 'Write Tech III a letter.  Tell us about your suggestions for making'
@ 01,01 SAY 'PRO-DEMO a better product.  Report any problems you have discovered.'
@ 02,01 SAY 'Thanks for your help!  [CONTROL W] or click top left when finished.'
DEFINE WINDOW reporter FROM 06,00 TO 22,79 CLOSE ZOOM GROW FLOAT COLOR SCHEME 3
SET WINDOW OF MEMO TO reporter
MODIFY MEMO contents
IF YESNO('The next step is to print the letter.')
  SET CONSOLE OFF
  SET PRINT ON
  FOR x = 1 TO MEMLINES(contents)
    ? MLINE(contents,x)
  ENDFOR
  EJECT
  SET CONSOLE ON
  SET PRINT OFF
  SET DEVICE TO SCREEN
ENDIF
* housekeeping
SELECT system
USE
SET WINDOW OF MEMO TO
RELEASE WINDOW lmsg
RELEASE WINDOW reporter
ACTIVATE SCREEN
SELECT invoice
RETURN
* eof