home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 August / 64er_Magazin_85-08_1985_Markt__Technik_de.d64 / data-lader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  76 lines
  1. 100 open 1,8,1,"vocabulary"
  2. 101 print#1,chr$(0);chr$(192);
  3. 102 dim h(75)
  4. 103 for i=0 to 9
  5. 104 h(48+i)=i:h(65+i)=i+10
  6. 105 next
  7. 106 for i=49152 to 50160
  8. 107 read a$
  9. 108 h=asc(a$):l=asc(right$(a$,1))
  10. 109 d=h(h)*16+h(l):s=s+d
  11. 110 print#1,chr$(d);
  12. 111 a=a+1:if a<20 then next:a=-1
  13. 112 print"zeile:"124+z;
  14. 113 read v:z=z+1:if v=s then 117
  15. 114 print" pruefsummen-fehler ! [146]"
  16. 115 close1:open1,8,15,"s:vocabulary":close1
  17. 116 end
  18. 117 if a<0 then close1:end
  19. 118 s=0:a=0:print
  20. 119 next
  21. 120 end
  22. 121 :
  23. 122 rem ************************
  24. 123 :
  25. 124 data ff,ff,00,00,ff,ff,a9,93,4c,d2,ff,20,3f,c0,85,62,86,63,a2,90, 2934
  26. 125 data a5,62,30,09,a9,20,20,d2,ff,38,4c,d4,bd,a9,2d,20,d2,ff,18,4c, 2362
  27. 126 data d4,bd,85,fe,86,fd,a6,02,a5,fe,9d,00,cf,e8,a5,fd,9d,00,cf,e8, 3372
  28. 127 data 86,02,60,a6,02,ca,bd,00,cf,85,fd,ca,bd,00,cf,85,fe,86,02,a5, 2670
  29. 128 data fe,a6,fd,60,4c,3f,c0,20,3f,c0,20,2a,c0,4c,2e,c0,20,3f,c0,8d, 2395
  30. 129 data 00,c0,8e,01,c0,20,3f,c0,8d,02,c0,8e,03,c0,ad,00,c0,ae,01,c0, 2218
  31. 130 data 20,2a,c0,ad,02,c0,ae,03,c0,4c,2a,c0,c6,02,c6,02,20,3f,c0,e6, 2229
  32. 131 data 02,e6,02,e6,02,e6,02,4c,2a,c0,a6,fc,ca,bd,00,ce,85,fd,ca,bd, 2800
  33. 132 data 00,ce,85,fe,86,fc,a5,fe,a6,fd,60,85,fe,86,fd,a6,fc,a5,fe,9d, 3681
  34. 133 data 00,ce,e8,a5,fd,9d,00,ce,e8,86,fc,60,38,ad,00,c0,ed,02,c0,8d, 2926
  35. 134 data 04,c0,ad,01,c0,ed,03,c0,8d,05,c0,60,18,ad,00,c0,6d,02,c0,8d, 2261
  36. 135 data 04,c0,ad,01,c0,6d,03,c0,8d,05,c0,60,a9,0d,4c,d2,ff,20,3f,c0, 2310
  37. 136 data 8e,00,c0,8d,01,c0,20,3f,c0,8e,02,c0,8d,03,c0,4c,c0,c0,20,ed, 2356
  38. 137 data c0,ad,04,c0,0d,05,c0,f0,06,a9,00,aa,4c,2a,c0,a9,00,a2,01,4c, 2074
  39. 138 data 2a,c0,20,ed,c0,30,06,a9,00,aa,4c,2a,c0,a9,00,a2,01,4c,2a,c0, 2040
  40. 139 data 20,60,c0,4c,1a,c1,20,3f,c0,05,fd,f0,06,a9,00,aa,4c,2a,c0,a9, 2224
  41. 140 data 00,a2,01,4c,2a,c0,20,3f,c0,8e,00,c0,8d,01,c0,20,3f,c0,8e,02, 1859
  42. 141 data c0,8d,03,c0,60,20,46,c1,ad,00,c0,2d,02,c0,85,fd,ad,01,c0,2d, 2320
  43. 142 data 03,c0,85,fe,4c,2e,c0,20,46,c1,ad,00,c0,0d,02,c0,85,fd,ad,01, 2323
  44. 143 data c0,0d,03,c0,85,fe,4c,2e,c0,20,46,c1,ad,00,c0,4d,02,c0,85,fd, 2418
  45. 144 data ad,01,c0,4d,03,c0,85,fe,4c,2e,c0,20,46,c1,20,d4,c0,ae,04,c0, 2440
  46. 145 data ad,05,c0,4c,2a,c0,20,60,c0,20,46,c1,20,c0,c0,ae,04,c0,ad,05, 2259
  47. 146 data c0,4c,2a,c0,20,46,c1,a0,00,8c,04,c0,8c,05,c0,a0,10,0e,04,c0, 2016
  48. 147 data 2e,05,c0,2e,02,c0,2e,03,c0,90,1d,18,ad,04,c0,6d,00,c0,8d,04, 1736
  49. 148 data c0,ad,05,c0,6d,01,c0,8d,05,c0,90,08,ee,02,c0,d0,03,ee,03,c0, 2430
  50. 149 data 88,d0,d2,ae,04,c0,ad,05,c0,4c,2a,c0,20,46,c1,a0,10,a9,00,8d, 2385
  51. 150 data 04,c0,8d,05,c0,2e,02,c0,2e,03,c0,2e,04,c0,2e,05,c0,38,ad,04, 1733
  52. 151 data c0,ed,00,c0,aa,ad,05,c0,ed,01,c0,90,06,8d,05,c0,8e,04,c0,88, 2553
  53. 152 data d0,db,2e,02,c0,2e,03,c0,60,20,00,c2,ae,02,c0,ad,03,c0,4c,2a, 2084
  54. 153 data c0,20,00,c2,ae,04,c0,ad,05,c0,4c,2a,c0,20,96,c0,4c,2a,c0,20, 2184
  55. 154 data 3f,c0,4c,ab,c0,20,60,c0,20,57,c2,4c,57,c2,20,51,c2,e6,fc,e6, 2703
  56. 155 data fc,60,20,51,c2,20,57,c0,20,51,c2,20,60,c0,20,ed,c0,30,08,20, 2142
  57. 156 data 54,c0,20,54,c0,38,60,e6,fc,e6,fc,20,9b,c1,20,57,c2,18,60,a9, 2682
  58. 157 data 00,a2,01,20,2a,c0,4c,6e,c2,20,3f,c0,e6,02,e6,02,a5,fe,10,c6, 2193
  59. 158 data 20,51,c2,20,57,c0,20,51,c2,4c,7a,c2,20,3f,c0,05,fd,f0,02,38, 2160
  60. 159 data 60,18,60,20,3f,c0,8a,4c,d2,ff,20,87,ea,e0,ff,f0,04,e0,0d,b0, 2719
  61. 160 data 02,a2,00,a9,00,4c,2a,c0,20,c6,c2,20,57,c0,20,b4,c2,b0,06,20, 1998
  62. 161 data 54,c0,4c,d8,c2,60,86,fd,85,fe,a0,00,b1,fd,f0,06,20,d2,ff,c8, 3165
  63. 162 data d0,f6,60,20,3f,c0,86,f7,20,3f,c0,a0,00,b1,fd,20,d2,ff,c8,c4, 2988
  64. 163 data f7,d0,f6,60,20,3f,c0,86,f9,20,3f,c0,86,f7,85,f8,a2,00,a0,00, 2838
  65. 164 data 20,cf,ff,91,f7,c9,0d,f0,06,e8,c8,c4,f9,d0,f1,60,a5,02,4a,aa, 3179
  66. 165 data a9,00,4c,2a,c0,20,3f,c0,86,f7,85,f8,20,3f,c0,a0,01,91,f7,8a, 2506
  67. 166 data 88,91,f7,60,20,3f,c0,86,f7,85,f8,20,3f,c0,a0,00,8a,91,f7,60, 2746
  68. 167 data 20,3f,c0,86,f7,85,f8,a0,00,b1,f7,aa,c8,b1,f7,4c,2a,c0,20,3f, 2832
  69. 168 data c0,86,f7,85,f8,a0,00,b1,f7,aa,a9,00,4c,2a,c0,20,3f,c0,ad,0c, 2659
  70. 169 data 03,ae,0d,03,ac,0e,03,6c,fd,00,20,3f,c0,a4,02,8c,00,c0,8a,0a, 1676
  71. 170 data 85,02,20,3f,c0,ac,00,c0,84,02,4c,2a,c0,20,3f,c0,8e,00,c0,8d, 1992
  72. 171 data 01,c0,20,3f,c0,8e,02,c0,8d,03,c0,20,3f,c0,8e,04,c0,8d,05,c0, 2115
  73. 172 data ae,02,c0,ad,03,c0,20,2a,c0,ae,00,c0,ad,01,c0,20,2a,c0,ae,04, 2178
  74. 173 data c0,ad,05,c0,4c,2a,c0,20,fd,ae,20,d4,e1,a9,01,85,b9,a9,00,4c, 2533
  75. 174 data d5,ff,87,cf,28,45,97,47,11, 1158
  76.