10VDU3 20*FX15,10 30VDU3 40ON ERROR RUN 50*FX255 15 60MODE7:*LOAD :0.!screen 70PROCloadID 80PRINTTAB(2,7);CHR$134;"Code 101 ... Introduction/News" 90PRINTTAB(2,8);CHR$134;"Code 102 ... MixEd Instructions" 100PRINTTAB(2,9);CHR$134;"Code 103 ... Hints and Tips" 110PRINTTAB(2,10);CHR$134;"Code 104 .. . Repton Reportage" 120PRINTTAB(2,11);CHR$134;"Code 105 .. . Programmers Return" 130PRINTTAB(2,12);CHR$134;"Code 106 .. . Tech Tips Issue 4" 140PRINTTAB(2,13);CHR$134;"Code 107 .. . SYSTEMS Shares Info" 150PRINTTAB(2,14);CHR$134;"Code 108 .. . On This Months Disc" 160PRINTTAB(2,15);CHR$134;"Code 109 .. . PD Libraries Review" 170PRINTTAB(2,16);CHR$134;"Code 110 .. . Watford DDFS Report" 180PRINTTAB(2,17);CHR$134;"Code 111 .. . Messages/Help Wanted" 181PRINTTAB(2,18);CHR$134;"Code 112 .. . Coming Next Month" 190PRINTTAB(2,19);CHR$134;"Code 113 .. . Archimedes Review Pt1" 200PRINTTAB(2,20);CHR$134;"Code 114 .. . View Filter Guide" 210PRINTTAB(2,21);CHR$134;"Code 115 .. . CHECKLIST FOR RETURNS" 220PRINTTAB(2,22);CHR$131;"Code 999 .. . Issue 17 Program Menu" 230PRINTTAB(2,6);CHR$130;"ENTER ARTICL E CODE";CHR$131;:INPUT""code$ 240s$=RIGHT$(code$,3) 250p$=LEFT$(code$,1) 260IF s$="999" THEN OSCLI("DRIVE 0"):C HAIN"!MENU" 270MODE3:VDU14 280PRINT"Press the <Shift> Key to Scro ll Pages ..." 290PRINT:PRINT 300VDU23;8202;0;0;0; 310OSCLI("DRIVE 2") 320OSCLI("DIR $") 330IF p$="P" AND s$<>"999" OR p$="p" A ND s$<>"999" THEN VDU2 340IF s$="101" THEN OSCLI("TYPE /NEWS" ) 350IF s$="102" THEN OSCLI("TYPE /MXED" ) 360IF s$="103" THEN OSCLI("TYPE /HINT" ) 370IF s$="104" THEN OSCLI("TYPE /REPT" ) 380IF s$="105" THEN OSCLI("TYPE /PRET" ) 390IF s$="106" THEN OSCLI("TYPE /TECH" ) 400IF s$="107" THEN OSCLI("TYPE /SHRS" ) 410IF s$="108" THEN OSCLI("TYPE /PROG" ) 420IF s$="109" THEN OSCLI("TYPE /PDRV" ) 430IF s$="110" THEN OSCLI("TYPE /DDFS" ) 440IF s$="111" THEN OSCLI("TYPE /HELP" ) 450IF s$="112" THEN OSCLI("TYPE /NMON" ) 460IF s$="113" THEN OSCLI("TYPE /ARCH" ) 470IF s$="114" THEN OSCLI("TYPE /FLTR" ) 480IF s$="115" THEN OSCLI("TYPE /CHCK" ) 490IF p$="P" OR p$="p" THEN PRINTSPC(1 000) 500VDU3 510*FX15,0 520VDU3 530PRINT"Output Complete - PRESS RETUR N" 540*FX15 550A=GET 560RUN 570: 580DEF PROCloadID 590PRINTTAB(6,0);"";:TIME=0:REPEATUNTI LTIME>50 600X=OPENIN":0.$.!8bs":IF X=0 THEN CLO SE#0:CLS:PRINT"User ID Invalid":PRINT:EN D 610PTR#X=105:INPUT#X,Name$,User$,Issue $:CLOSE#X 620PRINTTAB(5,0);CHR$131;User$;TAB(35, 1);CHR$131;Issue$ 630VDU23;8202;0;0;0; 640ENDPROC 650: