10 *FX119
   20 OSCLI"DISK":OSCLI"DR.0"
   30 CLOSE#0
   40 ONERROR CLOSE#0:OSCLI"DR.0":RUN
   50 *FX15,10
   60 VDU3
   70 CLEAR:READN%:DIMf$(N%):FORI%=1TON%:READf$(I%):NEXT
   80 MODE7:PROCscreen
   90 X%=OPENIN"!BOOT":PTR#X%=&98:PRINTTAB(1,0);"I.D. ";CHR$(BGET#X%);CHR$(BGET#X%);CHR$(BGET#X%):CLOSE#X%
  100 PRINT TAB(2,7);CHR$135;"101 ... Editorial"
  110 PRINT TAB(2,8);CHR$135;"102 ... User Response"
  120 PRINT TAB(2,9);CHR$133;"103 ... Questionnaire Instructions"
  130 PRINT TAB(2,10);CHR$135;"104 ... FILL IN QUESTIONNAIRE"
  140 PRINT TAB(2,11);CHR$135;"105 ... Archimedes Debate pt.3"
  150 PRINT TAB(2,12);CHR$135;"106 ... ADFS Debate"
  160 PRINT TAB(2,13);CHR$133;"107 ... About this Issue"
  170 PRINT TAB(2,14);CHR$135;"108 ... Humour pt.1"
  180 PRINT TAB(2,15);CHR$135;"109 ... Humour pt.2"
  190 PRINT TAB(2,16);CHR$135;"110 ... Humour pt.3"
  200 PRINT TAB(2,17);CHR$133;"111 ... Mailbox part 1"
  210 PRINT TAB(2,18);CHR$133;"112 ... Mailbox part 2"
  220 PRINT TAB(2,19);CHR$135;"113 ... Sound Envelopes explained"
  230 PRINT TAB(2,20);CHR$135;"114 ... Program Documentation"
  240 PRINT TAB(2,21);CHR$135;"115 ... Guess Who Info"
  250 PRINT TAB(2,22);CHR$135;"116 ... Green Suggestions"
  260 PRINT TAB(2,23);CHR$135;"117 ... Technological progress?"
  270 PRINT TAB(2,24);CHR$131;"999 ... Issue 26 Software Menu";
  280 PRINT TAB(0,5);CHR$131;"xxx:MODE 7  Axxx:MODE 3   Pxxx:Printout";
  290 PRINT TAB(4,6);CHR$129;"ENTER CODE ";:INPUT""code$
  300 Z%=0:VDU23;8202;0;0;0;:*FX15
  310 s$=RIGHT$(code$,3):p$=LEFT$(code$,1)
  320 IF s$="104"THEN C%=0:CHAIN"QuFill"
  330 IF s$="999"THEN OSCLI"DR.2":CHAIN"!MENU"
  340 IF p$="P" OR p$="p" THEN Z%=1:IF s$="110" THEN MODE3:VDU2:Z%=0:OSCLI"TYPE "+f$(VALRIGHT$(s$,2))
  350 IF p$="A" OR p$="a" OR p$="P" OR p$="p" THEN IF NOT(s$="110") THEN $&A00=f$(VALRIGHT$(s$,2)):CHAIN"cnvtMO3"
  360 IF NOT(s$="110") THEN OSCLI"/"+f$(VALRIGHT$(s$,2))
  370 IF NOT(p$="P" OR p$="p") THEN IF s$="110" THEN MODE3:PRINT"<Shift> to scroll..."':VDU14:OSCLI"TYPE "+f$(VALRIGHT$(s$,2))
  380 VDU3
  390 *FX15,0
  400 VDU3
  410 PRINT"Output Complete - PRESS RETURN"
  420 *FX15
  430 REPEATUNTILGET=13
  440 RUN
  450 DATA 17,Editorl,Cmments,QuInstr, ,ArchDbt,ADFSDbt,About26,Humour,HP,ClMths0,MailBx1,MailBx2,Envelps,Dcumnts,GessInf,Envrnmt,Tchnlgy
  460 DEFPROCscreen
  470 PRINT"�          �����������������������������";
  480 PRINT"�����������������������ISSUE NUMBER�26��";
  490 PRINT"�����  � ��  �����꠰ �����       ��";
  500 PRINT"����뢡����  �����꡵�����ꮃAPR 1993��";
  510 PRINT"�����  ����� ����� ������������       � ";
  520 ENDPROC