10 MODE7:PROCscreen:b$="Back to main menu"
   20 ONERROROSCLI"DR.0":OSCLI"EXEC !BOOT":END
   30 VDU6:PROCa
   40 PRINT TAB(6,8);CHR$135;"       Games & Demos"
   50 PRINT TAB(6,9);CHR$135;"          Music"
   60 PRINT TAB(6,10);CHR$135;"    Teletext Examples"
   70 PRINT TAB(6,11);CHR$135;"       Other Items"
   80 PRINT TAB(6,12);CHR$135;"   De-archive Software"
   90 PRINT TAB(6,13);CHR$135;"**** BACK TO MAGAZINE ****"
  100 d%=FNA(4,8,31,13)
  110 IF d%=1 THEN PROCgames
  120 IF d%=2 THEN PROCmusic
  130 IF d%=3 THEN PROCteletext
  140 IF d%=4 THEN PROCother
  150 IF d%=5 THEN CLS:PRINT"Refer to issue 22 documentation for     instructions on how to decompress these archives."''"DRIVE 2":OSCLI"EX A":PRINT''"DRIVE 0":OSCLI"EX :0.A":END
  160 IF d%=6 THEN error
  170 RUN
  180 DEFPROCgames
  190 PROCclear
  200 PRINT TAB(7,8);CHR$135;"Push the Bale - BBC B"
  210 PRINT TAB(7,9);CHR$135;"Push the Bale - Master"
  220 PRINT TAB(7,10);CHR$135;"Trading Simulation"
  230 PRINT TAB(7,11);CHR$135;"Big Screen Alien Demo"
  240 PRINT TAB(7,12);CHR$135;"Promote Demo"
  250 PRINT TAB(7,13);CHR$135;"Dish-Drawing Demo"
  260 PRINT TAB(7,14);CHR$135;b$
  270 c%=FNA(3,8,34,14)
  280 IF c%=1 THEN CHAIN"PUSH"
  290 IF c%=2 THEN CHAIN"PUSH2"
  300 IF c%=3 THEN CHAIN"TRADE"
  310 IF c%=4 THEN CHAIN"ALIEN"
  320 IF c%=5 THEN */PROMOTE
  330 IF c%=6 THEN CHAIN"DshDraw"
  340 ENDPROC
  350 DEFPROCmusic
  360 PROCclear
  370 PRINT TAB(9,8);CHR$135;"Debussy : Little Negro"
  380 PRINT TAB(9,9);CHR$135;"Airwolf"
  390 PRINT TAB(9,10);CHR$135;"Land of Hope & Glory"
  400 PRINT TAB(9,11);CHR$135;"Stairway to Heaven"
  410 PRINT TAB(9,12);CHR$135;b$
  420 c%=FNA(3,8,34,12)
  430 IF c%=1 THEN CHAIN"LitNeg"
  440 IF c%=2 THEN CHAIN"AirWolf"
  450 IF c%=3 THEN CHAIN"Land"
  460 IF c%=4 THEN CHAIN"Heaven"
  470 ENDPROC
  480 DEFPROCteletext
  490 PROCclear
  500 PRINT TAB(5,8);CHR$135;"Title-Top Style Screen"
  510 PRINT TAB(5,9);CHR$135;"Boxes Style Screen"
  520 PRINT TAB(5,10);CHR$135;"Colour Clash Demonstration"
  530 PRINT TAB(5,11);CHR$135;"Problem Demonstration"
  540 PRINT TAB(5,12);CHR$135;b$
  550 c%=FNA(3,8,34,12)
  560 IF c%=1 THEN CHAIN"TitlTop"
  570 IF c%=2 THEN CHAIN"Boxes"
  580 IF c%=3 THEN CHAIN"ColClsh"
  590 IF c%=4 THEN CHAIN"TelProb"
  600 ENDPROC
  610 DEFPROCother
  620 PROCclear
  630 PRINT TAB(6,8);CHR$135;"Area Calculator"
  640 PRINT TAB(6,9);CHR$135;"Units Conversion"
  650 PRINT TAB(6,10);CHR$135;"DFS => ADFS Utility"
  660 PRINT TAB(6,11);CHR$135;"*CLONE utility sourcecode"
  670 PRINT TAB(6,12);CHR$135;"*VIEWCON utility"
  680 PRINT TAB(6,13);CHR$135;"Viewcon utility sourcecode"
  690 PRINT TAB(6,14);CHR$135;b$
  700 c%=FNA(3,8,34,14)
  710 IF c%=1 THEN CHAIN"Areas"
  720 IF c%=2 THEN CHAIN"Cnvrter"
  730 IF c%=3 THEN CHAIN"DTOA"
  740 IF c%=4 THEN CHAIN"ClonSrc"
  750 IF c%=5 THEN *VIEWCON
  760 IF c%=6 THEN CHAIN"ConvSrc"
  770 ENDPROC
  780 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  790 REPEATPRINT TAB(`%,a%);CHR$132;CHR$157;CHR$135;TAB((`%+b%),a%);CHR$156:*FX15
  800 A$=GET$:e%=VALA$:IF A$=CHR$13GOTO850
  810 IF e%=0 THEN e%=-1
  820 IF (a%+e%)>c%PRINT TAB(`%,a%);SPC2:a%=(d%+1):GOTO850
  830 IF (a%+e%)<(d%+1)PRINT TAB(`%,a%);SPC2:a%=c%:GOTO850
  840 PRINT TAB(`%,a%);SPC2:a%=a%+e%
  850 UNTILA$=CHR$13:*FX4,0
  860 =(a%-d%)
  870 DEFPROCa:*KEY14 1|M
  880 *KEY15 0|M
  890 *KEY12 0|M
  900 *KEY13 1|M
  910 ENDPROC
  920 DEFPROCclear
  930 FORI%=5TO20:PRINT TAB(3,I%);SPC(35):NEXT
  940 ENDPROC
  950 DEFPROCscreen:VDU23;8202;0;0;0;
  960 PRINT"•ÿ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¥ÿ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ÿ";
  970 PRINT"•ÿ¯¯¯¯¯¯¯¯¯¯¯ª¯¯¯¯¯¯¯¯ƒISSUE NUMBERƒ22•ÿ";
  980 PRINT"•ÿ—êë  µ ¤µ  ê£àðàðê ° °ð°ðàð         •ÿ";
  990 PRINT"•ÿ—ê뢡·µµ·  ¢ëêêê¤ê¡µ´µ½µµê®ƒOCT 1992•ÿ";
 1000 PRINT"•�—¢£  £¡¡£¡ ¢£¢£¢ ¢¡££¡¡¡¡¢£         • ";
 1010 PRINT"•ÿ                               Œ    •ÿ";
 1020 FOR I%=1 TO 16:PRINT"•ÿ                                    •ÿ";:NEXT
 1030 PRINT"•ÿüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüÿ";
 1040 ENDPROC