home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh24b.d64 / auto-number (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.