10VDU3 20*FX15,10 30VDU3 40 ON ERROR RUN 50*FX255 15 60MODE7:*LOAD :0.!screen 70PRINTTAB(2,8);CHR$131;"Code 100 ... Introduction" 80PRINTTAB(2,9);CHR$131;"Code 101 ... Issue News" 90PRINTTAB(2,10);CHR$131;"Code 102 .. . Adverts/Help Wanted" 100PRINTTAB(2,11);CHR$131;"Code 103 .. . Hints/Tips" 110PRINTTAB(2,12);CHR$131;"Code 104 .. . LIFE & Devils Island" 120PRINTTAB(2,13);CHR$131;"Code 105 .. . Charges Article 8CT" 130PRINTTAB(2,14);CHR$131;"Code 106 .. . BASDUMP Article 709" 140PRINTTAB(2,15);CHR$131;"Code 107 .. . Arc XArc Article" 150PRINTTAB(2,16);CHR$131;"Code 108 .. . Programmers Return 5" 160PRINTTAB(2,17);CHR$131;"Code 109 .. . Program Construction" 170PRINTTAB(2,18);CHR$131;"Code 110 .. . On this Months Disc" 180PRINTTAB(2,19);CHR$131;"Code 111 .. . Repton Reportage" 190PRINTTAB(2,20);CHR$131;"Code 112 .. . Members Response Pool" 200PRINTTAB(2,21);CHR$131;"Code 113 .. . UIM & SIM City Reviews" 210PRINTTAB(2,22);CHR$131;"Code 999 .. . RETURN TO MAIN MENU" 220PRINTTAB(14,1);SPC(23);TAB(14,2);SP C(23) 230PRINTTAB(13,2);CHR$133;"Enter Code" ;CHR$131;:INPUT""code$ 240s$=RIGHT$(code$,3) 250p$=LEFT$(code$,1) 260MODE3:VDU14 270PRINT"Press the <Shift> Key to Scro ll Pages ..." 280PRINT:PRINT 290VDU23;8202;0;0;0; 300OSCLI("DRIVE 2") 310OSCLI("DIR $") 320IF p$="P" AND s$<>"999" OR p$="p" A ND s$<>"999" THEN VDU2 330IF s$="100" THEN OSCLI("TYPE INTRO" ) 340IF s$="101" THEN OSCLI("TYPE NEWS") 350IF s$="102" THEN OSCLI("TYPE ADVERT ") 360IF s$="103" THEN OSCLI("TYPE HINTS" ) 370IF s$="104" THEN OSCLI("TYPE DevLif e") 380IF s$="105" THEN OSCLI("TYPE CHARGE S") 390IF s$="106" THEN OSCLI("TYPE BASDUM P") 400IF s$="107" THEN OSCLI("TYPE ARCXAR C") 410IF s$="108" THEN OSCLI("TYPE PRORET 5") 420IF s$="109" THEN OSCLI("TYPE PROGTU T") 430IF s$="110" THEN OSCLI("TYPE PROGS" ) 440IF s$="111" THEN OSCLI("TYPE REPTON ") 450IF s$="112" THEN OSCLI("TYPE RESPON S") 460IF s$="113" THEN OSCLI("TYPE UIMSIM ") 470IF p$="P" OR p$="p" THEN PRINTSPC(1 000) 480VDU3 490*FX15,0 500VDU3 510PRINT"Output Complete - PRESS RETUR N" 520*FX15 530IF s$="999" THEN OSCLI("DRIVE 0"):C HAIN"!MENU" 540A=GET 550RUN