10  COM X[103,22],M[19,19],U[19,19],Q[20],V[20],P[78]
30  COM M$[60],N$[72]
40  COM N,K,N8,K8,N9,K9,Q9,Q7,Q5,Q4,Q3,Q2,Q1
45  COM I3,I4,U9,X$[20]
50  PRINT "14 JUN 74 VERSION"
51  CHAIN "$IDA01"
52  PRINT 
140  Q7=0
141  N9=100
142  K9=20
143  U9=0
150  DIM C$[15],U$[4]
210  IF Q7>998 THEN 300
220  MAT X=ZER
230  MAT Q=ZER
235  MAT M=ZER
236  MAT P=ZER
237  M$[1,30]="                              "
238  M$[31,60]="                              "
240  N$[1,36]="                                    "
245  N$[37,72]="                  FITTEDRESIDU      "
250  Q9=1
260  Q7=999
270  I=TIM(0)+60*TIM(1)+1440*TIM(2)
280  I=RND(-I)
285  IF TIM(1) >= 18 THEN 292
286  IF TIM(1) >= 12 THEN 295
287  PRINT "GOOD MORNING.  NEED HELP ";
288  INPUT C$
289  IF C$[1,1]#"N" THEN 861
290  GOTO 300
292  PRINT "GOOD EVENING.  NEED HELP ";
293  GOTO 288
295  PRINT "GOOD AFTERNOON.  NEED HELP ";
296  GOTO 288
300  PRINT LIN(1);"> ";
310  Q6=0
320  ENTER 60,Q8,C$
321  IF C$[1,4]#"PAUS" THEN 328
322  PRINT LIN(1);"> ";
323  FOR I=1 TO 10
324  ENTER 240,Q8,C$
325  IF Q8>0 THEN 321
326  NEXT I
328  PRINT 
330  IF Q8>0 THEN 400
340  IF Q7>1001 THEN 300
342  PRINT "NEED HELP ";
343  INPUT C$
344  IF C$[1,1]="N" THEN 322
345  PRINT "YOU MAY USE :"
346  PRINT 
347  PRINT "COMM     TO LIST COMMAND NAMES"
348  PRINT "EXPL     TO EXPLAIN A SINGLE COMMAND NAME"
349  PRINT "INFO     TO GET GROUPS OF COMMANDS"
350  Q7=Q7+1
355  GOTO 300
360  IF Q6=0 THEN 400
370  GOTO Q9 OF 371,371,375
371  PRINT "NAME OF COMMAND TO BE EXPLAINED = ";
372  GOTO 380
375  PRINT "COMMAND NAME = ";
380  INPUT C$
400  RESTORE 
410  FOR I=1 TO 117
420  READ U$,Q1
430  IF C$[1,4]=U$ THEN 500
440  NEXT I
442  FOR I=1 TO U9
444  IF C$[1,4]#X$[4*I-3,4*I] THEN 448
446  CHAIN C$[1,4]
448  NEXT I
460  PRINT LIN(1);"COMMAND INVALID"
470  GOTO 340
500  Q2=I
570  IF Q6=0 THEN 640
575  PRINT 
580  CHAIN "$IDAE21"
640  GOTO (.4999+Q2/8) OF 660,670,680,690,700,710,720,730,740,750
650  GOTO ((.4999+Q2/8)-10) OF 760,770,780,790,791
660  GOTO Q2 OF 820,820,820,847,841,871,871,871
670  GOTO (Q2-8) OF 806,842,845,845,830,2600,841,840
680  GOTO (Q2-16) OF 840,830,830,820,820,843,800,810
690  GOTO (Q2-24) OF 900,820,835,842,825,825,825,825
700  GOTO (Q2-32) OF 825,806,860,806,897,820,1000,820
710  GOTO (Q2-40) OF 820,835,820,820,806,805,806,848
720  GOTO (Q2-48) OF 800,806,820,825,825,825,825,825
730  GOTO (Q2-56) OF 899,867,830,841,830,830,806,843
740  GOTO (Q2-64) OF 849,894,820,806,845,806,820,842
750  GOTO (Q2-72) OF 847,841,846,800,800,870,875,880
760  GOTO (Q2-80) OF 881,882,883,884,885,806,887,888
770  GOTO (Q2-88) OF 889,860,806,806,820,893,875,875
780  GOTO (Q2-96) OF 871,870,870,870,892,892,892,892
790  GOTO (Q2-104) OF 810,800,895,800,800,800,896,886
791  GOTO (Q2-112) OF 898,885,835,800,890
800  PRINT "COMMAND NOT YET IMPLEMENTED"
801  GOTO 9998
805  CHAIN "$IDA98"
806  CHAIN "$IDA39"
810  CHAIN "$IDA23"
820  CHAIN "$IDA24"
825  CHAIN "$IDA25"
830  CHAIN "$IDA26"
835  CHAIN "$IDA27"
840  CHAIN "$IDA28"
841  CHAIN "$IDA29"
842  CHAIN "$IDA30"
843  CHAIN "$IDA31"
845  CHAIN "$IDA33"
846  CHAIN "$IDA34"
847  CHAIN "$IDA35"
848  CHAIN "$IDA36"
849  CHAIN "$IDA37"
860  CHAIN "$IDAE39"
861  CHAIN "$IDAE01"
867  CHAIN "$IDA45"
870  CHAIN "$IDA46"
871  CHAIN "$IDA47"
875  CHAIN "$IDA95"
880  CHAIN "$IDA48"
881  CHAIN "$IDA50"
882  CHAIN "$IDA51"
883  CHAIN "$IDA52"
884  CHAIN "$IDA07"
885  CHAIN "$IDA08"
886  CHAIN "$IDA09"
887  CHAIN "$IDA12"
888  CHAIN "$IDA13"
889  CHAIN "$IDA14"
890  CHAIN "$IDA54"
892  CHAIN "$IDA17"
893  CHAIN "$IDA18"
894  CHAIN "$IDA19"
895  CHAIN "$IDA20"
896  CHAIN "$IDA21"
897  CHAIN "$IDA49"
898  CHAIN "$IDA22"
899  STOP 
900  Q6=1
910  GOTO 370
1000  PRINT LIN(1);"COMMAND NAMES :",LIN(1)
1005  RESTORE 
1010  FOR I=1 TO 117
1020  READ C$,J
1030  PRINT  USING "#,4A2X";C$
1032  IF I/10#INT(I/10) THEN 1040
1034  PRINT 
1040  NEXT I
1060  PRINT LIN(2);"COMMAND 'EXPLAIN' WILL EXPLAIN ANY OF THE ABOVE"
1070  IF U9=0 THEN 300
1080  PRINT 
1090  PRINT "USER DEFINED COMMANDS :",LIN(1)
1100  FOR I=1 TO U9
1110  PRINT  USING 1120;X$[4*I-3,4*I]
1120  IMAGE #,4A,2X
1130  NEXT I
1135  PRINT 
1140  GOTO 300
2600  PRINT "* LEVEL = ";
2605  GOTO 2670
2610  PRINT "CHANGE PROMPT LEVEL TO 1, 2, OR 3"
2620  PRINT "  1 : DETAILED PROMPTS"
2630  PRINT "  2 : INTERMEDIATE"
2640  PRINT "  3 : SHORT, CRYPTIC"
2650  PRINT 
2660  GOTO 2600
2670  ENTER 20,Q8,Q9
2680  PRINT 
2690  IF Q8<0 THEN 2610
2692  IF Q9=1 OR Q9=2 OR Q9=3 THEN 9998
2700  GOTO 2610
9000  REM:CHANGING POSITION OF COMMANDS WILL AFFECT IDAE21 AND IDA912 BY Q2
9001  DATA "ABSO",1,"ADDC",2
9003  DATA "ADDV",3,"ALLS",1
9005  DATA "ANOV",3,"APPO",1
9007  DATA "APPS",2,"APPV",3
9009  DATA "AUTO",7,"BACK",3
9011  DATA "BCOR",5,"BCOV",6
9013  DATA "CHGO",4,"CHGP",3
9015  DATA "COEF",2,"CORR",1
9017  DATA "COVA",2,"DELB",6
9019  DATA "DELO",5,"DIFF",4
9021  DATA "DOTP",5,"DURB",16
9023  DATA "ENLI",1,"ENTE",1
9025  DATA "EXPL",1,"EXPO",6
9027  DATA "FILE",5,"FORW",2
9029  DATA "FPRF",6,"FPRO",8
9031  DATA "FPRR",7,"FPRS",9
9033  DATA "FPRV",10,"FREQ",6
9035  DATA "INFO",1,"HIST",5
9037  DATA "INDX",1,"LAGG",7
9039  DATA "LIST",1,"LOGE",8
9041  DATA "LOG1",9,"MEAN",4
9043  DATA "MULC",10,"MULV",11
9045  DATA "NAME",1,"NEWS",1
9047  DATA "NORM",3,"PARC",1
9049  DATA "PLTC",1,"PLTS",4
9051  DATA "POWE",12,"PRTF",1
9053  DATA "PRTO",3,"PRTR",2
9055  DATA "PRTS",4,"PRTV",5
9057  DATA "QUIT",1,"RAND",1
9059  DATA "RECO",1,"REGR",1
9061  DATA "RETB",3,"RETO",2
9063  DATA "RUNS",9,"RVSF",19
9065  DATA "SAMP",1,"SAVF",1
9067  DATA "SAVR",15,"SCAT",2
9069  DATA "SEPR",1,"SERC",8
9071  DATA "STAN",13,"STEP",1
9073  DATA "SUBS",2,"SUMM",4
9075  DATA "SWEE",1,"TRAN",1
9077  DATA "WLSR",1,"RDIM",1
9079  DATA "NEWC",1,"CALC",1
9081  DATA "SORT",1,"PSOR",1
9083  DATA "RANK",1,"ENTS",1
9085  DATA "ENRA",1,"MSOR",11
9087  DATA "CRSP",1,"PSAM",1
9089  DATA "GAUS",1,"HELP",1
9091  DATA "CTAB",15,"MTAB",16
9093  DATA "DIVI",14,"SPEC",1
9095  DATA "CRTS",2,"COMM",3
9097  DATA "APPB",4,"ZERS",2
9099  DATA "ZERC",3,"ZERR",4
9101  DATA "CATE",1,"SELR",2
9103  DATA "MOVE",3,"DELV",4
9105  DATA "STAR",2,"SPAD",5
9107  DATA "MPLS",1,"COMP",1
9109  DATA "DUMP",1,"SUBV",1
9111  DATA "PACF",1,"CRFI",1
9113  DATA "CROS",1,"EOBR",2
9115  DATA "MISS",3,"EOBS",1
9117  DATA "BOXJ",1
9990  PRINT "NO DATA HAS BEEN ENTERED YET.  USE:"
9991  PRINT "'ENTER', 'ENTS', 'ENRA', 'CRSP', 'INDX', 'RAND', OR 'STAR'"
9992  PRINT "TO DEFINE DATA MATRIX."
9993  GOTO 150
9998  GOTO 300
9999  END 
