home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 17 / Tiger_Disk_017_19xx_Tiger-Crew-Disk_de_Side_B.d64 / multi-master (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  97 lines
  1. 1 poke53280,11:poke53281,11
  2. 5 poke 53272,peek(53272)or2:poke646,7
  3. 10 print "[147]      [215]illkommen zu  [205]ultimaster [146]!"
  4. 20 print "   [205]it diesem [208]rogramm kannst [196]u [196]eine"
  5. 30 print "[198]aehigkeiten der [205]ultiplikation bis zu"
  6. 40 print "12 [216] 12 testen.   - [197]s stehen jeweils"
  7. 50 print "mehrere [193]ntworten zur [193]uswahl, die [196]u"
  8. 60 print "durch [196]ruecken der '[198]'-[212]asten anwaehlen"
  9. 70 print "kannst."
  10. 90 print "    [196]u hast    30 [211]ekunden   [218]eit,"
  11. 100 print "um so viele richtige [193]ntworten wie"
  12. 110 print "moeglich zu geben. - [196]ie [208]unktzahl"
  13. 120 print "richtet sich nach der [211]chwierigkeit der"
  14. 130 print "[193]ufgabe: 7[216]9 ist z.[194]. schwerer als 1[216]2."
  15. 140 print "[211]obald [196]u  f7[146]  drueckst, beginnen die"
  16. 142 print "30 [211]ekunden."
  17. 144 print spc(8)"[196][210][213][197][195][203][197] [160]f7  [218][213][205] [211][212][193][210][212]"
  18. 146 get a$:if a$=""goto 146:if asc(a$)<>136 goto 146
  19. 190 ss=ti: tc=0
  20. 200 x=rnd(0)
  21. 210 nc=0: ts=0
  22. 230 x=int(rnd(1)*12)+1:y=int(rnd(1)*12)+1
  23. 235 if y=0 and x=0 goto 230
  24. 250 x1=x+1: y1=y+1: y2=y-1
  25. 260 r(1)=x*y: r(2)=x*y1: r(3)=x*y2: r(4)=x1*y
  26. 262 if x=0 then r(2)=y+1:r(3)=y+3
  27. 264 if y=0 then r(3)=r(2)+1:r(4)=r(3)+1
  28. 270 pn=int(rnd(1)*4)+1: rem position of correct answer
  29. 280 j=1: for k=1 to 4
  30. 290 if k=pn then pr(k)=r(1):goto 310
  31. 300 j=j+1: pr(k)=r(j)
  32. 310 next
  33. 320 print "[147]"
  34. 330 print spc(10) "f1[146]  ";pr(1):print
  35. 340 print spc(10) "f3[146]  ";pr(2)
  36. 345 print spc(17)  ;x;"x";y
  37. 350 print spc(10) "f5[146]  ";pr(3):print
  38. 360 print spc(10) "f7[146]  ";pr(4):print
  39. 370 poke 198,0
  40. 400 get a$:if ti>ss+1800 goto 2000
  41. 401 if a$="" goto 400
  42. 402 n=7+2*(asc(a$)-132):l=n*40+14
  43. 404 poke 1023+l,122
  44. 406 poke 55295+l,1
  45. 408 tc=tc+1
  46. 410 if asc(a$)-132=pn then gosub 1000:goto 230
  47. 440 print spc(5);"[198][193][204][211][195][200]! - [210]ichtig ist : ";r(1)
  48. 450 for j=1 to 10 : for k=1 to 100:next:next
  49. 460 goto 230
  50. 1000 nc=nc+1
  51. 1020 if x>3 goto 1050
  52. 1030 if y<12 then ts=ts+1:return
  53. 1040 ts=ts+2: return
  54. 1050 if x>6 goto 1090
  55. 1060 if y>6 and y<10 then ts=ts+2:return
  56. 1070 if y=12 then ts=ts+4: return
  57. 1080 ts=ts+1: return
  58. 1090 if x>9  goto 1098
  59. 1091 if y>3 and y<7  then ts=ts+2:return
  60. 1092 if y>6 and y<10 then ts=ts+3
  61. 1094 if y=12 then ts=ts+5: return
  62. 1096 ts=ts+1: return
  63. 1098 if x>9 and x<12 and y<>12 then ts=ts+1: return
  64. 1099 if x>9 and x<12 and y=12 then ts=ts+5: return
  65. 1100 if y>3 and x<7 then ts=ts+4:return
  66. 1110 if y<4 then ts=ts+2: return
  67. 1120 if y=10 then ts=ts+1: return
  68. 1130 ts=ts+5: return
  69. 2000 rem
  70. 2040 xx=ts   :lc=10
  71. 2050 for k=0 to 9
  72. 2060 if hs(k)=0 then lc=k: goto 2085
  73. 2070 if hs(k)<xx then xx=hs(k):lc=k
  74. 2080 next
  75. 2085 :
  76. 2090 if lc>9 goto 2200
  77. 2100 hs(lc)=ts
  78. 2200 print "[147] [196]ein [197]rgebnis: ";ts
  79. 2202 if nc=0 or tc=0 then pt=0: goto 2210
  80. 2204 pt=int(nc/tc*100)
  81. 2210 print "  [208]rozentsatz: ";pt;"%";
  82. 2220 print " (";nc;" von ";tc;")"
  83. 2225 print
  84. 2230 print spc(5);"[196]ie bisher 10 hoechsten [208]unkte"
  85. 2235 print
  86. 2240 for k=0 to 9
  87. 2250 if hs(k)=0 goto 2270
  88. 2260 print spc(15);hs(k)
  89. 2270 next
  90. 2280 print spc(5) "[206]ochmal ?"
  91. 2290 print spc(15)"f2[146]  [202][193]"
  92. 2300 print spc(15)"f8[146]  [206]ein"
  93. 2310 get a$: if a$="" goto 2310
  94. 2320 if asc(a$)=137 goto 190
  95. 2330 if asc(a$)=140 then end
  96. 2340 goto 2310
  97.