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)
Repeat
Print ("Test and zip file created,")
Print ("The files will be deleted in 15 seconds")
Sync()
Until Timer()>15
//Delete the test files
DeleteFile(file$)
DeleteFile("agktest.zip")
End
Help make AGK better by submitting an example for this command! (All examples are subject to approval)
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) Repeat Print ("Test and zip file created,") Print ("The files will be deleted in 15 seconds") Sync() Until Timer()>15 //Delete the test files DeleteFile(file$) DeleteFile("agktest.zip") End