home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / delete (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  40 lines
  1. 10 REM    **********************
  2. 15 REM    *                    *
  3. 20 REM    *       DELETE       *
  4. 25 REM    *                    *
  5. 30 REM    *   H.H.HAGEDORN     *
  6. 35 REM    *                    *
  7. 40 REM    *   RUPPRECHTSTR.30  *
  8. 45 REM    *                    *
  9. 50 REM    *   83 LANDSHUT      *
  10. 55 REM    *                    *
  11. 60 REM    *   TEL. 0871/67337  *
  12. 65 REM    *                    *
  13. 70 REM    **********************
  14. 75 :
  15. 80 FOR I=828 TO 990 : READ A : POKE I,A
  16. 85 S=S+A : NEXT
  17. 90 IF S <> 17132 THEN PRINT "DATENFEHLER" : END
  18. 95 PRINT "OK"
  19. 100 DATA 032,253,174,032,121,000,144,006
  20. 105 DATA 240,004,201,171,208,023,032,107
  21. 110 DATA 169,032,019,166,165,095,133,025
  22. 115 DATA 165,096,133,026,032,121,000,240
  23. 120 DATA 004,201,171,240,005,162,011,076
  24. 125 DATA 058,164,032,115,000,032,107,169
  25. 130 DATA 208,243,165,020,005,021,208,008
  26. 135 DATA 169,255,133,020,133,021,208,006
  27. 140 DATA 230,020,208,002,230,021,032,019
  28. 145 DATA 166,165,095,133,036,165,096,133
  29. 150 DATA 037,056,165,036,229,025,165,037
  30. 155 DATA 229,026,144,201,165,045,229,036
  31. 160 DATA 133,095,165,046,229,037,133,096
  32. 165 DATA 024,165,025,101,095,133,045,165
  33. 170 DATA 026,101,096,133,046,160,000,177
  34. 175 DATA 036,145,025,230,025,208,002,230
  35. 180 DATA 026,230,036,208,002,230,037,056
  36. 185 DATA 165,095,233,001,133,095,165,096
  37. 190 DATA 233,000,133,096,016,225,032,089
  38. 195 DATA 166,032,051,165,076,145,227,000
  39. 200 DATA 000,000,000
  40.