ð
10 REM********
20 REM* MEMO WRITER
30 REM*     BY
40 REM* WM V R SMITH
50 REM*  ARTSCI INC
60 REM********
70 CLS
80 PRINT"   MEMO WRITER"
90 PRINT:PRINT"TURN THE PRINTER"
100 PRINT"ON!";
110 IF INKEY$="" THEN 110
120 LOCATE0,7,0
130 LOCATE0,4
140 PRINT"  MEMO WRITER"
150 S=0
160 C=0
170 O$=""
180 LOCATE0,7
190 PRINT"‹";
200 I$=INKEY$
210 IF I$="" THEN 200
220 IF I$=CHR$(29) THEN 480
230 IF I$= CHR$(13) THEN 330
240 IF ASC(I$)<31 THEN 200
250 C=C+1
260 IF C=16 THEN SOUND1,1
270 IF I$=" " THEN S=C
280 O$=O$+I$
290 LOCATE C-1,7
300 PRINT I$;
310 IF C>23 THEN 370
320 GOTO 190
330 REM RETURN
340 LPRINT O$
350 PRINT
360 GOTO 150
370 REM
380 IF S=0 THEN S=C
390 LPRINT LEFT$(O$,S)
400 O$=RIGHT$(O$,(LEN(O$)-S))
410 LOCATE S,7
420 PRINT"‹";SPC(C-S)
430 PRINT
440 C=LEN(O$):S=0
450 LOCATE 0,7
460 PRINT O$;"‹";
470 GOTO 200
480 C=C-1
490 IF C<0 THEN 160
500 O$=LEFT$(O$,C)
510 IF S=>C THEN GOSUB 570
520 IF C<16 THEN LOCATE0,7
530 LOCATEC,7
540 PRINT"  ";
550 LOCATE C,7
560 GOTO 190
570 L=LEN(O$)
580 FOR X=L TO 1 STEP-1
590 IF MID$(O$,X,1)=" " THEN 620
600 NEXTX
610 S=0:RETURN
620 S=X
630 RETURN
640 I$=INKEY$
650 IF I$="" THEN 640
660 PRINTASC(I$)
670 I$=INKEY$
680 IF I$="" THEN 670
690 PRINT ASC (I$)
700 GOTO 670