96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
43 lines
1.2 KiB
Plaintext
43 lines
1.2 KiB
Plaintext
#require "hbnf"
|
|
|
|
#include "inkey.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL nSickHrs := 0
|
|
LOCAL nPersHrs := 0
|
|
LOCAL nVacaHrs := 0
|
|
LOCAL GetList := {}
|
|
|
|
SET SCOREBOARD OFF
|
|
CLS
|
|
|
|
SetKey( K_ALT_A, {|| ft_Adder() } ) // Make <ALT-A> call FT_Adder
|
|
|
|
// SIMPLE Sample of program data entry!
|
|
|
|
@ 12, 5 SAY "Please enter the total Sick, Personal, and Vacation hours."
|
|
@ 15, 22 SAY "Sick hrs."
|
|
@ 15, 40 SAY "Pers. hrs."
|
|
@ 15, 60 SAY "Vaca. hrs."
|
|
@ 23, 20 SAY "Press <ALT-A> to Pop - Up the Adder."
|
|
@ 24, 20 SAY "Press <ESC> to Quit the adder Demo."
|
|
DO WHILE .T. // Get the sick, personal, and vaca
|
|
@ 16, 24 GET nSickHrs PICTURE "9999.999" // Normally I have a VALID()
|
|
@ 16, 43 GET nPersHrs PICTURE "9999.999" // to make sure the value is
|
|
@ 16, 63 GET nVacaHrs PICTURE "9999.999" // within the allowable range.
|
|
SET CURSOR ON // But, like I said it is a
|
|
CLEAR TYPEAHEAD // SIMPLE example <g>.
|
|
READ
|
|
SET CURSOR OFF
|
|
IF LastKey() == K_ESC // <ESC> - ABORT
|
|
CLEAR TYPEAHEAD
|
|
EXIT
|
|
ENDIF
|
|
ENDDO
|
|
SET CURSOR ON
|
|
|
|
SET KEY K_ALT_A // Reset <ALT-A>
|
|
|
|
RETURN
|