home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 2_1lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  82 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128:poke53280,1:poke53281,1
  2. 2 q$="[145]                                       [145][145]":goto100
  3. 3 print"[147]":fori=1to39:printchr$(30)c$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
  4. 4 fori=1to38:print"[157]"c$"[157]";:next:printc$
  5. 5 fori=1to23:print"[145]"c$"[157]";:next:return
  6. 6 geta$:ifa$=""then6
  7. 7 print:return
  8. 100 c$="[193]":gosub3:print""tab(15)"lektion 2":printtab(15)"1. list
  9. 110 [153][163]15)"2. run":[153][163]15)"3. variablen":[153][163]15)"4. input":[141]6
  10. 120 [137]2682
  11. 235 [153]"load"[163]15)"variablen":[141]7
  12. 240 [153]"sehen wir uns nochmal das programm aus":[153]"lektion 1 an:
  13. 260 print"10 print"chr$(34)"eingabe des alters in jahren"chr$(34)
  14. 265 print"20 input a
  15. 280 [153]"30 print"[199](34)"sie sind"[199](34)" 365*a"[199](34)"tage alt"[199](34)
  16. 290 [141]7:[153]"der buchstabe await bezeichnet eine variable":[141]7
  17. 330 [153]"eine variable ermoeglicht es, daten zu
  18. 335 print"speichern und sie spaeter abzurufen.":gosub7
  19. 340 print"der name einer variablen (zum beispiel
  20. 350 [153]"a) ist nur eine bezeichnung fuer einen":[153]"speicherplatz.":[141]7
  21. 390 [153]"der befehl in zeile 20 speichert eine":[153]"zahl(auf platz a).":[141]7
  22. 420 [153]"der befehl in zeile 30 benutzt diese":[153]"zahl fuer eine berechnung.
  23. 430 gosub6:print"[147]
  24. 460 c[178]c[170]1:[153]"variablen sind:
  25. 461 print"ein buchstabe (a)
  26. 462 [153]"ein buchstabe gefolgt von einer zahl(a7)";:[153]"zwei buchstaben (aa)
  27. 470 gosub7:print"zum beispiel:
  28. 480 [153][163]6)"a":[153][163]6)"ts":[153][163]6)"r4":[153][163]6)"q"
  29. 481 [153][163]6)"r2":[153][163]6)"d2
  30. 570 print"sind alles bezeichnungen fuer variablen":gosub7
  31. 590 print"waehrend:":printtab(6)"3z":printtab(6)"3cpo":printtab(6)"5
  32. 591 [153]"keine variablen sind."
  33. 650 [141]6:[153]"load":[153][163]6)"1. hh":[153][163]6)"2. x5":[153][163]6)"3. 7f":[153][163]6)"4. y
  34. 710 print"welche der obigen bezeichnungen ist":print"keine variable?(1,2,3 oder 4)
  35. 740 [133]a$:[145][197](a$)[137]750,750,810,750
  36. 745 [153]q$:[137]710
  37. 750 [153]"nein,das ist eine variable.":[141]7:[139]c[177]2[167]822
  38. 760 [153]"lesen sie die definition fuer variblen"
  39. 761 [153]"bitte noch einmal!":[141]6:[153]"load":[141]460
  40. 810 [153]:[129]i[178]1[164]20:[153]"das ist richtig!cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  41. 820 [153]"das ist richtig!waitcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[130]
  42. 821 [141]7
  43. 822 [153]"7f ist keine variable, weil das erste
  44. 824 print"zeichen einer variablen ein buchstabe":print"sein muss!":gosub7
  45. 826 print"nun soll gezeigt werden, wie variablen":print"benutzt werden.":gosub3000
  46. 2682 print"[147]"tab(17)"list":gosub7:print"gewoehnlich sind bei erstellung eines
  47. 2684 [153]"programmes korrekturen notwendig.":[141]7
  48. 2686 [153]"um eine auflistung des gespeicherten"
  49. 2687 [153]"programmes zu erhalten, wird der befehl":[153]" l i s t waitbenutzt.
  50. 2688 gosub7:print"sie tippen einfach den befehl  l i s t [146]"
  51. 2690 print"ein, und eine auflistung des programmes":print"erscheint.":gosub7
  52. 2692 print"[156][207]";:fori=1to38:print"[163]";:next:print"[208]";
  53. 2694 print"[157][167][157][167][157][186]";:fori=1to38:print"[157][157][164]";:next:print"[157][157][204]";
  54. 2696 print"[157][145][165][157][145][165]";
  55. 2698 print"bem.:l i s t ist ein systemkommando
  56. 2699 [153]"fn     und benoetigt keine zeilennummer.":[141]6
  57. 2700 [153]"loadwenn die auflistung eines programmteils
  58. 2701 print"erforderlich ist, wird einer der
  59. 2702 [153]"folgenden befehle gegeben:":[141]7:[141]7
  60. 2703 [153]"list -l"[163]10)"auflistung bis zeile l":[141]7
  61. 2704 [153]"list l-m"[163]8)"  auflistung von zeile l":[153][163]10)"bis zeile m"
  62. 2705 [141]7
  63. 2706 [153]"list l-"[163]10)"auflistung von zeile l":[153][163]10)"bis schluss
  64. 2707 gosub7
  65. 2708 print"list l"tab(10)"auflistung von zeile l":gosub6
  66. 2710 print"[147]"tab(18)"run":gosub7:print"nachdem ein programm im computer
  67. 2712 [153]"gespeichert ist und alle fehler
  68. 2713 print"korrigiert sind, kann es ausgefuehrt":print"werden.":gosub7:gosub7
  69. 2714 print"der entsprechende befehl heisst:  r u n [146]":gosub7:gosub7
  70. 2718 print"[156][207]";:fori=1to38:print"[163]";:next:print"[208]";
  71. 2720 print"[157][167][157][167][157][186]";:fori=1to38:print"[157][157][164]";:next:print"[157][157][204]";
  72. 2722 print"[157][145][165][157][145][165]";
  73. 2724 print"bem.:r u n  ist ein systemkommando
  74. 2725 [153]"fn     und benoetigt keine zeilennummer.":[141]6
  75. 2730 [137]235
  76. 3000 [141]6:c$[178]"atn":[141]3
  77. 3010 [153]""[163]7)"forende von lektion 2 teil 1
  78. 3030 print"[149]bitte warten sie, bis der computer
  79. 3032 [153]"teil 2 eingelesen hat.
  80. 3034 fori=1to12:print:next
  81. 3040 load"2/2lektion",8
  82.