home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 3_2lektion (.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 z$=chr$(34):q$="[145][145]                                      [145][145]":goto240
  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. 240 print"[147]"tab(10)"leerstellen":gosub6
  10. 241 print"[147]um ausdruecke in der ausgabeliste von-
  11. 242 [153]"einander zu trennen, werden forkommata (,)":[153]"bzw. semikola (;) benutzt."
  12. 244 [153]"durch forsemikolon voneinander getrennte
  13. 245 print"[129]zahlen oder variablen werden [129]mit einer
  14. 246 [153]"leerstelle in dieselbe zeile gedruckt.
  15. 247 print"durch [129]semikolon voneinander getrennte
  16. 248 [153]"forstrings oder stringvariablen werden
  17. 250 print"[129]ohne zwischenraum nacheinander gedruckt.
  18. 251 [153]"zum beispiel bewirkt der befehl:
  19. 252 print" 4 print 2.2;-4;0.75;"z$"abc"z$";"z$"def"z$
  20. 254 gosub7:print"das schreiben von:":print" 2.2 -4  .75 abcdef":gosub7
  21. 255 print
  22. 256 print"bitte beachten sie: links von der zahl
  23. 257 [153]"wird immer eine stelle fuer das zeichen":[153]"(-) freigelassen.
  24. 258 :gosub6
  25. 260 print"[147]jede zeile ist in vier zonen zu je "
  26. 261 print"zehn stellen aufgeteilt."
  27. 262 print"diese zonen beginnen in den spalten":print"1, 11, 21 und 31."
  28. 263 gosub7
  29. 264 print"wird in der ausgabeliste ein [129]komma
  30. 265 [153]"benutzt, so wird der dem forkomma folgende
  31. 266 print"ausdruck [129]in die naechste zone gedruckt."
  32. 268 print"zum beispiel bewirkt der befehl:":print"7 print 18,-12,"z$"grad"z$
  33. 270 print"den druck von:":print" 18"tab(10)"-12"tab(20)"grad":gosub7
  34. 272 print"[145]123456789012345678901234567890123456789":print"^"tab(10)"^"tab(20)"^
  35. 274 [153]"bitte beachten sie: links von der zahl
  36. 275 print"wird eine stelle fuer das minus (-)":print"zeichen freigelassen.
  37. 276 [141]6:[153]"loadist das letzte zeichen der ausgabeliste
  38. 278 print"ein [129]semikolon, so wird der [129]zeilenvor-"
  39. 279 print"schub unterdrueckt.":gosub7
  40. 280 print"d.h. der naechste print-befehl wird in
  41. 281 [153]"     derselben zeile ausgefuehrt.
  42. 282 print"zum beispiel bewirkt der befehl:
  43. 283 [153]"   8 print "z$"zum donner"z$";":[153]"   9 print "z$"wetter"z$
  44. 284 [141]7:[153]"den druck von:":[153]"   zum donnerwetter":[141]6
  45. 285 [153]"loadbetrachten sie nun folgende befehle:"
  46. 286 [153]"5 print a,"z$"katzen"z$";
  47. 288 print"7 print"z$" und hunde"z$:gosub7:print"angenommen, die variable a[146]";
  48. 289 print" hat den wert 16: welche der folgenden zeilen wird
  49. 290 [153]"dann gedruckt?"
  50. 291 [153]"1. wait 16 katzen":[153]"   wait und hunde
  51. 292 print"2. [146] 16"tab(13)"katzen und hunde":print"3. [146] 16katzen"tab(14)"und hunde
  52. 294 [153]"(1, 2 oder 3)wait";:[133]a$:[153]
  53. 295 [139][197](a$)[177]3[167]298
  54. 296 [145][197](a$)[137]299,302,299
  55. 298 [153]q$:[137]294
  56. 299 [153]"nein, das ist nicht richtig!"
  57. 300 [153]:[153]"bitte versuchen sie es nochmal!":[141]6:[137] 285
  58. 302 [153]"das ist richtig!!!!
  59. 303 print"das komma nach der variablen a in zeile 5":gosub6
  60. 304 print""tab(8)" [157]";:fori=1to50:print"a[146]";:print"[157]";
  61. 305 print"a";:print"[157]";:nexti
  62. 306 geta$:ifa$=""then306
  63. 308 print"
  64. 310 [153]"onsorgt dafuer, dass das wort katzen "
  65. 311 [153]"erst ab spalte 11 gedruckt wird.";:[141]6
  66. 312 [129]i[178]1[164]4:[153]"on";:[130]:[129]i[178]1[164]4:[153]"                                       "
  67. 313 [130]:[129]i[178]1[164]5:[153]"on";:[130]
  68. 320 [153]"das semikolon nach dem string "z$"katzen"z$"wait
  69. 321 print"sorgt dafuer, dass der string "z$"und hunde"z$"[146] "
  70. 322 print"[145]in die gleiche zeile geschrieben wird.   ":gosub6
  71. 9002 c$="#":gosub3
  72. 9010 print""tab(8)"[129]ende von lektion 3 teil 2"
  73. 9012 printtab(5)"bitte warten sie bis teil 3,":printtab(5)"eingelesen ist.
  74. 9014 [153]"":[147]"3/3lektion",8
  75.