home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 June
/
64er_Magazin_87-06_1987_Markt__Technik_de_Side_B.d64
/
zusammensetzer3.
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
6KB
|
136 lines
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