10VDU3 20*FX15,10 30VDU3 50*FX255 15 60MODE7:*LOAD :0.!screen 70REMPROCloadID 80PRINTTAB(2,8);CHR$134;"Code 101 ... Introduction/News" 90PRINTTAB(2,9);CHR$134;"Code 102 ... MixEd Instructions" 100PRINTTAB(2,10);CHR$134;"Code 103 .. . Hints and Tips" 110PRINTTAB(2,11);CHR$134;"Code 104 .. . Repton Reportage" 120PRINTTAB(2,12);CHR$134;"Code 105 .. . Programmers Return" 130PRINTTAB(2,13);CHR$134;"Code 106 .. . Tech Tips Issue 4" 140PRINTTAB(2,14);CHR$134;"Code 107 .. . SYSTEMS Shares Info" 150PRINTTAB(2,15);CHR$134;"Code 108 .. . On This Months Disc" 160PRINTTAB(2,16);CHR$134;"Code 109 .. . PD Libraries Review" 170PRINTTAB(2,17);CHR$134;"Code 110 .. . Watford DDFS Report" 180PRINTTAB(2,18);CHR$134;"Code 111 .. . Messages/Help Wanted" 190PRINTTAB(2,19);CHR$134;"Code 112 .. . Coming Next Month" 200PRINTTAB(2,20);CHR$134;"Code 113 .. . Archimedes Review Pt1" 210PRINTTAB(2,21);CHR$134;"Code 114 .. . View Filter Guide" 220PRINTTAB(2,22);CHR$134;"Code 115 .. . CHECKLIST FOR RETURNS" 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: