def test_c64_images
f=sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSArts/BL-SPORTS.CVT",CVT,CVTArchive,
[{:filename=>"BL.Sports scrap 03",:expected_native_file_type=>C64PhotoScrap,:save_output=>[:to_picture,'png']}]
)
puts f.to_hex_dump
puts f.to_info_dump
puts f.file_system_image.catalog
return
sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSArts/GEOC.01A.CVT",CVT,CVTArchive,
[{:filename=>"geoc.1a",:expected_native_file_type=>C64GeosPhotoAlbum,:save_output=>[:to_picture,'png']}]
)
[[:to_picture,'png'],[:to_font,'bdf']].each do |args|
sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/SUPRA-SEXY.CVT",CVT,CVTArchive,
[{:filename=>"Supra Sexy",:expected_native_file_type=>C64GeosFont,:save_output=>args}]
)
sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/ZAPF.FONT.CVT",CVT,CVTArchive,
[{:filename=>"ZAPF 10 14",:expected_native_file_type=>C64GeosFont,:save_output=>args}]
)
sniff_url("http://lyonlabs.org/commodore/onrequest/geos/geosfonts1.d64",D64,CbmDos,
[
{:filename=>"America",:expected_native_file_type=>C64GeosFont,:action=>args},
{:filename=>"BONANZA",:expected_native_file_type=>C64GeosFont,:save_output=>args},
{:filename=>"Cursive",:expected_native_file_type=>C64GeosFont,:save_output=>args},
]
)
sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/STENCIL.CVT",CVT,CVTArchive,
[{:filename=>"STENCIL",:expected_native_file_type=>C64GeosFont,:save_output=>args}]
)
sniff_url("http://cbmfiles.com/genie/geniefiles/GEOSFonts/PRINCETONFNT.CVT",CVT,CVTArchive,
[{:filename=>"PRINCETON24 PD",:expected_native_file_type=>C64GeosFont,:save_output=>args}]
)
end
f=sniff_url("http://lyonlabs.org/commodore/onrequest/geos/geos-klingon.d64",D64,CbmDos,
[{:filename=>"klingon ship",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
)
sniff_url("http://lyonlabs.org/commodore/onrequest/geos/diskart-1.d64",D64,CbmDos,
[{:filename=>"goodies 1",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
)
sniff_url("http://lyonlabs.org/commodore/onrequest/geos/diskart-1.d64",D64,CbmDos,
[{:filename=>"goodies 2",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
)
f=sniff_url("http://lyonlabs.org/commodore/onrequest/geos/diskart-1.d64",D64,CbmDos,
[{:filename=>"Holidays 1",:expected_native_file_type=>C64GeoPaintPic,:save_output=>[:to_picture,'png']}]
)
sniff_url("http://lyonlabs.org/commodore/geoLink/geoLink-20100414.d64",D64,CbmDos,
[{:filename=>"GEOlINK.INC",:expected_native_file_type=>C64GeoWriteFile}]
)
f=get_file_from_url("http://lyonlabs.org/commodore/geoLink/geoLink-20100414.d64","geoLinkIRCd")
f.to_text
f.to_hex_dump
f=get_file_from_url("http://lyonlabs.org/commodore/geoLink/geoLink-1.00.d64","TURBOBOOT")
f=get_file_from_url("http://lyonlabs.org/commodore/onrequest/geos/geosfonts1.d64","America")
sniff_url("http://lyonlabs.org/commodore/onrequest/geos/mystic-jim-2a.d64",D64,CbmDos,[
{:filename=>"BOOTSTRAP 1.3",:load_address=>0x0801,:listing_starts_with=>"1984 SYS2078"}
])
sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c64/programming/BASIC-Programming-Tools.DaveJB.d64.gz",D64,CbmDos,
[{:filename=>"p&p.asm",:text_starts_with=>"; *** peek&poke *\n; (c) dave - 9"}]
)
sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c64/programming/Logo-utilities.d64.gz",D64,CbmDos,
[{:filename=>"while.logo",:text_starts_with=>"to help\n nd"}]
)
sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c64/magazines/Ahoy/1986-01.d64.gz",D64,CbmDos,[
{:filename=>"sketcher.s",:expected_native_file_type=>C64PrgText,:text_starts_with=>"*\n* SKETCHER"}
])
sniff_url("http://www.zimmers.net/anonftp/pub/cbm/demodisks/c128/cpm.system.622-3282252.d64.gz",D64,CbmDos)
sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c128/programming/d-ass.d64.gz",D64,CbmDos,
[{:filename=>"DOUBLE-ASS",:expected_native_file_type=>C64Prg,:can_execute=>:to_disassembly}]
)
sniff_url("http://www.zimmers.net/anonftp/pub/cbm/c64/magazines/Ahoy/best-1985.d64.gz",D64,CbmDos,[
{:filename=>"gameloader d'85",:expected_native_file_type=>C64BasicPrg,:load_address=>0x0801,:listing_starts_with=>"1 REM ********"}
])
sniff_url("http://ftp.strassenbahn.tk:81/inntram-public/off-topic/c64/www.c64.ch/samar_digital_s1.g64",G64,CbmDos,[
{:filename=>'skip intro-part1'}
])
end