0 ON ERROR CLOSE#0:RUN
   10 VDU3
   20 *FX15,10
   30 VDU3
   40 *FX255 15
   50 MODE7:*LOAD :0.!screen 
   60 VDU23;8202;0;0;0;
   70 PRINTTAB(2,8);CHR$134;"Code 101 ... Introduction/News"
   80 PRINTTAB(2,9);CHR$134;"Code 102 ... HADFS Review"
   90 PRINTTAB(2,10);CHR$134;"Code 103 ... Members Mailbox"
  100 PRINTTAB(2,11);CHR$134;"Code 104 ... Repton Reportage"
  110 PRINTTAB(2,12);CHR$134;"Code 105 ... Programmers Return"
  120 PRINTTAB(2,13);CHR$134;"Code 106 ... Tech Tips Issue 5"
  130 PRINTTAB(2,14);CHR$134;"Code 107 ... Begin Machine Code"
  140 PRINTTAB(2,15);CHR$134;"Code 108 ... Program Documentation"
  150 PRINTTAB(2,16);CHR$134;"Code 109 ... Address DBase Guide"
  160 PRINTTAB(2,17);CHR$134;"Code 110 ... Chopper Instructions"
  170 PRINTTAB(2,18);CHR$134;"Code 111 ... Archimedes Review Pt2"
  180 PRINTTAB(2,19);CHR$131;"Code 999 ... Issue 18 Program Menu"   
  190 PRINTTAB(2,6);CHR$130;"ENTER ARTICLE CODE";CHR$131;:INPUT""code$ 
  200 s$=RIGHT$(code$,3)  
  210 p$=LEFT$(code$,1)  
  220 IF s$="999" THEN OSCLI("DRIVE 0"):CHAIN"!MENU"  
  230 MODE3:VDU14
  240 PRINT"Press the <Shift> Key to Scroll Pages ..."
  250 PRINT:PRINT
  260 VDU23;8202;0;0;0;
  270 OSCLI("DRIVE 2")
  280 OSCLI("DIR $")
  290 IF p$="P" AND s$<>"999" OR p$="p" AND s$<>"999" THEN VDU2  
  300 IF s$="101" THEN OSCLI("TYPE :0./NEWS")
  310 IF s$="102" THEN OSCLI("TYPE :0./HADF")
  320 IF s$="103" THEN OSCLI("TYPE :0./MBOX")
  330 IF s$="104" THEN OSCLI("TYPE :0./REPT")
  340 IF s$="105" THEN OSCLI("TYPE :0./PRET")
  350 IF s$="106" THEN OSCLI("TYPE :2./TECH")
  360 IF s$="107" THEN OSCLI("TYPE :0./MART")
  370 IF s$="108" THEN OSCLI("TYPE :2./DOC1")
  380 IF s$="109" THEN OSCLI("TYPE :2./DBSE")
  390 IF s$="110" THEN OSCLI("TYPE :2./CHPR")
  400 IF s$="111" THEN OSCLI("TYPE :0./UPGR")
  410 VDU3
  420 *FX15,0
  430 VDU3
  440 PRINT"Output Complete - PRESS RETURN"
  450 *FX15
  460 IF s$="999" THEN OSCLI("DRIVE 0"):CHAIN"!MENU"     
  470 A=GET
  480 RUN
  490 :