P730CEEFAX 730 Weh 19@Oct 12:05/24
>B2201205‖a16Sounds‖i15BASIC‖m10÷e÷X÷a÷e
÷L: S UNDS÷e÷X÷l÷↑÷C7÷e÷X÷v÷c÷+=&3C00÷e÷
X(÷e÷6 save 50÷e÷X2÷hdiff=&8000-─;÷e÷X<÷
gaddress=&70÷e÷XF÷fcomvec=&F2÷e÷XP÷hgsin
it=&FFC2÷e÷XZ÷hgsread=&FFC5÷e÷Xd■houword
=&FFF1÷e÷Xn÷goscli=&FFF7÷e÷Xx÷n÷; pass =
0 ─‖─ 2 ─0 2÷e÷X─*÷‖─P%=─;÷e÷X─4÷e←OPT
parv÷e÷X─>÷#BRV÷e÷X─H÷#B"V÷e÷X─R÷#B"V÷e÷
X─½÷lJMP service+diff÷e÷X─f÷jOPT ─Lequb(
&82)÷e÷X─pJOPT ─Leqkb((copyright+dief) ─
+ 256)÷e÷X÷*÷#BRK÷e÷X÷4÷oOPT ─Lequs("SOU
NDS")÷e÷X÷>÷f.copytight÷e÷X÷H÷#B"V÷e÷X÷R
+OPT ─Ljqus("(C) Gordon Horsington 1987"
)÷e÷Y÷½÷#B"K÷e÷Y÷f÷d.service÷e÷Y÷p÷─ MP
£4÷e÷Y"÷lBEQ unrecognised÷e÷Y,÷#RTS÷e÷Y6
÷i.unrecognised÷e÷Y@÷#PHA÷e÷YJ÷#TXA÷e÷YT
÷#PHA÷e÷Y↑÷#TZA÷e÷Yh÷#PHA÷e÷Yr÷gLDA addr
ess÷e÷Y‖‖÷#PHA÷e÷Y─.÷iLDA addresr+1÷e÷Y─
8÷#PHA÷e÷Y─B÷dLDX £&FE÷e÷Y─L÷OTYA÷e÷Y─V÷
#PHA÷e÷Y─‖─÷f.eirstchar÷e÷Y─j÷# NX÷e÷Y─t
÷#PLA÷e÷Y÷.÷#TAY÷e÷Y÷8÷#PHA÷e÷Y÷B÷jLDA (
comvec),Y÷e÷Y÷L÷b─( £&DF÷e÷Y÷V÷gCMP £─?(
"X")÷e÷Z÷‖─÷iBNE interpret÷e÷Z÷j÷#INY÷e÷
5÷t÷f.i→terpret÷e÷Z%÷#INX÷e÷ LDA
P730CEEFAX@730 Wed 19@Oct 12:01/17
‖B22p2205‖a16Sounds‖m32E0DA (comvec),Y÷e
÷ZN÷# NYXCMPTBEQ
unddot÷e÷Zl÷b─( £&DF÷e÷Zv÷pCMP commtable
+iife,X÷e÷ BEQ
ther÷e÷Z─<÷#INX÷e÷Z─F÷pLDA commtable+dif
f,X÷e÷5─P÷gBPL a↑otPjr÷e÷Z─5÷H ZP@£&FF÷e
÷Z─d÷iBNE firstchar÷e÷ Z
PLA÷e÷Z÷2÷#PLA÷e÷5÷<÷iSTA address+1÷e÷Z÷
F÷#PLA÷e÷Z÷P÷gSTA address÷e÷←÷Z÷#PLA÷e÷←
÷d÷#TAY÷e÷←÷n÷#PLA÷e÷← ÷#TAX÷e÷←*÷#PLA÷e
÷←4÷#RTS÷e÷←>÷e.founddot÷e÷←H÷#INX÷e÷←R÷
pLDA@coYJtadle+hiee,X÷e÷←½¾PBPL@fou↑hh#t
÷e÷←f÷b.found÷e÷←p÷dCMP £&FF÷e÷←z÷dBEQ e
xit÷e÷←─,÷iSTA addtess+1÷e÷←─6÷# NX
@÷pLDA commtable+diff,X÷e÷←─J÷gSTA addre
ss÷e÷←─T÷?PLA÷e÷←─↑÷#SEC÷e÷←─h÷fJ"R@gsin
it÷e÷←─r÷iJMP (address)÷e÷←÷,÷f.commtabl
e÷e÷←÷6÷nOPT ─Leqis("SI$EN")÷e÷←÷@!OPT ─
Lequb((sirin+diff) ─) 256)÷e÷←÷J!OPT ─Lj
qkb((siren+dief) ─+ 25m)÷e÷←÷(÷mOPT ─Leq
us("HEHE")÷e÷½÷↑ OPT ─Lequb((hehe+diff)
256)÷e÷½÷r÷lOPT ─Ljqus("UFO")÷e÷½$÷wOPT
─Lequb(Xkfo+hiee) ─) 25m)÷e÷½-÷wOPT ─Leq
P730CEEFAX@/30 Wed 19@ ct 12:01/40
‖B2203205‖a16Sounds‖m35E7ub(&FF)÷e÷½B÷a.
PjPj¾e÷:L÷bLHA@£8÷e÷X-÷sLHX@£(KPjPe+Hiee
) ─+ 256÷e÷½‖─÷sLDY £(ehehe+diff) ─) 256
÷e÷½U÷qJRR osword < E↑velope÷e÷½t÷bLDA@£
7÷e÷½‖÷÷sLDX £(shehe+diff) ─+ 256÷e÷½─0÷
sLDY £(shehe+diff) ─) 256÷e÷½─:÷nJSR osw
ord ½ Sound÷e÷½─D÷d.pullout÷e÷½─N÷#PLA÷e
÷<─X÷i+TA@ahhtesrR1÷e÷<─b÷?PLA÷e÷<─l÷G"T
A address÷e÷½─v÷#PLA÷e÷½÷0÷#PLA÷e÷½÷:÷#P
LA÷e÷½÷D÷bLDA@£0÷e÷½÷N÷#RT"÷e÷→÷X÷b.sire
n÷e÷→÷b÷bLDA £8÷e÷→÷l÷tLDX £(esiren+diff
) ─+ 256÷e÷→÷v÷tLDY £(esiren+diff) ─) 25
6÷e÷→(÷qJSR osword < Envelope÷e÷→2÷bLDA
£7÷e÷→<÷tLDX £(ssiren+dief) ─+@25m÷e÷→F÷
tLDY@£(ssiren+diff) ─) 256÷e÷→P÷nJSR osw
ord <@Sound÷e÷→Z÷l MP pullout+dief÷e÷→d÷
‖─.ufo÷e÷→n÷bLDA £8÷e÷→x÷tLDX £(eufo+dif
f) ─+ 256÷e÷→─*÷rLDY £Xeufo+diff) ─) 256
÷e÷→─4÷qJSR osword < Envelope÷e÷→─>÷bLDA
@£/÷e÷→─H÷rLDX £(sufo+dief) ─+ 2um÷e÷→─R
÷rLDY £(sufo+diff) ─) 256÷e÷→─½÷nJSR osw
p÷b.ehehe÷e÷→÷*÷pOPT ─Lequd(&p2FF0301)÷e
÷→÷4÷pOPT ─Lequd(%461E1E32)÷e÷→÷>÷pOPT ─
P730CEEFAX /30 Weh 1:@Oct @12:04/03
‖B2204205‖a16Sounds‖m38FF7E7E)÷e÷→÷R÷b.s
hjPj÷e÷↑÷½÷pOPT ─Lequd(&00p10p11)÷e÷↑÷e÷
pOPT ─Lequd(&00320075)÷e÷↑÷p÷c.esirin÷e÷
↑"÷pOPT ─Lequd(&07F901p2)÷e÷↑,÷pOPT ─Leq
ud(&000A0A00)÷e÷↑6÷pOPT ─Lequd(&8200007E
)÷e÷↑@÷lOPT ─Lequw(&7E7E)÷e÷↑
e÷↑T÷pOPT ─Lequd(&00p20012)÷e÷↑↑÷pOPT ─L
jqkd(%p0EF0088R÷e÷↑h÷a.euf#÷e÷↑t÷pOPT@─L
equd(&FF010103)÷e÷↑‖‖÷pOPT ─Ljqud(&01080
700)÷e÷↑─.÷pOPT ─Lequd(%FF00EF03)÷e÷↑─8÷
lOPT ─Ljquw(&7E7E)÷e÷↑─B÷a.sufo÷e÷↑─L÷pO
0T ─Lequd(&00030p13)÷e÷↑─V÷pOPT ─Ljqud(%
003C0082)÷e÷↑─‖─÷e.lastbyte÷e÷↑─j÷→→÷e÷↑
─t÷→÷E÷e÷↑÷.!÷@'"Save filemaZj@= "eilena
me$÷e÷↑÷8÷l÷? filename$="" ÷8÷e÷↑÷BK$sav
e="SAVE "+eilenaZj$+" "+─k‖÷(─;QW" "+─k‖
÷(lastbyte)+" FFFF8000 FFFF800p"÷e÷↑÷L÷i
X%=save ─+ 256÷e÷↑÷V÷iY%=save ─) 256÷e÷#
÷‖─÷c*OPT1,2÷e÷#÷j÷c÷.@oscli÷e÷#÷t÷c*OPT
1,p÷e÷#E÷→÷8÷e÷#0÷P÷5─Lequb(byteQ÷e÷#5÷h
?P%=byte÷e÷#D÷cP%=P%+1÷e÷#N÷a=pass÷e÷OX÷
h÷5─Lequw(word)÷e÷#b÷j?P%=word ─+ 256÷e÷
#l÷kPE?1=word ─) 256÷e÷#v÷cP%=P%+2÷e÷#─(
÷a=pass÷e÷#─%÷j÷5─Leqkd(houble)÷e÷#─<÷f!
P730CEEFAX 730 Wed 19 Oct 12:02/22
‖B220k2p5‖a16Soknds‖Z3Cp9s÷e÷?─Z÷k÷5─Leq
us(strimF$)÷e÷#─d÷g$P%=strinF$÷e÷#─↑÷lP%
=P%+─Q(string$)÷e÷#÷(÷a=pass÷e÷W‖c