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   
Commodore BASIC  |  2022-10-26  |  6KB  |  136 lines
  1. 1 rem  zusammen-setzer
  2. 2 rem         *
  3. 3 rem  germano caronni
  4. 4 rem  greubstelstr.10
  5. 5 rem ch-5430 wettingen
  6. 6 rem tel.0041/56262574
  7. 7 rem         *
  8. 10 poke53281,0:poke53280,0:print"[147]"
  9. 15 print"    zusammensetzen von programmen"
  10. 20 input"anzahl files";aa:ifaa<1oraa>50then10
  11. 21 dima%(282+aa*7),fa(aa-1),fe(aa-1)
  12. 30 dima$(aa-1),an(aa-1),le(aa-1),en(aa-1),a(3):fori=0toaa-1:print"[147]file"i+1":";
  13. 35 inputa$:ifa$=""then35
  14. 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"
  15. 38 print"[147]nr. filenamen        start end+1 laeng"
  16. 40 fori=0to203step34:a$=chr$(5)+chr$(34):forj=0to33:reada:a$=a$+chr$(a):nextj
  17. 41 print#1,"m-w"+chr$(i)+a$:nexti
  18. 42 reada:print#1,"m-w"+chr$(204)+chr$(5)+chr$(1)+chr$(a)
  19. 50 forj=0toaa-1:print#1,"m-w"+chr$(240)+chr$(7)+chr$(16)+a$(j)
  20. 60 print#1,"uc":input#1,a,b$,c,d:ifathenprinta;b$;c;d;a$(j):close1:end
  21. 70 fori=0to3:print#1,"m-r"+chr$(233+i)+chr$(7):get#1,a$:a(i)=asc(a$+chr$(0))
  22. 80 next:an(j)=a(2)+256*a(3):le(j)=a(0)+256*a(1)+1:en(j)=an(j)+le(j)
  23. 81 a$=str$(j+1):printright$("0"+right$(a$,len(a$)-1),2)+": "+a$(j);tab(20);
  24. 82 printan(j)"[157]";tab(26);en(j)"[157]";tab(32);le(j)"[157]":nextj
  25. 99 r=2100:print"[147]nr. neuan nee+1  filan fie+1  laeng":fori=0toaa-1
  26. 100 a$=str$(i+1):printright$("0"+right$(a$,len(a$)-1),2)+":";r"[157]";
  27. 101 printtab(9);r+le(i)"[157]";:r=r+le(i)
  28. 110 printtab(16);an(i)"[157]";tab(22);en(i)"[157]";tab(29);le(i)"[157]":nexti
  29. 115 lm=r+aa*7+280:iflm<53248then120
  30. 116 print"[147]    sorry - das file wird zu lang"
  31. 117 print"es belegt den platz von 2049 bis"lm
  32. 118 print"das sind"lm-53247"bytes zuviel.":end
  33. 120 print"vertauschen (j/n) ? ";
  34. 121 geta$:ifa$<>"j"anda$<>"n"then121
  35. 122 printa$:ifa$="n"then200
  36. 123 input"von  :";vo:input"nach :";na
  37. 124 na=na-1:vo=vo-1:ifna<0orvo<0orna=voorvo>=aaorna>=aathen99
  38. 125 an=an(vo):le=le(vo):en=en(vo):a$=a$(vo):an(vo)=an(na):le(vo)=le(na)
  39. 126 en(vo)=en(na):a$(vo)=a$(na):an(na)=an:le(na)=le:en(na)=en:a$(na)=a$
  40. 127 goto99
  41. 199 :
  42. 200 dimvn(aa-1):fori=0toaa-1:vn(i)=i:next
  43. 201 r=2100:print"[147]nr. neuan nee+1  filan fie+1  laeng vnr":fori=0toaa-1
  44. 202 a$=str$(i+1):printright$("0"+right$(a$,len(a$)-1),2)+":";r"[157]";tab(9);
  45. 203 fa(i)=r:printr+le(i)"[157]";:r=r+le(i):fe(i)=r
  46. 204 printtab(16);an(i)"[157]";tab(22);en(i)"[157]";tab(29);le(i)"[157]"tab(35);vn(i)+1;"[157]"
  47. 205 next:print"angabe (j/n) ? ";
  48. 206 geta$:ifa$<>"j"anda$<>"n"then206
  49. 207 printa$:ifa$="n"then250
  50. 210 input"nummer   :";nu:nu=nu-1
  51. 220 input"v-nummer :";vn:vn=vn-1
  52. 230 ifnu<0ornu>=aaorvn<0orvn>=aathen201
  53. 240 vn(nu)=vn:goto201
  54. 250 ifaa=1then270
  55. 251 fori=0toaa-2:forj=i+1toaa-1:ifvn(i)=vn(j)then201
  56. 260 nextj,i
  57. 265 :
  58. 270 print"[147]einsprung-adresse":print"(fuer basic-prg. siehe 'basic-start')"
  59. 271 print"(fuer  ready-modus           : 42100)":print""tab(18);:inputs
  60. 280 input"[147]name des neuen files";na$:na$=left$(na$,16):ifna$=""then280
  61. 281 print#1,"i":open3,8,3,na$+",p,w"
  62. 288 input#1,a,b$,c,d:ifathenprinta;b$;c;d;na$:close3:wait198,1:geta$:goto280
  63. 289 print#3,chr$(1);chr$(8);
  64. 290 fori=2049to2097:reada:print#3,chr$(a);:next:hi=int(r/256):lo=r-hi*256
  65. 295 print#3,chr$(lo);chr$(hi);:fori=49152to49223:reada:pokei,a:next:print"[147]"
  66. 299 :
  67. 300 fori=0toaa-1:open2,8,2,a$(i):printa$(i):get#2,a$,b$:sys49152:close2:next
  68. 305 :
  69. 310 fori=0to279:reada%(i):next
  70. 315 a%(34)=r+47-int((r+47)/256)*256
  71. 316 a%(35)=int((r+47)/256)
  72. 317 a%(94)=r+134-int((r+134)/256)*256
  73. 318 a%(96)=int((r+134)/256)
  74. 319 a=r+281+aa*7:a%(98)=a-int(a/256)*256:a%(106)=int(a/256)
  75. 320 a=53248+281+aa*7-134:a%(108)=a-int(a/256)*256:a%(110)=int(a/256)
  76. 325 a%(72)=s-int(s/256)*256:a%(73)=int(s/256)
  77. 330 :
  78. 340 po=280:forii=0toaa-1:n=255:form=0toaa-1:forj=0toaa-1
  79. 345 ifvn(m)<ntheni=m:n=vn(m)
  80. 347 nextj,m:vn(i)=255
  81. 350 k=1-(fa(i)>=an(i)):a%(po)=k:po=po+1:onkgoto360,365
  82. 360 a=fa(i)-1:b=fe(i)-1:c=en(i)-1
  83. 361 goto370
  84. 365 a=fe(i):b=fa(i):c=an(i)
  85. 370 ah=int(a/256):bh=int(b/256):ch=int(c/256):al=a-ah*256:bl=b-bh*256
  86. 375 cl=c-ch*256
  87. 380 a%(po)=al:a%(po+1)=ah:a%(po+2)=bl
  88. 385 a%(po+3)=bh:a%(po+4)=cl:a%(po+5)=ch
  89. 390 po=po+6:nextii:a%(po)=0
  90. 395 :
  91. 400 fori=0topo:print#3,chr$(a%(i));:next:print"[147]das file geht von 2049 bis";
  92. 405 printlm;"   g.c"
  93. 410 close3:close1:end
  94. 500 :
  95. 1000 data76,22,5,169,0,133,249,133,127,173,0,3,133,128,173,1,3,133
  96. 1018 data129,76,96,212,169,18,160,0,141,0,3,140,1,3,32,24,193,32
  97. 1036 data3,5,32,3,5,169,0,141,239,7,10,10,10,10,10,168,162,0
  98. 1054 data185,5,3,221,240,7,208,8,200,232,224,16,208,242,240,20,238,239
  99. 1072 data7,173,239,7,201,9,208,222,173,0,3,208,209,169,98,76,200,193
  100. 1090 data152,56,233,16,168,162,0,185,2,3,157,237,7,200,232,224,3,208
  101. 1108 data244,173,238,7,141,0,3,173,239,7,141,1,3,169,252,141,233,7
  102. 1126 data169,0,141,234,7,32,3,5,173,2,3,141,235,7,173,3,3,141
  103. 1144 data236,7,173,0,3,208,10,173,1,3,56,233,4,141,233,7,96,32
  104. 1162 data3,5,173,0,3,240,17,173,233,7,24,105,254,141,233,7,144,3
  105. 1180 data238,234,7,76,161,5,173,1,3,56,233,2,24,109,233,7,141,233
  106. 1198 data7,144,3,238,234,7,96
  107. 1999 :
  108. 2000 data17,8,0,0,158,32,50,48,54,55,32,32,255,32,32,0,0,0,160,16,140,32
  109. 2010 data208,140,33,208,169,147,141,134,2,32,210,255,152,121,0,8,136,208,250
  110. 2020 data234,234,234,234,120,132,1,76
  111. 2030 :
  112. 2400 data32,204,255,162,2,32,198,255,160,0,132,102,32,207,255,234,234,234
  113. 2418 data234,153,72,192,200,208,2,230,102,165,144,41,64,133,101,240,2,230
  114. 2436 data102,165,102,240,227,132,100,32,204,255,162,3,32,201,255,160,0,185
  115. 2454 data72,192,32,210,255,200,196,100,208,245,165,101,240,188,32,204,255,96
  116. 2500 :
  117. 3000 data234,234,234,234,234,234,234,234,234,234,234,234,169,32,141,229,7,169
  118. 3018 data32,141,230,7,169,94,141,231,7,234,234,234,234,234,234,185,47,192
  119. 3036 data153,52,3,200,192,204,208,245,76,52,3,169,55,133,1,160,0,185
  120. 3054 data71,3,153,0,208,200,192,8,208,245,240,8,169,55,133,1,88,76
  121. 3072 data226,252,160,0,185,191,163,153,196,3,200,192,60,208,245,234,234,234
  122. 3090 data234,234,234,169,0,162,0,160,0,133,95,134,96,132,90,169,0,162
  123. 3108 data0,160,0,133,91,134,88,132,89,169,0,133,1,32,196,3,234,234
  124. 3126 data234,234,234,234,234,76,8,208,169,55,133,1,88,76,226,252,162,0
  125. 3144 data189,146,208,240,116,232,168,189,146,208,133,95,232,189,146,208,133,96
  126. 3162 data232,189,146,208,133,90,232,189,146,208,133,91,232,189,146,208,133,88
  127. 3180 data232,189,146,208,133,89,232,192,1,208,42,160,0,177,90,145,88,165
  128. 3198 data90,56,233,1,133,90,176,2,198,91,165,88,56,233,1,133,88,176
  129. 3216 data2,198,89,165,91,197,96,208,224,165,90,197,95,208,218,240,167,160
  130. 3234 data0,177,90,145,88,230,90,208,2,230,91,230,88,208,2,230,89,165
  131. 3252 data91,197,96,208,234,165,90,197,95,208,228,240,135,173,230,7,234,234
  132. 3270 data234,234,234,234,234,234,234,76,0,208
  133. 9999 end
  134. 10000 fori=49152to49432step18:printi-46152"data";:forj=0to17:a$=str$(peek(i+j))
  135. 10020 printmid$(a$,2,len(a$)-1);",";:nextj:printchr$(20):nexti:end
  136.