Text Writer

NOT YOUR AVERAGE PC

The program listing on page 5, illustrates some of the reasons why I am still a Timex Fan. This is the program I use to compose this article (LETS HEAR IT FOR CLIVE SINCLAIR). Note how short it is. Look at Line 300. Not many a PC allows you to print an entire text with one instruction. Even machine code would require more memory. Look at Line 91. See how easy it is to insert a word within a text.

However the Timex is not completely perfect. It is difficult to save the text without saving the program also. But think of how many back-up copies I have of my program.

George Penney, SINCUS

---

   1 GOTO 990
  80 LET D$=D$( TO N-I)+D$(N+I T
O )
  81 LET N=N-I
  82 RETURN
  90 INPUT W$
  91 LET D$=D$( TO N)+W$+D$(N+I
TO )
  92 RETURN
  99 LET F$=""
 100 SCROLL
 101 INPUT L$
 102 PRINT L$
 103 LET F$=F$+L$
 104 GOTO 100
 200 LET P1=I-L
 210 LET P1=P1+L
 211 SCROLL
 220 PRINT AT 20,0;F$(P1 TO P1+L
-I);"▒"
 221 PAUSE 4E4
 222 IF CODE INKEY$=112 OR CODE
INKEY$=118 THEN GOTO 210
 223 LET N=L
 224 LET P2=P1+L
 225 LET D$=" "+F$(P1 TO P2-I)
 230 IF CODE INKEY$=114 AND N>1
THEN LET N=N-I
 231 IF CODE INKEY$=115 AND N<L
THEN LET N=N+I
 232 IF CODE INKEY$=117 THEN GOS
UB 90
 233 IF CODE INKEY$=119 THEN GOS
UB 80
 240 PRINT AT 20,0;D$(2 TO N);"▒
";D$(N+I TO )
 242 PAUSE 4E4
 243 IF CODE INKEY$<>118 AND COD
E INKEY$<>112 THEN GOTO 23[illegible]
 244 LET F$=F$( TO [illegible]1-I)+D$(2 TO
)+F$(P2 TO )
 245 GOTO 220
 300 LPRINT F$
 310 STOP
 900 SAVE "T▒"
 901 LET L=CODE "4"
 902 DIM L$(L)
 903 LET I=-COS PI
 990 PRINT "TEXT WRITER OPTIONS:
",,,"        99  BEGIN NEW TEXT","
 100  ENTER TEXT","      200  DISPL
AY FOR EDIT","      300  PRINT",,"
  900  SAVE",,,
 991 PRINT "EDITING:",,,"      EDI
T KEY FOR INSERTIONS",,,"      UP-C
URSOR FOR NEXT LINE"

TEXT WRITER OPTIONS:

  99   BEGIN NEW TEXT
 100   ENTER TEXT
 200   DISPLAY FOR EDIT
 300   PRINT
 900   SAVE

EDITING:

  EDIT KEY FOR INSERTIONS

  UP-CURSOR FOR NEXT LINE