10MODE7:PROCA 20VDU23;8202;0;0;0; 30A$=CHR$141+CHR$157+" M E M O R Y " +CHR$156 40PRINTTAB(8,2)A$'TAB(8,3)A$ 50PRINTTAB(8,12);CHR$130;"PLAY MEMORY " 60PRINTTAB(8,13);CHR$130;"EDIT MEMORY " 70PRINTTAB(8,14);CHR$130;"PLAY MINI M EMORY" 80PRINTTAB(8,15);CHR$130;"EDIT MINI M EMORY" 90PRINTTAB(8,16);CHR$130;"PLAY MIDI M EMORY" 100PRINTTAB(8,17);CHR$130;"EDIT MIDI M EMORY" 110`%=FNA(6,12,25,17) 120IF `%=1 THEN CLS:CHAIN"MEMORY" 130IF `%=2 THEN CLS:CHAIN"MEMEDIT" 140IF `%=3 THEN CLS:CHAIN"MINIMEM" 150IF `%=4 THEN CLS:CHAIN"MINEDIT" 160IF `%=5 THEN CLS:CHAIN"MIDIMEM" 170IF `%=6 THEN CLS:CHAIN"MIDEDIT" 180DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4, 2 190REPEATPRINTTAB(£%,a%);CHR$132;CHR$1 57;CHR$130;TAB((£%+b%),a%);CHR$156:*FX15 200A$=GET$:e%=VALA$:IFA$=CHR$13GOTO250 210IFe%=0THENe%=-1 220IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a% =(d%+1):GOTO250 230IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC 2:a%=c%:GOTO250 240PRINTTAB(£%,a%);SPC2:a%=a%+e% 250UNTILA$=CHR$13:*FX4,0 260=(a%-d%) 270DEFPROCA:*KEY14 1|M 280*KEY15 0|M 290*KEY12 0|M 300*KEY13 1|M 310ENDPROC 320