home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / scan.gen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  25 lines
  1. 10 rem ***********************
  2. 20 rem * s c a n - l a d e r *
  3. 30 rem * h. metschulat  1988 *
  4. 40 rem ***********************
  5. 50 open1,8,2,"&scan,u,w":pr=0
  6. 60 reada:ifa<0then80
  7. 70 print#1,chr$(a);:pr=pr+a:goto60
  8. 80 close1:if pr<>25781thenprint"pruefsummenfehler !":end
  9. 90 print"'scan' wurde generiert.":end
  10. 100 data 237,5,9,173,79,2,9,2,141,79,2,96,69,0,5,237,173,79
  11. 110 data 2,9,4,141,79,2,169,10,141,42,2,32,238,193,32,152,195,32
  12. 120 data 32,195,32,202,195,32,157,196,16,3,76,69,217,160,1,177,148,133
  13. 130 data 128,200,177,148,133,129,32,95,213,32,117,212,32,94,5,32,55,209
  14. 140 data 133,53,133,59,32,55,209,133,55,133,60,76,73,5,32,91,5,165
  15. 150 data 128,240,33,165,59,24,105,254,133,59,144,2,230,60,76,70,5,32
  16. 160 data 77,212,169,0,32,200,212,32,55,209,133,128,32,55,209,133,129,96
  17. 170 data 165,129,24,101,59,133,59,144,2,230,60,165,59,56,233,3,133,59
  18. 180 data 176,2,198,60,32,39,210,162,2,160,213,132,165,134,166,160,0,185
  19. 190 data 219,5,145,165,200,192,18,144,246,165,55,32,194,5,165,53,32,194
  20. 200 data 5,169,44,145,165,200,169,36,145,165,200,165,60,32,194,5,165,59
  21. 210 data 32,194,5,32,247,230,32,170,193,76,255,235,72,74,74,74,74,32
  22. 220 data 205,5,104,41,15,201,10,144,3,24,105,7,24,105,48,145,165,200
  23. 230 data 96,48,50,44,32,70,73,76,69,32,83,67,65,78,78,69,68,44
  24. 240 data 36,199,-1
  25.