10 REMOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLIOSCLI 20 DEFFNS="Mix_ed" 30 A%=0:X%=255:T%=USR&FFF4:T%=(T%DIV&100)AND7 40 PROCa:OSCLI"K.0DEL.20,40|MDEL.220,270|MRUN|M":OSCLI"FX138 0 128":END 50 IFT%>2f1$="FX108,1":f2$="FX108,0" ELSEf1$="":f2$="" 60 MODE135:HIMEM=PAGE+&B00:s%=HIMEM/&100:f%=s%+1:r%=16:h$="":PROCs:REPEAT:A$=GET$ 70 IFA$="L"CLS:OSCLI".":PRINT"Load at &";~(s%*256):INPUTm$:IFm$=""PROCs ELSE IFA$="L"OSCLI"LO."+m$+" "+STR$~(s%*256):CLS:OSCLI"I."+m$:PROCl 80 IFA$="S"CLS:OSCLI".":INPUT"Save"'m$:IFm$=""PROCs ELSE IFA$="S"OSCLI"SA."+m$+" "+STR$~(s%*256)+" "+STR$~(f%*256)+" "+STR$~HIMEM+" "+STR$~HIMEM:PROCs 90 IFA$="B"IFFNh<&80s%=D%:PRINTTAB(33,9);~(s%*256);TAB(19,7);~(s%*256):IFs%>=f% f%=s%+1:PRINTTAB(33,10);~(f%*256) 100 IFA$="E"IFFNh>25IFD%>s%f%=D%:PRINTTAB(33,10);~(f%*256) 110 IFA$="R"IFFNh<256 r%=D%:PRINTTAB(33,11);~r%;" " 120 IFA$="Z"IFs%>25:s%=s%-1:PRINTTAB(33,9);~(s%*256);TAB(19,7);~(s%*256) 130 IFA$="X"IFs%<&7F:s%=s%+1:PRINTTAB(33,9);~(s%*256);TAB(19,7);~(s%*256):IFf%s%+1f%=f%-1:PRINTTAB(33,10);~(f%*256) 150 IFA$="."IFf%<&80f%=f%+1:PRINTTAB(33,10);~(f%*256) 160 IFA$="P"?&75=s%:?&76=f%:?&74=r%:CALL&900 170 IFA$="C"PROCc 180 IFA$="H"IF?(PAGE+5)<>&FFl%=PAGE+5:CLS:PRINT"Loads":REPEAT:PRINT"From &";~?l%;"00 to &";~?(l%+1);"00":l%=l%+2:UNTIL?l%=&FF:PRINT"Press a key":REPEATUNTILGET:PROCs 190 IFA$="W"FORl%=PAGE+5TOPAGE+&68:?l%=&FF:NEXT:VDU7:h$="wiped":PRINTTAB(13,5);h$ 200 IFA$="*":CLS:INPUT"*"A$:OSCLIA$:PRINT"Press a key":REPEATUNTILGET:PROCs 210 UNTILFALSE:END 220 DEFPROCa:FORl%=0TO2STEP2:P%=&900:[:OPTl% 230 SEI:LDA#&FF:STA&FE43:LDA#&84:JSRo:LDA#&0:JSRo:LDA#&A4:JSRo:LDA#&0:JSRo:LDA#&C4:JSRo:LDA#&0:JSRo:LDA#&0:STA&70:LDA&75:STA&71 240 .m:LDY#&0:LDA(&70),Y:AND#&F:JSRn:LDY#&4:.m1:DEY:BNEm1:LDA(&70),Y:AND#&F0:LSRA:LSRA:LSRA:LSRA:JSRn:INC&70:BNEm:INC&71:LDA&71:CMP&76:BNEm 250 LDA#&F:JSRn:CLI:RTS:.o:STA&FE4F:LDY#&0:STY&FE40:NOP:NOP:NOP:NOP:NOP:NOP:LDY #&8:STY&FE40:RTS:.n:TAY:LDA&985,Y:ORA#&90:JSRo:ORA#&20:JSRo:EOR#&60 260 JSRo:LDY&74:.m2:DEY:BNEm2:RTS 270 ]:!P%=&01010000:!(P%+4)=&03020201:!(P%+8)=&07060504:!(P%+12)=&0F0C0908:!(P%+16)=&00000020:NEXT:ENDPROC 280 DEFFNh:PRINTTAB(20,20)"&";:A$=GET$:PRINTA$;:A$=A$+GET$:D%=0:FORHL%=1TO2:E%=ASC(MID$(A$,HL%)):IFE%>57 E%=E%-55 ELSE E%=E%-48 290 D%=D%*16+E%:NEXT:PRINTTAB(20,20)SPC2:=D% 300 DEFPROCc:CLS:st%=s%*256:FORl%=st%TOst%+&FF:IF ?l%<32 OR ?l%=127:VDU32,7:NEXT ELSE VDU?l%:NEXT 310 PRINT'"Altering from &";~st%:PRINT"Character to fill this section?":a%=GET:IFa%=13PROCs:ENDPROC ELSE FORl%=st%TOst%+&FF:?l%=a%:NEXT:PROCs:ENDPROC 320 DEFPROCl:m$="":OSCLIf1$:FORl%=&7C1ETO&7C36:m$=m$+CHR$?(l%):NEXT:IFRIGHT$(m$,1)<>" "m$=RIGHT$(m$,11) 330 OSCLIf2$:f%=s%+EVAL("&"+LEFT$(m$,2)):h$="":PROCs:l%=PAGE+4:REPEAT:l%=l%+1:UNTIL?l%=&FF ORl%>PAGE+&66:?l%=s%:?(l%+1)=f%:ENDPROC 340 DEFPROCs:CLS:VDU23;8202;0;0;0; 350 PRINT""'" ";TAB(37);""'" ରඃEdit sound sample" 360 PRINT"鰡󨱵By C.J.Richardson"'"";TAB(37);""'"(H)istory ";h$;TAB(37);""'"(W)ipe history";TAB(37);"" 370 PRINT"(L)oad file at &";~(s%*256);TAB(37);""'"(S)ave file from (B) to (E) "'"(B)egin at...................&";~(s%*256);TAB(37);"" 380 PRINT"(E)nd at.....................&";~(f%*256);TAB(37);""'"(R)ate change from...........&";~r%;TAB(37);""'"(Z) Decrease begin address by.&100"'"(X) Increase begin address by.&100" 390 PRINT"(<) Decrease end address by...&100"'"(>) Increase end address by...&100"'"(P)lay mix.";TAB(37);""'"(C)hange data from (B) TO (B)+&FF "'"(*) Oscli";TAB(37)"" 400 PRINT"";TAB(37)""'"Choose an option "'"";TAB(37)""'"";TAB(37)""'",":ENDPROC