Category : Miscellaneous Language Source Code
Archive   : ADATUT12.ZIP
Filename : ED.ADA

 
Output of file : ED.ADA contained in archive : ADATUT12.ZIP

L--T+-T--T--T-+T--T2-T--T--T-3T---+----4----+----5----+----6----+----7----+---
( This file will customize the Shareware word processor PC-Write (tm) by )
( Quicksoft (tm) for editing Ada source code whenever you edit a file with )
( the extension ".ADA". Each of the keys Alt-A through Alt-Z is given a )
( special meaning, as are five Shift-Alt key combinations. Alt-B ("begin") )
( and Alt-T ("then") also position the cursor appropriately on the next )
( line after typing the word. ver. 1.20 21-NOV-1988 )
( )
( Written by Software Innovations Technology, 1083 Mandarin Drive NE, )
( Palm Bay, Florida 32905-4706 (407) 951-0233. You may freely copy and )
( distribute this file. )
( )
( Send for a copy of our Shareware ADA-TUTR (Ada Tutor) program on a 5 1/4" )
( disk! Only $10 for a trial copy, or $30 for a registered copy for full )
( use by one individual. Send $5 more if you prefer a 3 1/2" disk. Multi- )
( user licenses for companies, schools, etc., are available at very reason- )
( able prices. Registered individuals can earn generous commissions by )
( selling licenses and individual registrations. Full information is in- )
( cluded with ADA-TUTR. The computer needs a hard disk, and can have a )
( color or monochrome monitor. An Ada compiler is not required. Because )
( Ada source code is included, ADA-TUTR will run on mainframes and other )
( computers with Ada compilers. )
( )
( Other than being a registered user of PC-Write, we have no connection )
( with Quicksoft. However, we'll send you a copy of the latest version of )
( PC-Write on two 5.25" disks or one 3.5" disk for $10. This price is for )
( copying only, and does not include registration with Quicksoft. )
( )
400:346,346 (Turn word wrap off.)
286:"array("
304:"begin",265,270
302:"CHARACTER"
288:"delta "
274:"end"
289:"function "
508:"package FLT_IO is new FLOAT_IO(FLOAT); use FLT_IO;",264 (Shift-Alt-F)
290:"GET_LINE("
291:"h"
279:"INTEGER"
511:"package INT_IO is new INTEGER_IO(INTEGER); use INT_IO;",264 (Sft-Alt-I)
292:"j"
293:"k"
294:"loop"
306:"mod "
305:"NEW_LINE"
280:"others =>"
281:"procedure "
518:"package " (Shift-Alt-P)
272:"q"
275:"return"
520:"record" (Shift-Alt-R)
287:"STRING"
276:"then",265,270
278:"use "
303:"'VAL"
273:"with "
525:"with TEXT_IO; use TEXT_IO;",264 (Shift-Alt-W)
301:"xor "
277:"YEAR("
300:"z"
D:566,'DA-MON-YEAR' (Ctrl-D inserts the date. PC-Write ver. 2.7 or later.)