' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!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 AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`U232,0:233,649UD$"BLOADSMALL,A16384":ZH7:ZW6:ZA1\U:3:1:0:ZF1Ĺ16302,ZF:mU16301,ZF:V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230V22080:ZX276ZW8:ZT$"TO GO ON":22230VZ1(ZS1)84:(16384)127220 1 2 3 4 5 4 3 2 1 G"G " 0 0 0 0 0 0 0 0 0"w 24:"PRESS SPACE BAR TO CONTINUE";:Z$::}  M 0 0 0 0 0 0 0 0 0"L 24:"PRESS SPACE BAR TO CONTINUE";:Z$::R  T  ::305,10275,10275,1505,1505,10AX4024020Q(X,10X,150X2Xi<Y1013010F5,Y40,Y20:240,Y275,Y20PYZX5023020dX,150X,140:X,10X,20xX21:" G 1 2 3 4 5 4 3 2 1 G" " 1550300:1700%135Y%(1)91JB%2Y%:D%B%20SA%0\C%0dJ0oA%,B%zC%,D%Y%B%:X%A%1000P%1İ1100P%0İ1300B%Y%:A%X%IN1500Y%D%:X%C%:1000P%1İ1100P%AM":"":"CALLED 'AMPS'."#m1550*r5s"YOU ALSO MAY PRACTICE THE USE OF THE":"":"TWO FORMULAS FOR TOTAL RESISTANCE:"w10:"SERIES: RT = R1 + R2 + R3 +...":"":"PARALLEL: 1/RT = 1/R1 + 1/R2 +..."|16:"IN THE PROGRAM TITLED 'OHMS'.""":"":" I * R = V WHERE:".\""K^"":"I = CURRENT (AMPS)la"":"R = RESISTANCE (OHMS)"c"":"V = POTENTIAL DIFFERENCE (VOLTS)"f"":""h"":"THIS EQUATION IS CALLED OHM'S LAW AND":"":"IT IS DEVELOPED FURTHER IN THE PROGR HAVE":"":"EQUATED A HIGH TOTAL RESISTANCE WITH":"":"SLOW ELECTRON FLOW, OR 'CURRENT'.T13:"AS A GENERAL RULE,THE HIGHER THE TOTAL":"":"RESISTANCE,THE LOWER THE CURRENT."W1550X"":""&Y"":"THIS RELATION IS GIVEN IN THE EQUATION:":LECTRONS MUST":"":"GO THROUGH."+@15502C5E"3. PARALLEL RESISTORS SLOW ELECTRON":"":"FLOW LESS THAN A SINGLE RESISTOR SINCE":"":"THERE ARE MORE 'PATHS' FOR THE ELECTRON":"":"TO TAKE."J1550ZO5:"IN THE PREVIOUS DEMONSTRATIONS WE -SUMMARY-"t;5:"1. A RESISTOR SLOWS ELECTRON FLOW":"":"THROUGH A CIRCUIT BY ACTING AS A":"":"'BARRIER'."<"":""!="2. SERIES RESISTORS SLOW ELECTRON FLOW":"":"MORE THAN A SINGLE RESISTOR BECAUSE THEY":"":"CREATE MORE BARRIERS THE EHE 'WIRE' AT THE BOTTOM HAS":"":"TWO PARALLEL RESISTORS.""":"":"":"NOTE THAT ON THE AVERAGE, IT TAKES LESS":"":"TIME FOR THE ELECTRONS TO GET THROUGH":"":"THE PARALLEL CIRCUIT."155020001650"405, 1"":" THER SIDE OF THE":"":"WIRE. ON THE AVERAGE, THIS INCREASES":"":"THE SPEED WITH WHICH THEY MAY PASS":"":"THROUGH THE WIRE."1550; "":"":"IN THE DEMONSTRATION THAT FOLLOWS, THE":"":"'WIRE' IN THE TOP PICTURE HAS A SINGLE":"":"RESISTOR. T/100 +1/100 = 1/50":"":" RT = 50 OHMS."?1550S"":"":"":"""":"THE REASON THAT TOTAL RESISTANCE IS LESS":"":"IN A PARALLEL CIRCUIT IS THAT THE":"":"ELECTRONS HAVE TWO SEPARATE PATHS THEY""":"CAN USE TO GET TO THE OSISTORS":"":"DOESN'T ALWAYS INCREASE THE RESISTANCE":"":"OF A CIRCUIT."U1550"":"":"THE FORMULA FOR TOTAL RESISTANCE OF A":"":"PARALLEL CIRCUIT IS:":"":" 1/RT = 1/R1 +1/R2 +1/R3 +..."5"":"SO IN THIS EXAMPLE:":"":" 1/RT = 1"":"TWO RESISTORS IN SERIES. NOTE THAT, ON":"":"THE AVERAGE, IT TAKES LONGER TO GET":"":"THROUGH THE SERIES RESISTORS."155020001600405:5:" -PARALLEL DEMONSTRATION-"K9:"INCREASING THE NUMBER OF REOGETHER."5"":"":" RT = R1 + R2 + R3 +..."c"":"":" WHERE RT = TOTAL RESISTANCE."m1550"":"":"IN THE DEMONSTRATION THAT FOLLOWS, THE":"":"'WIRE' IN THE TOP PICTURE HAS A SINGLE":"":"RESISTOR. THE 'WIRE AT THE BOTTOM HAS"ԠŮ@@Ҡή@̠ŠЬάԬԮ̭Šή@@ŠůŭҠͮ@@נĠŠΠήРΠŮ@@ĠŮӠ@a҃o̝aoIOU[@@ŠҮ@@ĠͭŠŮ@@̯ĠΠŮ@@٠ӠРή@@ŠϠΠή@@ˠέƠŮ@@ԠέƠŮ@@ԭΧԠŠŮ@@РŠŮ@@٠Ũש@@خ̠ήŠϠƮĮŠȺŠȺŠנŭҮ̠Ԯάج٬ìӬκϠج@@Ю͠ҺجҠΠӠ@ō@@ŠԠج٠ƠżٯξҠƠӼؠӺȺŠҬج٬ŠΠŮĠżٯξҼ٠ήҠμٯξӠȠҠЮԠجٺԠجٺҺԠήԠƮٮԮԮҠҠC ,` hh :`  `8` X :o H8` jL'   LO̤ӳӠǍύӱǍҠŠŠנ   L!"#` !"   L  ` I X`  `(!"#` T"` LzɃ`Ll  H iɍ`hhLB ` ` : i8`Lx$%L"=e?B  DH LX*L5?     ୢ`@ ˪  筤 2H h X`ʆ ݠ`hhL.dd J -Lz hhL5 L- a   LJ a# XԠ H,Q Ġ H iɍ,P  HLB aL aL oL oL   L  ɿ L :` L խL H D  LL5G I(!~ H LI   H  X` Hp H i80   B LB :( H`  : H`L5  u L  xjjmmHjhJJJJ)j L  L  L   H Dg b T  H    I   xLL L5t  H Dc^Y@R C B BH h B  BL L5` TZW:ZXZXZW(ZU1)ZA:22090^VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140pVZA$"":22130VZXZXZW:ZT$Z$:22230:22130VZA$(8)ZA$"":22140VZ(ZA$)2:Z0ZA$"":22200VZA$(ZA$,Z)VZKZW:ZU0ZKZKZA4VZL,ZZR,Z:Z:3:?TVZT$"":Z1ZN:ZT$ZT$(95):Z:22230:S^VZA$"":ZXZXZWYhV:rV16368,0:Z$:(Z$)13(Z$)32ıVZA$ZA$Z$:(Z$)822160VZA$(8)ZA$"":22140VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)2:ZRZX70 VZL"VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090m,V(16384)128İ22080:220506V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK:@VZX270ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:JV0:ZZTZB:    rY8 '24:"PRESS SPACE BAR TO CONTINUE";:Z$:::> ' 0: ' 666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$&----6&6 --??v-- ??d -? ---66&??-- 566&6I  Ibb5 II$4-I16666&$$$$-u???6---6???-)u?d-M nI) ?v- Iv-- Nd I16$II66uuuu66 -I16666fI  --????-I16666&$$??----J  6$R---6  4II  --&&$$$  --666 ??$$$ -6---?w?766$$$$$I --??v--???----??66666M6666-- $$$$666 $$$ 6666v  $$$$4$vd 4v66&$$ 4----.---=I1666? 6n $46I66666$???/---566$$$ 666666--- ???--- ??/6 --&??666-- 4 66666--- $$$???6-@F)@Xgw9Sar!>Z`mx 6K]t-Lbw(5K\m#7;OVE SHAPE L1L1V(4)+L15632820 19:(7)"THERE IS NOT ROOM ON THE MASTER TABLE":"FOR SHAPE "Q1" FROM THE LOAD TABLE."%L1F2:T1Q22,0:T1Q221,0:35000:50041020:2:21((NU)):L1"/$"H$:16HL9T1NU22:L9,D(L1):L91,^"TABLE "Q2" ON MASTER TABLE ALREADY":"EXISTS. MERGE STOPPED AT THIS POINT.":35000:500L9Q22T1:L9,D(L1):L91,C(L1):F2L10,D(T2F1):1,C(T2F1):2,D(F2T1):3,C(F2T1)0-1 ARE STARTING ADDR, 2-3 ARE TARGET ADDR 6915:MMĺ"TABLE "Q1" ON LOAD TABLE DOES":"NOT EXIST.":35000:500"TABLE "Q1" ON LOAD TABLE DOES NOT":"EXIST. MERGE STOPPED AT THIS POINT.":35000:500F20Q2NU70019:(7);:MMĺ"TABLE "Q2" ON MASTER TABLE":"ALREADY EXISTS.":35000:5004,128:ZZ(16384)128:16368,0:ZZ27ZZ13568B:ZZ27500P<18:958jDQ1S1S2:Q2S3Q1S1xN19:958PMM600R17:958S"LOAD #"Q1" TO MASTER #"Q2"."XF1V(T2Q12):F2V(T1Q22)lF10Q1N1660<v19:(7);:MS2S1500&:V2(37)2q0"MOVE TO WHICH SHAPES ON MASTER TABLE?":"STARTING AT? ";:40000:S3ZN:S30380{19582S4S3S2S1:V2:21:"ENDING AT: ";S4618:"PRESS 'RETURN' TO BEGIN MERGE, 'ESC'":"TO RE-ENTER DATA."3816368,0:1638HAPE? ";:40000:958:S3ZN:S4S3:S303804580"WHICH SHAPES TO MOVE FROM LOAD TABLE?":"(ENTER 0 IF DONE, 'S' FOR SINGLE MERGE)":V1(37)1:"FIRST SHAPE? ";:40000:S1ZN:S10380V1:21:"LAST SHAPE? ";:40000:S2ZN:S20380 !20000:$"H$ M2L1:MM0' 9:34,8:200003 MM520~ "MOVE WHICH SHAPE FROM LOAD TABLE":"TO WHICH SHAPE ON MASTER TABLE?" "(ENTER 0 TO END, 'M' TO DO MASS MERGE)" 13:"LOAD SHAPE? ";:40000:S1ZN:S2S1:S10380+20000:13:21:"MASTER SPES":"ARE TO BE TAKEN (PRESS 'RETURN'":"TO END) ?";N1$:958:N1$""880V FI$N1$q D$"BLOAD"FI$",A$2000" N1$FI$: N1(T2):L2V(T2N122) L0L1:L1L2:1020:L1L0 5:958 "LOAD TABLE "N1$ "MAX SHAPES="N1", LENGTH="L2"/@ 4"TYPE FIRST POINT COORDINATES ";:X1,Y1]("SECOND POINT COORDINATES ";:X2,Y2s2"TYPE STEP ";:S{d:n3,X0279S6X1,Y1X,0X2,Y2@X1,Y1X,159X2,Y2JXTY0159S^X1,Y10,YX2,Y2hX1,Y1279,YX2,Y2-----------------------------------------------------------------------------------------------:???????????,$-,$%,,66766.$-??'''?<''<$IIII????????????????????????????????'%,,$% 5-6..6???????????????????$,.?7/-->???????.&46%,=66%$,&,,,,,,,,,,,,,,,,56-....6--..55-...-.56-..55.55.-.56666--I#$$$?????????????????????<>7?>??<<<$$--5.%-,%--..555=766?/---=???'?/---??????????-%<<<$$,$$$$,-$$ -?',Q#4=676666666v----------$-,6.-5------------------------------?77>7?7???'-,-,%%%%,$%,$?$555--...--->>>>>???>7?>67>>>7?>?''--,,$%<<4556??'????7?>>77>&%%$%%-,---,--5-<$%,.5-.55566-.??$<<'?<''$$%%%%%%--...5-.5??4,,$,>/-5???>7%%---,=>?76*6777555-%%%%-,$%-='45-55-..67??66>6677777I555--...--->>6?>???>7?>--.-.-.-...5-6??<''?'??'????<''.''&4..>??'??>>?>Z,Z1:: l 76,18,3,0,162,1,189,2,64,208,4,202,240,248,96,104,104,96,172,0,64,140,3,3,152,24,10,141,7,3,169,0,105,64,141,8,3,32,4,3,136,208,234,140,3,3,96 dSDY:307. ?A1$"0"A1$"9"A$A$A1$:314T @A1$(8)A$(A$,1,(A$)1):314h AA1$(13)314} BLS0:A$"0"340 C(A$)1(A$)V(TA)312 DX(A$):X(XZ)X(XZ)Z:305 EXX1:X0INC1:305 JX T:: XZ046:Z1:768" AT "XX","YY0 7XZĢ21:28:(7)"LAST SHAPE"D 816368,0:A$""g :24:31:868:"?"A$;:A1$:21 ;A$""A1$(3)340 <A$""A1$(8)325 =INC1:A$""A1$(13)330 >DX(A1$"L")(A1$"R"):DY(A1$"U")(A1$"D"):DXDYXXXXDX:YYYY(771) ,X1Z:INC1I 1V(TAX2)0INC(X1)(X1)INC:XXINC:305` 2XX100:YY100:SNX 3XX(XX0XX279)XX(XX279)(XX280)(XX0)(XX280) 4YY(YY0YY191)YY(YY191)(YY192)(YY0)(YY192) 6:XXX,YY:21:1:868:"SHAPE #"XLOG":$ x"SHAPE TABLE NAME:";A$:B 232,0:233,64:A$""200K 50e D$"BLOAD"A$",A$4000"p 216,0 22:1:"PRESS RETURN FOR NEXT SHAPE, <- FOR":"LAST ONE; U, D, L, OR R TO MOVE SHAPE;":"OR ENTER SHAPE # (0 TO STOP)."; 600:768:Z$4r266f u$$$ruۛ e 26v- %$4666?66------66&6vII6666?$66666$d 2I$$66666266&$ 66&$d 66&2266&$ -66 -u6?$ 26666$$$ -6?$*---/--- -%46666$$<?$2. -u?76& --u??v--u??vI6?--?666ve226v- %$466&626e ----????6  $ --?6 --66'$<6=$$466--6 -%466&<?$ 66666$d -6? --??6--  -%$$46666&<?$ 6 -u>???v--*-=766&$$$d -$ -%4666?-e$$?$ 666f -66#$$I d:n3 X015910,Y159X9X,00,YHX,0159,YYX,159159,YhX,1590,YoX'24:"PRESS SPACE BAR TO CONTINUE";:Z$:::' Y 191) s(P2191)(P20)130) xP1,P20 Xb 24:"PRESS SPACE BAR TO CONTINUE";:Z$:::p 16301,0v " 2:: 416302,0: ** TOGGLES FULL SCREEN DISPLAY **A 73V ; ** BOARDER ** w <0,00,191279,191279,00,0 E ** MAIN GRAPH ** FXX1X2S PYX2 Z ** SCALING AND INVERTING Y ** dP1(XX1)(X2X1)279 nP2191((YY1)(Y2Y1)>6777?>?>?>7??7----%------,%--,-,,$-,%%%,$,%%<--------------------6???????????????????66666666666?$$$$$$$$$$$$-------%-,$$''<<<'?776>??'?77-5----%-$<<,%-?>'?..>>>%-,5677??6---5?>????>>6665>?>.--%$$$,,--<$'?<''??>6666666666666666677665?/IIIIIIIIIIIIIIIIIIIIIII -=77>77.%-.666.6665.65-.5-5---.-5--.--.--?>777?>>?>?>????????<''<<<>'$-,$%%-67%$$$$$$$$$$$$$$$$$$$$$$$$$$$$$766666666666666666666666666666??????'$$$$$$$$$$$$$$$$$$$$$$$%$%,$%-,%-%--5-5-.55.656566666666666666666666666-----$$$$$$$$$$$$$$$$$$$$$$<$$'<$''?<'?7?>777>676>6666666666666666666666.-----------%$$$$$$$$$-,$'?6.$.5?>'?<'$''$6.66.6'67777?>??77---.--,,<<<>>????7?''''<-%---.='???>?$'$%$dI5'MI=.6$$$$$$$$$$$$$$$$$$$$$$,$$%$%,,,%-,-%-------$'',,-.677.------5--.5-..65656.666666666666666666666666666???????????????????????????'$$$,--------------------------=?????????????>777?7?7???$-7$56-....6--..55-...-.56-..55555.5-6.666.--%4-?'?'?<7?>>77??????/-???7?77?77?77?<<<<<7555555-.-.---5------<<<<''/..,--&,47???.555-.-%%-,,,%-,-$/.-%%$ۛIII/$,----.-5--5--.--.-5--.-5--.-.%$,$,$%%$,,,,%-,676?/7?&-,--.-.-.%,,$,%-65>>67.5.5566-.555555-6&$?<<|III5',>>.-577--->>.-577--6>67>><<4766><<455=<<<>66'6?>7-,%-,%,%,%,%,,$%$<$<<$''''''',,...55-*~IIIII!''?<'????>?-$,,,-%--..>>3.65>67.-%-,,$<<<>67?>.6555567>7?<<'<',$%$'$$6666657?>>>?>????65-5-.%%%?=====<>>----%--,,%%%%?>>>?'??>?-MQ,>>>77.%-,-,--%-------.5---%<$,-55-..5%$<$/$%$%,4?7?>???>>>??>???>>>655-.-.&'?'?<<$MI 5/6>6?6?>?>...-%-,%%%%%----%---55----$',-5-.5-.-$'$/$%$%$4?>7??=7?>7?<'?>...-.5-,-,6-..-...??????????>>%-5.&'$-,,,,,-6$$<,$$$<$<77>777>.-67?7/,%--?77?>??7>77?>>?6..-%=6-.-55-..5-55--,,%%-,,?>??7$'-----,--''-----?????'<<<[)mIII $,$$,$46766>6$6?<'''$,,,,-,$dI??>?>?>?'?6?7??>>/?.--$-----.----.--------%-,%-,-567>67>6>>>,%,%%,,%-%-%-,%-,%-46?>67777>77>7?>>>7-"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$'<$'''-.5-.5mIIII'??6765..%/%54?<<$''?>>6>6...%-,,%<$$%%,,$$%%%-,<<$%-,--..555-%-,-5.5..&??<6?7555='??>7.55-&?<6??66..655%-$%46666-.$%%,4666.55??'??>?>?'<<55----%%%%<,''=>67?>>7??'??>7?66>6$%$$<$?<'?'?,,%,%4??/7??>7>7---=????>>777>676.65.%-,$%=>67?6555=<<<<,5,,$%M1...-,$%<$'?>>7&,,#7%<.5-.->67--%-,%%??>?-%--%-,,='''<$LI???'??766%$$$=???d,$%-%--,-%%-,,-%-----655....5---%--,5>=>66.6.????????????''''$ m+<..666>6>--,-,-5>6----,%-----.---%-%-%-%????z d:n3 X015910,Y159X9X,00,Y@Xr'24:"PRESS SPACE BAR TO CONTINUE";:Z$:::x'  TINUE";:Z$::: 0R ** & <0,00,159279,159279,00,0= E ** MAIN GRAPH **L FXX1X2SV PYX2z Z ** SCALING AND INVERTING Y ** dP1(XX1)(X2X1)279 nP2159((YY1)(Y2Y1)159) s(P2159)(P20)130 xP1,P2 X 24:"PRESS SPACE BAR TO CON_ |~[~{}>_}?_?|k{o;_ow[o_?~{ox? }xc?}w{}>{m??X_{{?ww~_>wv{w?o@z>{m??x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>f}x}~[>@}{wooq?o                        .677.677.677.677.677.677.677.LLLB @@@ 9 9ii8@ȑL` Y\YZ\])Y\L``]Vа3RROR #"ER" HAS OCCURRED":"IN LINE #"V(218)".":34,0:BDŰ35000XNŢ16:958:50000^XŦhbʼn::0000iXŦsbʼn::T1T2DNSZVPZHZZNNUL8L9LLB @@@ 9 9iLUNLOCK"FI$:50510ë50045XíER13ĺ"FILE TYPE MISMATCH. USE ANOTHER NAME.":50045íER11ĺ"ILLEGAL FILE NAME - USE SOMETHING ELSE.":50045íER25550530ú"SOMETHING STRANGE IS OCCURING AND I":"AM UNABLE TO CONTINUE. SORRY."7â21:"EN.":50000}ôLN120,380qíER9ĺ"DISK FULL. PLEASE INSERT ANOTHER"::"DISK TO SAVE YOUR FILE ON.":50500íER1050070â16:"FILE LOCKED. SHOULD I":868:"OVERRIDE LOCK (YES OR NO) ?";Y$:Y$(Y$,1):Y$"Y"Y$"N"50061íY$"Y"ĺD$"^ZN$"S"MMMM0::500AhZN(ZN)ZN0(ZN)ZN$40010GrTPò ERRORSiZER(222):216,0}dâ16:958:(7)níER4ĺ"PLEASE REMOVE THE WRITE-PROTECT":"STICKER FROM YOUR DISKETTE":50500xíER650050 zú"FILE NOT FOUND. TRY AGAIH$B1$ `tL1L9:3 N35,16:958:35,24:~24:868:16368,0:6:"PRESS '";::"SPACE BAR";::"' TO CONTINUE";ˆ16384,128:16368,0:1:868:@ZV(37)1:ZH(36)1JZV:ZH:868:"";ZN$:ZN(ZN$)TZN$"M"(MM)MM1::500THE TABLE IN MEMORY) ?";N1$:N1$""9803FI$N1$SD$"BSAVE"FI$",A$4000,L$"H$_N1$FI$j22016w216,0:L9L1:H$""X9411$X8(L116(X91)):L1L1X816(X91):B1$("0123456789ABCDEF",X81,1)8B1$"0"H$""1120LH$C(L1)CRMMĢ19:958:"LOAD #"Q1" MOVED TO MASTER #"Q2".":500|\Q1:22:13:"MERGE COMPLETE.":35000:22:868:500p::1020"MASTER TABLE ";N$"MAX SHAPES="NU", LENGTH="L1"/$"H$'"NAME TO SAVE (PRESS 'RETURN' TO LEAVE":868:" ** SCALED GRAPHING **%:w"THIS PROGRAM WILL DRAW THE SINE CURVE":"":"Y=SIN(X) WITHIN GIVEN LIMITS."10:"INPUT...MINIMUM X,MAXIMUM X, X STEP"#X1,X2,S(15:"INPUT...MINIMUM Y, MAXIMUM Y"-Y1,Y22:73 ; ** B d:n3!X1015910/X2159X1?X1,X1X2,0GX1y'24:"PRESS SPACE BAR TO CONTINUE";:Z$:::' %---,--$,-55555565=?<$?<''''$$$%$,-.5-.5-.-=>??''?>>>?>67777,,,$%4/%6-566.56675655%%%%,$%-$%$...5-5-.557?'?$--55-.<' ,-.-..>>?4?66>6677777......67777?7?>>77?>6><<<-,$%,,,>&%%%-6>677??>>>6>>6>..$%%%,,%-,%-,%--,$%''65->.-.--,,$=665-.5-655?>>>6-,,,,$,<<<$'?,%-,,$,$$$%?4--,,''?<7776>6777...>>>>>>>$7,%%,,?<<-''$'$,$<<>?>'''..&?>666555-.6'?'''?$<$'$''77777>>6655-<<<$%%%-,,$'?<<$%%,,-???>>77>6'%%%%,5--%?'?'?''$%-,--?>77?6$$,>>6.,47755766>>>??77?>>67/,-,45=>>>77766565.<<$$,,,,-,$'''7-556565....55-.%'?<<<<$',,$%<<,655-%%=>.55.6=>>.-.65-.<<$'>>'-,,?<'OI ''<'%%%%,$%$%-%-'''?$%,476>77''''%%%>>>.-,477.676>67>??'????>??>?>>67>>6767666655>6-=.-67-.,-=$'$$,$$$%$$$$45666666666676--%$'$%$%,$$$*-,$',,$$$$<$<$'<$/$,,,,,,<<<<%%%,7?>'???>'?<97?7?>77>665-5--*27@*n9n : i 5 +4 :Oc         PQRL _`PQRLF@  ii8@ȑ``LK w̮.Dɠɬ 80 ` LD`H HH  h}h} h}LD>>`PQRSU T RiΰRPQm H`& 'JJ) e ʥ0)Je`  LJ@0`PO0@ OP` JLZ*+*++8 ``*U.*m@m  ii@``@L@@@jeejh ) &   Hhhhhhh m I LS `)(%01&%0)&E%0Q&&e)jLLJJJJӊ)IȄҤѢԆզ8eЅԐ re҅Ր sJJJ`& ')*if&i'`H h('i,&i,&iPII&if&H8HӰ hIiHӅхhЅhIi҄f8Ъх 8e҅ԥձ&E%0Q&&Ӱ eЅԥeP`ŴxaI1h`H L I) hHjH!jhJJJJ)`hh   `H!"(h`H)&JJ&&h' &' &' f&')'#i媽0J1` 2Q&%0Q&&`,H h(0JI0`'0 I`H h(0 I0ԩ(נ08H h(',"&,i8i#H&ii&h R b M н R $ ͸x !" #$  %*  %   %jjj Lc L ɟO  R Hhhhh :`!"/"j!jmm  ::1$ ** GREEN FIELD **71,1:62454:3[5,10275,10275,1505,1505,10lX4024020|(X,10X,1502X<Y1013010F5,Y40,Y20:240,Y275,Y20PYZX5023020dX,150X,140:X,10X,20xX 21:" G ~ox_8onV;W[]_]n}v{}{8_|w_ox?|g?~xc?oox p|ao?lxg}{}n}}<_O7sO{_qq~{nqan{`xqqo88`}~\8_~?~~gox?O}x~?}x}>[o_?|p{{@|~?~~1wvwg?o@q_o>{m??|C>{m?_}~w?@~`?@_O~zog>{K/{~px{}??~>{o7_ow[oOygxs_X_nfWO{]_>n}v{}~{~>_}w{wOo?~?o?x?ocO}{}^~}>_o7_{o_nn~{v{nn{{wnnO0?~}~w[~{}>_}?_qwlw`\o<>@ox?a@}xx?pAw{}>|`?8o{;?o{~_}~.wvsw?o@G?w>{m??xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o_{wpg_X_nvW_{]_~n}v{}~;>_}{woo|?o?x?o~_}?@??p>nw`?@{?|c@ooo}}`|a?l?~gO{}v;p>nw@~n~{z{fn{{onl PROGRAM:DRAW/DRAW SHAPES ON SCREEN.JCRAIG COPLEY, 5/14/80P(h)MAJOR MODIFICATIONy*TMB, 9/5/80+,LAST UPDATE: 9/5/80-:2216,0:8192:::255:<V(X)(X)(X1)256F1:0:3 nD$(4):TA16384:D$"CATA ,100,100,150,100,150,150,150,150,150,150,100,150,100,100,100C CM :: BAR TO CONTINUE";:Z$:! HII1P KI2Ģ22:"SINGLE PLOT: ODD X & Y VALUES."l MI3Ģ22:"DOUBLE PLOT"y OI4500 P55 , 20,20,20,70,20,70,70,70,70,70,70,20,70,20,20,20 ^ 101,21,101,71,101,71,151,71,151,71,151,21,151,21,101,21<  100O ** HI RES COLORS **6 ** DOUBLE DRAWING **>:FI1q22:"SINGLE PLOT: EVEN X & Y VALUES."24:"CHOOSE HCOLOR # (0-7)";(C%2C%7T149A,B,C,D;A,BC,D>I3ēA1,B1C1,D1AT F24:"PRESS SPACE ox>?|}?~?xp~@|_>?7{ox?s}|q?}w{}>{n?_?oo~o@_~{~`~{o??g]{m?_}vw?~~~?~PO>zog>{k/{~w_o~{}~n}?|>{o7ow[n_{wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}{}v{}:_/7wg?|{_}>`x{}|ox<@}~??|_Oox?g}xG?}w{}>;o_?go?~o@|_o@n?p?p>{m?_}vw?ppx?X_~zoo>{k/?{~w[o~{}~u}?~>{o7owoWz   ?66..655%-$%46666-.$%%,4666.55??'??>?>?'''-----?????'<<<[)mIII $,$$,$46766>6$6?<'''$,,,,-,$dI,.5-.->67--%-,%%??>?-%--%-,,='''<$LI"%%,$$<$'ܛ=.L!''''<$?7?>7>67>665.6&<77?>7?,$%$,$=$'<$'''-.5-.5mIIII'??6765..%/%54I666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-=<<$''?>>6>6...%-,,%<$$%%,,$$%%%-,<<$%-,--..555-%-,-5.5..&??<6?7555='??>7.55-&?<6?6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$- 666?- 66$`>p`?8ok=?o{z^>?Wt?~Ox?x|}?v{}A{ p`?OO|O@_~{~_o~{o??k{m?_}vw?|x~0W]v[k6wmo.{~w_o~{>_}?y>x`ow[m_{wsownw_opq?xg~xA?oOoy]_{??oogO{}{w{}6_o6qqpnpqan`{qqqwqq`}O9^~}~{}~u}w{6I666?/6666d $ 6666646$du6&$ 56&I6&$t -6& -u6?$2666$$d -6? u$666$$26&d -? --??-u??< 6-??-66ve26- $6662ve $626f u$$ru e ?26- $666?//*----=*----& )-u6??6-- $??$ -)-u6?$)--6666II I---???   --L )-u6??$$$ --66?-?$,>? -$66$?$ 6666$ -6? -u?6-e I 6666$?$ -266$$/=$ u -$66?4m1?=6666$ -6&6I66 dI6II666 I6666$$ LI:--- I266&$?/--=-R <. .*--=R <.-II $)-u666??$$$ ---I 6666?/--=- --.--= --6?/-6??66---'$4666&---???66--u6??/?II?.--6??$,----6?$$$ 6666$$$$--u6??/u6)-u??6--6??6---??5666&?666v-- $$$4 66v $$4$6666 $$$$ v# 46v66$$ 4=---.--=I666M 6 $- 6666 $$$$6/-???-66=?---?I6666<-- ??d-- II& #7J 5' v-e- $??7-)-u&??666-- 4?6666--e$$$??/6---???66--??66---6---???66--??66-)-u??666--%$?-66666$$---$$6666)-=7666>/-=6II666??46666$$4- 66666--- 6666$$$$ 66666666$$$t&$$$4$)-u666??$$$ -6666$$$$--u6??7)-u66@d';L_q~ !5AN[l~ "CPZaju)/7CNZg $4AN`r} -u>??v-==I66#$--=??$ -6666--e$??-    ''?>>6>6...%-,,%<$$%%,,$$%%%-,<<$%-,--..555-%-,-5.5..&??<6?7555='??>7.55-&?<6??66..655%-$%46666-.$%%,4666.55??'??>?>?'''-----?????'<<<[)mIII $,$$,$46766>6$6?<'''$,,,,-,$dI?'???<'?97?7?>77>665-5--5--%?'?'?''$%-,--.55-.5--<$''???/--%5,-,%-,$-65..5-%$<$'$/$%,$,<>?>7?66>6$%$$<$?<'?'?,,%,%4??/7??>7>7---=????>>777>676.65.%-,$%=>67?6555=<<<<,5,,$%M1...-,$%<$'?>>7&,,#7%?<<$ #" -RECTANGLES-":""T"TYPE: X1,X2,Y1,Y2,STEP":"":X1,X2,Y1,Y2,S\d:hnI130xX1,Y1X2,Y1X2,Y2X1,Y2X1,Y1X1X1S:X2X2S:Y1Y1S2:Y2Y2S2I'24:"PRESS SPACE BAR TO CONTINUE";:Z$:::' ; ox?>pp}xO?}o}}>{m??X_{{@ww~_>?wvyx?o`}?__`_@_~{~_o~{0@?p_0G~~[~{>@}?]{o}_ow[g_{wgog?wox?o@?~}@n?@?x>{m?_9vs}xA?ooo}];?oogy{s{]w{}_o3_~nnun{~n{{nnfw?~oxp67\_{]qcfmv{}~{}>_}woxG?G|}x?}_~}>{m?_?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~_o~{o???~wp`}xxs~xXc_}?c>{o~_ow[k_{wwoO?w{nsox|?xO>n?_}xw666$,e$? u66$$666$, u -=?-?/- 666$$=/u6ve $666 $-66 $$&- 6ve $66?-----/------.-= 6/?7 I--??q - &)u6'4$46v-=$ u$66$>46666$ u66 -?6- I166&$ -66" ->?7--'du66& -6&$6M??666$ u6&66&/I66?6666$-  6666&$ & 6&66$, u6& -6?$- 666?- 66$ZV.5:20711PZVZV268,255,239,227,212,201,189,179,170,159,151,142,134,127,119,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47N230,0,230,1,230,2,230,3,174,48,192,166,0,164,1,136,208,3,202,240,243,233,1,208,246,198,3,208,242,198,2,208,238,96yxA?ooo}={{^o^k|sg{=w{}>_o7_~np{p{~`{{aqjwxO8oJV[_{]n]v}v{}`~>_}|0000:NUZN:NU1NU255240/ 16384,NU:6912b L8NU24:L9T1NU22:L9,D(L8):L91,C(L8)k ,160} @1020:34,0: T"MASTER TABLE ";N$ h"MAX SHAPES=";NU;", LENGTH=";L1;"/$";H$ rLN2:34,4:J |5:20000:"NAME OF TABLE FROM WHICH SHABLOAD"FI$",A$4000" N$FI$:= NU(T1):L1V(T1NU22)F 320 5:"ARE YOU ADDING ON TO AN EXISTING":868:"TABLE IN MEMORY? ";S$:S$(S$,1):S$"Y"160 S$"N"200 8:"MAXIMUM NUMBER OF SHAPES IN":"THE TABLE (1 - 255) ?";:868:4)X(X256)256- <T116384:T28192:D$(4)C P:D$"NOMONCIO":V Z216,0:50000 d"NAME OF EXISTING TABLE WHICH WILL":"CONTAIN NEW SHAPES (PRESS 'RETURN' TO" nLN1 x3:20000:"CREATE A NEW TABLE) ?";N$:958:N$""200 FI$N$ D$" PROGRAM: MERGE6 LAST UPDATE: 80/9/4< UCRAIG COPLEY 79/1/8[TO MODIFY PROGRAM: BSAVE TEMP,A$1B00,L$AF; MODIFY; BLOAD TEMP,A$1B00; POKE 175,178:POKE 176,27:(8192 2V(X)(X)(X1)256:C(X)(X256):D(X              ** SCALED GRAPHING **%:r"THIS PROGRAM WILL DRAW THE PARABOLA":"":"Y=X^2 WITHIN GIVEN LIMITS."10:"INPUT...MINIMUM X,MAXIMUM X, X STEP"#X1,X2,S(15:"INPUT...MINIMUM Y, MAXIMUM Y"-Y1,Y22:73 ; ** BOARDE70ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:bEV CLEARS ANY SPOT ON HGR SCREENJV0:ZZTZB:ZL,ZZR,Z:Z:3:TV UNDERSCORES ON HGR SCREEN^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:hV INPUTS ON HGR SCREENrVZA$"":ZXZX22080:ZX276ZW8:ZT$"TO GO ON":22230PVZ1(ZS1)84:(16384)12722070WVZ"VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090,V(16384)128İ22080:220506V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK:=@VZX2 ";:1:21::ZV1:ZH1%S251,ZZ+ SFU232,0:233,64:230,32vUD$;"BLOAD SMALL CHARACTERS":ZH7:ZW5:ZH1U62450:16297,0:16302,0:16304,0:3:1:0:U16301,ZF:V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230(VUE";:ZMZM35.1567RZC(16384):ZC141ZC16021270PSZWZW1:ZWZM21240ZSZM25fS:ZFĝSZW0:13:"SPACE BAR";:ZFZFSZWZW1:ZC(16384):ZC141ZC16021270S(ZWZM)121255,21253S16368,0:7::" TINE$RZW0:ZMZS:ZF0:ZS0ZM15HRZH(36):ZV(37):ZZ1200:ZZRZZ(251):24:7:16368,0:"^PRESS ";:251,1::"SPACE BAR";::251,0:" ^TO ^CONTINUE";:ZMZM35.156:251,1:21240R24:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTIN H jɃvL   H H H A L  H hh T XL  H !  9 a XL 9 H XL e H  4 h hh T!L   נ H  `Π H  R `S mL ` H 4 H 2#$ h B L 1 H  4 h L 9 a X6 H 5 H A 8@D H 5 H A iȱiȥ`Ԡ H H    Ǡ H  $Π H    0HhL  ,   =   x L, I X  : HLS   '0 LS  H D ⭡ @ Xo H{ HL   XP H  XL ,W,S,P X H  m X H$ H     H $@x 3,Q,T!67  X H H j wL X T X H L X H Dﭡꭠ L 0L)  X T X H H H X  H@@ $- H  5 H A8: TABLES 2.0G BY:CRAIG COPLEY (C) MECC 1980 C40M2144W(2147L Hޠ  Ġ Hɍ 9 X H HLLL PJ TuVTvP`P&Q&R&S8RTSURSP` 9L     OARDER ** + <0,00,159279,159279,00,0B E ** MAIN GRAPH **Q FXX1X2S\ PY(X) Z ** SCALING AND INVERTING Y ** dP1(XX1)(X2X1)279 nP2159((YY1)(Y2Y1)159) s(P2159)(P20)130 xP1,P2 X 24:"PRESS SPACE BAR DOWN IS THE +Y DIRECTION.** $ <TV F24:"PRESS SPACE BAR TO CONTINUE";:Z$:::\ P D^ ** GRAPHING **:922:"PARABOLIC GRAPH"@3 ** ANOTHER COLOR MIGHT MISS SOME POINTS, ODD OR EVEN VALUES OF T **T112(JT22T,159J 3 ** 159- IS HERE SINCE NORMAL Y COORDINATE AXIS IS INVERTED ON THE SCREEN,..  70ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:bEV CLEARS ANY SPOT ON HGR SCREENJV0:ZZTZB:ZL,ZZR,Z:Z:3:TV UNDERSCORES ON HGR SCREEN^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:hV INPUTS ON HGR SCREENrVZA$"":ZXZX22080:ZX276ZW8:ZT$"TO GO ON":22230PVZ1(ZS1)84:(16384)12722070WVZ"VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090,V(16384)128İ22080:220506V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK:=@VZX2:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:22090t VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140 VZA$"":22140 VZXZXZW:ZT$X$Z$:22230:22140 VZA$(8)ZA$"":22140 VZ(ZA$)2:Z0ZA$"":22200 VZA$(ZA$,Z)VZ>,75,71,67,64,60,56,53,50,47$N230,0,230,1,230,2,230,3,174,48,192,166,0,164,1,136,208,3,202,240,243,233,1,208,246,198,3,208,242,198,2,208,238,968024#T"ERROR "(222)" AT LINE "(218)(219)256@#40000F#U#PòUSER DATAn#`MECC SUPPORTED DATA#0MUSIC ROUTINE#:-MUSIC$D1,378,358,340,318,302,284,268,255,239,227,212,201,189,179,170,159,151,142,134,127,119,113,106,101,94,89,85,80X(Z1)ZW:ZI0ZI(279ZWZA)22330@"&WZZZD(ZZZD0)ZI,ZJ]"0WZF1ZXZXZA:ZD0:ZF0f":WZ:"WPRINT FRAME # IF PEEK(1023)=87"W(1023)87ı"W1:36:"# ";FR"W"0uUSER WRITTEN SUBROUTINES"@ERROR PROCESSING"E802#J216,0:ZK:22140%!V WRITE ON HGR SCREEN3!VZT$""ıR!VZJZY15:ZJ0ZJ192ZHı!VZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330!VZU022290!VZZ65ZZ90ZD0:22300!WZD64:ZXZXZA:22300!WZZ94ZF1:ZXZXZW:ZD64:22330%"WZIZ,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140C VZA$"":22140h VZXZXZW:ZT$X$Z$:22230:22140 VZA$(8)ZA$"":22140 VZ(ZA$)2:Z0ZA$"":22200 VZA$(ZA$,Z) VZKZW:ZU0ZKZKZA !VZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZW*|V16368,0:Z$:(Z$)13(Z$)32ıRV(Z$)8ZXZW(ZU1)ZA26722140qVZA$ZA$Z$:(Z$)822160VZA$(8)ZA$"":22140VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:220901 VZA$(ZA$,1@ Fl$$,--$-.%6.-<,$$??766?>6666.---666666.5>??$$$$$77777557'''''%%%%%$$665555-,.>>>><<<<<<666.5>??$$$$$$$ TO CONTINUE";:Z$::: X ** SIMPLE ANIMATION **&:3T1100:(3P2 ** DRAW LINE **c<0,T100,100TrFN130:NK **ERASE LINE **P0:0,T100,100TZTd24:"PRESS SPACE BAR TO CONTINUE";:Z$:::n 1z# ҠŠ ӠŠ  ͠Ӡ ŠӠ נ ŭϠ" ҮŠ ҭŭР  ̠ ! ӫ " ̫Ƞ Ԡ Ӡ Š ̠Ӡ ӳŶ ӳŷ Ӵű ӴŲ  ӵű נ Ѡ  ŠŠ ӳű ӳŲ ӳų ӳŴ ӳŵ Բ ̠ ̲DZ Dz dzŠ !ӲŴ"ӲŵӲŶӲŷӲŸ ӲŹ Ԡ ̠̲ǠŠӲűӲŲ Ӳų "ӱŷӱŸӱŹӱűӱűӱűӠ Ϡ ӱű ӱŲ ӱųӱŴ ӱŵ! ӱŶ,75,71,67,64,60,56,53,50,47$N230,0,230,1,230,2,230,3,174,48,192,166,0,164,1,136,208,3,202,240,243,233,1,208,246,198,3,208,242,198,2,208,238,968024#T"ERROR "(222)" AT LINE "(218)(219)256@#40000F#U#PòUSER DATAn#`MECC SUPPORTED DATA#0MUSIC ROUTINE#:-MUSIC$D1,378,358,340,318,302,284,268,255,239,227,212,201,189,179,170,159,151,142,134,127,119,113,106,101,94,89,85,80X(Z1)ZW:ZI0ZI(279ZWZA)22330@"&WZZZD(ZZZD0)ZI,ZJ]"0WZF1ZXZXZA:ZD0:ZF0f":WZ:"WPRINT FRAME # IF PEEK(1023)=87"W(1023)87ı"W1:36:"# ";FR"W"0uUSER WRITTEN SUBROUTINES"@ERROR PROCESSING"E802#J216,0:ZK:22140%!V WRITE ON HGR SCREEN3!VZT$""ıR!VZJZY15:ZJ0ZJ192ZHı!VZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330!VZU022290!VZZ65ZZ90ZD0:22300!WZD64:ZXZXZA:22300!WZZ94ZF1:ZXZXZW:ZD64:22330%"WZIZ,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140C VZA$"":22140h VZXZXZW:ZT$X$Z$:22230:22140 VZA$(8)ZA$"":22140 VZ(ZA$)2:Z0ZA$"":22200 VZA$(ZA$,Z) VZKZW:ZU0ZKZKZA !VZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZW*|V16368,0:Z$:(Z$)13(Z$)32ıRV(Z$)8ZXZW(ZU1)ZA26722140qVZA$ZA$Z$:(Z$)822160VZA$(8)ZA$"":22140VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:220901 VZA$(ZA$,1Z,Z1:: l 76,18,3,0,162,1,189,2,64,208,4,202,240,248,96,104,104,96,172,0,64,140,3,3,152,24,10,141,7,3,169,0,105,64,141,8,3,32,4,3,136,208,234,140,3,3,96 dSDY:307. ?A1$"0"A1$"9"A$A$A1$:314T @A1$(8)A$(A$,1,(A$)1):314h AA1$(13)314} BLS0:A$"0"340 C(A$)1(A$)V(TA)312 DX(A$):X(XZ)X(XZ)Z:305 EXX1:X0INC1:305 JX T:: XZ046:Z1:768" AT "XX","YY0 7XZĢ21:28:(7)"LAST SHAPE"D 816368,0:A$""g :24:31:868:"?"A$;:A1$:21 ;A$""A1$(3)340 <A$""A1$(8)325 =INC1:A$""A1$(13)330 >DX(A1$"L")(A1$"R"):DY(A1$"U")(A1$"D"):DXDYXXXXDX:YYYY(771) ,X1Z:INC1I 1V(TAX2)0INC(X1)(X1)INC:XXINC:305` 2XX100:YY100:SNX 3XX(XX0XX279)XX(XX279)(XX280)(XX0)(XX280) 4YY(YY0YY191)YY(YY191)(YY192)(YY0)(YY192) 6:XXX,YY:21:1:868:"SHAPE #"XōŠźԠŠŢͺĠҭŭЍ̲̠̲Ĥ̠ӢȽ׽źŠκҺōͺϲ΍̱̲Šō   1   :310,0279,0279,1590,1590,0B(0,80279,80U-140,0140,159]221<"TYPE IN A RADIUS,(10 TO 75): ";ARFXRRPY(R2X2)ZX140,Y80dX140,Y80nX x24:"PRESS SPACE BAR TO CONTINUE";:Z$::: I,ZJ!0WZF1ZXZXZA:ZD0:ZF0*:WZ:NWPRINT FRAME # IF PEEK(1023)=87aW(1023)87ıuW1:36:"# ";FR{W0uUSER WRITTEN SUBROUTINESPòUSER DATA`MECC SUPPORTED DATA0MUSIC ROUTINE:-MUSICnD1,378,358,340,318,302,284,Y15:ZJ0ZJ192ZHıNVZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330^VZU022290{VZZ65ZZ90ZD0:22300WZD64:ZXZXZA:22300WZZ94ZF1:ZXZXZW:ZD64:22330WZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330&WZZZD(ZZZD0)Z:22140,VZXZXZW:ZT$X$Z$:22230:22140HVZA$(8)ZA$"":22140jVZ(ZA$)2:Z0ZA$"":22200{VZA$(ZA$,Z)VZKZW:ZU0ZKZKZAVZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140V WRITE ON HGR SCREENVZT$""ıVZJZZW(ZU1)ZA267221405VZA$ZA$Z$:(Z$)822160QVZA$(8)ZA$"":22140VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:22090VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140VZA$""&EV CLEARS ANY SPOT ON HGR SCREENIJV0:ZZTZB:ZL,ZZR,Z:Z:3:jTV UNDERSCORES ON HGR SCREEN^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:hV INPUTS ON HGR SCREENrVZA$"":ZXZXZW|V16368,0:Z$:(Z$)13(Z$)32ıV(Z$)8ZXȭ(16384)12722070 VZ^ "VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090 ,V(16384)128İ22080:22050 6V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK:@VZX270ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:64:230,32: UD$;"BLOAD SMALL CHARACTERS":ZH7:ZW5:ZH1n U62450:16297,0:16302,0:16304,0:3:1:0: U16301,ZF: V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230 V22080:ZX276ZW8:ZT$"TO GO ON":22230 VZ1(ZS1)84: PSPACE-BAR ROUTINE; PZH(36):ZV(37):ZZ1200:ZZP P24:7:16368,0 #P"PRESS ";::"SPACE BAR";::" TO CONTINUE"; (PZC(16384):ZC141ZC16020520 2P16368,0:7:" ";:21::ZV1:ZH1: U232,0:233, SUPPORTED SUBROUTINES@ NZIZDZT:ZJZH(ZP): MUSIC ROUTINE. h N0,(ZJ256):1,(ZJ(ZJ256)256) N2,(ZI256):3,(ZI(ZI256)256) N768: NZH(37)::ZT60 NZ$:Z$"-MUSIC"20122 NZ037:ZH(Z):Z NZ033:Z1:768Z,Z1:Z:ASSOCIATED FILES: . INITIALIZATION8 ::A 255S D$(13)(4)i D$;"NOMON I,C,O" USER DEFINED FUNCTIONS START OF MAIN PROGRAM 'EXIT ROUTINE ':::(4)"PR#0":(4)"IN#0" $':255:(4)"MAXFILES3" * NMECC 2234,0::10:"INSERT THE DISK THAT YOU WANT"O7"THE PROGRAM SAVED ON."F24:10:"PRESS ";::"SPACE BAR";::" TO CONTINUE.":16384,128::10:"ONE MOMENT PLEASE..."P24:34,23:nNAME: VERSION:LANGUAGE: APPLESOFT (FP)     * ** DRAW SHAPE FROM SHAPE TABLES **\ ** CHR$(4) IS CONTROL-D.. ACTIVATES DISK **hD$(4)( ** LOAD TABLE **2D$;"BLOAD LIQ"<F **TELL APPLE LOCATION OF SHAPE TABLE **P ** LESS SIGNIFICANT DIGITS **Z232,00 d **    :1Y038((0,39Y/2Y7<15EFI1122OPAI3\ZYAA2hd0,39YonYvxI}6X0190,20XX24:"PRESS SPACE BAR TO CONTINUE";:Z$::o88`}~\8_~?~~gox?O}x~?}x}>[o_?|p{{@|~?~~1wvwg?o@q_o>{m??|C>{m?_}~w?@~`?@_O~zog>{K/{~px{}??~>{o7_ow[oO?_gxs_X_nfWO{]_>n}v{}~{~>_}w{wOo?~?o?x?ocO}{}^~}>_o7_{o_nn~{v{nn{{wnnO0?~}~w[~{}>_}?_qwlw`\o<~`ox?a@}xx?pAw{}>|`?8o{;?o{~_}~.wvsw?o@G?w>{m??xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o_`>USER WRITTEN SUBROUTINES'PòUSER DATA@`MECC SUPPORTED DATAD64:ZXZXZA:22300:WZZ94ZF1:ZXZXZW:ZD64:22330hWZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330&WZZZD(ZZZD0)ZI,ZJ0WZF1ZXZXZA:ZD0:ZF0:WZ:WPRINT FRAME # IF PEEK(1023)=87W(1023)87ıW1:36:"# ";FRW0uKZW:ZU0ZKZKZAMVZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140hV WRITE ON HGR SCREENvVZT$""ıVZJZY15:ZJ0ZJ192ZHıVZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330VZU022290VZZ65ZZ90ZD0:22300WZX,50 X> 24:"PRESS SPACE BAR TO CONTINUE";:Z$:::D  D   MORE SIGNIFICANT DIGITS **' n233,64c x ** THESE MUST BE CONVERTED FROM BASE 16 TO BASE 10 **y **DRAW SHAPE ** 3 1 0 1120,70 22:"SHAPE 1...NORMAL" 24:"PRESS SPACE BAR TO CONTINUE";:Z$::: N ** RANDOM PLOT **":/I1500<((1)16J2X(1)40X<Y(1)40aFX,YhPIZ24:"PRESS SPACE BAR TO CONTINUE";:Z$::d 29":"20509")R(2)1ĺ"DEL20500,20530":_ZZ1233000sdR(3)0Q11ĺ"BSAVE SMALL CHARACTERS,A16384,L1436"nR(3)0Q12ĺ"BSAVE MEDIUM CHARACTERS,A16384,L1512"xR(3)0Q13ĺ"BSAVE LARGE CHARACTERS,A16384,L2118""SAVE "NA$"HOM2000,23000"tR(3)0ĺ"22005PRINTD$"QT$"BLOAD"CH$(Q1)" CHARACTERS"QT$":ZH="C1(Q1)":ZW="C2(Q1)":ZA="C3(Q1):HM8192HM8192OP0ĺ"110 REMNAME: "NA$" VERSION:"VS$:"120 REMAUTHOR: "AU$"205HIMEM:"HM"20509GOTO20515":"RUN" "DEL1,9E":D$"WRITE SCR.FILE"B"HIMEM:22016":"LOAD STARTER-SAMPLE-P"SOP0R(0)0X10X:X21(C$(X1)):(C$(X1),X2,1)":"C$(X1)(C$(X1),X21)(13)(C$(X1),(C$(X1))X2)X2,X1X10X:(X13)R(X1)1ĺC$(X1) R(3)1ĺ"DEL 2C1$"Y"C1$"N"4530K*R(3)0Q13ĺD$"BLOAD LARGE CHARACTERS"WD$(4)hZZ1232050$:10:" AFTER THIS PROGRAM ENDS, YOU MAY":"ACCESS YOUR PROGRAM BY TYPING:":14:16:"LOAD ";NA$ WRITE CONTROL FILE.D$"OPEN SCR.FIL(R(3)1)R(3)04600:13:"DO YOU WANT:":" 1) SMALL CHARACTERS":" 2) MEDIUM CHARACTERS":"OR 3) LARGE CHARACTERS":"WHICH SIZE>";Q1$Q1(Q1$):Q11Q12Q134510ZZ1234600:16:"DO YOU WANT LOWER CASE>";C1$:C1$(C1$,1):XR(K)0rDW0::2:"YOUR PROGRAM WILL CONTAIN THE FOLLOWING":"ROUTINES:":X11X:R(X1)0Ė15:R$(X1):WW1xXl5W:868:"ARE THESE THE ROUTINES YOU WANTED>";A$:A$(A$,1):A$"N"A$"Y"4460A$"N"ZB$"":4180R(3)14890ENTER":"NUMBERS SEPARATED BY COMMAS)";:868:20700Nr958:I1X:R(I)1:n|Y1:K$"":Y$ZB$:Z004200Y(Y$)4400(Y$,Y,1)","K$K$(Y$,Y,1):YY1:4240K(K$):K(K)K0KXR(K)0:YY1:K$"":4240 0K(K$):K(K)K0K>ŠźԠŠŢͺĠҭŭЍ̲Ĥ̠ӢȽ׽źӠκҺŠ΍ͺϲ΍̱̲ŠӍō  ** MORE SIGNIFICANT DIGITS **) n233,64e x ** THESE MUST BE CONVERTED FROM BASE 16 TO BASE 10 **{ **DRAW SHAPE ** 3 1 16: ** ROTATE 90 DEGREES ** 1120,70 22:"ROTATED...ROT=16" 24:"PRESS SPACE BAR TO CONTINU, ** ROTATE SHAPE FROM PROGRAM SHP1 **^ ** CHR$(4) IS CONTROL-D.. ACTIVATES DISK **jD$(4)( ** LOAD TABLE **2D$;"BLOAD LIQ"<F **TELL APPLE LOCATION OF SHAPE TABLE **P ** LESS SIGNIFICANT DIGITS **Z232,00 d  ** RANDOM LINES **" :/I1100=A(1)40K(B(1)40Y2P(1)40f<(1)16wF(1).5500PA,BPZId24:"PRESS SPACE BAR TO CONTINUE";:Z$::A,BP90USER WRITTEN SUBROUTINES'PòUSER DATA@`MECC SUPPORTED DATAS0MUSIC ROUTINE_:-MUSICD1,378,358,340,318,302,284,268,255,239,227,212,201,189,179,170,159,151,142,134,127,119,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47dN230,0,230,1,2D64:ZXZXZA:22300:WZZ94ZF1:ZXZXZW:ZD64:22330hWZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330&WZZZD(ZZZD0)ZI,ZJ0WZF1ZXZXZA:ZD0:ZF0:WZ:WPRINT FRAME # IF PEEK(1023)=87W(1023)87ıW1:36:"# ";FRW0uKZW:ZU0ZKZKZAMVZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140hV WRITE ON HGR SCREENvVZT$""ıVZJZY15:ZJ0ZJ192ZHıVZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330VZU022290VZZ65ZZ90ZD0:22300WZ:ZLZX(ZU1)ZA:ZRZXZW:ZXZXZW(ZU1)ZA:22090tVZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140VZA$"":22140VZXZXZW:ZT$X$Z$:22230:22140VZA$(8)ZA$"":22140VZ(ZA$)2:Z0ZA$"":22200VZA$(ZA$,Z)VZZT$(95):Z:22230:2 hV INPUTS ON HGR SCREENF rVZA$"":ZXZXZWm |V16368,0:Z$:(Z$)13(Z$)32ı V(Z$)8ZXZW(ZU1)ZA26722140 VZA$ZA$Z$:(Z$)822160 VZA$(8)ZA$"":221403VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5 6V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK: @VZX270ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230: EV CLEARS ANY SPOT ON HGR SCREEN JV0:ZZTZB:ZL,ZZR,Z:Z:3: TV UNDERSCORES ON HGR SCREEN ^VZT$"":Z1ZN:ZT$ V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230k V22080:ZX276ZW8:ZT$"TO GO ON":22230 VZ1(ZS1)84:(16384)12722070 VZ "VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090 ,V(16384)128İ22080:22050: N768: NZH(37)::ZT60; NZ$:Z$"-MUSIC"20122Q NZ037:ZH(Z):Zp NZ033:Z1:768Z,Z1:Z: U232,0:233,64:230,32 UD$"BLOADSMALL CHARACTERS":ZH7:ZW7:ZA1 U62450:16297,0:16302,0:16304,0:3:1:0: U16301,ZF:> OF MAIN PROGRAM" 'EXIT ROUTINED ':::(4)"PR#0":(4)"IN#0"` $':255:(4)"MAXFILES3"f * NMECC SUPPORTED SUBROUTINES NZIZDZT:ZJZH(ZP): MUSIC ROUTINE. N0,(ZJ256):1,(ZJ(ZJ256)256) N2,(ZI256):3,(ZI(ZI256)256)e *nNAME: SUBROUTINES VERSION:07/02/82ExAUTHOR: STEVE NEWBERNcLANGUAGE: APPLESOFT (FP)zASSOCIATED FILES:INITIALIZATION8192::255D$(13)(4)D$;"NOMON I,C,O"USER DEFINED FUNCTIONS START '" ** INCREASE SHAPE SCALE **.D$(4)E( ** LOAD TABLE **Y2D$;"BLOAD LIQ"_<kZ232,00wn233,64 **DRAW SHAPE **32: ** DOUBLE SIZE **161120,3022:"SIZE DOUBLED...SCALE=2" 24:"PRESS SP  E";:Z$::: X YAB B,Y Y, XBA15 X,B< XL YBA11U A,Y\ Yf AA1m B 24:"PRESS SPACE BAR TO CONTINUE";:Z$::  A,BP 90I" ** RANDOM LINES / ERASE *** :7I1100EA(1)40S(B(1)40a2P(1)40n<(1)16F(1).5500PA,BPZId ** ERASE ROUTINE **nI1500:I: ** DELAY **x0A0B39201XABX,A :"WHAT NAME DO YOU WANT TO CALL":"YOUR PROGRAM>";NA$:(NA$)0(NA$)304100XOP0:10:"WHAT IS THE AUTHOR'S NAME":">";AU$,:10:"WHAT IS TODAY'S DATE(MONTH/DAY/YEAR)":">";VS$T310004h21:1:ZB$"":"WHICH ROUTINES DO YOU WANT? (LOSE";(34);":END" "RUN"- "DEL97,98"A "TEXT":"HOME"Z "?"(34)"DONE"(34)n D$:D$;"CLOSE" R11ĺD$;"BLOAD INPUT,A20736" R12ĺD$;"BLOAD PRINT,A16381" D$;"EXEC SCR.FILE" CREATE STARTER SHELL PROGRAM.O:1061999":"DEL62131,63000"A R2ĺ"DEL1,20499":"DEL20531,63000"j R3ĺ"DEL1,21999":"DEL22331,63000"{ "POKE33,33" "97PRINTCHR$(4);";(34);"OPEN ";B$;(34);":PRINTCHR$(4);";(34);"WRITE ";B$;(34) "98LIST99,63999:PRINT CHR$(4);";(34);"CE SCR.FILE"7 "HIMEM:22016":"LOAD STARTER-SAMPLE-P" R3ĺ"22005PRINTD$"QT$"BLOAD"CH$(Q1)" CHARACTERS"QT$":ZH="C1(Q1)":ZW="C2(Q1)":ZA="C3(Q1) "20509GOTO20515":"RUN":"20509" *"VTAB24":"POKE 34,23":5215 R1ĺ"DEL1,20099":"DEL20131,:3:"WHAT DO YOU WANT TO CALL":"YOUR TEXT FILE?";B$:(B$)1(B$)302010~ 31000:21:"WHICH ROUTINE DO YOU WANT?";R$ R(R$) R1RX2020 I1X:R(I)1:I:R(R)0:ZZ123:4505  WRITE CONTROL FILE. D$"OPEN SCR.FILE":D$"WRITTINES"::10:"2) READ ONE ROUTINE INTO A":13:"SPECIFIED FILE, FOR USE IN":13:"AN EXISTING PROGRAM" 5:868:5:"WHICH OPTION DO YOU WANT>";A$:A$"1"A$"2"Ģ21:10:"ENTER 1 OR 2 PLEASE";:1030 A$"1"4000  SELECT SINGLE ROUTINE.N (34)7 CH$(1)"SMALL":CH$(2)"MEDIUM":CH$(3)"LARGE" C1(1)7:C2(1)7:C3(1)1:C1(2)11:C2(2)9:C3(2)2:C1(3)15:C2(3)11:C3(3)3  D$;"PR#0" :10:"STARTER PROGRAM CREATOR"g 8:10:"1) CREATE A STARTER PROGRAM":13:"OF SELECTED ROU SCR.FILE,STARTER-P < ::10000:D$(4)::255X D$;"NOMON I,O,C":204r D$;"DELETE SCR.FILE"} 216,0 X3 :R(X),R$(X),C$(X):I0X:R$(I),C$(I):R(I)1:I HM22016:(978)157HM38400 CH$(3),C1(3),C2(3),C3(3):QT$Нd COPYRIGHT 1979 MECCPn NAME: STARTER VERSION: 2/5/80Vpqq LAST UPDATE: 9/8/80wrx AUTHOR: MIKE STEIN MODIFIED:CRAIG COPLEY, AGAIN BY DARRELL RICKE LANGUAGE: APPLESOFT(FP) ASSOCIATED FILES:   70,70 2120,703 22:"SHAPES 1 AND 2 DRAWN"e 24:"PRESS SPACE BAR TO CONTINUE";:Z$:::{ * RESET HIMEM * 22016  ** DRAWING 2 SHAPES **D * SET HIMEM TO PROTECT SHAPES *N8192ZD$(4)q( ** LOAD TABLE **2D$;"BLOAD LIQ"<Z232,00n233,64 **DRAW SHAPES **3116: ** BOTH SHAPES ARE ROTATED **  1  ACE BAR TO CONTINUE";:Z$:::% [  :1Y038((0,39Y/2Y7<15EFI1122OPAI3\ZYAA2hd0,39YonYvxI}6X0190,20XX ** DEMO SCRN COMMAND **21:"TYPE A NUMBER FROM 0 TO 15"IX039Y039:"RESISTORS AS IT DOES TO GO THROUGH 1":"":"100 OHM RESISTOR."K1550 "":"":"BECAUSE THESE 'BARRIERS' ADD WE MAY ":"":"DEVELOP A FORMULA TO CALCULATE THE TOTAL":"":"RESISTANCE OF A CIRCUIT BY SIMPLY ADDING":"":"THE SEPARATE RESISTANCES TTION-" 7"IF YOU WERE TO PUT 2 RESISTORS IN SERIES":"":"ON A WIRE, THE ELECTRONS WOULD HAVE TO":"":"MAKE IT THROUGH TWO BARRIERS, ONE AT A":"":"TIME. AS A RESULT IT TAKES TWICE AS LONG"A17:"FOR AN ELECTRON TO GO THROUGH 2 100 OHM":""AL NUMBER":"":"OF ELECTRONS THAT PASS THROUGH BOTH":"":"WIRES IN ORDER TO COMPARE THE EFFECT OF":"":"SERIES AND PARALLEL RESISTORS ON THE":"":"ELECTRON FLOW THROUGH A CIRCUIT." x1550 }2000 400 :5:" -SERIES DEMONSTRA"THE WIRE IN THE BOTTOM PICTURE HAS NO":"":"RESISTANCE OTHER THAN THE ATOMS OF THE":"":"WIRE THEMSELVES." d19:"NOTE HOW THE ELECTRONS TRAVEL MORE SLOW-":"":"LY THROUGH THE WIRE WITH THE BARRIER." i1550 s5:"YOU SHOULD WRITE DOWN THE FIN":"'BARRIER', (A RESISTOR,) THAT SLOWS":"":"THIS FORWARD PROGRESS."P U1550 Z5:"IN THE DEMONSTRATION THAT FOLLOWS,":"":"ELECTRONS ARE SENT THROUGH TWO WIRES.":"":"THE WIRE IN THE TOP PICTURE HAS A":"":"SINGLE BARRIER,(RESISTANCE.)"n _13:"THE SIDE OF THE WIRE WITH THE HIGHER":"":"POTENTIAL,(HIGHER POSITIVE CHARGE.)" P10:"THEY HOP RANDOMLY FROM ONE ATOM TO":"":"ANOTHER, CONSTANTLY HEADING TOWARD THE":"":"POSITIVE SIDE OF THE WIRE."F R17:"OCCASIONALLY THEY WILL RUN INTO A":"THIS IS A PROGRAM TO DEMONSTRATE HOW":"":"PARALLEL AND SERIES RESISTORS AFFECT THE":"":"RATE OF FLOW OF ELECTRONS,(CURRENT),IN":"":"AN ELECTRICAL CIRCUIT." A1550R F2:" -THE THEORY-":"":"IN A CIRCUIT, ELECTRONS 'DRIFT' TOWARD":"":( ELECTRON DRIFT THROUGH RESISTORSD AUTHOR: TOM BOE, MECCl NEED TO IMPROVE SPACE BAR ROUTINEt: 5:" -DRIFT-"10" A SERIES-PARALLEL RESISTANCE":"":" DEMONSTRATION"1550(D12I0 <5:"L1,19999:DEL 30000,59999"EdÃMUSIC,"DEL20100,20130:DEL 62000,62130"mxÃINVERSE SPACE BAR,"DEL20500,20530"ÃPRINT CHARS IN HGR,"DEL22000,22330"DPZ0120710AP(0):" ";:(0):Z0Z01:ZB$(ZB$,1,Z0):20710XPZA$;:ZA$(13)ıyPZB$ZB$ZA$:Z0(ZB$):20710y:10:"MECC SUPPORTED ROUTINES"::X11X:15:X110ĺ" ";"yX1" "R$(X1):X15(X15)ĺ,y:PòROUTINE DATAUà X,"DEE"4"POKE 34,0:HOME:PRINT "QT$"FILE COMPLETE"QT$eD$:D$"CLOSE":24:34,23:D$"EXEC SCR.FILE"l"0r,P24:10:"PRESS 'SPACE BAR' TO CONTINUE.";P20515P(16384)16020510(P16368,0::P">";PZA$:ZA$(8)20725 WN"/ 24:"PRESS SPACE BAR TO CONTINUE";:Z$5 Q 22:"ANIMATED BOTTLES"n ** START ANIMATION **w Y70 I130 0 170,Y 3 YY2 170,Y ,I ;0 @170,Y E3 J32 O190,Y30 ^24:"PRESS SPAC% ** ANIMATE 2 SHAPES ***D$(4)A( ** LOAD TABLE **U2D$;"BLOAD LIQ"[<gZ232,00sn233,64 **DRAW SHAPES **3116: ** BOTH SHAPES ARE ROTATED ** 170,702120,70 22:"SHAPES 1 AND 2 DRA         X,Y)I X,Y Y# XS 24:"PRESS SPACE BAR TO CONTINUE";:Z$::Y fZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140BVZT$""ıaVZJZY15:ZJ0ZJ192ZHıVZJZY15:ZJ0ZJ192ZHıVZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330VZU022290VZZ65ZZ90ZD0:22300WZD64:ZXZXZA:22300 3 T? 24:"PRESS SPACE BAR TO CONTINUE";:Z$:::E dD5 *** HLIN: FILL SCREEN WITH EAC COLOR *** =:HI13W!C015:Cc(Y039o20,39Yv<Y}FCPI24:"PRESS SPACE BAR TO CONTINUE";:Z$:: """:"PICK A NUMBER FROM 0 TO 99."-"2005L""YOU DON'T HAVE ALL DAY!"s""":"PICK A NUMBER FROM 0 TO 99."}" 2005"vY%33ı 22:"ELECTRONS THROUGH RESISTOR="E!23:"ELECTRONS THROUGH WIRE="K!W!Y%Y%1a!&1145m!DY%Y%1w!N1145!10:"HOW MANY ELECTRONS SHOULD GO THROUGH":"":"THE RESISTOR IN THIS DEMONSTRATION?"!N!N992050!N02030!#"8,3218 36,3818 1705N 23:"ELECTRONS THROUGH PARAL. RESISTORS="T [ 6i Y2382w X0364 X,Y1 X P2384 P,Y P Y 0,390 0,3919 0,3920 0,3939 1,818 12,1818"!0D2150D3220)D4305124V" -HIT SPACE BAR-";dA$:::m@:6zE21,282J32,382O21,2838T32,3838V1705Y23:"ELECTRONS THROUGH SERIES RESISTORS="cr:6w21,2418 |25ıY%27ıY%33ı*Y%35ı8X%X%1:DX%X%1R0:E%,F%a13:X%,Y%g#xQ%L91:Y%191415}II122:36:IY%Q%2:1425Y%Q%220JJ123:36:JX%01145DD1:24:1555I ::D$(13)(4)+D$"BLOAD LOGO"M16297,0:16304,0:16302,0(J1(16384)128:J127J132JJ1:J400302::" APPLE II SPECIAL FEATURES"<34,2:16368,0FD$"CATALOG"PZ6 G D$(4))2D$;"BLOAD CHARACTERS+"/<:P232,0Fd233,64LxS3Z1a0|M$"CHARACTERS ON HGR"T1(M$)((M$,T,1))T10,30TT9799Q1300:QT120,1000Q13000:QT120,100 E BAR TO CONTINUE";:Z$:::#  P tX%X%1y0:E%,F%)~13:X%,Y%/@X%171140OY%91140_Y%111140i1145wD21220D31250X%11230X%371230Y%291270Y%311270Y%301270X%171260Y%20İ1300D%Y%:C%X%&IN1500/440DP%1:E%X%:F%Y%[X%2(X%2)P%0alLL(1)}NX%39ī1400QL.5Y%Y%1VY%191820XY%391820[L.5Y%Y%1`Y%01860bY%201860jY%191160oD1İ1200X(G1)40100(5G)40(90((G1)10))((IN2)40)40:16:102X,80:0:X2X10:1480:1490:1500Z100781:X22,ZX27,Z::A15:10970,115:4:B1500::10970,115:B1250::3::10970,1150:22020:0X::' 4 TIMES (4 X)":22220:ZY60:ZT$"BIGGER THAN A QUART.":22220ZX1:ZY70:ZT$"(SEE YOUR MEASURMENT INFORMATION SHEET)":22220ZT78:ZB150:ZL(G2)40110:ZRZL60:IN46040IN46070ZL230:ZR279:22090:60700:16302,0:22090d30:0:ZT$"A GALLON OF MILK?":22220216302,0eZX203:ZY130:ZN2:22100:22120:IN$ZA$:1010p16302,0:0:ZX119:ZY20:ZT$R$".":ZW7:22220:ZW6:ZX7:ZY40:ZT$" YOU CAN GET 4 QUARTS OUT OF 1 GALLON":22220>zZY50:ZT$"BECAUSE A GALLON ISN KEY":22220EZX49:ZY170:ZT$"WHEN YOU ARE DONE.":22220:22020KZX42:ZY40:ZT$"HOW MANY QUARTS":22220:16:102185,15:ZX63:ZY5:0:ZT$"OF MILK":22220:A1500:$ZX70:ZY120:ZT$"CAN YOU GET FROM":22220:16:101250,90:ZX70:ZY1PE IN":22220:ZX49:ZY100:ZT$"THE CORRECT ANSWER.":22220ZX49:ZY125:ZT$"TO MAKE CORRECTIONS, USE THE":22220:ZX49:ZY135:ZT$"BACKUP KEY: ":22220 199135,120:ZX161:ZY135:ZT$"AND RETYPE.":22220:ZX49:ZY160:ZT$"FINALLY, PRESS THE RETURU1:ZF0:22015z 22000:22010:ZX77:ZY21:ZT$"-MEASURMENT LESSON-":22230:ZX77:ZY40:ZT$"AN INTRODUCTION TO":22230 ZX70:ZY50:ZT$"WEIGHTS AND MEASURES":22220:ZX35:ZY80:ZT$"INSTRUCTIONS:":22220;ZX49:ZY90:ZT$"AFTER EACH QUESTION, TY26,YX216,Y::& 104X2,Y2:32:t 32:4:101X2,40:XX2705:3:101X,40:4:A1100::101X,40::X40 4:101X,40:16:3:101X,40:A1100::3:101X,40:Y40755:3:101X,Y:4 A1100::101X,Y::3:101X,Y   Z100::106X25,140:A1100::108X25,140V 4:P125:1470:1510:R$"SORRY":6000 0:4:Y401344:105X25,Y:A1100::4:105X25,Y:3: 1510:R$"NOPE":6000 Z40P:X23,ZX27,Z:: 0:103X210,Y2: YY255Y2201:X3 12X039$(X,X+2X1< G WW40 1220A IN4G5İ1510:R$"RIGHT":RIRI1:6000I 32\ XX2X24010n (4:101X1,40~ 2X2791430 <3:101X,40 FX1X:C0 PX ZX2 dIN2(IN2)1430 nIN2G31430, 3:P128:0:1470:107X25,140:A1101X1,Y tY1Y ~Y' D1100:9 4:101X1,Y1D 32:3Y 10190,40:X190y X290IN60((IN2)40)40 1260 IN5G61450 3:P140:1470 1480:1490:1500:4:P77:1470:1300 3:16:ING1430 102W,80:GG1  12 205. (13);(4);"RUN MENU"88192B::K255]D$(13)(4)sD$;"NOMON I,C,O"~6FI$""Y280500016:1::3:IN(ZA$):X150:Y170W100:G1LY70403V101X1,Y1`4:101X1,Y1 j3:       $ ** SIMPLE FOOTBALL FIELD ***215@(X5353L24,34XS7X_<5,354lF5,3534P24:"PRESS SPACE BAR TO CONTINUE";:Z$::Z I>30,2,230,3,174,48,192,166,0,164,1,136,208,3,202,240,243,233,1,208,246,198,3,208,242,198,2,208,238,96ZI,ZJ"0WZF1ZXZXZA:ZD0:ZF0+:WZ:I0uUSER WRITTEN SUBROUTINESXPòUSER DATAq`MECC SUPPORTED DATAdX4 21:" G 1 2 3 4 5 4 3 2 1 G"] " 0 0 0 0 0 0 0 0 0"e "24 ," PRESS SPACE BAR TO CONTINUE";:Z$:: ^ "u 12X039&(Y0X/2X,Y6<Y=FXmK24:"PRESS SPACE BAR TO CONTINUE";:Z$::sP D F D$(4)$( ** LOAD TABLE **:2D$;"BLOAD ROBOT"@<KF232,0Wn233,64]d1k0{X30260831X,50:2X,50I1100:I0:1X,50:2X,50XX4:31X,50:3X,50I1100:I 0:1X,50:3  %WZZ94ZF1:ZXZXZW:ZD64:22330SWZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330n&WZZZD(ZZZD0)ZI,ZJ0WZF1ZXZXZA:ZD0:ZF0:WZ: T 1X04%(0,39X,2X9<X3639EF0,39XLPXTZ12_dY03kn5,35YrxYY35395,35YY4Y5335,35YY155,3545,3534X53534,34XX,39 ZY15:ZJ0ZJ192ZHıOVZD0:ZF0:Z1(ZT$):ZZ((ZT$,Z,1)):ZZ3222330_VZU022290|VZZ65ZZ90ZD0:22300WZD64:ZXZXZA:22300WZZ94ZF1:ZXZXZW:ZD64:22330WZIZX(Z1)ZW:ZI0ZI(279ZWZA)22330&WZZZD(ZZZD0)ZA$"":22140/VZXZXZW:ZT$Z$:22230:22140KVZA$(8)ZA$"":22140mVZ(ZA$)2:Z0ZA$"":22200~VZA$(ZA$,Z)VZKZW:ZU0ZKZKZAVZTZYZH:ZBZY:ZLZX:ZRZXZK:22090:ZXZXZK:22140VWRITE ON HGR SCREENVZT$""ıVZJ68,0:Z$:(Z$)13(Z$)32ı<VZA$ZA$Z$:(Z$)822160XVZA$(8)ZA$"":22140VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5:ZLZX(ZU1)2:ZRZXZW:ZXZXZW(ZU1)ZA:22090VZA$(ZA$,1,(ZA$)1):(ZA$)1ZA$(ZA$,1,(ZA$)1):22140 V9:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230:YEVCLEARS ANY SPOT ON HGR SCREEN|JV0:ZZTZB:ZL,ZZR,Z:Z:3:TVUNDERSCORES ON HGR SCREEN^VZT$"":Z1ZN:ZT$ZT$(95):Z:22230:hVINPUTS ON HGR SCREENrVZA$"":ZXZXZW|V163ZX276ZW8:ZT$"TO GO ON":22230I VZ1(ZS1)84:(16384)12722070P VZ "VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090 ,V(16384)128İ22080:22050 6V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK:6@VZX270ZW1(4);"PR#0":: $'255:22016% *E NMECC SUPPORTED SUBROUTINESX U232,0:233,64 UD$"BLOADSMALL+FISH":ZH7:ZW7:ZA1 U:3:1:0:ZF1Ĺ16302,ZF: U16301,ZF: V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230! V22080:B71:ZR230 22090& X2018056 0:98X,65H 3:98X5,65W I150:I^ Xp 0:98185,65 X1902305 3:97X,55 I150:I "0:97X,55 6X @ZL230:ZR270:22090 J3:98X,65 h 'EXIT ROUTINE ':T$"IN THE WATER, INCLUDING ^M^A^N."/ L22220= V9820,65w `ZX15:ZY140:ZT$"^DO YOU WANT TO SEE HIM IN ACTION?" j22220 tZX255:22120 ~(ZA$,1)"Y"İ4000 ZS5 22020 ::: ZT10:ZB58:ZL60:ZR275 22090 ZT60:ZPE A NUMBER FROM 0 TO 15" I, X0398 Y039E X,Y)IN X,YU Y\ X 24:"PRESS SPACE BAR TO CONTINUE";:Z$:: ,! *** SIMPLE ANIMATION ***):5Y039<(9F230,YS<I1100ZFIaP0kZ30,YrdYn24:"PRESS SPACE BAR TO CONTINUE";:Z$::x D  START OF MAIN PROGRAM% 22000_ ZX5:ZY30:ZT$"PIRANHA, N. ^ANY OF A GROUP OF SMALL"j 22220z ZN8:22100 ZX75:ZY45:ZT$"BUT VORACIOUS ^SOUTH ^AMERICAN" $22220 .ZY60:ZT$"FISH THAT ATTACK LARGE MAMMALS" 822220$ BZY75:Zs dCOPYRIGHT 1979 MECC>nNAME: STARTER1 VERSION:7/1/80OxAUTHOR: BOEmLANGUAGE: APPLESOFT (FP)ASSOCIATED FILES:INITIALIZATION8191::255D$(13)(4)D$;"NOMON I,C,O"USER DEFINED FUNCTIONS   1Y038&(0,39Y-2Y5<15CFI1122MPAI3ZZYAA2fd0,39YmnYtxI{2X0190,20XX15Y2173X2182X,YXY ** DEMO SCRN COMMAND ** 21:"TYͺĠҭŭЍ̲̠̠źŠκҺōͺϲ΍̱ŠōōŠźԠŠŢ,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47 N230,0,230,1,230,2,230,3,174,48,192,166,0,164,1,136,208,3,202,240,243,233,1,208,246,198,3,208,242,198,2,208,238,96dF,3,18,3,13,3,15,1,17,1,18,1D Rà 15,2,18,1,13,6,20,3,25,3,22,3,18,3m Sà 15,1,17,1,18,1,20,2,22,1,20,6,-1,0 `MECC SUPPORTED DATA 0MUSIC ROUTINE :-MUSIC6 D1,378,358,340,318,302,284,268,255,239,227,212,201,189,179,170,159,151,142,134,127,119 KOKO1) X,YV)9X1,Y)12703 YYVA 0:X,YVN 15:X,Ya M150::405{ X22:"YOUR RAT DIED!" 24:"PRESS SPACE BAR TO CONTINUE";:Z$::  P& *** HLIN: FILL SCREEN RED ***.:51A(Y039M20,39YT<Y24:"PRESS SPACE BAR TO CONTINUE";:Z$:: ONE. - N0,(ZJ256):1,(ZJ(ZJ256)256)U N2,(ZI256):3,(ZI(ZI256)256)` N768:t NZH(37)::ZT60 NZ$:Z$"-MUSIC"20122 NZ037:ZH(Z):Z NZ033:Z1:768Z,Z1:Z: 0uUSER WRITTEN SUBROUTINES PòUSER DATA Qà 25,3,22 OF MAIN PROGRAM 20120< "ENTER TEMPO (40 - 200)";ZTB N T120Y ZP,ZDj $ZP110000u .20100| 8T 'EXIT ROUTINE ':(4);"PR#0":: $'255:22016 * NMECC SUPPORTED SUBROUTINES NZIZDZT:ZJZH(ZP): MUSIC ROUTIdCOPYRIGHT 1979 MECC5nNAME: TUNE VERSION:ADxAUTHOR: AbLANGUAGE: APPLESOFT (FP)y ASSOCIATED FILESINITIALIZATION22016::255D$(13)(4)D$;"NOMON I,C,O"USER DEFINED FUNCTIONS START   I 9 0,390:0,39392 0,218:0,222H ** MAZE RAT **U X0:Y20\ 0e X,Ym 15 X1,Y)1400 XX1 KO1 X1X X40700 X,Y M150 "M 6220 VV((1)2):VV1VV XX1KO10600 ** MAZE PROGRAM **9 ** DEMO SCRN COMMAND **E::V1L6XY039d(0,39Yk2Y< ** BARRIER GENERATION **F1PN((1)25)5ZI1NdB1(1)40nB2(1)40xL%((1)15)BX2L%6B1,B2BX   6V16368,0:ZT190ZH2:ZB191:ZL0:ZR279:22090:ZUZK: @VZX270ZW19:ZT$"'SPACE BAR":22230:ZX270ZW9:ZT$"'":22230: EV CLEARS ANY SPOT ON HGR SCREEN JV0:ZZTZB:ZL,ZZR,Z:Z:3: TV UNDERSCORES ON HGR SCREEN ^VZT$"":Z1ZN:ZT$ V16368,0:ZKZU:ZU0:ZX275ZW25:ZY191:ZT$"PRESS":22230k V22080:ZX276ZW8:ZT$"TO GO ON":22230 VZ1(ZS1)84:(16384)12722070 VZ "VZ1250:Z:ZT190ZH2:ZB191:ZL270ZW19:ZR273ZW8:22090 ,V(16384)128İ22080:22050:EXIT ROUTINE. ':::(4)"PR#0":(4)"IN#0"J $':255:(4)"MAXFILES3"P *p NMECC SUPPORTED SUBROUTINES U232,0:233,64:230,32 UD$"BLOADSMALL CHARACTERS":ZH7:ZW7:ZA1 U62450:16297,0:16302,0:16304,0:3:1:0: U16301,ZF:>A nNAME: STEVE VERSION:/xAUTHOR: STEVEMLANGUAGE: APPLESOFT (FP)dASSOCIATED FILES:j~INITIALIZATION8192::255D$(13)(4)D$;"NOMON I,C,O"USER DEFINED FUNCTIONSSTART OF MAIN PROGRAM '  6,198,3,208,242,198,2,208,238,96d9,179,170,159,151,142,134,127,119,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47 N230,0,230,1,230,2,230,3,174,48,192,166,0,164,1,136,208,3,202,240,243,233,1,208,246,198,3,208,242,198,2,208,238,96dD66,0,164,1,136,208,3,202,240,243,233,1,208,24 13,3,13,3,13,2,15,1,17,3,17,2,15,1,17,2,18,1,20,6,25,1,25,1,25,1,20,1,20,1,20,1,17,1,17,1,17,1,13,1,13,1,13,1,20,2,18,1,17,2,15,1,13,6,-1,0 `MECC SUPPORTED DATA 0MUSIC ROUTINE :-MUSICW D1,378,358,340,318,302,284,268,255,239,227,212,201,18& *** HLIN: FILL SCREEN RED ***.:51A(Y039M20,39YT<Y~F *** VLIN: BLUE SQUARE IN CENTER***P6ZX1029d10,29XnX24:"PRESS SPACE BAR TO CONTINUE";:Z$:: SIC ROUTINE. 6 N0,(ZJ256):1,(ZJ(ZJ256)256)^ N2,(ZI256):3,(ZI(ZI256)256)i N768:} NZH(37)::ZT60 NZ$:Z$"-MUSIC"20122 NZ037:ZH(Z):Z NZ033:Z1:768Z,Z1:Z: 0uUSER WRITTEN SUBROUTINES PòUSER DATA Q OF MAIN PROGRAM 20120< "ENTER TEMPO (40 - 200)";ZTB N T128Y ZP,ZDi $ZP11090t .20100{ 8T B1030 'EXIT ROUTINE ':(4);"PR#0":: $'255:22016 * NMECC SUPPORTED SUBROUTINES NZIZDZT:ZJZH(ZP): MUdCOPYRIGHT 1979 MECC5nNAME: TUNE VERSION:ADxAUTHOR: AbLANGUAGE: APPLESOFT (FP)y ASSOCIATED FILESINITIALIZATION22016::255D$(13)(4)D$;"NOMON I,C,O"USER DEFINED FUNCTIONS START   ' **BASIC HI-RESOLUTION SET UP **/:62C(T1100L2T,TS<TF24:"PRESS SPACE BAR TO CONTINUE";:Z$::P F -SUMMARY-"t;5:"1. A RESISTOR SLOWS ELECTRON FLOW":"":"THROUGH A CIRCUIT BY ACTING AS A":"":"'BARRIER'."<"":""!="2. SERIES RESISTORS SLOW ELECTRON FLOW":"":"MORE THAN A SINGLE RESISTOR BECAUSE THEY":"":"CREATE MORE BARRIERS THE EHE 'WIRE' AT THE BOTTOM HAS":"":"TWO PARALLEL RESISTORS.""":"":"":"NOTE THAT ON THE AVERAGE, IT TAKES LESS":"":"TIME FOR THE ELECTRONS TO GET THROUGH":"":"THE PARALLEL CIRCUIT."155020001650"405, 1"":" THER SIDE OF THE":"":"WIRE. ON THE AVERAGE, THIS INCREASES":"":"THE SPEED WITH WHICH THEY MAY PASS":"":"THROUGH THE WIRE."1550; "":"":"IN THE DEMONSTRATION THAT FOLLOWS, THE":"":"'WIRE' IN THE TOP PICTURE HAS A SINGLE":"":"RESISTOR. T/100 +1/100 = 1/50":"":" RT = 50 OHMS."?1550S"":"":"":"""":"THE REASON THAT TOTAL RESISTANCE IS LESS":"":"IN A PARALLEL CIRCUIT IS THAT THE":"":"ELECTRONS HAVE TWO SEPARATE PATHS THEY""":"CAN USE TO GET TO THE OSISTORS":"":"DOESN'T ALWAYS INCREASE THE RESISTANCE":"":"OF A CIRCUIT."U1550"":"":"THE FORMULA FOR TOTAL RESISTANCE OF A":"":"PARALLEL CIRCUIT IS:":"":" 1/RT = 1/R1 +1/R2 +1/R3 +..."5"":"SO IN THIS EXAMPLE:":"":" 1/RT = 1"":"TWO RESISTORS IN SERIES. NOTE THAT, ON":"":"THE AVERAGE, IT TAKES LONGER TO GET":"":"THROUGH THE SERIES RESISTORS."155020001600405:5:" -PARALLEL DEMONSTRATION-"K9:"INCREASING THE NUMBER OF REOGETHER."5"":"":" RT = R1 + R2 + R3 +..."c"":"":" WHERE RT = TOTAL RESISTANCE."m1550"":"":"IN THE DEMONSTRATION THAT FOLLOWS, THE":"":"'WIRE' IN THE TOP PICTURE HAS A SINGLE":"":"RESISTOR. THE 'WIRE AT THE BOTTOM HAS":"RESISTORS AS IT DOES TO GO THROUGH 1":"":"100 OHM RESISTOR."K1550 "":"":"BECAUSE THESE 'BARRIERS' ADD WE MAY ":"":"DEVELOP A FORMULA TO CALCULATE THE TOTAL":"":"RESISTANCE OF A CIRCUIT BY SIMPLY ADDING":"":"THE SEPARATE RESISTANCES TZT$(95):Z:22230:2 hV INPUTS ON HGR SCREENF rVZA$"":ZXZXZWm |V16368,0:Z$:(Z$)13(Z$)32ı V(Z$)8ZXZW(ZU1)ZA26722140 VZA$ZA$Z$:(Z$)822160 VZA$(8)ZA$"":221403 VZTZY(ZA1)8ZH(ZA2)4:ZBZY2(ZA1)5??<$'<$'$$$R25555---,,-?>?>7777676565.55-.-.%--%,%,,$$$<$'''?,>LII>,&+14-.5%-,,66666666666.------------%$$$$$$$$$$$?????????????$775-5---%--,,%%$?4%-%-%-%-%-,-,-,%-%-,---55>?>?>?7?7?7?7??>?>?7?>7777777????'?'''?????>??>7?77776-.-----%--,%-,%%%$?<-,-,%-%-,%-%-%-,-,%-%-%-,-,%---5-55>>?7?7?7??7?7?7?>?>?>?>?>?>?>?>77?N7>>>>6?>7????'?'?<<<??66767??77?>>>77??6>66.%$$'-666?&f)-5-...5------------%%$%,$$'<<$???????????>?>>77?>IIII III II&./'.5.5..6.665666566565-5---------,%%%%-%-,%-,$%%,$%,$,$$%$&''???????'?>???>??7??>7-%5--5---.---------,--,%*-----횛???7776766676..,%%%%%%,$%$$@  e\`7766665%%$%<$$'/%.56666>>~ -55555.65.6555-.----------------%-,,$%%$%,$,$%$%$$$<$<$''<$''?>>>6777>677??>7>6665-$$$$'/-5665>67?L)--555-..5-.5-----------------%%%%$%,$,$$<$''<<$'??????????????????>7     ** HPLOT -- TO -- **$:+5:(T11005J2T,T200,10Q<TF24:"PRESS SPACE BAR TO CONTINUE";:Z$::P ͺĠҭŭЍ̲̠źŠκҺōͺϲ΍̱̲ŠōōŠźԠŠŢ %%%%%%655555,,II ?'$$$.......%%I--,,$$<<>>6555)------%6/#%%<655  <<<$%%%%<<$%--55>>>>/-*-55556777?? ???????4. I9?????'46---'$4666&>---???66--u6??/?II?.--6??$,----6&-)-u6??6-- $??$ ?)-u6?$)--6666---$$$$???666.--$$$??66.-$$?6.$$$$---$$$???$$$???666???666---666--%$$$---$$???$$$??666???66---666-%$$$---$???$$$?666???6---666%$$$???/------=???$$$''-%--5--.--5-.-5.6=6?6??>?>>?7>>??????'?----%????'----%????'----%????--------------------7???>>?7>?/7????767765-,$?$$466%$???'?'---,--,---%---.---5??>7?'???7.-----%$>>>6777>677??77>6665-$$$$'/-5665>67?L)--555-..5-.5-----------------%%%%$%,$,$$<$''<<$'??????????????????>777?>>>77??7ے*%????,----%-????????,--------%???????????,-----------$66&$ & 6& 66$, u6& -6?$666$,e$?6 u66$$$66$, u -=?-?/ 666$$=/6ve $666 $66 $$& 6ve $66?7----+/---77766665%%$%<$$'/%.56666>>~ -55555.65.6555-.----------------%-,,$%.-?$--6)u?v- ?d-)u6?d-6/? uI---??6q 6 - )u6'4$46v-= u$66$>46666$ u6 -?6- I166&$ -6" ->?7-6-'du66&? -6&$6M?666$ u6&&6&I66?,666$- $ 666.-=616M?16$L6&$166&,?--7&$$4>?-- 666777555+---5????7 66$6767666655>6-=.-67-.,-=$'$$,$$$%$$$$45666666666676--%$'$%$%,$$$*-,$',,$$$$<$<$'<$/$,,,,,,<<<<%%%,7?>'???>'?<???v--*-=766&$$$d -$ -%4666?-e$$?$ 666f -66#$$I666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$&----6&6 --??v-- ??d -? ---66&??-- 566&6I  Ibb5 II$4-I16666&$$$$-u???6---6???-)u?d-M nI) ?v- Iv-- Nd I16$II66uuuu66 -I16666fI  --????-I16666&$$??----J  6$R---6  4II  --&&$$$  --666 ??$$$ -6---?w?766$$$$$I --??v--???----??66666M6666-- $$$$666 $$$ 6666v  $$$$4$vd 4v66&$$ 4----.---=I1666? 6n $46I66666$???/---566$$$ 666666--- ???--- ??/6 --&??666-- 4 66666--- $$$???6-@ )@Xgw9Sar!>Z`mx 6K]t-Lbw(5K\m#7;G\  ** HI RES COLORS **#:C21:"HCOLOR DEMONSTRATION"n24:"CHOOSE HCOLOR # (0-7) OR 'END'";x(C$:-C$"END"1002(C$)<20,20140,100F24:"PRESS SPACE BAR TO CONTINUE";:Z$::P25d:::  ** CHECKERBOARD **#:*18(Y0382F-X0382O2X,YV<X]FYkPY1392yZX1392dX,YnXxY24:"PRESS SPACE BAR TO CONTINUE";:Z$:: U! !!!!!!!!! !