10 MODE7:PROCA:*LOAD !screen 20 VDU23;8202;0;0;0;:PRINTTAB(8,13);CHR$130;"ISSUE 9 DISC MAGAZINE" 30 PRINTTAB(8,14);CHR$130;"ISSUE 9 SOFTWARE MENU" 40 PRINTTAB(8,15);CHR$130;"ISSUE 9 HELP FILES" 50 PRINTTAB(8,16);CHR$130;"VIEW SPELLCHECKER" 60 PRINTTAB(8,17);CHR$130;"INFORMANT ROM IMAGE" 70 PRINTTAB(8,18);CHR$130;"GHOSTBUSTERS LOGO" 80 PRINTTAB(8,19);CHR$130;"*** MAGAZINE HELP ***" 90 select%=FNA(3,13,33,19) 100 IF select%=1 THEN PROCmagazine 110 IF select%=2 THEN PROCmenu 120 IF select%=3 THEN PROChelp:MODE0:PRINT"Press Control & Shift to Pause"'"Press Return to start"'':A=GET:OSCLI("TYPE "+(type$)):PRINT:PRINT"Press any Key":A=GET:CLEAR:RUN 130 IF select%=4 THEN PROCview 140 IF select%=5 THEN PROCinform 150 IF select%=6 THEN CHAIN"G.GHOST" 160 IF select%=7 THEN type$=":2.$.MagINS":MODE0:PRINT"Press Control & Shift to Pause"'"Press Return to start"'':A=GET:OSCLI("TYPE "+(type$)):PRINT:PRINT"Press any Key":A=GET:CLEAR:RUN 170 RUN 180 : 190 : 200 DEF PROCmenu 210 FOR X=9 TO 15 220 PRINTTAB(0,X);SPC(39) 230 NEXT X 240 PRINTTAB(8,9);CHR$130;"Advanced Disc Backup" 250 PRINTTAB(8,10);CHR$130;"VDU Codes Killer" 260 PRINTTAB(8,11);CHR$130;"Tape to DFS Utility" 270 PRINTTAB(8,12);CHR$130;"Tape to ADFS Utility" 280 PRINTTAB(8,13);CHR$130;"Test Cards Program" 290 PRINTTAB(8,14);CHR$130;"SWRload and Notepad ROM" 300 PRINTTAB(8,15);CHR$130;"Speech! Fiddle Program" 310 PRINTTAB(8,16);CHR$130;"Lost Your Marbles Game" 320 PRINTTAB(8,17);CHR$130;"Letterhead Designer" 330 PRINTTAB(8,18);CHR$130;"SYSTEMS hardcopy Utility" 340 PRINTTAB(8,19);CHR$130;"Faults Graphics Program" 350 PRINTTAB(8,20);CHR$130;"Inca Treasure Adventure" 360 PRINTTAB(8,21);CHR$130;"City Bomber Game" 370 choice%=FNA(5,9,33,21) 380 CLS 390 *FX 4 0 400 IF choice%=1 THEN CHAIN"BACKUP" 410 IF choice%=2 THEN CHAIN":2.VDUKILL" 420 IF choice%=3 THEN CHAIN"T>DFS" 430 IF choice%=4 THEN CHAIN"T>ADFS" 440 IF choice%=5 THEN CHAIN"TCintro" 450 IF choice%=6 THEN CHAIN"SWRload" 460 IF choice%=7 THEN CHAIN"SPEECHF" 470 IF choice%=8 THEN CHAIN"MARBLES" 480 IF choice%=9 THEN CHAIN"LETTER" 490 IF choice%=10 THEN CHAIN"HARD" 500 IF choice%=11 THEN PAGE=&1100:CHAIN"FAULTS" 510 IF choice%=12 THEN CHAIN"INCA" 520 IF choice%=13 THEN CHAIN"BOMBER" 530 RUN 540 ENDPROC 550 560 570 580 590 600 END 610 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2 620 REPEATPRINTTAB(`%,a%);CHR$132;CHR$157;CHR$130;TAB((`%+b%),a%);CHR$156:*FX15 630 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO680 640 IFe%=0THENe%=-1 650 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO680 660 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO680 670 PRINTTAB(`%,a%);SPC2:a%=a%+e% 680 UNTILA$=CHR$13:*FX4,0 690 =(a%-d%) 700 DEFPROCA:*KEY14 1|M 710 *KEY15 0|M 720 *KEY12 0|M 730 *KEY13 1|M 740 ENDPROC 750 : 760 DEF PROCmagazine 770 CLS 780 PAGE=&1900 790 OSCLI("DRIVE 2") 800 CHAIN"$.Viewdat" 810 : 820 DEF PROChelp 830 FOR X=9 TO 20 840 PRINTTAB(0,X);SPC(39) 850 NEXT X 860 PRINTTAB(6,12);CHR$130;"Speech! Fiddler Instructions" 870 PRINTTAB(6,13);CHR$130;"SYSTEMS hardcopy Instructions" 880 PRINTTAB(6,14);CHR$130;"Inca Treasure Instructions" 890 PRINTTAB(6,15);CHR$130;"Letterhead Designer Information" 900 PRINTTAB(6,16);CHR$130;"Informant ROM Instructions" 910 PRINTTAB(6,17);CHR$130;"View Spellcheck Instructions" 920 PRINTTAB(6,18);CHR$130;"****** PREVIOUS MENU ******" 930 select%=FNA(4,12,35,18) 940 IF select%=1 THEN type$="T.SpeechI" 950 IF select%=2 THEN type$="T.HARDINF" 960 IF select%=3 THEN type$="T.INCINFO" 970 IF select%=4 THEN type$="T.LETTINS" 980 IF select%=5 THEN type$="T.INFORMI" 990 IF select%=6 THEN type$=":2.$.SPELINS" 1000 IF select%=7 THEN CLEAR:RUN 1010 ENDPROC 1020 : 1030 DEF PROCview 1040 OSCLI("DRIVE 2") 1050 PAGE=&1900 1060 CHAIN"SPELL" 1070 ENDPROC 1080 : 1090 DEF PROCinform 1100 FOR X=9 TO 20 1110 PRINTTAB(0,X);SPC(39) 1120 NEXT X 1130 PRINTTAB(0,13);CHR$130;"This is a ROM image file which should" 1140 PRINTTAB(0,14);CHR$130;"be loaded into BBC or Masters Sideways" 1150 PRINTTAB(0,15);CHR$130;"RAM. Full instructions available from" 1160 PRINTTAB(0,16);CHR$130;"the ISSUE 9 HELP FILES menu option." 1170 PRINTTAB(0,18);CHR$130;"PRESS RETURN":A=GET:RUN 1180 ENDPROC 1190 :