home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ADA_TUTR.ZIP / ED.ADA < prev    next >
Encoding:
Text File  |  1992-09-04  |  3.6 KB  |  76 lines
  1. L--T+-T--T--T-+T--T2-T--T--T-3T---+----4----+----5----+----6----+----7----+---
  2. ( This file will customize the Shareware word processor  PC-Write  Advanced )
  3. ( Level (tm) by Quicksoft(tm) for editing Ada source code whenever you edit )
  4. ( a file with the extension ".ADA". Most of the Ctrl keys, A-Z, and most of )
  5. ( the Ctrl-Alt keys, A-Z, are given special meanings.  Ver. 2.02 4-SEP-1992 )
  6. (                                                                           )
  7. ( To demonstrate, Type Ctrl-P TEST Ctrl-Z.  Then type Ctrl-I X.  Next, type )
  8. ( Ctrl-D to insert Declarations and type X space : space Ctrl-Alt-B ;       )
  9. (                                                                           )
  10. ( Written by  Software  Innovations  Technology,  1083  Mandarin  Drive NE, )
  11. ( Palm Bay, Florida  32905-4706   (407) 951-0233.   You may freely copy and )
  12. ( distribute this file.                                                     )
  13. (                                                                           )
  14. ( Send for a copy of our Shareware ADA-TUTR (Ada Tutor) program on a 5 1/4" )
  15. ( disk!  Only $10 for a trial copy, or  $30  for a registered copy for full )
  16. ( use by one individual with one year of Technical Support. Send $5 more if )
  17. ( you prefer a 3.5" disk.  Multi-user licenses for companies, schools, etc. )
  18. ( are available at very reasonable prices.  Registered individuals can earn )
  19. ( generous  commissions  by  selling licenses and individual registrations. )
  20. ( Full information is included with ADA-TUTR. The computer can have a color )
  21. ( or monochrome monitor.  An Ada compiler  is  not  required.  Because  Ada )
  22. ( source code is included,  ADA-TUTR  will run on mainframes  and any other )
  23. ( computers with Ada compilers.                                             )
  24. (                                                                           )
  25. ( Other than being a registered user of PC-Write Advanced Level, we have no )
  26. ( connection with Quicksoft.  However,  we'll send you a copy of the latest )
  27. ( version of PC-Write Advanced Level  on four 5.25" disks or two 3.5" disks )
  28. ( for $20.  This price is only for copying;  registration with Quicksoft is )
  29. ( not included.                                                             )
  30. (                                                                           )
  31. 400:403  (Turn off automatic reformatting and word wrap.)
  32.  
  33. (Ctrl characters:)
  34. A:"array() of ",371,331,331
  35. B:"begin",265,"end",328,335,265,"   ",336
  36. C:"case",265,"end case;",328,335,265,"   when "
  37. D:403,319,359,323,"begin",330,317,336,317,317,319,328,328,765,"   ",266
  38.    (insert Declarations)
  39. E:"elsif  then",371,331
  40. F:"for  loop",265,"end loop;",328,335,265,"   ",328,333
  41. G:" := " ("gets")
  42. H:"16##",331 ("hex")
  43. I:"if  then",265,"end if;",328,335,265,"   ",328
  44. L:"loop",265,"end loop;",328,335,265,"   "
  45. M:"mod "
  46. N:"null"
  47. O:"others =>"
  48. P:"procedure "
  49. R:"return "
  50. S:"separate"
  51. T:"type "
  52. W:"while  loop",265,"end loop;",328,335,265,"   ",328,333,333,333
  53. Z:"( is",335,265,"begin",335,265,"   ",335,265,261,261,261,"end ",328,328,328;
  54.    327,359,323,"(",334,319,317,371,317,336,336,336,335,317,319,";",359,328,328;
  55.    328,335,371,331,261,336,336,335
  56.    (Adds  is begin ... end NAME;)
  57.  
  58. (Ctrl Alt characters:)
  59. 530:"BOOLEAN"
  60. 531:"CHARACTER"
  61. 532:"DIRECT_IO"
  62. 533:"not END_OF_FILE()",331
  63. 534:"FILE_TYPE;"
  64. 535:"GET_LINE();",331,331
  65. 537:"INTEGER"
  66. 540:"LONG_"
  67. 542:"NEW_LINE;"
  68. 543:"OPEN();",331,331
  69. 544:"PUT_LINE();",331,331
  70. 546:"READ();",331,331
  71. 547:"STRING"
  72. 548:"TEXT_IO"
  73. 549:"UNCHECKED_CONVERSION"
  74. 550:"'VALUE()",331
  75. 551:"WRITE();",331,331
  76.