home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8911a.d64 / fakultaet (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  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.