home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern451.d64 / kl-einmaleins (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  13KB  |  410 lines
  1. 1 REM  *********************************
  2. 2 REM  FREEWARE-PROGRAMM VON R.BRANDT          3008 GARBSEN 1 ,      FUER DEN  >
  3. 3 REM  DEUT. FREE-SOFTWARE COMP. CLUB          AUF DER HEIDE 18,3008 GARBSEN 1 .
  4. 4 REM  KOMMERZIELLE RECHTE BEIM AUTOR  .
  5. 5 REM  PROGRAMM ZUM ERLERNEN DES GROSSEN       EINMALEINS FUER 10 DM ZU ERWERBEN
  6. 7 REM  BEIM DEUT. FREE-SOFTW. COMP. CLUB       AUF DER HEIDE 18,3008 GARBSEN 1 .
  7. 8 REM  *********************************
  8. 10 DATA18 , 2 = ?,9, 1 , 2 = ?,2
  9. 11 DATA14 , 2 = ?,7, 2 , 2 = ?,4
  10. 12 DATA16 , 2 = ?,8, 3 , 2 = ?,6
  11. 13 DATA12 , 2 = ?,6, 4 , 2 = ?,8
  12. 14 DATA27 , 3 = ?,9, 5 , 2 = ?,10
  13. 15 DATA21 , 3 = ?,7, 6 , 2 = ?,12
  14. 16 DATA15 , 3 = ?,5, 7 , 2 = ?,14
  15. 17 DATA24 , 3 = ?,8, 8 , 2 = ?,16
  16. 18 DATA36 , 4 = ?,9, 9 , 2 = ?,18
  17. 19 DATA24 , 4 = ?,6,10 , 2 = ?,20
  18. 20 DATA32 , 4 = ?,8, 1 , 3 = ?,3
  19. 21 DATA16 , 4 = ?,4, 2 , 3 = ?,6
  20. 22 DATA25 , 5 = ?,5, 3 , 3 = ?,9
  21. 23 DATA40 , 5 = ?,8, 4 , 3 = ?,12
  22. 24 DATA35 , 5 = ?,7, 5 , 3 = ?,15
  23. 25 DATA30 , 5 = ?,6, 6 , 3 = ?,18
  24. 26 DATA54 , 6 = ?,9, 7 , 3 = ?,21
  25. 27 DATA42 , 6 = ?,7, 8 , 3 = ?,24
  26. 28 DATA24 , 6 = ?,4, 9 , 3 = ?,27
  27. 29 DATA36 , 6 = ?,6,10 , 3 = ?,30
  28. 30 DATA30 , 6 = ?,5, 1 , 4 = ?,4
  29. 31 DATA49 , 7 = ?,7, 2 , 4 = ?,8
  30. 32 DATA35 , 7 = ?,5, 3 , 4 = ?,12
  31. 33 DATA56 , 7 = ?,8, 4 , 4 = ?,16
  32. 34 DATA28 , 7 = ?,4, 5 , 4 = ?,20
  33. 35 DATA63 , 7 = ?,9, 6 , 4 = ?,24
  34. 36 DATA64 , 8 = ?,8, 7 , 4 = ?,28
  35. 37 DATA72 , 8 = ?,9, 8 , 4 = ?,32
  36. 38 DATA32 , 8 = ?,4, 9 , 4 = ?,36
  37. 39 DATA40 , 8 = ?,5,10 , 4 = ?,40
  38. 40 DATA56 , 8 = ?,7, 1 , 5 = ?,5
  39. 41 DATA24 , 8 = ?,3, 2 , 5 = ?,10
  40. 42 DATA81 , 9 = ?,9, 3 , 5 = ?,15
  41. 43 DATA36 , 9 = ?,4, 4 , 5 = ?,20
  42. 44 DATA45 , 9 = ?,5, 5 , 5 = ?,25
  43. 45 DATA63 , 9 = ?,7, 6 , 5 = ?,30
  44. 46 DATA54 , 9 = ?,6, 7 , 5 = ?,35
  45. 47 DATA72 , 9 = ?,8, 8 , 5 = ?,40
  46. 48 DATA27 , 9 = ?,3, 9 , 5 = ?,45
  47. 49 DATA48 , 8 = ?,6,10 , 5 = ?,50
  48. 50 DATA30 , 3 = ?,10,1 , 6 = ?,6
  49. 51 DATAX,X,X,        2 , 6 = ?,12
  50. 52 DATAX,X,X,        3 , 6 = ?,18
  51. 53 DATAX,X,X,        4 , 6 = ?,24
  52. 54 DATAX,X,X,        5 , 6 = ?,30
  53. 55 DATAX,X,X,        6 , 6 = ?,36
  54. 56 DATAX,X,X,        7 , 6 = ?,42
  55. 57 DATAX,X,X,        8 , 6 = ?,48
  56. 58 DATAX,X,X,        9 , 6 = ?,54
  57. 59 DATAX,X,X,       10 , 6 = ?,60
  58. 60 DATAX,X,X,        1 , 7 = ?,7
  59. 61 DATAX,X,X,        2 , 7 = ?,14
  60. 62 DATAX,X,X,        3 , 7 = ?,21
  61. 63 DATAX,X,X,        4 , 7 = ?,28
  62. 64 DATAX,X,X,        5 , 7 = ?,35
  63. 65 DATAX,X,X,        6 , 7 = ?,42
  64. 66 DATAX,X,X,        7 , 7 = ?,49
  65. 67 DATAX,X,X,        8 , 7 = ?,56
  66. 68 DATAX,X,X,        9 , 7 = ?,63
  67. 69 DATAX,X,X,       10 , 7 = ?,70
  68. 70 DATAX,X,X,        1 , 8 = ?,8
  69. 71 DATAX,X,X,        2 , 8 = ?,16
  70. 72 DATAX,X,X,        3 , 8 = ?,24
  71. 73 DATAX,X,X,        4 , 8 = ?,32
  72. 74 DATAX,X,X,        5 , 8 = ?,40
  73. 75 DATAX,X,X,        6 , 8 = ?,48
  74. 76 DATAX,X,X,        7 , 8 = ?,56
  75. 77 DATAX,X,X,        8 , 8 = ?,64
  76. 78 DATAX,X,X,        9 , 8 = ?,72
  77. 79 DATAX,X,X,       10 , 8 = ?,80
  78. 80 DATAX,X,X,        1 , 9 = ?,9
  79. 81 DATAX,X,X,        2 , 9 = ?,18
  80. 82 DATAX,X,X,        3 , 9 = ?,27
  81. 83 DATAX,X,X,        4 , 9 = ?,36
  82. 84 DATAX,X,X,        5 , 9 = ?,45
  83. 85 DATAX,X,X,        6 , 9 = ?,54
  84. 86 DATAX,X,X,        7 , 9 = ?,63
  85. 87 DATAX,X,X,        8 , 9 = ?,72
  86. 88 DATAX,X,X,        9 , 9 = ?,81
  87. 89 DATAX,X,X,       10 , 9 = ?,90
  88. 100 PRINT CHR$(142)
  89. 110 DIM A$(20):DIM R5(20)
  90. 120 DATA ALLES  GEMISCHT,----- EINMAL  2,----- EINMAL  3,----- EINMAL  4:
  91. 130 DATA ----- EINMAL  5,----- EINMAL  6,----- EINMAL  7:
  92. 140 DATA ----- EINMAL  8,----- EINMAL  9,PRUEFUNGS-STUFE,ANWENDUNG  BEIM
  93. 150 POKE53280,14:POKE 53281,16
  94. 200 DIM F(45)
  95. 201 REM DIMENSIONIERUNG BILDERKONSTANTE
  96. 210 DIM F1(80)
  97. 211 REM DIMENSIONIERUNG DER KONSTANTE FUER ALLES ZUSAMMEN EINM. 2- 9
  98. 215 LET N=10
  99. 220 FOR I=1 TO 50
  100. 221 REM 50 MAL LERNSPIEL UEBERSCHRIFT
  101. 230 PRINT CHR$(147);""
  102. 240 PRINT"   [166]  [166][166] [166][166][220][166] [220][166][166] [166][166][220][166] [166][166] [166]"
  103. 250 PRINT"   [166]  [166][198] [220] [220][166][205][220][166][183] [166][175][220][166] [166][175] [166]"
  104. 260 PRINT"   [166][175] [166][196] [166][166][220][166][205][220][166][175] [166][166][220][166] [166][196] [166][175]
  105. 270 [153]"   SPC(SPC( SPC(SPC( SPC((null)(null)SPC( (null)NOTSPC( SPC(  SPC( SPC(SPC( SPC(SPC(":[153]
  106. 280 [153]"  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  107. 290 [130]
  108. 300 [153]"";"LOAD"
  109. 305 [153]" (null)USRUSR VALVALVAL (null)USR(null) (null)USR(null) USRUSRUSR "
  110. 310 [153]" SGN    PEEK  SGN + SGN +  PEEK  "
  111. 320 [153]" (null)ANDAND  PEEK  (null)USR(null) (null)USRUSR  PEEK  "
  112. 330 [153]"   +  PEEK  SGN + SGN(null)   PEEK  "
  113. 340 [153]" ANDANDSQR  PEEK  SGN + SGN (null)  PEEK  "
  114. 350 [153]:[153]:[153]"LIST"
  115. 360 [153]" KLEINES E I N M A L E I N S"
  116. 370 [153]:[153]:[153]"CONT"
  117. 380 [153]" DEUTSCHER FREE SOFTWARE COMPUTER CLUB"
  118. 384 [153]" AUF DER HEIDE 18,3008 GARBSEN 1"
  119. 390 [129] I[178]1[164]5000:[130]
  120. 400 [129] RB[178]1[164]80
  121. 401 [143] KONSTANTE RB 1-80 AUF NULL SETZEN AM SPIELANFANG
  122. 410 [136] F1(RB)[178]0
  123. 420 [130] RB
  124. 430 [153] [199](147);"CONT"
  125. 440 [153]"  T R A I N I N G  K L E I N E S ":[153]:[153]"  E I N M A L E I N S
  126. 450 PRINT"[182][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][181]"
  127. 460 PRINT"[182]WAS M O E C H T E S T DU TRAINIEREN?[181]"
  128. 470 PRINT"[182]                                    [181]"
  129. 480 PRINT"[182]D U  H A S T  D I E  W A H L        [181]"
  130. 485 PRINT"[182]                                    [181]"
  131. 486 PRINT"[182]LISTE ZUM LERNEN 0[154]   EINGEBEN       [181]"
  132. 488 PRINT"[182]ALLES GEMISCHT   1[154]   EINGEBEN       [181]"
  133. 490 PRINT"[182]EINMAL  2   =    2[154]   EINGEBEN       [181]"
  134. 500 PRINT"[182]EINMAL  3   =    3[154]   EINGEBEN       [181]"
  135. 510 PRINT"[182]EINMAL  4   =    4[154]   EINGEBEN       [181]"
  136. 520 PRINT"[182]EINMAL  5   =    5[154]   EINGEBEN       [181]"
  137. 530 PRINT"[182]EINMAL  6   =    6[154]   EINGEBEN       [181]"
  138. 540 PRINT"[182]EINMAL  7   =    7[154]   EINGEBEN       [181]"
  139. 550 PRINT"[182]EINMAL  8   =    8[154]   EINGEBEN       [181]"
  140. 560 PRINT"[182]EINMAL  9   =    9[154]   EINGEBEN       [181]"
  141. 590 PRINT"[182]PRUEFUNGS-STUFE 10[154]   EINGEBEN       [181]"
  142. 595 PRINT"[182]ANWENDUNG BEIM                      [181]"
  143. 596 PRINT"[182]DIVIDIEREN      11[154]   EINGEBEN       [181]"
  144. 600 PRINT"[182][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][181]":PRINT
  145. 605 INPUT"NUMMER EINGEBEN";R1
  146. 606 IF R1>11THEN GOTO430
  147. 611 REM EINGABE DER AUSWAHL-NUMMER
  148. 612 R5(R1)=R5(R1)+1
  149. 613 REM SPIELE-ZAEHLER
  150. 615 IF R1 >11 THEN GOTO 610
  151. 616 REM ZURUECKVERZWEIGEN BEI UNGUELTIGER EINGABE
  152. 618 IF R1 = 10 THEN GOTO 1500
  153. 619 IF R1 = 11 THEN GOTO 2300
  154. 620 IF R1 = 0 THEN GOTO 1900
  155. 621 IF R1 =  3 THEN B1=10
  156. 622 IF R1 =  4 THEN B1=20
  157. 623 IF R1 =  5 THEN B1=30
  158. 624 IF R1 =  5 THEN B1=30
  159. 625 IF R1 =  6 THEN B1=40
  160. 626 IF R1 =  7 THEN B1=50
  161. 628 IF R1 =  8 THEN B1=60
  162. 630 IF R1 =  9 THEN B1=70
  163. 650 GOSUB 2500
  164. 700 LET N=10
  165. 701 REM KONSTANTE ZUR SPIELABGRENZUNG 10 AUFGABEN PRO SPIEL
  166. 710 LET W=0
  167. 711 REM KONSTANTE ZUR SPEICHERUNG DER FALSCHGERECHNETEN AUFGABEN
  168. 720 LET R=0
  169. 721 REM SPEICHERUNG DER RICHTIG GERECHNETEN AUFGABEN
  170. 800 FOR I = 1 TO N
  171. 801 REM SPIELEINGANG 1.-10 AUFGABE
  172. 805 GOSUB 1100
  173. 806 REM VERZWEIGUNG ZUM SUCHEN DER ZUFALLSZAHL
  174. 810 READ K1$,K2$,K3$,X1$,X2$,Y$
  175. 811 REM EINLESEN DER AUSGEWAEHLTEN AUFGABE
  176. 815 LET AA1=0
  177. 816 REM   AA1 = 1 - 1 FEHLER IST ERLAUBT -2 FEHLER AUFGABE = FALSCH
  178. 820 PRINT" DIE ";I;".AUFGABE   ";X1$;" MAL ";X2$
  179. 821 PRINT"                   [197][197][197][197][197][197][197][197][197][197][197][197]":PRINT
  180. 825 IF R1 = 10 THEN GOTO 1600
  181. 826 REM VERZWEIGEN ZUR ZEITUEBERPRUEFUNG BEI PRUEFUNGSSTUFE
  182. 830 IF R1 = 11 THEN GOTO 2430
  183. 832 REM EINGABE ERGEBNIS
  184. 835 INPUT"                   ERGEBNIS ";Z$:RESTORE
  185. 840 IF Y$=Z$ THEN LET R=R+1:GOSUB 1200:GOTO 860
  186. 841 REM ERGEBNIS UEBERPRUEFUNG - BEHANDLUNG RICHTIGER ERGEBNISSE
  187. 850 IF Y$<>Z$ THEN LET AA1=AA1+1:GOTO1000
  188. 851 REM FEHLERBEHANDLUNG
  189. 855 LET W=W+1:GOSUB 1410
  190. 860 PRINT"[147]"
  191. 869 REM NAECHSTE AUFGABE
  192. 870 NEXT I
  193. 871 IF R <> N THEN GOTO 882
  194. 872 REM UEBERPRUEFUNG OB ALLE AUFGABEN RICHTIG GERECHNET SIND - SONST SPIELENDE
  195. 87