0 'WSPEC.BA by B.Templeton [75655,1056]
1 CLS:DIMP(19),Q(19),S(19),T(19):N=0
2 PRINT@42,"Change WSPEC Ext. to: ";:A$=INPUT$(1):PRINTA$;:B$=INPUT$(1):PRINTB$:A=ASC(A$):B=ASC(B$)
3 FORX=63930TO64128STEP11:N=N+1:T(N)=PEEK(X):S(N)=PEEK(X+8):G$=""
4 FORY=3TO7:F$=CHR$(PEEK(X+Y)):G$=G$+F$:NEXT:P(N)=X+9:Q(N)=X+10
5 IFT(N)=160ANDG$="WSPEC"ANDS(N)=32THENPOKEP(N),A:POKEQ(N),B:MENU:ELSENEXT:MENU