home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 5_3lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  77 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][145][145]":z$=chr$(34):goto180
  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. 180 print"[147]"tab(16)"goto":gosub6
  10. 182 print"[147]der [129]goto-befehl ermoeglicht den [129]sprung
  11. 183 [153]"zu irgendeiner zeile des programmes.
  12. 184 gosub7:print"dabei kann entweder zu einer zeilen# vor";
  13. 185 print"dem goto-befehl oder zu einer zeilen#
  14. 186 [153]"nach dem goto-befehl gesprungen werden.":[141]7
  15. 187 [153]"bitte betrachten sie das folgende       programm:
  16. 188 gosub6:print"[147]6  print "z$"eingabe des alters"z$:print"7  input a
  17. 190 [153]"8  print"z$"alter in tagen oder in monaten"z$;:[153]"10 input b$
  18. 192 print"12 if b$="z$"tage"z$" then 18"
  19. 193 print"14 print"z$"sie sind"z$"12*a"z$"monate alt"z$
  20. 194 print"16 goto20":print"18 print"z$"sie sind"z$"365*a"z$"tage alt"z$:print"20 end
  21. 195 [141]7:[153]"dieses programm berechnet entweder das
  22. 196 print"alter in tagen oder in monaten, aber
  23. 197 [153]"nichtwait beides zusammen.":[141]7
  24. 198 [153]"wenn auf die frage von zeile 8 der
  25. 199 print"string tage[146] eingegeben wird, so bewirkt
  26. 200 [153]"dies einen sprung zu zeile 18."
  27. 201 [141]7:[153]"wird der string monatewait eingegeben, so
  28. 202 print"wird der befehl in zeile 14 ausgefuehrt,";
  29. 203 print"und zeile 16 bewirkt dann den sprung"
  30. 204 print"zu zeile 20 (zeile 18 wird ausgelassen).
  31. 205 [153]"forbitte beachten sie,dass der endwaitfor-befehl"
  32. 206 [153]"das programm in jedem fall beendet.";:[141]6
  33. 207 [153]"load5  input x":[153]"10 if x>=50 then 50":[153]"20 goto 40
  34. 208 print"30 print x*10":print"40 goto 60
  35. 209 [153]"50 print x":[153]"60 end":[141]7
  36. 210 [153]"was wird durch dieses programm gedruckt,";
  37. 211 [153]"wenn fuer x der wert 25 eingegeben wurde
  38. 213 print"1.[146] 250":print"2.[146] 25":print"3.[146] es wird nichts gedruckt":gosub7
  39. 214 print"(1, 2 oder 3)";:inputa$:ifval(a$)>3then216
  40. 215 onval(a$)goto217,217,220
  41. 216 printq$:goto207
  42. 217 print"[129]nein, da die bedingung in zeile 10 fuer":print"x=25 nicht erfuellt ist,";
  43. 218 print" wird das":print"programm mit zeile 20 fortgesetzt.
  44. 219 [141]7:[153]"versuchen sie es nochmal!":[141]6:[137]207
  45. 220 [153]"richtig!!!  es wird nichts gedruckt.
  46. 221 print"fuer x=25 wird zunaechst zeile 20 ausge-";
  47. 222 print"fuehrt, zeile 40 bewirkt dann den sprung";
  48. 223 print"zu zeile 60 (zeile 50 wird ausgelassen).":gosub6
  49. 224 print"[147]bevor sie den kurs mit lektion 6
  50. 225 [153]"fortsetzen, versuchen sie bittte ein
  51. 226 print"programm zu schreiben, dass den [156]lohn"
  52. 227 print"eines arbeiters berechnet.":gosub7
  53. 228 print"der arbeiter soll [156] dm 8.35  pro stunde
  54. 229 [153]"verdienen und fuer clrjede ueberstunde das":[153]"eineinhalbfache des ";
  55. 230 [153]"lohnes bekommen.":[153]"es soll nach eingabe der gearbeiteten"
  56. 232 [153]"stunden der lohn gedruckt werden.":[141]7
  57. 233 [153]"clrbitte notieren sie die aufgabe,         wait
  58. 234 print"bevor sie eine beliebige taste druecken.[146]":gosub6
  59. 400 c$="[255]":gosub3:print""tab(10)"ende von lektion 5
  60. 402 [153]"wenn sie bereit sind fuer lektion 6,"
  61. 403 [153]"antworten sie wie gewohnt mit (j/n)"
  62. 404 [137]7000
  63. 5000 [153]"";:[129]i[178]1[164]y1:[153]"";:[130]:[153]"on";:[129]j[178]0[164]y2[171]y1
  64. 5001 [153]"                                       ":[130]:[142]
  65. 6000 [153]"";:[129]i[178]1[164]y1:[153]"";:[130]:[153]"on";:[142]
  66. 7000 [161]a$:[139]a$[178]"n"[167]8000
  67. 7010 [139]a$[179][177]"j"[167]7000
  68. 7020 [153]"verschnaufen sie einen moment, bis"
  69. 7030 [153]"lektion 6wait geladen ist."
  70. 7040 [147]"6/1lektion",8
  71. 8000 [153]"nun koennen sie ja schon ziemlich"
  72. 8010 [153]"viel. ueben sie auch fuer sich noch"
  73. 8020 [153]"ein wenig, bis wir uns wiedersehen"
  74. 8030 [153]"bei lektion 6."
  75. 8050 [129]z[178]1[164]700:[130]z
  76. 8060 [158]64738
  77.