1	!								&
	!								&
	!	S P I R A L						&
	!								&
	!	Written by:	JDK/MMW					&
	!			POISE Company, INC., Roswell, NM 	&
!
2	ON ERROR GOTO 19000 \ Z = CTRLC
5	PRINT CHR$(155%);"F"; \ A$ = "a"
7	M$ = "87' llaF SUCED"
10	XL% = 0% \ XR% = 79% \ YT% = 0% \ YB% = 24%
15	PRINT CHR$(155%);"H";CHR$(155%);"J";
20	PRINT FNMOVE$(YT%, X%);A$; FOR X% = XL% TO XR%
30	YB% = YB% - 2%
40	PRINT FNMOVE$(Y%, XR%);A$; FOR Y% = YT% TO YB%
50	XL% = XL% + 6%
55	IF YT% >= 10% THEN GOSUB 10000 \ GOTO 200
60	PRINT FNMOVE$(YB%, X%);A$; FOR X% = XR% TO XL% STEP -1%
70	YT% = YT% + 2%
80	PRINT FNMOVE$(Y%, XL%);A$ FOR Y% = YB% TO YT% STEP -1%
90	XR% = XR% - 3%
110	XR% = XR% - 3% \ GOTO 20
200	PRINT FNMOVE$(Y%, XR%);" "; FOR Y% = YB% TO YT% STEP -1%
210	XL% = XL% - 6%
220	PRINT FNMOVE$(YT%, X%);" "; FOR X% = XR% TO XL% STEP -1%
230	IF YT% <= 0% THEN GOTO 10
240	YB% = YB% + 2%
250	PRINT FNMOVE$(Y%, XL%);" "; FOR Y% = YT% TO YB%
260	XR% = XR% + 6%
270	PRINT FNMOVE$(YB%, X%);" "; FOR X% = XL% TO XR%
280	YT% = YT% - 2%
290	GOTO 200
10000	!
10005	PRINT CHR$(155%);"G";
10010	XR% = XR% + 1%
10020	PRINT FNMOVE$(YB%, XR%-3%-X%);MID(M$, X%, 1%); FOR X% = 1% TO LEN(M$)
10030	PRINT CHR$(155%);"F";
10040	SLEEP 4% \ PRINT CHR$(155%);"H";
10050	XR% = XR% - 1%
10090	RETURN
17000	DEF FNMOVE$(DWN%, ACR%)
17010	Z$ = CHR$(155%)+"Y"+CHR$(160%+DWN%)+CHR$(160%+ACR%)
17020	FNMOVE$ = Z$
17030	FNEND
19000	PRINT CHR$(155%);"G";CHR$(155%);"H";CHR$(155%);"J";
19010	GOTO 32767
32767	END