0ON ERROR CLOSE#0:RUN 10VDU3 20*FX15,10 30VDU3 40*FX255 15 50MODE7:*LOAD :0.!screen 60VDU23;8202;0;0;0; 70PRINTTAB(2,8);CHR$134;"Code 101 ... Introduction/News" 80PRINTTAB(2,9);CHR$134;"Code 102 ... HADFS Review" 90PRINTTAB(2,10);CHR$134;"Code 103 .. . Members Mailbox" 100PRINTTAB(2,11);CHR$134;"Code 104 .. . Repton Reportage" 110PRINTTAB(2,12);CHR$134;"Code 105 .. . Programmers Return" 120PRINTTAB(2,13);CHR$134;"Code 106 .. . Tech Tips Issue 5" 130PRINTTAB(2,14);CHR$134;"Code 107 .. . Begin Machine Code" 140PRINTTAB(2,15);CHR$134;"Code 108 .. . Program Documentation" 150PRINTTAB(2,16);CHR$134;"Code 109 .. . Address DBase Guide" 160PRINTTAB(2,17);CHR$134;"Code 110 .. . Chopper Instructions" 170PRINTTAB(2,18);CHR$134;"Code 111 .. . Archimedes Review Pt2" 180PRINTTAB(2,19);CHR$131;"Code 999 .. . Issue 18 Program Menu" 190PRINTTAB(2,6);CHR$130;"ENTER ARTICL E CODE";CHR$131;:INPUT""code$ 200s$=RIGHT$(code$,3) 210p$=LEFT$(code$,1) 220IF s$="999" THEN OSCLI("DRIVE 0"):C HAIN"!MENU" 230MODE3:VDU14 240PRINT"Press the <Shift> Key to Scro ll Pages ..." 250PRINT:PRINT 260VDU23;8202;0;0;0; 270OSCLI("DRIVE 2") 280OSCLI("DIR $") 290IF p$="P" AND s$<>"999" OR p$="p" A ND s$<>"999" THEN VDU2 300IF s$="101" THEN OSCLI("TYPE :0./NE WS") 310IF s$="102" THEN OSCLI("TYPE :0./HA DF") 320IF s$="103" THEN OSCLI("TYPE :0./MB OX") 330IF s$="104" THEN OSCLI("TYPE :0./RE PT") 340IF s$="105" THEN OSCLI("TYPE :0./PR ET") 350IF s$="106" THEN OSCLI("TYPE :2./TE CH") 360IF s$="107" THEN OSCLI("TYPE :0./MA RT") 370IF s$="108" THEN OSCLI("TYPE :2./DO C1") 380IF s$="109" THEN OSCLI("TYPE :2./DB SE") 390IF s$="110" THEN OSCLI("TYPE :2./CH PR") 400IF s$="111" THEN OSCLI("TYPE :0./UP GR") 410VDU3 420*FX15,0 430VDU3 440PRINT"Output Complete - PRESS RETUR N" 450*FX15 460IF s$="999" THEN OSCLI("DRIVE 0"):C HAIN"!MENU" 470A=GET 480RUN 490: