' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( Ȍ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌPTON CT. ROCKFORD, IL 61111 815 877-1343 (VISA/MC) YOU WILL RECEIVE A UTILITY DISK, DOCUMENTATION, AND A VALIDATION STICKER AS PROOF OF PAYMENT. YOUR HONESTY WILL ALLOW DSR TO DISTRIBUTE FUTURE PROGRAMS THIS SAME, LOW-COST WAY. <>  IH 20 LDIVERSI-DOS(TM) BY BILL BASHAM C1982 DSR THIS DISK CONTAINS A HIGH-SPEED OPERATING SYSTEM CALLED DIVERSI-DOS. TO LEGALLY USE DIVERSI-DOS, PLEASE SEND A ONE-TIME FEE OF $30 DIRECTLY TO: DSR, INC. 5848 CRAMLHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 HL` *HVDP (FD Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NLi   L` -e L `sr ࣭ml ࣭srLLlۿڿLգ գ ze)rs zrsLq ] Qlr L̦ `8gh ࣥhgL `8LʨM ࣥˤLµH hLħõµ µõL&F`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LlLգcl mllm ꢥFLȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ u`浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d Рz# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `TTABLE2I:HV(A4402(I48).5)256J`DS,((HV(HV))256):DS1,(HV)PjVtf ******* QUARTER TONES TO PRINTER 1:TUNING$:"NOTE";:15:"FREQUENCY":KN4402(34)(I0232N(I2):CY$SP$ <(I2N)CY$(K `W.;Q`y4[vKhE( ]<m  O , wX0t <#%e'&* , />14`8:?A  DISPLAY MENU) :1:1:HEADING$ 3:SUBHDG$(MENU):24:"PRESS ";::"ESC";::" TO SELECT, ";::"RETURN";::" TO RUN"; OFFSET9MITEM(MENU) I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):   *******  KEY ROUTINE SITEMKITEM:MENUBASEKEYC SUBHDG$(MENU)SBHDG$(MENU)TUNING$L 510U 210s ITEMMITEM(MENU)ġ:2310 $KITEMITEM:KEYKEY(ITEM) .TUNING$TUNING$"."LINE$(MENU,ITEM) 8SITEM2:MENUSHFTKEY BSUBHDG$(MENU)SBHDG$(MENU)TUNING$ L510 V210) `ITEMMITEM(MENU)ġ:2310< jKEYKEYITEM2Y tKEY11KEYKEY12:1410o ~KEY0KEYKEY12 KEY0āI011:PITCH(I)RA(I)::KITEM1:3110 I0KEY1:PITCH(I)RA(12IKEY)2: IKEY11:PITCH(I)RA(IKEY): ITEM21490( TUNING$TUNING$(LINE$(MENU,ITEM),1). ; 3*******L 4OUTPUT MENUn >BINOUT1:PRINOUT1:T161:T41 HSITEM1:MENUOUTPUT R510 \210 fITEMMITEM(MENU)9910 pITEM1PRINOUT0:2210 zITEM2BINOUT0  ******* TARGET MENUBINOUT02310-SITEM1:MENUTAR6510?210ZITEMMITEM(MENU)9910qITEM1T40:2310ITEM2T160 ******* TUNING MENU SITEM1:MENUTUNING 510 210$ ITEMMITEM(MENU)9910. ITEMMTNE34108 ITEMEQTEMP4010(B ITEMQTNES4210=L ITEMETNES4410M ******* ] JUST TONEp TUNING$"JUST" RA(0)1:RA(1)1615:RA(2)98:RA(3)65:RA(4)54:RA(5)43:RA(6)6445:RA(7)32:RA(8)85:RA(9)53:RA(10)169:RA(11)158 KITEM1& 10100 5010: 3110-G ******* =H MEAN TONEUR SITEM1:MENUMCOMMA^\ 510gf 210p ITEMMITEM(MENU)2310 TUNING$"MEAN."LINE$(MENU,ITEM) COMMACOMMA(ITEM) W(3(2S2))(8081)COMMA I082:RA(I)WI: I7112:RA(I)S2W(I6):: I132:RA(I)(1S2)W(I6):] I5105:RA(I)2(RA(12I)):i KITEM1s~1010}50103710 ******* EQUAL TEMPEREDTUNING$"EQTEMP"I011:PITCH(I)2(I12):50102310g ******* h QUARTER TONES,rTUNING$"QTR"F|BINOUT1İ6010:7010[PRINOUT1İ6410e2310w/ ******* 0 EIGHTH TONES:TUNING$"8TH"DBINOUT1İ6210:7010NPRINOUT1İ6410X2310 ******* TUNINGS TO MEMORYBINOUT05510*KN16A440PITCH(9)KI011:FRQ(I)KNPITCH(I):VJ05mTBTTABLE24(5J)|MK1(2J)I011DSTB2I:HV(MKFRQ(I).5)256DS,((HV(HV))256):DS1,(HV)IJDSTTABLE144:HV(2FRQ(0).5)256- DS,((HV(HV))256):DS1,(HV)77010H{ *******a| TUNINGS TO PRINTERuPRINOUT056901:TUNING$::KN440PITCH(9)"NOTE";:15:"FREQUENCY":I0112:(KY$,I1,1);:15:KNPITCH(I):0:o ******* 6p QUARTER TONES TO MEMORYJzKNA4402(54)VI072DSTTABLE2I:HV(KN2(I24).5)256DS,((HV(HV))256):DS1,(HV)07 ******* 8 EIGHTH TONES TO MEMORYLI072$VDSWAVE MENU"ILI$(3,1)"UP":LI$(3,2)"DOWN":LI$(3,3)"EXIT TO WAVE MENU"SUBHDG$(1)" SELECT WAVEFORM TYPE":SU$(2)" SELECT SQUARE WAVE DUTY CYCLE":SU$(3)" SELECT RAMP DIRECTION"& *******& END&:"END OF CREATE WAVE_b4Yz,N:hIX ue F 7  $^m0!< _b=[%Y4yFJ gj  : d  u)0!`W.;Qiy4[v'K7hEN nm F , 6X0)!<#%e'&*- /l24`8R<?qC$(4,3)"C":LI$(4,4)"D":LI$(4,5)"E":LI$(4,6)"F":LI$(4,7)"G":LI$(4,8)EXIT$ LI$(5,1)"FLAT":LI$(5,2)"NATURAL":LI$(5,3)"SHARP":LI$(5,4)EXIT$ LI$(6,1)"1":LI$(6,2)"1/2":LI$(6,3)"1/3":LI$(6,4)"1/4":LI$(6,5)"1/6":LI$(6,6)"1/8":LI$(6,7)"1/10" `W -ARg~=[%Y4yFJ gj  : d  u)0!#%(2*,/R25`8";::" TO SELECT, ";::"";::" TO RUN."; OFFSET(((BOTMBAN)(TPBAN))MITEM)( A1MITEM:TPBAN(OFFSET(A1)):HT:LI$(A);:. 4 : @ F L ` " GET MENU ITEMt ,ITEMMITEM:320 1CH$CR$ı 6CH$ESC$350 ; CH$ DOES = ESC$ @PITEMITEM:ITEMITEM1 EITEMMITEMITEM1 JTPBAN(PITEM1)OFFSET:HT OLI$(PITEM);0 TTPBAN(ITEM1)OFFSET:HTD Y:LI$(ITEM);:R ^CH$:305X h^ rd |j p v | X     MAIN 100:5000:10000 INIT:200:300 ITEMMITEMė::38400:1020 :D$;"RUN "LI$(ITEM)    * ~ BINARY FILES: D$BL$P1$J D$BL$P2$P V p\ Xb @h (# ' GREETING/ID SCREEN '2:1:"SPECIAL TUNINGS AND PERIODIC WAVEFORMS" '5);"FILE CREATION UTILITIES V:1.0" '5:A129:"=";:'TPBAN:BAN1$'"THE TUNINGS AND WAVEFORMS UTILITIES"])'"CONTAINED MAY BE USED WITH EITHER".'"SOUNDCHASER(TM) 4-TRACK OR TURBO-TRAKS"3'10);"PERFORMANCE SOFTWARE."8':"TUNINGS FREQUENCY DATA FILES FOR:"='4);"JUST AND MEAN (A-G) TONE TUN`W -ANdx:Y"W-t8D Ze  q # ]   F}0Rh!#%(),.2t5`8"<>B       TTABLE2I:HV(A4402(I48).5)256J`DS,((HV(HV))256):DS1,(HV)PjVtf ******* QUARTER TONES TO PRINTER 1:TUNING$:"NOTE";:15:"FREQUENCY":KN4402(34)(I0232N(I2):CY$SP$ <(I2N)CY$(KRéԠӬî̯ ֱ BINOUT1:PRINOUT1:T161:T41 HSITEM1:MENUOUTPUT R510 \210 fITEMMITEM(MENU)9910 pITEM1PRINOUT0:2210 zITEM2BINOUT0  ******* TARGET MENUBINOUT02310-SITEM1:MENUTAR6510?210ZITEMMITEM(MENU)9910qITEM1T40:2310ITEM2T160 ******* TUNING MENU SITEM1:MENUTUNING 510 210$ ITEMMITEM(MENU)9910. ITEMMTNE34108 ITEMEQTEMP4010(B ITEMQTNES4210=L ITEMETNES4410M ******* ] JUST TONEp TUNING$"JUST" RA(0)1:RA(1)1615:RA(2)98:RA(3)65:RA(4)54:RA(5)43:RA(6)6445:RA(7)32:RA(8)85:RA(9)53:RA(10)169:RA(11)158 KITEM1& 10100 5010: 3110-G ******* =H MEAN TONEUR SITEM1:MENUMCOMMA^\ 510gf 210p ITEMMITEM(MENU)2310 TUNING$"MEAN."LINE$(MENU,ITEM) COMMACOMMA(ITEM) W(3(2S2))(8081)COMMA I082:RA(I)WI: I7112:RA(I)S2W(I6):: I132:RA(I)(1S2)W(I6):] I5105:RA(I)2(RA(12I)):i KITEM1s~1010}50103710 ******* EQUAL TEMPEREDTUNING$"EQTEMP"I011:PITCH(I)2(I12):50102310g ******* h QUARTER TONES,rTUNING$"QTR"F|BINOUT1İ6010:7010[PRINOUT1İ6410e2310w/ ******* 0 EIGHTH TONES:TUNING$"8TH"DBINOUT1İ6210:7010NPRINOUT1İ6410X2310 ******* TUNINGS TO MEMORYBINOUT05510*KN16A440PITCH(9)KI011:FRQ(I)KNPITCH(I):VJ05mTBTTABLE24(5J)|MK1(2J)I011DSTB2I:HV(MKFRQ(I).5)256DS,((HV(HV))256):DS1,(HV)IJDSTTABLE144:HV(2FRQ(0).5)256- DS,((HV(HV))256):DS1,(HV)77010H{ *******a| TUNINGS TO PRINTERuPRINOUT056901:TUNING$::KN440PITCH(9)"NOTE";:15:"FREQUENCY":I0112:(KY$,I1,1);:15:KNPITCH(I):0:o ******* 6p QUARTER TONES TO MEMORYJzKNA4402(54)VI072DSTTABLE2I:HV(KN2(I24).5)256DS,((HV(HV))256):DS1,(HV)07 ******* 8 EIGHTH TONES TO MEMORYLI072$VDS`W-=Ri}4Yz,N:hIX ue F 7  $^m0!<#%'H*-/24`8"TB243206HLNGTH$",L$62"@R7510FzVK *******iL BINARY SAVEV22:(33(NAME$))2::"SAVING ";NAME$:`D$;"BSAVE ";NAME$;",A";TB;LNGTH$? ******* @ INITIALIZE+JIITEMMENUOLDITEMSITEMJKKEYKNBRMKHVDSWOFFSETTBN0sTHT10:COMMA4:TTABLE22368:A440902:S2(2):BINOUTPRINOUTT16T41^OUTPUT1:TARGIT2:TUNING3:BASEKEY4:SHFTKEY5:MCOMMA6:EQTEMP1:JTNE2:MTNE3:QTNES4:ETNES5 MITEM(1)4:MI(2)4:MI(3)6:MI(4)8:MI(5)4:MI(6)8&I19:VT(I)2I4:DRA(11),PITCH(11),FRQ(11)COMMA(1)1:CO(2)12:CO(3)13:CO(4)14:CO(5)16:CO(6)18:CO(7)110KEY(1)9:KE(2)11:KE(3)0:KE(4)2:KE(5)4:KE(6)5:KE(7)7 D$(4):CR$(13):ESC$(27):SP$" "S CH$"A":NAME$"FORM":EXIT$"EXIT TO TUNING MENU":KEY$"A":LNGTH$",L$92":TUNING$"JUST"& HEADING$"CREATE TUNINGS: PASSPORT DESIGNS, INC"0 KY$"C D EF G A B":CY$SP$v LINE$(6,8)  LINE$(1,1)"BINARY FILE":LI$(1,2)"PRINTER":LI$(1,3)"BOTH":LI$(1,4)"QUIT"_ LI$(2,1)"TURBO-TRAKS":LI$(2,2)"DIGITAL 4-TRACK":LI$(2,3)"BOTH":LI$(2,4)"QUIT" LI$(3,1)"EQUAL TEMPERED":LI$(3,2)"JUST TONE":LI$(3,3)"MEAN TONE":LI$(3,4)"QUARTER TONES":LI$(3,5)"EIGHTH TONES":LI$(3,6)"EXIT TO OUTPUT MENU"e LI$(4,1)"A":LI$(4,2)"B":LI$(4,3)"C":LI$(4,4)"D":LI$(4,5)"E":LI$(4,6)"F":LI$(4,7)"G":LI$(4,8)EXIT$ LI$(5,1)"FLAT":LI$(5,2)"NATURAL":LI$(5,3)"SHARP":LI$(5,4)EXIT$' LI$(6,1)"1":LI$(6,2)"1/2":LI$(6,3)"1/3":LI$(6,4)"1/4":LI$(6,5)"1/6":LI$(6,6)"1/8":LI$(6,7)"1/10":LI$(6,8)EXIT$ !SUBHDG$(1)" SELECT OUTPUT":SU$(2)" SELECT TARGET SOFTWARE":SU$(3)" SELECT TUNING":SU$(6)" SELECT MEAN TONE COMMA"!!SBHDG$(4)" SELECT KEY BASE FOR ":SB$(5)" SELECT KEY SHIFT FOR "=!!LSPACE$" "j!(# MOVE TUNINGS FROM $5778-$57DA TO $5F00!2# POINTERS SET HERE. TO USE, CALL 768!<#250,120:251,87:252,218:253,87:254,0:255,95!#!& *******"& END OF PROGRA_b8Z~$S1pGG wah 0 M _0!.5)256- DS,((HV(HV))256):DS1,(HV)77010H{ *******a| TUNINGS TO PRINTERuPRINOUT056901:TUNING$::KN440PITCH(9)"NOTE";:15:"FREQUENCY":I0112:(KY$,I1,1);:15:KNPITCH(I):0:o ******* 6p QUARTER TONES TO MEMORYJzKNA4402(54)VI072DSTTABLE2I:HV(KN2(I24).5)256DS,((HV(HV))256):DS1,(HV)7 ******* 8 EIGHTH TONES TO MEMORYLI072VDSTTABLE2I:HV: 0:%o ******* Cp QUARTER TONES TO MEMORYWzKNA4402(54)cI072DSTTABLE2I:HV(KN2(I24).5)256DS,((HV(HV))256):DS1,(HV)07 ******* 8 EIGHTH TONES TO MEMORYLIFRQ(0).5)2564 DS,((HV(HV))256):DS1,(HV)>7010O{ *******h| TUNINGS TO PRINTER|PRINOUT056901:TUNING$::KN440PITCH(9)"NOTE";:15:"FREQUENCY":I0112:(KY$,I1,1);:15:KNPITCH(I)                4 SOUNDCHASER DIGITAL2 CREATE TUNINGSH COPYRIGHT 1983Z( PETE LEMAY- MOD(S): 4/20/83 BY: JOHN BOROWICZ2 PASSPORT DESIGNS, INC.< ALL RIGHTS RESERVEDc *******d BEGINn8010:2110 *******  GET ITEM* OLDITEMSITEM:ITEMSITEM:CH$"0": , ITEM LOOPI 6CH$CR$ı\ @CH$ESC$İ410 JVT(OLDITEM)OFFSET:HT:LINE$(MENU,OLDITEM) TVT(ITEM)OFFSET:HT::LINE$(MENU,ITEM);: ^CH$:310  INCREMENT ITEM OLDITEMITEM:ITEMITEM1 ITEMMITEM(MENU)ITEM1 0  ******* C  DISPLAY MENUi :1:1:HEADING$:A139:"=";: 4:SUBHDG$(MENU):24:"PRESS ";::"";::" TO SELECT, ";::"";::" TO RUN."; OFFSET9MITEM(MENU) I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):" 2  *******D  KEY ROUTINEa SITEMKITEM:MENUBASEKEY SUBHDG$(MENU)SBHDG$(MENU)TUNING$ 510 210 ITEMMITEM(MENU)ġ:2310 $KITEMITEM:KEYKEY(ITEM) %(TUNING$,4)"MEAN"1068 &J0 'I1(TUNING$)7 ((TUNING$,I,1)"."JJ1:J2KI= )] *J2TUNING$(TUNING$,K1)| ,(TUNING$,4)"JUST"1070 -TUNING$(TUNING$,4) .TUNING$TUNING$"."LINE$(MENU,ITEM) 8SITEM2:MENUSHFTKEY BSUBHDG$(MENU)SBHDG$(MENU)TUNING$ L510 V210. `ITEMMITEM(MENU)ġ:2310A jKEYKEYITEM2^ tKEY11KEYKEY12:1410t ~KEY0KEYKEY12 KEY0āI011:PITCH(I)RA(I)::KITEM1:1440 I0KEY1:PITCH(I)RA(12IKEY)2: IKEY11:PITCH(I)RA(IKEY):ITEM21490-TUNING$TUNING$(LINE$(MENU,ITEM),1)3@3*******Q4OUTPUT MENUs>BINOUT1:PRINOUT1:T161:T41HSITEM1:MENUOUTPUTR510\210fITEMMITEM(MENU)9910pITEM1PRINOUT0:2210zITEM2BINOUT0 *******  TARGET MENUBINOUT023104SITEM1:MENUTARGIT=510F210aITEMMITEM(MENU)9910xITEM1T40:2310ITEM2T160 ******* TUNING MENU SITEM1:MENUTUNING 510 210$ ITEMMITEM(MENU)2110. ITEMMTNE34108 ITEMEQTEMP4010/B ITEMQTNES4210DL ITEMETNES4410T ******* d JUST TONEw TUNING$"JUST" RA(0)1:RA(1)1615:RA(2)98:RA(3)65:RA(4)54:RA(5)43:RA(6)6445:RA(7)32:RA(8)85:RA(9)53:RA(10)169:RA(11)158 KITEM1& 10100 5010#: 31104G ******* DH MEAN TONE\R SITEM1:MENUMCOMMAe\ 510nf 210p ITEMMITEM(MENU)2310 TUNING$"MEAN."LINE$(MENU,ITEM) COMMACOMMA(ITEM) W(3(2S2))(8081)COMMA I082:RA(I)WI: I7112:RA(I)S2W(I6):A I132:RA(I)(1S2)W(I6):d I5105:RA(I)2(RA(12I)):p KITEM1z~101050103710 ******* EQUAL TEMPEREDTUNING$"EQTEMP"I011:PITCH(I)2(I12):50102310 g ******* !h QUARTER TONES3rTUNING$"QTR"M|BINOUT1İ6010:7010bPRINOUT1İ6410l2310~/ ******* 0 EIGHTH TONES:TUNING$"8TH"DBINOUT1İ6220:7010NPRINOUT1İ6610X2310 ******* TUNINGS TO MEMORYBINOUT055101KN16A440PITCH(9)RI011:FRQ(I)KNPITCH(I):]J05tTBTTABLE24(5J)MK1(2J)I011DSTB2I:HV(MKFRQ(I).5)256DS,((HV(HV))256):DS1,(HV)IJDSTTABLE144:HV(2         SOUNDCHASER DIGITAL2 CREATE WAVEFORMSG COPYRIGHT 1983X( PETE LEMAY- MOD(S): 4/20/83 BY: JOHN BOROWICZ 2 PASSPORT DESIGNS, INC.< ALL RIGHTS RESERVEDc*******d BEGINn8000:1010 ******* GET ITEM. OLDITEMSITEM:ITEMSITEM:CH$"0"> , ITEM LOOPM 6CH$CR$ı` @CH$ESC$İ410 JVT(OLDITEM)OFFSET:HT:LINE$(MENU,OLDITEM) TVT(ITEM)OFFSET:HT::LINE$(MENU,ITEM);: ^CH$:310  INCREMENT ITEM OLDITEMITEM:ITEMITEM1 ITEMMITEM(MENU)ITEM1$ 4  ******* G  DISPLAY MENUm :1:1:HEADING$:A139:"=";: 4:SUBHDG$(MENU):24:"PRESS ";::"";::" TO SELECT, ";::"";::" TO RUN."; OFFSET10MITEM(MENU)! I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):' 6  ******* F  MAIN MENU\ SITEM1:MENUMAINo 510: DISPLAY 210: GET ITEM ITEMMITEM(MENU)9910: END MENUITEM1 $MENUTRIANGLİ5010:1010  *******  SUB MENU 510: DISPLAY 210: GET ITEM= ITEMMITEM(MENU)1010: MAIN MENUZ MENUSQUAREİ4000:1010j 6010:1010y ******* SAVE WAVE NAME$"WAVE."NAME$:22:(33(NAME$))2::"SAVING ";NAME$: D$;"BSAVE ";NAME$;",A";WAVE;",L$100"   SQUARE/PULSE WAVE4 AMP1.0:ITEM74010D 1:5:958r 12:4:"ENTER DUTY CYCLE (1-100)%: ";TS$ (TS$)0(TS$)1004002 DU(ITEM)(((TS$)0.01)255) 1:13:958:14:4 "ENTER AMPLITUDE LEVEL (1-100)%: ";TS$(TS$)0(TS$)1004006*AMP(TS$)0.01SI0DUTY(ITEM):WAVEI,(AMP255):wIDUTY(ITEM)1255:WAVEI,0:NAME$"SQUARE""."LINE$(MENU,ITEM):SITEMITEM(NAME$,3)"XY%"NAME$(NAME$,(NAME$)3)((100((DU(ITEM)1)255)))"%"3010: ******* + TRIANGLE WAVEII063:WAVEI,1282I:iI64191:WAVEI,3832I:I192255:WAVEI,2I384:NAME$"TRIANGLE"3010:o ******* p RAMP WAVEzITEMUP6110: UPRAMPI0255:WAVEI,255I:+NAME$"RAMP.DOWN":6210: SAVE RAMP8 UPRAMPQI0255:WAVEI,I:eNAME$"RAMP.UP"u8 SAVE RAMPBSITEMITEM:3010:? *******@8191E INITIALIZEJIITEMMENUOLDITEMSITEMOFFSET0TMAIN1:SQUARE2:TRIANGLE4:UP1:HT10:WAVE163841^MITEM(1)4:MI(2)9:MI(3)3hDUTY(1)2:DU(2)7:DU(3)12:DU(4)25:DU(5)76:DU(6)0:DU(7)127:DU(8)255:AMP1.0:TS$""rI19:VT(I)2I4:|D$(4):CR$(13):ESC$(27)CH$"0":NAME$"FORM"HEADING$"CREATE WAVEFORMS: PASSPORT DESIGNS, INC"'LINE$(3,9)sLINE$(1,1)"SQUARE":LI$(1,2)"RAMP":LI$(1,3)"TRIANGLE":LI$(1,4)"QUIT" LI$(2,1)"1%":LI$(2,2)"3%":LI$(2,3)"5%":LI$(2,4)"10%":LI$(2,5)"30%":LI$(2,6)"50%":LI$(2,7)"XY%":LI$(2,8)"100%":LI$(2,9)"EXIT TO `W!0ERiAa,b:IX u & F    L$^0!$&(H*-026`8"TB24320 HLNGTH$",L$62":V22:(33(NAME$))2::"SAVING ";NAME$:``D$;"BSAVE ";NAME$;",A";TB;LNGTH$fy? ******* @ INITIALIZEJIITEMMENUOLDITEMSITEMJKEYKNBRMKHVDSWOFFSETTBN0THT10:COMMA4:TTABLE22368:A440902:S2(2):BINOUTPRINOUTT16T41w^OUTPUT1:TARGIT2:TUNING3:BASEKEY4:SHFTKEY5:MCOMMA6:EQTEMP1:JTNE2:MTNE3:QTNES4:ETNES5MITEM(1)4:MI(2)4:MI(3)6:MI(4)8:MI(5)4:MI(6)8I19:VT(I)2I3:RA(11),PITCH(11),FRQ(11)1COMMA(1)1:CO(2)12:CO(3)13:CO(4)14:CO(5)16:CO(6)18:CO(7)110oKEY(1)9:KE(2)11:KE(3)0:KE(4)2:KE(5)4:KE(6)5:KE(7)7 D$(4):CR$(13):ESC$(27):SP$" " CH$"A":NAME$"FORM":EXIT$"EXIT TO TUNING MENU":KEY$"A":LNGTH$",L$92":TUNING$"JUST"%& HEADING$"PASSPORT DESIGNS - CREATE TUNINGS"D0 KY$"C D EF G A B":CY$SP$Tv LINE$(6,8) LINE$(1,1)"BINARY FILE":LI$(1,2)"PRINTER":LI$(1,3)"BOTH":LI$(1,4)"QUIT" LI$(2,1)"TURBOTRAK":LI$(2,2)"4-TRAK":LI$(2,3)"BOTH":LI$(2,4)"QUIT" LI$(3,1)"EQUAL TEMPERED":LI$(3,2)"JUST TONE":LI$(3,3)"MEAN TONE":LI$(3,4)"QUARTER TONES":LI$(3,5)"EIGHTH TONES":LI$(3,6)"EXIT TO OUTPUT MENU" LI$(4,1)"A":LI$(4,2)"B":LI$(4,3)"C":LI$(4,4)"D":LI$(4,5)"E":LI$(4,6)"F":LI$(4,7)"G":LI$(4,8)EXIT$< LI$(5,1)"FLAT":LI$(5,2)"NATURAL":LI$(5,3)"SHARP":LI$(5,4)EXIT$ LI$(6,1)"1":LI$(6,2)"1/2":LI$(6,3)"1/3":LI$(6,4)"1/4":LI$(6,5)"1/6":LI$(6,6)"1/8":LI$(6,7)"1/10":LI$(6,8)EXIT$I!SUBHDG$(1)" SELECT OUTPUT":SU$(2)" SELECT TARGET SOFTWARE":SU$(3)" SELECT TUNING":SU$(6)" SELECT MEAN TONE COMMA"!SBHDG$(4)" SELECT KEY BASE FOR ":SB$(5)" SELECT KEY SHIFT FOR "(# MOVE TUNINGS FROM $5778-$57DA TO $5F002# POINTERS SET HERE. TO USE, CALL 7680 <#`W.;Qiy4[v'K7hEN ]nm F , 6X0t!<#%e'&*- /l24`8:?qC ITEM LOOP 6CH$CR$ı. @CH$ESC$İ410_ JVT(OLDITEM)OFFSET:HT:LINE$(MENU,OLDITEM) TVT(ITEM)OFFSET:HT::LINE$(MENU,ITEM);: ^CH$:310  INCREMENT ITEM OLDITEMITEM:ITEMITEM1 ITEMMITEM(MENU)ITEM1   *******   DISPLAY MENU+ :1:1:HEADING$ 3:SUBHDG$(MENU):24:"PRESS ";::"ESC";::" TO SELECT, ";::"RETURN";::" TO RUN"; OFFSET9MITEM(MENU) I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):   *******  MAIN MENU SITEM1:MENUMAIN' 510: DISPLAY; 210: GET ITEM\ ITEMMITEM(MENU)9910: ENDl MENUITEM1 $MENUTRIANGLİ5010:1010  *******  SUB MENU 510: DISPLAY 210: GET ITEM ITEMMITEM(MENU)1010: MAIN MENU MENUSQUAREİ4010:1010" 6010:10101 *******A SAVE WAVE NAME$"WAVE."NAME$:22:(33(NAME$))2::"SAVING ";NAME$: D$;"BSAVE ";NAME$;",A";WAVE;",L$100"  SQUARE WAVE I0DUTY(ITEM):WAVEI,255: IDUTY(ITEM)1255:WAVEI,0:> NAME$"SQUARE""."LINE$(MENU,ITEM):SITEMITEMJ 3010:Z  ******* n  TRIANGLE WAVE I063:WAVEI,1282I: I64191:WAVEI,3832I: I192255:WAVEI,2I384: NAME$"TRIANGLE" 3010: o ******* p RAMP WAVE)zITEMUP6110: UPRAMPFI0255:WAVEI,255I:nNAME$"RAMP.DOWN":6210: SAVE RAMP{ UPRAMPI0255:WAVEI,I:NAME$"RAMP.UP"8 SAVE RAMPBSITEMITEM:3010:? *******@ INITIALIZEENOMC,I,O$JIITEMMENUOLDITEMSITEMOFFSET0YTMAIN1:SQUARE2:TRIANGLE4:UP1:HT10:WAVE16384x^MITEM(1)4:MI(2)8:MI(3)3hDUTY(1)2:DU(2)7:DU(3)12:DU(4)25:DU(5)76:DU(6)127:DU(7)255rI19:VT(I)2I3:|D$(4):CR$(13):ESC$(27)CH$"0":NAME$"FORM"EHEADING$"PASSPORT DESIGNS - CREATE WAVEFORMS"ULINE$(3,8)LINE$(1,1)"SQUARE":LI$(1,2)"RAMP":LI$(1,3)"TRIANGLE":LI$(1,4)"QUIT")LI$(2,1)"1%":LI$(2,2)"3%":LI$(2,3)"5%":LI$(2,4)"10%":LI$(2,5)"30%":LI$(2,6)"50%":LI$`W -?Rf{8Z~$S1pGG wah 0 M _0!#%'<*,h/9265`8;G? C@_b4Yz,N:hIX ue F 7  $^m0!<`W-=R`x4Yz"N!hID WBe  7 $}m0]R!<#%'H* ,.24`8:>B  @LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL`W ->Re{7Z|$R-oGI rYi & F L"0e!t#%'7*,X/D25`8;:?B `W{ (8IZl~ $;Sl1Pp!GoGv Aw$a# h B 0  @_b7Z|$R-oGI rYi & F L"0e!t `W-=R`x4Yz"N!hID WBe  7 $}m0]R!<#%'H* ,.24`8:>B @LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL`W *=Rcz6TzO(lF8 kOO  p > 4{0=!a#=%'2*i,F/14`8V;)?zBxz|~ `W -ARgz6[%O4lFJ gj  : >  u){0!a#%(2*,F/R24`8<)?;C @_b7Z|$R-oGI rYi & F L"0e!a`W!1@P`p!4G[o0G_v &A\w$Ca # F h   @ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff,3)"EXIT TO MAIN MENU"SUBHDG$(1)" SELECT WAVEFORM TYPE":SU$(2)" SELECT SQUARE WAVE DUTY CYCLE":SU$(3)" SELECT RAMP DIRECTION"& *******& END&:"END OF CREATE WAVEFORMS":D$"RUN HELLO" `W -?Rf{8Z}$S1pGH vbh - L Z0!#%';*,d/<2.5`8;D?C     SOUNDCHASER DIGITAL2 CREATE WAVEFORMSG COPYRIGHT 1983X( PETE LEMAYu2 PASSPORT DESIGNS, INC.< ALL RIGHTS RESERVEDc*******d BEGINn8000:1010 *******  GET ITEMOLDITEMSITEM:ITEMSITEM:CH$"0" , ITEM LOOP 6CH$CR$ı. @CH$ESC$İ410_ JVT(OLDITEM)OFFSET:HT:LINE$(MENU,OLDITEM) TVT(ITEM)OFFSET:HT::LINE$(MENU,ITEM);: ^CH$:310  INCREMENT ITEM OLDITEMITEM:ITEMITEM1 ITEMMITEM(MENU)ITEM1   *******   DISPLAY MENU; :1:1:HEADING$:A139:"=";: 4:SUBHDG$(MENU):24:"PRESS ";::"";::" TO SELECT, ";::"";::" TO RUN."; OFFSET10MITEM(MENU) I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):   *******   MAIN MENU* SITEM1:MENUMAIN= 510: DISPLAYQ 210: GET ITEMr ITEMMITEM(MENU)9910: END MENUITEM1 $MENUTRIANGLİ5010:1010  *******  SUB MENU 510: DISPLAY 210: GET ITEM ITEMMITEM(MENU)1010: MAIN MENU( MENUSQUAREİ4000:10108 6010:1010G *******W SAVE WAVE NAME$"WAVE."NAME$:22:(33(NAME$))2::"SAVING ";NAME$: D$;"BSAVE ";NAME$;",A";WAVE;",L$100"  SQUARE/PULSE WAVE AMP1.0:ITEM74010 1:5:958@ 12:4:"ENTER DUTY CYCLE (1-100)%: ";TS$_ (TS$)0(TS$)1004002 DU(ITEM)(((TS$)0.01)255) 1:13:958:14:4 "ENTER AMPLITUDE LEVEL (1-100)%: ";TS$ (TS$)0(TS$)1004006 AMP(TS$)0.01!I0DUTY(ITEM):WAVEI,(AMP255):EIDUTY(ITEM)1255:WAVEI,0:xNAME$"SQUARE""."LINE$(MENU,ITEM):SITEMITEM(NAME$,3)"XX%"NAME$(NAME$,(NAME$)3)((100((DU(ITEM)1)255)))"%"3010: *******  TRIANGLE WAVEI063:WAVEI,1282I:7I64191:WAVEI,3832I:XI192255:WAVEI,2I384:mNAME$"TRIANGLE"y3010:o ******* p RAMP WAVEzITEMUP6110: UPRAMPI0255:WAVEI,255I:NAME$"RAMP.DOWN":6210: SAVE RAMP UPRAMPI0255:WAVEI,I:3NAME$"RAMP.UP"C8 SAVE RAMPZBSITEMITEM:3010:i? *******s@8191E INITIALIZEJIITEMMENUOLDITEMSITEMOFFSET0TMAIN1:SQUARE2:TRIANGLE4:UP1:HT10:WAVE16384^MITEM(1)4:MI(2)9:MI(3)3[hDUTY(1)2:DU(2)7:DU(3)12:DU(4)25:DU(5)76:DU(6)0:DU(7)127:DU(8)255:AMP1.0:TS$""trI19:VT(I)2I4:|D$(4):CR$(13):ESC$(27)CH$"0":NAME$"FORM"HEADING$"CREATE WAVEFORMS: PASSPORT DESIGNS, INC"LINE$(3,9)ALINE$(1,1)"SQUARE":LI$(1,2)"RAMP":LI$(1,3)"TRIANGLE":LI$(1,4)"QUIT"LI$(2,1)"1%":LI$(2,2)"3%":LI$(2,3)"5%":LI$(2,4)"10%":LI$(2,5)"30%":LI$(2,6)"50%":LI$(2,7)"XX%":LI$(2,8)"100%":LI$(2,9)"EXIT TO MAIN MENU"LI$(3,1)"UP":LI$(3,2)"DOWN":LI$(3 7689 <#250,120:251,87:252,218:253,87:254,0:255,95? #O & *******d & END OF PROGRAM &:"END OF CREATE TUNINGS" & Ic*******d BEGINn8010:2110 *******  GET ITEMOLDITEMSITEM:ITEMSITEM:CH$"0" ,_b7Z|$R-oGI rYi & F L"0e!  @(KY$,N1,1))F2:CY$;:15:KN2(I24)/P7Z:>d0DnV ******* u EIGHTH TONES TO PRINTER1:TUNING$:"NOTE";:15:"FREQUENCY":KN4402(34)I047N(I4):CY$SP$(I4N)CY$(KY$,N1,1)2:CY$;:15:KN2(I48)%":,,026DW ******* _X SAVE TUNINGS ON DISKobT1607210lNAME$"TUNEX."TUNING$vTBTTABLELNGTH$",L$92"7510*T407590/768:MOVE TUNINGS4NAME$"TUNE."TUNING$>TB24320HLNGTH$",L$62"CV22:(33(NAME$))2::"SAVING ";NAME$:i`D$;"BSAVE ";NAME$;",A";TB;LNGTH$o? ******* @ INITIALIZEJIITEMMENUOLDITEMSITEMJKEYKNBRMKHVDSWOFFSETTBN0THT10:COMMA4:TTABLE22368:A440902:S2(2):BINOUTPRINOUTT16T41^OUTPUT1:TARGIT2:TUNING3:BASEKEY4:SHFTKEY5:MCOMMA6:EQTEMP1:JTNE2:MTNE3:QTNES4:ETNES5MITEM(1)4:MI(2)4:MI(3)6:MI(4)8:MI(5)4:MI(6)8I19:VT(I)2I3:RA(11),PITCH(11),FRQ(11):COMMA(1)1:CO(2)12:CO(3)13:CO(4)14:CO(5)16:CO(6)18:CO(7)110xKEY(1)9:KE(2)11:KE(3)0:KE(4)2:KE(5)4:KE(6)5:KE(7)7 D$(4):CR$(13):ESC$(27):SP$" " CH$"A":NAME$"FORM":EXIT$"EXIT TO TUNING MENU":KEY$"A":LNGTH$",L$92":TUNING$"JUST".& HEADING$"PASSPORT DESIGNS - CREATE TUNINGS"M0 KY$"C D EF G A B":CY$SP$]v LINE$(6,8) LINE$(1,1)"BINARY FILE":LI$(1,2)"PRINTER":LI$(1,3)"BOTH":LI$(1,4)"QUIT" LI$(2,1)"TURBOTRAK":LI$(2,2)"4-TRAK":LI$(2,3)"BOTH":LI$(2,4)"QUIT" LI$(3,1)"EQUAL TEMPERED":LI$(3,2)"JUST TONE":LI$(3,3)"MEAN TONE":LI$(3,4)"QUARTER TONES":LI$(3,5)"EIGHTH TONES":LI$(3,6)"EXIT TO OUTPUT MENU" LI$(4,1)"A":LI$(4,2)"B":LI$(4,3)"C":LI$(4,4)"D":LI$(4,5)"E":LI$(4,6)"F":LI$(4,7)"G":LI$(4,8)EXIT$E LI$(5,1)"FLAT":LI$(5,2)"NATURAL":LI$(5,3)"SHARP":LI$(5,4)EXIT$ LI$(6,1)"1":LI$(6,2)"1/2":LI$(6,3)"1/3":LI$(6,4)"1/4":LI$(6,5)"1/6":LI$(6,6)"1/8":LI$(6,7)"1/10":LI$(6,8)EXIT$R!SUBHDG$(1)" SELECT OUTPUT":SU$(2)" SELECT TARGET SOFTWARE":SU$(3)" SELECT TUNING":SU$(6)" SELECT MEAN TONE COMMA"!SBHDG$(4)" SELECT KEY BASE FOR ":SB$(5)" SELECT KEY SHIFT FOR "(# MOVE TUNINGS FROM $5778-$57DA TO $5F00 2# POINTERS SET HERE. TO USE, CALL******* h QUARTER TONES.rTUNING$"QTR"H|BINOUT1İ6010:7010]PRINOUT1İ6410g2310y/ ******* 0 EIGHTH TONES:TUNING$"8TH"DBINOUT1İ6220:7010NPRINOUT1İ6610X2310 ******* TUNINGS TO MEMOR@  DISPLAY MENU) :1:1:HEADING$ 3:SUBHDG$(MENU):24:"PRESS ";::"ESC";::" TO SELECT, ";::"RETURN";::" TO RUN"; OFFSET9MITEM(MENU) I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):   *******  KEY ROUTINE  @  DISPLAY MENU) :1:1:HEADING$ 3:SUBHDG$(MENU):24:"PRESS ";::"ESC";::" TO SELECT, ";::"RETURN";::" TO RUN"; OFFSET9MITEM(MENU) I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):   *******  KEY ROUTINE SITEMKITEM:MENUBASEKEYC SUBHDG$(MENU)SBHDG$(MENU)TUNING$L 510U 210s ITEMMITEM(MENU)ġ:2310 $KITEMITEM:KEYKEY(ITEM) .TUNING$TUNING$"."LINE$(MENU,ITEM) 8SITEM2:MENUSHFTKEY BSUBHDG$(MENU)SBHDG$(MENU)TUNING$ L510 V210) `ITEMMITEM(MENU)ġ:2310< jKEYKEYITEM2Y tKEY11KEYKEY12:1410o ~KEY0KEYKEY12 KEY0āI011:PITCH(I)RA(I)::KITEM1:1440 I0KEY1:PITCH(I)RA(12IKEY)2: IKEY11:PITCH(I)RA(IKEY): ITEM21490( TUNING$TUNING$(LINE$(MENU,ITEM),1). ; 3*******L 4OUTPUT MENUn >BINOUT1:PRINOUT1:T161:T41 HSITEM1:MENUOUTPUT R510 \210 fITEMMITEM(MENU)9910 pITEM1PRINOUT0:2210 zITEM2BINOUT0  ******* TARGET MENUBINOUT02310/SITEM1:MENUTARGIT8510A210\ITEMMITEM(MENU)9910sITEM1T40:2310ITEM2T160 ******* TUNING MENU SITEM1:MENUTUNING 510 210$ ITEMMITEM(MENU)2110. ITEMMTNE34108 ITEMEQTEMP4010*B ITEMQTNES4210?L ITEMETNES4410O ******* _ JUST TONEr TUNING$"JUST" RA(0)1:RA(1)1615:RA(2)98:RA(3)65:RA(4)54:RA(5)43:RA(6)6445:RA(7)32:RA(8)85:RA(9)53:RA(10)169:RA(11)158 KITEM1 & 10100 5010: 3110/G ******* ?H MEAN TONEWR SITEM1:MENUMCOMMA`\ 510if 210p ITEMMITEM(MENU)2310 TUNING$"MEAN."LINE$(MENU,ITEM) COMMACOMMA(ITEM) W(3(2S2))(8081)COMMA I082:RA(I)WI: I7112:RA(I)S2W(I6):< I132:RA(I)(1S2)W(I6):_ I5105:RA(I)2(RA(12I)):k KITEM1u~101050103710 ******* EQUAL TEMPEREDTUNING$"EQTEMP"I011:PITCH(I)2(I12):50102310g  @STTABLE2I:HV(A4402(I48).5)256L`DS,((HV(HV))256):DS1,(HV)RjXth ******* QUARTER TONES TO PRINTER 1:TUNING$:"NOTE";:15:"FREQUENCY":KN4402(34)(I0232N(I2):CY$SP$ <(I2N)CY$(KY$,N1,1))F2:CY$;:15:KN2(I24)/P7Z:>d0DnV ******* u EIGHTH TONES TO PRINTER1:TUNING$:"NOTE";:15:"FREQUENCY":KN4402(34)I047N(I4):CY$SP$(I4N)CY$(KY$,N1,1)2:CY$;:15:KN2(I48)%":,,026DW ******* _X SAVE TUNINGS ON DISKobT1607210lNAME$"TUNEX."TUNING$vTBTTABLELNGTH$",L$92"7510*T407590/768:MOVE TUNINGS4NAME$"TUNE."TUNING$>TB24320HLNGTH$",L$62"CV22:(33(NAME$))2::"SAVING ";NAME$:i`D$;"BSAVE ";NAME$;",A";TB;LNGTH$o? ******* @ INITIALIZEJIITEMMENUOLDITEMSITEMJKEYKNBRMKHVDSWOFFSETTBN0THT10:COMMA4:TTABLE22368:A440902:S2(2):BINOUTPRINOUTT16T41^OUTPUT1:TARGIT2:TUNING3:BASEKEY4:SHFTKEY5:MCOMMA6:EQTEMP1:JTNE2:MTNE3:QTNES4:ETNES5MITEM(1)4:MI(2)4:MI(3)6:MI(4)8:MI(5)4:MI(6)8I19:VT(I)2I3:RA(11),PITCH(11),FRQ(11):COMMA(1)1:CO(2)12:CO(3)13:CO(4)14:CO(5)16:CO(6)18:CO(7)110xKEY(1)9:KE(2)11:KE(3)0:KE(4)2:KE(5)4:KE(6)5:KE(7)7 D$(4):CR$(13):ESC$(27):SP$" " CH$"A":NAME$"FORM":EXIT$"EXIT TO TUNING MENU":KEY$"A":LNGTH$",L$92":TUNING$"JUST".& HEADING$"PASSPORT DESIGNS - CREATE TUNINGS"M0 KY$"C D EF G A B":CY$SP$]v LINE$(6,8) LINE$(1,1)"BINARY FILE":LI$(1,2)"PRINTER":LI$(1,3)"BOTH":LI$(1,4)"QUIT" LI$(2,1)"TURBOTRAK":LI$(2,2)"4-TRAK":LI$(2,3)"BOTH":LI$(2,4)"QUIT" LI$(3,1)"EQUAL TEMPERED":LI$(3,2)"JUST TONE":LI$(3,3)"MEAN TONE":LI$(3,4)"QUARTER TONES":LI$(3,5)"EIGHTH TONES":LI$(3,6)"EXIT TO OUTPUT MENU" LI$(4,1)"A":LI$(4,2)"B":LI$(4,3)"C":LI$(4,4)"D":LI$(4,5)"E":LI$(4,6)"F":LI$(4,7)"G":LI$(4,8)EXIT$E LI$(5,1)"FLAT":LI$(5,2)"NATURAL":LI$(5,3)"SHARP":LI$(5,4)EXIT$ LI$(6,1)"1":LI$(6,2)"1/2":LI$(6,3)"1/3":LI$(6,4)"1/4":LI$(6,5)"1/6":LI$(6,6)"1/8":LI$(6,7)"1/10":LI$(6,8)EXIT$R!SUBHDG$(1)" SELECT OUTPUT":SU$(2)" SELECT TARGET SOFTWARE":SU$(3)" SELECT TUNING":SU$(6)" SELECT MEAN TONE COMMA"!SBHDG$(4)" SELECT KEY BASE FOR ":SB$(5)" SELECT KEY SHIFT FOR "(# MOVE TUNINGS FROM $5778-$57DA TO $5F00 2# POINTERS SET HERE. TO USE, CALL 7689 <#250,120:251,87:252,218:253,87:254,0:255,95? #O & *******d & END OF PROGRAM &:"END OF CREATE TUNINGS" & Ic*******d BEGINn8010:2110 *******  GET ITEMOLDITEMSITEM:ITEMSITEM:CH$"0" , @ _b8Z~$S1pGG wah 0 M _0!FORMS":D$"RUN HELLO" 1 @ /éԠӬî̯ ֱ `W -?Rf{8Z~$S1pGG wah 0 M _0!#%'<*,h/9265`8;G? C  @}{ywusqomkigeca_][YWUSQOMKIGECA?=;97531/-+)'%#!   "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~_b8Z~$S1pGG wah 0 M _0! ITEM LOOP 6CH$CR$ı, @CH$ESC$İ410] JVT(OLDITEM)OFFSET:HT:LINE$(MENU,OLDITEM) TVT(ITEM)OFFSET:HT::LINE$(MENU,ITEM);: ^CH$:310  INCREMENT ITEM OLDITEMITEM:ITEMITEM1 ITEMMITEM(MENU)ITEM1   *******   DISPLAY MENU) :1:1:HEADING$ 3:SUBHDG$(MENU):24:"PRESS ";::"ESC";::" TO SELECT, ";::"RETURN";::" TO RUN"; OFFSET9MITEM(MENU) I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):  3******* 4OUTPUT MENU >BINOUT1:OUT1:T161:T412 HSITEM1:MENUOUTPUT; R510D \210_ fITEMMITEM(MENU)9910x pITEM1ĺOUT0:2210 zITEM2BINOUT0  *******  TARGET MENU BINOUT02310 SITEM1:MENUTAR 510 210 ITEMMITEM(MENU)9910 ITEM1T40:2310, ITEM2T160;  *******M  TUNING MENUe  SITEM1:MENUTUNINGn  510w  210 $ ITEMMITEM(MENU)9910 . ITEMMTNE3410 8 ITEMEQTEMP4010 B ITEMQTNES4210 L ITEMETNES4410 *******  JUST TONE TUNING$"JUST" RA(0)1:RA(1)1615:RA(2)98:RA(3)65:RA(4)54:RA(5)43:RA(6)6445:RA(7)32:RA(8)85:RA(9)53:RA(10)169:RA(11)158 KITEM1 & 1010 0 5010 : 3110 G ******* H MEAN TONE R SITEM1:MENUMCOMMA\ 510f 210+p ITEMMITEM(MENU)2310P TUNING$"MEAN."LINE$(MENU,ITEM)f COMMACOMMA(ITEM) W(3(2S2))(8081)COMMA I082:RA(I)WI: I7112:RA(I)S2W(I6): I132:RA(I)(1S2)W(I6): I5105:RA(I)2(RA(12I)): KITEM1~1010&501003710@ *******U EQUAL TEMPEREDjTUNING$"EQTEMP"I011:PITCH(I)2(I12):50102310 UGINn8010:2110 *******  GET ITEMOLDITEMSITEM:ITEMSITEM:CH$"0" , `W{ (8IZl~ $;Sl1Pp!GoGv Aw$a# h B 0 ! `W -?Rf{8Z~$T1pGH xbh 1 P b0!#%';*,d/<2A5`8;D?C!_b(8IZl~ $;Sl1Pp!GoGv Aw$a ITEM LOOP 6CH$CR$ı, @CH$ESC$İ410] JVT(OLDITEM)OFFSET:HT:LINE$(MENU,OLDITEM) TVT(ITEM)OFFSET:HT::LINE$(MENU,ITEM);: ^CH$:310  INCREMENT ITEM OLDITEMITEM:ITEMITEM1 ITEMMITEM(MENU)ITEM1   *******   DISPLAY MENU) :1:1:HEADING$ 3:SUBHDG$(MENU):24:"PRESS ";::"ESC";::" TO SELECT, ";::"RETURN";::" TO RUN"; OFFSET9MITEM(MENU) I1MITEM(MENU):VT(I)OFFSET:HT:LINE$(MENU,I):   *******  KEY ROUTINE SITEMKITEM:MENUBASEKEYC SUBHDG$(MENU)SBHDG$(MENU)TUNING$L 510U 210s ITEMMITEM(MENU)ġ:2310 $KITEMITEM:KEYKEY(ITEM) .TUNING$TUNING$"."LINE$(MENU,ITEM) 8SITEM2:MENUSHFTKEY BSUBHDG$(MENU)SBHDG$(MENU)TUNING$ L510 V210) `ITEMMITEM(MENU)ġ:2310< jKEYKEYITEM2Y tKEY11KEYKEY12:1410o ~KEY0KEYKEY12 KEY0āI011:PITCH(I)RA(I)::KITEM1:3110 I0KEY1:PITCH(I)RA(12IKEY)2: IKEY11:PITCH(I)RA(IKEY): ITEM21490( TUNING$TUNING$(LINE$(MENU,ITEM),1). ; 3*******L 4OUTPUT MENUk >BINOUT1:OUT1:T161:T41 HSITEM1:MENUOUTPUT R510 \210 fITEMMITEM(MENU)9910 pITEM1ĺOUT0:2210 zITEM2BINOUT0  *******  TARGET MENUBINOUT02310'SITEM1:MENUTAR05109210TITEMMITEM(MENU)9910kITEM1T40:2310}ITEM2T160 ******* TUNING MENU SITEM1:MENUTUNING 510 210$ ITEMMITEM(MENU)9910. ITEMMTNE3410 8 ITEMEQTEMP4010"B ITEMQTNES42107L ITEMETNES4410G ******* W JUST TONEj TUNING$"JUST" RA(0)1:RA(1)1615:RA(2)98:RA(3)65:RA(4)54:RA(5)43:RA(6)6445:RA(7)32:RA(8)85:RA(9)53:RA(10)169:RA(11)158 KITEM1& 1010 0 5010: 3110'G ******* 7H MEAN TONEOR SITEM1:MENUMCOMMAX\ 510af 210|p ITEMMITEM(MENU)2310 TUNING$"MEAN."LINE$(MENU,ITEM) COMMACOMMA(ITEM) W(3(2S2))(8081)COMMA I082:RA(I)WI: I7112:RA(I)S2W(I6):4 I132:RA(I)(1S2)W(I6):W I5105:RA(I)2(RA(12I)):c KITEM1m~1010w50103710 ******* EQUAL TEMPEREDTUNING$"EQTEMP"I011:PITCH(I)2(I12):50102310 *H$"0" ,"