home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_B.d64 / 26zeilen demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.4 KB  |  39 lines
  1. 0 :poke2053,143:load"generator 26",8,1
  2. 10 sys49179:sys49152:poke16383,255:poke49504,peek(53280)-128
  3. 11 b=25:print"[147]":gosub45:print26;:gosub46
  4. 12 print:print"zeile 0 wird gleich"
  5. 13 b=24:print"'festgenagelt'":gosub46:gosub45:gosub46
  6. 14 poke1,55:gosub45
  7. 15 print"auch beim bildschirmloeschen ist zeile 0bei poke1,55 nicht beeinflussbar !"
  8. 16 gosub46:print"[147]kann aber durch 'sys' befehle be-       schrieben werden"
  9. 17 gosub46:sys49369,"sys49369,ausdr. / sys49358,spalte,ausdr."
  10. 18 print"ebenso kann zeile 0 durch sys 49168     geloescht werden !":gosub46
  11. 19 sys49168
  12. 20 print"als sonderzeichen werden nur [rvs on]   und [rvs off] ausgefuehrt"
  13. 21 gosub46
  14. 22 x$="hier[146] ein kleines[146] beispiel mit[146] 40 zeichen[146]":sys49369,x$
  15. 23 gosub46
  16. 24 print"ein len(x$) befehl ergibt aber"len(x$):print"zeichen"
  17. 25 gosub46:print"[147]andere steuerzeichen werden nicht aus-  gefuehrt,";
  18. 26 print"ausser [crsr right]"
  19. 27 gosub46
  20. 28 sys49369,"[145][145][145][145][157][157][157][157][145][145][145][145][157][157][157][157][157]"
  21. 29 gosub46
  22. 30 print"stoert der schwarze rand ?"
  23. 31 print"verursacher ist die speicherzelle 16383 jetzt werden die werte ";
  24. 32 print"von 0 bis 255 in die speicherzelle gepoked "
  25. 33 gosub46
  26. 34 fora=0to255:poke16383,a:next
  27. 35 gosub46
  28. 36 print"jetzt steht 0 drin":poke16383,0
  29. 37 print"die farbe des randes kann in 49504      geaendert werden"
  30. 38 gosub46:forb=0to127:poke49504,b:next:gosub46
  31. 39 print"er kann aber auch mit poke 49504,128    abgeschaltet werden"
  32. 40 gosub46:poke49504,128
  33. 41 gosub46:print"[147]zeile 0 wird durch poke 1,53 wieder     freigegeben "
  34. 42 poke1,53:b=25:gosub46
  35. 43 gosub45:print26;:gosub46
  36. 44 end
  37. 45 fora=1tob:printa:next:return
  38. 46 poke198,0:wait198,1:return
  39.