home *** CD-ROM | disk | FTP | other *** search
/ Publication 10 / Publication_10_1996_High-Tech_de_Side_B.d64 / final-dir-writer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  907b  |  31 lines

  1. 1 close1:open1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):close1
  2. 10 poke53281,0:poke53280,0:print"[147][150][198]inal [196]isk [196]irectory [215]riter"
  3. 15 print"[155]([195])1993 by [194]ug [194]arny / [205]irko [212]omaschek"
  4. 20 print"[196]ieses [208]rogramm schreibt das [196][201][210][197][195][154] einer"
  5. 21 print"[154][196]isk ins [215]riterformat der [198]inal[195]artridge"chr$(14)
  6. 50 close1:open1,8,15,"i":close1
  7. 100 input"[156][198]ilename";a$
  8. 900 dimn$(200):z=0
  9. 950 print"[147][218]u lesende [196]isk einlegen & [212]aste !"
  10. 960 getx$:ifx$=""then 960
  11. 999 print"[198][195] [196]ir [204]ister fuer [196]igital [212]alk"
  12. 1000 open 1,8,0,"$"
  13. 1020 get#1,x$,x$
  14. 1030 get#1,x$,x$,x$,x$
  15. 1040 if st then close 1:goto1500
  16. 1050 get#1,x$:if x$= ""then printchr$(34):n$(z)=n$(z)+chr$(34):z=z+1:goto 1030
  17. 1060 if x$=chr$(34) then q=not q
  18. 1070 if q then n$(z)=n$(z)+x$:printx$;:
  19. 1080 goto1050
  20. 1500 print"[147][218]ieldisk einlegen & [212]aste !"
  21. 1550 getx$:ifx$=""then1550
  22. 1560 print"[147][153]"+a$+"[211][193][214][197][201][206][199]...[145][145]"
  23. 1570 print"[198]iles in [196]irectory !"
  24. 1998 close1:goto2000
  25. 1999 i=200:goto2002
  26. 2000 open2,8,2,"@:"+a$+",p,w":print#2,"64 [198][195] [196]ir":fori=0to200:ifn$(i)=""then1999
  27. 2001 print#2,n$(i):print""i
  28. 2002 next i
  29. 2003 close2:print" "a$,+"fertig 1"
  30. 2004 run50
  31.