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