ACN Volume 2 No 2 April 1989

	TRY THIS
	"Message" for IBM in BASIC
	                     by Michael Hauben

(Editor's note: This program lets you type in a birthday or holiday 
greeting. To exit press Control-C.)

10 REM MESSAGE
20 REM COPYRIGHT 1985 M. HAUBEN
30 SCREEN 2: KEY OFF
40 CLS
50 LINE INPUT "Please type in a message (up to 50 characters): "; A$
60 CLS
70 A$ = " " + A$ + " "
80 LINE(190,80)   (200 + 8 * LEN(A$), 104), 1, B
90 FOR I = 1 TO LEN(A$)
100 LOCATE 12, 25, 0
110 PRINT MID$(A$, I); LEFT$(A$, I)
120 FOR A = 1 TO 200: NEXT
130 NEXT I
140 GOTO 90

===================================