Old Code (1 Viewer)

Cronk

Registered User.
Local time
Tomorrow, 08:47
Joined
Jul 4, 2013
Messages
2,768
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
 

June7

AWF VIP
Local time
Today, 12:47
Joined
Mar 9, 2014
Messages
5,379
What did you find this code in? What is file extension?
 

Cronk

Registered User.
Local time
Tomorrow, 08:47
Joined
Jul 4, 2013
Messages
2,768
What did you find this code in? What is file extension?
I could have been clearer. It was code I'd written over 30 years ago. The file extension was .PRG
 

jdraw

Super Moderator
Staff member
Local time
Today, 16:47
Joined
Jan 23, 2006
Messages
15,340
June7,
Not sure if your question refers to my post, but here is what I asked BingChat.

Can you tell me the language used in this sample code, and also the origin of the code itself.
@ 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


And this is the full response:

The sample code you provided is written in FoxPro, a programming language and database management system developed by Fox Software and later acquired by Microsoft1. FoxPro is a procedural, object-oriented and data-centric language that can be used to create desktop, web, and mobile applications2.
The origin of the code is not clear, but it seems to be part of a program that handles the information of dogs, their impoundment, and their owners. The code uses the do command to call two procedures: Get_Tag and Disp_Details. The Get_Tag procedure is used to get the tag or yard number of a dog, and the Disp_Details procedure is used to display or get the details of the dog, such as its name, breed, age, etc. The code also uses the say command to display some text on the screen, such as “Dog Details”, “Impoundment Details”, and “Owner Details”. The code also uses the if and exit commands to control the flow of the program. The code uses the flag_return variable to indicate whether the user wants to return to the previous menu or not.
 

Cronk

Registered User.
Local time
Tomorrow, 08:47
Joined
Jul 4, 2013
Messages
2,768
I wrote the code in 1991 in dBase 4, a DOS database program which I started using in 1985. The client had me replace it in 1995 with Access 2, the first time I got to use Access.
 

June7

AWF VIP
Local time
Today, 12:47
Joined
Mar 9, 2014
Messages
5,379
So the reason for your original question was ....?
 

ebs17

Well-known member
Local time
Today, 22:47
Joined
Feb 7, 2020
Messages
1,752
... tell me what I have done and what I am doing, I don't know myself ...
 

NauticalGent

Ignore List Poster Boy
Local time
Today, 16:47
Joined
Apr 27, 2015
Messages
6,244
So the reason for your original question was ....?
Being that Cronk asked his "question" in the Water Cooler, I'm going to assume he was just making conversation and showing off his relics...
 

Isaac

Lifelong Learner
Local time
Today, 13:47
Joined
Mar 14, 2017
Messages
8,687
Or maybe it is no mystery, but just as simple as he asked the question and then sometime later in the day or the next day he found the answer himself, this has happened to all of us I'm sure!
 

Users who are viewing this thread

Top Bottom