10 ON ERROR CLOSE#0:RUN
   20 VDU3
   30 *FX15,10
   40 VDU3
   50 MODE7:OSCLI("LOAD :0.!screen")
   60 VDU23;8202;0;0;0;
   70 PRINTTAB(2,8);CHR$135;"Code 101 ... Introduction/News"
   80 PRINTTAB(2,9);CHR$135;"Code 102 ... HashGen Userguide"
   90 PRINTTAB(2,10);CHR$135;"Code 103 ... Re-Inking Ribbons"
  100 PRINTTAB(2,11);CHR$135;"Code 104 ... Repton Reportage"
  110 PRINTTAB(2,12);CHR$135;"Code 105 ... Pantheon Game Guide"  
  120 PRINTTAB(2,13);CHR$135;"Code 106 ... Sound Sampling Text"
  130 PRINTTAB(2,14);CHR$135;"Code 107 ... View/Ascii Guide"
  140 PRINTTAB(2,15);CHR$135;"Code 108 ... Program Documentation"
  150 PRINTTAB(2,16);CHR$131;"Code 999 ... Issue 19 Program Menu"   
  160 PRINTTAB(2,6);CHR$131;"ENTER ARTICLE CODE";CHR$131;:INPUT""code$  
  170 *FX15
  180 s$=RIGHT$(code$,3)  
  190 p$=LEFT$(code$,1)  
  200 IF s$="999" THEN OSCLI("DRIVE 0"):CHAIN"!MENU"  
  210 MODE3:VDU14
  220 PRINT"Press the <Shift> Key to Scroll Pages ..."
  230 PRINT:PRINT
  240 VDU23;8202;0;0;0;
  250 OSCLI("DRIVE 2")
  260 OSCLI("DIR $")
  270 IF p$="P" AND s$<>"999" OR p$="p" AND s$<>"999" THEN VDU2  
  280 IF s$="101" THEN OSCLI("TYPE :2./NEWS")
  290 IF s$="102" THEN OSCLI("TYPE :2./HSGN")
  300 IF s$="103" THEN OSCLI("TYPE :2./INTX")
  310 IF s$="104" THEN OSCLI("TYPE :2./REPT")
  320 IF s$="105" THEN OSCLI("TYPE :2./PDOC")
  330 IF s$="106" THEN OSCLI("TYPE :2./STXT")
  340 IF s$="107" THEN OSCLI("TYPE :2./VWAS")
  350 IF s$="108" THEN OSCLI("TYPE :2./DOCU")
  360 VDU3
  370 *FX15,0
  380 VDU3
  390 PRINT"Output Complete - PRESS RETURN"
  400 *FX15
  410 IF s$="999" THEN OSCLI("DRIVE 0"):CHAIN"!MENU"     
  420 A=GET
  430 RUN
  440 :