10 POKE53280,6:POKE53281,6
20 PRINTCHR$(14);CHR$(8);"[147]    [205]INITEL/64 [196]OCUMENTATION [210]EADER"
30 PRINT"[208]RESS ANY KEY TO PAUSE OUTPUT AND THEN"
40 PRINT"PRESS AGAIN TO RESUME.  [208]RESS [[211][212][207][208]]"
50 PRINT"TO QUIT."
60 PRINT"[207]UTPUT TO SCREEN OR PRINTER (S/P)? S[157]";:POKE204,0
70 POKE198,0
80 GETDV$
90 IFDV$=CHR$(13)THENDV$="S":GOTO120
100 IFDV$="S"ORDV$="P"THEN120
110 GOTO80
120 POKE204,1
130 D=3:IFDV$="P"THEND=4:S=7
140 IFD=4THENGOSUB190
150 OPEN1,8,2,"DOC.MINITEL/64,M,R":OPEN2,D,S:PRINTCHR$(14):PRINT"[147]"
160 GET#1,A$:IFST=0THENPRINT#2,A$;:WAIT198,1,1:POKE198,0:GOTO160
170 PRINT#2:CLOSE1:CLOSE2
180 END
190 PRINT:PRINT"[208]RINTER DEVICE ADDRESS (4/5)? 4[157]";:POKE204,0
200 POKE198,0
210 GETPA$
220 IFPA$=CHR$(13)THENPA$="4":GOTO250
230 IFPA$="4"ORPA$="5"THEN250
240 GOTO210
250 D=4:IFPA$="5"THEND=5
260 POKE204,1:RETURN