home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 1_1lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  76 lines
  1. 0 poke45,peek(174):poke46,peek(175):clr:poke53281,1:poke53280,1
  2. 1 poke788,52:poke657,128:z$=chr$(34)
  3. 2 q$="[145]                                     [145][145]":goto100
  4. 3 printchr$(30)"[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. 40 print"in dieser und den folgenden"
  10. 41 print"lektionen wird ihnen der computer"
  11. 42 print"fragen stellen.":print:goto52
  12. 50 goto40
  13. 52 print"der computer wird ein ";chr$(28)" ? [146]";chr$(31)" drucken,":print
  14. 53 print"und auf die eingabe ihrer antwort":print"warten.":print
  15. 54 print"nach eingabe ihrer antwort druecken"
  16. 55 print"sie bitte die taste ";chr$(28)"  return [146]";chr$(31)".":print:print:print
  17. 56 print"sollten sie versehentlich ";chr$(28)" return [146]";chr$(31)
  18. 57 print"ohne angabe von daten druecken,"
  19. 58 print"so wiederholt das programm die frage"
  20. 59 print"solange bis sie nach der eingabe"
  21. 60 print"von zahlen  return [146] gedrueckt haben."
  22. 62 gosub6:goto103
  23. 100 c$="*":gosub3:print""tab(14)chr$(31)"lektion 1":printtab(12)"1. einleitung"
  24. 102 printtab(12)"2. zeilennummern":gosub6:print"[147]":goto50
  25. 103 print"[147]"tab(14)chr$(156)" einleitung ":print:print:print
  26. 104 printchr$(30)"basic";chr$(31)" ist eine einfache sprache, die"
  27. 105 print"es ihnen ermoeglicht, mit dem computer"
  28. 106 print"zu sprechen.":gosub7
  29. 108 printchr$(30)"basic";chr$(31)" lernen sie wie jede andere"
  30. 110 print"sprache - sie muessen die vokabeln":print"und regeln kennen.":gosub7
  31. 112 print"dieser einfuehrungs-kurs soll ihnen":print"dabei helfen.":gosub7
  32. 114 print"wie immer beim lernen einer sprache,"
  33. 116 print"macht auch hier nur die uebung den":print"meister."
  34. 118 gosub6:print"[147]sie sprechen mit dem computer,indem"
  35. 119 print"sie ihm ein ";chr$(156)" programm [146]";chr$(31)" vorschreiben."
  36. 120 gosub7:print"die entwicklung eines programms"
  37. 122 print"besteht aus zwei phasen:":print:print"1. schreiben einer liste von befehlen"
  38. 123 print"  [156] <programmieren>  und":print
  39. 124 print"2. ausfuehrung der befehle durch":print"   den computer[156] <run>.":print:print
  40. 126 print:print:print: gosub7:print"und nun ein programm-beispiel:":gosub6
  41. 128 printchr$(30)"[147]10 print"z$"eingabe des alters in jahren"z$:print"20 input a
  42. 130 [153]"30 print"z$"sie sind"z$" 365*a "z$"tage alt"z$
  43. 132 [129]i[178]1[164]39:[153][199](31)"len";:[130]:[141]7:[153]"dieses programm errechnet ihr alter
  44. 133 print"in tagen(naeherungsweise).":gosub7
  45. 134 print"sehen sie nun, was dieses programm
  46. 136 [153]"bewirkt:":[153]:[153][199](30)"bitte geben sie ihr alter ein und
  47. 137 print"druecken sie die ";chr$(28)" return [146]";chr$(30)"-taste[146]"chr$(31):gosub7
  48. 138 fori=1to39:print"[198]";:next:gosub7
  49. 139 print"eingabe des alters in jahren":inputa
  50. 140 print"sie sind "365*a" tage alt":gosub7:fori=1to39:print"[195]";:next:gosub7
  51. 141 print"moechten sie den programm-ablauf noch
  52. 142 [153]"einmal sehen(ja oder nein)";:[133]a$
  53. 143 [139]a$[178]"ja"[176]a$[178]"nein"[167]145
  54. 144 [153]q$:[137]141
  55. 145 [139]a$[179][177]"ja"[167]160
  56. 146 [137]128
  57. 160 [153][199](156)"loadund noch ein programm-beispiel":[141]7
  58. 162 [153][199](30)"10 print"z$"eingabe von grad fahrenheit"z$:[153]"20 input f"
  59. 164 [153]"30 print"z$"grad celsius = "z$"5*(f-32)/9":[141]7
  60. 166 [129]i[178]1[164]39:[153][199](31)"fre";:[130]:[141]7:[153]"sehen sie nun was dieses programm
  61. 168 print"bewirkt:":print:printchr$(30)"bitte geben sie einen wert fuer die
  62. 170 [153]"temperatur ein!wait":[141]7:[129]i[178]1[164]39:[153][199](31)"fre";:[130]
  63. 171 [153]
  64. 172 [153]"eingabe von grad fahrenheit":[133]f:[153]"grad celsius="5[172](f[171]32)[173]9
  65. 173 [129]i[178]1[164]39:[153]"fre";:[130]:[141]7
  66. 174 [153]"moechten sie den programm-ablauf noch
  67. 175 print"einmal sehen(ja oder nein)";:inputa$:ifa$="ja"ora$="nein"then177
  68. 176 printq$:goto174
  69. 177 ifa$<>"ja"then190
  70. 178 print"[147]":goto162
  71. 190 c$="[209]":gosub3:printtab(7)chr$(156)"ende  von lektion 1 teil 1"
  72. 192 print"bitte warten sie, bis der computer
  73. 194 [153]"teil 2 eingelesen hat.
  74. 196 printchr$(31)"
  75. 350 [147]"1/2lektion",8
  76.