Simple Typewriter program

[dalloff@freenet.columbus.oh.us (Dave Althoff)]

REM Since someone has been asking...
REM Here's my favorite simple typewriter program, written in 
REM Applesoft.  Just capture this post to a text file, remove
REM the headers, and EXEC it from DOS 3.3 or '-' it from ProDOS.
REM Note that I haven't tested this particular incarnation
REM On some printers, the line will not print until you press RETURN.
REM Use ^X to exit.

5 PRINT CHR$(21):PRINT CHR$(4);"PR#0":SC=0:INPUT "USE 80-COL?";YN$
7 IF YN$="Y" THEN SC=3:PRINT CHR$(4);"PR#3":PRINT:PRINT
10 HOME:PRINT "SIMPLE TYPEWRITER PROGRAM":PRINT"BY DAVE ALTHOFF, JR."
20 PRINT "(DALLOFF@FREENET.COLUMBUS.OH.US)":PRINT "USE ^X TO EXIT."
30 INPUT "PRINTER SLOT:  ";PS:IF PS<1 OR PS>7 THEN 30
40 PRINT CHR$(4);"PR#";PS
50 GET KB$:IF KB$=CHR$(24) THEN 100
60 PRINT KB$;
70 GOTO 50
100 PRINT:PRINT CHR$(4);"PR#"SC
110 HOME:END

SAVE TYPEWRITER

REM --Dave Althoff, Jr.
REM (longtime Applesoft Ace!)