home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 4_1lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  78 lines
  1. 0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 1 poke53280,1:poke53281,1
  3. 2 q$="[145][145]                                     [145]":goto18
  4. 3 print"[147]":fori=1to39:printc$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
  5. 4 fori=1to38:print"[157]"c$"[157]";:next:printc$
  6. 5 fori=1to23:print"[145]"c$"[157]";:next:return
  7. 6 geta$:ifa$=""then6
  8. 7 print:return
  9. 9 gosub7:print"ueberlegen sie nochmal!":gosub6:print"[147]
  10. 10 [142]
  11. 12 [142]
  12. 13 z$[178][199](34)
  13. 14 [129]i[178]1[164]42:[153]"cmd cmd";:[130]:[153]"on":[129]i[178]1[164]u
  14. 15 [153]"                                       on on";:[130]:[153]:[142]
  15. 18 z$[178][199](34)
  16. 20 c$[178]"(NULL)":[141]3:[153]""[163]12)"lektion 4":[153][163]12)"1.zahlen
  17. 30 printtab(12)"2.strings":printtab(12)"3.terme":printtab(12)"4.hierarchie
  18. 40 [153][163]12)"5.let-befehl
  19. 42 printtab(12)"6.beispiel
  20. 50 [141]6:[153]"load":[153]"der computer kann eine grosse menge
  21. 55 print"daten verarbeiten.":gosub7
  22. 60 print"aber, was sind (in basic) daten?":print:print"es gibt [129]zwei arten von daten:"
  23. 65 gosub7:printtab(9)"zahlen und strings[146]":gosub7
  24. 67 print"zahlen sind konstanten, entweder mit":print"oder ohne dezimalpunkt.
  25. 70 [141]7:[153]"zum beispiel:":[153][163]15)"15":[153][163]15)"1129.92"
  26. 75 [153][163]15)"0.0012":[153][163]15)"-101":[153][163]15)"-1.25"
  27. 80 [141]7:[153]"bem.:in basic wird ein dezimalpunkt und"
  28. 81 [153]"     kein dezimalkomma geschrieben.":[153]
  29. 82 [153][163]5)"0,1 ist falsch, es heisst 0.1 ":[141]6:[153]"load"
  30. 83 [153][163]12)"a. -10111":[153]:[153][163]12)"b.  .129":[153]:[153][163]12)"c. dm24.75"
  31. 84 [153]:[153][163]12)"d. 2001":[153]
  32. 85 [153]"welche der obigen zahlen wird in basic":[153]"nichtwait akzeptiert";
  33. 86 [153]"(a,b,c oder d)";
  34. 95 [133]a$:[153]:[139] a$[178]"b"[137]110
  35. 96 [139]a$[178]"d"[137]125
  36. 97 [139]a$[178]"c"[137]135
  37. 98 [139]a$[178]"a"[167]100
  38. 99 [153]q$:[153]"load":[137]83
  39. 100 [153]"fornein, die zahl -10111 ist richtig!":
  40. 102 [153]"es handelt sich um eine negative zahl.":[141]9:[137]83
  41. 110 [153]"fornein, die zahl .129 ist eine richtig":[153]"geschriebene dezimalzahl."
  42. 111 [141]7:[153]"andere moegliche formate sind:"
  43. 112 [153]"     0.129 oder 0.1290 oder  .1290":[141]7
  44. 114 [153]"(nullen vor dem komma und angehaengte
  45. 115 print" nullen werden vom computer vernach-":print" laessigt.)"
  46. 116 gosub9:goto83
  47. 125 print"[129]nein, die zahl 2001 ist richtig.":gosub9:goto83
  48. 135 print"ganz recht, dm darf in einer zahl nicht":print"vorkommen.":gosub7
  49. 137 print"dm24.75 ist ein beispiel fuer einen":print"string."
  50. 150 gosub6:print"[147]"tab(15)"strings":print"strings sind zeichenketten bestehend"
  51. 155 print"aus kombinationen von buchstaben, zahlen";
  52. 156 print"und sonderzeichen.
  53. 160 [141]7:[153]"hier einige beispiel fuer strings:":[153]:[153][163]12)"$":[141]7
  54. 165 [153][163]12)"eingabe des alters in jahren";:[141]7
  55. 166 [153][163]12)"das gehalt betraegt $":[153]
  56. 170 [153][163]12)"r2d2 and c3p0":[141]12:[153]:[141]7
  57. 175 [153]"strings ermoeglichen die eingabe von
  58. 177 print"nicht-numerischen informationen in den":print"computer.":gosub6:print"[147]"
  59. 180 print"welche der folgenden aussagen ist":print"richtig:":gosub7:print"1. 12345"tab(25);
  60. 185 print"-ist eine zahl":print:print"2. alles klar ?"tab(25)"-ist ein string"
  61. 190 print"3.27.maerz 1978 bln"tab(25)"-ist ein string":print"4. 12345"tab(25);
  62. 195 print"-ist ein string":print"5. alle obigen aussagen sind richtig.
  63. 196 [153]"(1, 2, 3, 4 oder 5)";:[133]a$:[153]
  64. 197 [139][197](a$)[177]5[167]199
  65. 198 [145][197](a$)[137]202,202,202,202,210
  66. 199 [153]q$:[137]196
  67. 202 [153]"richtig, aber es gibt eine bessere":[153]"antwort!":[141]9:[137]180
  68. 210 [153]"das ist richtig!":[153]"vielleicht sind sie erstaunt, dass 12345wait";
  69. 215 [153]"sowohl eine zahl als auch ein string ist
  70. 220 print"es kommt dabei ganz darauf an, wie 12345[146]";:print"programmiert wurde.
  71. 230 [141]7:[153]"in einem string koennen alle auf dem
  72. 235 print"tastenfeld vorkommenden zeichen stehen.":gosub6 :print"[147]
  73. 345 [153][163]25);
  74. 400 c$[178]"(NULL)":[141]3:[153]"forende von lektion 4 teil 1
  75. 402 printtab(2)"der computer laedt jetzt teil 2
  76. 403 [153][163]2)"nach,for bitte warten.
  77. 410 load"4/2lektion",8
  78.