home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / wandler-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  782b  |  26 lines
  1. 5 rem  1. textbildschirm ab 1024
  2. 10 rem 2. zeichensatz    ab 8192
  3. 20 rem
  4. 30 rem norbert haas 2.85
  5. 40 rem
  6. 100 for i=828 to 925
  7. 110 read j:k=k+j:poke i,j
  8. 120 next
  9. 130 if k<>9604 then print"datenfehler.":stop
  10. 140 print"[147]sys 828:new"
  11. 150 print"load";chr$(34);"zs*";chr$(34);",8,1"
  12. 160 print"load";chr$(34);"lo*";chr$(34);",8,1"
  13. 170 print"";
  14. 180 poke 198,3:poke 631,13:poke 632,13:poke 633,13
  15. 190 end
  16. 1000 data120,165,  1, 41,251,133,  1,169,  0,133
  17. 1010 data 34,169, 32,133, 35,169,  0,133, 36,169
  18. 1020 data208,133, 37,160,  0,177, 36,145, 34, 24
  19. 1030 data165, 34,105,  1,133, 34,165, 35,105,  0
  20. 1040 data133, 35, 24,165, 36,105,  1,133, 36,165
  21. 1050 data 37,105,  0,133, 37,165, 36,201,255,208
  22. 1060 data220,165, 37,201,223,208,214,165,  1,  9
  23. 1070 data  4,133,  1, 88,173, 24,208, 41,240,  9
  24. 1080 data  8,141, 24,208,169,  1,133, 43,169, 48
  25. 1090 data133, 44,169,  0,141,  0, 48, 96
  26.