10 VDU3 20 *FX15,10 30 VDU3 40 ON ERROR RUN 50 *FX255 15 60 MODE7:*LOAD :0.!screen 70 PROCloadID 80 PRINTTAB(2,7);CHR$134;"Code 101 ... Introduction/News" 90 PRINTTAB(2,8);CHR$134;"Code 102 ... MixEd Instructions" 100 PRINTTAB(2,9);CHR$134;"Code 103 ... Hints and Tips" 110 PRINTTAB(2,10);CHR$134;"Code 104 ... Repton Reportage" 120 PRINTTAB(2,11);CHR$134;"Code 105 ... Programmers Return" 130 PRINTTAB(2,12);CHR$134;"Code 106 ... Tech Tips Issue 4" 140 PRINTTAB(2,13);CHR$134;"Code 107 ... SYSTEMS Shares Info" 150 PRINTTAB(2,14);CHR$134;"Code 108 ... On This Months Disc" 160 PRINTTAB(2,15);CHR$134;"Code 109 ... PD Libraries Review" 170 PRINTTAB(2,16);CHR$134;"Code 110 ... Watford DDFS Report" 180 PRINTTAB(2,17);CHR$134;"Code 111 ... Messages/Help Wanted" 181 PRINTTAB(2,18);CHR$134;"Code 112 ... Coming Next Month" 190 PRINTTAB(2,19);CHR$134;"Code 113 ... Archimedes Review Pt1" 200 PRINTTAB(2,20);CHR$134;"Code 114 ... View Filter Guide" 210 PRINTTAB(2,21);CHR$134;"Code 115 ... CHECKLIST FOR RETURNS" 220 PRINTTAB(2,22);CHR$131;"Code 999 ... Issue 17 Program Menu" 230 PRINTTAB(2,6);CHR$130;"ENTER ARTICLE CODE";CHR$131;:INPUT""code$ 240 s$=RIGHT$(code$,3) 250 p$=LEFT$(code$,1) 260 IF s$="999" THEN OSCLI("DRIVE 0"):CHAIN"!MENU" 270 MODE3:VDU14 280 PRINT"Press the Key to Scroll Pages ..." 290 PRINT:PRINT 300 VDU23;8202;0;0;0; 310 OSCLI("DRIVE 2") 320 OSCLI("DIR $") 330 IF p$="P" AND s$<>"999" OR p$="p" AND s$<>"999" THEN VDU2 340 IF s$="101" THEN OSCLI("TYPE /NEWS") 350 IF s$="102" THEN OSCLI("TYPE /MXED") 360 IF s$="103" THEN OSCLI("TYPE /HINT") 370 IF s$="104" THEN OSCLI("TYPE /REPT") 380 IF s$="105" THEN OSCLI("TYPE /PRET") 390 IF s$="106" THEN OSCLI("TYPE /TECH") 400 IF s$="107" THEN OSCLI("TYPE /SHRS") 410 IF s$="108" THEN OSCLI("TYPE /PROG") 420 IF s$="109" THEN OSCLI("TYPE /PDRV") 430 IF s$="110" THEN OSCLI("TYPE /DDFS") 440 IF s$="111" THEN OSCLI("TYPE /HELP") 450 IF s$="112" THEN OSCLI("TYPE /NMON") 460 IF s$="113" THEN OSCLI("TYPE /ARCH") 470 IF s$="114" THEN OSCLI("TYPE /FLTR") 480 IF s$="115" THEN OSCLI("TYPE /CHCK") 490 IF p$="P" OR p$="p" THEN PRINTSPC(1000) 500 VDU3 510 *FX15,0 520 VDU3 530 PRINT"Output Complete - PRESS RETURN" 540 *FX15 550 A=GET 560 RUN 570 : 580 DEF PROCloadID 590 PRINTTAB(6,0);"";:TIME=0:REPEATUNTILTIME>50 600 X=OPENIN":0.$.!8bs":IF X=0 THEN CLOSE#0:CLS:PRINT"User ID Invalid":PRINT:END 610 PTR#X=105:INPUT#X,Name$,User$,Issue$:CLOSE#X 620 PRINTTAB(5,0);CHR$131;User$;TAB(35,1);CHR$131;Issue$ 630 VDU23;8202;0;0;0; 640 ENDPROC 650 :