/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / PRINTER-(SIDPLAYER) / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 30 20 50 52 49 4e | 54 20 43 48 52 24 28 31 |100 PRIN|T CHR$(1|
|00000010| 34 37 29 3a 50 52 49 4e | 54 20 22 20 53 49 44 50 |47):PRIN|T " SIDP|
|00000020| 4c 41 59 45 52 20 4d 55 | 53 49 43 20 46 49 4c 45 |LAYER MU|SIC FILE|
|00000030| 20 50 52 49 4e 54 45 52 | 22 0a 31 31 30 20 50 52 | PRINTER|".110 PR|
|00000040| 49 4e 54 20 22 20 42 59 | 20 43 52 41 49 47 20 43 |INT " BY| CRAIG C|
|00000050| 48 41 4d 42 45 52 4c 41 | 49 4e 22 3a 50 52 49 4e |HAMBERLA|IN":PRIN|
|00000060| 54 3a 47 4f 54 4f 20 38 | 30 30 0a 33 30 30 20 4b |T:GOTO 8|00.300 K|
|00000070| 3d 4c 41 2b 36 2b 46 4e | 44 50 28 4c 41 29 2b 46 |=LA+6+FN|DP(LA)+F|
|00000080| 4e 44 50 28 4c 41 2b 32 | 29 2b 46 4e 44 50 28 4c |NDP(LA+2|)+FNDP(L|
|00000090| 41 2b 34 29 3a 53 24 3d | 22 20 22 0a 33 31 30 20 |A+4):S$=|" ".310 |
|000000a0| 4a 3d 50 45 45 4b 28 4b | 29 3a 4b 3d 4b 2b 31 3a |J=PEEK(K|):K=K+1:|
|000000b0| 49 46 20 4a 20 41 4e 44 | 20 4a 3c 3e 31 33 20 54 |IF J AND| J<>13 T|
|000000c0| 48 45 4e 20 53 24 3d 53 | 24 2b 43 48 52 24 28 4a |HEN S$=S|$+CHR$(J|
|000000d0| 29 3a 47 4f 54 4f 20 33 | 31 30 0a 33 32 30 20 50 |):GOTO 3|10.320 P|
|000000e0| 52 49 4e 54 20 53 24 3a | 49 46 20 4a 20 54 48 45 |RINT S$:|IF J THE|
|000000f0| 4e 20 53 24 3d 22 20 22 | 3a 47 4f 54 4f 20 33 31 |N S$=" "|:GOTO 31|
|00000100| 30 0a 33 33 30 20 50 52 | 49 4e 54 20 22 20 56 4f |0.330 PR|INT " VO|
|00000110| 49 43 45 20 31 20 20 20 | 20 20 20 20 20 20 20 20 |ICE 1   |        |
|00000120| 20 20 20 20 20 20 20 56 | 4f 49 43 45 20 32 20 20 |       V|OICE 2  |
|00000130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000140| 56 4f 49 43 45 20 33 00 | 0a 33 34 30 20 41 3d 4c |VOICE 3.|.340 A=L|
|00000150| 41 2b 36 3a 46 4f 52 20 | 56 3d 30 20 54 4f 20 32 |A+6:FOR |V=0 TO 2|
|00000160| 3a 41 28 56 29 3d 41 3a | 41 3d 41 2b 46 4e 44 50 |:A(V)=A:|A=A+FNDP|
|00000170| 28 4c 41 2b 32 2a 56 29 | 3a 45 28 56 29 3d 41 3a |(LA+2*V)|:E(V)=A:|
|00000180| 56 28 56 29 3d 31 0a 33 | 34 35 20 4d 44 28 56 29 |V(V)=1.3|45 MD(V)|
|00000190| 3d 30 3a 54 28 31 2c 56 | 29 3d 31 32 3a 4e 3d 31 |=0:T(1,V|)=12:N=1|
|000001a0| 34 34 3a 46 4f 52 20 4a | 3d 32 20 54 4f 20 37 3a |44:FOR J|=2 TO 7:|
|000001b0| 54 28 4a 2c 56 29 3d 4e | 3a 4e 3d 4e 2f 32 3a 4e |T(J,V)=N|:N=N/2:N|
|000001c0| 45 58 54 3a 4e 45 58 54 | 3a 4b 3d 33 3a 4c 43 3d |EXT:NEXT|:K=3:LC=|
|000001d0| 36 0a 33 35 30 20 50 52 | 49 4e 54 20 22 20 22 3b |6.350 PR|INT " ";|
|000001e0| 3a 46 4f 52 20 56 3d 30 | 20 54 4f 20 32 3a 49 46 |:FOR V=0| TO 2:IF|
|000001f0| 20 56 28 56 29 3d 30 20 | 54 48 45 4e 20 53 24 3d | V(V)=0 |THEN S$=|
|00000200| 22 22 3a 47 4f 54 4f 20 | 34 38 30 0a 33 36 30 20 |"":GOTO |480.360 |
|00000210| 49 46 20 41 28 56 29 3d | 45 28 56 29 20 54 48 45 |IF A(V)=|E(V) THE|
|00000220| 4e 20 53 24 3d 22 20 22 | 2b 43 4e 24 28 32 37 29 |N S$=" "|+CN$(27)|
|00000230| 2b 53 54 52 24 28 4d 44 | 28 56 29 29 3a 56 28 56 |+STR$(MD|(V)):V(V|
|00000240| 29 3d 30 3a 4b 3d 4b 2d | 31 3a 47 4f 54 4f 20 34 |)=0:K=K-|1:GOTO 4|
|00000250| 38 30 0a 33 37 30 20 49 | 46 20 4d 4e 28 56 29 20 |80.370 I|F MN(V) |
|00000260| 54 48 45 4e 20 53 24 3d | 53 54 52 24 28 4d 4e 28 |THEN S$=|STR$(MN(|
|00000270| 56 29 2d 31 29 3a 53 24 | 3d 4d 49 44 24 28 53 24 |V)-1):S$|=MID$(S$|
|00000280| 2c 32 29 3a 4d 4e 28 56 | 29 3d 30 3a 47 4f 54 4f |,2):MN(V|)=0:GOTO|
|00000290| 20 34 38 30 0a 33 38 30 | 20 4e 3d 50 45 45 4b 28 | 480.380| N=PEEK(|
|000002a0| 41 28 56 29 29 3a 4e 32 | 3d 50 45 45 4b 28 41 28 |A(V)):N2|=PEEK(A(|
|000002b0| 56 29 2b 31 29 3a 41 28 | 56 29 3d 41 28 56 29 2b |V)+1):A(|V)=A(V)+|
|000002c0| 32 0a 33 39 30 20 4a 3d | 31 32 3a 4f 4e 20 4e 20 |2.390 J=|12:ON N |
|000002d0| 41 4e 44 20 33 20 47 4f | 54 4f 20 35 30 30 2c 35 |AND 3 GO|TO 500,5|
|000002e0| 33 30 2c 36 39 30 0a 34 | 30 30 20 54 3d 4e 32 20 |30,690.4|00 T=N2 |
|000002f0| 41 4e 44 20 37 3a 53 24 | 3d 22 20 22 2b 4d 49 44 |AND 7:S$|=" "+MID|
|00000300| 24 28 22 52 43 44 45 46 | 47 41 42 22 2c 54 2b 31 |$("RCDEF|GAB",T+1|
|00000310| 2c 31 29 2b 22 20 22 0a | 34 31 30 20 49 46 20 54 |,1)+" ".|410 IF T|
|00000320| 3d 30 20 54 48 45 4e 20 | 53 24 3d 53 24 2b 22 20 |=0 THEN |S$=S$+" |
|00000330| 20 20 20 22 3a 47 4f 54 | 4f 20 34 33 30 0a 34 32 |   ":GOT|O 430.42|
|00000340| 30 20 53 24 3d 53 24 2b | 4d 49 44 24 28 22 53 20 |0 S$=S$+|MID$("S |
|00000350| 46 22 2c 4e 32 2f 36 34 | 2c 31 29 2b 53 54 52 24 |F",N2/64|,1)+STR$|
|00000360| 28 4e 4f 54 20 4e 32 2f | 38 20 41 4e 44 20 37 29 |(NOT N2/|8 AND 7)|
|00000370| 2b 22 20 22 0a 34 33 30 | 20 54 3d 4e 2f 34 20 41 |+" ".430| T=N/4 A|
|00000380| 4e 44 20 37 3a 49 46 20 | 54 3d 30 20 54 48 45 4e |ND 7:IF |T=0 THEN|
|00000390| 20 53 24 3d 53 24 2b 22 | 41 42 53 22 3a 47 4f 54 | S$=S$+"|ABS":GOT|
|000003a0| 4f 20 34 38 30 0a 34 34 | 30 20 53 24 3d 53 24 2b |O 480.44|0 S$=S$+|
|000003b0| 4d 49 44 24 28 22 55 57 | 48 51 45 53 54 22 2c 54 |MID$("UW|HQEST",T|
|000003c0| 2c 31 29 3a 49 46 20 4e | 20 41 4e 44 20 33 32 20 |,1):IF N| AND 32 |
|000003d0| 54 48 45 4e 20 53 24 3d | 53 24 2b 22 20 44 22 3a |THEN S$=|S$+" D":|
|000003e0| 47 4f 54 4f 20 34 36 30 | 0a 34 35 30 20 53 24 3d |GOTO 460|.450 S$=|
|000003f0| 53 24 2b 22 20 20 22 0a | 34 36 30 20 49 46 20 4e |S$+"  ".|460 IF N|
|00000400| 20 41 4e 44 20 36 34 20 | 54 48 45 4e 20 53 24 3d | AND 64 |THEN S$=|
|00000410| 53 24 2b 22 20 54 22 0a | 34 37 30 20 4d 44 28 56 |S$+" T".|470 MD(V|
|00000420| 29 3d 4d 44 28 56 29 2b | 54 28 54 2c 56 29 3a 49 |)=MD(V)+|T(T,V):I|
|00000430| 46 20 4e 20 41 4e 44 20 | 33 32 20 54 48 45 4e 20 |F N AND |32 THEN |
|00000440| 4d 44 28 56 29 3d 4d 44 | 28 56 29 2b 54 28 54 2b |MD(V)=MD|(V)+T(T+|
|00000450| 31 2c 56 29 0a 34 38 30 | 20 49 46 20 56 3d 32 20 |1,V).480| IF V=2 |
|00000460| 4f 52 20 56 3d 31 20 41 | 4e 44 20 56 28 32 29 3d |OR V=1 A|ND V(2)=|
|00000470| 30 20 54 48 45 4e 20 50 | 52 49 4e 54 20 53 24 3a |0 THEN P|RINT S$:|
|00000480| 56 3d 32 3a 47 4f 54 4f | 20 34 38 34 0a 34 38 32 |V=2:GOTO| 484.482|
|00000490| 20 50 52 49 4e 54 20 53 | 24 20 53 50 43 28 32 35 | PRINT S|$ SPC(25|
|000004a0| 2d 4c 45 4e 28 53 24 29 | 29 3b 0a 34 38 34 20 4e |-LEN(S$)|);.484 N|
|000004b0| 45 58 54 3a 4c 43 3d 4c | 43 2b 31 3a 49 46 20 4c |EXT:LC=L|C+1:IF L|
|000004c0| 43 3d 36 30 20 54 48 45 | 4e 20 46 4f 52 20 4a 3d |C=60 THE|N FOR J=|
|000004d0| 31 20 54 4f 20 36 3a 50 | 52 49 4e 54 3a 4e 45 58 |1 TO 6:P|RINT:NEX|
|000004e0| 54 3a 4c 43 3d 30 3a 52 | 45 4d 20 54 4f 50 20 4f |T:LC=0:R|EM TOP O|
|000004f0| 46 20 46 4f 52 4d 0a 34 | 38 36 20 49 46 20 4b 20 |F FORM.4|86 IF K |
|00000500| 54 48 45 4e 20 4e 3d 46 | 52 45 28 30 29 3a 47 4f |THEN N=F|RE(0):GO|
|00000510| 54 4f 20 33 35 30 0a 34 | 39 30 20 50 52 49 4e 54 |TO 350.4|90 PRINT|
|00000520| 23 31 3a 43 4c 4f 53 45 | 20 31 3a 50 52 49 4e 54 |#1:CLOSE| 1:PRINT|
|00000530| 3a 52 55 4e 20 38 30 30 | 0a 35 30 30 20 4e 3d 4e |:RUN 800|.500 N=N|
|00000540| 32 3a 49 46 20 28 4e 20 | 41 4e 44 20 31 35 29 3d |2:IF (N |AND 15)=|
|00000550| 37 20 54 48 45 4e 20 54 | 3d 49 4e 54 28 4e 2f 33 |7 THEN T|=INT(N/3|
|00000560| 32 29 2a 09 0a 35 31 30 | 20 4a 3d 31 3a 49 46 20 |2)*..510| J=1:IF |
|00000570| 28 4e 20 41 4e 44 20 37 | 29 3d 33 20 54 48 45 4e |(N AND 7|)=3 THEN|
|00000580| 20 54 3d 49 4e 54 28 4e | 2f 31 36 29 3a 53 24 3d | T=INT(N|/16):S$=|
|00000590| 22 20 22 2b 43 4e 24 28 | 32 38 2b 54 29 3a 47 4f |" "+CN$(|28+T):GO|
|000005a0| 54 4f 20 35 38 30 0a 35 | 33 30 20 49 46 20 28 4e |TO 580.5|30 IF (N|
|000005b0| 20 41 4e 44 20 41 4d 28 | 4a 29 29 3c 3e 43 4d 28 | AND AM(|J))<>CM(|
|000005c0| 4a 29 20 54 48 45 4e 20 | 4a 3d 4a 2b 31 3a 47 4f |J) THEN |J=J+1:GO|
|000005d0| 54 4f 20 35 33 30 0a 35 | 34 30 20 53 24 3d 22 20 |TO 530.5|40 S$=" |
|000005e0| 22 2b 43 4e 24 28 4a 29 | 3a 49 46 20 4a 3c 37 20 |"+CN$(J)|:IF J<7 |
|000005f0| 54 48 45 4e 20 53 24 3d | 53 24 2b 53 54 52 24 28 |THEN S$=|S$+STR$(|
|00000600| 28 4e 20 41 4e 44 20 4e | 4f 54 20 41 4d 28 4a 29 |(N AND N|OT AM(J)|
|00000610| 29 2f 31 36 29 0a 35 35 | 30 20 49 46 20 4a 3c 31 |)/16).55|0 IF J<1|
|00000620| 30 20 47 4f 54 4f 20 34 | 38 30 0a 35 36 30 20 4f |0 GOTO 4|80.560 O|
|00000630| 4e 20 4a 2d 39 20 47 4f | 54 4f 20 36 30 30 2c 36 |N J-9 GO|TO 600,6|
|00000640| 30 30 2c 36 31 30 2c 36 | 32 30 2c 36 33 30 2c 36 |00,610,6|20,630,6|
|00000650| 34 30 2c 36 35 30 2c 36 | 35 30 2c 36 35 30 2c 36 |40,650,6|50,650,6|
|00000660| 36 30 2c 36 36 30 0a 35 | 36 35 20 4f 4e 20 4a 2d |60,660.5|65 ON J-|
|00000670| 32 30 20 47 4f 54 4f 20 | 36 35 30 2c 36 35 30 2c |20 GOTO |650,650,|
|00000680| 36 36 30 2c 36 38 30 2c | 36 35 30 2c 36 37 35 2c |660,680,|650,675,|
|00000690| 36 37 30 0a 35 37 30 20 | 53 24 3d 22 20 57 41 56 |670.570 |S$=" WAV|
|000006a0| 45 46 4f 52 4d 20 22 2b | 4d 49 44 24 28 22 4e 20 |EFORM "+|MID$("N |
|000006b0| 20 54 20 20 53 20 20 54 | 53 20 50 20 20 54 50 20 | T  S  T|S P  TP |
|000006c0| 53 50 20 54 53 50 22 2c | 54 2c 33 29 3a 47 4f 54 |SP TSP",|T,3):GOT|
|000006d0| 4f 20 34 38 30 0a 35 37 | 35 20 53 24 3d 22 20 46 |O 480.57|5 S$=" F|
|000006e0| 49 4c 54 45 52 20 4d 4f | 44 45 20 22 2b 4d 49 44 |ILTER MO|DE "+MID|
|000006f0| 24 28 22 4f 46 46 4c 20 | 20 42 20 20 4c 42 20 48 |$("OFFL | B  LB H|
|00000700| 20 20 4c 48 20 42 48 20 | 4c 42 48 22 2c 54 2c 33 |  LH BH |LBH",T,3|
|00000710| 29 3a 47 4f 54 4f 20 34 | 38 30 0a 35 38 30 20 49 |):GOTO 4|80.580 I|
|00000720| 46 20 54 20 54 48 45 4e | 20 53 24 3d 53 24 2b 4d |F T THEN| S$=S$+M|
|00000730| 49 44 24 28 22 20 4e 4f | 20 59 45 53 22 2c 31 2b |ID$(" NO| YES",1+|
|00000740| 28 4e 2f 38 20 41 4e 44 | 20 31 29 2a 33 2c 34 29 |(N/8 AND| 1)*3,4)|
|00000750| 3a 47 4f 54 4f 20 34 38 | 30 0a 35 38 35 20 53 24 |:GOTO 48|0.585 S$|
|00000760| 3d 53 24 2b 4d 49 44 24 | 28 22 20 55 50 20 20 44 |=S$+MID$|(" UP  D|
|00000770| 4f 57 4e 22 2c 28 28 4e | 20 41 4e 44 20 38 29 3d |OWN",((N| AND 8)=|
|00000780| 30 29 2a 34 2b 35 2c 35 | 29 3a 47 4f 54 4f 20 34 |0)*4+5,5|):GOTO 4|
|00000790| 38 09 0a 36 30 30 20 53 | 24 3d 53 24 2b 53 54 52 |8..600 S|$=S$+STR|
|000007a0| 24 28 4e 2f 38 20 41 4e | 44 20 31 35 29 3a 47 4f |$(N/8 AN|D 15):GO|
|000007b0| 54 4f 20 34 38 30 0a 36 | 31 30 20 53 24 3d 53 24 |TO 480.6|10 S$=S$|
|000007c0| 2b 53 54 52 24 28 4e 32 | 2b 31 36 2a 28 4e 20 41 |+STR$(N2|+16*(N A|
|000007d0| 4e 44 20 32 34 30 29 29 | 3a 47 4f 54 4f 20 34 38 |ND 240))|:GOTO 48|
|000007e0| 30 0a 36 32 30 20 54 3d | 4e 32 2b 38 2a 28 4e 20 |0.620 T=|N2+8*(N |
|000007f0| 41 4e 44 20 32 32 34 29 | 3a 49 46 20 4e 20 41 4e |AND 224)|:IF N AN|
|00000800| 44 20 31 36 20 54 48 45 | 4e 20 54 3d 54 2d 32 30 |D 16 THE|N T=T-20|
|00000810| 34 38 0a 36 32 35 20 53 | 24 3d 53 24 2b 53 54 52 |48.625 S|$=S$+STR|
|00000820| 24 28 54 29 3a 47 4f 54 | 4f 20 34 38 30 0a 36 33 |$(T):GOT|O 480.63|
|00000830| 30 20 49 46 20 4e 32 3d | 30 20 54 48 45 4e 20 4e |0 IF N2=|0 THEN N|
|00000840| 32 3d 32 35 36 0a 36 33 | 35 20 53 24 3d 53 24 2b |2=256.63|5 S$=S$+|
|00000850| 53 54 52 24 28 49 4e 54 | 28 31 34 34 30 30 2f 4e |STR$(INT|(14400/N|
|00000860| 32 29 29 3a 46 4f 52 20 | 4a 3d 32 20 54 4f 20 37 |2)):FOR |J=2 TO 7|
|00000870| 3a 54 28 4a 2c 56 29 3d | 4e 32 3a 4e 32 3d 4e 32 |:T(J,V)=|N2:N2=N2|
|00000880| 2f 32 3a 4e 45 58 54 3a | 47 4f 54 4f 20 34 38 30 |/2:NEXT:|GOTO 480|
|00000890| 0a 36 34 30 20 54 28 31 | 2c 56 29 3d 4e 32 0a 36 |.640 T(1|,V)=N2.6|
|000008a0| 35 30 20 53 24 3d 53 24 | 2b 53 54 52 24 28 4e 32 |50 S$=S$|+STR$(N2|
|000008b0| 29 3a 47 4f 54 4f 20 34 | 38 30 0a 36 36 30 20 53 |):GOTO 4|80.660 S|
|000008c0| 24 3d 53 24 2b 53 54 52 | 24 28 4e 32 2b 32 35 36 |$=S$+STR|$(N2+256|
|000008d0| 2a 28 4e 32 3e 31 32 37 | 29 29 3a 47 4f 54 4f 20 |*(N2>127|)):GOTO |
|000008e0| 34 38 30 0a 36 37 30 20 | 53 24 3d 53 24 2b 53 54 |480.670 |S$=S$+ST|
|000008f0| 52 24 28 4d 44 28 56 29 | 29 3a 4d 44 28 56 29 3d |R$(MD(V)|):MD(V)=|
|00000900| 30 3a 4d 4e 28 56 29 3d | 4e 32 2b 34 2a 28 4e 20 |0:MN(V)=|N2+4*(N |
|00000910| 41 4e 44 20 31 39 32 29 | 2b 31 3a 47 4f 54 4f 20 |AND 192)|+1:GOTO |
|00000920| 34 38 30 0a 36 37 35 20 | 53 24 3d 53 24 2b 53 54 |480.675 |S$=S$+ST|
|00000930| 52 24 28 38 2a 4e 32 29 | 3a 47 4f 54 4f 20 34 38 |R$(8*N2)|:GOTO 48|
|00000940| 30 0a 36 38 30 20 49 46 | 20 4e 32 20 41 4e 44 20 |0.680 IF| N2 AND |
|00000950| 31 20 54 48 45 4e 20 53 | 24 3d 53 24 2b 53 54 52 |1 THEN S|$=S$+STR|
|00000960| 24 28 2d 28 31 31 2d 49 | 4e 54 28 4e 32 2f 31 36 |$(-(11-I|NT(N2/16|
|00000970| 29 2b 31 32 2a 28 4e 32 | 2f 32 20 41 4e 44 20 37 |)+12*(N2|/2 AND 7|
|00000980| 29 29 29 3a 47 4f 54 4f | 20 34 38 30 0a 36 38 35 |))):GOTO| 480.685|
|00000990| 20 53 24 3d 53 24 2b 53 | 54 52 24 28 49 4e 54 28 | S$=S$+S|TR$(INT(|
|000009a0| 4e 32 2f 31 36 29 2b 31 | 32 2a 28 37 2d 28 4e 32 |N2/16)+1|2*(7-(N2|
|000009b0| 2f 32 20 41 4e 44 20 37 | 29 29 29 3a 47 4f 54 4f |/2 AND 7|))):GOTO|
|000009c0| 20 34 38 30 0a 36 39 30 | 20 53 24 3d 22 20 50 4f | 480.690| S$=" PO|
|000009d0| 52 54 41 4d 45 4e 54 4f | 22 2b 53 54 52 24 28 4e |RTAMENTO|"+STR$(N|
|000009e0| 32 2b 36 34 2a 28 4e 20 | 41 4e 44 20 32 35 32 29 |2+64*(N |AND 252)|
|000009f0| 29 3a 47 4f 54 4f 20 34 | 38 30 0a 39 20 44 56 3d |):GOTO 4|80.9 DV=|
|00000a00| 34 3a 4f 50 45 4e 20 31 | 2c 44 56 0a 38 31 30 20 |4:OPEN 1|,DV.810 |
|00000a10| 53 24 3d 22 22 3a 49 4e | 50 55 54 20 22 20 4c 4f |S$="":IN|PUT " LO|
|00000a20| 41 44 20 46 49 4c 45 4e | 41 4d 45 22 3b 53 24 3a |AD FILEN|AME";S$:|
|00000a30| 49 46 20 4c 45 4e 28 53 | 24 29 3e 31 32 20 47 4f |IF LEN(S|$)>12 GO|
|00000a40| 54 4f 20 38 31 30 0a 38 | 31 35 20 49 46 20 53 24 |TO 810.8|15 IF S$|
|00000a50| 3d 22 22 20 54 48 45 4e | 20 43 4c 4f 53 45 20 31 |="" THEN| CLOSE 1|
|00000a60| 3a 45 4e 44 0a 38 32 30 | 20 4b 3d 30 3a 4a 3d 30 |:END.820| K=0:J=0|
|00000a70| 3a 54 3d 30 3a 53 41 3d | 37 38 30 3a 53 58 3d 37 |:T=0:SA=|780:SX=7|
|00000a80| 38 31 3a 53 59 3d 37 38 | 32 3a 53 50 3d 37 38 33 |81:SY=78|2:SP=783|
|00000a90| 3a 44 4e 3d 38 0a 38 32 | 35 20 44 45 46 20 46 4e |:DN=8.82|5 DEF FN|
|00000aa0| 20 44 50 28 4b 29 3d 50 | 45 45 4b 28 4b 29 2b 32 | DP(K)=P|EEK(K)+2|
|00000ab0| 35 36 2a 50 45 45 4b 28 | 4b 2b 31 29 0a 38 33 30 |56*PEEK(|K+1).830|
|00000ac0| 20 44 49 4d 20 43 4e 24 | 28 33 33 29 2c 41 4d 28 | DIM CN$|(33),AM(|
|00000ad0| 32 37 29 2c 43 4d 28 32 | 37 29 2c 41 28 32 29 2c |27),CM(2|7),A(2),|
|00000ae0| 45 28 32 29 2c 56 28 32 | 29 2c 54 28 37 2c 32 29 |E(2),V(2|),T(7,2)|
|00000af0| 2c 4d 44 28 32 29 2c 4d | 4e 28 32 29 0a 38 34 30 |,MD(2),M|N(2).840|
|00000b00| 20 46 4f 52 20 4b 3d 31 | 20 54 4f 20 33 33 3a 52 | FOR K=1| TO 33:R|
|00000b10| 45 41 44 20 43 4e 24 28 | 4b 29 3a 4e 45 58 54 3a |EAD CN$(|K):NEXT:|
|00000b20| 46 4f 52 20 4b 3d 31 20 | 54 4f 20 32 37 3a 52 45 |FOR K=1 |TO 27:RE|
|00000b30| 41 44 20 41 4d 28 4b 29 | 2c 43 4d 28 4b 29 3a 4e |AD AM(K)|,CM(K):N|
|00000b40| 45 58 54 0a 38 35 30 20 | 4c 41 3d 50 45 45 4b 28 |EXT.850 |LA=PEEK(|
|00000b50| 34 39 29 2b 32 35 36 2a | 50 45 45 4b 28 35 30 29 |49)+256*|PEEK(50)|
|00000b60| 2b 31 30 30 30 3a 50 4f | 4b 45 20 53 41 2c 32 3a |+1000:PO|KE SA,2:|
|00000b70| 50 4f 4b 45 20 53 58 2c | 44 4e 3a 50 4f 4b 45 20 |POKE SX,|DN:POKE |
|00000b80| 53 59 2c 30 3a 53 59 53 | 20 36 35 34 36 36 0a 38 |SY,0:SYS| 65466.8|
|00000b90| 36 30 20 53 24 3d 53 24 | 2b 22 2e 4d 55 53 22 3a |60 S$=S$|+".MUS":|
|00000ba0| 46 4f 52 20 4b 3d 31 20 | 54 4f 20 4c 45 4e 28 53 |FOR K=1 |TO LEN(S|
|00000bb0| 24 29 3a 50 4f 4b 45 20 | 35 38 34 2b 4b 2c 41 53 |$):POKE |584+K,AS|
|00000bc0| 43 28 4d 49 44 24 28 53 | 24 2c 4b 29 29 3a 4e 45 |C(MID$(S|$,K)):NE|
|00000bd0| 58 54 0a 38 36 35 20 50 | 4f 4b 45 20 53 41 2c 4c |XT.865 P|OKE SA,L|
|00000be0| 45 4e 28 53 24 29 3a 50 | 4f 4b 45 20 53 58 2c 37 |EN(S$):P|OKE SX,7|
|00000bf0| 33 3a 50 4f 4b 45 20 53 | 59 2c 32 3a 53 59 53 20 |3:POKE S|Y,2:SYS |
|00000c00| 36 35 34 36 39 0a 38 37 | 30 20 50 4f 4b 45 20 53 |65469.87|0 POKE S|
|00000c10| 41 2c 30 3a 50 4f 4b 45 | 20 53 58 2c 4c 41 2d 32 |A,0:POKE| SX,LA-2|
|00000c20| 35 36 2a 49 4e 54 28 4c | 41 2f 32 35 36 29 3a 50 |56*INT(L|A/256):P|
|00000c30| 4f 4b 45 20 53 59 2c 4c | 41 2f 32 35 36 3a 53 59 |OKE SY,L|A/256:SY|
|00000c40| 53 20 36 35 34 39 33 0a | 38 37 35 20 49 46 20 28 |S 65493.|875 IF (|
|00000c50| 50 45 45 4b 28 53 50 29 | 41 4e 44 31 29 3d 30 20 |PEEK(SP)|AND1)=0 |
|00000c60| 54 48 45 4e 20 43 4d 44 | 20 31 3a 47 4f 54 4f 20 |THEN CMD| 1:GOTO |
|00000c70| 33 30 30 0a 38 38 30 20 | 09 0a 38 38 32 20 49 46 |300.880 |..882 IF|
|00000c80| 20 50 45 45 4b 28 53 41 | 29 3d 35 20 54 48 45 4e | PEEK(SA|)=5 THEN|
|00000c90| 20 50 52 49 4e 54 20 22 | 44 45 56 49 43 45 20 4e | PRINT "|DEVICE N|
|00000ca0| 4f 54 20 50 52 45 53 45 | 4e 54 22 3a 47 4f 54 4f |OT PRESE|NT":GOTO|
|00000cb0| 20 34 39 30 0a 38 38 35 | 20 50 52 49 4e 54 20 53 | 490.885| PRINT S|
|00000cc0| 54 3a 47 4f 54 4f 20 34 | 39 30 0a 39 30 30 20 44 |T:GOTO 4|90.900 D|
|00000cd0| 41 54 41 20 44 45 43 41 | 59 20 52 41 54 45 2c 52 |ATA DECA|Y RATE,R|
|00000ce0| 45 4c 45 41 53 45 20 52 | 41 54 45 2c 43 41 4c 4c |ELEASE R|ATE,CALL|
|00000cf0| 20 50 48 52 41 53 45 2c | 44 45 46 49 4e 45 20 50 | PHRASE,|DEFINE P|
|00000d00| 48 52 41 53 45 2c 52 45 | 53 4f 4e 41 4e 43 45 0a |HRASE,RE|SONANCE.|
|00000d10| 39 30 32 20 44 41 54 41 | 20 4d 41 53 54 45 52 20 |902 DATA| MASTER |
|00000d20| 56 4f 4c 55 4d 45 2c 52 | 45 50 45 41 54 20 54 41 |VOLUME,R|EPEAT TA|
|00000d30| 49 4c 2c 50 48 52 41 53 | 45 20 45 4e 44 2c 48 41 |IL,PHRAS|E END,HA|
|00000d40| 4c 54 2c 41 54 54 41 43 | 4b 20 52 41 54 45 2c 53 |LT,ATTAC|K RATE,S|
|00000d50| 55 53 54 41 49 4e 20 4c | 45 56 45 4c 0a 39 31 30 |USTAIN L|EVEL.910|
|00000d60| 20 44 41 54 41 20 50 55 | 4c 53 45 20 57 49 44 54 | DATA PU|LSE WIDT|
|00000d70| 48 2c 44 45 54 55 4e 45 | 20 2c 54 45 4d 50 4f 2c |H,DETUNE| ,TEMPO,|
|00000d80| 55 54 49 4c 49 54 59 20 | 44 55 52 41 54 49 4f 4e |UTILITY |DURATION|
|00000d90| 2c 52 45 4c 45 41 53 45 | 20 50 4f 49 4e 54 0a 39 |,RELEASE| POINT.9|
|00000da0| 31 32 20 44 41 54 41 20 | 52 45 50 45 41 54 20 48 |12 DATA |REPEAT H|
|00000db0| 45 41 44 2c 46 4c 41 47 | 2c 50 55 4c 53 45 20 57 |EAD,FLAG|,PULSE W|
|00000dc0| 49 44 54 48 20 53 57 45 | 45 50 20 2c 22 46 49 4c |IDTH SWE|EP ,"FIL|
|00000dd0| 54 45 52 20 43 55 54 4f | 46 46 20 53 57 45 45 50 |TER CUTO|FF SWEEP|
|00000de0| 20 22 0a 39 31 34 20 44 | 41 54 41 20 56 49 42 52 | ".914 D|ATA VIBR|
|00000df0| 41 54 4f 20 44 45 50 54 | 48 2c 56 49 42 52 41 54 |ATO DEPT|H,VIBRAT|
|00000e00| 4f 20 52 41 54 45 2c 41 | 55 54 4f 46 49 4c 54 45 |O RATE,A|UTOFILTE|
|00000e10| 52 20 2c 54 52 41 4e 53 | 50 4f 53 45 20 2c 41 55 |R ,TRANS|POSE ,AU|
|00000e20| 58 49 4c 49 41 52 59 0a | 39 31 36 20 44 41 54 41 |XILIARY.|916 DATA|
|00000e30| 20 46 49 4c 54 45 52 20 | 43 55 54 4f 46 46 2c 22 | FILTER |CUTOFF,"|
|00000e40| 4d 45 41 53 55 52 45 20 | 44 55 52 41 54 49 4f 4e |MEASURE |DURATION|
|00000e50| 3a 22 0a 39 32 30 20 44 | 41 54 41 20 42 55 4d 50 |:".920 D|ATA BUMP|
|00000e60| 20 56 4f 4c 55 4d 45 2c | 46 49 4c 54 45 52 2c 52 | VOLUME,|FILTER,R|
|00000e70| 09 0a 39 33 30 20 44 41 | 54 41 20 31 35 2c 30 2c |..930 DA|TA 15,0,|
|00000e80| 31 35 2c 38 2c 31 35 2c | 32 2c 31 35 2c 36 2c 31 |15,8,15,|2,15,6,1|
|00000e90| 35 2c 31 30 2c 31 35 2c | 31 34 0a 39 33 32 20 44 |5,10,15,|14.932 D|
|00000ea0| 41 54 41 20 32 35 35 2c | 31 35 2c 32 35 35 2c 34 |ATA 255,|15,255,4|
|00000eb0| 37 2c 32 35 35 2c 37 39 | 0a 39 33 34 20 44 41 54 |7,255,79|.934 DAT|
|00000ec0| 41 20 31 33 35 2c 34 2c | 31 33 35 2c 31 33 32 0a |A 135,4,|135,132.|
|00000ed0| 39 34 30 20 44 41 54 41 | 20 31 35 2c 32 2c 31 35 |940 DATA| 15,2,15|
|00000ee0| 2c 31 30 2c 32 35 35 2c | 36 2c 32 35 35 2c 32 32 |,10,255,|6,255,22|
|00000ef0| 2c 32 35 35 2c 33 38 2c | 32 35 35 2c 35 34 2c 32 |,255,38,|255,54,2|
|00000f00| 35 35 2c 37 30 2c 32 35 | 35 2c 38 36 2c 32 35 35 |55,70,25|5,86,255|
|00000f10| 2c 31 30 32 0a 39 34 32 | 20 44 41 54 41 20 32 35 |,102.942| DATA 25|
|00000f20| 35 2c 31 31 38 2c 32 35 | 35 2c 31 33 34 2c 32 35 |5,118,25|5,134,25|
|00000f30| 35 2c 31 35 30 2c 32 35 | 35 2c 31 36 36 2c 32 35 |5,150,25|5,166,25|
|00000f40| 35 2c 31 38 32 2c 33 31 | 2c 31 34 2c 36 33 2c 33 |5,182,31|,14,63,3|
|00000f50| 30 0a                   |                         |0.      |        |
+--------+-------------------------+-------------------------+--------+--------+