10VDU3 20*FX15,10 30VDU3 40 ON ERROR RUN 50*FX255 15 60MODE7:*LOAD :0.!screen 70PROCloadID 80PRINTTAB(2,9);CHR$134;"Code 101 ... 8BS PROCEDURES" 90PRINTTAB(2,10);CHR$134;"Code 102 .. . Discussion Corner" 100PRINTTAB(2,11);CHR$134;"Code 103 .. . A-Z Game Cheats" 110PRINTTAB(2,12);CHR$134;"Code 104 .. . General Letters" 120PRINTTAB(2,13);CHR$134;"Code 105 .. . Programmers Return 8" 130PRINTTAB(2,14);CHR$134;"Code 106 .. . Coming Next Month" 140PRINTTAB(2,15);CHR$134;"Code 107 .. . Program Documentation" 150PRINTTAB(2,16);CHR$134;"Code 108 .. . Repton Reportage" 160PRINTTAB(2,17);CHR$134;"Code 109 .. . Palace Of Magic" 170PRINTTAB(2,18);CHR$134;"Code 110 .. . On this Months Disc" 180PRINTTAB(2,19);CHR$134;"Code 111 .. . Modem Addiction" 190PRINTTAB(2,20);CHR$134;"Code 999 .. . RETURN TO MAIN MENU" 200PRINTTAB(2,6);CHR$133;"ENTER ARTICL E CODE";CHR$134;:INPUT""code$ 210s$=RIGHT$(code$,3) 220p$=LEFT$(code$,1) 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 /PROC" ) 310IF s$="102" THEN OSCLI("TYPE /DSCS" ) 320IF s$="103" THEN OSCLI("TYPE /ATOZ" ) 330IF s$="104" THEN OSCLI("TYPE /MISC" ) 340IF s$="105" THEN OSCLI("TYPE /PRET" ) 350IF s$="106" THEN OSCLI("TYPE /NMON" ) 360IF s$="107" THEN OSCLI("TYPE /DOCS" ) 370IF s$="108" THEN OSCLI("TYPE /REPT" ) 380IF s$="109" THEN OSCLI("TYPE /PAOM" ) 390IF s$="110" THEN OSCLI("TYPE /PROG" ) 400IF s$="111" THEN OSCLI("TYPE /MODM" ) 410IF p$="P" OR p$="p" THEN PRINTSPC(1 000) 420VDU3 430*FX15,0 440VDU3 450PRINT"Output Complete - PRESS RETUR N" 460*FX15 470IF s$="999" THEN OSCLI("DRIVE 0"):C HAIN"!MENU" 480A=GET 490RUN 500: 510DEF PROCloadID 520PRINTTAB(6,0);"";:TIME=0:REPEATUNTI LTIME>50 530X=OPENIN":0.$.8bsUser":IF X=0 THEN CLOSE#0:CLS:PRINT"User ID Invalid":PRINT :END 540PTR#X=105:INPUT#X,Name$,User$,Issue $:CLOSE#X 550PRINTTAB(5,0);CHR$135;User$;TAB(35, 1);CHR$135;Issue$ 560VDU23;8202;0;0;0; 570ENDPROC 580: