home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / auto-number (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  31 lines
  1. 1010 rem*******************************
  2. 1020 rem**     auto fuer c 64        **
  3. 1030 rem**          von              **
  4. 1040 rem**     frank siedel          **
  5. 1050 rem**     posener str. 18       **
  6. 1060 rem**     2945 sande            **
  7. 1070 rem*******************************
  8. 1080 :
  9. 1090 :
  10. 1100 :
  11. 1110 :data169,11,141,8,3,169,192,141,9,3,96,32,115,0,8,201,95,240,4,40,76,231
  12. 1120 :data167,32,115,0,201,65,208,245,32,115,0,24,32,107,169,165,20,133,38
  13. 1130 :data165,21,133,39,32,253,174,24,32,107,169,165,20,133,40,165,21,133,41
  14. 1140 :data169,129,141,2,3,169,192,141,3,3,169,128,141,138,2,165,39,133,98,165
  15. 1150 :data38,133,99,162,144,56,32,73,188,32,221,189,162,0,189,1,1,240,9,157
  16. 1160 :data0,2,32,210,255,232,208,242,32,18,225,201,95,240,30,201,13,240,45
  17. 1170 :data157,0,2,232,32,98,165,76,134,164,24,165,38,101,40,133,38,165,39,101
  18. 1180 :data41,133,39,76,75,192,169,131,141,2,3,169,164,141,3,3,169,0,141,138
  19. 1190 :data2,40,76,116,164,32,118,165,76,134,164
  20. 1200 :
  21. 1210 :
  22. 1220 printchr$(147)
  23. 1230 su=0
  24. 1240 fori=1to170
  25. 1250 reada
  26. 1260 su=su+a
  27. 1270 poke49151+i,a
  28. 1280 next
  29. 1290 ifsu<>17417 then print "fehler in den datazeilen":end
  30. 1300 print"ok":end
  31.