home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1995 November / CD_11_95.BIN / demos / share / dos / _wandel / wandel.gfa (.txt) < prev    next >
GFA-BASIC MS-DOS  |  1993-10-16  |  3KB  |  116 lines
  1. GFA-BASIC MS-DOS
  2. quelle
  3. dezi1
  4. loesung
  5. zahldez
  6. dEDURE
  7. oktal
  8. loesungdatdschiNG
  9. dezimal
  10. andere
  11. fertig
  12. oktal
  13. dual1
  14. oktal1
  15. okatl1
  16. Zahlenumrechnungen (c) 1993 by||Siegfried H
  17. bner|Obere Vorsatdt 21|91575 Windsbach||--->> Dieses Programm ist frei kopierbar <---eZ
  18. _GelesenH
  19.    Quellsystem   9Z
  20. _Dezimal|_Andere|_EndeH
  21. SCREEN
  22. ALERT
  23. 3,"Zahlenumrechnungen
  24. by||Siegfried
  25. bner|Obere
  26. Vorsatdt
  27. 21|91575
  28. Windsbach||--->>
  29. Dieses
  30. Programm
  31. kopierbar
  32. <---",1,"_Gelesen",
  33. ALERT
  34. Quellsystem
  35. ",1,"_Dezimal|_Andere|_Ende",
  36. GOSUB
  37. PRINT
  38. Von welchem Zahlensystem|wollen Sie ins Dezimale|umrechnen
  39. _Dual|_Oktal|_Hexm
  40. sung 
  41. PROCEDURE
  42. ="Von
  43. welchem
  44. Zahlensystem|wollen
  45. Dezimale|umrechnen"
  46. ="_Dual|_Oktal|_Hex"
  47. ALERT
  48. GOSUB
  49. PRINT
  50. RETURN
  51. In welches Zahlensystem soll|die Dezimalzahl umgerechnet|werden
  52. _Dual|_Oktal|_Hexe
  53. sung z
  54. PROCEDURE
  55. welches
  56. Zahlensystem
  57. soll|die
  58. Dezimalzahl
  59. umgerechnet|werden"
  60. ="_Dual|_Oktal|_Hex"
  61. ALERT
  62. GOSUB
  63. PRINT
  64. RETURN
  65. Bitte geben Sie die Dualzahl ein |
  66. PROCEDURE
  67. INPUT
  68. "Bitte
  69. geben
  70. Dualzahl
  71. =VAL("&x"+
  72. RETURN
  73. Bitte geben Sie die Oktalzahl ein 
  74. PROCEDURE
  75. INPUT
  76. "Bitte
  77. geben
  78. Oktalzahl
  79. =VAL("&o"+
  80. RETURN
  81. Bitte geben Sie die Hexzahl ein 
  82. PROCEDURE
  83. INPUT
  84. "Bitte
  85. geben
  86. Hexzahl
  87. =VAL("&h"+
  88. RETURN
  89. Bitte geben Sie die Dezimalzahl ein (
  90. PROCEDURE
  91. INPUT
  92. "Bitte
  93. geben
  94. Dezimalzahl
  95. =BIN$(
  96. RETURN
  97. Bitte geben Sie die Dezimalzahl ein (
  98. PROCEDURE
  99. INPUT
  100. "Bitte
  101. geben
  102. Dezimalzahl
  103. =OCT$(
  104. RETURN
  105. Bitte geben Sie die Dezimalzahl ein (
  106. PROCEDURE
  107. INPUT
  108. "Bitte
  109. geben
  110. Dezimalzahl
  111. =HEX$(
  112. RETURN
  113. PROCEDURE
  114. SCREEN
  115. RETURN
  116.