10 ! NEWSTO.BAS
	! USING A LIST OF *.STO FILES CREATED BY SRD NAMED STO.LST
	! THIS PROGRAM
	!	1) RENAMES THE .STO FILE TO .SLY
	!	2) CREATES NEW .STO FILE
80 DIM N$[32]V,R$[52],Y$[2]
100 ER=0 :
	CALL "SPAWNB"("SRD STO.LST=/SE:*.STO",ER)
120 ! INPUT "YEAR ",Y$
	Y$="86"
140 OPEN #4,"STO.LST/RO" : IF END #4 THEN 800 : INPUT LINE #4,N$
160 INPUT LINE #4,N$ : N$=SBS$(N$,3,6) : PRINT N$
180 ER=0 :
	CALL "SPAWNB"("PIP "+N$+".S"+Y$+"="+N$+".STO/RE",ER)
200	OPEN #6,N$+".STO/FX/LN:52/WR" :
300	CLOSE 6
320 GOTO 160
800 CLOSE : EXIT
