home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 11_1lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  31 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,0:poke53281,o
  3. 5 c$="[216]"
  4. 10 print"[147][158]":fori=1to39:printc$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
  5. 12 fori=1to38:print"[157]"c$"[157]";:next:printc$
  6. 14 fori=1to23:print"[145]"c$"[157]";:next
  7. 20 print""tab(13)"[150]lektion 11"
  8. 25 geta$:ifa$=""then25
  9. 30 print"[147]":print"folgende beispiele koennen sie mit dem"
  10. 40 print"[150]load-befehl nachladen:"
  11. 50 print"11/2lektion :[150] ballbewegungen"
  12. 60 print"11/3lektion :[150] abschreibungsprogramm"
  13. 70 print"11/4lektion :[150] adressenliste"
  14. 80 print"11/5lektion :[150] mittelwert und":printtab(14)"standardabweichung"
  15. 90 print"11/6lektion :[150] wortspiel"
  16. 100 print"11/7lektion :[150] zuordnung"
  17. 105 geta$:ifa$=""then105
  18. 107 print"[147]"
  19. 110 print"[158]bem.: haben sie das programm ge-"
  20. 120 printtab(6)"laden, so koennen sie es mit [129]<run>[158]";
  21. 140 print"      starten.":printtab(6)"moechten sie das [129]programmlisting[158]"
  22. 150 printtab(6)"sehen, so druecken sie dann die "
  23. 160 printtab(6)"[129]stop-taste[158] und geben [129]<list>[158] ein."
  24. 170 print"und nun viel spass beim betrachten der"
  25. 180 print"beispiele und ihren ersten eigenen"
  26. 190 print"programmierversuchen."
  27. 200 geta$:ifa$=""then200
  28. 210 print"[147]":printtab(10)"bitte laden sie!"
  29. 230 forz=1to700:nextz
  30. 240 sys64738
  31.