home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 0_einleitung (.txt) next >
Commodore BASIC  |  2023-02-26  |  5KB  |  109 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke53281,1:poke53280,1
  2. 2 poke788,52:poke657,128:goto1020
  3. 3 print"[147]":fori=1to39:printchr$(28)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. 7 fori=1to3000:next:return
  7. 9 print"[147]
  8. 10 [153][163]27)       "(NULL)      (NULL)"
  9. 20 [153][163]27)" wait       "
  10. 30 [153][163]27)" wait       "
  11. 40 [153][163]27)" wait       "
  12. 50 [153][163]27)" wait       "
  13. 60 [153][163]27)"(NULL)      (NULL)"
  14. 70 [153]
  15. 80 [153][163]23)"steptab(tab(tab(tab(tab(cbmtab(tab(tab(tab(tab(tab((NULL)"
  16. 90 [153][163]23)"  sinsinsinsinsinsinsinsinsinsin fre  "
  17. 100 [153][163]23)"  sinsinsinsinsinsinsinsinsinsin fre  "
  18. 110 [153][163]23)"  sinsinsinsinsinsinsinsinsinsin fre  "
  19. 120 [153][163]23)"             fre  "
  20. 130 [141]7:[137]190
  21. 140 [153][199](31)""[163]9)" on on on on(NULL)on(NULL)on(NULL)
  22. 150 goto370
  23. 190 print"
  24. 200 [153]"    step  "
  25. 210 [153]"     wait   waitstep"
  26. 220 [153]"     wait  ";:[153][199](28)" (NULL)wait"
  27. 230 [153][199](31)"    (NULL)  wait"
  28. 240 [153]"      wait"
  29. 250 [153][199](30)"   step       waitstep"
  30. 260 [153]"  step cbm wait"
  31. 270 [153]" stepwaitstep     wait"
  32. 280 [153]"stepwaitstep sinsinsinsinsinwait"
  33. 290 [153]"        wait"
  34. 300 [153][199](144)"        wait"
  35. 310 [153]"        wait"
  36. 320 [153]"     wait   wait"
  37. 330 [153]"     wait   wait"
  38. 340 [153]"     wait   wait"
  39. 350 [153][199](30)" step  wait     (NULL)wait"
  40. 360 [141]7:[137]140
  41. 370 [153]""[163]12)"(NULL)tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab((NULL)"
  42. 380 [153][163]11)"(NULL)    hallo cbm !!  (NULL)"
  43. 390 [153][163]11)      "(NULL)                  (NULL)"
  44. 400 [153][163]11)      " (NULL)totototototototototototototototo(NULL)"
  45. 410 [141]7
  46. 500 [153]"";:[129]i[178]1[164]7:[153][163]11)"                     ":[130]
  47. 550 [129]i[178]1[164]1000:[130]
  48. 600 [153]"":[129]i[178]1[164]12:[153]"";:[130]
  49. 610 [153][199](28)[163]26)"(NULL)cmdcmd(NULL)cmdcmd(NULL)cmdon(NULL)cmdon(NULL)cmdon(NULL)"
  50. 612 [129]i[178]1[164]200:[130]
  51. 690 [153]"
  52. 700 printtab(14)"   [206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]
  53. 710 [153][163]14)"  (NULL)   2 input a$       (NULL)
  54. 720 printtab(14)" [206]4ifa$<>"chr$(34)"basic"chr$(34)"thenstop[205]
  55. 730 [153][163]14)" (NULL)    6 go to 2         (NULL)
  56. 740 printtab(14)"  [205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206]
  57. 790 [141]7
  58. 800 [153][199](31)"";:[129]i[178]1[164]6:[153][163]14)"                         ":[130]
  59. 802 [153]"":[129]i[178]1[164]12:[153]"";:[130]
  60. 804 [153][163]26)" cmdcmd cmdcmd cmdon cmdon cmdon "
  61. 810 [129]i[178]1[164]1000:[130]
  62. 820 [153]""[163]9)" on on on on(NULL)on(NULL)on(NULL)
  63. 840 print""tab(3)" [206][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][205]
  64. 850 [153][163]3)"(NULL) ich muss wohl erst basicwait lernen, (NULL)
  65. 860 printtab(3)"[205] um mit meinem cbm zu sprechen ?! [206]
  66. 870 [153]"    (NULL)totototototototototototototototototototototototototototototototo(NULL)
  67. 895 gosub7
  68. 900 print"":fori=1to12:print"";:next
  69. 910 printtab(29);
  70. 920 fori=1to20:printchr$(28)"jaa!";
  71. 925 forj=1to50:next
  72. 930 print"[157][157][157][157]jaa![146][157][157][157][157]";:next
  73. 1000 gosub7:print"[147]":goto1028
  74. 1020 c$="[215]":gosub3:printchr$(31)""tab(7)"[146]b a s i c  m i t  c b m
  75. 1021 [153][199](28)""[163]3)"e i n e   e i n f u e h r u n g":[153][199](31);
  76. 1022 [153][163]17)"step  (NULL)":[153][163]17)" wait    waitstep":[153][163]17)" wait   ";
  77. 1023 [153][199](28)[163]17)" (NULL)wait":[153][199](31)[163]17)"(NULL)  waitstep"
  78. 1026 [141]7:[137]9
  79. 1028 [153][199](31)"loadbem.:wait der computer wird ihnen
  80. 1030 print"gelegenlich zeit zum lesen
  81. 1031 [153]"des textes lassen.
  82. 1032 printtab(8)"wenn sie bereit sind weiter":printtab(8)"zu machen,
  83. 1033 [153][163]8)"druecken sie eine":[153][163]8)"beliebige taste"
  84. 1034 [153][163]8)"genau wie jetzt!"
  85. 1035 [161]a$:[139]a$[178]""[167]1035
  86. 1036 [153]"loadlektion titel ";:[153][199](28)" inhaltsverzeichnis "
  87. 1040 [153]"valvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalvalval"
  88. 1050 [153][199](31)"  1wait...einleitung, zeilennummern
  89. 1052 print"  2[146]...list, run, variablen, input
  90. 1054 [153]"  3wait...print, tab, leerzeichen"
  91. 1056 [153]"  4wait...zahlen, strings, terme,
  92. 1057 print"      hierarchie, let, beispiel"
  93. 1058 print"  5[146]...if...then, goto, beispiel"
  94. 1060 print"  6[146]...read[206]data, matrizen"
  95. 1061 print"  7[146]...schleifen, for...next, beispiel"
  96. 1062 print"  8[146]...gosub, on[164]goto, on[164]gosub"
  97. 1064 print"  9[146]...save, load"
  98. 1065 print" 10[146]...farbsteuerung, graphik"
  99. 1066 print" 11[146]...beispiele"
  100. 1068 print:print:printchr$(28)"nach druecken einer beliebigen taste"
  101. 1069 print"beginnen wir mit der lektion 1."
  102. 1990 c$="[215]"
  103. 1995 geta$:ifa$=""then1995
  104. 2000 gosub3:print"":fori=1to5:print:next
  105. 2010 printtab(3)"bitte warten sie, bis der computer
  106. 2020 [153][163]3)"lektion "1" in seinen speicher
  107. 2021 printtab(3)"eingelesen hat."
  108. 2030 fori=1to15:print:next:load"1/1lektion",8
  109.