home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / shake-schrift (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  843b  |  31 lines
  1. 59900 rem
  2. 59910 rem datas
  3. 59920 rem
  4. 60000 data120,169,40,141,20,3,169,192,141,21
  5. 60001 data3,173,165,192,141,18,208,173,17,208
  6. 60002 data41,127,141,17,208,169,129,141,26,208
  7. 60003 data169,1,133,251,169,8,133,252,88,96
  8. 60004 data173,25,208,141,25,208,48,7,173,13
  9. 60005 data220,88,76,49,234,173,18,208,205,166
  10. 60006 data192,176,70,165,251,201,1,240,33,165
  11. 60007 data252,141,22,208,201,7,240,11,230,252
  12. 60008 data173,166,192,141,18,208,76,129,234,169
  13. 60009 data1,133,251,173,166,192,141,18,208,76
  14. 60010 data129,234,165,252,141,22,208,240,11,198
  15. 60011 data252,173,166,192,141,18,208,76,129,234
  16. 60012 data169,0,133,251,173,166,192,141,18,208
  17. 60013 data76,129,234,169,8,141,22,208,173,165
  18. 60014 data192,141,18,208,76,129,234,120,169,0
  19. 60015 data141,26,208,169,49,141,20,3,169,234
  20. 60016 data141,21,3,88,96,40,82
  21. 60100 rem
  22. 60110 rem einlesen der daten
  23. 60120 rem
  24. 61000 fori=49152to49318
  25. 61100 reada
  26. 61200 pokei,a
  27. 61300 s=s+a
  28. 61400 next
  29. 61500 ifs<>22085thenprint"fehler in datas !":end
  30. 61600 clr
  31.