home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / uebung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.