0 REM             RENUMBER
1 POKE56,32:CLR:GOSUB51:C=8195:DIMI1%(800):DIMI2%(800):POKE53280,0:POKE53281,0:PRINT"[147][155]":INPUT"ERSTE ZEILENNUMMER0[157][157][157]";PP:INPUT"INKREMENT50[157][157][157][157]";AG:N1=0
2 PRINT"NAME VON PROGRAMM";N1+1;:INPUTB$(N1):IFB$(N1)=""THEN5
3 N1=N1+1:IFN1>9THEN5
4 GOTO2
5 N2=N1:N1=-1
6 N1=N1+1:IFN1=N2THENGOSUB48:PRINT"FERTIG!":PRINT:PRINT,TI$:POKE198,0:WAIT198,1:END
7 PR=PP:N$=B$(N1):X=1:OPEN2,8,2,N$+",P,R":PRINT"ICH LADE NR.";N1+1;N$:Y=C
8 GET#2,A$:POKE Y,ASC(A$+CHR$(0)):IFST<>0THENCLOSE2:GOSUB48:GOTO11
9 Y=Y+1:IFY<53247THEN8
10 PRINT"PROGRAMM IST ZU LANG!":CLOSE2:GOSUB48:GOTO6
11 TI$="000000":PRINT" PASS 1":GOSUB29:I=C+1:PR=PR-AG:GOTO13
12 I=I+1:GOTO22
13 X=1:CU=0:A=USR(I+3)+256*USR(I+4)
14 IFI1%(X)=(A-32767)THEN17
15 X=X+1:IFX<TT+1THEN14
16 PR=PR+AG:HI=INT(PR/256):LO=PR-HI*256:POKEI+3,LO:POKEI+4,HI:PRINT,"NEUE NUMMER";PR:I=I+4:GOTO12
17 B=I2%(X)+32767:A2=PR+AG:A3=I1%(X)+32767:A1=LEN(STR$(A2))-LEN(STR$(A3)):IFA1>0THEN20
18 FORL=2TOLEN(STR$(A2)):POKEB+L-2,ASC(MID$(STR$(A2),L,1)):NEXT:U=B+L-2:PRINT"ADR.";B;" VON";A3;" AUF";A2:PRINT:IFA1<0THENA1=ABS(A1):GOTO26
19 GOTO15
20 PRINT:PRINTQ,"+";A1;"BYTES BEI ADR.";B:PRINT:FORL=QTOBSTEP-1:POKEL+A1,USR(L):NEXT:Q=Q+A1:FORL=X+1TOTT:I2%(L)=I2%(L)+A1:NEXT:IFB<ITHENI=I+A1
21 GOTO18
22 IFUSR(I)=0THENPRINT:PRINTUSR(I+3)+256*USR(I+4):GOTO24
23 GOTO12
24 IFUSR(I+1)=0ANDUSR(I+2)=0THENPRINT,L,Q:GOTO28
25 GOTO13
26 PRINT:PRINTQ,"-";A1;"BYTES BEI ADR.";B:PRINT:FORL=UTOQ:POKEL,USR(L+A1):NEXT:Q=Q-A1:FORL=X+1TOTT:I2%(L)=I2%(L)-A1:NEXT:IFB<ITHENI=I-A1
27 GOTO19
28 PRINT:PRINT:PRINTTI$:OPEN2,8,2,"REN-"+N$+",P,W":PRINT"ICH SICHERE NR.";N1+1;N$:FORY=CTOQ:PRINT#2,CHR$(USR(Y));:NEXT:CLOSE2:GOSUB48:GOTO6
29 L=C+1:GOTO46
30 IFUSR(L)=0THEN46
31 U=USR(L):IFU=141ORU=137ORU=138ORU=167THEN34
32 IFU=100ANDUSR(L+1)=48THENL=L+1:GOTO34
33 L=L+1:GOTO30
34 L=L+1:IFUSR(L)=32THEN34
35 A=L:IFUSR(L)<48ORUSR(L)>57THEN30
36 L=L+1:IFUSR(L)<48ORUSR(L)>57THENCC=L:L=L-1:GOTO38
37 GOTO36
38 B=USR(L)-48:IFUSR(L+1)=44THENO=1
39 IFL=ATHEN44
40 L=L-1:B=B+(USR(L)-48)*10:IFL=ATHEN44
41 L=L-1:B=B+(USR(L)-48)*100:IFL=ATHEN44
42 L=L-1:B=B+(USR(L)-48)*1000:IFL=ATHEN44
43 L=L-1:B=B+(USR(L)-48)*10000:IFL<>ATHEN31
44 I1%(X)=B-32767:PRINT"SPRUNG NACH";B;:I2%(X)=A-32767:X=X+1:IFO=1THENO=0:L=CC:GOTO34:
45 GOTO33
46 IFUSR(L+1)=0ANDUSR(L+2)=0THENQ=L+3:TT=X:PRINT:PRINT:PRINT" PASS 2":RETURN
47 PRINT:AD=USR(L+3)+256*USR(L+4):L=L+5:PRINTAD,:GOTO30
48 OPEN1,8,15:PRINT:PRINT"";
49 GET#1,A$:PRINTA$;:IFST=0ANDA$<>CHR$(13)THEN49
50 PRINT#1,"M-W";CHR$(106);CHR$(0);CHR$(1);CHR$(133):PRINT#1,"I":PRINT#1,"M-W";CHR$(6);CHR$(0);CHR$(2);CHR$(36);CHR$(1):PRINT#1,"M-W";CHR$(0);CHR$(0);CHR$(1);CHR$(128):CLOSE1:RETURN
51 RESTORE:FORL=704TO738:READA:POKEL,A:NEXT:DATA165,20,72,165,21,72,32,247,183,165,1,72:DATA169,52,120,133,1,160,0,177,20,168,104:DATA133,1,88,104,133,21,104,133,20,76,162,179:POKE785,192:POKE786,2:RETURN