home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_95-01_1995_-_de_Side_B.d64 / tapecover (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  9KB  |  241 lines
  1. 50 sa=1:rem" sek.adr. drucker
  2. 80 [151]53280,1:[151]53281,11:[153]"loadprint":[151]650,128:[134]ne$(48):v[178]15
  3. 82 [153]" (NULL)apelenover 12/15  (len) 1995 by len(NULL) (NULL)erlag ";:[151]808,225
  4. 83 [153]"waittab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  5. 84 print" [193]utor: [212]horsten [218]ielke":printspc(8)"[204]embergstr. 14
  6. 85 [153][166]8)"78667 (NULL)illingendorf":[153]" (NULL)ielen str$ank an left$olger (NULL)chmidt, de";
  7. 86 [153]"r die  right$dee zu diesem (NULL)rogramm hatte."
  8. 87 [153]" chr$ruesse an:":[153]" - str$olman     - peekirgit     - (NULL)homas (NULL).
  9. 88 print" - [211]andra [200].  - [217]vonne     - [200]nnng
  10. 89 [153]" - (NULL)uediger   - str$aniela    - mid$oern
  11. 90 print" - [205]artina    - [195]armen     - [211]tefan
  12. 91 [153]" - (NULL)anuela    - right$solde     - (NULL)ichael
  13. 92 print" - [196]e[196]e       - [205]oni       - [202]ens
  14. 93 [153]" - (NULL)homas (NULL).  - (NULL)andra (NULL).  - atnndy
  15. 94 print" - [205]arkus     - [213]te        - [205]arion
  16. 95 [153]"totototototototototototototototototototototototototototototototototototototototo";
  17. 96 [153]"                                       ":[151]2023,160
  18. 101 [134]a$(48),n$(40):[129]l[178]1[164]39:l$[178]l$[170][199](160):le$[178]le$[170][199](32):[130]
  19. 102 [129]w[178]4[164]32:a$(w)[178]"<                       <                       <"
  20. 103 [130]:k$[178][199](27)
  21. 104 [129]a[178]33[164]46:a$(a)[178]"<                                               <":[130]
  22. 105 a$(34)[178]"lenstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$atnstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$sgn"
  23. 109 a$(39)[178]"lenstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$sgn"
  24. 110 a$(45)[178]"tanstr$str$str$str$str$str$str$str$str$str$str$str$str$str$atnstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$atnstr$str$str$str$str$str$str$str$str$str$str$str$str$(NULL)"
  25. 111 a$(43)[178]"lenstr$str$str$str$str$str$str$str$str$str$str$str$str$str$peekstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$peekstr$str$str$str$str$str$str$str$str$str$str$str$str$sgn"
  26. 113 [140]:a$(41)[178]"<"[170][199](15)[170]"              "
  27. 114 [129]ww[178]1[164]63:[135]a:a$(41)[178]a$(41)[170][199](a):[130]
  28. 115 [153]""[163]57)"(NULL)pace!":[151]198,.:[146]198,1
  29. 116 [151]53280,12:[153]"loadlist"
  30. 117 [131]40,87,41,32,49,52,46,32,78,111,118,101,109,98,101,114,32,49,57,57,52
  31. 118 [131]32,98,121,32,87,105,122,97,114,100,32,111,102,32,84,72,69,32,83,69,80
  32. 119 [153]"load(NULL)ame: ";[200](n$(1),30);" ";n$(2):[131]65,82,65,84,69,32,84,87,79,33
  33. 120 [153]"  1 wait valingabe von max. 2 *"v"(NULL)iteln"
  34. 121 [153]"  2 wait atnusdruck":[151]53280,12:[131]32,32,32,32,18,32,32,32,32,32,179
  35. 122 [153]"  3 wait (NULL)eberblick
  36. 123 print"  4 [146] [197]ditieren
  37. 124 [153]"  5 wait (NULL)aden
  38. 125 print"  6 [146] [211]peichern      7 [146] [196]irectory":gosub6000
  39. 130 poke198,.:wait198,1:getw$:w=val(w$):ifw=0orw>7then130
  40. 140 print"[147]";:onwgoto400,144,1000,2000,15000,16000,600
  41. 143 goto119
  42. 144 a$(36)=a$(35):ifei=.then119
  43. 145 close1:open1,4,sa:close1:ifst<>.then119
  44. 150 print"[147][197]mpfohlene [206][204][209] - [211]chriftart:":zw=.
  45. 151 print"    - [207]rator":print"      oder":print"    - [207]rator [201]talic
  46. 155 [153]"(NULL)waitlim-lenover oder (NULL)waitorm-lenover? (NULL)wait = valxit!":[151]198,.:[146]198,1:[161]zw$
  47. 160 [139]zw$[178]"s"[176]zw$[178]"(NULL)"[167]zw[178]1
  48. 170 [139]zw$[178]"x"[176]zw$[178]"(NULL)"[167]119
  49. 180 fz[178].:[129]d[178]1[164]3:[139]n$(17[170]d)[179][177][200](l$,23)[167]fz[178]1:[130]
  50. 182 [129]d[178]1[164]3:[139]n$(32[170]d)[179][177][200](l$,23)[167]fz[178]1:[130]
  51. 183 [139]fz[167]7000
  52. 184 [141]200:[129]d[178]1[164]3:[141]300:[130]
  53. 185 [129]et[178]6[164]17:[141]61000:eg[178](et[171]5)[172]2:[141]5005
  54. 187 [129]z[178]1[164]2:d[178](et[171]5)[172]2[170]1[170]z:[141]300:[130]:[130]
  55. 190 [129]z[178]1[164]5:et[178]z:[141]61000:[130]:[141]5000:[129]d[178]34[164]45:[141]300:[130]:[137]119
  56. 200 [160]1:[160]7:[153]"str$atenuebertragung!":[159]1,4,sa
  57. 210 [152]1,k$;[199](77);
  58. 211 [152]1,k$;[199](51);[199](21);
  59. 220 a$(1)[178]"(NULL)str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$peekstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$sin"
  60. 222 a$(2)[178]"<        seite a        <        seite b        <"
  61. 223 a$(3)[178]"lenstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$valstr$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$str$sgn":[142]
  62. 300 [139]d[178]3[167][152]1,k$;[199](106);[199](4);
  63. 302 [139]d[178]4[167][152]1,k$;[199](74);[199](4);
  64. 303 [139]d[178]34[167][152]1,k$;[199](106);[199](6);
  65. 305 [139]d[178]38[175]zw[178].[167][152]1,k$;[199](74);[199](9);
  66. 306 [139]d[178]27[167][152]1,k$;[199](45);[199](0);
  67. 307 [152]1,k$;[199](45);[199](0);
  68. 308 [139]d[177]3[175]d[179]27[175]d[173]2[178][181](d[173]2)[167][152]1,k$;[199](45);[199](1);
  69. 311 [139]zw [175]d[178]37[167][142]
  70. 312 [139]zw [175]d[178]36[167]a$(d)[178]a$(37)
  71. 313 [139]d[178]37[167][152]1,k$;[199](106);[199](9);
  72. 319 [139]d[178]27[167]a$(d)[178]a$(38)
  73. 320 [152]1,a$(d):[142]
  74. 400 x[178].:y[178]3:[141]422:ei[178]1
  75. 401 [153]"tab(tab(tab(tab(tab(tab(tab(tab(fretab(usrtab(usrtab(usrtab(usrtab( waittab(usrtab(usrtab(usrtab(usrtab(fretab(tab(tab(tab(tab(tab(tab(tab(tab(":l[178]38:hv[178]1:f$[178]"(NULL)ame:cmdcmdcmdcmdcmd"
  76. 402 [141]60000:y[178]6:ne$(hv)[178][200](ne$(hv)[170]l$,43):[139]ed[167][142]
  77. 405 hv[178]2:l[178]2:f$[178]"(NULL)ummer: ":[141]60000
  78. 406 y[178]8:[139]ed[167][142]
  79. 410 hv[178]3:l[178]2:f$[178]"(NULL)opie von:    (lenstr$/(NULL)(NULL)/(NULL)len/str$len)cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd":[141]60000
  80. 411 y[178]10:[139]ed[167][142]
  81. 415 hv[178]4:l[178]10:f$[178]"str$atum:            (27-08-1993)cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
  82. 416 [141]60000:y[178]12:[139]ed[167][142]
  83. 420 hv[178]5:l[178]2:f$[178]"str$olby (NULL)(NULL):    (peek!/len!/(NULL)(NULL))cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd":[141]60000:[139]ed[167][142]
  84. 421 [153]"load":[141]423:[137]430
  85. 422 :
  86. 423 [153]"loadae = @ / oe = * / ue = ^ / ss = \
  87. 426 return
  88. 430 foreg=2to30step2
  89. 431 l=23:y=4:f$="[211]ide [193], [208]os"+str$(eg/2)+": ":gosub500:gosub3000:hv=5+eg/2:gosub60000
  90. 432 ifedthenreturn
  91. 433 next:print"[147]":gosub423
  92. 440 foreg=2to30step2
  93. 441 l=23:y=4:f$="[211]ide [194], [208]os"+str$(eg/2)+": ":gosub500:gosub3000:hv=20+eg/2:gosub60000
  94. 442 ifedthenreturn
  95. 443 next
  96. 499 goto119
  97. 500 ifeg<20thenprint"               [163][183][163][183][163][183][163][183][163][183][163] [146][163][183][163][183][163][183][163][183][163][183][163] ":return
  98. 510 print"                [163][183][163][183][163][183][163][183][163][183][163] [146][163][183][163][183][163][183][163][183][163][183][163]":return
  99. 600 gosub749:goto119
  100. 749 close1:open1,8,1:close1:ifst<>0then119
  101. 750 close1:print"[147] 0 ";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:x$=chr$(0)
  102. 760 fori=1to7:geta$,b$,c$,d$:printa$b$c$d$;:next:print:geta$,a$,a$,b$
  103. 770 ifst thensys65484:close1:goto790
  104. 780 printasc(a$+x$)+256*asc(b$+x$);:goto760
  105. 790 print" [212]aste![146]":poke198,.:wait198,1:poke198,.:return
  106. 1000 gosub423:print:print"[206]ame:":printn$(1)
  107. 1001 print"[206]ummer: ";n$(2)
  108. 1002 print"[203]opie von: ";n$(3)
  109. 1003 print"[196]atum: ";n$(4)
  110. 1004 print"[196]olby: ";n$(5):print"[212][193][211][212][197]!":poke198,.:wait198,1:print"[147]";:gosub423
  111. 1005 print:forl=1to15:print"[211]ide [193], [208]os"l"[157]: ";n$(l+5):next
  112. 1006 print"[212][193][211][212][197]!":poke198,.:wait198,1:print"[147]";:gosub423:print
  113. 1007 forl=1to15:print"[211]ide [194], [208]os"l"[157]: ";n$(l+20):next
  114. 1009 print"[212][193][211][212][197]!":poke198,.:wait198,1:print"[147]":goto119
  115. 1115 poke53280,12:print"[147][153]"
  116. 2000 x=.:gosub423:print"[197]ditieren!":ed=1:y=3
  117. 2001 print"[206]ame:[157][157][157][157][157]";n$(1):gosub2900:ifw$<>"j"then2010
  118. 2005 gosub3000:gosub401:gosub3005
  119. 2010 y=4:gosub3001:print"[206]ummer: ";n$(2)
  120. 2011 gosub2900:ifw$<>"j"then2020
  121. 2015 gosub3000:gosub405
  122. 2020 y=4:gosub3000:print"[203]opie von: ";n$(3)
  123. 2021 gosub2900:ifw$<>"j"then2030
  124. 2025 gosub3000:gosub410
  125. 2030 y=4:gosub3000:print"[196]atum: ";n$(4)
  126. 2031 gosub2900:ifw$<>"j"then2040
  127. 2035 gosub3000:gosub415
  128. 2040 y=4:gosub3000:print"[196]olby [206][210]: ";n$(5)
  129. 2041 gosub2900:ifw$<>"j"then2050
  130. 2045 gosub3000:gosub420
  131. 2050 forla=1to15:y=4:gosub3000:print"[211]ide [193], [208]os"la"[157]: ";n$(la+5)
  132. 2051 gosub2900:ifw$<>"j"then2060
  133. 2052 eg=la*2
  134. 2055 gosub3000:gosub431:gosub3005
  135. 2060 next
  136. 2061 forla=1to15:y=4:gosub3000:print"[211]ide [194], [208]os"la"[157]: ";n$(la+20)
  137. 2062 gosub2900:ifw$<>"j"then2080
  138. 2063 eg=la*2
  139. 2065 gosub3000:gosub441:gosub3005
  140. 2080 next:ed=.
  141. 2899 goto119
  142. 2900 print"[193]endern? (j/n)                        "
  143. 2901 poke198,.:wait198,1:getw$:return
  144. 2999 print"[212][193][211][212][197]!":poke198,.:wait198,1:print"[147]":goto119
  145. 3000 print"                                       ":goto3010
  146. 3001 print"                                       "
  147. 3002 print"                                       ":return
  148. 3005 print"                                       ":return
  149. 3010 print"                  "
  150. 3011 print"                  ":return
  151. 5000 a$(37)="[179] "+ne$(1)
  152. 5001 a$(37)=a$(37)+"     "+ne$(2)+" [179]"
  153. 5002 a$(44)="[179] kopie von:"+ne$(3)+" [179]"
  154. 5003 a$(44)=a$(44)+" datum:"+ne$(4)+" [179]"
  155. 5004 a$(44)=a$(44)+" dolby nr:"+ne$(5)+" [179]":return
  156. 5005 :
  157. 5006 hv=eg/2+5:a$(2+eg)="[179]"+ne$(hv)+"[179]"
  158. 5008 hv=eg/2+20:a$(2+eg)=a$(2+eg)+ne$(hv)+"[179]":return
  159. 6000 print"> [196][201][208]s fuer [211][212][193][210] [204][195]-10 mit [215]iesemann:   >"
  160. 6001 print"> [196][201][208]: 1-1 1-2 1-3 1-4 1-5 1-6 1-7 1-8"
  161. 6002 print"> [197][201][206]:         [192][192][192] [192][192][192] [192][192][192] [192][192][192]
  162. 6003 [153]"> atn(NULL)(NULL): tantantan tantantan                 tantantan tantantan
  163. 6004 print">":print"> [196][201][208]: 2-1 2-2 2-3 2-4"
  164. 6005 print"> [197][201][206]: [192][192][192] [192][192][192]     [192][192][192]
  165. 6006 [153]"> atn(NULL)(NULL):         tantantan":[142]
  166. 7000 [141]7100:[129]d[178]1[164]3:[141]7300:[130]
  167. 7001 [129]et[178]6[164]20:[141]61000:eg[178](et[171]5)[172]2:[141]5005
  168. 7002 [129]z[178]1[164]2:d[178](et[171]5)[172]2[170]1[170]z:[141]7300:[130]:[130]
  169. 7004 [129]z[178]1[164]5:et[178]z:[141]61000:[130]:[141]5000:[129]d[178]34[164]45:[141]7300:[130]:[137]119
  170. 7100 [160]1:[160]7:[153]"str$atenuebertragung!":[159]1,4,sa
  171. 7102 [152]1,k$;[199](77);k$;[199](51);[199](17);
  172. 7104 [141]220:[142]
  173. 7300 [139]d[178]3[167][152]1,k$;[199](106);[199](2);
  174. 7302 [139]d[178]4[167][152]1,k$;[199](74);[199](4);
  175. 7304 [139]d[178]34[167][152]1,k$;[199](51);[199](21);k$;[199](106);[199](6);
  176. 7306 [139]d[178]35[167][152]1,k$;[199](45);[199](0);
  177. 7308 [139]d[178]37[167][152]1,k$;[199](106);[199](9);
  178. 7310 [139]d[178]38[167][152]1,k$;[199](74);[199](9);
  179. 7312 [152]1,k$;[199](45);[199](0);
  180. 7314 [139]d[177]3[175]d[179]33[175]d[173]2[178][181](d[173]2)[167][152]1,k$;[199](45);[199](1);
  181. 7316 [139]d[178]2[167][152]1,k$;[199](74);[199](1);
  182. 7318 [139]zw [175]d[178]37[167][142]
  183. 7320 [139]zw [175]d[178]36[167]a$(d)[178]a$(37)
  184. 7322 [139]zw[178].[175]d[178]36[167]a$(d)[178]a$(35)
  185. 7324 [152]1,a$(d):[142]
  186. 15000 :
  187. 15001 [153]"load(NULL)oad!":hv[178]40:l[178]2:[160]1:[159]1,8,1:[160]1:[139]st[179][177]0[167]119
  188. 15002 x[178]0:y[178]3:f$[178]"(NULL)ummer: ":[141]60000:[139][200](n$(hv),1)[178]"$"[167][141]750:[137]15000
  189. 15003 [159]5,8,5,">"[170]n$(hv)[170]"*,p,r":[132]5,h
  190. 15010 [129]l[178]1[164]35:[132]5,n$(l):[130]:[160]5:ei[178]1:[139]st[167]ei[178].
  191. 15011 [160]5:ei[178]1
  192. 15013 [137]119
  193. 16000 [139]ei[178].[167]119
  194. 16001 [153]"load(NULL)ave!":hv[178]40:[160]1:[159]1,8,1:[160]1:[139]st[179][177].[167]119
  195. 16002 n$(hv)[178]n$(2)[170]"/"[170]n$(1):n$(hv)[178][200](n$(hv),16)
  196. 16003 [153]"    ascile wird unter (NULL)ummer "n$(2)" abge-"
  197. 16004 [153]"    speichert! (NULL)orhandenes ascile mit"
  198. 16005 [153]"    gleicher (NULL)ummer wird geloescht!"
  199. 16006 [153]"    right$st das (NULL)(NULL) (j/n)?":[151]198,.:[146]198,1:[161]aw$:[139]aw$[179][177]"j"[167]119
  200. 16007 [153]"(NULL)len(NULL)atn(NULL)lenleft$right$(NULL)chr$: >"n$(2)"*":[159]1,8,15,"s:>"[170]n$(2)[170]"*":[160]1
  201. 16010 [153]"(NULL)atn(NULL)right$(NULL)chr$:     >"n$(hv):[159]5,8,5,"@:>"[170]n$(hv)[170]",p,w":r$[178][199](13)
  202. 16011 [152]5,v;r$:[129]l[178]1[164]35:[152]5,n$(l);r$;:[130]:[152]5,r$:[160]5
  203. 16012 [137]119
  204. 20000 [159]7,4,7:[159]1,4,1
  205. 20001 [152]1,[199](33);[199](13);:[160]1:[160]7
  206. 21000 [159]7,4,7:[159]1,4,1
  207. 21001 [129]x[178]30[164]64:[152]1,[199](x);:[130]:[152]1,[199](13);:[160]1:[160]7
  208. 60000 [151]198,.:n$(hv)[178]"":ne$(hv)[178]"":[153]"";:[139]y[167][129]d[178].[164]y[171]1:[153]:[130]
  209. 60001 [153][163]x);f$;
  210. 60002 [153]"towaitcmd";
  211. 60003 [161]h$:c[178][198](h$[170][199](0)):[139]c[178]0[176]c[178]44[176]c[178]59[176]c[178]58[167]60003
  212. 60005 [139]c[178]20[167]60015
  213. 60006 [139]c[178]222[176]c[178]186[176]c[178]192[176]c[178]255[176]c[178]94[176]c[178]92[167]60010
  214. 60007 [139](c[177]34[175]c[179]91)[176](c[177]192[175]c[179]219)[176]c[178]32[176]c[178]33[176]c[178]160[167]60010
  215. 60008 [139]c[178]13[167]n$(hv)[178][200](n$(hv)[170]l$,l):ne$(hv)[178][200](ne$(hv)[170]l$,l):[153]" ":[142]
  216. 60009 [137]60003
  217. 60010 [139]h$[178]" "[167]h$[178]"close"
  218. 60011 [153]h$;:n$(hv)[178]n$(hv)[170]h$
  219. 60013 [139][195](n$(hv))[177]l[167][153]"cmd";:n$(hv)[178][200](n$(hv),l):ne$(hv)[178][200](ne$(hv),l)
  220. 60014 [137]60002
  221. 60015 [139][195](n$(hv))[178].[167]60002
  222. 60016 [153]"cmd  cmdcmd";:n$(hv)[178][200](n$(hv),[195](n$(hv))[171]1)
  223. 60018 [137]60002
  224. 61000 [139]n$(et)[178][200](l$,23)[167]ne$(et)[178][200](le$,23):[137]61110
  225. 61004 ne$(et)[178]"":[129]p[178]1[164][195](n$(et)):c[178][198]([202](n$(et),p,1))
  226. 61005 [139]c[178]42[167]61009
  227. 61006 [139]c[177]31[175]c[179]64[167]61100
  228. 61007 [139]c[177]192[175]c[179]219[167]c[178]c[171]128:[137]61100
  229. 61008 [139]c[177]64[175]c[179]91[167]c[178]c[170]32:[137]61100
  230. 61009 [139]c[178]64[167]c[178]123
  231. 61010 [139]c[178]42[167]c[178]124
  232. 61011 [139]c[178]94[167]c[178]125
  233. 61012 [139]c[178]92[167]c[178]126
  234. 61013 [139]c[178]186[167]c[178]91
  235. 61014 [139]c[178]192[167]c[178]92
  236. 61015 [139]c[178]222[176]c[178]255[167]c[178]93
  237. 61016 [139]c[178]160[167]c[178]32
  238. 61100 ne$(et)[178]ne$(et)[170][199](c):[130]
  239. 61110 [139]et[177]5[175]et[179]21[167]et[178]et[170]15:[137]61000
  240. 61120 et[178]et[171]15:[142]
  241.