home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / FORMGE.ZIP / TEST.FRM < prev   
Text File  |  1989-04-18  |  1KB  |  76 lines
  1.  
  2.  
  3.  
  4.  
  5.                     ╔═══════════════════════════════════════╗
  6.                     ║ Integer:  0                          ║
  7.                     ║ Char:     1                          ║
  8.                     ║ Float:    2                          ║
  9.                     ║ String:   3                          ║
  10.                     ║ Editor:   4                          ║
  11.                     ║                                       ║
  12.                     ║                                       ║
  13.                     ║                                       ║
  14.                     ║                                       ║
  15.                     ╚═══════════════════════════════════════╝
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23. YELLOW
  24. BLACK
  25. WHITE
  26. BLUE
  27. BLUE
  28. LIGHTGRAY
  29. BLUE
  30. LIGHTGRAY
  31.  
  32. displayme
  33. fillme()
  34. editme()
  35.  
  36.  
  37.  
  38.  
  39. 0
  40.  
  41. i
  42. myint
  43. 6
  44.  
  45. gotoxy(#X,#Y); cprintf("%#Wd",#N);
  46. rcode = getint(#X,#Y,&#N,#W);
  47. 32 5 0
  48. c
  49. mychar
  50.  
  51.  
  52. gotoxy(#X,#Y); cprintf("%c",#N);
  53. rcode = getachar(#X,#Y,&#N);
  54. 32 6 1
  55. f
  56. myfloat
  57. 6
  58. 2
  59. gotoxy(#X,#Y); cprintf("%#W.#Dd",#N);
  60. rcode = getfloat(#X,#Y,&#N,#W,#D);
  61. 32 7 2
  62. s
  63. mystring
  64. 25
  65.  
  66. gotoxy(#X,#Y); cprintf("%-#Ws",#N);
  67. rcode = getstring(#X,#Y,&col,#N,#W);
  68. 32 8 3
  69. ed
  70. myed
  71. 25
  72. 5
  73. redraw((char*)#N,#X,#Y,#W,#D);
  74. rcode = edit((char*)#N,#X,#Y,&xp,&yp,#W,#D);
  75. 32 9 4
  76.