0 REM OPEN1,8,15,"S:SAMMEL.BAS":CLOSE1:SAVE"SAMMEL.BAS",8
1 REM SAMMEL BY SKERNSOFT 1998
2 PRINT"[208]ROGRAMM ZUM SAMMELN VON DIR'S          (2 [204]AUFWERKE ERFORDERLICH).
3 [153]"ASCILENAME UND 'A' FU:R APPEND BZW. 'S'   FU:R SEQ ASCILE.
4 PRINT"[213] IST DIE [206]UMMER DES [218]ILLAUFWERK.       (8 IST DAS [211]AMMELLAUFWERK)
10 [133]"ZIEL FILE,A/S,U";A$,D$,U
11 V[178]1:[139]D$[178]"A"[167]V[178]2
20 [159]2,U,V,A$[170]","[170]D$
21 [139] D$[178]"S"[167] [152]2,1000
22 [159]1,8,0,"$":[161]A$:E$[178][199](0)
25 [129]I[178]1[164]31:[161]#1,A$:[153]A$;:[130]:[153]
30 [161]#1,A$:[139]A$[167]30
31 [133] "STR$ISKNAME(3STELLEN)";F$:[153]
40 [161]#1,A$,A$,H$,L$
50 [129]I[178]0[164]20:[161]#1,A$:[139]A$[178][199](34)[167]54
51 [130]:[160]1:[137]100
54 G$[178]"":Z[178]Z[170]1
55 [161]#1,A$:[139]A$[179][177][199](34)[167]G$[178]G$[170]A$:[137] 55
60 [161]#1,A$:[139]A$[167]60
70 B$[178][196]([198](H$[170]E$)[170]256[172][198](L$[170]E$))
72 [152]2,[200](G$[170]"                ",16)[170]F$[170][202](B$[170]"   ",2,3)[170][199](13);
81 [153]   [200](G$[170]"                ",16)" "F$" "[202](B$[170]"   ",2,3)[170][199](13);
90 [137]40
100 [153]"TASTE !"Z"TE EINTRAGUNG":[146]203,63
110 [137]10