Setvirtualresolution(640,480)
SetPrintSize(25)
ResetTimer()

//Create a test file
file$="agktest.txt"
OpenToWrite(1,file$)
WriteLine(1,"AGK rules!")
CloseFile(1)

//Create a zip file and add the test file to the zip (in a sub folder)
CreateZip( 1,"agktest.zip")
AddZipEntry(1,file$,"AGK/"+file$)
CloseZip(1)

//Extract the files (and AGK Subfolder) to a new 'extracted' folder.
ExtractZip("agktest.zip","extracted")

Repeat
    Print ("Test and zip file created,")
    Print ("The temp files will be deleted in 12 seconds")
    Print ("The extracted files will remain.")

    Sync()
Until Timer()>12

//Delete the  test file
DeleteFile(file$)
DeleteFile("agktest.zip")
End