home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107a.d64 / uebung (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  103 lines
  1. 10 PRINT"[147]":REM UEBUNG
  2. 20 PRINT"DRUECKEN SIE IRGENDEINE TASTE"
  3. 30 GETX$:X=RND(1):IFX$=""THEN30
  4. 40 GOTO500
  5. 100 REM UP UEBERSCHRIFT
  6. 110 PRINTTAB(5)"************************"
  7. 120 PRINTTAB(5)"*                      *"
  8. 130 PRINTTAB(5)"*        UEBUNG        *"
  9. 140 PRINTTAB(5)"*                      *"
  10. 150 PRINTTAB(5)"************************"
  11. 160 RETURN
  12. 200 REM UP UMRECHNUNG DEZIMAL IN DUALZAHL
  13. 210 DE=INT(RND(1)*255+1):D=DE
  14. 220 IFDE/2=INT(DE/2)THENDU$="0"+DU$
  15. 230 IFDE/2<>INT(DE/2)THENDU$="1"+DU$
  16. 240 DE=INT(DE/2)
  17. 250 IFDE>=1THEN220
  18. 260 RETURN
  19. 300 REM UP UMRECHNUNG DEZIMAL IN HEXZAHL
  20. 310 DE=INT(RND(1)*255+1):D=DE
  21. 320 S=INT(DE/16)
  22. 330 R=DE-S*16
  23. 340 IFR<=9THENH$=CHR$(R+48)+H$
  24. 350 IFR>9THENH$=CHR$(R+55)+H$
  25. 360 IFS>15THENDE=S:GOTO320
  26. 370 IFS=0THEN 400
  27. 380 IFS<=9THENH$=CHR$(S+48)+H$
  28. 390 IFS>9THENH$=CHR$(S+55)+H$
  29. 400 RETURN
  30. 500 PRINT"[147]":GOSUB100
  31. 510 PRINT"GEBEN SIE IHREN VOLLSTAENDIGEN"
  32. 520 INPUT"NAMEN EIN: ";NA$
  33. 600 PRINT"[147]":GOSUB100
  34. 610 PRINT"WAEHLEN SIE FOLGENDE FRAGEN AN:"
  35. 620 PRINT:PRINT"UMRECHNUNG DUALZAHL IN DEZIMALZAHL 1";
  36. 630 IFR(1)=0THENPRINT" ?";
  37. 640 PRINT:PRINT"UMRECHNUNG DEZIMALZAHL IN DUALZAHL 2";
  38. 650 IFR(2)=0THENPRINT" ?";
  39. 660 PRINT:PRINT"UMRECHNUNG HEX-ZAHL IN DEZIMALZAHL 3";
  40. 670 IFR(3)=0THENPRINT" ?";
  41. 680 PRINT:PRINT"UMRECHNUNG DEZIMALZAHL IN HEX-ZAHL 4";
  42. 690 IFR(4)=0THENPRINT" ?";
  43. 700 PRINT:PRINT"AUSWERTUNG UND ENDE   A"
  44. 710 AU$=""
  45. 720 INPUT"";AU$
  46. 730 IFAU$="A"THEN5000
  47. 740 AU=VAL(AU$):IFAU<1ORAU>4THENPRINT"[145][145][145]":GOTO720
  48. 750 ONAU GOTO 1000,2000,3000,4000
  49. 1000 PRINT"[147]":R(1)=0:REM FRAGE 1
  50. 1010 DU$=""
  51. 1020 PRINT" UMRECHNUNG DUALZAHL IN DEZIMALZAHL":PRINT:PRINT
  52. 1030 FORI=1TO8
  53. 1040 GOSUB 200
  54. 1050 PRINT" DUAL: ";TAB(17-LEN(DU$));DU$;
  55. 1060 PRINTTAB(20);:INPUT" DEZIMAL : ";DA
  56. 1070 IFDA=DTHENR(1)=R(1)+1
  57. 1080 DU$="":PRINT
  58. 1090 NEXTI
  59. 1100 FORP=1TO500:NEXTP:GOTO600
  60. 1110 :
  61. 2000 PRINT"[147]":R(2)=0:REM FRAGE 2
  62. 2010 PRINT" UMRECHNUNG DEZIMALZAHL IN DUALZAHL":PRINT:PRINT
  63. 2030 FORI=1TO8
  64. 2040 GOSUB 200
  65. 2050 PRINT" DEZIMAL :";TAB(15-LEN(STR$(D)));D;
  66. 2060 PRINTTAB(18);:INPUT" DUAL :";A$
  67. 2070 IFA$=DU$THENR(2)=R(2)+1
  68. 2080 DU$="":PRINT
  69. 2090 NEXTI
  70. 2100 FORP=1TO500:NEXTP:GOTO600
  71. 2110 :
  72. 3000 PRINT"[147]":R(3)=0:REM FRAGE 3
  73. 3010 PRINT" UMRECHNUNG HEX-ZAHL IN DEZIMALZAHL":PRINT:PRINT
  74. 3030 FORI=1TO8
  75. 3040 GOSUB 300
  76. 3050 PRINT" HEX-ZAHL :";TAB(15-LEN(H$));H$;
  77. 3060 PRINTTAB(18);:INPUT" DEZIMAL :";DA
  78. 3070 IFDA=DTHENR(3)=R(3)+1
  79. 3080 DE=0:H$="":PRINT
  80. 3090 NEXTI
  81. 3100 FORP=1TO500:NEXTP:GOTO600
  82. 3110 :
  83. 4000 PRINT"[147]":R(4)=0:REM FRAGE 4
  84. 4010 PRINT" UMRECHNUNG DEZIMALZAHL IN HEX-ZAHL":PRINT:PRINT
  85. 4030 FORI=1TO8
  86. 4040 GOSUB 300
  87. 4050 PRINT" DEZIMALZAHL :";TAB(15-LEN(STR$(DE)));D;
  88. 4060 PRINTTAB(20);:INPUT" HEX-ZAHL :";HA$
  89. 4070 IFHA$=H$THENR(4)=R(4)+1
  90. 4080 DE=0:H$="":PRINT
  91. 4090 NEXTI
  92. 4100 FORP=1TO500:NEXTP:GOTO600
  93. 4110 :
  94. 5000 PRINT"[147]":REM AUSWERTUNG
  95. 5010 PRINTTAB(13)"AUSWERTUNG"
  96. 5020 PRINTTAB(13)"**********"
  97. 5030 FORI=1TO4:E=E+R(I):NEXTI
  98. 5035 PRINT:PRINT:PRINTTAB(5)NA$:PRINT:PRINT
  99. 5040 PRINT:PRINT"  SIE ERREICHTEN";E;"VON 32 PUNKTEN.":PRINT
  100. 5050 P=E*100/32
  101. 5060 PRINT:PRINT"  DAS SIND";P;" % !"
  102. 5070 :
  103.