5  DIM C$[12]
10  PRINT "12 JUN 74 VERSION"
20  PRINT 
30  PRINT "WANT LIST OF IDA PROGRAM NAMES ";
40  INPUT C$
45  IF C$[1,1]="N" THEN 1020
100  PRINT "IDA"
110  PRINT "IDA01","IDA02","IDA03","IDA04","IDA05"
120  PRINT "IDA06","IDA07","IDA08","IDA09","IDA10"
122  PRINT "IDA08A","IDA08B","IDA08C","IDA08D"
125  PRINT "IDA09A","IDA09B","IDA09C"
130  PRINT "IDA11","IDA12","IDA13","IDA14","IDA15"
135  PRINT "IDA12A","IDA13A","IDA13B","IDA13C"
140  PRINT "IDA16","IDA17","IDA18","IDA19","IDA20"
145  PRINT "IDA17A","IDA20A"
150  PRINT "IDA21","IDA22","IDA23","IDA24","IDA25"
155  PRINT "IDA25A"
160  PRINT "IDA26","IDA27","IDA28","IDA29","IDA30"
170  PRINT "IDA31","IDA32","IDA33","IDA34","IDA35"
180  PRINT "IDA36","IDA37","IDA38","IDA39","IDA40"
190  PRINT "IDA41","     ","     ","     ","IDA45"
195  PRINT "IDA45A"
200  PRINT "IDA46","IDA47","IDA48","IDA49","IDA50"
210  PRINT "IDA51","IDA52","IDA53","IDA54"
213  PRINT "IDA53A","IDA53B","IDA53C","IDA53D","IDA53E"
214  PRINT "IDA53F","IDA53G","IDA53H"
220  PRINT "IDA95","IDA98","IDA99"
230  PRINT "IDA912"
500  PRINT 
510  PRINT "IDAE01"
520  PRINT "IDAE08","IDAE12","IDAE15","IDAE17"
540  PRINT "IDAE21","IDAE22","IDAE23","IDAE25"
550  PRINT "IDAE39","IDAE40","IDAE41","IDAE42","IDAE43"
570  PRINT "IDAE47","IDAE48"
1000  PRINT 
1010  PRINT "IDACOM","IDAVAR","IDAPRO","IDAFIL"
1015  PRINT "IDA-TS"
1017  PRINT "IDALOG","IDAARC"
1020  PRINT 
1030  PRINT "TO GET LIST OF DATA FILES TO USE WITH IDA, GET '$IDAFIL'."
9999  END 
