Newsgroups: comp.sys.apple2 Path: blue.weeg.uiowa.edu!news.uiowa.edu!hobbes.physics.uiowa.edu!math.ohio-state.edu!uwm.edu!spool.mu.edu!caen!crl.dec.com!crl.dec.com!pa.dec.com!acme.freenet.columbus.oh.us!dalloff From: dalloff@freenet.columbus.oh.us (Dave Althoff) Subject: Simple Typewriter program Message-ID: Date: Wed, 9 Nov 1994 10:39:24 -0500 (EST) X-Received: by usenet.pa.dec.com; id AA27752; Wed, 9 Nov 94 07:57:09 -0800 X-Received: by pobox1.pa.dec.com; id AA18792; Wed, 9 Nov 94 07:57:07 -0800 X-Received: from acme.freenet.columbus.oh.us by inet-gw-1.pa.dec.com (5.65/10Aug94) id AA01173; Wed, 9 Nov 94 07:50:54 -0800 X-Received: by acme.freenet.columbus.oh.us (8.6.9/5.901231) id KAA22352; Wed, 9 Nov 1994 10:49:38 -0500 X-To: comp.sys.apple2.usenet@decwrl.dec.com X-Mime-Version: 1.0 X-Content-Type: TEXT/PLAIN; charset=US-ASCII Lines: 28 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!)