home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 3_1lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  76 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]":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. 100 c$="#":gosub3:print""tab(14)"lektion 3":printtab(12)"1. print
  11. 110 [153][163]12)"2. leerstelle"
  12. 120 [153][163]12)"3. tab funktion":[141]6
  13. 235 [153]"load"[163]15)"forprint":[141]7:[137]2900
  14. 2900 [153]"der forprint-befehl ermoeglicht die ueber-
  15. 3000 print"tragung von gespeicherten daten auf den":print"bildschirm.":gosub7
  16. 3030 print"ein [129]print-befehl hat folgendes format:":print:print
  17. 3040 print"[129]   zeilennummer[146]  print  ausgabe-liste[146]":print:gosub6:print"[147]
  18. 3045 [153]"in der ausgabe-liste stehen :":[153]:[141]7
  19. 3050 [153]"for  zahlen    (z.b.: 5.87, .23)":[141]7:[153]"for  variablen (z.b.: a, d2, ts)"
  20. 3055 [141]7:[153]"for  terme     (z.b.: a+d/ts)":[141]7
  21. 3056 [153]" for strings   (z.b.: "z$"nein"z$","z$"ja"z$" )
  22. 3060 gosub7:print"[129]  string-variablen (z.b.:a$, s$)":print:print:gosub7
  23. 3070 print" bem.: string-variablen werden spaeter
  24. 3075 [153]"       noch erklaert. ":[141]7
  25. 3080 [153]"nun einige beispiele fuer print-befehle:":[141]6:[153]"load12 print a, c
  26. 3100 print"13 print"z$"hallo"z$
  27. 3110 print"15 print"z$"sie sind"z$" 365*a "z$" tage alt"z$
  28. 3120 gosub7:print"bei ausfuehrung von zeile 12 werden die
  29. 3150 [153]"in den variablen a und c gespeicherten"
  30. 3160 [153]"daten gedruckt.":[141]7
  31. 3180 [153]"bei ausfuehrung von zeile 13 wird das ":[153]"wort -hallo- gedruckt."
  32. 3200 [141]7:[153]"allgemein wird jede innerhalb von
  33. 3210 print"anfuehrungszeichen stehende zeichenkette";:print"gedruckt.
  34. 3220 [141]7:[153]"bei ausfuehrung von zeile 15 wird, falls";
  35. 3250 [153]"die zahl 10 in a gespeichert wurde,":[141]7
  36. 3270 [153]"  "z$"sie sind 3650 tage alt"z$"    gedruckt.":[141]7
  37. 3280 [153]:[153]"forarithmetische ausdruecke (terme) "
  38. 3290 [153]"duerfen innerhalb des print-befehls
  39. 3295 print"benutzt werden.":gosub6
  40. 3310 print"[147]
  41. 3350 [153]"505 print c":[153]"723 print ihr guthaben betraegt $c
  42. 3365 z$=chr$(34)
  43. 3370 print"18  print"z$"  ihr guthaben  betraegt $"z$"c
  44. 3380 [153]"442 print"z$"$"z$" c+d "z$"betraegt ihr guthaben"z$ :[141]7
  45. 3385 [153]"welcher der obigen befehle ist nichtwait
  46. 3390 print"richtig (505, 723, 18 oder 442)";:inputa$
  47. 3420 ifa$="723"then3750
  48. 3430 ifa$="442"then3630
  49. 3440 ifa$="18"then3520
  50. 3442 ifa$="505"then3450
  51. 3445 printq$:goto3310
  52. 3450 print"[129]nein,zeile 505 ist richtig!
  53. 3460 [153]:[153]"angenommen, fuer c wurde der wert 102.5
  54. 3470 print"gespeichert, so wird folgendes gedruckt:
  55. 3490 [153][163]5)"102.5":[141]7:[153]"versuchen sie es nochmal!":[141]6:[137]3310
  56. 3520 [153]"fornein, zeile 18 ist richtig!
  57. 3530 print:print"angenommen fuer c wurde der wert 102.55
  58. 3540 [153]"gespeichert, so wird folgendes gedruckt:
  59. 3550 print"  ihr guthaben betraegt $102.55":gosub7
  60. 3551 print"versuchen sie es nochmal!":gosub6:goto3310
  61. 3630 gosub7:print"[129]nein, zeile 442 ist richtig!
  62. 3640 [153]:[153]"angenommen,fuer c und d wurden die werte";
  63. 3650 [153]"100 und 10 gespeichert,so wird folgendes";:[153]"gedruckt:
  64. 3660 print"   $ 110 betraegt ihr guthaben":gosub7
  65. 3690 print"der term c+d wird berechnet (110) und
  66. 3695 [153]"das ergebnis wird gedruckt.":[141]7
  67. 3700 [153]"versuchen sie es nochmal!":[141]6:[137]3310
  68. 3750 [153]"sehr gut!  der fehler ist gar nicht so":[153]"leicht zu sehen.":[141]7
  69. 3752 [153]"in zeile 723 fehlen die anfuehrungs-":[153]"zeichen.
  70. 9002 gosub6:c$="#":gosub3
  71. 9010 print""tab(7)"[129]ende von lektion 3 teil 1"
  72. 9012 printtab(2)"bitte warten sie, bis der computer
  73. 9013 [153][163]2)"teil 2 eingelesen hat.
  74. 9030 fori=1to12:print:next
  75. 9040 load"3/2lektion",8
  76.