home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 10 / Tiger_Disk_010_19xx_Tiger-Crew-Disk_de_Side_B.d64 / renumber (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  66 lines
  1. 20 print"[147][155]neue zeilennummern und sprungbefehle"
  2. 30 print"dieses programm kopiert ein file auf    der diskette.
  3. 40 [153]"das neue file bekommt neue zeilen-      nummern, auch nach goto, ";
  4. 45 [153]"gosub, then,   run und list werden die zeilennummern ge-aendert"
  5. 50 [153]"- nur nicht im text (hochkommamodus,    tastaturpuffer).
  6. 60 hi=256:dim z(1000):rem zeilenanzahl
  7. 70 input"das alte file heisst";f1$
  8. 80 input"das neue file heisst";f2$
  9. 90 input"die erste zeile im neuen programm";ez
  10. 100 input"zeilenabstand";za
  11. 110 if f1$=""thenprint"[145][145][145][145][145]":goto70
  12. 120 if f2$=""thenprint"[145][145][145][145]":goto80
  13. 130 if ez<0 or ez>63999 thenprint"[145][145][145]":goto90
  14. 140 if za<1 thenprint"[145][145]":goto100
  15. 150 print:print
  16. 160 open15,8,15
  17. 170 open8,8,8,f1$+",p,r":gosub480:get#8,a$,b$
  18. 180 li=asc(a$+chr$(0))+hi*asc(b$+chr$(0)):ifli>40960then490
  19. 190 open9,8,9,"0:"+f2$+",p,w":gosub480:print#9,a$+b$;
  20. 200 gosub540:z(an)=asc(lo$+chr$(0))+hi*asc(hi$+chr$(0)):ifa$=""then240
  21. 210 print"[145]zeile";z(an);"[157] ist da
  22. 220 [141]520:an[178]an[170]1:[139] an[172]za[170]ez[179]63999 [167]200
  23. 230 [153]"die zeilennummern werden zu gross":[137]470
  24. 240 an[178]an[171]1:[160]8:[153]"":[159]8,8,8,f1$[170]",p,r":[141]480:[161]#8,a$,a$
  25. 250 [141]540:[139]a$[178]""[167]470
  26. 260 [141]560:[139]a$[178]""[167]420
  27. 270 [139]a[178]34[167][141]620:[139]a[178]0[167]420
  28. 280 [139]a[178]143[167][141]640:[137]420
  29. 290 [139]a[179][177]137[175]a[179][177]138[175]a[179][177]141[175]a[179][177]155[175]a[179][177]167[175]a[179][177]203[167]260
  30. 300 [139]a[178]203[167]c$[178][200](c$,[195](c$)[171]1)[170][199](137):[141]580:[139]a$[179][177][199](164)[167]500
  31. 310 [139]a[178]167[167][141]580:[139]a$[177]"9"[167]c$[178]c$[170]a$:[137]270
  32. 320 [139]a$[179]":"[167]360
  33. 330 [141]580
  34. 340 [139]a[178]0[176]a[178]58[167]c$[178]c$[170][199](a):[137]410
  35. 350 [139]a[178]171[167]c$[178]c$[170][199](a):[137]330
  36. 360 b$[178]a$:[141]600:[139]a[177]58[175]a[179][177]171[167]500
  37. 370 c[178][197](b$):[129]b[178]0[164]an:[139] z(b)[178]c[167]400
  38. 380 [130]:[139]z(0)[179][177]0[175]c[178]0[167]410
  39. 390 [137]500
  40. 400 c$[178]c$[170][202]([196](b[172]za[170]ez),2)[170][199](a):[139]a[178]44[176]a[178]171[167]330
  41. 410 [139]a[178]58[167]260
  42. 420 li[178]li[170]4[170][195](c$):z[178]nr[172]za[170]ez:nr[178]nr[170]1
  43. 430 b$[178][199](z[171][181](z[173]256)[172]256)[170][199](z[173]256)
  44. 440 b$[178][199](li[171][181](li[173]256)[172]256)[170][199](li[173]256)[170]b$
  45. 450 [152]9,b$;c$;:c$[178]"":[153]"onzeile";z;"cmd ist gespeichert worden
  46. 460 goto250
  47. 470 print#9,chr$(0)+chr$(0);:goto490
  48. 480 input#15,en$,em$:if val(en$)<20thenreturn
  49. 490 print"disk status:";en$","em$:close8:close9:close15:end
  50. 500 print"fehler in zeile";asc(lo$+chr$(0))+256*asc(hi$+chr$(0))
  51. 510 print"deshalb ist ";f2$;" nicht fertig!":goto470
  52. 520 get#8,a$:ifa$<>""then520
  53. 530 return
  54. 540 get#8,a$,a$,lo$,hi$
  55. 550 return
  56. 560 get#8,a$:a=asc(a$+chr$(0)):c$=c$+chr$(a):ifa<137anda<>34anda<>0then560
  57. 570 return
  58. 580 get#8,a$:a=asc(a$+chr$(0)):ifa=32then580
  59. 590 return
  60. 600 get#8,a$:b$=b$+a$:a=asc(a$+chr$(0)):ifa>47anda<58then600
  61. 610 return
  62. 620 get#8,a$:a=asc(a$+chr$(0)):c$=c$+chr$(a):ifa<>34anda<>0then620
  63. 630 return
  64. 640 get#8,a$:a=asc(a$+chr$(0)):c$=c$+chr$(a):ifa<>0then640
  65. 650 return
  66.