5  IF  ERROR  THEN 400
10  PRINT " THIS PROGRAM WILL GIVE THE FACTORIALS OR THE FACTORS"
20  PRINT " OF ANY GIVEN NUMBER. IN THE FACTORIAL MODE THE PROGRAM"
30  PRINT " CAN HANDLE NUMBERS UP TO AND INCLUDING 33. OTHERWISE THE"
40  PRINT " OUTPUT EXCEEDS THE NUMERICAL LIMIT FOR THE COMPUTER."
50  PRINT 
60  PRINT " DO YOU WANT THE FACTORIAL MODE(Y OR N)";
70  INPUT H$
80  IF H$="Y" THEN 280
90  PRINT "HOW MANY #'S DO YOU WANT FACTORED";
100  INPUT A
110  FOR C=1 TO A
120  PRINT "WHAT NUMBER DO YOU WISH FACTORED";
130  INPUT X
140  PRINT 
150  PRINT 
160  PRINT X
170  PRINT "------------------------"
180  FOR Z=1 TO SQR(X)
190  Y=X/Z
200  IF Y#INT(Y) THEN 220
210  PRINT Z,X/Z
220  NEXT Z
230  PRINT 
240  PRINT 
250  PRINT 
260  NEXT C
270  GOTO 400
280  PRINT " HOW MANY NUMBERS DO YOU WANT THE FACTORIAL OF";
290  INPUT F
300  FOR C=1 TO F
310  PRINT " WHAT NUMBER DO YOU WANT THE FACTORIAL OF";
320  INPUT L
330  FOR X=(L-1) TO 1 STEP -1
340  L=L*X
350  NEXT X
360  PRINT L
370  PRINT 
380  PRINT 
390  NEXT C
400  CHAIN R,"*HELP"
410  SYSTEM X,"BYE"
420  END 
