home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 2_2lektion (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  3.5 KB  |  87 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,1:poke53281,1:goto855
  3. 3 print"[147]":fori=1to39:printc$;: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. 855 print"[147]"tab(10)"die input-anweisung
  9. 857 [141]7:[153]"variablen werden beispielsweise zur
  10. 870 print"eingabe von daten benutzt.":gosub7
  11. 890 print"die input-anweisung erlaubt die eingabe
  12. 895 [153]"von werten fuer eine -oder mehrere
  13. 900 print"variablen auch waehrend des programm-":print"ablaufs.":gosub7
  14. 940 print"eine input-anweisung hat folgendes":print"format:
  15. 945 [153]"zeilennummerwait input liste der variablenwait
  16. 960 gosub6
  17. 1000 print"[147]zum beispiel:20 input n1,a,bb":printtab(13)"35 input x
  18. 1040 [153][163]13)"15 input y4,i":[153]"sind alles input-anweisungen,":[141]7
  19. 1070 [153]"waehrend:"[163]12)"10 input,m":[153][163]12)"25 a,b,c input"
  20. 1100 [153][163]12)"input f":[153][163]12)"40 input r s t":[141]7
  21. 1101 [153]"keine input-anweisungen sind, da
  22. 1120 gosub7:print"* in zeile 10 ein unnoetiges komma steht
  23. 1124 [153]"* in zeile 25 die variablen vor input":[153]"  stehen":[141]7
  24. 1126 [153]"* die zeilennummer bei inputfwait fehlt":[141]7
  25. 1128 [153]"* in zeile 40 die variablen nicht durch":[153]"  komma getrennt sind.
  26. 1129 gosub6
  27. 1140 print"[147]"tab(12)"15 input a0,b":printtab(12)"33 input x y z"
  28. 1145 printtab(12)"12 inputax,a1
  29. 1180 [153][163]12)"8  input q":[153]"welche der obigen bezeichnungen ist
  30. 1200 print"keine input-anweisung(15,33,12 oder 8)";:inputa$:ifa$="33"then2310
  31. 2230 ifa$="12"then2285
  32. 2232 ifa$="15"ora$="8"then2240
  33. 2234 printq$:goto1140
  34. 2240 print"nein, diese input-anweisung ist richtig!":gosub7
  35. 2245 goto2300
  36. 2285 print"nein, zeile 12 ist richtig, zwischen dem";
  37. 2286 print"wort input und der ersten variablen ist"
  38. 2287 print"kein space[146] erforderlich.":gosub 7
  39. 2300 print"bitte lesen sie die format-anweisung":print"noch einmal.":gosub6
  40. 2301 goto855:print
  41. 2310 print"":fori=1to9:print"das ist richtig![157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  42. 2320 print"das ist richtig![146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:next:gosub7
  43. 2340 print"[129]variablen muessen durch komma getrennt":print"sein.":gosub6
  44. 2345 print"[147]wenn der computer waehrend der programm-";
  45. 2370 print"ausfuehrung auf eine input-anweisung
  46. 2380 [153]"trifft, erscheint das zeichenfor ?wait auf dem
  47. 2390 print"bildschirm als aufforderung, daten ":print"einzugeben."
  48. 2391 gosub7
  49. 2420 print"der computer wartet nun, bis die
  50. 2430 [153]"entsprechenden daten eingegeben worden
  51. 2440 print"sind, und setzt dann erst die programm-":print"ausfuehrung fort.
  52. 2450 [141]7
  53. 2460 [153]"der computer erwartet fuer jede in der
  54. 2470 print"input-anweisung aufgefuehrte variable
  55. 2475 [153]"eine dateneingabe.":[141]7:[141]6
  56. 2500 [153]"loadso erfordert die anweisung:":[153][163]5)"for15 input x,y1,zz"
  57. 2530 [153]"die eingabe von drei durch komma
  58. 2540 print"getrennten zahlen als antwort auf das [129]?[146]":gosub7
  59. 2550 print"beispielsweise sollen bei der programm-
  60. 2560 [153]"ausfuehrung des obigen programms die
  61. 2576 print"folgenden zahlen eingegeben werden:":print"10, 6.25, 0.011
  62. 2600 [153]"um in x,y1 und zz gespeichert zu werden.":[141]6
  63. 2620 [153]"loadwenn nun auf die aufforderung:for":[153]
  64. 2630 [153]"     15 input x,y1,zz":[141]7:[153]"weniger als 3 zahlen eingegeben werden,
  65. 2640 print"antwortet der computer mit[129] ??[146] um anzu-
  66. 2645 [153]"zeigen, fordass mehr daten eingegeben werden";:[153]"muessen.":[141]7
  67. 2650 [153]"wenn beispielsweise nur die zahl 10 ":[153]"eingegeben wird.
  68. 2660 print"wird der computer mit [129]??[146] antworten.":gosub7
  69. 2670 print"an dieser stelle muessen mehr daten ":print"eingegeben werden: ";
  70. 2680 print"";:print"[129]? 10";:print"[157][157][157][157][157]?? 21, 35.2":gosub6
  71. 3000 c$="[193]":gosub3
  72. 3010 print""tab(11)"ende von lektion 2
  73. 3032 [153]"sind sie bereit sind fuer lektion 3 ?"
  74. 3033 [153]"(j/n)"
  75. 3034 [153]"druecken sie bitte die"
  76. 3035 [153]"entsprechende taste."
  77. 3040 [161]a$:[139]a$[178]"n" [167]3100
  78. 3050 [139]a$[179][177]"j"[167]3040
  79. 3060 [153]"einen augenblick geduld bitte."
  80. 3070 [147]"3/1lektion",8
  81. 3100 [141]3:[153]"wait"
  82. 3110 [153]"clrvielen dank fuer ihre aufmerksamkeit."
  83. 3120 [153]"auf wiedersehen bei"
  84. 3130 [153]"lektion 3"
  85. 3150 [129]z[178]1[164]600:[130]z
  86. 3160 [158]64738
  87.