10MODE0
15PRINT''"Please Insert disc containi
ng the BBC-8 manual"''
20 PRINT "ARE YOU USING 11 OR 12 INCH
PAPER"
30 PRINT
40 INPUT"ENTER 11 OR 12 ";N%
50 IF N%<>11 AND N%<>12 THEN GOTO 10
60 CLS
70 PRINT"PRINTER Y/N "
80 PR$=GET$
90 IF INSTR("YyNn",PR$) THEN ELSE GOT
O 60
100 CLS
110 IF INSTR("Yy",PR$) THEN PRINT"IS Y
OUR PRINTER READY"'''ELSE PRINT''''''
120 PRINT"PRESS ANY KEY TO PAUSE/CONTI
NUE"
130 A=GET
140
150
160 MODE0
170 IF INSTR("Yy",PR$) THEN VDU2
180 F%=OPENIN("MANUAL1")
190 ON ERROR GOTO 210
200 PROCloop
210 PRINT
220 ON ERROR OFF
230
240
250 *DIR :2
260 F%=OPENIN("MANUAL2")
270 P%=0
280 REPEAT
290 PROCfetch
300 IF C%=50 AND P%=40 THEN P%=65
310 IF C%=10 THEN PRINT:P%=P%+1
320 PRINTCHR$(C%);
330 UNTIL P%=66
340 IF N%=12 THEN PROCgap
350 VDU3
360
370
380 PRINTCHR$(7)
390 CLS:PRINT"TURN PAPER ROUND IF REQU
IRED"
400 PRINT:PRINT"PRESS ANY KEY TO RESTA
RT"
410 A=GET
420 PRINT:PRINT"ARE YOU SURE"
430 A=GET
440
450
460 IF INSTR("Yy",PR$) THEN VDU2
470 ON ERROR GOTO 490
480 PROCloop
490 VDU3
500 ON ERROR OFF
510 END
520
530
540 DEFPROCloop
550 REPEAT
560 P%=0
570 REPEAT
580 PROCfetch
590 IF C%=10 THEN PRINT:P%=P%+1
600 PRINTCHR$(C%);
610 UNTIL P%=66
620 IF N%=12 THEN PROCgap
630 UNTIL EOF#(F%)
640 CLOSE#0
650 ENDPROC
660
670
680 REM 1" gap at 6 lines/inch
690 DEFPROCgap
700 FOR T=1 TO 6
710 IF INSTR("Yy",PR$) THEN PRINT ELSE
PRINT T
720 NEXT
730 ENDPROC
740
750
760 DEFPROCfetch
770 A=0
780 A=INKEY(1)
790 IF NOT A THEN B=GET
800 C%=BGET#F%
810 ENDPROC