home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / teach / lbasic / x3.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1995-07-06  |  109 b   |  11 lines
  1. 10  K=1
  2. 20  I=1
  3. 25  F=1
  4. 30  F=F*I
  5. 40  I=I+1
  6. 50  IF I<=K THEN 30
  7. 60  PRINT K,F
  8. 70  K=K+1
  9. 80  IF K<=10 THEN 20
  10. 90  END
  11.