10  COM Q$[3],C1,I1,I2,I3,I4
20  REM *****            HP TIME SHARED BASIC           *****************
30  REM *****     TSAP: TIME SERIES ANALYSIS PACKAGE    *****************
40  REM *****                                           *****************
50  REM *****      CONTRIBUTED PROGRAM - U. OF IOWA     ***************** 
60  REM *****       J. KOLP, K. BURT, J. HEMINGWAY      ***************** 
70  REM *****                                           *****************
80  C1=I1=I2=I3=I4=0
90  PRINT "TIME SERIES ANALYSIS PACKAGE"
100  PRINT 
110  DIM B$[9]
120  PRINT "DO YOU NEED INSTRUCTIONS";
130  INPUT Q$
140  IF Q$="NO" THEN 880
150  PRINT "THIS PROGRAM ALLOWS YOU TO RETRIEVE AND/OR"
160  PRINT "ANALIZE DATA CONCERNING THE U.S. FOR THE PERIOD"
170  PRINT "1790 THRU 1860.  THE DATA IS STORED INTERNALLY IN THE"
180  PRINT "COMPUTER."
190  PRINT "LET'S IMAGINE THE FILE LOOKS LIKE THE FOLLOWING OUTLINE:"
200  PRINT 
210  PRINT "I. US DATA"
220  PRINT "   A. STATE (STATE)"
230  PRINT "     1. GEORGIA"
240  PRINT "   B. YEARS (YEARS)"
250  PRINT "     1. 1790"
260  PRINT "   C. TOTAL POPULATION (TOTPOP)"
270  PRINT "     1. 55 (IN 100 THOUSANDS)"
280  PRINT "   D. NUMBER OF SLAVES (SLAVES)"
290  PRINT "     1. 550 (IN 10 THOUSANDS)"
300  PRINT "   E. NUMBER OF FREE BLACKS (BLACKS)"
310  PRINT "     1. 66 (IN THOUSANDS)"
320  PRINT "   F. PERCENTAGE OF POPULATION FOREIGN BORN (FORBOR)"
330  PRINT "     1. 0 (1850-1860 ONLY)"
340  PRINT "   G. PERCENTAGE POPULATION LIVING IN URBAN AREAS (URBAN)"
350  PRINT "     1. 10"
360  PRINT "   H. AVERAGE ACRES PER FARM (FARMS)"
370  PRINT "     1. 0 (1850-1860 ONLY)"
380  PRINT "   I. LAND SALES-PREVIOUS DECADE (LAND)"
390  PRINT "     1. 0 (1820-1860 ONLY)"
400  PRINT "   J. MILES OF RAILROAD (RAILS)"
410  PRINT "     1. 0 (1850-1860 ONLY)"
420  PRINT "   K. VALUE OF MANUFACTURING (MANFT)"
430  PRINT "     1. 0 (1810,1840,1850,1860)"
440  PRINT "   L. VALUE OF IMPORTS (IMPORT)"
450  PRINT "   M. VALUE OF EXPORTS (EXPORT)"
460  PRINT "   N. PERCENT OF US TOBACCO PRODUCTION (TOBAC)"
470  PRINT "   O. PERCENT OF US COTTON PRODUCTION (COTTON)"
480  PRINT "   P. PERCENT OF US CORN PRODUCTION (CORN)"
490  PRINT "   Q. SECTION OF COUNTRY (SECTN)"
500  PRINT "      1. NORTH"
510  PRINT "      2. SOUTH"
520  PRINT 
530  PRINT "THIS PARTICULAR OUTLINE REPRESENTS ONE RECORD - GEORGIA"
540  PRINT "IN THE YEAR 1790.  THERE ARE RECORDS FOR GEORGIA FOR THE"
550  PRINT "YEARS 1790 THRU 1860, AS WELL AS RECORDS ON OTHER STATES"
560  PRINT "FOR THE SAME YEARS.  THIS COLLECTION OF RECORDS MAKES UP"
570  PRINT "A FILE."
580  PRINT "STATE, YEAR, SLAVES ARE WHAT IS KNOWN AS VARIABLES."
590  PRINT "INSTEAD OF ALWAYS HAVING TO SPELL THEM OUT SUCH AS"
600  PRINT "'TOTAL POPULATION' , I'LL MAKE IT EASY FOR YOU. YOU"
610  PRINT "CAN REFERENCE A VARIABLE BY USING 'TOTPOP' OR 'MANFT'."
620  PRINT "THESE VARIABLE NAMES ARE INCLUDED IN THE PARENTHSES IN THE"
630  PRINT "ABOVE LIST.  SO, WHENEVER YOU ARE ASKED FOR THE NAME"
631  PRINT "OF A VARIABLE, BE SURE TO RESPOND WITH ONE OF THOSE"
632  PRINT "LISTED ABOVE."
640  PRINT 
650  PRINT 
670  PRINT "'DATA SELECTION CRITERION' ALLOWS YOU TO 'PINPOINT' THE"
680  PRINT "DATA YOU WISH TO ANALYZE.  YOU HAVE THE CHOICE OF"
690  PRINT "SELECTING A PARTICULAR STATE, YEAR, OR SECTION OF THE"
700  PRINT "COUNTRY.  "
710  PRINT '28"STATE=NEWJERSEY, YEARS=1820, SECTN=1"'31"ARE EXAMPLES OF HOW TO"
720  PRINT "ENTER YOUR DATA SELECTIONS.  IF YOU WISH TO ANALYZE THE"
730  PRINT "ENTIRE FILE, SIMPLY TYPE IN "'28"NONE"'31" AS THE DATA SELECTION"
740  PRINT "CRITERION."
750  PRINT 
760  PRINT "WE CAN ALSO PERFORM ONE 'MULTIPLE CRITERION' SELECTION."
770  PRINT "YOU CAN SELECT ON SECTN AND YEARS IN ONE STATEMENT."
780  PRINT "BUT IT MUST READ "'28"SECTN=? AND YEARS=????"'31" IN PRECISELY"
790  PRINT "THAT ORDER AND FORMAT."
800  PRINT "NOW I'LL LIST THE AVAILABLE COMMANDS."
810  PRINT "THEY ARE:"
820  PRINT "         RETRIEVE"
830  PRINT "         PLOT"
840  PRINT "         CORRELATE"
850  PRINT "         MEAN"
860  PRINT "     AND QUIT TO STOP."
880  PRINT 
890  PRINT 
900  PRINT "COMMAND";
910  INPUT B$
920  IF B$="QUIT" THEN 9999
930  IF B$="MEAN" THEN 980
940  IF B$="PLOT" THEN 1000
950  IF B$[1,4]="CORR" THEN 1020
960  IF B$[1,4]="RETR" THEN 1030
965  PRINT "INVALID COMMAND - PLEASE TRY AGAIN."
970  GOTO 890
980  C1=1
990  CHAIN "TSAP1",1
1000  C1=2
1010  CHAIN "TSAP1",1
1020  CHAIN "TSAP3",10
1030  CHAIN "TSAP2",10
9999  END 
