home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9003a.d64 / umrechnung (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  953b  |  21 lines
  1. 0 POKE19,64:S=0:POKE53272,21:POKE53280,6:POKE53281,6
  2. 1 PRINTCHR$(8)"[147]  <<< [159]UMRECHNUNG  BY RASTO LEVRINC >>>":C$="  (1-36)"
  3. 2 A$="BASIS ZAHLENSYSTEM":PRINT"1....ROEMISCHE ZAHL":PRINT"2-36."A$
  4. 3 PRINT"EINGANGS "A$C$" :[159]";:GOSUB16:C=D:PRINT"AUSGANGS "A$C$" :[159]";:GOSUB16
  5. 4 POKE214,11:PRINT:INPUT"ZAHL EINGEBEN :[159]";D$:E$=D$:S=LEN(E$):IFS>24ORS=0GOTO4
  6. 5 R$="":E=0:RESTORE:IFC>1GOTO10
  7. 6 ON-(R$="I")GOTO4:READR$,R
  8. 7 IFR$<>MID$(E$,1,LEN(R$))GOTO6
  9. 8 E$=RIGHT$(E$,LEN(E$)-LEN(R$)):E=E+R:IFE$<>""GOTO7
  10. 9 RESTORE:S=E:GOSUB17:ON-(D$<>E$)GOTO4:E=S:GOTO12:DATAM,1000,CM,900,D,500,CD,400
  11. 10 FORA=1TOS:B=ASC(MID$(E$,A,1)):R=B-48+7*(B>64):IFR>=CORR<0GOTO4
  12. 11 E=E+INT(C^(S-A)*R):NEXT:IFE>=10^9OR(D=1AND(E>240000ORE<1))GOTO4
  13. 12 RESTORE:A$=" (":PRINT:PRINT" "D$A$C") = ";:E$="":IFD=1THENGOSUB17:GOTO19
  14. 13 R=INT(E/D):S=E-R*D:E$=CHR$(S+48-7*(S>9))+E$:E=R:IFEGOTO13
  15. 14 GOTO19:DATAC,100,XC,90,L,50,XL,40,X,10,IX,9,V,5,IV,4,I,1
  16. 15 POKE211,37:POKE214,9+S:PRINT"[145]";
  17. 16 B$="":INPUTB$:D=INT(VAL(B$)):ON-(D<1ORD>36)GOTO15:S=2:POKE214,9:PRINT:RETURN
  18. 17 READR$,R:ON-(E/R<1)GOTO17:E=E-R:E$=E$+R$:IFETHENRESTORE:GOTO17
  19. 18 RETURN
  20. 19 PRINTE$A$D")":PRINT"NOCHMAL (J/N)":POKE198,0:WAIT198,1:GETA$:IFA$<>"N"GOTO
  21.