10VDU3 20*FX15,10 30VDU3 40 ON ERROR RUN 50*FX255 15 60MODE7:*LOAD :0.!screen 70PRINTTAB(2,9);CHR$134;"Code 101 ... Issue News" 80PRINTTAB(2,10);CHR$134;"Code 102 .. . Adverts/Help Wanted" 90PRINTTAB(2,11);CHR$134;"Code 103 .. . Hints/Tips" 100PRINTTAB(2,12);CHR$134;"Code 104 .. . Communications" 110PRINTTAB(2,13);CHR$134;"Code 105 .. . Amcom-ADFS Guide" 120PRINTTAB(2,14);CHR$134;"Code 106 .. . PR Scripts Article" 130PRINTTAB(2,15);CHR$134;"Code 107 .. . Watford S.SWR detail" 140PRINTTAB(2,16);CHR$134;"Code 108 .. . Programmers Return 6" 150PRINTTAB(2,17);CHR$134;"Code 109 .. . Problems/Help Wanted" 160PRINTTAB(2,18);CHR$134;"Code 110 .. . On this Months Disc" 170PRINTTAB(2,19);CHR$134;"Code 111 .. . Repton Reportage" 180PRINTTAB(2,20);CHR$134;"Code 112 .. . Members Response Pool" 190PRINTTAB(2,21);CHR$134;"Code 999 .. . RETURN TO MAIN MENU" 200PRINTTAB(14,1);SPC(23);TAB(14,2);SP C(23) 210PRINTTAB(13,2);CHR$133;"Enter Code" ;CHR$134;:INPUT""code$ 220s$=RIGHT$(code$,3) 230p$=LEFT$(code$,1) 240MODE3:VDU14 250PRINT"Press the <Shift> Key to Scro ll Pages ..." 260PRINT:PRINT 270VDU23;8202;0;0;0; 280OSCLI("DRIVE 2") 290OSCLI("DIR $") 300IF p$="P" AND s$<>"999" OR p$="p" A ND s$<>"999" THEN VDU2 320IF s$="101" THEN OSCLI("TYPE NEWS") 330IF s$="102" THEN OSCLI("TYPE ADVERT S") 340IF s$="103" THEN OSCLI("TYPE HINTS" ) 350IF s$="104" THEN OSCLI("TYPE COMMS" ) 360IF s$="105" THEN OSCLI("TYPE AMCOM" ) 370IF s$="106" THEN OSCLI("TYPE PRSCR" ) 380IF s$="107" THEN OSCLI("TYPE SWRART ") 390IF s$="108" THEN OSCLI("TYPE PROGRE T") 400IF s$="109" THEN OSCLI("TYPE PROBS" ) 410IF s$="110" THEN OSCLI("TYPE PROGS" ) 420IF s$="111" THEN OSCLI("TYPE REPTON ") 430IF s$="112" THEN OSCLI("TYPE REPLIE S") 450IF p$="P" OR p$="p" THEN PRINTSPC(1 000) 460VDU3 470*FX15,0 480VDU3 490PRINT"Output Complete - PRESS RETUR N" 500*FX15 510IF s$="999" THEN OSCLI("DRIVE 0"):C HAIN"!MENU" 520A=GET 530RUN