home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
eamon0.zip
/
PRINTMAN.BAS
< prev
next >
Wrap
BASIC Source File
|
1980-01-01
|
684b
|
26 lines
5 B$="HIT ANY KEY TO CONTINUE "
100 CLS
110 PRINT"1. READ MANUAL ON MONITOR"
120 PRINT"2. PRINT MANUAL TO PRINTER"
130 PRINT"3. END"
140 PRINT:PRINT:PRINT
150 INPUT"WHICH ";A$
160 IF A$<"1" OR A$>"3" THEN 100
170 IF A$="3" THEN CLS:END
180 VIDEO=A$="1"
190 CLS
200 IF NOT VIDEO THEN INPUT"SET PRINTER AND HIT RETURN";A$
210 OPEN "I",#1,"EAMON.DOC"
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 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
410 PRINT:PRINT
440 RETURN