110 DIM aas(50)
120 true=1
130 INPUT "Name";flname$
140 alen=FLEN(\flname$)
150 addr=ALCHP(alen)
160 LBYTES flname$,addr
170 addr$=PEEK$(addr,alen)
180 j=-1
190 REPeat i
200 k=("mdv" INSTR addr$(i+1 TO))+i:IF i=k THEN EXIT i
210 j=j+1:aas(j)=k:i=k
220 SELect ON true
230 =addr$(k TO k+8)="mdv1_gpri":addr$(k TO k+3)="dir1"
240 =addr$(k TO k+8)="mdv1_dimg":addr$(k TO k+3)="dir1"
250 =addr$(k TO k+8)="mdv1_mind":addr$(k TO k+3)="dir3"
260 =addr$(k TO k+4)="mdv2_":addr$(k TO k+3)="dir2"
265 END SELect 
270 END REPeat i
290 FOR i=0 TO 50
300 IF aas(i)>0 THEN j=aas(i)-2:PRINT j!addr$(j TO j+20)
310 END FOR i
320 SEXEC_O "ram1_design3d_"&flname$,0,0,FDAT(\flname$)
330 OPEN #3,"ram1_design3d_"&flname$
340 PRINT #3,addr$;
350 CLOSE #3
