Classic Computer Magazine Archive PROGRAM LISTING: 88-03/SMOOTHY.M65


���d
X; SMOOTHYnX; BY KENNETH KAYExX; (c)1987, ANTIC PUBLISHING�EI�X;�
�SAVMSCX�
�CHBAS��
�DINDEXW��SETVBV\��XITVBVb��X;���7�R>�F�SK�>Q>
!�ERRORX;"�SK,76P�@7JP�T7^7h
P�SPEEDr7|7�R>y�D�SK1�$>�Q>�
!�ERROR�X;��SK1�P�LEN�7�7�P�COL�7�7P�ROW77&R>)0D�NZ1:$>DQ>N
!�ERRORXX;b�NZ1l	P�WLENv7�7�R>�D�LP�$>�Q>�
!�ERROR�X;��LP�P�REG�%>�$>��SK2�
Q�CHBASP�Q>P� Q@�7*R>�4D�SK3>$>HQ>R
!�ERROR\X;f�SK3pR> zE�SK4�,�O>@�!�SK5��SK4�R>`�E�SK5�;�S> ��SK5�	&�HOLD�>�(>�F�LP1�MULTQ�,$O>.P�8Q�BO>LP�V0`	H�MULTj�LP1t	$�HOLD~#ψH�SK6�#М�SK6�Qϰ
P�CADR9�2�Q��
P�CADR9�2�3�)�LEN�F�SK7!�SK2
X;X;BYTE ADR'S IN CADR NEXTX;CLEAR WINDOW(�SK72Q�SAVMSC<P�FQ�SAVMSCPP�ZQ�DINDEXd?nQ�MODEB8xH�H�$>�Q>�
!�ERROR�X;��H�	P�LVAL�M>��	P�HOLD�Q�ROW�F�LP3�$>�#�ROW��SK8Q�,	O�HOLD"P�,Q�6O>@P�J2T(�ROW^H�SK8h�LP3rQ�|,�O�COL�PԚPˤQծO>�P��P��	%�WLEN�
'�STORX�	Q�HOLD�,�	O�HOLD�	O�HOLD	O�HOLD	O�HOLD	O�HOLD&	P�KEEP0	"�WLEN:
Q>4�SCREENDP�N
Q>5�SCREENXP�b$>l	%�WLENv�SK10�Q@�7�P@�7�Q>�P@�7�1�	I�SK10�0�	F�SK11�Q��,�	O�HOLD�P�Q�O>P�Q� ,*
O�STORX4P�>Q�HO>RP�\	%�WLENf	!�SK10pX;z	�ERROR�?�(>�F�OUT��ELP�7�7�0�H�ELP��OUT�Q>�P��C�P�	:	�SK11	Q>$	P�TOGGLE.		Q�LVAL8	;B		S�HOLDL	
P�COLORV	Q�`	,j		O�HOLDt	P�~	Q̈	O>�	P̜		!�SK12�	X;�		�BLANK�	Q�TOGGLE�		H�OUT1�	%>�	�VLP�	
Q�DRAW8�	P@�7�	3
	)�KEEP

H�VLP
#�TOGGLE
�OUT1(
!�XITVBV2
X;<
�SK12F
Q"P
	P�OLDLZ
Q#d
	P�OLDHn
%>4�BLANKx
$>5�BLANK�
Q>�
 �SETVBV�
%>�
�SK13�
Q@�7�

P�DRAW8�
3�
	)�KEEP�
	H�SK13�
Q>4�DRAW�
P��
P�ROTADR�
Q>5�DRAWP�P�ROTADR$>"%>,�SK146Q�@,J	O�HOLDTP�^P�ROTADR8h3rQ�|O>�PՐP�ROTADR8�3�0�	H�SK14�Q>4�CADR�P��Q>5�CADR�P��Q>�P�CT2�P�ALT�P�FINVAL
P�CKLEN
Q�COLOR	H�SK15&Q>0P�REG:Q>DP�ALTN�SK15XQ�REGbR>l	H�SK16vQ>�P�REG�P�ALT��SK16�"�REG�Q�REG�F�R�R>�H�R1�Q>�!�R�X;��R1�Q> 
�R
P�REG
�B1 
%>*
Q@�74
P�>
3H
Q@�7R
P�\
%>f
$>p
�SK17z
Q@�7�
'�STORY�
P�COL�
M>�
,�
O�REG�
?�
Q�REGV8�
P�EDRAW9�
0�
Q�COL�
M>��
V?�
V?V?V?,$O�REG.?8
Q�REGV8BP�EDRAW9L
%�STORYV0`3j)>t	H�SK17~X;1 SPLIT CHARACTER IN EDRAW��PD�$>�%>�'�CT�'�CT1��SK18�Q�ROTADR8�P��3�
'�STORY�Q�ROTADR8�P�,
�PDQQ�EDRAW9U?(P�EDRAW920<Q�EDRAW9FU?PP�EDRAW9Z	%�WLENd�SK19nQ@�7xU?�P@�7�1�	I�SK19�%�CT�)>�H�GB�!�NL�X;��GB�2�#�CT�!�PDQ�X;�NL
#�STORY%>"'�CT,
%�STORY60@#�CT1JQ�CT1TR>^	H�SK18hQ>rP�TOGGLE|�WAIT�Q�TOGGLE�	F�WAIT�
Q�SPEED�F�NE1�
%�SPEED��NE2�$>���NE3�0�H�NE3�1�H�NE2��NE1#�CT2Q�CT2R>&H�PD0
#�CKLEN:%>D'�CT2N$>XQ�FINVALbH�FINISHl
Q�CKLENvR�LEN�	H�SK21�!�FINISH�X;��SK21�Q�ALT�	F�SK22�Q�REG�H�RG�Q>�P�REG�	!�SK22�X;��RGR>H�RG1Q>  P�REG*	!�SK224X;>�RG1HQ>RP�REG\�SK22fQ�p,zO>�PԎQ՘O>�Pլ!�B1�X;�
�FINISH�Q�FINVAL�
R�STORX�I�NE5�#�FINVAL�#�FINVAL�!�PDX;�NE5
Q>4�SCREEN$P�.
Q>5�SCREEN8P�BQ�L;V	S�HOLD`P�jQ�tS>~P̈$>�%>��NE4�Q@�7�P@�7�3�
)�STORX�H�NE4�Q��,�
O�STORX�P�Q�
O>P�Q�(,2	O�HOLD<P�FQ�PO>ZP�d%>n2x(>�H�NE4�Q>�	$�OLDH�	%�OLDL� �SETVBV�Q>�P��P��:�X;�	�MODEB�====
===)�(=)=)=)====)�REGV=======@=A=D=E=P=Q=T=U"===
= ="=(=*,�=�=�=�=�=�=�=�6====0=3=<=?@�=�=�=�=�=�=�=�J
�TOGGLET^�CThr�LEN|��ROW���COL���WLEN���HOLD���REG���LVAL��	�COLOR
�ROTADR&	�CKLEN0:	�EDRAWDN	�STORYXb	�STORXlv�CT1���CT2��	�SPEED���ALT��
�FINVAL���KEEP���OLDL��OLDH�CADR �*�DRAW4�>
�SCREENH@R

Back to previous page