home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / &-tester (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  447b  |  23 lines
  1. 0 poke198,1:poke631,29
  2. 1 input"[147]filename   &[157][157][157]";f$
  3. 2 open2,8,2,f$+",u,r
  4. 4 ck[178]0:[153]
  5. 6 [141]100:[139]st[167][153]"file not found!":[128]
  6. 8 ck[178]ck[170]a:b[178]a:[141]200
  7. 10 [141]100
  8. 12 ck[178]ck[170]a:[141]200:[153]"startadresse"a[172]256[170]b
  9. 14 [141]100
  10. 16 ck[178]ck[170]a:[141]200:[153]"laenge ="a:l[178]a
  11. 18 [129]i[178]1[164]l
  12. 20 [141]100:ck[178]ck[170]a:[141]200
  13. 22 [130]
  14. 24 [153]"errechnete pruefsumme:"ck
  15. 26 [141]100:[153]"gelesene pruefsumme:"a
  16. 28 [139]a[179][177]ck[167][153]"   fehler   "
  17. 30 [153]
  18. 32 [139]st[178]0[167]4
  19. 34 [160]2:[128]
  20. 100 [161]#2,a$:a[178][198](a$[170][199](0)):[142]
  21. 200 [139]ck[177]255[167]ck[178]ck[171]255:[137]200
  22. 210 [142]
  23.