hazard++ in quickbasic