10ON ERROR CLOSE#0:RUN 20VDU3 30*FX15,10 40VDU3 50MODE7:OSCLI("LOAD :0.!screen") 60VDU23;8202;0;0;0; 70PRINTTAB(2,8);CHR$135;"Code 101 ... Introduction/News" 80PRINTTAB(2,9);CHR$135;"Code 102 ... HashGen Userguide" 90PRINTTAB(2,10);CHR$135;"Code 103 .. . Re-Inking Ribbons" 100PRINTTAB(2,11);CHR$135;"Code 104 .. . Repton Reportage" 110PRINTTAB(2,12);CHR$135;"Code 105 .. . Pantheon Game Guide" 120PRINTTAB(2,13);CHR$135;"Code 106 .. . Sound Sampling Text" 130PRINTTAB(2,14);CHR$135;"Code 107 .. . View/Ascii Guide" 140PRINTTAB(2,15);CHR$135;"Code 108 .. . Program Documentation" 150PRINTTAB(2,16);CHR$131;"Code 999 .. . Issue 19 Program Menu" 160PRINTTAB(2,6);CHR$131;"ENTER ARTICL E CODE";CHR$131;:INPUT""code$ 170*FX15 180s$=RIGHT$(code$,3) 190p$=LEFT$(code$,1) 200IF s$="999" THEN OSCLI("DRIVE 0"):C HAIN"!MENU" 210MODE3:VDU14 220PRINT"Press the <Shift> Key to Scro ll Pages ..." 230PRINT:PRINT 240VDU23;8202;0;0;0; 250OSCLI("DRIVE 2") 260OSCLI("DIR $") 270IF p$="P" AND s$<>"999" OR p$="p" A ND s$<>"999" THEN VDU2 280IF s$="101" THEN OSCLI("TYPE :2./NE WS") 290IF s$="102" THEN OSCLI("TYPE :2./HS GN") 300IF s$="103" THEN OSCLI("TYPE :2./IN TX") 310IF s$="104" THEN OSCLI("TYPE :2./RE PT") 320IF s$="105" THEN OSCLI("TYPE :2./PD OC") 330IF s$="106" THEN OSCLI("TYPE :2./ST XT") 340IF s$="107" THEN OSCLI("TYPE :2./VW AS") 350IF s$="108" THEN OSCLI("TYPE :2./DO CU") 360VDU3 370*FX15,0 380VDU3 390PRINT"Output Complete - PRESS RETUR N" 400*FX15 410IF s$="999" THEN OSCLI("DRIVE 0"):C HAIN"!MENU" 420A=GET 430RUN 440: