home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 1_2lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  93 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke53281,1:poke53280,1
  2. 2 poke788,52:poke657,128:goto100
  3. 7 geta$:ifa$=""then7
  4. 8 print:return
  5. 10 fori=1to39:printchr$(30)c$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";:fori=1to38:print"[157]"c$"[157]";
  6. 12 next:printc$:fori=1to23:print"[145]"c$"[157]";:next:return
  7. 34 )
  8. 100 print"[147]"tab(12)chr$(156)"zeilennummer[146]":gosub8
  9. 900 printchr$(31)"ein basic-programm besteht aus einer
  10. 940 [153]"liste von anweisungen, die nachein-
  11. 950 print"ander der ";chr$(156)" zeilennummer [146]";chr$(31)" entsprechend"
  12. 951 print"ausgefuehrt werden.":gosub8
  13. 970 print"jede anweisung muss eine ";chr$(156)" zeilennummer [146]"
  14. 971 printchr$(31)"haben.":gosub8
  15. 990 print"mit eingabe der anweisung ist deren
  16. 1000 [153]"position im programm durch die ";[199](156)" zeilen-wait"
  17. 1001 [153]"nummer wait";[199](31)" festgelegt."
  18. 1010 [141]8:[141]8
  19. 1020 [153]"am folgenden programm soll nun die
  20. 1030 print"bedeutung der ";chr$(156)" zeilennummer [146]";chr$(31)" illustriert"
  21. 1040 print"[145]werden.":gosub7
  22. 1050 printchr$(30)"[147]10 print"chr$(34)"eingabe des alters in jahren"chr$(34)
  23. 1055 print"20 input a
  24. 1060 [153]"30 print"[199](34)"sie sind"[199](34)"365*a"[199](34)"tage alt"[199](34)
  25. 1072 [153]:[129]i[178]1[164]39:[153][199](31)"tab(";:[130]i:[141]8
  26. 1090 [153]"angenommen, es soll das alter sowohl in
  27. 1100 print"tagen als auch in monaten berechnet":print"werden,
  28. 1110 [141]8:[153]"dann geben sie folgende anweisung ein:":[153]
  29. 1120 [153][199](30)"35 print"[199](34)"sie sind"[199](34)"12*a "[199](34)"monate alt
  30. 1130 print:printchr$(31)"dies ergibt automatisch:"
  31. 1135 fori=1to38:print"[164]";:nexti:print:print
  32. 1140 printchr$(30)"10 print"chr$(34)"eingabe des alters in jahren"chr$(34)
  33. 1150 print"20 input a
  34. 1160 [153]"30 print"[199](34)"sie sind"[199](34)"365*a"[199](34)"tage alt"[199](34)
  35. 1170 [153]"35 print"[199](34)"sie sind"[199](34)"12*a "[199](34)"monate alt
  36. 1380 gosub7:printchr$(31)"[147]sehen sie nun, was das neue programm"
  37. 1390 print"bewirkt:":gosub8:gosub8
  38. 1402 printchr$(30)"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]
  39. 1404 [153]"fnbitte tippen sie ihr alter ein."[163]38)"then
  40. 1406 print"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]":gosub8
  41. 1430 print:printchr$(31)"eingabe des alters in jahren ":inputa
  42. 1440 print"sie sind"365*a" tage alt
  43. 1450 [153]"sie sind"12[172]a" monate alt":[153]:[141]7
  44. 1530 [153]"loadsicherlich fragen sie sich,warum die
  45. 1540 printchr$(156)" zeilennummern [146]";chr$(31)" im originalprogramm
  46. 1550 [153]"immer ein vielfaches von 10 sind.":[141]8
  47. 1560 [153]"dies ermoeglicht das einschieben von
  48. 1570 print"neuen anweisungen, falls das programm
  49. 1575 [153]"veraendert werden soll.":[141]8
  50. 1590 [153][199](156)" zeilennummer wait";[199](31)" kann jede zahl von 0"
  51. 1591 [153]"bis 63999 sein.":[141]8
  52. 1610 [153]"die ";[199](156)" zeilennummer wait";[199](31)" ermoeglicht das "
  53. 1620 [153]"aendern oder loeschen von gegebenen":[153]"anweisungen.":[141]7
  54. 1640 [153]"loadangenommen, die zeile 145 im folgenden
  55. 1650 print"programm soll geaendert werden.":gosub8
  56. 1670 printchr$(30)"135 print"chr$(34)"eingabe von zwei zahlen"chr$(34)
  57. 1680 print"140 input a,b
  58. 1690 [153]"145 print"[199](34)"das produkt ist"[199](34)"a+b":[153]
  59. 1700 [129]i[178]1[164]38:[153][199](31)"tab(";:[130]i:[153]:[141]8
  60. 1710 [153]"nun wird eingetippt:
  61. 1730 printchr$(30)"145 print"chr$(34)"die summe ist"chr$(34)"a+b":gosub8
  62. 1750 printchr$(31)"das abgeaenderte programm sieht
  63. 1760 [153]"folgendermassen aus:"
  64. 1765 [129]i[178]1[164]38:[153]"to";:[130]i:[153]:[153]
  65. 1770 [153][199](30)"135 print"[199](34)"eingabe von zwei zahlen"[199](34)
  66. 1780 [153]"140 input a,b
  67. 1790 print"145 print"chr$(34)"die summe ist"chr$(34)"a+b":gosub8
  68. 1795 printchr$(31)"(beachten sie die veraenderung in":print" zeile 145!)":gosub7
  69. 1810 print"[147]eine anweisung wird durch eingabe der
  70. 1820 [153][199](156)" zeilennummer wait";[199](31)" geloescht.":[141]8
  71. 1850 [153]"um alle zeilen eines programms zu
  72. 1851 print"loeschen (d.h. den speicher fuer ein
  73. 1852 [153]"neues programm frei zu machen),
  74. 1860 gosub8:print"tippen sie den befehl ";chr$(28)" n e w [146]";chr$(31)"ein.":gosub8:gosub8
  75. 1870 printchr$(28)"[207]";:fori=1to37:print"[163]";:next:print"[208]
  76. 1880 [153]"fn"[163]38)"then":[153]"fn"[163]38)"then":[153]"(NULL)";:[129]i[178]1[164]37:[153]"to";:[130]:
  77. 1885 [153]"sqronononon";
  78. 1890 [153]"bem.:n e w ist ein systemkommando
  79. 1900 print"und erfordert keine zeilennummer":gosub7
  80. 2220 c$="[216]":print"[147]":gosub10
  81. 2250 print""tab(11)"ende von lektion 1
  82. 2255 [153][199](31)"sind sie bereit fuer lektion 2 ?"
  83. 2256 [153][199](28)"druecken sie bitte die taste"
  84. 2257 [153]"j   fuer ja"
  85. 2258 [153]"n   fuer nein
  86. 2259 geta$:ifa$="j"then9000
  87. 2260 ifa$<>"n"then2259
  88. 2270 printchr$(30)"[147]auf wiedersehen bei"
  89. 2280 printchr$(28)"              lektion 2[146]"
  90. 2300 forz=1to700:nextz
  91. 2310 sys64738
  92. 9000 load"2/1lektion",8
  93.