M:PCM DEC83d:REV PCM MAR84P7}1000:2:AZ:128:T$" "T$"," XX1:6:T$(A$,X,1):Ê FN$AS1: :I16:A$(I)::GOTO,GOSUB,RESTORE,THEN,ELSE,RESUMEI:"Filename to be renumbered: ";FN$:((FN$,3),1)"."FN$FN$".DO"U10:D1x(1)͚:20:#1,A$:DD1:18DD2: A(D,1):FN$AS1"First line number desired: ";N"Line no.increment desired: ";I:NNI: K0D:#1,A$:NNIA(K,0)((A$,5)):A(K,1)N:A:10:"NEW.DO"PUTAS2:K0D:@50,"Renumbering":#1,A$:L2((((A$,5)))):A$((A(K,1)),2)(A$,L2):L(A$) S16:X1Œ"X(X,A$,A$(S)):X044ӌ$XX(A$(S))ڌ&6(8:T$"0"T$"9"34:48*XL34?,:#2,A$:::::@95,"Complete":FN$:"NEW.DO"ASFN$:F.60L(A$):A2((A$,X,5)):A2$(A2):A2$(A2$,2):L2(A2$):C1Ս2CC1:CD 8000,80:A$:X1);"^":"Undefined line number":"NEW.DO":4 A2A(C,0) A3$(A(C,1)):50!6A$(A$,1,X1)(A3$,2)(A$,XL2,L)28XX(A3$)1O:8:T$" " T$","46: