home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 7_1lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  77 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,1:poke53281,1:goto16
  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"":fori=0toy-1:print"";:next:print"[145][145]";:return
  9. 11 forj=1to15:print">";:fori=1to40:next:print"[157]>[146][157]";:fork=1to20:next:next:print" ":return
  10. 13 y=y1:gosub9:fori=0toy2-y1:print"                                       ":next
  11. 14 gosub9:return
  12. 15 fori=1to1000:next:return
  13. 16 z$=chr$(34):c$="[166]":gosub3:print""tab(12)"lektion 7"
  14. 17 printtab(9)"1. schleifen
  15. 18 [153][163]9)"2. for...next-befehle":[153][163]9)"3. rem-anweisung
  16. 19 printtab(9)"4. programmbeispiel":gosub7
  17. 20 print"[147]"tab(12)"schleifen":gosub7:print"eine der nuetzlichsten eigenschaften
  18. 22 [153]"ihres cbm 64 ist die moeglichkeit, sich"
  19. 23 [153]"oft wiederholende vorgaenge einfach
  20. 24 print"und schnell auszufuehren.":gosub7
  21. 32 print"[147]es soll nun an einem programm zur
  22. 33 [153]"berechnung verschiedener arbeitsloehne"
  23. 34 [153]"der gebrauch von forschleifen illustriert ":[153]"werden:"
  24. 36 [141]7:[153]" 95  read n$,r,h":[153]" 100 if n$="z$"ende"z$" then 755
  25. 38 print" 110 print"z$"der lohn fuer"z$"n$"z$"betraegt"z$"r*h";
  26. 39 print" 115 goto 95
  27. 40 [153]" 120 data "z$"r. braun"z$", 3.50, 40":[153]" 125 data "z$"k. blau"z$",3.75, 20
  28. 42 print" 130 data "z$"hans dampf"z$", 4.00, 38
  29. 44 [153]" 140 data "z$"anna ros"z$", 4.10, 40":[153]" 199 data "z$"ende"z$", 0, 0
  30. 46 print" 755 end":gosub7:print"das obige programm wiederholt die
  31. 47 [153]"befehle der zeilen 95 bis 115,
  32. 48 gosub7:fory=6to9:gosub9:gosub11:next:y=18:gosub9
  33. 50 printtab(31)"solange":print"bis in zeile 199 ende[146] und die werte 0,"
  34. 51 print"0 eingelesen worden sind.":gosub7
  35. 52 y=14:gosub9:gosub11:gosub7:y=22:gosub9:print"die[129] schleife wird durch den ";
  36. 53 print"goto[146]-befehl":print"in zeile 115 geschlossen.
  37. 54 [141]7:y[178]9:[141]9:[141]11:[141]7
  38. 55 y1[178]17:y2[178]23:[141]13:y[178]17:[141]9
  39. 56 [153]"der if-befehl in zeile 100 beendet die":[153]"forschleife,sobald endewait";
  40. 58 [153]" eingelesen wurde.":[141]7:y[178]7:[141]9:[141]11:[141]7:y[178]20:[141]9
  41. 60 [153]"der eigentliche wert dieses programmes
  42. 61 print"wird erst offensichtlich, wenn es fuer
  43. 62 [153]"viele arbeiter durchgefuehrt wird.":[141]7:y2[178]24:[141]13:[141]9
  44. 64 [153]"um das programm fuer mehr arbeiter aus-
  45. 65 print"zufuehren,muessen nur mehr data-befehle"
  46. 66 print"gegeben werden (fuer jeden arbeiter":print"einer).[145]":gosub7
  47. 72 gosub13:gosub9:print"[156]ein quiz!":gosub7:c=0:gosub13
  48. 74 print"wie oft fuehrt der computer befehl 95":print"aus":y=6
  49. 75 gosub9:gosub11:y=18:gosub9:input"(1, 4 oder 5) mal ";a$
  50. 76 ifa$<>"1"anda$<>"4"anda$<>"5"thenprintq$:print"[145][145][145][145]":goto74
  51. 77 gosub13:y=17:gosub9:ifa$="5"andc=0then98
  52. 78 ifa$="5"andc=1then100
  53. 79 ifa$="5"then104
  54. 80 ifa$="4"then92
  55. 82 c=c+1:print"[129]nein, denken sie daran, dass der
  56. 83 [153]"forgotobefehl die wiederholung der befehle"
  57. 84 [153]"in den zeilen 95 bis 115 bewirkt.":[141]7
  58. 85 [153]"derfor ifbefehl beendet die schleife erst,"
  59. 86 [153]"wenn durch den befehl in zeile 199 endewait":[153]"eingelesen wurde.
  60. 88 gosub7:y=14:gosub9:gosub11:gosub7:gosub13
  61. 90 y=17:gosub9:print"versuchen sie es nochmal!":gosub7:gosub13:y=17
  62. 91 gosub9:gosub74
  63. 92 print"[129]nein, 4 mal ist nicht richtig."
  64. 93 print"beachten sie, dass zeile 95 fuer jeden
  65. 94 [153]"data-befehl einschliesslich zeile 199":[153]"einmal ausgefuehrt wird.
  66. 95 gosub7:print"versuchen sie es nochmal!":c=c+1:gosub7
  67. 96 gosub13:y=17:gosub9:goto74
  68. 98 print"auf anhieb richtig!!":gosub7:goto106
  69. 100 print"beim zweiten versuch richtig!":gosub7:goto106
  70. 104 print"richtig.
  71. 106 [153]"der read-befehl wird 5 mal ausgefuehrt,"
  72. 107 [153]"fuer jeden daten-befehl einmal.
  73. 210 gosub7:c$=" ":gosub3:print"ende von lektion 7 teil 1
  74. 211 [153]"bitte warten sie, bis teil 2
  75. 212 print"eingelesen ist.
  76. 214 [147]"7/2lektion",8
  77.