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