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