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 >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
66 lines
20 print"[147][155]neue zeilennummern und sprungbefehle"
30 print"dieses programm kopiert ein file auf der diskette.
40 [153]"das neue file bekommt neue zeilen- nummern, auch nach goto, ";
45 [153]"gosub, then, run und list werden die zeilennummern ge-aendert"
50 [153]"- nur nicht im text (hochkommamodus, tastaturpuffer).
60 hi=256:dim z(1000):rem zeilenanzahl
70 input"das alte file heisst";f1$
80 input"das neue file heisst";f2$
90 input"die erste zeile im neuen programm";ez
100 input"zeilenabstand";za
110 if f1$=""thenprint"[145][145][145][145][145]":goto70
120 if f2$=""thenprint"[145][145][145][145]":goto80
130 if ez<0 or ez>63999 thenprint"[145][145][145]":goto90
140 if za<1 thenprint"[145][145]":goto100
150 print:print
160 open15,8,15
170 open8,8,8,f1$+",p,r":gosub480:get#8,a$,b$
180 li=asc(a$+chr$(0))+hi*asc(b$+chr$(0)):ifli>40960then490
190 open9,8,9,"0:"+f2$+",p,w":gosub480:print#9,a$+b$;
200 gosub540:z(an)=asc(lo$+chr$(0))+hi*asc(hi$+chr$(0)):ifa$=""then240
210 print"[145]zeile";z(an);"[157] ist da
220 [141]520:an[178]an[170]1:[139] an[172]za[170]ez[179]63999 [167]200
230 [153]"die zeilennummern werden zu gross":[137]470
240 an[178]an[171]1:[160]8:[153]"":[159]8,8,8,f1$[170]",p,r":[141]480:[161]#8,a$,a$
250 [141]540:[139]a$[178]""[167]470
260 [141]560:[139]a$[178]""[167]420
270 [139]a[178]34[167][141]620:[139]a[178]0[167]420
280 [139]a[178]143[167][141]640:[137]420
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
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
310 [139]a[178]167[167][141]580:[139]a$[177]"9"[167]c$[178]c$[170]a$:[137]270
320 [139]a$[179]":"[167]360
330 [141]580
340 [139]a[178]0[176]a[178]58[167]c$[178]c$[170][199](a):[137]410
350 [139]a[178]171[167]c$[178]c$[170][199](a):[137]330
360 b$[178]a$:[141]600:[139]a[177]58[175]a[179][177]171[167]500
370 c[178][197](b$):[129]b[178]0[164]an:[139] z(b)[178]c[167]400
380 [130]:[139]z(0)[179][177]0[175]c[178]0[167]410
390 [137]500
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
410 [139]a[178]58[167]260
420 li[178]li[170]4[170][195](c$):z[178]nr[172]za[170]ez:nr[178]nr[170]1
430 b$[178][199](z[171][181](z[173]256)[172]256)[170][199](z[173]256)
440 b$[178][199](li[171][181](li[173]256)[172]256)[170][199](li[173]256)[170]b$
450 [152]9,b$;c$;:c$[178]"":[153]"onzeile";z;"cmd ist gespeichert worden
460 goto250
470 print#9,chr$(0)+chr$(0);:goto490
480 input#15,en$,em$:if val(en$)<20thenreturn
490 print"disk status:";en$","em$:close8:close9:close15:end
500 print"fehler in zeile";asc(lo$+chr$(0))+256*asc(hi$+chr$(0))
510 print"deshalb ist ";f2$;" nicht fertig!":goto470
520 get#8,a$:ifa$<>""then520
530 return
540 get#8,a$,a$,lo$,hi$
550 return
560 get#8,a$:a=asc(a$+chr$(0)):c$=c$+chr$(a):ifa<137anda<>34anda<>0then560
570 return
580 get#8,a$:a=asc(a$+chr$(0)):ifa=32then580
590 return
600 get#8,a$:b$=b$+a$:a=asc(a$+chr$(0)):ifa>47anda<58then600
610 return
620 get#8,a$:a=asc(a$+chr$(0)):c$=c$+chr$(a):ifa<>34anda<>0then620
630 return
640 get#8,a$:a=asc(a$+chr$(0)):c$=c$+chr$(a):ifa<>0then640
650 return