10  REM: FOR FINDING IDA SUBPROGRAMS IMPLEMENTING EACH IDA COMMAND
20  REM:BY JUNE ROBERTS
30  REM: Q1 IS THE CODE NUMBER OF COMMAND IN IDA SUBPROGRAM
32  REM: $IDAVAR EXPLAINS THE COMMON VARIABLES
50  PRINT "14 JUN 74 VERSION OF $IDA-TS--TROUBLE SHOOTING IDA"
52  PRINT 
100  DIM C$[15],U$[4]
101  GOTO 2000
102  PRINT "AFTER ' > ' TYPE THE IDA COMMAND NAME YOU ARE TROUBLE-SHOOTING."
104  PRINT "WHEN YOU ARE DONE, TYPE 'DONE' AFTER ' > '."
106  Q6=0
111  IF Q6=1 THEN 2100
112  PRINT "> ";
200  ENTER 10,R,C$
210  IF R>0 THEN 250
220  PRINT "WANT LIST OF IDA COMMANDS ";
230  INPUT C$
235  IF C$[1,1]="N" THEN 112
240  GOTO 8000
250  PRINT 
252  IF C$[1,1]="?" THEN 220
260  IF C$[1,4]="DONE" THEN 9999
400  RESTORE 
410  FOR I=1 TO 117
420  READ U$,Q1
430  IF C$[1,4]=U$ THEN 500
440  NEXT I
460  PRINT LIN(1);"COMMAND INVALID"
470  GOTO 220
500  Q2=I
502  PRINT  USING 504;Q1
504  IMAGE #,"Q1 = ",2D,".  EXECUTION BEGINS IN "
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 810,810,810,832,820,856,856,856
670  GOTO (Q2-8) OF 806,822,828,828,814,1006,820,818
680  GOTO (Q2-16) OF 818,814,814,810,810,824,800,808
690  GOTO (Q2-24) OF 1002,810,816,822,812,812,812,812
700  GOTO (Q2-32) OF 812,806,848,806,894,810,1004,810
710  GOTO (Q2-40) OF 810,816,810,810,806,804,806,834
720  GOTO (Q2-48) OF 800,806,810,812,812,812,812,812
730  GOTO (Q2-56) OF 1000,852,814,820,814,814,806,824
740  GOTO (Q2-64) OF 836,888,810,806,828,806,810,822
750  GOTO (Q2-72) OF 832,820,830,800,800,854,858,860
760  GOTO (Q2-80) OF 862,864,866,868,870,806,874,876
770  GOTO (Q2-88) OF 878,848,806,806,810,886,858,858
780  GOTO (Q2-96) OF 856,854,854,854,884,884,884,884
790  GOTO (Q2-104) OF 808,800,890,800,800,800,892,872
791  GOTO (Q2-112) OF 896,870,816,800,898
800  PRINT "PROGRAM TO EXECUTE COMMAND NOT DEVELOPED YET."
802  GOTO 111
804  PRINT "IDA98"
805  GOTO 111
806  PRINT "IDA39"
807  GOTO 111
808  PRINT "IDA23"
809  GOTO 111
810  PRINT "IDA24"
811  GOTO 111
812  PRINT "IDA25"
813  GOTO 111
814  PRINT "IDA26"
815  GOTO 111
816  PRINT "IDA27"
817  GOTO 111
818  PRINT "IDA28"
819  GOTO 111
820  PRINT "IDA29"
821  GOTO 111
822  PRINT "IDA30"
823  GOTO 111
824  PRINT "IDA31"
825  GOTO 111
828  PRINT "IDA33"
829  GOTO 111
830  PRINT "IDA34"
831  GOTO 111
832  PRINT "IDA35"
833  GOTO 111
834  PRINT "IDA36"
835  GOTO 111
836  PRINT "IDA37"
837  GOTO 111
848  PRINT "IDAE39"
849  GOTO 111
852  PRINT "IDA45"
853  GOTO 111
854  PRINT "IDA46"
855  GOTO 111
856  PRINT "IDA47"
857  GOTO 111
858  PRINT "IDA95"
859  GOTO 111
860  PRINT "IDA48"
861  GOTO 111
862  PRINT "IDA50"
863  GOTO 111
864  PRINT "IDA51"
865  GOTO 111
866  PRINT "IDA52"
867  GOTO 111
868  PRINT "IDA07"
869  GOTO 111
870  PRINT "IDA08"
871  GOTO 111
872  PRINT "IDA09"
873  GOTO 111
874  PRINT "IDA12"
875  GOTO 111
876  PRINT "IDA13"
877  GOTO 111
878  PRINT "IDA14"
879  GOTO 111
884  PRINT "IDA17"
885  GOTO 111
886  PRINT "IDA18"
887  GOTO 111
888  PRINT "IDA19"
889  GOTO 111
890  PRINT "IDA20"
891  GOTO 111
892  PRINT "IDA21"
893  GOTO 111
894  PRINT "IDA49"
895  GOTO 111
896  PRINT "IDA22"
897  GOTO 111
898  PRINT "IDA54"
899  GOTO 111
1000  REM:QUIT
1002  REM;EXPLAIN
1004  REM;LIST
1006  PRINT "IDA"
1008  GOTO 111
2000  PRINT "WANT LIST OF ALL IDA COMMANDS ";
2010  INPUT C$
2020  IF C$[1,1]="N" THEN 102
2030  Q6=1
2040  RESTORE 
2042  PRINT 
2043  PRINT " Q2  NAME    Q1  EXECUTION BEGINS IN:"
2044  PRINT "***  ****    **  ********************"
2050  FOR I=1 TO 117
2060  READ U$,Q1
2070  Q2=I
2080  PRINT  USING 2090;Q2,U$,Q1
2085  GOTO 640
2090  IMAGE #,3D2X,4A4X,2D2X
2100  NEXT I
2200  GOTO 9999
8000  PRINT LIN(1);"COMMAND NAMES :",LIN(1)
8005  RESTORE 
8010  FOR I=1 TO 117
8030  READ C$,J
8040  PRINT  USING "#,4A2X";C$
8050  IF I/10#INT(I/10) THEN 8060
8055  PRINT 
8060  NEXT I
8070  PRINT 
8080  GOTO 111
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
9998  GOTO 111
9999  END 
