//SimpleDraw
library "PToolboxLib"
string z;
string prevString;
out(string str) {
textattr(0,0,0);
text(70,1,prevString);
textattr(0,1,0);
text(70,1,str);
prevString = str;
}

//Handle a key event
handlekey() {
char k;
k=key();
out("KeyEvent: '"+k+"' + ["+ (int) k + "]");
}

int x,y;
//Handle a pen event
handlepen(int e) {
if(e==2) {
x=penx();
y=peny();
} else if(e==4)
line(1,x,y,x=penx(),y=peny());
}

//Handle a button event
handleb(int e) {
if(e==5) exit();
else if(e==6) alert("PageUp exits\nToDo saves the current drawing\nAddress clears current drawing\nMemo loads last saved drawing\nDatebook shows info");


else if(e==7) {alert("SimpleDraw ver1.0\nWritten by Dan Hargett\nHamsterware\nskaterx_26@hotmail.com");
}
else if(e==8){clearg();}
else if(e==9) {
out("Saving");

OpenBufDb("ultdraw",0);
SaveBuf(1);

}
else if(e==10){
out("Restoring");

OpenBufDb("ultdraw",0);
RestoreBuf(1);

}
if(e==11) exit();
}

main() {
int e;
clear();
graph_on();
title("SimpleDraw");
hookhard(1);
hookmenu(1);
SetDrawBuf(0);
while(1) {
e=event(1);
if(e==1) handlekey();
else if(e>=2 && e<=4) handlepen(e);
else handleb(e);
}
}