home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / microcrn / issue_33.arc / STEP.FIG < prev    next >
Encoding:
Text File  |  1986-11-20  |  1.1 KB  |  41 lines
  1.  
  2.  
  3. 5 ' RANDOM STEP ANGLE GENERATOR FOR STEPPER MOTOR OUT PARALLEL PORT
  4. 10 FOR I = 1 TO 13 : GOSUB 1000 : NEXT : ST = 10
  5. 20 AMOUNT = INT(RND * 20) -10
  6. 25 PRINT AMOUNT, ST, AMOUNT + ST
  7. 30 IF ST + AMOUNT < 0 THEN AMOUNT = ST : FOR I = 1 TO AMOUNT : GOSUB 2000 :
  8.         NEXT : GOTO 20
  9. 40 IF ST + AMOUNT > 20 THEN AMOUNT = 20 - ST : FOR I = 1 TO AMOUNT 
  10.         : GOSUB 1000 :
  11.         NEXT : GOTO 20
  12. 50 IF ST + AMOUNT < ST THEN ST = ST + AMOUNT : FOR I = 1 TO AMOUNT :
  13.         GOSUB 2000 : NEXT : GOTO 20
  14. 60 IF ST + AMOUNT > ST THEN ST = ST + AMOUNT : FOR I = 1 TO AMOUNT :
  15.         GOSUB 2000 : NEXT : GOTO 20
  16. 65 IF AMOUNT = 0 THEN 20
  17. 70 PRINT "ERROR"
  18. 80 END
  19. 1000 ' GO FORWARD SUBROUTINE
  20. 1010 OUT &H18, 1
  21. 1020 X = X+1:Y = Y+1  :' These kill some time
  22. 1030 OUT &H18, 2
  23. 1040 X = X+1:Y = Y+1
  24. 1050 OUT &H18, 4
  25. 1060 X = X+1:Y=Y+1
  26. 1070 OUT &H18, 8
  27. 1080 X = X+1:Y=Y+1
  28. 1090 RETURN
  29. 2000 ' GO BACK SUBROUTINE
  30. 2010 OUT &H18,4
  31. 2020 X = X+1: Y = Y+1
  32. 2030 OUT &H18,2
  33. 2040 X = X+1:Y=Y+1
  34. 2050 OUT &H18,1
  35. 2060 X=X+1:Y=Y+1
  36. 2070 OUT &H18,8
  37. 2080 X=X+1:Y=Y+1
  38. 2110 RETURN
  39.  
  40.  
  41.