home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507a.d64 / datei_sort_copy (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  8KB  |  343 lines
  1. 1 REM *************************************************************************
  2. 2 REM ************************** DATEI / SORT / COPY **************************
  3. 3 REM ***************************** MAILBOX  V3.0 *****************************
  4. 4 REM ************************* (C)  1985 BY M.C.S. ***************************
  5. 5 REM *************************************************************************
  6. 6 POKE53280,0
  7. 7 POKE53281,0
  8. 8 DIMU$(400):X=17
  9. 9 C$=CHR$(X)+CHR$(X)+CHR$(X)+CHR$(X)+CHR$(X)
  10. 10 C$=CHR$(19)+C$+C$
  11. 11 PRINT"[197]INEN [193]UGENBLICK BITTE"CHR$(14)
  12. 12 GOSUB226
  13. 13 PRINTCHR$(147)CHR$(158)"[196]ATEI/[211]ORT/[195]OPY             [214]3.0 [205].[195].[211]."
  14. 14 PRINTCHR$(X)CHR$(X)"[210]EL > [211]EQ      [1]
  15. 15 [153][199](X)"(null)EQ > (null)EL      [2]
  16. 16 PRINTCHR$(X)"[196]ATEI ANLEGEN  [3]
  17. 17 [153][199](X)"VALND            [4]
  18. 18 PRINTC$
  19. 19 IFA<10THENPRINT"[194]ITTE ---->    [ ]";
  20. 20 IFA>10THENPRINT"[194]ITTE ---->    [?]";
  21. 21 A=A+1
  22. 22 IFA>20THENA=0
  23. 23 GETA$
  24. 24 IFA$=""THEN18
  25. 25 PRINTCHR$(157)CHR$(157)A$
  26. 26 ONVAL(A$)GOTO36,80,116,115,212
  27. 27 RUN
  28. 28 PRINTCHR$(X)CHR$(X)"[193]NZAHL [213]SER >  ";NR;
  29. 29 PRINTCHR$(157)CHR$(157)CHR$(157)CHR$(157);
  30. 30 INPUTAN
  31. 31 RETURN
  32. 32 HB=INT(BL/256)
  33. 33 LB=BL-HB*256
  34. 34 PRINT#15,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1)
  35. 35 RETURN
  36. 36 GOSUB198
  37. 37 GOSUB28
  38. 38 OPEN15,8,15
  39. 39 OPEN8,8,2,"USER"
  40. 40 PRINTCHR$(147)
  41. 41 FORBL=400-AN+1TO400
  42. 42 GOSUB32
  43. 43 L=AN+BL-400
  44. 44 INPUT#8,U$(L)
  45. 45 U$=MID$(U$(L),61,4)
  46. 46 PRINTCHR$(19)U$
  47. 47 PRINTCHR$(X)U$(L)
  48. 48 U$(L)=U$+U$(L)
  49. 49 NEXT
  50. 50 CLOSE8
  51. 51 CLOSE15
  52. 52 PRINTCHR$(147)"[211]ORTIEREN"
  53. 53 !,AN,U$(1)
  54. 54 FORI=1TOAN
  55. 55 U$(I)=RIGHT$(U$(I),79)
  56. 56 NEXT
  57. 57 PRINTCHR$(147)CHR$(X)"[198]ERTIG"
  58. 58 GOSUB212
  59. 59 AN=NR
  60. 60 PRINTCHR$(X)"[194]ITTE [196]ISKETTE WECHSELN"
  61. 61 PRINTCHR$(X)"[215]ENN AUF EINER [206]EUEN [196]ATENDISKETTE ALS"
  62. 62 PRINT"[210]ELATIV DANN NUR [210]ETURN"
  63. 63 PRINTCHR$(X)"[193]LS [211]EQUENZELES [198]ILE [207][203] EINGEBEN"
  64. 64 PRINTCHR$(X)"[194]ITTE [215]AEHL  [210][197] ";
  65. 65 PRINTCHR$(157)CHR$(157)CHR$(157)CHR$(157)CHR$(157);
  66. 66 INPUTA$
  67. 67 IFA$="[210][197]"THEN99
  68. 68 IFA$<>"OK"THEN60
  69. 69 OPEN1,8,2,"@:USER SORTIERT,S,W"
  70. 70 PRINTCHR$(147)"[211]PEICHERN"
  71. 71 FORI=1TOAN
  72. 72 PRINT#1,U$(I)
  73. 73 PRINTCHR$(19)CHR$(X)CHR$(X)U$(I)
  74. 74 NEXT
  75. 75 PRINT#1,"END"
  76. 76 CLOSE1
  77. 77 PRINTCHR$(X)"[196]AS EDITIERTE [198]ILE MIT DEM [206]AMEN"
  78. 78 PRINT"'USER FERTIG' ABSPEICHERN."
  79. 79 RUN
  80. 80 PRINTCHR$(147)"[198]ILE LADEN"
  81. 81 AN=0
  82. 82 PRINTCHR$(X)CHR$(X)"[198]ILENAME ";
  83. 83 INPUTA$
  84. 84 IFLEN(A$)>16ORLEN(A$)<1THEN80
  85. 85 OPEN1,8,0,A$+",S,R"
  86. 86 SR=ST
  87. 87 IFSR>0THEN94
  88. 88 INPUT#1,E$
  89. 89 IFE$="END"THEN94
  90. 90 AN=AN+1
  91. 91 U$(AN)=E$
  92. 92 PRINTCHR$(147)AN
  93. 93 GOTO86
  94. 94 PRINTCHR$(X)"[198]ERTIG"
  95. 95 CLOSE1
  96. 96 PRINTCHR$(X)"[194]ITTE [196]ISKETTE WECHSELN UND [210]ETURN";
  97. 97 GETA$
  98. 98 IFA$<>CHR$(13)THEN97
  99. 99 OPEN15,8,15
  100. 100 OPEN8,8,2,"USER"
  101. 101 PRINTCHR$(147)
  102. 102 FORBL=400-AN+1TO400
  103. 103 GOSUB32
  104. 104 L=AN+BL-400
  105. 105 PRINTCHR$(19)L
  106. 106 PRINT#8,U$(L)
  107. 107 PRINTCHR$(X)U$(L)
  108. 108 NEXT
  109. 109 CLOSE15
  110. 110 CLOSE8
  111. 111 PRINTCHR$(147)CHR$(X)"[193]NZAHL [213]SER JETZT >"AN
  112. 112 NR=AN
  113. 113 GOSUB203
  114. 114 RUN
  115. 115 SYS64738
  116. 116 PRINTCHR$(147)CHR$(X)"[205]AILBOXDATEI ANLEGEN"
  117. 117 PRINTCHR$(X)"[194]ITTE NEUE [196]ISKETTE EINLEGEN"
  118. 118 PRINTCHR$(X)CHR$(X)"[195]OMPL.  [196]ATEI  [1]
  119. 119 [153][199](X)"(null)UR (null)EL. STR$ATEI [2]
  120. 120 PRINTCHR$(X)"[210]ETURN         [3]
  121. 121 [153]C$[199](X)
  122. 122 [139]A[179]10[167][153]"PEEKITTE ---->    [ ]";
  123. 123 [139]A[177]10[167][153]"PEEKITTE ---->    [?]";
  124. 124 A[178]A[170]1
  125. 125 [139]A[177]20[167]A[178]0
  126. 126 [161]A$
  127. 127 [139]A$[178]""[167]121
  128. 128 [153][199](157)[199](157)A$
  129. 129 [139]A$[178]"1"[167]X[178]0:[137]133
  130. 130 [139]A$[178]"2"[167]X[178]1:[137]133
  131. 131 [139]A$[178]"3"[167][138]
  132. 132 [137]116
  133. 133 [153][199](147)[199](X)"STR$ISKETTE ASCORMATIEREN"
  134. 134 [159]15,8,15,"N:DATENDISK M.M.D.,V3"
  135. 135 [160]15
  136. 136 [153][199](X)"(null)ELATIVES ASCILE FUER (null)SER"
  137. 137 RN[178]400
  138. 138 HB[178][181](RN[173]256)
  139. 139 LB[178]RN[171]HB[172]256
  140. 140 [159]1,8,2,"USER,L,"[170][199](80)
  141. 141 [159]15,8,15
  142. 142 [152]15,"P"[170][199](2)[170][199](LB)[170][199](HB)[170][199](1)
  143. 143 [152]1,[199](255)
  144. 144 [152]15,"P"[170][199](2)[170][199](144)[170][199](1)[170][199](1)
  145. 145 A$[178]"01.06.8500.00.00 0000LEFT$ATN(null)PEEK(null)(null)CHR$            (null)(null)-64     (null)ATN(null)(null)VAL(null)    [(null)LEFT$(null)]     "
  146. 146 [152]1,[200](A$[170]"          ",79)
  147. 147 [160]1
  148. 148 [160]15
  149. 149 [139]X[178]1[167][138]
  150. 150 [153]"RIGHT$NDEX ASCELD FUER PERS. (null)ESSAGE"
  151. 151 [159]1,8,2,"M-INDEX,S,W"
  152. 152 [129]I[178]1[164]50
  153. 153 [152]1,"LOES"
  154. 154 [130]
  155. 155 [160]1
  156. 156 [153]"RIGHT$NDEX ASCELD FUER ATNLLGEMEINES"
  157. 157 [159]1,8,2,"A-INDEX,S,W"
  158. 158 [152]1,"01.06.85"
  159. 159 [152]1,"1"
  160. 160 [152]1,"1"
  161. 161 [152]1,"01.06.85 / 00.00"
  162. 162 [160]1
  163. 163 [153]"ASCILE FUER (null)ITELBILD"
  164. 164 [159]1,8,2,"BILD,S,W"
  165. 165 [152]1,"(null)ASTER-LENONTROL-(null)YSTEM"
  166. 166 [160]1
  167. 167 [153]"ASCILE FUER (null)ESSAGE"
  168. 168 [159]1,8,2,"MESSAGE,S,W"
  169. 169 [152]1,"-(null)VAL(null)(null)-"
  170. 170 [160]1
  171. 171 [153]"ASCILE FUER ATNLLGEMEINES"
  172. 172 [159]1,8,2,"AL,S,W"
  173. 173 [152]1,"LEER"
  174. 174 [160]1
  175. 175 [153]"ASCILE FUER (null)ECHNERINFO"
  176. 176 [159]1,8,2,"RI,S,W"
  177. 177 [152]1,"LEER"
  178. 178 [160]1
  179. 179 [153]"ASCILE FUER (null)ELEFON"
  180. 180 [159]1,8,2,"TEL,S,W"
  181. 181 [152]1,"LEER"
  182. 182 [160]1
  183. 183 [153]"ASCILE FUER LENLUBS"
  184. 184 [159]1,8,2,"CL,S,W"
  185. 185 [152]1,"LEER"
  186. 186 [160]1
  187. 187 [153]"ASCILE FUER ATNKTUELLES"
  188. 188 [159]1,8,2,"AK,S,W"
  189. 189 [152]1,"LEER"
  190. 190 [160]1
  191. 191 [153]"ASCILES FUER PERS. (null)ESSAGE"
  192. 192 [129]I[178]1[164]50
  193. 193 [159]1,8,2,"P"[170][196](I)[170]",S,W"
  194. 194 [160]1
  195. 195 [130]
  196. 196 [153][199](X)"ASCERTIG"
  197. 197 [138]
  198. 198 [159]1,8,0,"A-INDEX,S,R"
  199. 199 [132]1,DA$,AN$,NR$,AK$
  200. 200 [160]1
  201. 201 NR[178][197](NR$)
  202. 202 [142]
  203. 203 [159]1,8,2,"@:A-INDEX,S,W"
  204. 204 NR$[178][196](NR)
  205. 205 C$[178][199](13)
  206. 206 [152]1,DA$
  207. 207 [152]1,AN$
  208. 208 [152]1,NR$
  209. 209 [152]1,AK$
  210. 210 [160]1
  211. 211 [142]
  212. 212 AX[178]0
  213. 213 AX[178]AX[170]1
  214. 214 [153]U$(AX)
  215. 215 [139]AX[177]NR[167][142]
  216. 216 [153]"UEBERNEHMEN  MID$   "[199](157)[199](157)[199](157)[199](157)[199](157)[199](157);
  217. 217 [133]A$
  218. 218 [139]A$[178]"MID$"[167]213
  219. 219 [139]A$[178]"S"[167][142]
  220. 220 [139]A$[179][177]"N"[167]216
  221. 221 [129]I[178]AX[164]NR
  222. 222 U$(I)[178]U$(I[170]1)
  223. 223 [130]
  224. 224 NR[178]NR[171]1
  225. 225 [137]213
  226. 226 [139][194](52286)[178]169[167][142]
  227. 227 XX[178]0
  228. 228 [129]I[178]52286[164]53131
  229. 229 [135]A
  230. 230 [151]I,A
  231. 231 XX[178]XX[170]A
  232. 232 [130]
  233. 233 [139]XX[178]128958[167]236
  234. 234 [153]"DATA-FEHLER!"
  235. 235 [144]
  236. 236 [158]52286
  237. 237 [142]
  238. 238 [131]169,73,141,8,3,169,204,141,9
  239. 239 [131]3,96,32,115,0,201,33,240,6,32
  240. 240 [131]121,0,76,231,167,32,115,0,234,234
  241. 241 [131]234,234,234,32,100,204,76,174
  242. 242 [131]167,32,253,174,32,158,173,32
  243. 243 [131]247,183,165,20,141,152,207,165
  244. 244 [131]21,141,153,207,32,253,174,32
  245. 245 [131]158,173,56,165,71,233,3,133,75
  246. 246 [131]165,72,233,0,133,76,162,1,173
  247. 247 [131]152,207,157,160,207,173,153,207
  248. 248 [131]157,180,207,169,1,157,200,207
  249. 249 [131]169,0,157,220,207,189,200,207
  250. 250 [131]141,156,207,189,220,207,141,157
  251. 251 [131]207,189,160,207,141,158,207,189
  252. 252 [131]180,207,141,159,207,32,47,207
  253. 253 [131]173,151,207,48,4,202,208,221
  254. 254 [131]96,189,200,207,141,156,207,189
  255. 255 [131]220,207,141,157,207,169,1,141
  256. 256 [131]158,207,169,0,141,159,207,32,101
  257. 257 [131]207,189,160,207,141,158,207,141
  258. 258 [131]154,207,189,180,207,141,159,207
  259. 259 [131]141,155,207,32,47,207,173,151
  260. 260 [131]207,48,3,76,167,205,32,131,207
  261. 261 [131]173,156,207,141,143,207,173,157
  262. 262 [131]207,141,144,207,173,154,207,141
  263. 263 [131]145,207,173,155,207,141,146,207
  264. 264 [131]32,132,206,32,180,206,173,151
  265. 265 [131]207,48,218,173,156,207,141,143
  266. 266 [131]207,173,157,207,141,144,207,173
  267. 267 [131]158,207,141,156,207,173,159,207
  268. 268 [131]141,157,207,169,1,141,158,207
  269. 269 [131]169,0,141,159,207,32,101,207,173
  270. 270 [131]156,207,141,158,207,173,157,207
  271. 271 [131]141,159,207,173,143,207,141,156
  272. 272 [131]207,173,144,207,141,157,207,32
  273. 273 [131]47,207,173,151,207,16,35,173
  274. 274 [131]154,207,141,143,207,173,155,207
  275. 275 [131]141,144,207,173,158,207,141,145
  276. 276 [131]207,173,159,207,141,146,207,32
  277. 277 [131]132,206,32,180,206,173,151,207
  278. 278 [131]48,152,32,47,207,173,151,207
  279. 279 [131]16,18,173,156,207,141,143,207
  280. 280 [131]173,157,207,141,144,207,32,132
  281. 281 [131]206,32,31,207,76,241,204,234
  282. 282 [131]189,160,207,141,143,207,189,180
  283. 283 [131]207,141,144,207,173,156,207,141
  284. 284 [131]145,207,173,157,207,141,146,207
  285. 285 [131]32,132,206,32,31,207,173,156
  286. 286 [131]207,141,158,207,141,143,207,173
  287. 287 [131]157,207,141,159,207,141,144,207
  288. 288 [131]32,81,207,189,160,207,141,158
  289. 289 [131]207,189,180,207,141,159,207,32
  290. 290 [131]101,207,173,151,207,48,15,189
  291. 291 [131]200,207,141,158,207,189,220,207
  292. 292 [131]141,159,207,32,101,207,169,1
  293. 293 [131]141,158,207,169,0,141,159,207
  294. 294 [131]173,143,207,141,156,207,173,144
  295. 295 [131]207,141,157,207,173,151,207,16
  296. 296 [131]52,189,200,207,232,157,200,207
  297. 297 [131]202,189,220,207,232,157,220,207
  298. 298 [131]32,101,207,173,156,207,157,160
  299. 299 [131]207,173,157,207,157,180,207,32
  300. 300 [131]131,207,32,131,207,202,173,156
  301. 301 [131]207,157,200,207,173,157,207,157
  302. 302 [131]220,207,76,128,206,32,131,207
  303. 303 [131]232,173,156,207,157,200,207,173
  304. 304 [131]157,207,157,220,207,202,189,160
  305. 305 [131]207,232,157,160,207,202,189,180
  306. 306 [131]207,232,157,180,207,202,32,101
  307. 307 [131]207,32,101,207,173,156,207,157
  308. 308 [131]160,207,173,157,207,157,180,207
  309. 309 [131]232,76,162,204,160,3,165,75,133
  310. 310 [131]79,133,81,165,76,133,80,133,82
  311. 311 [131]24,165,79,109,143,207,133,79
  312. 312 [131]165,80,109,144,207,133,80,24
  313. 313 [131]165,81,109,145,207,133,81,165
  314. 314 [131]82,109,146,207,133,82,136,208
  315. 315 [131]223,96,160,0,140,151,207,177,79
  316. 316 [131]141,147,207,177,81,141,148,207
  317. 317 [131]200,152,205,147,207,240,2,176
  318. 318 [131]13,205,148,207,240,21,144,19
  319. 319 [131]238,151,207,76,30,207,205,148
  320. 320 [131]207,240,2,176,62,206,151,207
  321. 321 [131]76,30,207,140,149,207,160,1,177
  322. 322 [131]79,133,77,200,177,79,133,78,172
  323. 323 [131]149,207,136,177,77,141,150,207
  324. 324 [131]140,149,207,160,1,177,81,133
  325. 325 [131]77,200,177,81,133,78,172,149
  326. 326 [131]207,177,77,200,205,150,207,208
  327. 327 [131]3,76,195,206,144,184,76,224,206
  328. 328 [131]96,160,2,177,79,72,177,81,145
  329. 329 [131]79,104,145,81,136,16,243,96,169
  330. 330 [131]0,141,151,207,173,157,207,205
  331. 331 [131]159,207,144,6,240,8,238,151,207
  332. 332 [131]96,206,151,207,96,173,156,207
  333. 333 [131]205,158,207,144,244,208,238,96
  334. 334 [131]173,156,207,24,109,158,207,141
  335. 335 [131]156,207,173,157,207,109,159,207
  336. 336 [131]141,157,207,96,169,0,141,151,207
  337. 337 [131]56,173,156,207,237,158,207,141
  338. 338 [131]156,207,173,157,207,237,159,207
  339. 339 [131]141,157,207,176,3,206,151,207
  340. 340 [131]96,238,156,207,208,3,238,157
  341. 341 [131]207,96
  342. 342 [142]
  343.