Help writing FOR Loops

[CadLady]

I am been trying without success to transfer the following BASIC program into a Mathcad file.

I have problems with the FOR Loops.

Can anyone help me?

The program is as follows:

50 DIM F(10)
100 INPUT "ENTER THE STARTING RECIP WEIGHT ",WT
120 IF RR>0 GOTO 200
130 INPUT "ENTER THE STROKE ",STROKE
150 INPUT "ENTER THE CONN ROD LENGTH ",CONN
200 REM
250 OPEN "LPT1" FOR OUTPUT AS #1
450 PRINT #1," INERTIA LOADS "RINT #1," "
470 PRINT #1,USING " STROKE = ###.### CON ROD = ###.### ";STROKE,CONN
475 PRINT #1," "RINT #1," "
490 PRINT #1," ----- RPM ----- "
500 PRINT #1, "WEIGHT 600 800 1000 1200 1400 1600 1800 2000"
505 PRINT #1," "
515 FOR JJ=1 TO 50
520 WT=WT+10
530 RPM=400
540 FOR I=1 TO 8
550 RPM=RPM+200
560 FORCE=.0000142*WT*STROKE*RPM*RPM+(.0000071*WT*STROKE*STROKE*RPM*RPM/CONN)
580 F(I)=FORCE
600 NEXT I
650 PRINT #1,USING " #### ";WT;
660 FOR I=1 TO 8RINT #1,USING " ###### ";F(I);:NEXT I
670 PRINT #1,""
680 NEXT JJ
700 END

If someone could show me how to do the FOR Loops, I would be very grateful.

 

[IRstuff]

i:=0;50
j:=0;8
WT[i:=WT0+10*i
RPM[j:=400+200*j
FORCE(WT, RPM):=.0000142*WT*STROKE*RPM*RPM+(.0000071*WT*STROKE*STROKE*RPM*RPM/CONN)

FORCE(WT[i,RPM[j)=


This is an implicit FOR loop, based on the fact that Mathcad needs to evaluate the two range variables over the indices.

TTFN