10 D$ = CHR$ (4)
20 INPUT "(D)IRS, (F)ILL, (R)ENAME/DELETE? ";A$
40 IF A$="D" OR A$="F" OR A$="R" THEN 1000
50 PRINT "INVALID CHOICE"
60 END
1000 PRINT D$;"CREATE INNER.DIRS": PRINT D$;"PREFIX /NEW.DISK/INNER.DIRS"
1010 FOR I = 1 TO 54: PRINT D$;"CREATE DIR";I: NEXT
1020 IF A$="D" THEN END
1030 FOR I = 1 TO 4: READ N
1040 PRINT D$;"PREFIX /NEW.DISK/INNER.DIRS/DIR";N
1050 PRINT D$;"OPEN TREE,L127"
1060 PRINT D$;"WRITE TREE,R4000"
1070 PRINT "HELLO FROM TREE"
1080 PRINT D$;"CLOSE TREE"
1090 NEXT
1100 IF A$="F" THEN END
1110 PRINT D$;"PREFIX /NEW.DISK/INNER.DIRS"
1120 PRINT D$;"DELETE DIR1"
1130 PRINT D$;"DELETE DIR32/TREE"
1140 PRINT D$;"DELETE DIR32"
1150 PRINT D$;"RENAME DIR53/TREE,DIR53/TREE53"
1160 DATA 5,19,32,53