10  COM N$[72],F$[72],X$[3],D,R,V1,V2,P,Q,F,T,A,Q$[1],K4
20  COM W,P$[1]
30  REM PROGRAM NAME = MECHA4, BEGINS WITH 'MECHAN'
40  REM CHAINED TO MECHAN,MECHA1,MECHA5,MECHA6,MECHA7,MECHAG,MECHAT
50  GOTO 90
60  CHAIN "$MECHA5"
70  CHAIN "$MECHA6"
80  CHAIN "$MECHA7"
90  PRINT '10'10
100  D=INT(9000*RND(1)+1000)
110  D=INT(D/100)*100
120  R=INT(90000.*RND(1)+10000)
130  R=INT(R/1000)*1000
140  V1=INT(9000*RND(1)+1000)
150  V1=INT(V1/100)*100
160  F=INT(500*RND(1)+100)
170  T=INT(20*RND(1)+5)
180  A2=INT(20*RND(1)+5)
190  W=4000
200  IF R/V1<10 THEN 120
210  IF X$="A" THEN 250
220  PRINT "P =";
230  ENTER 200,W1,P
240  PRINT 
250  GOTO P OF 270,270,270,270,60,280,80
260  GOTO 300
270  END 
280  T=.5*R/V1
290  GOTO 70
300  PRINT F$", THAT'S THE END OF THIS GROUP OF PROGRAMS."
310  PRINT "HOPE THAT YOU HAVE ENJOYED LEARNING ABOUT THESE PHYSICS PROBLEMS."
320  PRINT "GOOD BYE AND GOOD LUCK."
330  END 
