5 B$="HIT ANY KEY TO CONTINUE "
100 CLS
105 L=0
110 PRINT"1. READ  DUNGEON MANUAL ON MONITOR"
115 PRINT"2. PRINT DUNGEON MANUAL TO PRINTER"
116 PRINT
120 PRINT"3. READ  DESIGN  MANUAL ON MONITOR"
125 PRINT"4. PRINT DESING  MANUAL TO PRINTER"
126 PRINT
130 PRINT"5. END"
140 PRINT:PRINT:PRINT
150 INPUT"WHICH  ";A$
160 IF A$<"1" OR A$>"5" THEN 100
170 IF A$="5" THEN CLS:END
180 VIDEO=(A$="1") OR (A$="3")
190 CLS
200 IF NOT VIDEO THEN INPUT"SET PRINTER AND HIT RETURN";A$
210 IF VAL(A$)<3 THEN OPEN "I",#1,"DUNGEON.TXT" ELSE OPEN "I",#1,"DESIGN.TXT"
215 IF EOF(1) THEN 300
220 LINE INPUT#1,A$
230 IF NOT VIDEO THEN LPRINT A$:L=L+1
240 IF VIDEO THEN PRINT A$:L=L+1
250 IF VIDEO AND L=22 THEN PRINT:PRINT B$;:GOSUB 400:L=0
260 IF NOT VIDEO AND L=55 THEN LPRINT CHR$(12);:L=0
270 GOTO 215
300 CLOSE#1
310 END
400 A$=INKEY$:IF A$="" THEN 400
405 IF A$=CHR$(27) THEN CLOSE#1:GOTO 100
410 PRINT:PRINT
440 RETURN

300 CLOSE#1
310 END
400 A$=INKEY$:IF A$="" THEN 400
405 IF A$=CHR$(27) THEN CLOSE#