10VDU3 20*FX15,10 30VDU3 40 ON ERROR RUN 50*FX255 15 60MODE7:*LOAD :0.!screen 70PROCloadID 80PRINTTAB(2,7);CHR$134;"Code 101 ... Issue News" 90PRINTTAB(2,8);CHR$134;"Code 102 ... Universal Mailbox" 100PRINTTAB(2,9);CHR$134;"Code 103 ... Hints/Tips" 110PRINTTAB(2,10);CHR$134;"Code 104 .. . Sim City Review" 120PRINTTAB(2,11);CHR$134;"Code 105 .. . Charging Article" 130PRINTTAB(2,12);CHR$134;"Code 106 .. . IMPORTANT APPEAL" 140PRINTTAB(2,13);CHR$134;"Code 107 .. . Coming Next Month..." 150PRINTTAB(2,14);CHR$134;"Code 108 .. . Programmers Return 7" 160PRINTTAB(2,15);CHR$134;"Code 109 .. . Problems/Help Wanted" 170PRINTTAB(2,16);CHR$134;"Code 110 .. . On this Months Disc" 180PRINTTAB(2,17);CHR$134;"Code 111 .. . Repton Reportage" 190PRINTTAB(2,18);CHR$134;"Code 112 .. . Software Documentation" 200PRINTTAB(2,19);CHR$134;"Code 113 .. . SYSTEMS (New Users)" 210PRINTTAB(2,20);CHR$134;"Code 114 .. . SYSTEMS (Existing Usr)" 220PRINTTAB(2,21);CHR$134;"Code 999 .. . RETURN TO MAIN MENU" 230PRINTTAB(2,6);CHR$133;"ENTER ARTICL E CODE";CHR$134;: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$="101" THEN OSCLI("TYPE NEWS") 340IF s$="102" THEN OSCLI("TYPE MAILBO X") 350IF s$="103" THEN OSCLI("TYPE HINTS" ) 360IF s$="104" THEN OSCLI("TYPE REVIEW S") 370IF s$="105" THEN OSCLI("TYPE CHARGN G") 380IF s$="106" THEN OSCLI("TYPE APPEAL ") 390IF s$="107" THEN OSCLI("TYPE NEXTMO N") 400IF s$="108" THEN OSCLI("TYPE PROGRE T") 410IF s$="109" THEN OSCLI("TYPE PROBLE M") 420IF s$="110" THEN OSCLI("TYPE PROGRA M") 430IF s$="111" THEN OSCLI("TYPE REPTON ") 440IF s$="112" THEN OSCLI("TYPE DOCUME N") 450IF s$="113" THEN OSCLI("TYPE STMtxt 1") 460IF s$="114" THEN OSCLI("TYPE STMtxt 2") 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 560: 570DEF PROCloadID 580PRINTTAB(6,0);"";:TIME=0:REPEATUNTI LTIME>50 590X=OPENIN":0.$.8bsUser":IF X=0 THEN CLOSE#0:CLS:PRINT"User ID Invalid":PRINT :END 600PTR#X=105:INPUT#X,Name$,User$,Issue $:CLOSE#X 610PRINTTAB(5,0);CHR$135;User$;TAB(35, 1);CHR$135;Issue$ 620VDU23;8202;0;0;0; 630ENDPROC 640: