5 *DR. 0
   10 MODE7:PROCA:*LOAD !screen
   20 VDU23;8202;0;0;0;:PRINTTAB(8,13);CHR$130;"ISSUE 8 DISC MAGAZINE"
   30 PRINTTAB(8,14);CHR$130;"ISSUE 8 PROGRAM MENU"
   40 PRINTTAB(8,15);CHR$130;"ISSUE 7 DIGITISED PICTURES"   
   50 select%=FNA(5,13,33,15) 
   60 IF select%=1 THEN PROCmagazine
   70 IF select%=2 THEN PROCmenu
   80 IF select%=3 THEN PROCpictures
   90 RUN
  100 :
  110 :
  120 DEF PROCmenu
  130 FOR X=9 TO 15    
  140 PRINTTAB(0,X);SPC(39)
  150 NEXT X
  160 PRINTTAB(8,9);CHR$130;"New Battleships Program"
  170 PRINTTAB(8,10);CHR$130;"New Cells and Serpents"
  180 PRINTTAB(8,11);CHR$130;"Elite Cheat Editor"
  190 PRINTTAB(8,12);CHR$130;"Basic Envelope Printer"
  200 PRINTTAB(8,13);CHR$130;"Fighter Command Game"
  210 PRINTTAB(8,14);CHR$130;"Graphical Globe Screen"   
  220 PRINTTAB(8,15);CHR$130;"Stopping Distances Test" 
  230 PRINTTAB(8,16);CHR$130;"Keystrip Designer/Printer"
  240 PRINTTAB(8,17);CHR$130;"Metric Converter Utility"
  250 PRINTTAB(8,18);CHR$130;"Musical Keyboard Program"
  260 PRINTTAB(8,19);CHR$130;"Character Re-definition"
  270 PRINTTAB(8,20);CHR$130;"Typewriter Emulation"
  280 PRINTTAB(8,21);CHR$130;"Virus Simulator"
  290 choice%=FNA(5,9,33,21)
  300 CLS
  310 *FX 4 0
  320 IF choice%=1 THEN CHAIN"BATTLE"
  330 IF choice%=2 THEN CHAIN"NEWCELS"
  340 IF choice%=3 THEN CHAIN"CHEAT"
  350 IF choice%=4 THEN CHAIN"ENVELOP"
  360 IF choice%=5 THEN PAGE=&1900:CHAIN"FCINTRO"   
  370 IF choice%=6 THEN CHAIN"GLOBE"
  380 IF choice%=7 THEN CHAIN"HIGHWAY"
  390 IF choice%=8 THEN CHAIN"KEYSTRP"
  400 IF choice%=9 THEN CHAIN"METRIC"
  410 IF choice%=10 THEN CHAIN"MUSIC"
  420 IF choice%=11 THEN CHAIN"TEXTDEF"
  430 IF choice%=12 THEN CHAIN"TYINTRO"
  440 IF choice%=13 THEN PROCvirus
  450 RUN
  460 ENDPROC
  470  
  480  
  490  
  500  
  510  
  520 END
  530 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  540 REPEATPRINTTAB(`%,a%);CHR$129;CHR$157;CHR$134;TAB((`%+b%),a%);CHR$156:*FX15
  550 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO600
  560 IFe%=0THENe%=-1
  570 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO600
  580 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO600
  590 PRINTTAB(`%,a%);SPC2:a%=a%+e%
  600 UNTILA$=CHR$13:*FX4,0
  610 =(a%-d%)
  620 DEFPROCA:*KEY14 1|M
  630 *KEY15 0|M
  640 *KEY12 0|M
  650 *KEY13 1|M
  660 ENDPROC
  670 :
  680 DEF PROCvirus
  690 OSCLI("KEY 10 OLD|MRUN|M")
  700 *KEY0 CLS|MLOAD"VIRUS"|M NOW PRESS BREAK!!!
  710 *FX138,0,128
  720 END
  730 :
  740 DEF PROCpictures
  750 FOR X=9 TO 21
  760 PRINTTAB(0,X);SPC(39)
  770 NEXT X
  780 PRINTTAB(5,13);CHR$134;"Running Digitised Pictures ..."
  790 PRINT"SORRY! See Issue 7."'"Press a key":REPEATUNTILGET
  800 ENDPROC
  810  
  820 DEF PROCmagazine
  830 CLS
  840 PAGE=&1900
  850 OSCLI("DRIVE 2")
  860 CHAIN"$.Viewdat"