Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : PTOFSALE.ZIP
Filename : GET_OPTN.PRG

 
Output of file : GET_OPTN.PRG contained in archive : PTOFSALE.ZIP

*:*********************************************************************
*:
*: Program: GET_OPTN.PRG
*:
*: System: RIALTO CINEMA VIDEO P.O.S. PROGRAM
*: Author: SCOTT BAXTER
*: Copyright (c) 1988, SCOTT BAXTER
*: Last modified: 10/20/88 14:08
*:
*: Called by: TESTRENT.PRG
*: : SELLEM.PRG
*:
*: Documented: 11/09/88 at 17:28 SNAP! version 3.00
*:*********************************************************************
oldwin=WSELECT()
WSET FRAME ON
WSET WINDOW optn TO 15,10,15,70 COLOR n/W, W+/n, W*/n
WSELECT 20
WUSE optn TITLE 'ONLY press PGUP, PGDN, HOME, or END to move window'
char=''
DO WHILE .NOT. char $ choices
CALL curon
char = choice
@ 0,0 SAY MESSAGE GET char PICT '!'
READ
CALL curoff
DO CASE
CASE READKEY()=6
char=CHR(178)
WMOVE TO 1,18
CASE READKEY()=7
char=CHR(178)
WMOVE TO 22,18
CASE READKEY()=2
char=CHR(178)
WMOVE TO 1,2
CASE READKEY()=3
char=CHR(178)
WMOVE TO 22,2
OTHERWISE
IF READKEY()=15.OR.READKEY()=271
char=char
ELSE
char=CHR(178)
ENDI
ENDC
ENDDO
WSET FRAME OFF
CALL curoff
choice = char
WSELECT oldwin
WCLO 20
RETURN

*: EOF: GET_OPTN.PRG