home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 43 / Digital_Talk_43_2000-06-12_Digital_Talk_de_Side_A.d64 / sammel.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  855b  |  26 lines
  1. 0 rem open1,8,15,"s:sammel.bas":close1:save"sammel.bas",8
  2. 1 rem sammel by skernsoft 1998
  3. 2 print"[208]rogramm zum sammeln von dir's          (2 [204]aufwerke erforderlich).
  4. 3 [153]"ascilename und 'a' fu:r append bzw. 's'   fu:r seq ascile.
  5. 4 print"[213] ist die [206]ummer des [218]illaufwerk.       (8 ist das [211]ammellaufwerk)
  6. 10 [133]"ziel file,a/s,u";a$,d$,u
  7. 11 v[178]1:[139]d$[178]"a"[167]v[178]2
  8. 20 [159]2,u,v,a$[170]","[170]d$
  9. 21 [139] d$[178]"s"[167] [152]2,1000
  10. 22 [159]1,8,0,"$":[161]a$:e$[178][199](0)
  11. 25 [129]i[178]1[164]31:[161]#1,a$:[153]a$;:[130]:[153]
  12. 30 [161]#1,a$:[139]a$[167]30
  13. 31 [133] "str$iskname(3stellen)";f$:[153]
  14. 40 [161]#1,a$,a$,h$,l$
  15. 50 [129]i[178]0[164]20:[161]#1,a$:[139]a$[178][199](34)[167]54
  16. 51 [130]:[160]1:[137]100
  17. 54 g$[178]"":z[178]z[170]1
  18. 55 [161]#1,a$:[139]a$[179][177][199](34)[167]g$[178]g$[170]a$:[137] 55
  19. 60 [161]#1,a$:[139]a$[167]60
  20. 70 b$[178][196]([198](h$[170]e$)[170]256[172][198](l$[170]e$))
  21. 72 [152]2,[200](g$[170]"                ",16)[170]f$[170][202](b$[170]"   ",2,3)[170][199](13);
  22. 81 [153]   [200](g$[170]"                ",16)" "f$" "[202](b$[170]"   ",2,3)[170][199](13);
  23. 90 [137]40
  24. 100 [153]"taste !"z"te eintragung":[146]203,63
  25. 110 [137]10
  26.