Cronk
Registered User.
- Local time
- Tomorrow, 08:07
- Joined
- Jul 4, 2013
- Messages
- 2,789
Just browsing through some archives. Anyone know what program was used for the following snippet of code ?
Code:
* POUND_IN
* Program for in/out management of dogs at pound
*
* Modifications
* (1) Nov 1992 to include POPUP menu for impound code and transaction processing
* (2) Jul 1993 to include new POUND.DBF field SUBURB
* (3) Oct 1993 Phone numbers format changed for characters instead of numbers
* (4) Nov 1993 Modified subsequent to STILL_HELD being made a character field
* (5) May 1994 Cancel registration for registered dog booked in dead
* (6) Nov 1994 Phone numbers field length increased to 10 characters
* (7) Dec 1994 Stats added ie REVENUES to record no of dogs booked in
* Called from PNDMENU
do Start && Initialise environment and variables and open tables
clear
@ 1,7 to 3,72 double
@ 2,19 say "ACT DOG CONTROL UNIT - POUND MANAGEMENT"
*--Loop to get details of dog registration and owner details
do while .t.
@ 6,0 clear
@ 6,0 to 20,23
@ 6,25 to 14,79
@ 15,25 to 20,79
@ 7,7 say "Dog Details"
@ 7,38 say "Impoundment Details"
@ 16,41 say "Owner Details"
do Get_Tag && Procedure to get tag/yard number
if flag_return=.t.
exit
endif
do Disp_Details && Procedure to display/get details for dog
do Get_Details && Procedure to get details about dog capture