home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
brokcode.zip
/
MEMOEDIT.EXE
/
MEMO1.CLA
< prev
next >
Wrap
Text File
|
1991-12-05
|
3KB
|
68 lines
MEMBER('MEMO')
MAIN PROCEDURE
SCREEN SCREEN WINDOW(23,74),PRE(SCR),HUE(15,1)
ROW(1,1) PAINT(12,20),TRN
ROW(1,55) PAINT(12,20),TRN
ROW(12,21) PAINT(1,34),TRN
ROW(13,1) PAINT(11,74),HUE(11,0)
ROW(1,21) STRING('┌─{32}┐')
ROW(2,21) REPEAT(9);STRING('│<0{32}>│') .
ROW(11,21) STRING('└─{32}┘')
ROW(13,1) STRING('┌─{72}┐')
ROW(14,1) REPEAT(9);STRING('│<0{72}>│') .
ROW(23,1) STRING('└─{72}┘')
ROW(2,23) STRING('Bobcat Systems'' PD Memo Editor')
ROW(14,8) STRING('This program tests the memo editing ' |
& 'functions of MEMOEDIT.CLA')
ROW(16,16) STRING('Any and all comments and suggestions ' |
& 'welcome!')
ROW(18,25) STRING('Written By: Bobcat Systems')
ROW(19,37) STRING('PO Box 1195')
ROW(20,37) STRING('Ossining, NY 10562')
ROW(21,37) STRING('(914)-762-3474')
ROW(22,37) STRING('CIS: [70441,204]')
DATE ROW(4,34) STRING(@D1),HUE(11,1)
ROW(6,42) ENTRY,USE(?FIRST_FIELD)
COL(42) ENTRY,USE(?PRE_MENU)
COL(42) MENU,USE(MENU_FIELD"),REQ
ROW(7,31) STRING(' Edit a Record '),HUE(15,1)
ROW(9,35) STRING(' Exit '),HUE(15,1)
. .
EJECT
CODE
OPEN(SCREEN) !OPEN THE MENU SCREEN
SETCURSOR !TURN OFF ANY CURSOR
MENU_FIELD" = '' !START MENU WITH FIRST ITEM
LOOP !LOOP UNTIL USER EXITS
SCR:DATE = TODAY()
ALERT !TURN OFF ALL ALERTED KEYS
ALERT(REJECT_KEY) !ALERT SCREEN REJECT KEY
ALERT(ACCEPT_KEY) !ALERT SCREEN ACCEPT KEY
ACCEPT !READ A FIELD OR MENU CHOICE
IF KEYCODE() = REJECT_KEY THEN RETURN. !RETURN ON SCREEN REJECT
IF KEYCODE() = ACCEPT_KEY !ON SCREEN ACCEPT KEY
UPDATE ! MOVE ALL FIELDS FROM SCREEN
SELECT(?) ! START WITH CURRENT FIELD
SELECT ! EDIT ALL FIELDS
CYCLE ! GO TO TOP OF LOOP
. !
CASE FIELD() !JUMP TO FIELD EDIT ROUTINE
OF ?FIRST_FIELD !FROM THE FIRST FIELD
IF KEYCODE() = ESC_KEY THEN RETURN. ! RETURN ON ESC KEY
OF ?PRE_MENU !PRE MENU FIELD CONDITION
IF KEYCODE() = ESC_KEY ! BACKING UP?
SELECT(?-1) ! SELECT PREVIOUS FIELD
ELSE ! GOING FORWARD
SELECT(?+1) ! SELECT MENU FIELD
.
OF ?MENU_FIELD" !FROM THE MENU FIELD
EXECUTE CHOICE() ! CALL THE SELECTED PROCEDURE
SHO_Name ! Show Memotest By Name
RETURN
. . .