10 PRINT "(R)etrieve a Letter                                                             (C)reate a new Letter - ";
20 F$ = INKEY$
30 IF F$ = "R" OR F$ = "r" THEN 170
40 IF F$ = "C" OR F$ = "c" THEN 50 ELSE GOTO 20
50 PRINT
60 INPUT "Which Letter will this be";LETTER$
70 INPUT "Which Disk Drive will You save this to";DR$
80 LETTER$ = DR$ + ":" + LETTER$ + ".DAT"
90 OPEN "O",1,LETTER$
100 INPUT "How many lines will this be";LENGTH
110 FOR L = 1 TO LENGTH
120 LINE INPUT "?";TEXT$
130 PRINT #1,TEXT$
140 NEXT L
150 CLOSE 1
160 END
170 PRINT
174 PRINT
175 PRINT "This Program is designed only to print or display the contents                  of a file.  It's not programmed to edit files.  You must use a                  Word Processor to edit."
176 PRINT
180 INPUT "Which Drive is the Document in? - [Drive]:\ <SubDirectory> - "; DR$
190 INPUT "Which Letter do You wanna retrive?  -[name].[ext]- ", LETTER$
200 LETTER$ = DR$ + "\" + LETTER$
205 PRINT
206 OPEN "I",1,LETTER$
210 PRINT "Would You like to (D)isply on Screen                                                           or (P)rint the letter";
215 PRINT
220 G$ = INKEY$
230 IF G$ = "D" OR G$ = "d" THEN 250
240 IF G$ = "P" OR G$ = "p" THEN 250 ELSE GOTO 220
250 WHILE EOF(1) = 0
260 LINE INPUT #1, L$
270 IF G$ = "D" OR G$ = "d" THEN PRINT L$ ELSE LPRINT L$
280 WEND
290 CLOSE 1
300 PRINT
310 END