home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 November / 64er_Magazin_89-11_1989_Markt__Technik_de_Side_A.d64 / fakultaet (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.3 KB  |  44 lines
  1. 100 dr=4:open4,3:print#4:close4
  2. 110 dimx$(1):x$(0)="n
  3. 120 [153]"loadfakultaetsberechnung"
  4. 130 [153]" (w) christian preinesberger"
  5. 140 [153]"      nikolaus heusler"
  6. 150 [153]" (c) 64'er":[153]"zahl";
  7. 160 [133]a:[139]a[179]1[176]a[177]99[167][138]
  8. 170 [153]"druckerausgabe? (j/n/_)
  9. 180 geta$:ifa$="_"thenrun
  10. 190 ifa$="n"thendr=3:goto210
  11. 200 ifa$<>"j"then180
  12. 210 gosub460:open4,dr:cmd4
  13. 220 ifdr=4thenprint:print"fakultaet":print"preinesberger/heusler/64'er":print
  14. 230 ze$="01":forqw=2toa:za$=ze$
  15. 240 zb$=mid$(str$(qw),2):gosub310
  16. 250 ifleft$(ze$,1)="0"thenze$=mid$(ze$,2):goto250
  17. 260 iflen(zb$)<3thenzb$=" "+zb$:goto260
  18. 270 printzb$;"! = ";ze$:zg$=str$(len(ze$))
  19. 280 ifzethenprint" (zeit: "left$(ti$,2)":"mid$(ti$,3,2)":"mid$(ti$,5)", laenge:";
  20. 290 ifzethengosub510:printzg$" ziffer"x$(-(len(ze$)=1))")":print
  21. 300 nextqw:print#4:close4:end
  22. 310 fors=1tolen(zb$):is=0:zc$="":m=val(mid$(zb$,s,1)):forz=len(za$)to1step-1
  23. 320 e=val(mid$(za$,z,1))*m+is:e$=mid$(str$(e),2):iflen(e$)=1thenzc$=e$+zc$:is=0
  24. 330 iflen(e$)=2thenzc$=right$(e$,1)+zc$:is=val(left$(e$,1))
  25. 340 nextz:ifis<>0thenzc$=mid$(str$(is),2)+zc$
  26. 350 iflen(zb$)=2ands=1thenzd$=zc$:nexts
  27. 360 iflen(zb$)=2then380
  28. 370 iflen(zb$)=1thenze$=zc$:return
  29. 380 ze$=right$(zc$,1):is=0:zc$="00"+zc$:fort=1tolen(zd$)
  30. 390 e=val(mid$(zd$,len(zd$)-t+1,1))
  31. 400 e=e+val(mid$(zc$,len(zc$)-t,1))+is
  32. 410 e$=mid$(str$(e),2)
  33. 420 iflen(e$)=1thenis=0:ze$=e$+ze$
  34. 430 iflen(e$)=2thenis=val(left$(e$,1)):ze$=right$(e$,1)+ze$
  35. 440 nextt:ze$=mid$(str$(is),2)+ze$
  36. 450 return
  37. 460 print"daten-ausgabe? (j/n/_)
  38. 470 [161]a$:[139]a$[178]"_"[167][138]
  39. 480 [139]a$[178]"n"[167]ze[178].:[142]
  40. 490 [139]a$[179][177]"j"[167]470
  41. 500 ze[178]1:ti$[178]"000000":[142]
  42. 510 [139][195](zg$)[179]4[167]zg$[178]" "[170]zg$:[137]510
  43. 520 [142]
  44.