home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 3_3lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  65 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]":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 z$=chr$(34)
  10. 80 goto348
  11. 90 print"angenommen, [129]x hat den wert [129]8 und [129]y hat":print"den wert [129]25,so wird ";
  12. 91 print"folgendes gedruckt:
  13. 92 [141]7:[153][163]8)"zum donner"[163]25)"wetter":[141]6:[137]374
  14. 348 [153]"load"[163]10)"tab-funktion":[153]:[153]"eine weitere moeglichkeit, leer";
  15. 350 [153]"stellen":[153]"zu drucken, bietet die tab-funktion im"
  16. 351 [153]"print-befehl.
  17. 352 gosub7:print"jede zeile besteht aus 40 stellen, die
  18. 354 [153]"von 0 bis 39 durchnumeriert sind.":[141]7
  19. 355 [153]"tab(x) bewirkt, dass der folgende"
  20. 356 [153]"ausdruck beginnend mit der stelle"
  21. 357 [153]"x geschrieben wird."
  22. 358 [153]"so ergibt der befehl:"
  23. 359 [153]"5 printtab(5)"z$"zum donner"z$"tab(20)"z$"wetter"z$:[141]7
  24. 360 [153]"den druck von:":[153][163]5)"zum donner"[163]20)"wetter":[141]6
  25. 362 [153]"loadder besondere vorteil der tab-funktion
  26. 364 print"besteht darin, dass sie den druck einer
  27. 366 [153]"variablen anzahl von leerstellen
  28. 367 print"ermoeglicht.":print"sie schreiben innerhalb der klammern
  29. 368 [153]"statt der zahl einfach eine variable
  30. 369 print"oder einen term (siehe lektion 4).
  31. 370 [141]7:[153]"zum beispiel:
  32. 372 print"5 print tab(x)"z$"zum donner"z$"tab(y)"z$"wetter"z$:gosub7
  33. 373 goto90
  34. 374 print"[147]was wird bei dem befehl:"
  35. 375 print"2 print tab(5)"z$"mickey"z$"tab(x)"z$"maus"z$
  36. 376 gosub7:print"wenn x den wert 20 hat gedruckt?":gosub7
  37. 378 print"1. [146]     mickey"tab(23)"maus
  38. 380 [153]"2. waitmickeymaus":[153]"(1 oder 2)";:[133]a$
  39. 381 [139]a$[178]"1"[167]392
  40. 382 [139]a$[178]"2"[167]384
  41. 383 [153]q$:[137]380
  42. 384 [153]"nein, das wuerde ohne die tab-funktion
  43. 386 print"gedruckt werden.":gosub7:print"zeile 1. ist richtig, da vor dem wort
  44. 388 [153]"mickeywait und vor dem wort mauswait leer-":[153]"stellen sind.
  45. 390 gosub6:goto9002
  46. 392 print"das ist richtig!!!!
  47. 393 [153]"die erste tab-funktion bewirkt den":[153]"verschub des wortes mickywait zu";
  48. 394 [153]" spalte 5,":[153]"und die zweite tab-funktion bewirkt den
  49. 395 print"verschub des wortes maus[146] zu spalte 20.":gosub6:goto9002
  50. 9002 c$="#":gosub3
  51. 9010 print""tab(10)"[129]ende von lektion 3"
  52. 9012 printtab(1)"sind sie bereit sind fuer lektion 4 ?":print
  53. 9013 printtab(15)"(j/n)"
  54. 9014 printtab(5)"druecken sie bitte wieder"
  55. 9015 printtab(7)"die zugehoerige taste"
  56. 9020 geta$:ifa$="n"then9100
  57. 9025 ifa$<>"j"then9020
  58. 9030 print""tab(10)"[129]gleich gehts weiter"
  59. 9040 load"4/1lektion",8
  60. 9100 gosub3
  61. 9110 print""tab(12)"[129]auf wiedersehen":print:print
  62. 9120 printtab(13)"bei lektion 4"
  63. 9140 fori=1to700:nexti
  64. 9150 sys64738
  65.