home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / dbase / test.prg < prev    next >
Encoding:
Text File  |  1989-09-28  |  656 b   |  27 lines
  1. privat char 
  2.  do wpush with 5,10,12,40,"+rg",1,"","Test 1"
  3.  do wstrc with 0,0,15,""
  4.  char=sqrt(val(sys(2))/1.068723)
  5.  char=(char-int(char))*255+1
  6.  do while inkey()=0
  7.   call utility with "14:27;"+chr(char)
  8.   char=sqrt(char/1.068723)
  9.   char=(char-int(char))*255+1
  10.  enddo
  11.  do wpush with 8,20,18,70,"+gb",1,"","Test 2"
  12.  do wstrc with 0,0,15,""
  13.  do while inkey()=0
  14.   call utility with "14:29;"+chr(char)
  15.   char=sqrt(char/1.068723)
  16.   char=(char-int(char))*255+1
  17.  enddo
  18.  wait ""
  19.  do wpop
  20.  do while inkey()=0
  21.   call utility with "14:27;"+chr(char)
  22.   char=sqrt(char/1.068723)
  23.   char=(char-int(char))*255+1
  24.  enddo
  25.  wait ""
  26.  do wpop 
  27. return