home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / ada / adatu200.exe / ED.ADA < prev    next >
Text File  |  1991-03-25  |  3KB  |  62 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 (tm)  by )
  3. ( Quicksoft (tm)  for editing Ada source code whenever you edit a file with )
  4. ( the extension ".ADA".   Each of the keys  Alt-A through Alt-Z  is given a )
  5. ( special meaning, as are five Shift-Alt key combinations.  Alt-B ("begin") )
  6. ( and Alt-T ("then")  also  position  the  cursor appropriately on the next )
  7. ( line after typing the word.                       ver. 2.00   25-MAR-1991 )
  8. (                                                                           )
  9. ( Written by  Software  Innovations  Technology,  1083  Mandarin  Drive NE, )
  10. ( Palm Bay, Florida  32905-4706   (407) 951-0233.   You may freely copy and )
  11. ( distribute this file.                                                     )
  12. (                                                                           )
  13. ( Send for a copy of our Shareware ADA-TUTR (Ada Tutor) program on a 5 1/4" )
  14. ( disk!  Only $10 for a trial copy, or  $30  for a registered copy for full )
  15. ( use by one individual.  Send $5 more if you prefer a 3 1/2" disk.  Multi- )
  16. ( user licenses for companies, schools, etc., are available at very reason- )
  17. ( able prices.  Registered  individuals  can  earn  generous commissions by )
  18. ( selling licenses and  individual  registrations.  Full information is in- )
  19. ( cluded  with  ADA-TUTR.  The computer can have a color or monochrome mon- )
  20. ( itor.   An Ada compiler is not required.   Because Ada source code is in- )
  21. ( cluded,  ADA-TUTR will run on mainframes and any other computers with Ada )
  22. ( compilers.                                                                )
  23. (                                                                           )
  24. ( Other than being a registered  user  of  PC-Write,  we have no connection )
  25. ( with Quicksoft.   However, we'll send you a copy of the latest version of )
  26. ( PC-Write on three 5.25" disks for $15,  or two 3.5" disks for $20.  These )
  27. ( prices are only for copying; registration with Quicksoft is not included. )
  28. (                                                                           )
  29. 400:346,346  (Turn word wrap off.)
  30. 286:"array("
  31. 304:"begin",265,270
  32. 302:"CHARACTER"
  33. 288:"delta "
  34. 274:"end"
  35. 289:"function "
  36. 508:"package FLT_IO is new FLOAT_IO(FLOAT); use FLT_IO;",264   (Shift-Alt-F)
  37. 290:"GET_LINE("
  38. 291:"h"
  39. 279:"INTEGER"
  40. 511:"package INT_IO is new INTEGER_IO(INTEGER); use INT_IO;",264  (Sft-Alt-I)
  41. 292:"j"
  42. 293:"k"
  43. 294:"loop"
  44. 306:"mod "
  45. 305:"NEW_LINE"
  46. 280:"others =>"
  47. 281:"procedure "
  48. 518:"package "   (Shift-Alt-P)
  49. 272:"q"
  50. 275:"return"
  51. 520:"record"   (Shift-Alt-R)
  52. 287:"STRING"
  53. 276:"then",265,270
  54. 278:"use "
  55. 303:"'VAL"
  56. 273:"with "
  57. 525:"with TEXT_IO; use TEXT_IO;",264   (Shift-Alt-W)
  58. 301:"xor "
  59. 277:"YEAR("
  60. 300:"z"
  61. D:566,'DA-MON-YEAR'  (Ctrl-D inserts the date.  PC-Write ver. 2.7 or later.)
  62.