30 FT$="OSCILLOSCOPE.O":GOSUB50:FT$="OSCILLOSCOPE.FNT":GOSUB50:GOTO100 50 OPEN15,8,15,"R0:"+FT$+"="+FT$:INPUT#15,E,E$:CLOSE15:IFE=63GOTO90 70 PRINT"[198]IX YOUR DISK, THEN PRESS SPACE BAR." 80 POKE198,0:WAIT198,1:POKE198,0:GOTO50 90 POKE147,0:SYS57812FT$,8,1:SYS62631:RETURN 100 POKE55,255:POKE56,55:CLR:T=0:A=0:SS=0:I=0:N3=0 111 KE$="FRSPHW[133][134][135][136][137][138][139][140]DTZC\QX":DEFFNSR(SF)=776.47/SF-3.456 140 AT$="[151]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ":DEFFNSG(SF)=INT(SF/174.1+1) 150 ER$=" " 180 IN=49152:CL=IN+3:CO=IN+6:SA=IN+9:DI=IN+12:RE=IN+15:DC=IN+40:SR=DC+1:DS=DC+2 260 ND=PEEK(IN+18)+256*PEEK(IN+19)+512:XH=PEEK(IN+20)+256*PEEK(IN+21) 290 ES=DC+3:SS=DC+4:HT=IN+24:POKEHT,85:CM=IN+26:BM=CM+3:SM=CM+6:BA=CM+9 320 PRINT"[147]":POKE53280,06:POKE53281,00:PRINTCHR$(14)CHR$(8):GOSUB323:GOTO330 323 C1$="[144]":C2$=C1$:C3$=C1$:C4$=C1$:C5$=C1$:C6$=C1$:POKEDC,80:RETURN 330 POKEDC,5*16+0:SYSCO:SYSCL:SYSIN:GOSUB1390:SP=11:POKEDS,255/SP:POKEES,72 380 FORI=0TO8:READR$(I):NEXT 390 DATA"TRIANGLE[155] [184][185] MCMLXXXIX [170][171][172][173][174][175][176][177][178][179][180][181][182][183]",SAWTOOTH 400 DATAPULSE------,NOISE (RANDOM PULSES AT SET FREQUENCY) 410 DATASYNCHRONIZED-TRIANGLE,SYNCHRONIZED-SAWTOOTH,SYNCHRONIZED-PULSE 420 DATARING-MODULATION (TRIANGLE * SQUARE) 430 DATARING-MODULATION-SYNCHRONIZED TRIANGLE:FORI=0TO8:READWF(I):NEXT 450 DATA16,32,64,128,18,34,66,20,22:S=54272:FORI=0TO24:POKES+I,0:NEXT 470 POKES+24,09+16:POKES+19,16*0+0:POKES+20,16*15+12:POKES+22,64 510 F=440:WF=16:PW=50:SF=110:F2=445 530 GOSUB800:GOSUB960:GOSUB890:GOSUB1040 570 REM"[211][212][193][210][212] [205][193][201][206][160][204][207][207][208] 580 [139]QX[178]1[137]620 581 [151]198,0:FX[178][184](0):[139]N3[178]0[167][141]1940:N3[178]1 600 [139]WF[179][177]1[167][141]1410:[137]620 610 [141]1860:[137]640 620 [151]S[170]18,WF[170]1:[158]SA:[151]S[170]18,WF:[137]670 640 [151]S[170]18,17:[158]DI 670 [161]A$:[139][197](A$)[177]0[175]WF[179][177]1[167]QX[178]0:[137]2950 675 [129]I[178]1[164]21:[139]A$[178][202](KE$,I,1)[167]KE[178]I:I[178]21:[130]:[137]688 680 [130]:[137]580 681 "(null)ATNRIGHT$(null) (null)(null)(null)(null) ^^^ IF NO KEY HIT 688 IFWF=1THENKE=-7:GOTO1110 689 IFA$<>"T"THENQX=0 690 IFKE<7THENONKEGOTO760,860,940,1030,1070,1080 700 KE=KE-14:IFKE<1GOTO1110:_FNCTNKEY 710 ONKEGOTO730,1150,1170,1180,1210,1220,580 720 GOTO580 730 EN$="WAVEFORM DISPLAY SPEED":NU=2:GOSUB2740:SP=EN 740 IFSP=0THENSP=1 750 POKEDS,255/SP:GOTO580 760 EN$="VOICE 3 FREQUENCY":NU=4:GOSUB2740:F=EN:IFZZ=1THENGOSUB960 780 GOSUB800:GOTO580 790 : 800 IFF=<0THENF=1 810 IFF>3995THENF=3995 820 K=F/.06097:FH=INT(K/256):FL=INT(K-256*FH) 840 POKES+14,FL:POKES+15,FH:RETURN 841 : 860 EN$="VOICE 2 RING FREQUENCY":NU=4:GOSUB2740:F2=EN:GOSUB890:GOTO580 880 : 890 IFF2=<0THENF2=1 900 IFF2>3995THENF2=3995 910 G2=F2/.06097:GH=INT(G2/256):GL=G2-256*GH 930 POKES+7,GL:POKES+8,GH:RETURN:___ 940 EN$="SWEEP FREQUENCY":NU=4:GOSUB2740:SF=EN:ZZ=0:GOSUB960:GOTO580 960 IFZZ=1THENSF=F/4 970 IFSF<3THENSF=3 980 IFSF>1044THENSF=1044 990 SG=FNSG(SF):POKESR,FNSR(SF/SG):POKESS,SG:POKEES,42*SG:RETURN:___ 1030 EN$="PULSE WIDTH (%)":NU=2:GOSUB2740:PW=EN:GOSUB1040:GOTO580 1040 HI=INT(.1599*PW):LO=40.95*PW-256*HI 1060 POKES+16,LO:POKES+17,HI:RETURN:___ 1070 GOSUB2060:GOTO580:___ 1080 WF=1:SF=123:GOSUB990:POKES+24,14+16:POKES+23,4:POKEXH,195:GOTO580 1110 KE=KE+7:IFG<0ORG>7GOTO580 1120 IFWF=1THENPOKEXH,196:POKES+23,0:POKES+24,9 1130 WF=WF(KE):RS=0:IFKE>3THENRS=1 1140 N3=0:GOTO580:___ 1150 IFPEEK(XH)<>195THENPOKE198,0:FO=F:GOSUB2640:F=FO:GOSUB800 1160 GOTO670:___ 1170 ZZ=1-ZZ:GOSUB960:GOTO580:___ 1180 CC=1-CC:IFCC=0THENGOSUB323:GOTO1200 1190 C1$="[154]":C2$="[158]":C3$="[153]":C4$="":C5$="[159]":C6$="[156]":POKEDC,16:GOSUB2890 1200 SYSCO:GOSUB1940:GOTO580:___ 1210 IFA$="\"THENWF=22:RS=1:POKEXH,196:POKES+23,0:GOTO580 1220 PRINT"[147][158][200]AVE YOU TRIED RING-MODULATED TUNE WITH VOICE 3 AT 5 HZ?" 1230 PRINT" [196]O YOU [210][197][193][204][204][217] WANT TO QUIT? ([217] OR [206])":POKE198,0 1240 GETYN$:IFYN$=""THEN1240 1250 IFYN$<>"Y"THENN3=0:GOTO580 1260 SYSRE:POKE53280,0:POKE53281,0:POKES+18,16 1280 POKE55,0:POKE56,160:PRINT"[147] [154][199]OOD-BYE !" 1300 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15 1310 IFER=63GOTO1340 1320 PRINT"[159][204]OAD[211]TAR DISK NOT IN DRIVE.":PRINT"[150][198]IX, THEN PRESS SPACE BAR." 1330 POKE198,0:WAIT198,1:POKE198,0:GOTO1300 1340 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8":PRINT"RUN" 1360 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END:"[204][207][193][196][211][212][193][210]___ 1380 [158]CL:[141]1390:FR[178][184](FR):[142] 1390 [151]214,3:[153]:[153]AT$:[151]214,17:[153]:[153]AT$:[142] 1410 R$[178]"STOP WAIT":[151]198,0 1430 PR[178][181](F):L3[178]4:R3[178]1:C3[178]12:[141]1770:[153]"STOPHZ" 1440 PR[178][181](SF):L3[178]4:R3[178]1:C3[178]31:[141]1770:[153]"STOPHZ":R$[178]"STOP WAIT" 1460 [151]214,1:[153]:[139]RS[178]0[137]1500 1480 [153]C2$"(null)2 RING-SYNC FREQ "; 1490 PR[178][181](F2):L3[178]4:R3[178]2:C3[178]18:[141]1770:[153]"STOPHZ" 1500 [153]" ":[151]214,2:[153]:[151]211,0:[153]C3$; 1530 [129]I[178]0[164]8:[139]WF[178]WF(I)[167]IX[178]I:I[178]8 1540 [130]:[153]"PRINT"R$(IX);:[139]WF[179][177]64[175]WF[179][177]66[137]1590 1560 [151]214,2:[153]:[151]211,19:[153]C5$"PULSE WIDTH=" 1580 PR[178]PW:L3[178]2:R3[178]3:C3[178]30:[141]1770:[153]"STOP%" 1590 [151]214,1:[153]:[151]211,34:[153]"STOP ";:[139]ZZ[178]0[167][153]"WAIT(null)ASCASC"; 1620 [139]ZZ[178]1[167][153]" WAITDEF(null)(null)"; 1630 [153]"STOP WAIT":[151]214,22:[153]:[139]WF[179][177]66[137]1700 1660 [153]C2$"(null)ING-SYNC FREQUENCY, (null)OICE 2: (null)RESS (null)STOP"U$; 1670 [139]WF[179][177]66[167][153]"ON":[137]1760 1680 [153]:[153]C5$"(null)ET (null)ULSE-WIDTH: (null)RESS LIST(null)DEFON":[137]1760 1700 [153]C6$"STR$ISPLAY SPEED: LISTSTR$DEF":PR[178]SP:L3[178]2:R3[178]23:C3[178]17:[141]1770 1720 [153]"PRINT VALXAMPLES: STOPHIT 1-7STOP";:[139]WF[178]64[137]1680 1740 [139]WF[178]18[176]WF[178]20[176]WF[178]22[176]WF[178]34[167][153]:[137]1660 1750 [153]:[153]"LIST (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO HOLD WAVEFORMON" 1760 [142]:___([139]) 1770 M3[178]C3[170]L3[170]2:R4[178]R3[171]1:[139]L3[178]2[167]R$[178]"STOP WAIT":[137]1810 1790 [139]L3[178]3[167]R$[178]"STOP WAIT":[137]1810 1800 R$[178]"STOP WAIT" 1810 [151]214,R4:[153]:[151]211,C3:[153]R$:[151]214,R4:[153]:[151]211,M3[171][195]([196](PR)) 1840 [153]"DEF"[202]([196](PR),2,4)"";:[142]:___ 1860 [153]"LOAD";:[141]1390 1870 [153]"SYS(null)HIS IS A SIMULATED SINE-WAVE DEMONSTRA-TION. (null)HE SOUND YOU LEFT$VALATN(null)"; 1880 [153]" IS A FILTERED TRIANGLE WAVEFORM--AN APPROXIMATION TO A"; 1890 [153]"SINE WAVE (FILTERING CANNOT BE SHOWN)." 1900 [151]214,18:[153]:[153]"ONATN SINE WAVE IS A 'PURE' WAVE." 1910 [153]"RIGHT$T IS FREE OF HARMONICS." 1920 [153]"OPEN (null)RESS ASC1 FOR UNFILTERED TRIANGLE.":[142]:___ 1930 " ASCRIGHT$(null)VALSTR$CLOSE(null)ATN(null)VAL(null)CLOSE(null)(null)PEEK" 1940 [153]"LOADLIST ** (null)ATN(null)(null)(null)RIGHT$(null)CHR$ * (null)(null)(null)(null)ATNCHR$VAL (null)(null)LENRIGHT$(null)(null)(null)(null)LEN(null)(null)VAL ** " 1950 [153]C1$"(null)3 ASCREQUENCY ";:[153][163]20)C4$" (null)WEEP FREQ" 1970 [153][163]28)"ATNUTO:";:[141]1390 1990 [151]214,17:[153]:[153]C3$"(null)AVEFORM:LISTASC1-8,\ "; 2000 [153]C4$"STOP(null)UNE:LIST(null)STOP (null)INEWAVE: LIST(null)STOP" 2010 [153]C1$"(null)O SET FREQUENCY OF (null)OICE 3: (null)RESS LISTASC" 2020 [153]C4$"(null)ET SWEEP RATE: (null)RESS LIST(null) STOPLENOLORS: LISTLEN" 2030 [153]C4$"ATNUTO-SWEEP ON/OFF: LIST(null)SYS LEFT$ELP: LISTLEFT$ STOP(null)UIT: LIST(null)":[142] 2050 : 2060 [141]2070:[137]2120 2070 [151]CM,15:[151]BM,27:[151]SM,23:[151]BA,199:[141]2200:[142] 2120 [141]2360:[141]2190:[141]2500:[141]2190:[141]2220 2140 [161]A$:[139]A$[178]""[137]2140 2150 [153]"LOAD":[151]CM,0:[151]BM,59:[151]SM,121:[151]BA,198 2170 [141]1940:[141]1390:[142]:"VAL(null)STR$LEFT$VAL(null)(null) 2190 GETW$:IFW$=""GOTO2190 2200 PRINT"":PRINT" [146][144]";:RETURN:__ 2210 : 2220 PRINT" --- [203][197][217] [195][207][206][212][210][207][204][211][144] --- "; 2230 PRINT"[129][198]1:[144] TRIANGLE WAVE [129][198]3:[144] SAWTOOTH WAVE "; 2240 PRINT"[129][198]5:[144] PULSE WAVE (SET PULSE WIDTH 0-100%) "; 2250 PRINT"[129][198]7:[144] NOISE (NOTICE FREQUENCY) "; 2260 PRINT"[129][198]2, [198]4, [198]6:[144] TRIANGLE, SAWTOOTH & PULSE "; 2270 PRINT" ([214]OICE 3 SYNCHRONIZED WITH [214]OICE 2) "; 2280 PRINT"[129][198]8:[144] [214]OICE 3 RING-MODULATED BY VOICE [214]2 "; 2290 PRINT"(SET BOTH FREQUENCIES) "; 2300 PRINT"[129]\:[144] [214]OICE 3 RING-MODULATED BY AND SYN- "; 2310 PRINT"CHRONIZED WITH VOICE 2. "; 2320 PRINT"[129][208]RESS [198] OR [210] TO SET VOICE 3 AND VOICE 2 "; 2330 PRINT"[129][215]:[144] [211]INE-[215]AVE [196]EMO [129][218]:[144] [204]OCK SWEEP FREQ. "; 2340 PRINT"[129][212][144] [208]LAYS A TUNE; [129][211][144] SETS SWEEP RATE "; 2350 PRINT"[158]  [208]RESS '[200]' TO CONTINUE[158] [144]":RETURN 2360 PRINT" [156][193] [211][193][205][208][204][201][206][199], [211][212][207][210][193][199][197] [207][211][195][201][204][204][207][211][195][207][208][197][144] "; 2370 PRINT"[211]HOWING THE VIBRATIONS OF THE [211][201][196] CHIP [144]"; 2380 PRINT"[193] SAMPLE OF THE VOLTAGE OF [207]SCILLATOR #3"; 2390 PRINT"(VOICE 3) IS TAKEN AT REGULAR INTERVALS."; 2400 PRINT"[212]HESE SAMPLES ARE STORED IN THE MEMORY. "; 2410 PRINT"[212]HEY ARE THEN DISPLAYED ON THE SCREEN AT"; 2420 PRINT"A VISIBLE SLOW SPEED. 256 SAMPLES ARE "; 2430 PRINT"TAKEN EVERY 22 TO 1300 MICRO-SECONDS "; 2440 PRINT"([193]T HIGH SWEEP RATES NOT ALL SAMPLES "; 2450 PRINT"ARE DISPLAYED.) [217]OU WILL SEE HOW THE [160]"; 2460 PRINT"SOUND VIBRATIONS--THE PRESSURE ON YOUR "; 2470 PRINT"EAR--VARY WITH TIME. " 2480 PRINT: 2490 PRINT"[158] [208]RESS '[200]' TO CONTINUE[158] [144]":RETURN:___ 2500 PRINT"[144][208]RESS '[129][198][144]' TO CHANGE THE FREQUENCY "; 2520 PRINT"OR 'PITCH' OF [214]OICE 3 "; 2530 PRINT"[208]RESS '[129][210][144]' TO CHANGE THE FREQUENCY OF "; 2540 PRINT"VOICE 2 FOR RING MODULATION OR SYNCHRO- "; 2550 PRINT"NIZATION. "; 2560 PRINT"[210]ING MODULATION GENERATES SUM AND DIF- "; 2570 PRINT"FERENCE FREQUENCIES: F3+F2 AND F3-F2. "; 2580 PRINT"[211]EARCH FOR THESE BY VARYING THE SWEEP [160] "; 2590 PRINT"FREQUENCY: PRESS [129][211][144]. [212]HE SWEEP FREQUENCY"; 2600 PRINT"IS AUTOMATICALLY MADE 1/4 OF THE PRIMARY"; 2610 PRINT"FREQUENCY BY PRESSING [129][218][144]. "; 2620 PRINT"[208]RESS '[129][196][144]' TO SET THE DISPLAY SPEED. "; 2625 PRINT"[156][208]RESS '[129][195][156]' FOR COLOR-CODING: TOP=BOTTOM. "; 2630 PRINT"[158] [208]RESS '[200]' TO CONTINUE[158] [144]":RETURN:____ 2640 F0=16.3515973:F1=2^(1/12):KL=S+14:KH=S+15:W0=0 2650 IFWF>17ANDWF<32THENKL=S+7:KH=S+8:W0=1 2660 POKEDS,1:POKEES,1:I=-1:POKE198,0:POKES+18,WF+1 2690 I=I+1:N=PEEK(ND+I):IFN=99THENI=-1:GOTO2690 2700 IF W0=0THENF=F0*F1^N:GOSUB820:IFQX=0GOTO2703 2701 GOTO2710 2703 PRINT"[150]"TAB(13)MID$(STR$(INT(F))+"[144] ",2,6) 2710 IFW0=1THENF2=F0*F1^N:GOSUB910:IFQX=0GOTO2715 2711 GOTO2720 2715 PRINT"[150]"TAB(19)MID$(STR$(INT(F2))+"[144] ",2,6) 2720 SYSSA:IFPEEK(198)=0GOTO2690 2730 SP=11:POKEDS,255/SP:POKEES,72:RETURN 2740 N$="":FORJ=1TO4:A$(J)="":NEXT:POKEHT,125:POKE198,0:I=1 2770 PRINT"[150] [213][211][197] [206][213][205][194][197][210] [203][197][217][211] [212][207][160][211][197][212] [212][200][197] [214][193][204][213][197]" 2780 PRINT"[155] ([208]RESS [210][197][212][213][210][206] TO ENTER)":PRINT 2790 PRINT"[159] [211]ET "EN$"=[158][190][190][190][190] [157][157][157][157][157][157][157][157][157][157][157][157][157]";:FORN=1TONU 2810 WAIT198,1:GETV$:V=ASC(V$):IFV<>13ANDNOT(V>47ANDV<58)THENPOKE198,0:GOTO2810 2820 IFV=13THENN=NU:GOTO2850 2830 PRINTV$; 2840 A$(I)=V$:IFV=13THENN=4:GOTO2840 2850 I=I+1:NEXT:FORJ=1TO4:N$=N$+A$(J):NEXT:EN=VAL(N$):POKEHT,85:RETURN:OUT:EN 2890 PRINT"[147][159][212]HE COLORS ON THE TOP WILL RELATE TO" 2900 PRINT"THE COLORS OF THE INSTRUCTIONS ON THE BOTTOM." 2901 PRINTTAB(10)"[158][208]RESS THE SPACE BAR.":POKE198,0:WAIT198,1:POKE198,0:RETURN 2940 "=== [197][216][193][205][208][204][197][211] 1-6" 2950 QU$=CHR$(34):PRINT"[147][158]"; 2951 ONVAL(A$)GOTO3100,3200,3300,3400,3500,3600,3700 2952 PRINT"[147][212]HERE ARE ONLY [197]XAMPLES 1 TO 7 ." 2955 PRINT"[158][208]RESS 1,2,3,4,5,6,7 OR [216] .":POKE198,0:WAIT198,1:GOTO4001 3100 PRINT"[197]XAMPLE 1 - [210]ING MODULATION TREMOLO" 3101 WF=20:RS=1:F=4:F2=440:SF=6 3111 PRINT"[154][214]OICE 3 AT 4 HZ PROVIDES A "QU$"VIBRATO"QU$" OR "QU$"TREMOLO"QU$; 3112 PRINT" (THE BIG TRIANGLES)"; 3113 PRINT" FOR THE 440 HZ ([193]) TONE OF [214]OICE 2.":POKE214,18:PRINT 3115 PRINT"[150][200]OW CAN THE SOUND WAVE HAVE TWO VALUES AT THE SAME TIME?":PRINT 3116 PRINT"[159][198]OR EXPLANATION: PRESS [158]2[154] FOR EXAMPLE 2.":GOTO4000 3200 PRINT"[197]XAMPLE 2 - [210]ING MODULATION EXPLAINED !" 3201 WF=20:RS=1:F=4:F2=44:SF=6 3202 PRINT"[154][212]HE PITCH OF [214]OICE 2 HAS BEEN REDUCED TO44 HZ SO YOU CAN SEE"; 3203 PRINT" WHAT IS HAPPENING.":POKE214,18:PRINT 3204 PRINT"[214]OICE 2 PERIODICALLY REVERSES [214]OICE 3.":PRINT 3205 PRINT" [212]YPE [158][196] 01[154] TO SLOW THE DISPLAY." 3206 PRINT" [212]HEN TYPE [158][196] 22[154] TO RESTORE THE DISPLAY!"; 3299 GOTO4000 3300 PRINT"[197]XAMPLE 3 - [215]ILD [215]AVES !" 3301 WF=20:RS=1:F=300:F2=440:SF=100 3302 PRINT"[154][193]NOTHER DISPLAY OF RING MODULATION - WITH 300 AND 400 HZ VOICES." 3303 PRINT"[150][195]AN YOU SEE THE 100 HZ DIFFERENCE TONE?":POKE214,18:PRINT 3304 PRINT"[153][200][201][206][212]: THE SWEEP FREQUENCY IS 100 HZ.":GOTO4000 3400 PRINT"[197]XAMPLE 4 - [212]HE 8TH OCTAVE, TO 7990 HZ!" 3401 WF=20:RS=1:F=3000:F2=3003:SF=1200 3402 PRINT"[212]HIS HIGH-PITCHED OCTAVE IS PRODUCED BY RING-MODULATION WITH BOTH "; 3403 PRINT"VOICES AT THE SAME FREQUENCY. [150][212]URN UP THE VOLUME!" 3404 POKE214,18:PRINT 3405 PRINT"[153][212]HIS IS THE OCTAVE [195]OMMODORE DIDN'T TELLUS ABOUT--"; 3406 PRINT"CLEAR OFF THE KEYBOARD!" 3407 PRINT"[153] [206]OW LISTEN TO [197]XAMPLE 5 - [208][210][197][211][211] "QU$"5"QU$:GOTO4000 3500 PRINT"[197]XAMPLE 5 - [212]HE [211][213][205] AND THE [196][201][198][198][197][210][197][206][195][197]" 3501 WF=20:RS=1:F=3000:F2=3440:SF=440 3502 PRINT"[153][204]ISTEN CAREFULLY. [212]HERE ARE [212][215][207] TONES: 6440 HZ AND 440 HZ:"; 3503 PRINT" THE SUM AND THE DIFFERENCE OF 3000 AND 3440." 3504 POKE214,18:PRINT 3505 PRINT"[212]HIS IS THE GENERAL RESULT OF HAVING TWOTONES"; 3506 PRINT" MIXED: YOU HEAR THE SUM AND THE DIFFERENCE FREQUENCIES." 3507 PRINT"[154] [195]AN YOU SEE THEM ON THE PLOT?"::GOTO4000 3600 PRINT"[197]XAMPLE 6 - [206]OISE ([211][201][196]'S RANDOM NUMBERS)"; 3601 WF=128:RS=0:F=120:F2=4:SF=120 3602 PRINT"[154][212]HE [211][201][196] CHIP IS MAKING RANDOM-NUMBER NOISE."; 3603 PRINT" [194]UT THIS "QU$"NOISE"QU$" HAS A "QU$"PITCH"QU$; 3604 PRINT" RELATED TO THE FREQUENCY OF THE STEPS." 3605 POKE214,19:PRINT:PRINT"[212]RY DIFFERENT [214]3 FREQUENCIES TO SEE THE EFFECT." 3699 GOTO4000 3700 PRINT"[197]XAMPLE 7 - [150][200]EY! [202]UST FOR FUN!" 3701 WF=20:RS=1:F=2222:F2=12:SF=18 3702 PRINT" [207]NLY THE [195]OMMODORE [211]ID CHIP CAN MAKE SUCH WAVEFORMS!" 3703 POKE214,19:PRINT:PRINT"[153][200]IT THE [216] KEY...CHANGE THE FREQUENCIES..." 3704 PRINT".....OR HIT [212] FOR AN ARTISTIC TUNE." 4000 POKE214,23:PRINT:PRINT"[150][211][208][193][195][197] [194][193][210][158] HOLDS; [150][216][158] RETURNS; [212][158] FOR [153]TUNE"; 4001 N3=0:ZZ=0:QX=1:GOTO530 4002 REM" [212][200][197] [197][206][196] 10000 [159]15,8,15,"S0:OSCILLOSCOPE.BA":[160]15:[148]"OSCILLOSCOPE.BA",8:[128]