STTBRANTPORTPACTCONSOTXTROTXTCOBLDELAPAUSWLOODULHNTIMW  ""STEPPER MOTOR DRIVER PROGRAM;;BY SCOTT KILBOURNE, BILL HALL AND JON HOLCOMB (c) 1986, ANTIC PUBLISHING(06-@$F:B2y,"@06-2 AP<GET ANSWER ROUTINEFZ AP@8@@K:B A0O)@Z@P!! @H)!@W@pZ$dREFRESH CURRENT SETTINGSniAR@'-H(   TOP-----i( DISPLAY  BOTTOM--xF$( SETTINGS PRESENT-F(  SPEED---$INITIALIZE ALL VARIABLES6-@STEP 1 PHASE6-@STEP 2 PHASES6-@STEP 3 PHASES6-@ STEP 4 PHASES16-@1HALFSTEP BETWEEN PHASES 1 AND 2)6-@)HALFSTEP PHASES 2 AND 3)6-@)HALFSTEP PHASES 3 AND 4)6-@)HALFSTEP PHASES 4 AND 1!6-B@!JOYSTICK PORT 1"6-B@"PORTA CONTROLLER6-B2yCONSOLE KEYS6-AV6-AW6;A ,6. '67A ,.667@,.6-@DELAY VALUE"&6-A&TOP VALUE TO MOVE TO,)6-A)LOWEST VALUE TO MOVE TO6'@VAU'@`@ 6-J A@TMAIN PROGRAM^MASTER MENUhK6-@P6-@P%+@7AA AK A0r.-.(@ master menu|(@&AU&TURNS OFF ALL PHASES$$(@1-SET TOP OF TRAVEL(@ 2-SET BOTTOM ""(@3-PROGRAMMED MOVE(@ 4-SET SPEED(@ 5-GO UP FAST(@6-GO DOWN FAST(@ 7-MOVE TO TOP!!(@8-MOVE TO BOTTOM$$(@ "-@"(@:-@:(@ >:AY, @pGET ANSWER+ AP+ @I)!@VAP--@&@G-(@>:@0,U6-&@HUA`A`APA 0A A AA& Ap0j-@6(@=j(@&stage continues up as you hold start.:F:,@ApD((@((@ =N'@VAU'@`X @b# #6-%@lD@(#( /@;@(D( vF:,"@AF:,"@Ap 6- A0i-@6(@=i(@%stage continues downas you hold startF:,@Ap'(@'(@ = @# #6-&@D@@(#( /@;@(D( F:,"@AF:,"@$ 6- A M-@8(@= MMOVE BOTTOM TO TOPF:,@A`0(@0(@press SELECT to quit "A   A   A*  A4  A>-F:,"@A -LEAVE SUBROUTINEH  AR  A\  Af  Ap""6-%@%++!,$6@,z0@@($( 0@Ah AP-@F(@ Z-@AP^ h A0$L-@6(@ LSET SPEED OF TRAVEL,(@,(@10=slow 99=fast @p*6-&@H(@*(@ @p2(@&@H26-$@%+&@H,$@@($( 6-A&$>-@1(@= >GO UP FASTF:,@A0 @ $ . 86-%@B$@@($( LF:,"@A@V$`A-@2(@= AGO DOWN FASTjF:,@A0t @~   6-&@$@@($( F:,"@A@$DISPLAY SETTINGSH-@(,-@@1(C-@@H(-@@($)AU)TURN OFF ALL THE PHASES$$(PRESS START TO KEEP RUNNING,F:,@Ap Ap D-@6(@箮 DMOVE TO TOP"A @( 2 < F""6-%@%++!,$6@,P$@@($( ZAdF(@.(@move done B-@APF n$x:-@:(@箮 "A @   !!6-&@%++ ,$@,$@@($( A;#(@move done 7-@AP; $-@F:,"@6-@  A0$ +@TITLE SCREEN0-@@,(@ 0 ""(@ * * * * * * *"""(@ * ,""(@ *6""(@ * * * * * * * @*-@@&(@ * J.(@(@.(@ T(@ ^""(@ Ԡh!!(@ ͠r (@ Π|-(@-(@㉑(@&&(@Ӡ-@ A $1A'A @1 A4A@'A 1 A4$O@w'AdAU+=@@dOB7t@d$-6-@6-@W'6-@E-6--$@2@@-@@F:,"@6-@  6-6-6- &(%2($ D:STEPPER.BAS