Category : Files from Magazines
Archive   : ISSUE-33.ZIP
Filename : STEP.FIG

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