home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Mobile / Chip_Mobile_2001.iso / palm / hobby / pocketco / pocketco.exe / PCOUNTER.PC next >
Text File  |  1998-03-21  |  2KB  |  81 lines
  1. //PocketCounter
  2.  
  3. int x,y,ev;
  4. string x1,y1;
  5.  
  6. topmenu(){
  7.   rect(0,0,11,160,15,0);
  8.   rect(1,0,0,150,11,0);
  9.   textattr(1,2,0);
  10.   text(2,0,"PocketCounter");
  11.   textattr(0,1,0);
  12. bitmap(149,0,"0bffe8028628028e28628628628f2802ffe");
  13. }
  14. draw(){
  15.   text(95,149,"by Dian Suharto");
  16.   text(95,57,"PAGE UP");
  17.   text(87,96,"PAGE DOWN");
  18.   text(26,46,"-1");
  19.   text(26,116,"-1");
  20.   text(80,42,"+1");
  21.   text(80,111,"+1");
  22.   text(129,20,"RESET");
  23.   text(129,133,"RESET");
  24.   frame(1,1,15,159,79,2);
  25.   frame(1,1,85,159,149,2);
  26.   frame2(1,8,22,53,37,3,2);
  27.   frame2(1,8,92,53,107,3,2);
  28.   frame(1,12,45,49,58,3);
  29.   frame(1,12,115,49,128,3);
  30.   frame(1,125,19,155,32,3);
  31.   frame(1,125,132,155,145,3);
  32.   line(1,80,70,140,70);
  33.   line(1,79,69,79,56);
  34.   line(1,141,69,141,56);
  35.   line(1,80,55,90,53);
  36.   line(1,140,55,130,53);
  37.   line(1,91,53,97,53);
  38.   line(1,129,53,123,53);
  39.   line(1,98,52,122,52);
  40.   line(1,80,93,140,93);
  41.   line(1,79,94,79,107);
  42.   line(1,141,94,141,107);
  43.   line(1,80,108,90,110);
  44.   line(1,140,108,130,110);
  45.   line(1,91,110,97,110);
  46.   line(1,129,110,123,110);
  47.   line(1,98,111,122,111);
  48. }
  49. inf(){
  50. alert("PocketCounter v1.0.\n\nPocketCounter is Freeware.\n\nPlease E-mail me for everything :)\n\nDian Suharto Iskandar\n(arto88@dnet.net.id).");
  51. }
  52.  
  53. main(){
  54.   graph_on();topmenu();draw();
  55.   textattr(2,1,0);
  56.   while(1){
  57.     if(x<0)x=0;if(y<0)y=0;
  58.     x1="00000"+x;y1="00000"+y;
  59.     text(10,23,strright(x1,6));
  60.     text(10,93,strright(y1,6));
  61.     ev=event(1);
  62.  
  63. //counting-up hardware button
  64.       if(ev==5){x++;tone(1000,20);}
  65. else if(ev==6){y++;tone(800,20);}
  66. else
  67.  
  68. //counting-up tap screen
  69. if(ev==2){if(penx()>79&&penx()<141)if(peny()>52&&peny()<70){x++;tone(1000,20);}else if(peny()>93&&peny()<111){y++;tone(800,20);}
  70.  
  71. //counting-down tap screen
  72. if(penx()>12&&penx()<49)if(peny()>45&&peny()<58){x--;tone(900,30);}else if(peny()>115&&peny()<128){y--;tone(700,30);}
  73.  
  74. //reset
  75. if(penx()>125&&penx()<155)if(peny()>19&&peny()<32){x=0;tone(500,30);}else if(peny()>132&&peny()<145){y=0;tone(500,30);}
  76.  
  77. //information
  78. if(penx()>148&&peny()<11)inf();
  79.     }
  80.   }
  81. }