home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / auto (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  33 lines
  1. 30 rem******************************
  2. 32 rem**     auto fuer c 64       **
  3. 34 rem**          von             **
  4. 36 rem**     frank siedel         **
  5. 38 rem**     posener str. 18      **
  6. 40 rem**     2945 sande           **
  7. 42 rem******************************
  8. 44 print"[147]initialisierung mit <sys 49152>"
  9. 46 :
  10. 48 :
  11. 50 :data169,11,141,8,3,169,192,141,9,3,96,32,115,0,8,201,95,240,4,40,76,231
  12. 52 :data167,32,115,0,201,65,208,245,32,115,0,24,32,107,169,165,20,133,38
  13. 54 :data165,21,133,39,32,253,174,24,32,107,169,165,20,133,40,165,21,133,41
  14. 56 :data169,129,141,2,3,169,192,141,3,3,169,128,141,138,2,165,39,133,98,165
  15. 58 :data38,133,99,162,144,56,32,73,188,32,221,189,162,0,189,1,1,240,9,157
  16. 60 :data0,2,32,210,255,232,208,242,32,18,225,201,95,240,30,201,13,240,45
  17. 62 :data157,0,2,232,32,98,165,76,134,164,24,165,38,101,40,133,38,165,39,101
  18. 64 :data41,133,39,76,75,192,169,131,141,2,3,169,164,141,3,3,169,0,141,138
  19. 66 :data2,40,76,116,164,32,118,165,76,134,164
  20. 68 :
  21. 70 :
  22. 72 printchr$(147)
  23. 74 su=0
  24. 76 fori=1to170
  25. 78 reada
  26. 80 su=su+a
  27. 82 poke49151+i,a
  28. 84 next
  29. 86 ifsu<>17417 then print "fehler in den datazeilen":end
  30. 88 print"ok"
  31. 90 sys49152
  32. 92 new:end
  33.