# 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

Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/