home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 5 / Commodore_Disc_05_19xx_-_de.d64 / multi-screen.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  28 lines
  1. 1 rem multi screen =============64
  2. 2 rem (p) 10/86 cbm revue team   =
  3. 3 rem ============================
  4. 4 rem (c) 09/86 joerg tuttas     =
  5. 5 rem                            =
  6. 6 rem c-64                       =
  7. 7 rem ============================
  8. 10 for t=49152 to 49310
  9. 11 read a:poke t,a:s=s+a:next
  10. 12 cl$=chr$(147)
  11. 13 if s=18460 then printcl$"programm ok":new
  12. 14 printcl$"fehler in datas":end
  13. 15 *******************************
  14. 16 start: sys 49152,y oben,y unten
  15. 17 ****** y von 1 bis 25
  16. 18 ende:  sys 49260
  17. 19 *******************************
  18. 1000 data 32,253,174, 32,158,183,134,250, 32,253,174, 32,158,183,134,251, 32
  19. 1010 data126,192,120,169, 51,141, 20, 3,169,192,141, 21, 3,173, 60, 3,141
  20. 1020 data 18,208,173, 17,208, 41,127,141, 17,208,169,129,141, 26,208, 88, 96
  21. 1030 data173, 25,208,141, 25,208, 48, 7,173, 13,220, 88, 76, 49,234,173, 18
  22. 1040 data208,205, 61, 3,176, 17,173, 24,208, 73, 2,141, 24,208,173, 61, 3
  23. 1050 data141, 18,208, 76,129,234,173, 24,208, 73, 2,141, 24,208,173, 60, 3
  24. 1060 data141, 18,208, 76,129,234,120,169, 0,141, 26,208,169, 49,141, 20, 3
  25. 1070 data169,234,141, 21, 3, 88, 96,165,250, 32,145,192,141, 60, 3,230,251
  26. 1080 data165,251, 32,145,192,141, 61, 3, 96,170,169, 50,202,240, 6, 24,105
  27. 1090 data 8, 76,148,192, 96, 76
  28.