100 REM DEMONSTRATES TEXT WINDOW›110 REM SIMPLE MENU PROGRAM FOR DISK›130 TRAP 150›140 OPEN #1,6,0,"D:*.*":GOTO 160›150 ? "Can't read directory":END ›160 GRAPHICS 0:COL=0:POKE 752,1:REM DISABLES CURSOR›170 DIM A$(20),F$(14):TRAP 230›180 INPUT #1;A$›190 POSITION COL,LINE:? A$(1,14)›200 LINE=LINE+1›210 IF LINE>20 THEN COL=COL+13:LINE=0›220 GOTO 180›230 POKE 703,4:REM CREATES TEXT WINDOW›240 FOR I=1 TO 100:? I,:NEXT I:REM ONLY FOR DEMONSTRATION›250 ? CHR$(125):? "Run which program";:INPUT A$:REM CHR$(125) ONLY CLEARS WINDOW›260 TRAP 290›270 F$="D:":F$(3)=A$›280 RUN F$›290 ? "Can't RUN ";F$;"."›300 END ›