home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / CPROG / FORMGE.ZIP / STEST.FRM < prev    next >
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.                     ║                                       ║
  11.                     ║ This (short) version excludes the     ║
  12.                     ║ editor-in-a-box to illustrate how     ║
  13.                     ║ much space you can save by not having ║
  14.                     ║ to link in the ioed module.           ║
  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. -1 -1 4
  76.