10 MODE7:PROCA:*LOAD !screen
   20 REM*FX200,3
   30 VDU23;8202;0;0;0;:PRINTTAB(8,10);CHR$134;"The Bungle Brothers":PRINTTAB(8,11);CHR$134;"Stock Market":PRINTTAB(8,12);CHR$134;"Cells & Serpents":PRINTTAB(8,13);CHR$134;"Nightmare Park":PRINTTAB(8,14);CHR$134;"Battleships":PRINTTAB(8,15);CHR$134;"Logo Subset":PRINTTAB(8,16);CHR$134;"Curves":PRINTTAB(8,17);CHR$134;"Score Keeper"
   40 PRINTTAB(8,20);CHR$134;"Definer"
   50 PRINTTAB(8,18);CHR$134;"Modes +":PRINTTAB(8,19);CHR$134;"Rune Converter":_%=FNA(6,10,25,20):IF_%=1CHAIN"BUNGLE"   
   60 IF_%=2CHAIN"STOCK"
   70 IF_%=3CHAIN"SERPENT"
   80 IF_%=4CHAIN"PARKY"
   90 IF_%=5CHAIN"BATTLE"
  100 IF_%=6CHAIN"LOGOSET"
  110 IF_%=7CHAIN"CURVES"
  120 IF_%=8CHAIN"SCORER"
  130 IF_%=9CLS:PRINTCHR$134;"Installing Modes 8-10"':CHAIN"MODES+"
  140 IF_%=10CHAIN"RUNE"
  150 IF_%=11CHAIN"DEFINER"
  160 RUN
  170 DEFFNA(`%,a%,b%,c%):d%=(a%-1):*FX4,2
  180 REPEATPRINTTAB(`%,a%);CHR$129;CHR$157;CHR$134;TAB((`%+b%),a%);CHR$156:*FX15
  190 A$=GET$:e%=VALA$:IFA$=CHR$13GOTO240
  200 IFe%=0THENe%=-1
  210 IF(a%+e%)>c%PRINTTAB(`%,a%);SPC2:a%=(d%+1):GOTO240
  220 IF(a%+e%)<(d%+1)PRINTTAB(`%,a%);SPC2:a%=c%:GOTO240
  230 PRINTTAB(`%,a%);SPC2:a%=a%+e%
  240 UNTILA$=CHR$13:*FX4,0
  250 =(a%-d%)
  260 DEFPROCA:*KEY14 1|M
  270 *KEY15 0|M
  280 *KEY12 0|M
  290 *KEY13 1|M
  300 ENDPROC