10 MODE0 15 PRINT''"Please Insert disc containing 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 GOTO 60 100 CLS 110 IF INSTR("Yy",PR$) THEN PRINT"IS YOUR PRINTER READY"'''ELSE PRINT'''''' 120 PRINT"PRESS ANY KEY TO PAUSE/CONTINUE" 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 REQUIRED" 400 PRINT:PRINT"PRESS ANY KEY TO RESTART" 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