home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / rolling-data (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  80 lines
  1. 100 dimp(55):fori=0to55:readx:p(i)=x:sp=sp+x:next
  2. 110 data1700,1565,1335,1500,1743,959,1852,1273,1281,1416
  3. 120 data1603,1002,1647,1320,1504,1794,2060,2010,1617,1744
  4. 130 data2060,1983,1761,1812,1996,1915,1958,1867,1805,2114
  5. 140 data1892,2097,2137,1447,1639,1986,1995,1754,2030,2017
  6. 150 data1670,1058,1697,1660,873,1089,1036,697,970,889
  7. 160 data1049,866,999,686,985,839
  8. 170 ifsp<>86253thenprint"fehler preufsumme !":end
  9. 180 fori=50550to51220:readx:pokei,x:s=s+x
  10. 190 z1=z1+1:s1=s1+x
  11. 200 ifz1=12ands<>p(p1)then250
  12. 210 ifz1=12thenp1=p1+1:s=0:z1=0
  13. 220 next
  14. 230 ifs1<>86253thenprint"fehler letzte reihe data !":end
  15. 240 print"ok.":end
  16. 250 z$=str$(peek(64)*256+peek(63))
  17. 260 z1=len(z$)-1:z2=2:sp=633:printchr$(147)
  18. 270 fori=0toz1-1:z(i)=val(mid$(z$,z2,1)):z2=z2+1:next
  19. 280 print" *** fehler in zeile:"z$
  20. 290 poke631,76:poke632,105
  21. 300 fori=0toz1-1:pokesp,z(i)+48:sp=sp+1:next
  22. 310 pokesp+1,13:poke198,z1+4
  23. 320 end
  24. 330 data32,253,174,177,122,201,76,208,7,233,76,141
  25. 340 data168,2,240,34,201,82,208,7,233,81,141,168
  26. 350 data2,208,23,201,72,208,7,233,70,141,168,2
  27. 360 data208,12,201,84,240,3,76,22,199,233,81,141
  28. 370 data168,2,230,122,208,2,230,123,32,241,183,202
  29. 380 data48,9,224,25,176,5,142,169,2,80,3,76
  30. 390 data32,199,32,241,183,202,48,247,224,25,176,243
  31. 400 data142,170,2,236,169,2,240,5,176,13,76,42
  32. 410 data199,173,168,2,201,2,144,3,76,82,199,32
  33. 420 data241,183,202,48,4,224,40,144,3,76,52,199
  34. 430 data142,171,2,32,241,183,138,240,13,224,41,176
  35. 440 data9,109,171,2,201,41,176,5,144,6,76,62
  36. 450 data199,76,72,199,202,142,172,2,173,168,2,240
  37. 460 data17,201,1,240,10,201,2,240,3,76,131,198
  38. 470 data76,212,198,76,86,198,76,39,198,174,169,2
  39. 480 data160,0,32,254,198,177,209,72,177,243,72,200
  40. 490 data177,209,72,177,243,136,145,243,104,145,209,200
  41. 500 data204,172,2,208,238,104,145,243,104,145,209,236
  42. 510 data170,2,176,3,232,208,213,96,174,169,2,172
  43. 520 data172,2,32,254,198,177,209,72,177,243,72,136
  44. 530 data177,209,72,177,243,200,145,243,104,145,209,136
  45. 540 data208,241,104,145,243,104,145,209,236,170,2,176
  46. 550 data3,232,208,215,96,120,160,0,132,251,174,170
  47. 560 data2,32,254,198,177,209,72,177,243,72,204,172
  48. 570 data2,240,3,200,208,242,164,251,202,32,254,198
  49. 580 data177,209,72,177,243,72,232,32,254,198,104,145
  50. 590 data243,104,145,209,204,172,2,240,3,200,208,228
  51. 600 data202,236,169,2,208,220,32,254,198,172,172,2
  52. 610 data104,145,243,104,145,209,152,240,3,136,80,244
  53. 620 data88,96,206,137,198,238,188,198,169,202,162,232
  54. 630 data141,168,198,142,158,198,142,186,198,32,131,198
  55. 640 data169,202,162,232,142,168,198,141,158,198,141,186
  56. 650 data198,238,137,198,206,188,198,96,32,240,233,173
  57. 660 data171,2,240,12,165,209,24,109,171,2,133,209
  58. 670 data144,2,230,210,32,36,234,96,169,127,160,199
  59. 680 data133,251,132,252,80,77,169,149,160,199,133,251
  60. 690 data132,252,80,67,169,168,160,199,133,251,132,252
  61. 700 data80,57,169,194,160,199,133,251,132,252,80,47
  62. 710 data169,214,160,199,133,251,132,252,80,37,169,234
  63. 720 data160,199,133,251,132,252,80,27,169,255,160,199
  64. 730 data133,251,132,252,80,17,32,215,170,165,57,166
  65. 740 data58,133,20,134,21,32,19,166,76,201,166,32
  66. 750 data215,170,32,215,170,160,0,177,251,48,227,32
  67. 760 data210,255,200,208,246,82,73,67,72,84,85,78
  68. 770 data71,83,87,69,82,84,32,73,76,76,69,71
  69. 780 data65,76,255,90,69,73,76,69,78,87,69,82
  70. 790 data84,32,73,76,76,69,71,65,76,255,90,69
  71. 800 data73,76,69,32,49,32,73,83,84,32,62,32
  72. 810 data65,76,83,32,90,69,73,76,69,32,50,255
  73. 820 data83,80,65,76,84,69,78,87,69,82,84,32
  74. 830 data73,76,76,69,71,65,76,255,76,65,69,78
  75. 840 data71,69,78,87,69,82,84,32,73,76,76,69
  76. 850 data71,65,76,255,83,80,65,76,84,69,32,43
  77. 860 data32,76,65,69,78,71,69,32,62,32,52,48
  78. 870 data255,90,69,73,76,69,32,49,32,73,83,84
  79. 880 data32,61,32,90,69,73,76,69,32,50,255
  80.