home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_B.d64 / data-erweiterung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  909b  |  16 lines
  1. 1000 su=0:fori=828to1021:reada:su=su+a:pokei,a:next:ifsu=23429thenreturn
  2. 1010 print"fehler in datas!":end
  3. 1020 rem aufruf: sys828,speicheradresse,high-byte vom charset
  4. 1030 rem ausschalten: sys58451
  5. 1099 rem interpretererweiterung:
  6. 1100 data32,253,174,32,235,183,165,20,133,250,165,21,133,251,138,41,248,133
  7. 1101 data252,169,90,141,8,3,169,3,141,9,3,96,32,115,0,201,35,240,66,201,93
  8. 1102 data240,76,201,33,240,105,32,121,0,76,231,167,201,48,144,40,233,48,201
  9. 1103 data10,144,6,233,7,201,10,144,28,96,32,115,0,240,25,32,111,3,10,10,10
  10. 1104 data10,133,253,32,115,0,240,8,32,111,3,5,253,160,0,96,76,8,175,104,104
  11. 1105 data76,105,3,32,128,3,145,250,230,250,208,247,230,251,76,163,3,32,128
  12. 1106 data3,133,254,152,6,254,42,6,254,42,6,254,42,5,252,133,255,32,128,3,145
  13. 1107 data254,230,254,208,247,230,255,76,196,3,32,128,3,133,21,165,252,133
  14. 1108 data255,160,0,132,20,132,254,162,8,120,169,51,133,1,177,20,145,254,200
  15. 1109 data208,249,230,21,230,255,202,208,242,169,55,133,1,88,76,225,167
  16.