home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 February / 64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64 / fakult disk->prt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  401 b   |  18 lines
  1. 10 rem ********************************
  2. 20 rem *                              *
  3. 30 rem *    ausgabe der fakultaeten   *
  4. 40 rem *   von diskette auf drucker   *
  5. 50 rem *    (w) by boris brandherm    *
  6. 60 rem *                              *
  7. 70 rem ********************************
  8. 80 name$="fk"
  9. 90 open 1,8,2,name$+",s,r"
  10. 100 open 2,4
  11. 110 get #1,a$
  12. 120 c=st
  13. 130 print#2,a$;
  14. 140 if c=0 then 110
  15. 150 close 1
  16. 160 print#2,""
  17. 170 close 2
  18.