' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֝uW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠ   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx- ( W  Ϡ@跻~!Wo*9~~~~ɬƬ~UVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHn 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)nooõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõL&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ u`浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `TARGET WINDOW:":"STARTING PULSE":9050:XX(X1)1(X1):6890:PFX:"ENDING PULSE":9050:XX(XNM)NM(XNM):6890:PLX^hPFPLī6590^mX00:X20:XI0:I20:I00:C10^rIPFPL:X(ADI):X0ī6790^w68803_|X0X0X:X2X2XX:XIXIXI:I0Cı-Pi(4);"BLOAD SOUNDSET";X:SNX:9115:3Pn:9Ps:?PxP}:8:"PRESS RETURN TO CLEAR"::"HIT ANY OTHER KEY NOT TO":9000:X141ıP~FS0:NS0::10:"CLEARED.":9030:P:P:P+Q9145:"ENTER NUMBER OF SOUND TO BE DELETED. ENTER 0 TO ABORT DELETION.":9050:X1XNSıQX1AS(X1)AS(X):IAS(X1)AS(NS1):IX1,(I):I:9115::10:"DELETED.":9030:Q:Q:QpQuADDRESS37120QzADDRESS1,0Q9060:N(ADDRESS):NMN:L34(N1):6590Q:Q:QR9000RX136İ6130:6035/RX149İ6270:6035FRX206İ6310:6035]RX204İ6355:6035tRX200İ6400:6035RX210İ6440:6035RX155ī6110RX203İ6165:6035RX197İ6195:6035RX132İ6225:6035RX137İ6250:6035SX195İ6710:6035&SX129İ6735:60350S60306SMSFR1ė::9080:SFR0:::10:"PRESS RETURN TO SAVE AS NEW SOUND."::"HIT ANY OTHER KEY TO REPLACE OLD SOUND.":9000:X141ī6115SI0N:AS(NS1)I,(ADI):I:AS(NS1)I,0:9115:T::9080:T:T: T5T(ADRESSN)0ıpT0:X(ADN)10:X,LX,L1:ADN,(ADN)1:6415:6510T(49152)128ī6135T T:TT::1170T"KEY FUNCTION":U"E ENTER PULSE":"--> LENGTHEN PULSE":"<-- SHRINK PULSE":"N NEXT (NEW) PULSE":"L LAST (PREV.) PULSE":"C TOGGLE AUTOCURSOR":"(ANY) HALT MOTION":"CTRL-I INSERT PULSE":"CTRL-D DELETE PULSE":"V$"H HEAR PATTERN ONCE":"R REPEAT THE PATTERN AS A TONE"::"ESC CUT OFF AS FINAL; GO TO MENU"@V)"CTRL-A ANALYZE/ADJUST"RV.9030:6690:XV3V8::10:"ENTER A VALUE FROM 0 TO 255 FOR PULSE LENGTH."::9050:X0X255ī6210V=ADDRESSN,XVBX(ADN):6545:6690:VG:VL:VQVVNM1ıW[INNM:ADI,(ADI1):I8W`NMNM1:NNMNN1:LL4DWe6590:JWjWWoNM85ıWtINMN1:ADI1,(ADI):I:NMNM1:ADDRESSN,0:6590:Wy:W~W(ADN)255ıWADN,(ADN)1:3:X(ADN)10:X,LX,L1:6415:6510X(49152)128ī6275XX:X: X-XN255ı[X:NN1:AD,N:NNMNMN:ADN,C(ADN1)xX6650:LL4:L155İ6590X6630:6480:C0ıX6415:(49152)128ī6310XX:X:XXN1ıXNN1:AD,NX6650:LL4:L3İ6590Y6630:6480:C0ı0Y6415:(49152)128ī63556Y INCREASE VALUE LAST SET (P,L,S)":T"H HEAR TARGETED PULSES":"R HEAR TARGETED PULSES REPEATED": INCREASE VALUE":"<-- DECREASE VALUE":"(ANY) HALT INCREASE/DECREASE":X"J JABBER THE TABLE":"CTRL-J JABBER OTHER TABLES":"H HEAR LINE":"CTRL-S HEAR SOUNDSET"::"ESC RETURN TO MENU"]9220:5605:b:g:lqTABLE3(JN1),R:VT:17:" ";:17:R:v:{:NT1ī5515u:10:"PRESS RETURN KEY TO JABBER ALL TABLES."::"PRESS ANY OTHER KEY TO JABBER ONLY ONE.":9140:X141ī5775I1NT::10:"TABLE ";I:ADPT(I):10003::X11000:X:I:5605:;:8:"THERE ARE NOW ";NT;" TABLES,":"NUMBERED 1 TO ";NT;"."::"ENTER NUMBER OF TABLE DESIRED.":9200:X1XNTİ5605:x:10:"TABLE ";X:ADPT(X):10003::X11000:X:5605:~p" uFT0ė:10:"JABBER TABLES IN MEMORY WILL BE ";::"LOST.":::"PRESS RETURN KEY TO EXAMINE ANYWAY."::"PRESS ANY OTHER KEY TO RECONSIDER.":9140:X141ı6 zFT0:NT0:9310<  8:"THERE ARE ";SC;" SOUNDSETS NOW,":"NUMBERED 1 TO ";SC;"." :"ENTER NUMBER OF SOUNDSET TO BE EXAMINED.":9200:SNX SNSCSN1ı 9240  :"SOUNDSET"; !SN0ĺ" EXAMINATION:"!SN0ĺSNc!"NUMBER OF SOUNDS: ";NS:"OVERALL SIZE: ";AS(NS1)291841::9220k!I1!:"SOUNDSET";:SN0ĺSN!SN0ĺ" EXAMINATION"!:"SOUND SOUND BYTES NUMBER ADDRESS LENGTH"!III14+"INSĺI;:11:AS(I);:21:AS(I1)AS(I)F"I::9220:INSī6070P"9004\"SN0ı":10:"SOUNDSET";SN;" NOW IN MEMORY.":9220:":":""FS0ī6155":10:"SOUNDSET";SN;" IS PRESENTLY IN MEMORY."$#FT0ĺ:"JABBER TABLVER BE PERFECT. WHILE AUDIO IS BEING STORED IN MEMORY THE SPEAKER IS QUIET."Xc+9030:d +"RAW AUDIO IS DIVIDED IN MEMORY INTO 28 256-BYTE PAGES. 128 SOUND PULSES, HALF OF A PAGE, CAN BE DISPLAYED AT ONCE. SCREENS OF DISPLAYED DATA ARE NUMBERED 0FUNCTION":x3O"E EXAMINE TABLES NOW IN MEMORY"::"L APPEND TABLES FROM DISK TO THOSE NOW IN MEMORY":3T"D DELETE ONE TABLE FROM MEMORY"::"C CLEAR ALL TABLES FROM MEMORY"::"M MODIFY ANY TABLE IN MEMORY":x4Y"N FO WORK WITH A RELOCATED SOUNDSET. (SOUNDSETS NORMALLY LOAD AT 29184.)":z%3"PRESS ESCAPE KEY TO RETURN TO MENU.":%89140%=X205İ6270:6175%BX196İ6225:6175%GX155ı%L6200%Q%R9310 &V:8:"THERE ARE NOW ";SC;" SOUNDSETS,":"NUMBERED 1 TO ";SC;".":&["ENTER NUMBER FOR SOUNDSET TO BE DELETED;ENTER 0 TO DELETE NO SOUNDSET.":9200:XSCX1ı&`:8:"PRESS THE RETURN KEY TO DELETE SOUNSET";X:"AND RENUMBER OTHER SOUNDSETS TO MAINTAINCONTINUITY.":&eX1X1'j"PRESS ANY OTHER KEY TO RECONSIDER.":9140:X141ı'o(4);"DELETE SOUNDSET";X1:X1SCāIX11SC:(4);"RENAMESOUNDSET";I;",SOUNDSET";I1:I'tSCSC1:255,SC:(4);"BSAVE SETCOUNT,A255,L1"'y'~(:10:NT0FT0ĺ"NO TABLES IN MEMORY.":9220:("A MODIFIED TABLESET WILL ";::"NO LONGER WORK"::"WITH THE SOUNDSET IT WAS FORMED FOR IF THAT SOUNDSET IS LOADED AT THE NORMAL ADDRESS, 29184."(:"HIT RETURN TO PROCEED, ANY OTHER NOT TO.":9140:X141ıN):10:"ENTER THE NON-STANDARD ADDRESS AT WHICH THE SOUNDSET WILL BE LOADED.":9200::10:"PLEASE WAIT.")TP1NT:IPT(TP)PT(TP)2563:AD(I1)256(I2)X29184:10008)(I)0IPT(TP)256:6290)I1,PL:I2,PH)I:TP;*:10:"TABLES MUST NOW BE SAVED.":"THEY WILL THEN BE CLEARED FROM MEMORY.":9220:8405:8295::A*X*YFT1ė:8:"JABBER TABLES IN MEMORY WILL BE ";::"LOST.":::"PRESS THE RETURN KEY TO EDIT SOUNDSETS."::"PRESS ANY OTHER KEY TO RECONSIDER.":9140:X141ı*ZFT0:NT0+]:1230:"KEY FUNCTION"i+b:"L LOAD A SOUNDSET FROM DISK AND APPEND IT TO EXISTING SOUNDS"+g:"E EXAMINE SOUNDS NOW IN MEMORY"<,l:"D DELETE ONE SOUND"::"C CLEAR ALL SOUNDS FROM MEMORY"::"S SAVE MERGED AND EDITED SOUNDSET ON DISK"::"ESC RETURN TO MAIN MENU"F,9140O,SN0f,X204İ7095:7000},X197İ6040:7000,X196İ7160:7000,X211İ7225:7000,X195İ7135:7000,X155ı,7040,:,:,,9310?-:10:"THERE ARE ";SC;" SOUNDSETS ON DISK,":"NUMBERED 1 TO ";SC;"."X-FS0ĺ:9280:FS1:-:"ENTER NUMBER OF SET TO BE APPENDED.":9200:X1XSCı-(4);"BLOAD SOUNDSET";X;",A";AS(NS1):9260:SN0:FS1:-:-:-.NS0:FS0:AS(1)29184:SN0#.:10:"CLEARED.":9220:).:/.:5.A.NS2ı.:8:"THERE ARE ";NS;" SOUNDS IN MEMORY,":"NUMBERED 1 TO ";NS;".":."ENTER NUMBER OF THE SOUND TO BE DELETED.(ENTER 0 TO DELETE NO SOUND.)"A/ :"REMEMBER: IF YOU DELETE A SOUND, ALL SOUNDS WITH HIGHER NUMBERS WILL BE RENUMBERED!!!":W/9200:X1XNSıq/:10:"PLEASE WAIT."/XSAS(X1)AS(X)/ IAS(X)AS(NS1)XS:I,(IXS):I/%IXNS:AS(I)AS(I1)XS:I:NSNS1/*:10:"DELETED.":9220://:/4:09=0>9310::6:"THERE ARE ";SC;" SOUNDSETS ON DISK.":0C"PRESS THE P KEY TO REPLACE A PERMANENT, NUMBERED SOUNDSET FILE, OVERWRITING ALL DATA NOW IN THAT FILE.":0H"PRESS THE N KEY TO START A NEW DISK FILEFOR SOUNDS NOW IN MEMORY."1M91401WX208ī7270@1\X206A$"SOUNDSET"(SC1):SCSC1:7280F1a1f:10:"ENTER NUMBER OF FILE TO BE OVERWRITTEN.":9200:A$"SOUNDSET"(X):X1XSCıA2k:"PRESS THE RETURN KEY TO OVERWRITE AND DESTROY DATA IN EXISTING DISK FILE."::"PRESS ANY KEY EXCEPT RETURN IF YOU WANT TO RECONSIDER.":9140:X141ıy2p(4);"BSAVE";A$;",A29184,L";AS(NS1)129184:93452u:10:"SOUNDS SAVED AS SOUNDSET";SC:9220:2z:2:2@2EFS0ė:10:"LOAD SOUNDSET FIRST":9220: 3J:1230:"KEY :10:"SOUNDSET";SN;" NOW IN MEMORY.":9220:5$:;$:A$Q$$:1230:10x$%:"CAUTION";::": SEE MANUAL!":$)"PRESS THE D KEY TO DELETE AN UNNEEDED, NUMBERED SOUNDSET AND ADJUST SETCOUNT.":M%."PRESS THE M KEY TO MODIFY JABBER TABLES TPRESS NUMBER FOR OPTION:":"1.";:9016:"2.";:9018:"3.";:9020:"4.";:9022jC0#9140:X177X180ī9008C2#XX176:X9044,9029,9012,9014:9004C4#:C6#:10:9022::9026::"ENTER NEW SETTING.":9200:XX(255XX1)(X1)(X255)255:RSX:D8İ8315:8000#5X211İ8405:800005X155ı:58055@5:F5:L55:NT0FT0Ģ10:"NO TABLES IN MEMORY.":9220:5NT(AS(NS1)1):"NUMBER OF TABLES=";NT581855"ADDRESS OF TABLESET=";AS(NS1)26"LENGTH OF TABLESET(BYTES)=";PT(NT1)1AS(NS1)11#692206I1(NT15)1::"INDIVIDUAL TABLES:":"TABLE TABLE LENGTH NUMBER ADDRESS IN BYTES"6J115:X15(I1)J:XNTī81656X;:9:PT(X);:18:PT(X1)PT(X)6J:9220:IW7:10:"PRESS NUMBER FOR OPTION":"1.HEAR ALL TABLES.":"2.HEAR ONE TABLE.":"3.RETURN TO EDITING."x79140:XX176:X1X3ī81677X8170,8171,8169775770:81668:10:"THERE ARE ";NT;" TABLES":"NUMBERED 1 TO ";NT;".":"ENTER TABLE NUMBER.":9200:X1XNTī8166:8ADPT(X)::"TABLE";X;".":10003:8166@8:F8:L8u8PT(1)AS(NS1)2:I1NT:TABLEPT(I)8 TABLETABLE3:(TABLE)0ī81958 PT(I1)TABLE1:I:TABLEPT(NT1):8 :8 :8 @9 9370::10:"PRESS RETURN KEY TO LOAD TABLES."::"PRESS ANY OTHER KEY TO RECONSIDER.":9140:X141ı\9! NT0XAS(NS1)1:FT1t9& NT0XPT(NT1)1~9' X1NT9+ :8:"ENTER NAME OF FILE TO BE APPENDED. (TYPE IN NAME AND HIT RETURN.)":"";A$:(4);"BLOAD";A$;",A";X:0 NTNT(X):X,0:AS(NS1)1,NT-:4 :10:"PLEASE WAIT."B:5 8185:BT0:8450:6 BT0ė:10:"BAD MATCH AGAINST SOUNDSET.":NTX1:AS(NS1)1,NT:9220::7 :10:NTX1;" TABLES LOADED AND":"CHECKED AGAINST SOUNDSET.":9220::: ::? ::D :I NT0ı;N :8:"THERE ARE NOW ";NT;"TABLES,":"NUMBERED 1 THROUGH ";NT;"."::"ENTER NUMBER OF TABLE TO BE DELETED. ENTER 0 TO DELETE NO TABLE.":9200:X1XNTı;S :"PLEASE WAIT." J:NJ(I)0ė:"BAD MATCH BETWEEN TABLE AND SOUNDSET!":9220:IJM:I:> I:5050::10:"PRESS RETURN KEY TO APPEND THE TABLE JUST MODIFIED AS A NEW TABLE."::"PRESS ANY OTHER KEY TO REPLACE THE OLD TABLE WITH THE MODIFIED TABLE.":9140+? :10:"PLEASE WAIT.":X141TPNT1:NTTP:AS(NS1)1,NT:8390o? X13JMPT(TP1)PT(TP):X0āIPT(TP1)PT(NT1):IX,(I):I? X0āIPT(NT1)PT(PT1)1:IX,(I):I? I03JM:PT(TP)I,(TABLEI):I:8185:FM0:? :? :? @ FT0ė:10:"NO TABLES IN MEMORY.":9220:~@ 9370::10:"PRESS RETURN KEY TO SAVE TABLES."::"PRESS ANY OTHER KEY TO RECONSIDER.":9140:X141ı@ :10:"ENTER NAME FOR DISK FILE.":"(TYPE IN AND HIT RETURN.)":"";A$ A :8:"READY TO SAVE TABLES."::"FILE NAME WILL BE:";A$::A "PRESS RETURN KEY TO SAVE, OVERWRITING ANY EXISTING FILE WITH SAME NAME."::"PRESS ANY OTHER KEY TO RECONSIDER.":9140:X141ıA (4);"BSAVE";A$;",A";PT(1)1;",L";PT(NT1)PT(1)1::10:A$;" SAVED.":9220:A :A :A!B!TPX1(X10)NT:TABLEPT(TP)tB!JM(PT(TP1)PT(TP)1)3:I1JM:XTABLE3(I1):X(X1)256(X2):NJ(I)0:J1NSB !AS(J)XNJ(I)JB!J:NJ(I)0BT1:IJM:I:TPNT:TP:B!I:TP:B!:B !:B(#:B*#:B,#MC.#:1230:10:9024::9026::"ORM A NEW TABLE TO BE APPENDED TO THOSE IN MEMORY"::"S SAVE TABLES ON DISK"::"ESC RETURN TO MAIN MENU"4w91404|X197İ8115:80004X204İ8215:80004X196İ8260:80004X195İ8295:80004X205İ8335:8000 5X206    100:K:J:RS;" TIMES.":9058:J11000:J:hEE#X1:NS10ĺ:"FIRST SOUND NUMBER?":9200:X1XNSıuEF#49168,0EH#:IXNS:ADAS(I)EJ#9028EL#(49152)128INSEN#I:EP#:ER#:FT#:10:9016::9024::"ENTER SOUND NUMBER.":9200:X1XNSıFV#IXFX#9028`FZ#:10:"HIT RETURN TO HEAR AGAIN, OTHER NOT TO.":9140:X141ī9048fF\#F^#:10:"THERE ARE ";NS;" SOUNDS IN MEMORY,":"NUMBERED 1 TO ";NS;".":F`#NR1:10002:Fb#NRRS:10002:F#F#KSTROBE,0G#X(KBD):X128ī9150G#KSTROBE,0:G#:"G#:=G#NR1:ADAS(X):10002:CG#:IG#:eG#NR50:ADAS(X):10002:kG#:qG#:wG#G#"(TYPE IN VALUE AND HIT RETURN)";X:G#:G#:G$G $23:"(PRESS ANY KEY TO CONTINUE.)":9140:G$:G$:G$G$FS1H"$(4);"BLOAD SOUNDSET";SN2H'$NS1:AS(NS)29184pH,$AS(NS1)1AS(NS)(AS(NS)):(AS(NS1))0NSNS1:9260vH1$|H6$:H;$:H@$HE$"ENTER NUMBER OF SOUNDSET DESIRED.":9200:X1XSCġ:HJ$FS1HO$SNX:9240:HT$:HY$:H^$Ic$:10:"INSERT STORAGE DISK.":9220>Ih$(4);"BLOAD SETCOUNT":SC(255)DIm$JIr$:PIw$:\I$255,SCI$(4);"BSAVE SETCOUNT,A255,L1"I$I$:I$:I$I$:10:"INSERT STORAGE DISK.":9220::(4);"CATALOG"::9220:I$:I$:I'10009J'10008:254,PL:255,PH:253,NR:37889:BJ'10008:254,PL:255,PH:37478:J'10008:"TAPE WILL PLAY THROUGH SPEAKER.":"'T' KEY TRIGGERS DATA INPUT":"'A' KEY ABORTS WITHOUT DATA INPUT":255,145:253,117:37632::J'255,145:253,117:37675:K'255,145:253,117:37786:'zn?z 1 )       #"HEAR ONE SOUND.":/D:#"HEAR ALL SOUNDS.":ID<#"GO TO MAIN MENU.":fD>#"ADJUST REPETITIONS.":D@#"SOUNDS IN MEMORY: ";NS0;" THROUGH ";NS:DB#"REPETITIONS SETTING: ";RS:-ED#ADAS(I)::10:"SOUND NUMBER ";I:12:J13:"ONCE; ";:9056:K1                                                                    $     BOWdoInq4 :# !0@ !13  !4% "1 )"&)  !%! %NM) "N ""Z8# ( D$$ > !=+ !"!!!#!!$     &   "   "! ($! ""! (#!"  "'   $#+     # $"#" !'! !%"" 7# "$# #!&!#""!$# # %"!%CR'40">1$    *)X-7(' (-& &$ **+(+# (1$)Y+)XVWWVR/): '$%3 T S   P!(O *L!L! &L"&J#$K! ! /                    "   $   %   #    #            @= NA2 C MB&@ YK fb Vl$Xa/U\M[qP|?) '  (  &  ' #   4  , .#14$6 7H & (2 e:Y9GH[4I=Q0J@C. ! % $  &  (                 &  #   !   #                                                   v       <                 $  *          "      ' ,  51"   . 8 6( ! "!* $   03 ! |  1_  A7 4, n50n1bLZ>E( 7M0;0/@*.9#3<"(+:$*,7%&+:*,7)+,4%)+;"+,8&)+;"&.8(#.9$)-8!*+=)-7'&-:&%,7))):"**:&%,9&')9!**;)+;"%)8%")<#!*B2J:M /  2  3  0 3 :)2 9 6    1  2  2   / 0   /   ,    +  -    ,   +    *   )    (   '    '   %    %   $   #   "   !           4  /  .  "     #8#3$m%e#>%o/Z3R*A*,>'>9*(6'@)+)7:pYn>n#zlTeQ?]_=!tY}vi|iO Vfvgy[aF";}Twp5@AshP>C@m>vF,8}(MyHv>k IfdY&wV4n{[}rVW`y@q-[q42ZL(kJx+y{ [;3  ?d2'3    /$?]#M 3YXI!4N:02M48*15029, ;9(76w? :+(1*'>),,$9"!2<%-9$"*6$7*7%",;'-6-*8!!+8# -6#&*5!%+3%"*3&+5#"*4!+8uA && *  -  ,+   0   0   1   .   .    -    .    .    -    .   .    )    ,    *    '    (    &                        !h^#!'v,zR-ULWuO$ Uh WXV`';Q#XQ"TR?7M&WQ#R] LTNbnf TiKkgi RXtWl[_gbd{F{NES"{V!,/FEVY}|gK1z$fe N{Sf(1K[kKbr &3 ((((((((((222222222222222222222(((((((((( = ((((PP'   -----ddddddddddddddddddddd  }                                         % "         + #) & bx      /     (   :)6( 8<"     _#(  6     5>  6B7  ] f  A5  ?  T * #8 b;"HAOUWq'kc`T*L'SG(T?'%9!'7':LhJJ,qp_Be|M v 11  oWk=uQ3.RvRsSlYs^wWHNkY\UZN T    0  :   9 9    :L6KeG>Dm G o Et O\ 9 5 H 2  {;LP)J=#8)W >   1  , LJP ""B( #J#Q#,$\ %\ ()d-4)WکG ϩ>8<`ѧC (PeҚmrF˔G6:Q0xB0%q>bt6>; 6S_:PO> .2 <l49V$&A 9 Z@:VU)to 11LJEp|P | g$s ve gfkBCE! * /  6= 5 8j!q:1Hu4ZZqc`> ZKAaCMa^ ݪF %eWG\;     !>='@,@)A"FC"Aj]**%z0}%&)K v__-v=nR S 2 X  >      A  `  :      E  @   F " Y  :5 . ?[.T(V"[!Y!d76644N`"8#o,9\a@MTZ:l2L4                  =     :  0  /  / " H=cs#,T!IdOjVcEbVq2ez],ާO,VI-T$U6 [M9!,FJ?W_8Ip/l7N-cM4ˈ4R#$(OM&( XiQP'NO)TO%%r1Ew@+%U 2 ZI" 1     +  B-   BN[O#  4D D ; 9 "/!,=".$%. (3l4l2i3p0|(},)|3y6s.>)+#P:  :                110    ) '( & % % ' '' '& & % $$!! ! " B*$/>%25151526171757576949584:39492728593851151;81.12@65;5(A"O8=   57   +=/,-3 C0F  M DA0/49 & = ' ![   V* -) D( /  %,  0+  # %  !7   7 5       04# R      $  D 8 !^4 "    '! / ( D x  * P" ^ Q #D w   ,  ,  +PG"K(/ m I5152:IC H" ":I:I :O :l " LIST OTHER OPTIONS":{ " QUIT": : : RET141:SPACE160:KBD49152:KSTROBE49168  :  :  & X(KBD) 0 XSPACEİ3200:KSTROBE,0:3100: XRETİ3300:KSTROBE,0$D 3100*~ :0 :6 C VT:" "[ VTVT2:VT17VT5c VTk :v " ":|  : :  OPT(VT3)2 SET3321,3322,3323,3324 OPT5000,11000,4000,4000,4000,6000,3500:1020:F :G :R SETSET1:SETSLSETSF \ ,f 7000:2 :8 :> H ::N:T:Zt`:f:l{KSTROBE,0X1024128(VT1)984((VT1)8)1A$"":IXX38:A$A$((I)):I:10:"LOADING. PLEASE WAIT."(4);A$:: ::4:"SOUND DEMONSTRATION."::I12000:Im"A MACHINE GUN.":ADPT(3):10003:I11000:I:"MANY GUNS.":ADPT(2):10003:I11000:I:"ONE LESS FLYING SAUCER.":ADPT(1):10003:I11000:I:"SERIOUS STUFF!!":I11000:I:255,145:253,132:37786!'p`u:10:"SEE INSTRUCTIONS ON PAGE 5.":9000:X147ız:10:"READY TO INSTALL SETCOUNT FILE."::"INSERT INITIALIZED DISK AND HIT RETURN.":9000:X141ė:"ABORTED.":9030: 255,0:(4);"BSAVE SETCOUNT,A255,L1":(#-#KSTROBE,092#X(KBD):X128ī9010J7#KSTROBE,0:P<#:VA#:\F#K#23:"(PRESS ANY KEY TO CONTINUE.)":9000:P#:U#:_#"(TYPE IN VALUE AND HIT RETURN.)";X:(i#I1AS(SX1)AS(SX)1:ADDRESSI,(AS(SX)I):P(I)(ADDRESSI):I:N(AS(SX)):ADDRESS,N:NMN:.n#:4s#::x#O}#NS1:AS(1)29184#AS(NS1)1AS(NS)(AS(NS)):(AS(NS1))0NSNS1:9090##:#:##NT(AS(NS1)1)#PT(1)AS(NS1)2:I1NT:TABLEPT(I)#TABLETABLE3:(TABLE)0ī91250#PT(I1)TABLE1:I:TABLEPT(NT1):6#:<#:G'10009s'10008:254,PL:255,PH:253,NR:37889:'10008:254,PL:255,PH:37478:&'10008:"TAPE WILL PLAY THROUGH SPEAKER.":"'T' KEY TRIGGERS DATA INPUT":"'A' KEY ABORTS WITHOUT DATA INPUT":255,145:253,117:37632::E'255,145:253,117:37675:d'255,145:253,117:37786:'254,ML:255,MH:252,NL:253,NH:37376:'PH(AD256):PLAD256PH:':**+"THIS DISK PROVIDES UTILITIES FOR ADDING SOUND EFFECTS,          CERPT-A-SOUND' IS A PROGRAM FOR GETTING SOUNDS FROM THE CASSETTE PORT AND EXCERPTING PORTIONS OF THIS AUDIO DATA FOR USE AS SOUND EFFECTS. EXCERPTING PRODUCES MORE UNIFORM TONES"<+"AND USES LESS MEMORY. RAW, UNEXCERPTED AUDIO UP TO ABOUT 10 SECONDS IN LENGTH CAN BE STORED IN 7K OF MEMORY.": +"'BUILD-A-SOUND' IS A PROGRAM TO CONNECT SOUNDS AND TONES TOGETHER INTO EXTENDED PATTERNS TO FORM MUSIC OR EMULATE SPEECH. IT IS ALSO USEFUL FOR EDITING"Q%+"COLLECTIONS OF SOUNDS WHICH ARE DEVELOPED USING 'DRAW-A-SOUND' AND 'EXCERPT-A-SOUND'.":9030W&+%*+"EACH PROGRAM ON THIS DISK PROVIDES MORE INSTRUCTIONS SPECIFIC TO IT'S OWN USE. ALL PROGRAMS CAN BE ACCESSED FROM THE 'HELLO' PROGRAM'S MENU. EACH HAS A MENU OF IT'S OWN WHICH ALLOWS RETURN TO THE"/+"'HELLO' PROGRAM. TO USE THE MENU, MOVE THE FLASHING CURSOR BY PRESSING THE SPACE BAR REPEATEDLY. WHEN THE CURSOR IS BY THE OPTION YOU WANT, PRESS THE RETURN KEY.":9030:4+:" THE 'INSTALL SETCOUNT FILE' OPTION ONTHE HELLO PROGRAM MENU MUST BE USED WITHCAUTION. THE VARIOUS PROGRAMS ON THE AUDEX DISK USE THIS FILE, A SINGLE BYTE"9+"WHICH NORMALLY LOADS TO MEMORY LOCATION 255 = $FF , TO KEEP TRACK OF HOW MANY NUMBERED SOUNDSET FILES THERE ARE ON THESTORAGE DISK.">+:"IF YOU USE THE 'HELLO' PROGRAM OPTION TOINSTALL A SETCOUNT FILE ON A DISK WHICH ALREADY CONTAINS NUMBERED 'SOUNDSET' FILES, THEY WILL BE OVERWRITTEN AND DESTROYED BY NEW SOUNDSET FILES AS THEY"C+"ARE PLACED ON THE DISK."::"PRESSING CTRL-S WHEN YOU SEE THE 'SEE INSTRUCTIONS.' PROMPT WILL UNLOCK THE OPTION. USE CARE."H+9030:9w6rstsuusu^v^wuu^v^wtstrY HARDWARE REQUIRED.":S +"HERE'S A SUMMARY OF THE PROGRAMS ON THISDISK:":+"'DRAW-A-SOUND' IS A PROGRAM FOR CREATINGAND EDITING SOUND PULSE PATTERNS. THESE 'SOUNDS' CAN BE TONES, SQUALKS, THUMPS OR ANYTHING YOU CHOOSE.":9030++"'EXS(I)N#5146&N$(49152)128INS-N(I3N-9N2:?N7:N<:10:5140::5144::"ENTER SOUND NUMBER.":9050:X1XNSıN=IXNA5146NF:10:"HIT RETURN TO HEAR AGAIN, OTHER NOT TO.":9000:X141ī5185NK-OP:10:"THERE ARE ";NS;" * @09@E952975:H:E,H::E10101012:H:E,H:@ 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212,184,3,166@(4);"BRUN INSTALL &LOMEM":16384@29183@AS(255):AS(1)29184@NS0@RS50A#(4);"BLOAD AUDIO OPCODES""Ab100,Ac1000VAd54915:ER(222):ER255ERR20ī1000^An:AER0ER15J53856ER(ER255)1:160AJ43377(43583ER)AK(J):(K);:K192JJ1:160A:"PRESS ANY KEY":16384,128:49168,0:1000A%B:SF1:SL2:SET1:VT5:1020:3000OB:1040:1075:1120:2000:1140:3000UB:[B:aByB1040:2000:1140:B:B :BB:1170:19:1160:"CURSOR FLASHES BY OPTION.":"SPACE BAR MOVES CURSOR.":"RETURN KEY ACTIVATES OPTION.":CtVT:::" "::%CyVT:::" "::7C::1165::iC" ":C"=======AUDEX: DRAW-A-SOUND PROGRAM======"::" COPYRIGHT 1982 BY SIRIUS SOFTWARE "::C:C:CD2100:5:SET2011,2021,2030,2040D" INSTRUCTIONS":3D" DRAW NEW SOUND":ZD" REDRAW A SOUND ALREADY DRAWN":~D" HEAR SOUNDS ALREADY DRAWN":D" SAVE SOUNDSET ON DISK":D" LOAD SOUNDSET FROM DISK":D2200D" INSTRUCTIONS":E" DELETE INDIVIDUAL SOUND FROM MEMORY":6E" CLEAR ALL SOUNDS FROM MEMORY":JE" RUN HELLO":hE" RUN EXCERPT-A-SOUND":E" RUN BUILD-A-SOUND":E2200E4E>I5172:IEH" ":I:E" LIST OTHER OPTIONS":F" QUIT": F F 9000-F X160İ3200:3000>F X141İ3300HF 3000NF :TF :uF VT:" ":VTVT2:VT17VT5F 1140F :F :F F OPT(VT3)2F SET3321,3322,3323,3324F OPT11000,5000,5030,5095,5060,5210,3400:1020:)G OPT11000,5260,5240,4005,4015,4010,3400:1020:/GF :5GG :;GH XGR SETSET1:SETSLSETSF^G\ dG :jG :G :103,1:104,8::G:G:GtG:G:G4020:104,8:103,1:(4);"RUN HELLO"G4020:104,8:103,1:(4);"RUN BUILD-A-SOUND"0H4020:104,8:103,1:(4);"RUN EXCERPT-A-SOUND"yH:10:"INSERT PROGRAM DISK.":9030::10:"LOADING. PLEASE WAIT.":H:H:HHNSNS1:AS(NS),1:AS(NS)1,0:AS(NS)2,0:AS(NS1)AS(NS)2:SXNS:6000:I::6460:N1:L3:6630:6480:6030I: I:IINS0ı^I9145::"ENTER NUMBER OF SOUND TO BE REDRAWN.":9050:SXXpISXNSSX1ıIFR1:6000:FR0:I:I:IINS0ė:10:"NO SOUNDS TO SAVE.":9030:I9165ISN0ī5070MJ:10:"PRESS RETURN TO SAVE AS NEW SOUNDSET.":"ANY OTHER KEY REPLACES OLD SOUNDSET":9000:X141ī5070J(4);"BSAVE SOUNDSET";SN;",A29184,L";AS(NS1)129184::10:"SOUNDS SAVE AS SOUNDSET";(SN);".":5080)KSCSC1:(4);"BSAVE SOUNDSET";SC;",A29184,L";AS(NS1)129184:255,SC:(4);"BSAVE SETCOUNT,A255,L1":SNSCYK:10:"SOUNDS SAVED AS SOUNDSET";(SC);"."eK9030:kK:qK:wKK:1170:10:5144::5145::"PRESS NUMBER FOR OPTION:":"1.";:5140:"2.";:5141:"3.";:5142:"4.";:5143L9000:X177X180ī5105-LXX176:X5180,5149,5107,5108:50955L:xL:10:5143::5145::"ENTER NEW SETTING.":9050:6885:RSX:L"HEAR ONE SOUND.":L"HEAR ALL SOUNDS.":L"GO TO MAIN MENU.":L"ADJUST REPETITIONS.":M"SOUNDS DRAWN: ";NS0;" THROUGH ";NS:1M"REPETITIONS SETTING: ";RS:MADAS(I)::10:"SOUND NUMBER ";I:12:J13:"ONCE; ";:6400:K1100:K:J:RS;" TIMES.":6440:J11000:J:MX1:NS10ĺ:"FIRST SOUND NUMBER?":9050:X1XNSıM49168,0N:IXNS:ADA               SAVE";A$;",A30208,L7168": Np?NuP1:L10:N1:6500:JMODE1INz9000`NX136İ6105:6010wNX149İ6140:6010NX208İ6175:6010NX204İ6205:6010NX211İ6235:6010NX178İ6265:6010NX193ĉ:5055:6865:6010 OX200İ6% @09@E952975:H:E,H::E10101012:H:E,H:@ 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212,184,3,166@(4);"BRUNINSTALL &LOMEM":16384@ 29183@AS(255)@NS0:AS(1)29184@BUF30332 AAUDIO37375+A#(4);"BLOAD AUDIO OPCODES"5Ab100?Ac1000hAd54915:ER(222):ER255ER20ī1000pAn:AER0ER15J53856ER(ER255)1:160AJ43377(43583ER)AK(J):(K);:K192JJ1:160 B:"PRESS ANY KEY":16384,128:49168,0:1000B:B:B:AB:1200:1280:2000:1300:3000GBJ:MBK:SBLkBQ1200:2000:1300:qBV:wB[:}BB:1230:17:1235:"CURSOR FLASHES BY OPTION.":"SPACE BAR MOVES CURSOR.":"RETURN KEY ACTIVATES OPTION.":B"MENU"C"('EXCERPT-A-SOUND' PROGRAM)!C'C:C"=====AUDEX: EXCERPT-A-SOUND PROGRAM====="::" COPYRIGHT 1982 BY SIRIUS SOFTWARE "::C::1240::C" ":C"CURSOR FLASHES BY OPTION." D"SPACE BAR MOVES CURSOR."1D"RETURN KEY ACTIVATES OPTION."8D1>DDD:JD:PDiDSF1:SL2:SET1:VT5oD :uD:{DDVT:::" "::D:D#:D-::" "D2:D7:D<:DE2100:5:SET2011,2021,2030,2040'E" INSTRUCTIONS":JE" LOAD AUDIO FROM CASSETTE":mE" SAVE 'RAW' AUDIO ON DISK":E" DISPLAY AND EXCERPT SOUND PULSES":E" SAVE EXCERPTED SOUNDS ON DISK":E2200E" QUIT"EE" INSTRUCTIONS":F" LOAD 'RAW' AUDIO FROM DISK":-F" RUN HELLO":HF" RUN DRAW-A-SOUND":dF" RUN BUILD-A-SOUND":nF2200tF2:zF3:F4F>I5152:IFH" ":I:F" LIST OTHER OPTIONS":F :F :F #G RET141:SPACE160:KBD49152:KSTROBE49168)G :/G :5G ?G& 9000VG0 X160İ3200:3100mG: X141İ3300:3100wGD 3100}G~ :G :G G VT:" "G VTVT2:VT15VT5G VTG :G " ":G G :G :G G OPT(VT3)2H SET3321,3322,3323,3324?H OPT11000,5000,5120,6000,6420,3400:1100:oH OPT11000,5100,4005,4010,4015,3400:1100:uHF :{HG :HH HR SETSET1:SETSLSETSFH\ Hf 6655:H :H :H NS0İ6420H :103,1:104,8:H:H:HtH:I:+I4100:103,1:104,8:(4);"RUN HELLO"\I4100:103,1:104,8:(4);"RUN DRAW-A-SOUND"I4100:103,1:104,8:(4);"RUN BUILD-A-SOUND"INS0ė:10:"EXCERPT BUFFER MUST BE SAVED FIRST.":9030:6420J :10:"INSERT PROGRAM DISK.":9030::10:"LOADING. PLEASE WAIT.":!J:'J:-JuJ:10:"CONNECT AND PREPARE CASSETTE RECORDER.":9030:::10:10004J(49152)193ıJ:10:"AUDIO INPUT COMPLETE."::"TURN TAPE RECORDER OFF.":9030bK:8:"PRESS RETURN KEY TO HEAR WHOLE RECORD."::"PRESS SPACE BAR TO HEAR DATA PAGES IN SEQUENCE."::"PRESS ESCAPE KEY TO RETURN TO MENU."lK9000KX160İ5055:5015KX141İ5080:5015KX155ıK5020K:K:KKLI027:255,145I:253,144I:10:"PAGE ";I1:37786:I:L:L:L'L10006:-L:3L:9LCL9185L:10:"ENTER NAME OF AUDIO FILE TO BE LOADED. (TYPE IN AND HIT RETURN.) ";A$L:10:"READY TO LOAD RAW AUDIO DATA.":"FILENAME WILL BE: ";A$:9210 M(4);"BLOAD";A$:5015M:M:M%M9185M:10:"ENTER FILE NAME. (TYPE IN AND HIT RETURN) ";A$:(4);"BSAVE";A$;",A30208,L7168":M:10:"READY TO SAVE RAW AUDIO DATA.":"FILENAME WILL BE: ";A$:9210N(4);"B           JN85ı)JNJN1:JNJMİ5670:EL18(JN18)JN(JN18):EFEL17:JMJN:5605:R1:NJ(JN)1:5580:5740:TABLE3JM,0:::JN1ıJNJN1:5670::::10:"ENTER VALUE BETWEEN 1 AND ";(HT8)NS(HTG 09E952975:H:E,H::E10101012:H:E,H: 32,234,3,162,2,173,0,224,201,76,240,7,202,157,128,192,16,243,2,162,20,76,18,212,184,3,16629183 AS(255)PT(128)NJ(85)(4);"BLOAD AUDIO OPCODES"2RS50b100 c10001 d54915:ER(222):ER255ER20ī10009 n:e ER0ER15J53856ER(ER255)1:160} J43377(43583ER) K(J):(K);:K192JJ1:160 :"PRESS ANY KEY":16384,128:49168,0:1000 : : : 1200:1280:2000:1300:3000 J: K: L2 Q1200:2000:1300:8 V:> [:D  :1230:19:1235:"CURSOR FLASHES BY OPTION.":"SPACE BAR MOVES CURSOR.":"RETURN KEY ACTIVATES OPTION.": : "======AUDEX: BUILD-A-SOUND PROGRAM======"::" COPYRIGHT 1982 BY SIRIUS SOFTWARE "::. ::1240::` " ":f :l :r  SF1:SL2:SET1:VT5 : :  VT:::" ":: : #: -::" " 2: 7: <: 2 2100:5:SET2011,2021,2030,2040I " INSTRUCTIONS":b " LOAD SOUND SET": " FORM NEW JABBER TABLE": " EXAMINE SOUND SETS": " EDIT/MERGE SOUNDSETS": " EDIT/MERGE JABBER TABLE SETS": 2200 " INSTRUCTIONS":' " DISK FILE HOUSEKEEPING":N " SAVE JABBER TABLE(S) ON DISK":b " RUN HELLO":} " RUN DRAW-A-SOUND": " RUN EXCERPT-A-SOUND": 2200 2: 3: 4 >I5172:I H" ":I:: :&" LIST OTHER OPTIONS":, :2 :8 f RET141:SPACE160:KBD49152:KSTROBE49168l :r :x & 91400 X160İ3200:3100: X141İ3300:3100D 3100~ : :  VT:" " VTVT2:VT17VT5 VT :  " ":  : :$ 5 OPT(VT3)2R SET3321,3322,3323,3324 OPT11000,6125,5000,6000,7000,8000,3400:1100: OPT11000,6175,8405,4005,4010,4015,3400:1100:F :G :H R SETSET1:SETSLSETSF\ f 7000: :  :  :: %:+:1t7:=:Y4020:(4);"RUN HELLO"|4020:(4);"RUN DRAW-A-SOUND"4020:(4);"RUN EXCERPT-A-SOUND":10:"INSERT PROGRAM DISK.":9220::10:"LOADING. PLEASE WAIT.":::FT1:FS1ī5020:10:"A JABBER TABLE MUST OPERATE ON A SOUND SET, AND CAN BE USED ONLY WITH THE SOUNDSET IT IS FORMED TO WORK WITH. "9220:6125NT0İ8185:NTNT1:AS(NS1)1,NTNT0NT1:TABLEAS(NS1)2:TABLE1,NT:TABLE3,0 ::+JM1:TABLE,1:NJ(1)1:1VJN1:EF1:EL18:HT8:5605:5580\:b:hr9140X195İ5175:5070X149İ5220:5070X136İ5255:5070X206İ5320:5070X204İ5350:5070X197İ5375:5070X137İ5420:5070*X132İ5465:5070AX202İ5515:5070XX138İ5760:5070o X200İ5560:5070X147İ9004:5605:5070X155İ5535:5070X203İ5700:50705070#(VT:HT:" ":VT:HT16:HT:::" "::-:2:7<HT8İ5155:&A5200:,F:2K:8PcUVT:HT:" ":VT:HT8:HT:::" "::iZ:o_:udiKSTROBE,0n(HT8NJ(JN)NS)(HT16(TABLE3(JN1))255)ĹKSTROBE,0:sM1x5275}::KSTROBE,06(HT8NJ(JN)1)(HT16(TABLE3(JN1))1)ĹKSTROBE,0:?M1eHT8NJ(JN)NJ(JN)M:5580:5285HT16R(TABLE3(JN1))M:5740:5285I150:I(KBD)127ĹKSTROBE,0:M1ī5230M1ī5265KSTROBE,0:::                          HH)JJJ 0 8ЫЧhh`HHHHHHHȱȱHhhhhhhhh`0 ȱ (`0 080(`(HHH8` 0i% Ȧhhh`ЯHHHB8#0  ¦hhh`0 ȱ!`0200    Ϡ͠Ӡ΍ Š̺ŠȺŠҺ̠Π̠͠ˍ Š̺ŠȺ̠Π̠͠Ҡ ԠŠ̠٠ȠҮԠԧ٠ӠԢԠ٠ӠԠԢŠŠ̠ŠΠ̠͠ōŠŠ̠Π̠͠Ϡ΍ŠŠ̠Π̠͠ˍŠ̺ŠȺŠ̺ŠȺ̠Π̠͠ōȠԠĠ̠ĠȺΠ͠ԠĠөϠȠɩĠ̠ϩ͠Ӡč   L0 ȱ!`HHHHHHHȱȱHhhhhhhhh`0 ȱԨ (`0 080(`(HHH8` 0i% Ȧhhh`ЯoHHH8` 0i% Ȧhhh`ЯgHHHB8#0  ¦hhh`fHH)JJJ 0 8ЫЧhh``*********************7* *R* SQUALK ROUTINE *m* EXAMPLE PROGRAM ** **********************NS=NUMBER OF SOUNDS, AS(X)=ADDRESS OF SOUND X 29183:FOR SOUNDSET AT NORMAL LOAD LOCATION' (4);"BLOAD AUDIO OPCODES"Y (4);"BLOAD DEMOSOUNDS":INCLUDES A SOUNDSET  USE ARRAY "AS" FOR SOUND ADRESSES AS(30): 30 IS (MUST BE) GREATER THAN NUMBER OF SOUNDS IN SOUNDSET : :  CALCULATE ADDRESSES OF SOUNDS IN THE SOUNDSET* NS1:START WITH FIRST SOUNDZ AS(1)29184:NORMAL LOCATION OF FIRST SOUND #AS(NS1)1AS(NS)(AS(NS)):(AS(NS1))0NSNS1:35 $ LINE 35 REPEATS UNTIL ADDRESSES OF ALL SOUNDS HAVE BEEN FOUND %: &:. -I1NS:NR25:ADAS(I):10002:I: SQUALK ALL SOUNDS 25 TIMES EACH4 .:: /:@ 2~ 'ONLY AUDSUBS LINES 10002 AND 10008 ARE NEEDED FOR SQUALK '10008:254,PL:255,PH:253,NR:37889:: CALL SQUALK 'PH(AD256):PLAD256PH:: CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO)K    *********************8* * S* JABBER ROUTINE *n* EXAMPLE PROGRAM ** **********************NS=NUMBER OF SOUNDS; AS(X)=ADDRESS OF SOUND X NT=NUMBER OF JABBER TABLES; PT(X)=ADDRESS OF JABBER TABLE XI 29183:FOR SOUNDSET AT NORMAL LOAD LOCATIONi (4);"BLOAD AUDIO OPCODES" (4);"BLOAD DEMO SOUNDSET" (4);"BLOAD DEMO JABBERTABLE" : : USE PROCEDURE FROM SQUALK DEMO TO FIND END OF SOUNDSET LAST BYTE OF SOUNDSET WILL BE AS(NS+1), AS(30)Z NS1:AS(NS)29184: NORMAL SOUNDSET START #AS(NS1)1AS(NS)(AS(NS)):(AS(NS1))0NSNS1:35 -UP TO HERE, SAME AS FOR SQUALK DEMO, TO FIND END OF SOUNDSET .: /: 0NOW FIND JABBER TABLE ADDRESSES 9 2PT(30): ALLOW FOR UP TO 30 JABBER TABLES 6NT(AS(NS1)1):NUMBER OF JABBER TABLES IS NORMALLY IN FIRST BYTE FOLLOWING SOUNDSET 7PT(1)AS(NS1)2:FIRST JABBER TABLE NORMALLY STARTS WITH SECOND BYTE AFTER SOUNDSET <I1NT: (FOR ALL TABLES) ATABLEPT(I)A FTABLETABLE3:(TABLE1)0ī70p KPT(I1)TABLE1:SET ADDRESS OF NEXT TABLE PI:GO ON TO NEXT TABLE U THE PRECEDING LINES FIND THE ADDRESSES OF JABBER TABLES FOLLOWING THE SOUNDSET V: W: ZI1NT:ADPT(I):10003:I: JABBER ALL TABLES& _, `:2 a:p 'ONLY AUDSUBS LINES 10003 AND 10008 ARE NEEDED FOR JABBER '10008:254,PL:255,PH:37478:: CALL JABBER 'PH(AD256):PLAD256PH:: CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO)  p 8192) ***********************G * *e * HEARTAPE ROUTINE *( * EXAMPLE PROGRAM *2 * *< ***********************FD$(4): CNTRL 'D'PD$;"BLOAD AUDIO OPCODES"6 Z CALL HEARTAPE TO WRITE AUDIO DATA FROM CASSETTE TO MEMORYC d10004:` '10009: AUDSUBS BEGIN '10008:254,PL:255,PH:253,NR:37889:: CALL SQUALK '10008:254,PL:255,PH:37478:: CALL JABBER l '10008:"TAPE WILL PLAY THROUGH SPEAKER.":"'T' KEY TRIGGERS DATA INPUT":"'A' KEY ABORTS WITHOUT DATA INPUT":255,145:253,117:37632::: CALL HEARTAPE '255,145:253,117:37675:: CALL AUDIO IN '255,145:253,117:37786:: CALL PLAYBACK '254,ML:255,MH:252,NL:253,NH:37376:: CALL TONEY 'PH(AD256):PLAD256PH:: CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO)n ': AUDSUBS END!! ! !  8192) ***********************G * *e * AUDIOIN ROUTINE *( * EXAMPLE PROGRAM *2 * *< ***********************FD$(4): CNTRL 'D'PD$;"BLOAD AUDIO OPCODES" Z:"PRESS A KEY TO BEGIN INPUT";:A$c d CALL AUDIOIN WITH PARA-METERS SET TO INPUT 2 PAGES INTO MEMORY n DATA WILL BE STORED FROM 37375 ($91FF) TO 36864 ($9000) x253,143:255,145 37675: '10009: AUDSUBS BEGIN '10008:254,PL:255,PH:253,NR:37889:: CALL SQUALKR '10008:254,PL:255,PH:37478:: CALL JABBER '10008:"TAPE WILL PLAY THROUGH SPEAKER.":"'T' KEY TRIGGERS DATA INPUT":"'A' KEY ABORTS WITHOUT DATA INPUT":255,145:253,117:37632::: CALL HEARTAPE '255,145:253,117:37675:: CALL AUDIO INO '255,145:253,117:37786:: CALL PLAYBACK '254,ML:255,MH:252,NL:253,NH:37376:: CALL TONE 'PH(AD256):PLAD256PH:: CONVERT AD (ADDRESS) TO PH (POKEHI) AND PL (POKELO) ': AUDSUBS ENDC"" " "