home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_93-01_1993_-_de_Side_B.d64 / basic-lader_tool (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  47 lines
  1. 5 poke53280,0:poke53281,0:print"[147]one moment please..."
  2. 10 fori=1to160:reada:poke49151+i,a:next
  3. 15 printchr$(14)chr$(8)
  4. 20 print"[147][194]asic-[204]ader zu [201][210][209]-[212][207][207][204] aktiviert."
  5. 30 print"[201]ch demonstriere [201]hnen meine"
  6. 35 print"[198]aehigkeiten..."
  7. 40 print"der [211]yntax lautet: sys49152,zeilen,multi"
  8. 50 print"[194]edeutung der [208]arameter:"
  9. 60 print"[218]eilen: gibt an wieviel [210]asterzeilen"
  10. 70 print"zum 'oberen' [194]ildschirm gehoeren."
  11. 80 print"[205]ulti : enthaelt den [215]ert der [211]peicher-"
  12. 90 print"stelle 53270.(24=multicolor/200=[200]i[210]es)"
  13. 95 fori=1to5000:next
  14. 100 print"[147]sys49152,200,200"
  15. 110 sys49152,200,200
  16. 120 fori=1to2000:next
  17. 130 sys49272:print"[147]sys49272-und die [210]outine ist abge-"
  18. 140 print"schaltet!"
  19. 150 print"man kann aber auch einblenden..."
  20. 160 print"[211]ie brauchen nur den [215]ert in #53247"
  21. 170 print"zu veraendern..."
  22. 180 fori=1to3000:next:print"[147]":sys49152,1,200
  23. 190 fori=0to255:poke53247,i:next:sys49272
  24. 200 print"[147]na ja, man kann auch alles umdrehen!"
  25. 201 :
  26. 202 :
  27. 203 :rem umschalten
  28. 204 :
  29. 205 :
  30. 206 multi=200
  31. 210 poke49225,31:poke49230,59:poke49248,23:poke49253,27:poke49235,multi
  32. 220 sys49152,200,200
  33. 30000 :
  34. 30001 :
  35. 30002 :rem maschinenprogramm
  36. 30003 :
  37. 30004 :
  38. 32000 data32,253,174,32,158,183,142,255,207,32,253,174,32,158,183,142,254,207
  39. 32001 data120,169,50,162,192,141,20,3,142,21,3,173,255,207,141,18,208,173,17
  40. 32002 data208,41,127,141,17,208,169,129,141,26,208,88,96,173,25,208,141,25,208
  41. 32003 data48,7,173,13,220,88,76,49,234,173,18,208,201,0,240,23,169,23,141,24
  42. 32004 data208,169,27,141,17,208,169,200,141,22,208,169,0,141,18,208,76,126,234
  43. 32005 data169,31,141,24,208,169,59,141,17,208,173,254,207,141,22,208,173,255
  44. 32006 data207,141,18,208,76,126,234,120,169,49,141,20,3,169,234,141,21,3,169
  45. 32007 data240,141,26,208,88,169,23,141,24,208,169,27,141,17,208,96,20,23,19,32
  46. 32008 data49,57,56,56,0,255,0,255
  47.