rendered paste body16:56 mxn@sklave [~/c64/shell]% perl main.pl
c64>help
command list:
copy: read/write floppy images
detect: detect floppies
dir: list floppy contents
exit: exits
format: format floppy
help: display help for a command
reset: reset floppy
c64>help copy
copy: usage copy <source> <dest>
copies source to dest, at least one of them has to be a floppydrive-id
c64>copy 8 foo.d64
copying from 8 to foo.d64...
1: *********************
2: *********************
3: *********************
4: *********************
5: *********************
6: *********************
7: *********************
8: *********************
9: *********************
10: *********************
11: *********************
12: *********************
13: *********************
14: *********************
15: *********************
16: *********************
17: *********************
18: *******************
19: *******************
20: *******************
21: *******************
22: *******************
23: *******************
24: *******************
25: ******************
26: ******************
27: ******************
28: ******************
29: ******************
30: ******************
31: *****************
32: *****************
33: *****************
34: *****************
35: ***************** 100% 683/683
683 blocks copied.
done.
c64>format
do you really want to format the floppy and destroy all the data on it?(y/n) y
formatting floppy in drive 8, name "foo", id 20...
###################################
00, OK,00,00
done.
c64>dir
dir listing:
0 ."foo " 20 2a
664 blocks free.
00, ok,00,00
c64>exit
bye
16:57 mxn@sklave [~/c64/shell]%