home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
microcrn
/
issue_33.arc
/
STEP.FIG
< prev
next >
Wrap
Text File
|
1986-11-20
|
1KB
|
41 lines
5 ' RANDOM STEP ANGLE GENERATOR FOR STEPPER MOTOR OUT PARALLEL PORT
10 FOR I = 1 TO 13 : GOSUB 1000 : NEXT : ST = 10
20 AMOUNT = INT(RND * 20) -10
25 PRINT AMOUNT, ST, AMOUNT + ST
30 IF ST + AMOUNT < 0 THEN AMOUNT = ST : FOR I = 1 TO AMOUNT : GOSUB 2000 :
NEXT : GOTO 20
40 IF ST + AMOUNT > 20 THEN AMOUNT = 20 - ST : FOR I = 1 TO AMOUNT
: GOSUB 1000 :
NEXT : GOTO 20
50 IF ST + AMOUNT < ST THEN ST = ST + AMOUNT : FOR I = 1 TO AMOUNT :
GOSUB 2000 : NEXT : GOTO 20
60 IF ST + AMOUNT > ST THEN ST = ST + AMOUNT : FOR I = 1 TO AMOUNT :
GOSUB 2000 : NEXT : GOTO 20
65 IF AMOUNT = 0 THEN 20
70 PRINT "ERROR"
80 END
1000 ' GO FORWARD SUBROUTINE
1010 OUT &H18, 1
1020 X = X+1:Y = Y+1 :' These kill some time
1030 OUT &H18, 2
1040 X = X+1:Y = Y+1
1050 OUT &H18, 4
1060 X = X+1:Y=Y+1
1070 OUT &H18, 8
1080 X = X+1:Y=Y+1
1090 RETURN
2000 ' GO BACK SUBROUTINE
2010 OUT &H18,4
2020 X = X+1: Y = Y+1
2030 OUT &H18,2
2040 X = X+1:Y=Y+1
2050 OUT &H18,1
2060 X=X+1:Y=Y+1
2070 OUT &H18,8
2080 X=X+1:Y=Y+1
2110 RETURN