TextWindow1, TextWindow2 (original enhancement)
TextWindow1 and TextWindow2 are text file compatible text device.
They can be shown using Window menu and can be edited manually.
The contents of them are preserved when a program starts.
The syntax is as follows. TextWindow1 can be replaced by TextWindow2.
OPEN # n : TextWindow1
OPEN # n : TextWindow1 ,ACCESS INPUT
OPEN # n : TextWindow1 ,ACCESS OUTPUT
OPEN # n : TextWindow1 ,ACCESS OUTIN
Example.
After inputting numerical data punctuated by blanks into TextWindow1, executing this program converting them punctuated by commas into TextWindow2
100 OPEN #1:TextWindow1 110 OPEN #2:TextWindow2 120 ERASE #2 130 DO 140 LINE INPUT #1, IF MISSING THEN EXIT DO: s$ 150 LET i=1 160 DO 170 DO WHILE s$(i:i)=" " 180 LET i=i+1 190 LOOP 200 LET i0=i 210 DO UNTIL i>LEN(s$) OR s$(i:i)=" " 220 LET i=i+1 230 LOOP 240 PRINT #2: s$(i0:i-1); 250 IF i>LEN(s$) THEN EXIT DO 260 PRINT #2:","; 270 LOOP 280 PRINT #2 290 LOOP 300 CLOSE #2 310 CLOSE #1 320 END