home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / lern / lern451.d64 / taschenrechner (.txt) < prev    next >
Commodore BASIC  |  1995-08-09  |  15KB  |  538 lines
  1. 0 PRINTCHR$(8):DIMT$(40,40)
  2. 10 REM STOP-KEY
  3. 20 POKE53280,0:POKE53281,0:PRINTCHR$(147)
  4. 21 PRINT"[213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]"
  5. 22 PRINT"[199][150]KOPFRECHENTRAININGS-PROGRAMM FUER C64[200]"
  6. 23 PRINT"[202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]"
  7. 26 POKE53248+21,0
  8. 30 PRINT:PRINT:PRINT:PRINT:PRINT
  9. 40 PRINTTAB(7)"[213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]"
  10. 50 PRINTTAB(7)"[199][154]       COPYRIGHT       [200]"
  11. 60 PRINTTAB(7)"[199][154]          BY           [200]"
  12. 70 PRINTTAB(7)"[199][154]                       [200]"
  13. 80 PRINTTAB(7)"[202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203][154]"
  14. 82 FORT=1TO18:READA:N$=N$+CHR$(A):PRINT"";N$;
  15. 83 FORTZ=1TO100:NEXTTZ
  16. 84 NEXTT
  17. 85 FORR=9TO0STEP-1
  18. 90 PRINT"";R
  19. 95 FORT=1TO300:NEXT
  20. 100 NEXTR
  21. 110 PRINTCHR$(147)
  22. 120 REM********HAUPTMENUE**********
  23. 130 REM** 500 = AUSWAHL          **+
  24. 140 REM**1000 = ADDIEREN         **+
  25. 150 REM**1500 = SUBTRAHIEREN     **+
  26. 160 REM**2000 = MULTIPLIZIEREN   **+
  27. 170 REM**2500 = DIVIDIEREN       **+
  28. 180 REM**3000 = ANZAHL/AUFG.     **+
  29. 190 REM**3500 = SCHWIERIGKEIT    **+
  30. 200 REM**4000 = TASCHENRECHNER   **
  31. 210 REM**4500 = AUSWERTUNG       **+
  32. 220 REM****************************
  33. 500 REM            **ART DER AUFGABE***
  34. 505 PRINT"[213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]"
  35. 510 PRINT"[199][154]         ART DER AUFGABEN           [200]"
  36. 520 PRINT"[202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]"
  37. 530 PRINT:PRINT:PRINT:PRINT
  38. 540 PRINT"[213][196][196][196][196][196][196][196][196][196][201]"
  39. 550 PRINT"[199][150]AUSWAHL ![200] :"
  40. 560 PRINT"[202][198][198][198][198][198][198][198][198][198][203]"
  41. 570 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  42. 580 PRINT"[221][154]1  =  ADDITION           [221]"
  43. 590 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  44. 600 PRINT"[221][154]2  =  SUBTRAKTION        [221]"
  45. 610 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  46. 620 PRINT"[221][154]3  =  MULTIPLIKATION     [221]"
  47. 630 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  48. 640 PRINT"[221][154]4  =  DIVISION           [221]"
  49. 650 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  50. 653 PRINT"[221][154]5  =  TASCHENRECHNER     [221]"
  51. 656 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  52. 660 [153]
  53. 670 [153]"BITTE WAEHLEN SIE !!!"
  54. 680 [161]A$:[139]A$[179]"1"[176]A$[177]"5"[167] 680
  55. 690 [145][197](A$)[137]1000,1500,2000,2500,4000
  56. 1000 [143]           ******ADDITION******
  57. 1010 [141] 3000:[143]**ANZAHL DER AUFG.**
  58. 1020 [141] 3500:[143]**SCHWIERIGKEIT   **
  59. 1030 [153][199](147)
  60. 1040 [153]""
  61. 1050 [153]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  62. 1060 [153]"CHR$ DEFADDITION VON"SG"- STELLIGEN ZAHLEN LEFT$"
  63. 1070 [153]"MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASC(null)"
  64. 1080 [129]AN[178]1[164]AA
  65. 1090 [153]""
  66. 1100 [153]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$      (null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  67. 1110 [153]"CHR$CONTAUFGABE NR.   LEFT$      CHR$CONTFEHLER NR.   LEFT$"
  68. 1120 [153]""AN
  69. 1130 [153]""FA
  70. 1140 [153]"MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASC(null)      MID$ASCASCASCASCASCASCASCASCASCASCASCASCASC(null)"
  71. 1145 [139]E$[178]"ENDE"[167][153]""AA:[137]1470
  72. 1150 [153]""
  73. 1160 [153]"(null)STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  74. 1170 [153]"CHR$DEFAUFGABELEFT$ :"
  75. 1180 [153]"MID$ASCASCASCASCASCASCASC(null)"
  76. 1190 [153]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  77. 1200 [153]"CHR$            LEFT$"
  78. 1210 [153]"MID$ASCASCASCASCASCASCASCASCASCASCASCASC(null)"
  79. 1220 [139]SG[178]1[167]Z1[178][181]([187](1)[172]9):Z2[178][181]([187](1)[172]9):[137]1250
  80. 1230 [139]SG[178]2[167]Z1[178][181]([187](1)[172]99):Z2[178][181]([187](1)[172]99):[137]1250
  81. 1240 Z1[178][181]([187](1)[172]999):Z2[178][181]([187](1)[172]999)
  82. 1250 EG[178]Z1[170]Z2
  83. 1260 [153]"ONONCONT"Z1"+"Z2
  84. 1270 [153]"CONTON= ";
  85. 1280 TI$[178]"000000"
  86. 1290 [133]TE$:TE[178][197](TE$)
  87. 1295 [153]"SYSON"Z1"+"Z2
  88. 1296 [153]"SYSON=  "EG"CMD       "
  89. 1297 [129]T[178]1[164]700:[130]T
  90. 1298 [153]"ON              "
  91. 1300 [139]TE[179][177]EG[167][153]"ONFEHLER !!!"
  92. 1310 [139]TE[179][177]EG[167][129]T[178]1[164]300:[130]T
  93. 1320 [139]TE[179][177]EG[167][153]"ON          ":FA[178]FA[170]1:[137]1360
  94. 1330 [153]"ONRICHTIG !!!"
  95. 1340 [129]T[178]1[164]300:[130]T
  96. 1350 [153]"ON           "
  97. 1360 T$[178]TI$
  98. 1370 TV[178][197](T$)
  99. 1375 TZ[178]TZ[170]TV
  100. 1380 [139]TV[177]SG[172]3.5[167][153]"ONZU LANGE !!!"
  101. 1390 [139]TV[177]SG[172]3.5[167][129]T[178]1[164]300:[130]T
  102. 1400 [139]TV[177]SG[172]3.5[167][153]"ON            ":FA[178]FA[170]1:[137]1440
  103. 1410 [153]"ONKURZ GENUG !"
  104. 1420 [129]T[178]1[164]300:[130]T
  105. 1430 [153]"ON            "
  106. 1440 [130]AN
  107. 1450 E$[178]"ENDE"
  108. 1460 [137] 1090
  109. 1470 E$[178]""
  110. 1480 [129]T[178]1[164]1000:[130]T
  111. 1490 [141] 4500
  112. 1495 [138]
  113. 1500 [143]           ****SUBTRAKTION*****
  114. 1510 [141] 3000:[143]**ANZAHL DER AUFG.**
  115. 1520 [141] 3500:[143]**SCHWIERIGKEIT   **
  116. 1530 [153][199](147)
  117. 1540 [153]""
  118. 1550 [153]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  119. 1560 [153]"CHR$DEFSUBTRAKTION VON"SG"CMD-STELLIGEN ZAHLEN LEFT$"
  120. 1570 [153]"MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASC(null)"
  121. 1580 [129]AN[178]1[164]AA
  122. 1590 [153]""
  123. 1600 [153]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$      (null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  124. 1610 [153]"CHR$CONTAUFGABE NR.   LEFT$      CHR$CONTFEHLER NR.   LEFT$"
  125. 1620 [153]""AN
  126. 1630 [153]""FA
  127. 1640 [153]"MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASC(null)      MID$ASCASCASCASCASCASCASCASCASCASCASCASCASC(null)"
  128. 1645 [139]E$[178]"ENDE"[167][153]""AA:[137]1970
  129. 1650 [153]""
  130. 1660 [153]"(null)STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  131. 1670 [153]"CHR$DEFAUFGABELEFT$ :"
  132. 1680 [153]"MID$ASCASCASCASCASCASCASC(null)"
  133. 1690 [153]"(null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$"
  134. 1700 [153]"CHR$            LEFT$"
  135. 1710 [153]"MID$ASCASCASCASCASCASCASCASCASCASCASCASC(null)"
  136. 1720 [139]SG[178]1[167]Z1[178][181]([187](1)[172]9):Z2[178][181]([187](1)[172]9):[137]1750
  137. 1730 [139]SG[178]2[167]Z1[178][181]([187](1)[172]99):Z2[178][181]([187](1)[172]99):[137]1750
  138. 1740 Z1[178][181]([187](1)[172]999):Z2[178][181]([187](1)[172]999)
  139. 1750 EG[178]Z1[171]Z2
  140. 1760 [153]"CONTONON"Z1"-"Z2
  141. 1770 [153]"CONTON= ";
  142. 1780 TI$[178]"000000"
  143. 1790 [133]TE$:TE[178][197](TE$)
  144. 1795 [153]"S