10*FX119 20OSCLI"DISK":OSCLI"DR.0" 30CLOSE#0 40ONERROR CLOSE#0:OSCLI"DR.0":RUN 50*FX15,10 60VDU3 70CLEAR:READN%:DIMf$(N%):FORI%=1TON%: READf$(I%):NEXT 80MODE7:PROCscreen 90X%=OPENIN"!BOOT":PTR#X%=&98:PRINTTA B(1,0);"I.D. ";CHR$(BGET#X%);CHR$(BGET#X %);CHR$(BGET#X%):CLOSE#X% 100PRINT TAB(2,7);CHR$135;"101 ... Edi torial" 110PRINT TAB(2,8);CHR$135;"102 ... Use r Response" 120PRINT TAB(2,9);CHR$133;"103 ... Que stionnaire Instructions" 130PRINT TAB(2,10);CHR$135;"104 ... FI LL IN QUESTIONNAIRE" 140PRINT TAB(2,11);CHR$135;"105 ... Ar chimedes Debate pt.3" 150PRINT TAB(2,12);CHR$135;"106 ... AD FS Debate" 160PRINT TAB(2,13);CHR$133;"107 ... Ab out this Issue" 170PRINT TAB(2,14);CHR$135;"108 ... Hu mour pt.1" 180PRINT TAB(2,15);CHR$135;"109 ... Hu mour pt.2" 190PRINT TAB(2,16);CHR$135;"110 ... Hu mour pt.3" 200PRINT TAB(2,17);CHR$133;"111 ... Ma ilbox part 1" 210PRINT TAB(2,18);CHR$133;"112 ... Ma ilbox part 2" 220PRINT TAB(2,19);CHR$135;"113 ... So und Envelopes explained" 230PRINT TAB(2,20);CHR$135;"114 ... Pr ogram Documentation" 240PRINT TAB(2,21);CHR$135;"115 ... Gu ess Who Info" 250PRINT TAB(2,22);CHR$135;"116 ... Gr een Suggestions" 260PRINT TAB(2,23);CHR$135;"117 ... Te chnological progress?" 270PRINT TAB(2,24);CHR$131;"999 ... Is sue 26 Software Menu"; 280PRINT TAB(0,5);CHR$131;"xxx:MODE 7 Axxx:MODE 3 Pxxx:Printout"; 290PRINT TAB(4,6);CHR$129;"ENTER CODE ";:INPUT""code$ 300Z%=0:VDU23;8202;0;0;0;:*FX15 310s$=RIGHT$(code$,3):p$=LEFT$(code$,1 ) 320IF s$="104"THEN C%=0:CHAIN"QuFill" 330IF s$="999"THEN OSCLI"DR.2":CHAIN"! MENU" 340IF p$="P" OR p$="p" THEN Z%=1:IF s$ ="110" THEN MODE3:VDU2:Z%=0:OSCLI"TYPE " +f$(VALRIGHT$(s$,2)) 350IF p$="A" OR p$="a" OR p$="P" OR p$ ="p" THEN IF NOT(s$="110") THEN $&A00=f$ (VALRIGHT$(s$,2)):CHAIN"cnvtMO3" 360IF NOT(s$="110") THEN OSCLI"/"+f$(V ALRIGHT$(s$,2)) 370IF NOT(p$="P" OR p$="p") THEN IF s$ ="110" THEN MODE3:PRINT"<Shift> to scrol l..."':VDU14:OSCLI"TYPE "+f$(VALRIGHT$(s $,2)) 380VDU3 390*FX15,0 400VDU3 410PRINT"Output Complete - PRESS RETUR N" 420*FX15 430REPEATUNTILGET=13 440RUN 450DATA 17,Editorl,Cmments,QuInstr, ,A rchDbt,ADFSDbt,About26,Humour,HP,ClMths0 ,MailBx1,MailBx2,Envelps,Dcumnts,GessInf ,Envrnmt,Tchnlgy 460DEFPROCscreen 470PRINT"  //////////¶"; 480PRINT"  ISSUE NUMBER 26  490PRINT"         500PRINT"    APR 1993  510PRINT"      520ENDPROC