1 REM  ZUSAMMEN-SETZER
2 REM         *
3 REM  GERMANO CARONNI
4 REM  GREUBSTELSTR.10
5 REM CH-5430 WETTINGEN
6 REM TEL.0041/56262574
7 REM         *
10 POKE53281,0:POKE53280,0:PRINT"[147]"
15 PRINT"    ZUSAMMENSETZEN VON PROGRAMMEN"
20 INPUT"ANZAHL FILES";AA:IFAA<1ORAA>50THEN10
21 DIMA%(282+AA*7),FA(AA-1),FE(AA-1)
30 DIMA$(AA-1),AN(AA-1),LE(AA-1),EN(AA-1),A(3):FORI=0TOAA-1:PRINT"[147]FILE"I+1":";
35 INPUTA$:IFA$=""THEN35
37 A$(I)=LEFT$(A$+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16):NEXTI:OPEN1,8,15,"I"
38 PRINT"[147]NR. FILENAMEN        START END+1 LAENG"
40 FORI=0TO203STEP34:A$=CHR$(5)+CHR$(34):FORJ=0TO33:READA:A$=A$+CHR$(A):NEXTJ
41 PRINT#1,"M-W"+CHR$(I)+A$:NEXTI
42 READA:PRINT#1,"M-W"+CHR$(204)+CHR$(5)+CHR$(1)+CHR$(A)
50 FORJ=0TOAA-1:PRINT#1,"M-W"+CHR$(240)+CHR$(7)+CHR$(16)+A$(J)
60 PRINT#1,"UC":INPUT#1,A,B$,C,D:IFATHENPRINTA;B$;C;D;A$(J):CLOSE1:END
70 FORI=0TO3:PRINT#1,"M-R"+CHR$(233+I)+CHR$(7):GET#1,A$:A(I)=ASC(A$+CHR$(0))
80 NEXT:AN(J)=A(2)+256*A(3):LE(J)=A(0)+256*A(1)+1:EN(J)=AN(J)+LE(J)
81 A$=STR$(J+1):PRINTRIGHT$("0"+RIGHT$(A$,LEN(A$)-1),2)+": "+A$(J);TAB(20);
82 PRINTAN(J)"[157]";TAB(26);EN(J)"[157]";TAB(32);LE(J)"[157]":NEXTJ
99 R=2100:PRINT"[147]NR. NEUAN NEE+1  FILAN FIE+1  LAENG":FORI=0TOAA-1
100 A$=STR$(I+1):PRINTRIGHT$("0"+RIGHT$(A$,LEN(A$)-1),2)+":";R"[157]";
101 PRINTTAB(9);R+LE(I)"[157]";:R=R+LE(I)
110 PRINTTAB(16);AN(I)"[157]";TAB(22);EN(I)"[157]";TAB(29);LE(I)"[157]":NEXTI
115 LM=R+AA*7+280:IFLM<53248THEN120
116 PRINT"[147]    SORRY - DAS FILE WIRD ZU LANG"
117 PRINT"ES BELEGT DEN PLATZ VON 2049 BIS"LM
118 PRINT"DAS SIND"LM-53247"BYTES ZUVIEL.":END
120 PRINT"VERTAUSCHEN (J/N) ? ";
121 GETA$:IFA$<>"J"ANDA$<>"N"THEN121
122 PRINTA$:IFA$="N"THEN200
123 INPUT"VON  :";VO:INPUT"NACH :";NA
124 NA=NA-1:VO=VO-1:IFNA<0ORVO<0ORNA=VOORVO>=AAORNA>=AATHEN99
125 AN=AN(VO):LE=LE(VO):EN=EN(VO):A$=A$(VO):AN(VO)=AN(NA):LE(VO)=LE(NA)
126 EN(VO)=EN(NA):A$(VO)=A$(NA):AN(NA)=AN:LE(NA)=LE:EN(NA)=EN:A$(NA)=A$
127 GOTO99
199 :
200 DIMVN(AA-1):FORI=0TOAA-1:VN(I)=I:NEXT
201 R=2100:PRINT"[147]NR. NEUAN NEE+1  FILAN FIE+1  LAENG VNR":FORI=0TOAA-1
202 A$=STR$(I+1):PRINTRIGHT$("0"+RIGHT$(A$,LEN(A$)-1),2)+":";R"[157]";TAB(9);
203 FA(I)=R:PRINTR+LE(I)"[157]";:R=R+LE(I):FE(I)=R
204 PRINTTAB(16);AN(I)"[157]";TAB(22);EN(I)"[157]";TAB(29);LE(I)"[157]"TAB(35);VN(I)+1;"[157]"
205 NEXT:PRINT"ANGABE (J/N) ? ";
206 GETA$:IFA$<>"J"ANDA$<>"N"THEN206
207 PRINTA$:IFA$="N"THEN250
210 INPUT"NUMMER   :";NU:NU=NU-1
220 INPUT"V-NUMMER :";VN:VN=VN-1
230 IFNU<0ORNU>=AAORVN<0ORVN>=AATHEN201
240 VN(NU)=VN:GOTO201
250 IFAA=1THEN270
251 FORI=0TOAA-2:FORJ=I+1TOAA-1:IFVN(I)=VN(J)THEN201
260 NEXTJ,I
265 :
270 PRINT"[147]EINSPRUNG-ADRESSE":PRINT"(FUER BASIC-PRG. SIEHE 'BASIC-START')"
271 PRINT"(FUER  READY-MODUS           : 42100)":PRINT""TAB(18);:INPUTS
280 INPUT"[147]NAME DES NEUEN FILES";NA$:NA$=LEFT$(NA$,16):IFNA$=""THEN280
281 PRINT#1,"I":OPEN3,8,3,NA$+",P,W"
288 INPUT#1,A,B$,C,D:IFATHENPRINTA;B$;C;D;NA$:CLOSE3:WAIT198,1:GETA$:GOTO280
289 PRINT#3,CHR$(1);CHR$(8);
290 FORI=2049TO2097:READA:PRINT#3,CHR$(A);:NEXT:HI=INT(R/256):LO=R-HI*256
295 PRINT#3,CHR$(LO);CHR$(HI);:FORI=49152TO49223:READA:POKEI,A:NEXT:PRINT"[147]"
299 :
300 FORI=0TOAA-1:OPEN2,8,2,A$(I):PRINTA$(I):GET#2,A$,B$:SYS49152:CLOSE2:NEXT
305 :
310 FORI=0TO279:READA%(I):NEXT
315 A%(34)=R+47-INT((R+47)/256)*256
316 A%(35)=INT((R+47)/256)
317 A%(94)=R+134-INT((R+134)/256)*256
318 A%(96)=INT((R+134)/256)
319 A=R+281+AA*7:A%(98)=A-INT(A/256)*256:A%(106)=INT(A/256)
320 A=53248+281+AA*7-134:A%(108)=A-INT(A/256)*256:A%(110)=INT(A/256)
325 A%(72)=S-INT(S/256)*256:A%(73)=INT(S/256)
330 :
340 PO=280:FORII=0TOAA-1:N=255:FORM=0TOAA-1:FORJ=0TOAA-1
345 IFVN(M)<NTHENI=M:N=VN(M)
347 NEXTJ,M:VN(I)=255
350 K=1-(FA(I)>=AN(I)):A%(PO)=K:PO=PO+1:ONKGOTO360,365
360 A=FA(I)-1:B=FE(I)-1:C=EN(I)-1
361 GOTO370
365 A=FE(I):B=FA(I):C=AN(I)
370 AH=INT(A/256):BH=INT(B/256):CH=INT(C/256):AL=A-AH*256:BL=B-BH*256
375 CL=C-CH*256
380 A%(PO)=AL:A%(PO+1)=AH:A%(PO+2)=BL
385 A%(PO+3)=BH:A%(PO+4)=CL:A%(PO+5)=CH
390 PO=PO+6:NEXTII:A%(PO)=0
395 :
400 FORI=0TOPO:PRINT#3,CHR$(A%(I));:NEXT:PRINT"[147]DAS FILE GEHT VON 2049 BIS";
405 PRINTLM;"   G.C"
410 CLOSE3:CLOSE1:END
500 :
1000 DATA76,22,5,169,0,133,249,133,127,173,0,3,133,128,173,1,3,133
1018 DATA129,76,96,212,169,18,160,0,141,0,3,140,1,3,32,24,193,32
1036 DATA3,5,32,3,5,169,0,141,239,7,10,10,10,10,10,168,162,0
1054 DATA185,5,3,221,240,7,208,8,200,232,224,16,208,242,240,20,238,239
1072 DATA7,173,239,7,201,9,208,222,173,0,3,208,209,169,98,76,200,193
1090 DATA152,56,233,16,168,162,0,185,2,3,157,237,7,200,232,224,3,208
1108 DATA244,173,238,7,141,0,3,173,239,7,141,1,3,169,252,141,233,7
1126 DATA169,0,141,234,7,32,3,5,173,2,3,141,235,7,173,3,3,141
1144 DATA236,7,173,0,3,208,10,173,1,3,56,233,4,141,233,7,96,32
1162 DATA3,5,173,0,3,240,17,173,233,7,24,105,254,141,233,7,144,3
1180 DATA238,234,7,76,161,5,173,1,3,56,233,2,24,109,233,7,141,233
1198 DATA7,144,3,238,234,7,96
1999 :
2000 DATA17,8,0,0,158,32,50,48,54,55,32,32,255,32,32,0,0,0,160,16,140,32
2010 DATA208,140,33,208,169,147,141,134,2,32,210,255,152,121,0,8,136,208,250
2020 DATA234,234,234,234,120,132,1,76
2030 :
2400 DATA32,204,255,162,2,32,198,255,160,0,132,102,32,207,255,234,234,234
2418 DATA234,153,72,192,200,208,2,230,102,165,144,41,64,133,101,240,2,230
2436 DATA102,165,102,240,227,132,100,32,204,255,162,3,32,201,255,160,0,185
2454 DATA72,192,32,210,255,200,196,100,208,245,165,101,240,188,32,204,255,96
2500 :
3000 DATA234,234,234,234,234,234,234,234,234,234,234,234,169,32,141,229,7,169
3018 DATA32,141,230,7,169,94,141,231,7,234,234,234,234,234,234,185,47,192
3036 DATA153,52,3,200,192,204,208,245,76,52,3,169,55,133,1,160,0,185
3054 DATA71,3,153,0,208,200,192,8,208,245,240,8,169,55,133,1,88,76
3072 DATA226,252,160,0,185,191,163,153,196,3,200,192,60,208,245,234,234,234
3090 DATA234,234,234,169,0,162,0,160,0,133,95,134,96,132,90,169,0,162
3108 DATA0,160,0,133,91,134,88,132,89,169,0,133,1,32,196,3,234,234
3126 DATA234,234,234,234,234,76,8,208,169,55,133,1,88,76,226,252,162,0
3144 DATA189,146,208,240,116,232,168,189,146,208,133,95,232,189,146,208,133,96
3162 DATA232,189,146,208,133,90,232,189,146,208,133,91,232,189,146,208,133,88
3180 DATA232,189,146,208,133,89,232,192,1,208,42,160,0,177,90,145,88,165
3198 DATA90,56,233,1,133,90,176,2,198,91,165,88,56,233,1,133,88,176
3216 DATA2,198,89,165,91,197,96,208,224,165,90,197,95,208,218,240,167,160
3234 DATA0,177,90,145,88,230,90,208,2,230,91,230,88,208,2,230,89,165
3252 DATA91,197,96,208,234,165,90,197,95,208,228,240,135,173,230,7,234,234
3270 DATA234,234,234,234,234,234,234,76,0,208
9999 END
10000 FORI=49152TO49432STEP18:PRINTI-46152"DATA";:FORJ=0TO17:A$=STR$(PEEK(I+J))
10020 PRINTMID$(A$,2,LEN(A$)-1);",";:NEXTJ:PRINTCHR$(20):NEXTI:END