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]
46  COM C$[6],N1,K1,M1,M2
50  REM:12JUN74
60  REM:C$ IS FILE BEING CREATED OR MODIFIED WITH >CRFI
62  REM:$IDA09A,$IDA09B CHAIN BACK TO L. 600..$IDA09C CHAINS BACK TO Q(7)=440
100  DIM D$[72],R$[20],U$[4]
105  N1=K1=M1=M2=0
110  IF Q9>1 THEN 130
115  PRINT "WANT EXPLANATION ";
120  INPUT D$
125  IF D$[1,1]#"N" THEN 9924
130  FILES *
135  IF Q9>1 THEN 155
140  PRINT "WANT TO CREATE OR MODIFY A RANDOM ACCESS FILE ";
145  INPUT D$
150  IF D$[1,1]="N" THEN 9998
155  C1=1
160  PRINT "FILE NAME = ";
165  INPUT C$
170  GOSUB 9000
175  IF  END #1 THEN 430
180  P[1]=P[2]=P[3]=P[4]=0
185  READ #1,1
200  READ #1;N1,K1
201  IF K1>70 THEN 204
202  Z2=1
203  GOTO 205
204  Z2=2
205  GOTO TYP(-1) OF 210,210,210,280
210  REM:FILL IN IF-THENS AND GOTO TYP(-1)'S
215  GOTO 9996
280  P[1]=1
285  P[2]=1+P[1]+N1
290  READ #1,P[2]
295  READ #1;D$
320  P[3]=P[2]+Z2
325  READ #1,P[3]
330  READ #1;D$
335  P[4]=1+P[3]
340  IF  END #1 THEN 360
345  READ #1,P[4]
350  READ #1;M1,M2
355  GOTO 450
360  M1=M2=0
365  REM:WILL ASK IF ANY MISSING VALUES IN 390
370  GOTO 450
400  REM:CHAIN TO $IDA22A FOR INITIALIZING
430  Q1=1
432  Q[7]=440
434  GOTO 9920
440  ASSIGN C$,1,Q8
450  IF Q9>2 THEN 600
460  PRINT "* >> ";
470  ENTER 15,Q8,R$
480  PRINT 
500  IF Q8>0 THEN 608
510  PRINT "NEED HELP ";
520  INPUT D$
530  IF D$[1,1]="N" THEN 600
540  PRINT "USE SUBCOMMAND:"
550  PRINT "SUBC  TO GET LIST OF 'CRFI' SUBCOMMANDS."
560  PRINT "QUIT  TO QUIT USING 'CRFI'."
570  GOTO 600
580  DATA "POBS",1,"MODO",2,"STAT",3,"SUBC",1,"QUIT",1
590  DATA "REDE",2,"PNAM",3,"MODN",4,"PTEX",5,"MODT",6
600  PRINT LIN(1);"* >> ";
602  ENTER 240,Q8,R$
604  PRINT 
606  IF Q8>0 THEN 608
607  GOTO 540
608  IF R$[1,1]="?" THEN 540
610  RESTORE 
612  FOR I=1 TO 10
614  READ U$,Q1
616  IF R$[1,4]=U$ THEN 700
618  NEXT I
620  PRINT "INVALID SUBCOMMAND."
630  GOTO 540
700  Q2=I
705  ASSIGN C$,1,Q8
710  GOTO Q2 OF 9922,9922,9922,9921,9998,9921,9921,9921,9921,9921
720  PRINT "SORRY, NOT IMPLEMENTED YET."
730  GOTO 600
9000  ASSIGN C$,1,Q8
9010  IF Q8 <= 2 THEN 9030
9020  PRINT C$" CANNOT BE FOUND."
9025  GOTO 9998
9030  IF Q8=0 THEN 9050
9040  PRINT "CANNOT WRITE ON "C$
9045  GOTO 9998
9050  RETURN 
9920  CHAIN "$IDA09C"
9921  CHAIN "$IDA09B"
9922  CHAIN "$IDA09A"
9924  Q[6]=9
9926  CHAIN "$IDAE08"
9996  PRINT "WRONG TYPE FILE!"'7'10"GET EXPLANATION BY RE-EXECUTING 'CRFI' AT LEVEL 1."
9997  PRINT "YOU MAY USE THE IDA COMMAND 'FILE' TO LIST THE CONTENTS OF "C$
9998  CHAIN "$IDA",150
9999  END 
