10 VDU3
   20 *FX15,10
   30 VDU3
   40  ON ERROR RUN
   50 *FX255 15
   60 MODE7:*LOAD :0.!screen 
   70 PROCloadID
   80 PRINTTAB(2,7);CHR$134;"Code 101 ... Issue News"
   90 PRINTTAB(2,8);CHR$134;"Code 102 ... Universal Mailbox"
  100 PRINTTAB(2,9);CHR$134;"Code 103 ... Hints/Tips"
  110 PRINTTAB(2,10);CHR$134;"Code 104 ... Sim City Review"      
  120 PRINTTAB(2,11);CHR$134;"Code 105 ... Charging Article"   
  130 PRINTTAB(2,12);CHR$134;"Code 106 ... IMPORTANT APPEAL" 
  140 PRINTTAB(2,13);CHR$134;"Code 107 ... Coming Next Month..."
  150 PRINTTAB(2,14);CHR$134;"Code 108 ... Programmers Return 7"
  160 PRINTTAB(2,15);CHR$134;"Code 109 ... Problems/Help Wanted"
  170 PRINTTAB(2,16);CHR$134;"Code 110 ... On this Months Disc"
  180 PRINTTAB(2,17);CHR$134;"Code 111 ... Repton Reportage"
  190 PRINTTAB(2,18);CHR$134;"Code 112 ... Software Documentation"
  200 PRINTTAB(2,19);CHR$134;"Code 113 ... SYSTEMS (New Users)"
  210 PRINTTAB(2,20);CHR$134;"Code 114 ... SYSTEMS (Existing Usr)"
  220 PRINTTAB(2,21);CHR$134;"Code 999 ... RETURN TO MAIN MENU"
  230 PRINTTAB(2,6);CHR$133;"ENTER ARTICLE CODE";CHR$134;: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$="101" THEN OSCLI("TYPE NEWS")
  340 IF s$="102" THEN OSCLI("TYPE MAILBOX")
  350 IF s$="103" THEN OSCLI("TYPE HINTS")
  360 IF s$="104" THEN OSCLI("TYPE REVIEWS")
  370 IF s$="105" THEN OSCLI("TYPE CHARGNG")
  380 IF s$="106" THEN OSCLI("TYPE APPEAL")
  390 IF s$="107" THEN OSCLI("TYPE NEXTMON")
  400 IF s$="108" THEN OSCLI("TYPE PROGRET")
  410 IF s$="109" THEN OSCLI("TYPE PROBLEM")
  420 IF s$="110" THEN OSCLI("TYPE PROGRAM")
  430 IF s$="111" THEN OSCLI("TYPE REPTON")
  440 IF s$="112" THEN OSCLI("TYPE DOCUMEN")
  450 IF s$="113" THEN OSCLI("TYPE STMtxt1")
  460 IF s$="114" THEN OSCLI("TYPE STMtxt2") 
  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
  560 :
  570 DEF PROCloadID 
  580 PRINTTAB(6,0);"";:TIME=0:REPEATUNTILTIME>50
  590 X=OPENIN":0.$.8bsUser":IF X=0 THEN CLOSE#0:CLS:PRINT"User ID Invalid":PRINT:END
  600 PTR#X=105:INPUT#X,Name$,User$,Issue$:CLOSE#X  
  610 PRINTTAB(5,0);CHR$135;User$;TAB(35,1);CHR$135;Issue$  
  620 VDU23;8202;0;0;0;   
  630 ENDPROC
  640 :