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