home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 6_1lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  75 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]":z$=chr$(34):goto12
  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. 7 geta$:ifa$=""then7
  8. 8 print:return
  9. 12 c$="[216]":gosub3:print""tab(15)"lektion 6":
  10. 13 printtab(12)"1. programmbeispiel
  11. 14 [153][163]12)"2. read(NULL)data-befehle   ":[153][163]12)"3. matrizen":[141]7
  12. 16 [153]"load"[163]11)"forprogrammbeispiel":[153]
  13. 18 [153]"hier ein programm, das den lohn eines"
  14. 20 [153]"arbeiters berechnet:":[153]"2  input h
  15. 24 print"6  if h>40 then 12":print"8  print "z$"der arbeiter bekommt dm"z$"8.35*h";
  16. 25 print"10 goto 16
  17. 26 [153]"12 let s=8.35*40+(h-40)*8.35*1.5"
  18. 27 [153]"14 print "z$"der arbeiter bekommt dm"z$"s":[153]"16 end
  19. 28 print"sollte es ihnen schwerfallen solch ein
  20. 29 [153]"programm zu schreiben, lesen sie bitte
  21. 30 print"lektion 5 nocheinmal.":gosub7
  22. 32 print"[147]"tab(15)"[129]read[206]data":print"sie kennen jetzt schon 2 methoden,
  23. 33 [153]"daten in den computer einzugeben:"
  24. 34 [153]:[153]"clr1. input-befehl z.b. 4 input kwait"
  25. 36 [153]"clr2. let-befehl   z.b. 8 let h=9":[153]
  26. 38 [153]"nun soll ihnen eine clrdritte methode vor- gestellt werden.
  27. 39 print:print"zunaechst ein beispiel:":gosub7:print"[147]  2  read a$,h
  28. 40 [153]"  4  print a$,h":[153]"  6  read b$,r":[153]"  8  print b$,r
  29. 42 print" 10  data "z$"tage"z$", 40, "z$"preis"z$:print" 12  data 4.75":gosub7
  30. 44 print"die in den[129] read-befehlen stehenden      variablen";:y=1:gosub7
  31. 46 gosub900:gosub910:y=3:gosub900:gosub910:gosub7:y=9:gosub900
  32. 48 printspc(9)" erhalten ihre werte aus den in";
  33. 49 print"den [129]data-befehlen gespeicherten daten.":gosub7
  34. 50 y=5:gosub900:gosub910:y=6:gosub900:gosub910:gosub7
  35. 52 y=12:gosub900:print"im obigen beispiel wird:":print
  36. 54 print"    der string "z$"tage"z$"[146] in a$[146],":print
  37. 56 print"    die zahl 40[146] in h[146],":print
  38. 58 print"    der string "z$"preis"z$"[146] in b$[146] ":print
  39. 60 print"    und die zahl 4.75[146] in r[146]  gespeichert. "
  40. 61 print"um alle benoetigten werte zu speichern,"
  41. 62 print"kann mehr als ein data-befehl gegeben":print"werden. ";:gosub7
  42. 63 y1=12:y2=24:gosub920;:y =12:gosub900
  43. 66 print"der vorteil eines read/data-befehls     gegenueber einem input-befehl";
  44. 68 print" ist die   [129]speicherung der daten waehrend des      ";
  45. 69 print"gesamten programmablaufs.":gosub7
  46. 70 print"[147]1.[146] 15 read x,y,z":print"   18 data 10,20
  47. 74 [153]"2.wait 11 read m":[153]"   20 data "z$"ja"z$:[153]"3.wait 16 read p
  48. 75 print"   18 read n":print"   20 data 16, 29.7"
  49. 77 print"welcher der obigen read/data-befehle":input"ist richtig (1, 2 oder 3)";a$
  50. 78 onval(a$)goto84,94,102
  51. 80 printq$:goto70
  52. 84 print"[129]nein, schliesslich muessen gleich viele werte im data-befehl ";
  53. 86 gosub7:y=2:gosub900:printtab(2);:gosub910:gosub7
  54. 88 y=15:gosub900:printspc(21)"wie variablen im   read-befehl stehen.";
  55. 90 gosub7:y=1:gosub900:printtab(2);:gosub910:gosub7:y=18:gosub900
  56. 92 print"bitte, versuchen sie es nochmal!":gosub7:goto70
  57. 94 print"[129]nein, der wert im data-befehl ist ein   string,"
  58. 95 gosub7:y=5:gosub900:print"";:gosub910:gosub7:y=15:gosub900
  59. 96 printspc(8)"waehrend die variable im read-  befehl":gosub7:y=4
  60. 98 gosub900:print"";:gosub910:gosub7:y=16:gosub900:printtab(7);
  61. 100 print"eine numerische variable ist.":print:goto92
  62. 102 print"richtig!":print"bei 1[146] sind zu wenige werte im data-":print"befehl."
  63. 103 print"bei 2[146] stimmen art des wertes und art"
  64. 104 print"der variablen nicht ueberein."
  65. 210 gosub7:c$="[216]":gosub3:print"ende von lektion 6 teil 1
  66. 212 [153]"bitte warten sie, bis teil 2":[153]"eingelesen ist.
  67. 213 print"":goto930
  68. 900 print"":fori=0toy-1:print"";:next:print"[145][145]";:return
  69. 910 forj=1to15:print">";:fori=1to40:next
  70. 915 print"[157]>[146][157]";:fork=1to25:next:next:print" ":return
  71. 920 y=y1:gosub900:fori=0toy2-y1:print"                                        ";
  72. 921 next
  73. 922 gosub900:return
  74. 930 load"6/2lektion",8
  75.