home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / compare (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  99 lines
  1. 10 gosub60100:poke53281,.
  2. 110 print"[147]         [195] [207] [205] [208] [193] [210] [197]  [208] [199] [205]           [146]"
  3. 120 print"[154][197]nter  first [208][199][205] file name:":print"->";:le=16:gosub60500:f1$=b$
  4. 130 print"[197]nter second [208][199][205] file name:":print"->";:gosub60500:f2$=b$
  5. 135 r$=chr$(143):print"        ([211][154])creen or ([208][154])rinter"
  6. 136 getv$:ifv$<>"s"andv$<>"p"then136
  7. 140 print"[147]        -- [208]ress [209] [154]to quit --"
  8. 150 print" [208]ress any other key to toggle pause."
  9. 165 open2,8,2,f1$+",p,r":open1,8,15
  10. 170 input#1,e,e$:printe,e$,f1$:ife>0then700
  11. 180 open5,8,5,f2$+",p,r":input#1,e,e$:printe,e$,f2$:ife>0then700
  12. 190 gosub660:print:print"[205]odifications to ";f2$;"[154]:":print:gosub680
  13. 200 get#2,a$,a$:get#5,a$,a$:gosub420
  14. 210 l1$=""
  15. 220 get#2,a$:ifst>0then e2=1:gosub430:goto280
  16. 230 ifa$=""thenrf=0:goto280
  17. 240 ifa$=" "ora$=":"then220
  18. 250 ifrfthen220
  19. 260 l1$=l1$+a$:ifa$=r$then rf=1
  20. 270 goto220
  21. 280 l2$=""
  22. 290 get#5,a$:ifst>0then e5=1:gosub430:goto350
  23. 295 print"[195]hecking line"n1:print"[145]";
  24. 300 ifa$=""thenrf=0:goto350
  25. 310 ifa$=" "ora$=":"then290
  26. 320 ifrfthen290
  27. 330 l2$=l2$+a$:ifa$=r$then rf=1
  28. 340 goto290
  29. 350 ifl1$<>l2$then gosub660:print"[159]"n2;"[195]hanged":gosub680:c=c+1
  30. 360 gosub420
  31. 370 getb$:ifb$=""then210
  32. 380 ifb$="q"then700
  33. 390 geta$:ifa$=""then390
  34. 400 goto210
  35. 410 rem---------------------------------
  36. 420 gosub470:gosub500:ife2=1ande5=1then700
  37. 430 if n1<n2 then gosub540:goto430
  38. 440 if n2<n1 then gosub600:goto430
  39. 450 return
  40. 460 rem---------------------------------
  41. 470 get#2,a$,b$,l$,h$:n1=asc(l$+chr$(0))+(asc(h$+chr$(0))*256)
  42. 480 if(a$=""andb$="")orst>0thenn1=63999
  43. 490 return
  44. 500 get#5,a$,b$,l$,h$:n2=asc(l$+chr$(0))+(asc(h$+chr$(0))*256)
  45. 510 if(a$=""andb$="")orst>0thenn2=63999
  46. 520 return
  47. 530 rem---------------------------------
  48. 540 gosub660:print"[159]"n1;"[196]eleted[154]":gosub680:c=c+1
  49. 550 get#2,a$:ifst>0then580
  50. 560 ifa$=""thengosub470:return
  51. 570 goto550
  52. 580 if e2 then end
  53. 590 n1=63999:return
  54. 600 gosub660:print"[159]"n2;"[201]nserted[154]":gosub680:c=c+1
  55. 610 get#5,a$:ifst>0then640
  56. 620 ifa$=""thengosub500:return
  57. 630 goto610
  58. 640 if e5 then end
  59. 650 n2=63999:return
  60. 660 ifv$="p"thenopen4,4,7:cmd4
  61. 670 return
  62. 680 ifv$="p"thenprint#4:close4
  63. 690 return
  64. 700 print:print""f2$;" [154]had";c;"[154]modifications.":close5:close2:close1
  65. 800 print"    [215]ould you like to do another?"
  66. 810 a=peek(203):ifa<>25anda<>39then810
  67. 820 ifa=25thenrun110
  68. 830 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  69. 840 ifer<>63thenend
  70. 850 load"hello connect",8
  71. 60100 poke53280,2:poke53281,1
  72. 60110 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  73. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  74. 60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  75. 60135 fora=217to242:pokea,peek(a)or128:next
  76. 60140 print"           [204][207][193][196][211][212][193][210] [208]resents:"
  77. 60150 print"                               "
  78. 60160 print"                [195][207][205][208][193][210][197]        [152] "
  79. 60165 print"                               [152] "
  80. 60170 print"         by [205]ichael [196]. [204]eidel  [152] "
  81. 60175 print"                               [152] "
  82. 60180 print"           ([195])opyright 1987    [152] "
  83. 60185 print"                               [152] "
  84. 60195 print"                               [152] "
  85. 60200 print"        [208]ress [211][208][193][195][197] to continue"
  86. 60210 ifpeek(203)<>60then60210
  87. 60220 return
  88. 60500 b$="":print"[164]";:poke198,.:fora=1tole+1
  89. 60510 geta$:ifa$=""then60510
  90. 60520 ifa$<>chr$(13)then60530
  91. 60522 fori=1tolen(b$):ifleft$(b$,1)=" "thenb$=right$(b$,len(b$)-1)
  92. 60523 next
  93. 60525 print"[157] [154]":return
  94. 60530 ifa$=chr$(20)anda>1thenprint"[157][157]  [157][157][164]";:a=a-1:b$=left$(b$,a-1):goto60510
  95. 60535 if(a=le+1)then60510
  96. 60540 if(a$>=" ")and(a$<="[218]")then60560
  97. 60550 goto60510
  98. 60560 print"[157]"a$;:poke212,.:print"[164]";:b$=b$+a$:next
  99.