home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 43 / Digital_Talk_43_2000-06-12_Digital_Talk_de_Side_A.d64 / verg.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  756b  |  28 lines
  1. 0 rem open1,8,15,"s:verg.bas":close1:save"verg.bas",8
  2. 1 rem vergleichen by skernsoft 1999
  3. 2 dim a$(200)
  4. 4 print"programm zum vergleichen von 2 sorterdateien.
  5. 5 [129]i[178]0[164] 52:[135]a:[151]49152[170]i,a:[130]
  6. 10 [133] "filename(max200),u";n$,u
  7. 11 [133] "verfleichfile,u";n1$,u1
  8. 12 [133] "ausgabefile,u";n2$,u2
  9. 20 [159]1,u,0,n$[170]",s"
  10. 25 [153]"lade...
  11. 30 sys49152&1,a$(i):ifstthen f=1
  12. 40 i=i+1
  13. 50 if f=0 then 30
  14. 55 close1:f=0
  15. 60 open1,u1,0,n1$+",s"
  16. 63 open2,u2,0,n2$+",s"
  17. 65 print"vergleiche...
  18. 70 [158]49152&1,a$:[139]st[167] f[178]1
  19. 71 [153]a$
  20. 72 [129]j[178]0[164]i:[139][200](a$(j),16)[178][200](a$,16) [167] [152]2,a$
  21. 73 [130]
  22. 80 [139] f[178]0 [167] 70
  23. 90 [160]1:[160]2:f[178]0
  24. 100 [128]
  25. 32000 [131]32,155,183,32,30,225,32,253,174,32,139,176,133,73,132,74,32,163,182
  26. 32001 [131]169,89,32,117,180,160,2,185,97,0,145,73,136,16,248,200,32,18,225,145
  27. 32002 [131]98,201,13,208,246,152,160,0,145,73,32,204,255,96
  28.