home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOLKIT.ZIP / IOTTT.DEM < prev    next >
Encoding:
Text File  |  1986-09-28  |  2.6 KB  |  74 lines
  1. Program Illustrating_Screen_Editing;
  2.  
  3.  
  4. {$I Decl.TTT}
  5. {$I Fastwrite.TTT}
  6. {$I Misc.TTT}
  7.  
  8. {$I IO.TTT}
  9.  
  10. var
  11. Str1,
  12. Str2,
  13. Str3,
  14. Str4,
  15. Str5,
  16. Str6,
  17. Str7,
  18. Str8 : string80;
  19. Code : integer;
  20.  
  21. begin             {test program}
  22. Str1 := '';
  23. Str2 := '';
  24. Str3 := '';
  25. Str4 := '';
  26. Str5 := '';
  27. Str6 := 'TX';
  28. Str7 := '';
  29. Str8 := '';
  30.  
  31. IO_Setfields(8);
  32. IO_SetColors(15,4,11,1,14,4);
  33. IO_SoundBeeper(false);
  34. IO_DefineStr(1,  1,2,1,2, 30,6,Str1,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!');{name}
  35. IO_DefineStr(2,  1,3,1,3, 30,7,Str2,'*******************************');{Co.}
  36. IO_DefineStr(3,  2,4,2,4, 30,8,Str3,'*******************************');{ad1}
  37. IO_DefineStr(4,  3,5,3,5, 30,9,Str4,'*******************************');{ad2}
  38. IO_DefineStr(5,  4,6,4,6, 30,10,Str5,'@@@@@@@@@@@@@@@@');{city}
  39. IO_DefineStr(6,  4,7,5,7, 55,10,Str6,'!!');{state}
  40. IO_DefineStr(7,  4,8,6,8, 65,10,Str7,'#####-####');{zip}
  41. IO_DefineStr(8,  5,1,7,1, 30,12,Str8,'(###) ###-####'); {work Phone}
  42. IO_DefineMsg(1, 20,25, 'Name is automatically set to capitals');
  43. IO_DefineMsg(2, 20,25, 'Enter Company Name and address');
  44. IO_DefineMsg(5, 20,25,'Now you can only type alphas and punctuation');
  45. IO_DefineMsg(6, 20,25,'Default is set to Texas');
  46. IO_DefineMsg(7, 20,25,'Zip and phone number must be numeric');
  47.  
  48. ClearText(1,1,80,25,red,lightgray);
  49. Box(1,1,80,25,red,lightgray,3);
  50. WriteCenter(2,blue,lightgray,'TechnoJocks Turbo Toolkit');
  51. WriteCenter(3,white,lightgray,'Screen Input Routines Demonstration');
  52. WriteAT(12,6,blue,lightgray,'Incumbents Name =>');
  53. WriteAT(20,7,blue,lightgray,'Company =>');
  54. WriteAT(20,8,blue,lightgray,'Address =>');
  55. WriteAT(23,10,blue,lightgray,'City =>');
  56. WriteAT(48,10,blue,lightgray,'State');
  57. WriteAT(60,10,blue,lightgray,'Zip');
  58. WriteAT(23,12,blue,lightgray,'Phone =>');
  59. WriteAT(10,16,white,lightgray,'Instructions:   [End to quit]');
  60. WriteAT(10,17,blue,lightgray,'This is a mock up of a data entry screen. Simply');
  61. WriteAT(10,18,blue,lightgray,'enter some values and press enter. Use the arrow');
  62. WriteAT(10,19,blue,lightgray,'keys to move between fields. Note the following:');
  63. WriteAT(10,20,white,lightgray,'End    to finish entry           Ins    toggle insert on and off');
  64. WriteAT(10,21,white,lightgray,'Alt-D  delete current field      Alt-E  delete all fields');
  65. WriteAT(10,22,white,lightgray,'Ctrl-Right  shift right          Ctrl-Left shift left');
  66. WriteAT(10,23,white,lightgray,'Tab         shift right          Shift-Tab shift left');
  67.  
  68. IO_Edit(Code);
  69. IO_ResetFields;
  70. Clrscr;
  71. Writeln('Run DemoTTT.com for the main demo program');
  72. write('Technojocks Turbo Toolkit');
  73. end.
  74.