10 D$ =  CHR$ (4)
20 INPUT "(S)MALL, (B)IG, (R)ENAME/DELETE? ";A$
30 IF A$="S" THEN 1000
40 IF A$="B" OR A$="R" THEN 2000
50 PRINT "INVALID CHOICE"
60 END

1000  POKE 768,6: POKE 769,5: POKE 770,0: POKE 771,2
1010  PRINT D$;"BSAVE THECHIP,A768,L4"
1020  PRINT D$;"OPEN THETEXT"
1030  PRINT D$;"WRITE THETEXT"
1040  PRINT "HELLO FROM EMULATOR"
1050  PRINT D$;"CLOSE THETEXT"
1999  END

2000 PRINT D$;"OPEN TREE1,L128"
2010 PRINT D$;"WRITE TREE1,R2000"
2020 PRINT "HELLO FROM TREE 1"
2030 PRINT D$;"CLOSE TREE1"
2040 PRINT D$;"OPEN TREE2,L127"
2050 PRINT D$;"WRITE TREE2,R2000"
2060 PRINT "HELLO FROM TREE 2"
2070 PRINT D$;"WRITE TREE2,R4000"
2080 PRINT "HELLO FROM TREE 2"
2090 PRINT D$;"CLOSE TREE2"
2100 FOR I = 16384 TO 32767: POKE I,256*((I-16384)/256 - INT((I-16384)/256)): NEXT
2110 PRINT D$;"BSAVE SAPLING,A16384,L16384"

2120 IF A$="B" THEN END

2130 PRINT D$;"DELETE TREE2"
2140 PRINT D$;"RENAME SAPLING,SAP"
2150 PRINT D$;"RENAME TREE1,MYTREE1"
2160 END