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