10 DIM UI$[9](50),G$[4],U$[4]
20 DATA [1,10]
21 DATA [1,11]
22 DATA [1,12]
23 DATA [1,13]
24 DATA [1,14]
25 DATA [1,15]
26 DATA [1,17]
28 DATA [1,20]
29 DATA [1,21]
30 DATA [1,22]
31 DATA [1,23]
32 DATA [1,24]
33 DATA [1,25]
34 DATA [1,26]
35 DATA [1,27]
36 DATA [1,30]
37 DATA [1,31]
38 DATA [1,40]
56 FOR I=1 TO 18
57 READ G$,U$
58 UI$(I)=G$+","+U$
59 NEXT I
60 FOR I=1 TO 18 : PRINT UI$(I) : GOSUB 100 : NEXT I
65 PRINT "TOTAL BLOCKS"
70 B=0 : CALL "SPAWNB"("PIP WK:[1,4]X.=[1,*]/TB",B)
80 B=0 : CALL "SPAWNB"("QUE LP1:=DR:[1,4]X.;*/DE/-HD/FO:1",B)
90 EXIT
100 B=0 : CALL "SPAWNB"("SRD WK:[1,4]DIRECTORY.="+UI$(I)+"/MI/SE:*.*",B)
110 B=0 : CALL "SPAWNB"("LIS WK:[1,4]DIR.;"+OCT$(I)+"=WK:[1,4]DIRECTORY./CO:2/LE:62/WI:79/TR",B)
120 B=0 : CALL "SPAWNB"("PIP WK:[1,4]DIRECTORY.;*/DE",B)
130 B=0 : CALL "SPAWNB"("QUE LP1:=DR:[1,4]DIR.;"+OCT$(I)+"/DE/-HD/FO:1/PR:150",B)
140 RETURN