home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 8_2lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  86 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,1:poke53281,1:q$="[145]                         [145]":goto9
  3. 3 print"[147]":fori=1to39:printc$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
  4. 4 fori=1to38:print"[157]"c$"[157]";:next:printc$
  5. 5 fori=1to23:print"[145]"c$"[157]";:next:return
  6. 7 geta$:ifa$=""then7
  7. 8 print:return
  8. 9 print"[147]"tab(4)"gosub (fortsetzung von 8.1)":gosub7:print"[147]"
  9. 111 print"[147]"
  10. 112 print" 2  let a=1":print" 4  gosub10":print" 6  print a":print" 8  goto12
  11. 114 [153]" 10 let a=a*10":[153]" 12 end"
  12. 115 [153]"was wird bei der ausfuehrung des obigen":[153]"programms gedruckt?"
  13. 116 [153]"1.wait 1       2.wait 10        3.wait nichts
  14. 118 input"(1,2 oder 3)";a$:onval(a$)goto124,130,140
  15. 119 printq$:goto111
  16. 124 print"[129]nein, sie haben nicht daran gedacht,"
  17. 125 print"dass der gosub-befehl in zeile 4 den":print"sprung zu zeile 10 bewirkt.
  18. 126 [153]"ueberlegen sie nochmal!":[141]7:[137]111
  19. 130 [153]"fornein, der return-befehl fehlt!":[137]126
  20. 140 [153]"ganz genau, es wird nichts gedruckt.
  21. 142 print"wenn a[146] gedruckt werden soll, muss
  22. 143 [153]"dem programm die folgende zeile hinzu-
  23. 144 print"gefuegt werden:":print" 11 return":gosub7
  24. 146 print"[147]"tab(13)"on...goto":print"sie wissen schon, dass der goto-befehl
  25. 148 [153]"den sprung zu einer speziellen zeile
  26. 150 print"waehrend des progrmmablaufs bewirkt.
  27. 152 [153]"der foron...gotowait-befehl bewirkt den sprung
  28. 153 print"zu einer zeile, deren nummer durch den
  29. 154 [153]"wert einer variablen oder eines terms
  30. 155 print"bestimmt wird.
  31. 156 [153]"hier ein beispiel fuer einen":[153]"foron...gotowait-befehl:
  32. 158 print"  80 on j goto 10, 90":print"angenommen, j hat den wert 1, so bewirkt";
  33. 159 print"dies den sprung zu zeile 10.
  34. 160 [153]"angenommen, j hat den wert 2, so bewirkt";
  35. 161 [153]"dies den sprung zu zeile 90.":[153]"clrhat j irgendeinen anderen wert, so wird"
  36. 162 [153]"die zeile nach zeile 80 ausgefuehrt.":[141]7
  37. 164 [153]"loadder foron...goto-befehl hat das folgende":[153]"format:"
  38. 166 [153]"forzeilen#wait on xwait goto liste von zeilen#
  39. 168 print"wobei x[146] eine variable oder ein term sein":print"kann.:
  40. 170 [153]"zwei weitere beispiele:
  41. 172 print"2  on f goto 5, 5, 6":print"14 on v+2 goto 33, 10, 2, 2":gosub7
  42. 176 print"[147]welcher der folgenden on...goto-befehle":print"ist richtig?:
  43. 178 [153]"20 on k-2 goto 10, j, 30":[153]"50 on (u-v)/l goto 68, 55, 2, 88
  44. 180 print"70 on x,y goto 89,66":input"(20, 50 oder 70)[146]";a$:ifa$="70"then190
  45. 181 ifa$="50"then200
  46. 182 ifa$="20"then184
  47. 183 printq$"[145][145]":goto180
  48. 184 print"[129]nein, dieser befehl ist nicht richtig!
  49. 185 [153]"in der liste der zeilennummern duerfen":[153]"keine variablen stehen.
  50. 186 print"ueberlegen sie nochmal!":gosub7:goto176
  51. 190 print"[129]nein, dieser befehl ist nicht richtg!"
  52. 191 print"in einem on...goto-befehl darf nicht":print"x, y[146] stehen.":goto186
  53. 200 print"richtig!!
  54. 202 [153]"zeile 20 ist nicht korrekt, da eine
  55. 203 print"variable in der liste der zeilennummern":print"steht.
  56. 204 [153]"zeile 70 ist nicht korrekt, da x, ywait "
  57. 205 [153]"in einem on...goto-befehl nicht stehen":[153]"darf.":[141]7
  58. 206 [153]"load"[163]13)"on...gosub":[153]"ein dem foron...goto sehr aehnlicher "
  59. 207 [153]"befehl ist der foron...gosubwait-befehl."
  60. 208 [153]"der foron...gosubwait-befehl bewirkt den"
  61. 209 [153]"forsprung zu einer subroutine, die durch"
  62. 210 [153]"den wert einer variablen oder eines":[153]"terms bestimmt wird.
  63. 212 print"nach dem [129]return-befehl wird das programm";
  64. 214 print"in der zeile nach dem [129]on...gosub[146]-befehl":print"fortgesetzt.
  65. 216 [153]"clrder return-befehl bewirkt also das"
  66. 218 [153]"gleiche wie im gosub-befehl.":[141]7:[153]"loadbeispiel:
  67. 220 print"7 on e gosub 5, 2
  68. 222 [153]"derfor on...gosub-befehl hat folgendes":[153]"format:"
  69. 224 [153]"forzeilen#wait on xwait gosub liste von zeilen#
  70. 226 print"wobei x[146] eine variable oder ein term sein":print"kann.":gosub7
  71. 400 c$="#":gosub3:print""tab(10)"ende von lektion 8
  72. 402 [153]""[163]1)"sind sie bereit sind fuer lektion 9 ?"
  73. 403 [153][163]16)"(j/n)"
  74. 405 [161]a$:[139]a$[178]"n"[167]500
  75. 410 [139]a$[179][177]"j"[167]405
  76. 420 [153]"clr                         "
  77. 430 [153]" auf zur letzten runde ! "
  78. 440 [153]"                         "
  79. 450 [147]"9/1lektion",8
  80. 460 [137]460
  81. 500 [153]"        beim naechsten mal         "
  82. 510 [153]"        werden wir endgueltig        "
  83. 520 [153]"        den gipfel erstuermen.       "
  84. 540 [129]i[178]1[164]700:[130]i
  85. 550 [158]64738
  86.