10 DEFFNS="MenRead" 20 ONERROR:VDU3:CLOSE#0:OSCLI"SPOOL":REPORT:PRINTERL:END 30 A%=0:Y%=0:SYS%=USR&FFDA MOD &100 40 REPEAT 50 IF SYS%=8:OSCLI"MOUNT 0" 60 IF SYS%=4:OSCLI"DR.0":*DIR $ 70 MODE7 80 F%=OPENIN"Menu" 90 PRINT'''TAB(2)"ƒ8-Bit Software Menu Printout. v2" 100 PRINTTAB(2)"‚8-Bit Software Menu Printout. v2" 110 PRINT'''"ƒPrintout of menu from issue 28 onwards." 120 PRINT'''TAB(8)"„ƒ1. Printer on. œ" 130 PRINT'TAB(6)"„ƒ2. SPOOL to drive 1. œ" 140 PRINT'TAB(2)"„ƒ3. Append SPOOL to drive 1. œ" 150 PRINT'TAB(8)"„ƒ4. Screen only. œ" 160 REPEAT 170 A$=GET$ 180 UNTILINSTR("1234",A$) 190 IF A$="1" P%=2 ELSE P%=3 200 IF A$="2":*SPOOL :1.8BSmenu 210 IF A$="3":*SPOOLON :1.8BSmenu 220 IF A$="4" P%=14 230 MODE0 240 IF P%=14 PRINT"Press SHIFT to scroll text." 250 L%=0 260 REPEAT 270 A%=BGET#F%:IF A%=&6C IF BGET#F%=&24 IF BGET#F%=&3D IF BGET#F%=&22:L%=1 280 UNTILL%=1 290 Issue$=FNgt 300 Issue$=LEFT$(Issue$,LENIssue$-1) 310 L%=0 320 REPEAT 330 A%=BGET#F%:IF A%=&6D IF BGET#F%=&24 IF BGET#F%=&3D IF BGET#F%=&22:L%=1 340 UNTILL%=1 350 Date$=FNgt 360 Date$=LEFT$(Date$,LENDate$-1) 370 VDUP% 380 VDU1,27,1,45,1,1:REM UNDERLINE ON 390 PRINT "8-Bit Software Issue ";Issue$;" (";Date$;") ";:IF SYS%=4 PRINT"DFS Version"' ELSE PRINT "ADFS Version"' 400 VDU1,27,1,45,1,0:REM UNDERLINE OFF 410 PRINTTAB(5); 420 VDU1,27,1,45,1,1:REM UNDERLINE ON 430 PRINT"Program description. (T)eletext (A)SCII (P)rogram. Pathname." 440 VDU1,27,1,45,1,0:REM UNDERLINE OFF 450 PTR#F%=&1300 460 REPEAT 470 A%=BGET#F% 480 UNTIL A%=&DC:REM FIND FIRST DATA STATEMENT 490 REPEAT:REM OUTER MENU LOOP 500 MenTit$=FNgt 510 MenTit$=MID$(MenTit$,INSTR(MenTit$," ")+1) 520 Head$=FNgt:REM HEADINGS IN MENU 530 Q%=VAL Head$ 540 PROCreadmenu 550 REPEATUNTILBGET#F%=&D OR EOF#F% 560 IF PTR#F%<>EXT#F%:PTR#F%=PTR#F%+3 570 UNTIL EOF#F% 580 CLOSE#F% 590 VDU3 600 *SPOOL 610 PRINT'''"INSERT NEXT DISC AND PRESS A KEY OR PRESS ESCAPE TO END" 620 REPEATUNTILGET 630 UNTILFALSE 640 DEFPROCreadmenu 650 VDU1,27,1,45,1,1:REM UNDERLINE ON 660 PRINT'MenTit$ 670 VDU1,27,1,45,1,0:REM UNDERLINE OFF 680 FORL%=1TOQ% 690 PTR#F%=PTR#F%+5 700 Desc$=FNgt 710 A$=FNgt 720 Name$=FNgt 730 IF Name$<>"" Name$=Name$+"." 740 Name$=Name$+FNgt 750 Ascii$=FNgt 760 Ttext$=FNgt 770 Menu$=FNgt 780 IF Menu$<>"0" NEXT:ENDPROC 790 PRINT TAB(5)CHR$(L%+64);".";Desc$; 800 PRINT TAB(38); 810 IF Ascii$="0" IF Ttext$="0" PRINT"P"; 820 IF Ascii$="-1" IF Ttext$="0" PRINT"A"; 830 IF Ttext$="-1" IF Ttext$="-1" PRINT"T"; 840 PRINTTAB(41);Name$ 850 NEXT 860 ENDPROC 870 DEFFNgt 880 Temp$="" 890 REPEAT 900 A%=BGET#F% 910 IFA%<>&2C IF A%<>&D IFA%>31 IF A%<127 Temp$=Temp$+CHR$A% 920 UNTILA%=&2C OR A%=&D 930 =Temp$