10 PROCclear:b$="Back to main menu"
   20 ONERROROSCLI"DR.0":OSCLI"EXEC !BOOT":END
   30 VDU6:PROCa
   40 PRINT TAB(6,8);CHR$135;"          Games"
   50 PRINT TAB(6,9);CHR$135;"          Music"
   60 PRINT TAB(6,10);CHR$135;"    Letterhead Printer"
   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 PROClethd
  140 IF d%=4 THEN PROCother
  150 IF d%=5 THEN CHAIN"ARCER18"
  160 IF d%=6 THEN error
  170 RUN
  180 ***************
  190 DEFPROCgames
  200 PROCclear
  210 PRINT TAB(7,8);CHR$135;"Satellite Havoc II"
  220 PRINT TAB(7,9);CHR$135;"Loopy Loop II"
  230 PRINT TAB(7,10);CHR$135;"Jackpot"
  240 PRINT TAB(7,11);CHR$135;"Guess the Letter"
  250 PRINT TAB(7,12);CHR$135;b$
  260 c%=FNA(3,8,34,12)
  270 IF c%=1 THEN CHAIN"FIRST"
  280 IF c%=2 THEN CHAIN"CRAZE3"
  290 IF c%=3 THEN CHAIN"JACKPOT"
  300 IF c%=4 THEN CHAIN"LtGuess"
  310 ENDPROC
  320 ***************
  330 DEFPROCmusic
  340 PROCclear
  350 PRINT TAB(9,8);CHR$135;"Bach : Little Prelude"
  360 PRINT TAB(9,9);CHR$135;"Ghostbusters"
  370 PRINT TAB(9,10);CHR$135;b$
  380 c%=FNA(3,8,34,10)
  390 IF c%=1 THEN CHAIN"LitPrel"
  400 IF c%=2 THEN CHAIN"Ghost-B"
  410 ENDPROC
  420 ****************
  430 DEFPROClethd
  440 PROCclear
  450 PRINT TAB(5,8);CHR$135;"PRINT   : Print prepared L-head"
  460 PRINT TAB(5,9);CHR$135;"SFGEN1  : Create L-head screen"
  470 PRINT TAB(5,10);CHR$135;"SCRGEN  : Convert screen"
  480 PRINT TAB(5,11);CHR$135;"PTODISC : Create print file"
  490 PRINT TAB(5,12);CHR$135;"SFGEN2  : Other S.F. screen"
  500 PRINT TAB(5,13);CHR$135;b$
  510 c%=FNA(3,8,34,13)
  520 IF c%=1 THEN CHAIN"PRINT"
  530 IF c%=2 THEN CHAIN"SFGEN1"
  540 IF c%=3 THEN CHAIN"SCRGEN"
  550 IF c%=4 THEN CHAIN"PTODISC"
  560 IF c%=5 THEN CHAIN"SFGEN2"
  570 ENDPROC
  580 ****************
  590 DEFPROCother
  600 PROCclear
  610 PRINT TAB(6,8);CHR$135;"Presentation Example #1"
  620 PRINT TAB(6,9);CHR$135;"Presentation Example #2"
  630 PRINT TAB(6,10);CHR$135;"DIRlock Utility"
  640 PRINT TAB(6,11);CHR$135;"Number Converter"
  650 PRINT TAB(6,12);CHR$135;b$
  660 c%=FNA(3,8,34,12)
  670 IF c%=1 THEN CHAIN"Example"
  680 IF c%=2 THEN CHAIN"Exampl2"
  690 IF c%=3 THEN OSCLI"/DIRlock":CLS:PRINT"Installed.":END
  700 IF c%=4 THEN CHAIN"NumConv"
  710 ENDPROC
  720 ****************
  730 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  740 REPEATPRINT TAB(`%,a%);CHR$132;CHR$157;CHR$135;TAB((`%+b%),a%);CHR$156:*FX15
  750 A$=GET$:e%=VALA$:IF A$=CHR$13GOTO800
  760 IF e%=0 THEN e%=-1
  770 IF (a%+e%)>c%PRINT TAB(`%,a%);SPC2:a%=(d%+1):GOTO800
  780 IF (a%+e%)<(d%+1)PRINT TAB(`%,a%);SPC2:a%=c%:GOTO800
  790 PRINT TAB(`%,a%);SPC2:a%=a%+e%
  800 UNTILA$=CHR$13:*FX4,0
  810 =(a%-d%)
  820 DEFPROCa:*KEY14 1|M
  830 *KEY15 0|M
  840 *KEY12 0|M
  850 *KEY13 1|M
  860 ENDPROC
  870 ****************
  880 DEFPROCclear
  890 FORI%=5TO22:PRINT TAB(3,I%);SPC(35):NEXT
  900 ENDPROC