home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 5_1lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  59 lines
  1. 0 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 1 poke53280,1:poke53281,1
  3. 2 z$=chr$(34):goto10
  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. 10 c$="[255]":gosub3:printtab(12)"lektion 5":print
  10. 11 printtab(9)"1. programmbeispiel
  11. 12 [153][163]9)"2. if/then-befehl":[153][163]9)"3. goto-befehl
  12. 14 printtab(9)"4. programmbeispiel":gosub6
  13. 16 print"[147]am schluss von lektion 4 wurde ihnen
  14. 17 [153]"vorgeschlagen, ein programm fuer den
  15. 18 print"durchschnittlichen benzinverbrauch auf":print"100km zu schreiben.":gosub7
  16. 20 print"hierfuer gibt es verschiedene richtige"
  17. 21 print"moeglichkeiten. eine davon ist das":print"folgende programm.":gosub6
  18. 22 print"[147]2 print "z$"kennzeichen, km, liter"z$
  19. 24 print"4 input kz$, km, l":print"6 let a = 100*l/km
  20. 26 [153]"8 print"z$"der wagen"z$"kz$"z$"verbraucht"z$"a"z$"liter";
  21. 27 [129]i[178]1[164]39:[153]"not";:[130]:[153]:[153]
  22. 28 [153]"sehen sie nun, was beim programmablauf":[153]"passiert.":[141]6:[141]7
  23. 30 [153]"forbitte geben sie ein kennzeichen und zweizahlen ein.wait":[141]7
  24. 32 [153]:[153]"kennzeichen, km, liter":[133]kz$,km,l
  25. 34 [153]"der wagen "kz$" verbraucht"100[172]l[173]km"liter":[141]6
  26. 36 [153]"load"[163]13)"if/then":[141]7:[153]"computerprogramme werden durch sprung-"
  27. 38 [153]"befehle sehr viel flexibler." :[141]7
  28. 41 [153]"betrachten sie folgendes beispiel:":[141]6
  29. 42 [153]"load 2 print "z$"eingabe des alters"z$
  30. 44 [153]" 4 input a":[153]" 6 print"z$"angabe in tagen?(ja oder nein)"z$;
  31. 46 [153]" 8 input b$":[153]"10 if b$="z$"nein"z$" then 14"
  32. 48 [153]"12 print "z$"sie sind"z$" 365*a "z$"tage alt"z$
  33. 50 [153]"14 print "z$"sie sind"z$" 12*a "z$"monate alt"z$:y1[178]10:y2[178]24
  34. 60 [129]i[178]1[164]39:[153]"not";:[130]:[153]
  35. 82 [141]7:[153]"zeile 2 bewirkt den druck von:":[153]"   eingabe des alterswait"
  36. 84 [153]: [153]"zeile 4 bewirkt die aufforderung zur
  37. 85 print"eingabe einer zahl (z.b. 10) durch das":print"zeichen ?[146].":gosub7
  38. 88 print"zeile 6 bewirkt den druck von:"
  39. 90 print"   angabe in tagen?(ja oder nein)"
  40. 92 print"zeile 8 bewirkt die aufforderung zur
  41. 94 [153]"eingabe der strings jawait oder neinwait ":[153]"durch das zeichen ?wait.
  42. 96 gosub6:gosub5000:gosub6000:print"zeile 10 bewirkt die pruefung des in b$
  43. 97 [153]"gespeicherten strings,":[153]
  44. 98 [153]"und fuer b$=nein, den sprung zu zeile 14";
  45. 99 [153]"(zeile 12 wird also ausgelassen.)
  46. 100 print:print"fuer b$=ja wird das programm mit":print"zeile 12 fortgesetzt.
  47. 102 [141]7:[153]"zeile 12 bewirkt den druck von:":[153]"   sie sind 3650 tage altwait"
  48. 104 [141]7:[153]"zeile 14 bewirkt den druck von:":[153]"    sie sind 100 monate altwait"
  49. 106 [153]"damit ist das programm beendet.";
  50. 114 [141]6
  51. 400 c$[178]"(NULL)":[141]3:[153]""[163]7)"ende von lektion 5 teil 1
  52. 403 forz=1to400:nextz
  53. 404 print"wir machen gleich weiter mit"
  54. 405 print""tab(13)"lektion5/2[146]":goto7000
  55. 5000 print"";:fori=1toy1:print"";:next:print"[145]";:forj=0toy2-y1
  56. 5001 print"                                       ":next:return
  57. 6000 print"";:fori=1toy1:print"";:next:print"[145]";:return
  58. 7000 load"5/2lektion",8
  59.