10 VDU3
   20 *FX15,10
   30 VDU3
   40  ON ERROR RUN
   50 *FX255 15
   60 MODE7:*LOAD :0.!screen 
   70 PRINTTAB(2,8);CHR$131;"Code 100 ... Introduction" 
   80 PRINTTAB(2,9);CHR$131;"Code 101 ... Issue News"
   90 PRINTTAB(2,10);CHR$131;"Code 102 ... Adverts/Help Wanted"
  100 PRINTTAB(2,11);CHR$131;"Code 103 ... Hints/Tips"
  110 PRINTTAB(2,12);CHR$131;"Code 104 ... LIFE & Devils Island"
  120 PRINTTAB(2,13);CHR$131;"Code 105 ... Charges Article 8CT"
  130 PRINTTAB(2,14);CHR$131;"Code 106 ... BASDUMP Article 709"
  140 PRINTTAB(2,15);CHR$131;"Code 107 ... Arc XArc Article"
  150 PRINTTAB(2,16);CHR$131;"Code 108 ... Programmers Return 5"
  160 PRINTTAB(2,17);CHR$131;"Code 109 ... Program Construction"
  170 PRINTTAB(2,18);CHR$131;"Code 110 ... On this Months Disc"
  180 PRINTTAB(2,19);CHR$131;"Code 111 ... Repton Reportage"
  190 PRINTTAB(2,20);CHR$131;"Code 112 ... Members Response Pool"  
  200 PRINTTAB(2,21);CHR$131;"Code 113 ... UIM & SIM City Reviews"  
  210 PRINTTAB(2,22);CHR$131;"Code 999 ... RETURN TO MAIN MENU"
  220 PRINTTAB(14,1);SPC(23);TAB(14,2);SPC(23) 
  230 PRINTTAB(13,2);CHR$133;"Enter Code";CHR$131;:INPUT""code$   
  240 s$=RIGHT$(code$,3)
  250 p$=LEFT$(code$,1)
  260 MODE3:VDU14
  270 PRINT"Press the <Shift> Key to Scroll Pages ..."
  280 PRINT:PRINT
  290 VDU23;8202;0;0;0;
  300 OSCLI("DRIVE 2")
  310 OSCLI("DIR $")
  320 IF p$="P" AND s$<>"999" OR p$="p" AND s$<>"999" THEN VDU2  
  330 IF s$="100" THEN OSCLI("TYPE INTRO")
  340 IF s$="101" THEN OSCLI("TYPE NEWS")
  350 IF s$="102" THEN OSCLI("TYPE ADVERT")
  360 IF s$="103" THEN OSCLI("TYPE HINTS")
  370 IF s$="104" THEN OSCLI("TYPE DevLife")
  380 IF s$="105" THEN OSCLI("TYPE CHARGES")
  390 IF s$="106" THEN OSCLI("TYPE BASDUMP")
  400 IF s$="107" THEN OSCLI("TYPE ARCXARC")
  410 IF s$="108" THEN OSCLI("TYPE PRORET5")
  420 IF s$="109" THEN OSCLI("TYPE PROGTUT")
  430 IF s$="110" THEN OSCLI("TYPE PROGS")
  440 IF s$="111" THEN OSCLI("TYPE REPTON")
  450 IF s$="112" THEN OSCLI("TYPE RESPONS")
  460 IF s$="113" THEN OSCLI("TYPE UIMSIM")  
  470 IF p$="P" OR p$="p" THEN PRINTSPC(1000)
  480 VDU3
  490 *FX15,0
  500 VDU3
  510 PRINT"Output Complete - PRESS RETURN"
  520 *FX15
  530 IF s$="999" THEN OSCLI("DRIVE 0"):CHAIN"!MENU"     
  540 A=GET
  550 RUN