home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1995 November / CD_11_95.BIN / demos / share / dos / _wandel / wandel.lst < prev    next >
File List  |  1993-10-16  |  1KB  |  52 lines
  1. SCREEN 18
  2. ALERT 3,"Zahlenumrechnungen (c) 1993 by||Siegfried Hübner|Obere Vorsatdt 21|91575 Windsbach||--->> Dieses Programm ist frei kopierbar <---",1,"_Gelesen",d%
  3. DO
  4.   ALERT 2,"   Quellsystem   ",1,"_Dezimal|_Andere|_Ende",quelle
  5.   ON quelle GOSUB dezimal,andere,fertig
  6.   PRINT
  7. LOOP
  8. PROCEDURE andere
  9.   txt$="Von welchem Zahlensystem|wollen Sie ins Dezimale|umrechnen"
  10.   txt1$="_Dual|_Oktal|_Hex"
  11.   ALERT 2,txt$,1,txt1$,dezi1
  12.   ON dezi1 GOSUB dual,oktal,hex
  13.   PRINT "Lösung ",dez%
  14. RETURN
  15. PROCEDURE dezimal
  16.   txt2$="In welches Zahlensystem soll|die Dezimalzahl umgerechnet|werden"
  17.   txt1$="_Dual|_Oktal|_Hex"
  18.   ALERT 2,txt2$,1,txt1$,dez1
  19.   ON dez1 GOSUB dual1,oktal1,hex1
  20.   PRINT "Lösung ",loesung$
  21. RETURN
  22. PROCEDURE dual
  23.   INPUT "Bitte geben Sie die Dualzahl ein ",dual$
  24.   dez%=VAL("&x"+dual$)
  25. RETURN
  26. PROCEDURE oktal
  27.   INPUT "Bitte geben Sie die Oktalzahl ein ",oktal$
  28.   dez%=VAL("&o"+oktal$)
  29. RETURN
  30. PROCEDURE hex
  31.   INPUT "Bitte geben Sie die Hexzahl ein ",he$
  32.   dez%=VAL("&h"+he$)
  33. RETURN
  34. PROCEDURE dual1
  35.   INPUT "Bitte geben Sie die Dezimalzahl ein ",zahldez%
  36.   loesung$=BIN$(zahldez%)
  37. RETURN
  38. PROCEDURE oktal1
  39.   INPUT "Bitte geben Sie die Dezimalzahl ein ",zahldez%
  40.   loesung$=OCT$(zahldez%)
  41. RETURN
  42. PROCEDURE hex1
  43.   INPUT "Bitte geben Sie die Dezimalzahl ein ",zahldez%
  44.   loesung$=HEX$(zahldez%)
  45. RETURN
  46. PROCEDURE fertig
  47.   SCREEN 3
  48.   CLS
  49.   END
  50. RETURN
  51.  
  52.