10*KEY15 0|M 20*KEY14 1|M 30MODE7 40VDU23;8202;0;0;0; 50OSCLI("LOAD !Screen") 60OSCLI("FX 15") 70REPEAT 80A$=GET$ 90UNTIL A$=CHR$13 100PROCclear 110: 120PRINTTAB(5,8);CHR$134;"Read Textfil e History" 130PRINTTAB(5,9);CHR$134;"Rondo alla T urca" 140PRINTTAB(5,10);CHR$134;"Themes from Operas" 150PRINTTAB(5,11);CHR$134;"Symphony Nu mber 40" 160PRINTTAB(5,12);CHR$134;"Night Music (Model B)" 170PRINTTAB(5,13);CHR$134;"Night Music (Master)" 180choice%=FNA(3,8,34,13) 190IF choice%=1 THEN CHAIN"MozRead" 200IF choice%=2 THEN PAGE=&1D00:CHAIN" Rondo" 210IF choice%=3 THEN CHAIN"Opera" 220IF choice%=4 THEN CHAIN"GMinor" 230IF choice%=5 THEN PROCb 240IF choice%=6 THEN PROCm 250: 260DEFFNA(£%,a%,b%,c%):d%=(a%-1):*FX4, 2 270REPEATPRINTTAB(£%,a%);CHR$129;CHR$1 57;CHR$134;TAB((£%+b%),a%);CHR$156:*FX15 280A$=GET$:e%=VALA$:IFA$=CHR$13GOTO330 290IFe%=0THENe%=-1 300IF(a%+e%)>c%PRINTTAB(£%,a%);SPC2:a% =(d%+1):GOTO330 310IF(a%+e%)<(d%+1)PRINTTAB(£%,a%);SPC 2:a%=c%:GOTO330 320PRINTTAB(£%,a%);SPC2:a%=a%+e% 330UNTILA$=CHR$13:*FX4,0 340=(a%-d%) 350DEFPROCA:*KEY14 1|M 360*KEY15 0|M 370*KEY12 0|M 380*KEY13 1|M 390ENDPROC 400: 410DEF PROCclear 420FOR X=5 TO 22 STEP 1 430PRINTTAB(3,X);SPC(35) 440NEXT X 450ENDPROC 460: 470DEF PROCb 480*KEY0 CLS|MCLEAR|MNEW|MLOAD"M.TLNM- b"|MRUN|M 490*FX138,0,128 500END 510: 520DEF PROCm 530*KEY0 CLS|MCLEAR|MNEW|MLOAD"M.TLNM- m"|MRUN|M 540*FX138,0,128 550END 560: