Simple TI text editor (for cassette use)

[HOME AUTOMATION]

Slight problem with above... loses the top line...
New improved version saves 23 lines!
Also the code didn't post correctly.

100 A=0
110 E=2
120 B=168
130 D=1
140 A=A+1
150 E=E+1
160 IF E<>31 THEN 190
170 E=3
180 D=D+1
190 CALL GCHAR(D,E,C)
200 A$=CHR$(C)
210 B$=B$&A$
220 IF A<>B THEN 140
230 T$(F)=B$
240 F=F+1
250 B$=""
260 IF A=672 THEN 290
270 B=B+168
280 GOTO 140
290 CALL CLEAR
300 OPEN #1:"CS1",OUTPUT,FIXED 192,INTERNAL
310 FOR Z=0 TO 3
320 PRINT #1:T$(Z)
330 NEXT Z
340 END
350 OPEN #1:"CS1",INPUT,FIXED 192,INTERNAL
360 FOR X=0 TO 3
370 INPUT #1:T$(X)
380 NEXT X
390 FOR W=0 TO 2
400 PRINT T$(W)
410 NEXT W
420 T$(3)=SEG$(T$(3),1,140)
430 PRINT T$(3)
440 GOTO 440

How to use:

1) Type on screen...use FCTN 4 instead of ENTER.
2) Type RUN
3) Wait... about 120 sec.
4) Follow recording cassette prompts.

SAVED!

To recover:

1) Type RUN 350
2) Follow playing cassette prompts.
3 Previously saved screen displays

 

The bottom line can not be used.

 

screencapture.wav
screencapture.dsk

Edited January 30, 2019 by HOME AUTOMATION