' +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*`(4);"PR#1":PR18 20:"CHOOSE CIRCUIT "X$"1-12"Y$" ";E " ";CIRU C12ī1010v :"CHOOSE COMPONENT VALUES" "-----------------------" $"R IN OHMS ";R .R0ī1060 8CIR4CIR5CIR6ī1100 B"C IN FARADS ";C LCIR1CIR2CIRIRCUIT RESPONSES ":23)::? , CONSTANTS AND INITIAL VALUESK 6GFLAG0_ @PI3.1415926535u JX$(91):Y$(93)  CHOOSE CIRCUIT AND PARAMETERS PR0 :"PRINTER CONNECTED? "X$"Y/N"Y$" "; K$ K$"Y"K$"Y"ī1004 K$"Y"ĺ:hhLB$%H hLL 0 LB  ȹ LBL9 ȱ`g,*  LL#ɧȱy%ȱyɧ`ɪ }~LMɤ7 7#+ɺ  Yjp񩉅aL9K]p{S< LINE# > .STRING. .OLDSTR.NEWSTR. SOURCE FILE<#> # j 8e  Lȱ1 LЍhhɉfdLHheɔɒ 8ɍɘ L LB `  e`p)2(:YlRLaLBɓ,Ƀɠ`: SYNTAX: BAD FORMAT: MEMORY FULL: BAD RANGEBYTES USEDBYTES REMAININGALL OR SOME?(A/S)?: BAD SLOT OR DRIVE #ȠԠˠРưư͠ӺH)) @ eh Bɠ#$dHeheLfɖ BLFdɕɈLɄ LfɆ BH `Z[Z .Z ZZ/Z[8Z[$pPa```a<=BC~>?HHL,Ӡˠ٠  0@P`pYyxYpψ0L: p @pup)?$pPi~$ppm o8i (^_p)3_i_^i^إ^ (_JJJJ ȑ(_) ȑ(ȑ($pP `X) XyXy`TJJJJJ?@ H)h H)h @Ң}<=BC>?HHL,z݀z\x y Y ]\Hh\T ZE; ɂ x I / X n#ݲ0 $~0`i i$&)?!)?H)?i )?('("F})J`P````aPꭌɪɖh*g%gEh ꭌɪ`8`>Ȅ<ȄB=C?H8HL,< <` < =< <ȄB<C!=8? , /hL  z k H h)` ` `  ŭ̺#!$ l B ٺ#!$ l C `,x.v\ŧJqHLjgDb[ yzxwNSL GRCHAR PRSLOI PAUTOCJ VALUg TSAMi QSAMj COUNԩ CNTERP VERLEQ RDTY@ MANERҪ INVTA MAXER PATMB3 SSLAH4 DSPCM5 MAXCO6 BIGTR7 PATTON PATPFO DDHZ TSIZMI8 TSTLE9 eoopip` opo+HQq)h0h0ȱo ȱot ȱou ((Z Z `SLOK DRIVB PREMIc POSTMId SECA( SECD. DISP_ MINLEe MAXLEf SPAa BITԀ PAT PAT PAT0 PAT@ PATP PAT` PATp CHOPh MINGAk NOTIFٙ LEADF> DATAF? MARKԚ VERIF٢ LEADS= SYNè SYTYD SYTRE SYPA; SYAL< SYLE: ATRACţ ERRNϝ DLI! T ! T WSPB l A  .  ɛ#t% @u& Uɛ oL[ N. , YL  % t& uZ j ttmj tuiu0 Z Z ` ((LJJ) )ȩ)Ȅgh`Z gh`Z I1ei LJd ) JH8 u h uF dVb c8d1I i bb 8 s c u b  sL )*ee`i jj#Fii8 uii8 u i uii u`FG8`0($ p,&"  bLQ X !  B  %$&%(` /% [ X x`FLL2` Lx BLxgggh [hȄh$`e i HH`  ŠŠćk  TL HJJJ h) e)i)`` g `HHH ghggg Qg,j 0 j oLj hώj hhh` A  3 үΠԠ TL ݩtЅu ݩt؅uL ݍ@kltש ׭`t t C )t`8`hh LH2 ɠ @ h hLYJ !'"&#` ` ` `t8u` 0 `tuut`hh l t t  ` `   ` )` x >`  ɮȹɵɷɲɷ`L=tЅu L  ?؅u @  ()ɠi@ O(J  M M R $S % [jL?H$ [hL`ɛ,L{ɚ, ` ɛL{ɚ ɕ(ɍ ` Ɉ0 ` LU/ t0 u`  J ^` ˠJJ )  $  QL M 2  `' % ( &  `Hh Hh` #$ӠŠϠ!L3 Im3 i`HJJJ) jj) v h`8 ɚ LɛL (ɠ` X` Jj $R %S I M ΠŠԠˮ! C T`X ͂   !Ԡ˨ө C T`  !Ӡ"!Ϡԍ` ŠϮƠź  ~ )B C `g hghh@`@  t% ' u& ( ^  B l A   X U,L% # & ͦ , ú!$$  HJJ"$ h `t uu8`tt`ettuiu`tu0t`8`tu t u8`t`tu$upڱt`x   x `y   y `l A  L  # Ǻ"ӠȠΠӠ  `8`r )pr )pi ii i`L`  V ) V ) ^H}HV ) HʽH`  L (` ˭Ժ!$$  HJJ$ h ĺ!$$  HJJ$ h xHC h` xHC @C h`g ` ` HHLHhمNhOhlNHK klj轊kh` I  Q` "( I  "` ! ` L  ɛL{ɚ Lshiohipo sȱoHoHs`w  ` w me^ f 췩 )L dL )L L췍d u뷍  C tL Ġd t`HHHk  C C 01 @  4+ C *α+  oL   )?hhh`HhHh݀(`h`` U0)t t8nI `0 / `  ԠȠŠ Ԡf JJJJ Š  C T`$ ɯI$QE,PX `^ _ a a _ ^ uttt`췩t x( 2 mL 2L } T\  )L衩L LL L L ` ___P `L 2LNb Oc `Nb `Oc ` !%& h% gig)H @%iihJiighi i)# %`,ʆNOlNHH$()? @(hL } Tr LL } T  ) L } T    ; L } T  2 L } T  L } T  b ԠŠĺ̩͠͠ĩŠӠ̠ō Qɱ &\ ] ɲ I\ ]  )ˠ"!Ҡ"!Ҡ"!Ҡà ŠyeP } T7  2 L } T   2Lf } T  ;L } Tg  ` l } T  2" L} } T  2 rL } T   2Lk } T  ˠΠ"!٠ "̭!Π"!ԯ"!Ҡ"!Ԡ ΧŲ #N:բ _؛u } TP   !Ԡκ "!ҠԠˠ"!ҠԠɠ!"Qkl Ak  }$ ŠȠΠң   "!Я٠ "!ү "!Ҡ "!Š "!Ҡ "!Š"!Ԡ"!ˠ"!FNW`      W  ` T x y "ؠ"ˠưư" , Ǎժުժު  & HQժ )߿ϟ:R cÁIOπ!o/0fqdWtZHf']1O_LB$(IB):AB(IB):FB(IB) HIB R(4);"CLOSE";F$ \"D";Y$;" DISPLAY"* L:X$;"E";Y$;" EDIT"H V:X$;"S";Y$;" SAVE DATA"a `:X$;"Q";Y$;" QUIT"m j22:K$ tK$"A"K$"B"K$"L"K$"D"ī1180 ~K$"O"K$"S"K$"R"K$"Q"ī1180 K$"E"ī1180 1130   READ OLD DATA SUBROUTINE 70 B02JXB1B0$ BNBN2B0/ FLFL6 IL B0B0BN:B1B1BNp :"J0(X) = ";B0:"J1(X) = ";B1v ~ 40X" BESSEL FUNCTION CALCULATOR*:L"BESSEL FUNCTION CALCULATOR"n("--------------------------"t2<"X = ";XFB10:B01:BN0PX0ī190ZFL1: FLAG_IU27dI1IUnJIU2IxFL0ī150B12JXB0B1 1  IN THE PROGRAM." d "S3/ ooooPoooo"" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" 133 11 675 medicine ball/BALL/" 11 "Freestanding punching bag/BAG/" 11 :"---------"4 :X$;"O";Y$;" READ OLD DATA FILE"j :X$;"A";Y$;" ENTER DATA FROM MONTHLY STATEMENT" $X$;"B";Y$;" ENTER DATA FROM CHEQUE BOOK, ETC" .:X$;"L";Y$;" LOOK FOR MATCHING ENTRIES" 8X$;"R";Y$;" REMOVE MATCHING ENTRIES" B:X$;1)"*" 1000" K$"O"İ20004 K$"A"İ3000F K$"B"İ4000X K$"L"İ5000j K$"R"İ6000| K$"D"İ7000 K$"S"İ9000 K$"Q"Ā K$"E"İ8000 "190  MAIN MENU SUBROUTINE ST1Ĺ34,0: ST1 :"MAIN MENU")d CHEQUE ACCOUNT RECONCILER PROGRAM/nnxLA$(255),LB$(255),AA(255),AB(255),FA(255),FB(255),FF$(10)|NA0:NB0IA1:IB1EX0:" ":" CHEQUE ACCOUNT ":" ":X$(91):Y$(93) FF$(0)"":FF$(     NG ROUTINE *NVL((VA)(10))@4NV1(VA10(VL3)0.5)1000X>NV$(V1)" E"(VL)^HN152)`' READ PARAMETERSOj'KP155GFLAG0GFLAG1:49236,0:49233,0:10110}t'KP155GFLAG1GFLAG0:49237,0:49232,0~'49168,0'IT'PR0ī10130'1913,02'(17)'34,0'49236,0'':(4);"PR#0"'  N FORMATTI((KW1)T)A3(WTPHIPSI)t"I(KW1)(ADW1AC)2W1((KW1)T)(KW1)(ADW1AC)2W1((KW1)T)WA3(WTPHIPSI)~"10000' PLOT'DF1VI$'DF2VIR.'DF3VQC8'DF4VQB'VY80VVA79L'IT,VYV'KP(49(KT)(W1TALPHA)WA3(WTPHIPSI)4!10000M! CRITICALLY DAMPED z"QA1(ADTAC)(KT)A3(WTPHIPSI)"I(ADKADTKAC)(KT)WA3(WTPHIPSI)"10000`" OVERDAMPEDj"QA1(ADW1AC)2W1((KW1)T)(ADW1AC)2W1PHIPSI)2TJA2TC(TTC)WA3(WTPHIPSI)D^IY80IIA79VhJY80JJA79ar10000{4! SERIES LCR CIRCUITS>!CASE8600,8700,8800! UNDERDAMPED!QA1A(KT)(W1TALPHA)A3(WTPHIPSI))!IKA(KT)(W1TALPHA)W1AR7510,7510,7510,8010,8010,8010,8510,8510,8510,4400,4400,4400OL RC CIRCUITSvVQA1A2(TTC)A3(WTPHIPSI)`IA2TC(TTC)WA3(WTPHIPSI)jQY80QQA79tIY80IIA79~10000@ RL CIRCUITSJIA1A2(TTC)A3(WTG ROUTINE"*NVL(((VA))(10))E4NV1((VA)10(VL3)0.5)1000]>NV$(V1)" E"(VL)cHN52)`' READ PARAMETERSNj'KP155GFLAG0GFLAG1:49236,0:49233,0:10110|t'KP155GFLAG1GFLAG0:49237,0:49232,0~'49168,0'IT'PR0ī10130'1913,02'(17)'34,0'49236,0'':(4);"PR#0"'  N FORMATTIN((KW1)T)A3(WTPHIPSI)t"I(KW1)(ADW1AC)2W1((KW1)T)(KW1)(ADW1AC)2W1((KW1)T)WA3(WTPHIPSI)~"10000' PLOT'DF1VI$'DF2VIR.'DF3VQC8'DF4VQB'VY80VVA79L'IT,VYV'KP(491bt/3/       [v>( #WʶWx=#~[0 A0 :000;V~9Y#~9Y#> 9YWX:u 7YW>=2u^#Vu]Iq2u DX/Y:SG[2S6~G:S9kx0k2S:u<2u! (KT)(W1TALPHA)WA3(WTPHIPSI)3!10000L! CRITICALLY DAMPED y"QA1(ADTAC)(KT)A3(WTPHIPSI)"I(ADKADTKAC)(KT)WA3(WTPHIPSI)"10000`" OVERDAMPEDj"QA1(ADW1AC)2W1((KW1)T)(ADW1AC)2W1UITS+JIA1A2(TTC)A3(WTPHIPSI)UTJA2TC(TTC)WA3(WTPHIPSI)`r10000z4! SERIES LCR CIRCUITS>!CASE8600,8700,8800! UNDERDAMPED!QA1A(KT)(W1TALPHA)A3(WTPHIPSI)(!IKA(KT)(W1TALPHA)W1A S" VAVB!X PLOT FUNCTION/bIT0279?lTIT279TAvCIR7510,7510,7510,8010,8010,8010,8510,8510,8510,4400,4400,4400L RC CIRCUITSVQA1A2(TTC)A3(WTPHIPSI)`IA2TC(TTC)WA3(WTPHIPSI)~10000@ RL CIRC- TO + "V$" V"SDF3VA(QAC)(E)(E0):20000:"VC RUNS FROM - TO + "V$" V"DF5VAQA:20000:"CHARGE RUNS FROM - TO + "V$" C"CX(37)37,226454641,(41)437,CXVBVAVATA:20000:"TIME RUNS FROM 0 TO "V$"ϠtoϠseordinaryӠnotӬetcergranduneremaintobeexploredheprogramworkswithother͠programsŬӬetcaswellheprogramassumessectorformatomeversionsofˠɠmaybesectorfyoususpectthisisthecasethenchangelinefromanoddbytewillyieldgibberishntheprogramɠmaketwoattemptstodecodeeachphraseinthehopethatonewillbecorrectyexperiencehasbeenthatitdoesnotreallyhelptosolveanyproblemsbutitcanindicatewhatareasinthegameonthediskrackscanbeexaminedtoseewhatisencodedtherehereisaproblemhowevernedoesnotknowifaparticularphrasestartsonanoddbyteoranevenbytefitstartsonanevenbytethenanyattempttodecodeitstartingonementsstillfurtherhesewordsarestoredinalistinmemoryindicatesthatthenextitemisapunctuationmarkɠhaventworkedoutexactlywhattoareyetheaboveunderstandinghasbeenusedtodevisetheˠcheaterprogrameslongomefivebitbinarycodestohavenotbeenaccountedforindicatesthatthenextitemisnottobetranslatedasaletterofthealphabetbutistobeusedtolocateacommonlyusedwordhiscanreducethediskspacerequirazeroatthebeginningandyouhavebitswhichareeasilydividedintotwobyteshewholephrasebecomesƠĠàŠ ōwhichisonlybyteslongtwothirdsthelengthoftheoriginalpassagewhichwasbyt àĠŠà Šōhesecondstepistotaketheseingroupsofthreeandcreatepairsofbyteshefirstthreeinourexample writtenoutinfivebitbinarybecomeutnɠthiswouldbecodedasƠĶõIJķøõàĠùŠ÷öõIJƠóùĴĹnsteadofusingɬusethefollowingcode½andsoonuptoڽƮžnlyfivebitsareemployedhisyieldsbt/3/  [v>( #WʶWx=#~[0 A0 :000;V~9Y#~9Y#> 9YWX:u 7YW>=2u^#Vu]Iq2u DX/Y:SG[2S6~G:S9kx0k2S:u<2u!   OVERDAMPEDQAA1ACA32IAKACADWA3<"6000_p INDICATE AXES ON TEXT PAGE 2lzCX(37)w37,216454641,(41)437,CXDF1VAIA:20000:"CURRENT RUNS FROM - TO + "V$" A"DF2VAIAR:20000:"VR RUNS FROM 00 UNDERDAMPED,A(AC2(ADW1)2)GAC0ALPHAPI2:3840cALPHA((A2AC2))ACrQAA1AA3 IA(K2W12)AWA36000< CRITICALLY DAMPEDFQAA1(AD)K(1)(AC)A3PIA(AD)(AC)(AD)K(1)WA3Z6000(T1T2)T23 ((KW0)W0)1E6KW0:CASE2:3580N CASE(KW0)1(KW0)3Y A1EClW1(W02K2)A3E0L((W2W02)2(2WK)2)PSI(2WK(W2W02))$ACQ0A1A3(PHIPSI).ADI0KACWA3(PHIPSI)8CASE3800,3900,41TA5TC A1ER. A3E0L((1TC)2W2)? PSI(WTC)Z A2I0A1A3(PHIPSI)s IA(A1)(A2)(A3) JA(A2TC)(WA3) 6000 SERIES LCR CIRCUITS KR2L W0(1LC) T15K T20:F0T25F  TA(T1T2)T1N" onnectionbyusinganzyookontheflyingleadhisallowsthetobeeasilyremovedergrandunethatthecanstillbeinsertedintothesocketheflyingleadgoesallthewayaroundtotheundersideofthelanguagecardandisconnectedtopinthereɠfounditmostconvenienttosolderashortmmlengthofstiffwirethereandmakethecŠshowshowthecomponentsmaybeattachedtothechipitselfinsandarebenttothesidesotheydonotgointotheintegratedcircuitsockethesolderedconnectionsmadetopinsandmustbemadeupwherethepinsgointothechipso͠whichmustbelowhe͠mustbeanordinaryԠaexasnstrumentsӠɯŠshowsasuitablecircuittoinvertthesignalatpinhetransistorisanysmallsignalnpntransistoregaγɯalnoteinplaysquiteadifferentroleintheithasvonitwhenthechipisbeingprogrammedandvonitnormallyinistheoutputenableitmustbelowinisthechipenableitmustbehighincontrasttopinontheƸҠtothemonitorwhentheɠbuttonispressedhereisstillanelectricalproblemheoriginalƸ͠requirespintobehighandpinsandtobelowtoenableithe͠requiresallthreepinstobehighechnictheresponsetoaԮoovercomethisproblemyouneedtochangetheƸmonitorͮɠhaveprogrammedacommon͠sothat containsƠrespectivelyhenthe͠onthelanguagecardisactivethisguaranteesajumpfyoupresstheɠbuttontheɠlinewillbepulledlowandtheprogramwilljumptotheaddresscontainedinlocations­îhisisusuallyareturntothemonitoroweversomeprogramsmodifytheresponsetoaɠjustastheymodify,128,4,105,128,157,128,4,189,129,4,105,0,157,129,4,192,13,208,18,238,23,4,173,23,4 141,151,4,206,31,4,173,31,4,141,159,4,136,208,211,173,167,4,72,173,176,4,141,167,4,104,141,176,4,76,128,4,7,20,25,28,33,46,55,61,65,68,72,75,4,16,40,43,49,52(104)13410,104,134:134256,0F(4)"RUN APPLE WORM"j :16302,0:16304,0:1023,160I094:D:1024I,D:I16368,0((16384)1284021024R d 160,225,200,185,255,3,153,127,4,192,95,208,245,160,18,190,76,4,24,189   CORRECTIONS1 RAM CARD TO MAIN MEMORYT LINE 200: SHOULD BE GOTO 300| LINE 300: SHOULD BE POKE 4094,131d L  / // /A /K //EAEKHJJ݌h / / / / /F HhHh݌FG$Ki K ,KL.HhG02HhHhHh e)- GL.AA# *GȄGL.@L9.L7.HJJ݌h Hhꝍ݌``Lݥcpq` [` ~ 9.7H/L.HH/Hh/ ۠-HЕ( (( )$8 H` j(H`X``hH@@ HH(h Hب@ȸ pHH0@@H(`hH@h H@xHH@@hH@H `p`hH8 (H0HH@H𠸸hH(H@( HH h0hH@hH@ &)+>ȥ')+>,JJJ +>`+*xS&x'8*3Ixix&& 8 l** {*' o** {*& {*x)*++`FG8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<` aI꽌ɪ򠚽ɭ&Y*&,&Y*&+*꽌 꽌ɪ\8`&&꽌ɪɵ'*&%&,E'꽌Ю꽌ɪФ`2,JJJ'J&J+>Ƚ3,JJJJ&'J&&3+>Ƚf,JJJJ&'J&&f+>ȥ,3600,3600 RC CIRCUITS' TCCR3 TA5TCR W02PIWTCTA10PIW] A1ECw A3E0((1TC)2W2) PSI(WTC) A2Q0A1A3(PHIPSI) QA(A1)(A2)(A3) IA(A2TC)(WA3) 6000 RL CIRCUITS TCLR "Y/N"Y$" ";:K$&K$"N"ĺ"N":1460BK$"Y"ĺ"Y":DF5:1500L1420Rg SETUP GRAPHICSmz49237,049235,030,10,159279,800,80 CIRCUIT ANALYSIS CIR2510,2510,2510,3010,3010,3010,3510,3510,3510,3600";:K$2K$"N"ĺ"N":13609<K$"Y"ĺ"Y":DF3:1500CF1320`PCIR1CIR2CIR3ī1420Z1:"VOLTAGE ACROSS L "X$"Y/N"Y$" ";:K$dK$"N"ĺ"N":1360nK$"Y"ĺ"Y":DF4:1500x1370CIR4CIR5CIR6ī14601:"CHARGE ON C "X$,128,4,105,128,157,128,4,189,19,4,105,0,157,129,4,192,13,208,18,238,23,4,173,23,4 141,151,4,206,31,4,173,31,4,141,159,4,136,208,211,173,167,4,72,173,176,4,141,167,4,104,141,176,4,76,128,4,7,20,25,28,33,46,55,61,65,68,72,75,4,16,40,43,49,52(104)13410,104,134:134256,0F(4)"RUN APPLE WORM"j :16302,0:16304,0:1023,160I094:D:1024I,D:I16368,0((16384)1284021024Q d 160,225,200,185,255,3,153,127,4,192,95,208,245,160,18,190,76,4,24,189  (2>&JJJ+ȱ>'JJJ3+ȱ>*JJJf+ȱ>J&*J&'J&&+ȱ>J&*J&'J+&*),')3,*)f,>),JJJ+`80|'x,&Hh & ( ( ( (,Y+,'&Y+,x+ꪽ,' ( ( ( (`Hh        S"# "-------------------------"@ CIR4CIR5CIR6ī1190c "CHARGE ON C IN COULOMBS ";Q0 CIR1CIR2CIR3ī1210 "CURRENT IN L IN AMPERES ";I0 :"DISPLAY WHICH QUANTITY VS TIME" "------------------------------" 1:"CURRE3ī1120 V"L IN HENRYS ";L$ `[ jCIR2CIR5CIR8CIR11Ą"EMF IN VOLTS ";E:1150 tCIR3CIR6CIR9CIR12Ą"EMF AMPLITUDE IN VOLTS ";E0:"FREQUENCY IN HERTZ ";F:W2PIF:"PHI IN DEGREES ";PHI:PHIPHI180PI ~:"CHOOSE INITIAL CONDITION(4);"PR#1":PR18 20:"CHOOSE CIRCUIT "X$"1-12"Y$" ";E " ";CIRU C12ī1010v :"CHOOSE COMPONENT VALUES" "-----------------------" $"R IN OHMS ";R .R0ī1060 8CIR4CIR5CIR6ī1100 B"C IN FARADS ";C LCIR1CIR2CIR00 ky 0,wwʝ`Ly`Ty AyTy OyTy`ɫɭ ,jv``  Cd ; ``x wx wx`ɫɭ ,u``  Fd ; `^x`fx Sxfx axfx`ɫɭ ,|u``  Fd ; `0 Lxɹ ȝެww%00! Lxɹ Bv )Dv8&Cv xɪBvɪɫɭʽ xCvȮBv0 Lqwɹ ȝެCvBv%00! Lwɹ 00 x 0,AvBvʝ`wɮȄ` jj`')I) Qdii L\dLcڪ wnAv0 wBvʽɮCvDvʽ0!Dv,u0 wDv wEv xEv xȄ7EvȹE ɹ u Jv(L.x }iLiLc v0+ɨ!Ȅ0 v0 șLc0͆ Qd g \d vɭʎupfȹɭnuȄ v80 Hɮh,uʩ0%hș0詰0hșii jrr`ȱyisi`0 jt8 ]tu ]tv ]t`Hh*$` Qdi >HH \dȥP tQ th th`HH8*hhʊ0 jt iiHHvHuHH @tL "i ;d,i , rr Fdnrrr rrrɖ ,nrrr,r0,r ksr 8rr`js is.js tHH8isjsisisjs tisqLchhii Ӡȱisɭrr dmnmmn iȹ iȱ` Fd r MjLc8lm0 r,i0` Fd r jmn rmn,i0` Qd "i \d iM!iLc`2HH [ ܿ , ursh_he r Qrm`sma`YLzSxLcSx p q 2dLciipipqȱqȱq eqipp`pp6qȱqȱq iiHiHqȭqȭqhh`¤`nHhhhhhhh 鷩뷭ª ` LҦn)nA ) ȱ8HeHiHȄhinp8nHnh dmnnnʆ` "i ;d Mj`Lc p,ipp 2d Bjnn Fd "i!i?n in8nn  ,n dn䭟n )n`LcLcn jLno MjLc 2d diiopnn(`ȱ,nȱ `oȱȱ0 ȄiJF4n8ȹ4ne8{mИL%n`L2nø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !" n,n Uo p,n n Ip` j,n dnX O,-( Ɉɇ H)5LL5 ɎɓɅɗ5`#()?((($ (ȩgm Xm`a8m9`( im`8m9`2@ @d ,rm dzm|mum }m|mLc}mLm0`LmLm0`LmLmzm 4n}mi,i0` Fd "i Mje 2d, i0 i,!i0i dmemnin Ӥeȱiii,i0` Fd "i j,i0` Qd Aم~}L\d Bj Bj` BjPȱPLihhߚHH` 1gl im݅6l7LQH ,,,hɠɍɍ5j j5h` kh` kLcj6j7`ffJff8&&`  jjȩ 40 4` ȱ"e ;Lc Fd Lc"Щ Fd3 o "i ;d }iɍ o`HH "i iM!iLc }i, i hh`hh 0)` g RPQ`kl sjnm iȱ ieȱe` Mjmn jnm`jjjjj筠jee`kkkj6j7j6j7 LkH h,g08! !`h`ii!i [A  iLc .,',i0 $ %Э i i!i !iii` i!iij eelkŁȱłۥi  d `H dh8ooȑppȑ )Lc (kgg d (k g If Vf8*g1Li,g0LVgg dʎg`,g0Lgg dʎg`,g0pLXL2Le  d g`((,g ߩg i0 ihmhhhh ,h dh0 hٜhLcΜhΞhfI,f0f VfLd,T,V,R`@gg g,PLAgg g g,Ql g6g7f8f9 Q`g;g,U@g*g ,T,W,R,Pgggg,l Ag 7dg6g6d79ff8ft8f9 Q`(@(@ Bjfie Dfeeg ehg`"f`8 & &) `g gygdyhd`i`8gge` f Le d fɛɓ ɕɍO`fIf`f`ff`0fiffࠠd efLd f d Affgggc`ɍ[Ɋ`ɓ7Ɉɇ.Lggg`ggggg ,"f0 ggg`LfI48iiiT-` fggggg ,"f0Sgg`gggggHgH eggggghghg` ^f Afe Vf`ggHggge ^f Dfe V5LԍddH h `emHenhpo`з`, i0,!i`ƹƸ`OdPd`OdPd`((((PPPP d dddd`ddd`ɠM,f  d$2pg -fMg,gPApi? g Agc`Lcg0g`gqggDh[hrhklvl9rarr6ttlllltcp˯nlłh}m"f&fckןhTcccc, Fd Qd \dWc/ WcYcXcHHLk M*<"< """<<<"""< >"0 <"<""""   ""**6"""""""" <"<& <<""""""""6*"""" <$$>>    ~ "<*:""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>*_VLc>>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <""  >>               hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOlZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@on 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\ eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noLõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV @ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõ   0*$<> ***> >> >*>"$$$<>  >  **> >  >" 8>>$>>> > > > """"**  ">""""> ""> "" 0*$<> ***> >> >*>"$$$<>  >  **> >  >" 8>>$>>> > > > """"**  ">""""> ""> ` 8  > > >  ">>>>$>>> > > **>( >   "">>>>$$$$>>>  "$<<> >> & " >8$>  $   DISPLAY KATAKANA CHARACTERS$ + 8 49235,0? 1M K1KMAXg KA(K)4846KA(K)38v (KA(K));|  ::KEY$ 60 ɂ ::KEY$ 60 N":W$ TRANSLATE ROUTINE% I14 IMAX(W$)= LS3E K1M J0 (W$,I,LS)C$(J)KA(K)48J:KK1:IILS:LS3:J0:300 JJ1 JNCī250 LSLS1 "LS0ĺ"CAN'T TRANSLATE":90 '240 ,IIMAXKMAXK1:400 6250 ":C$(40)"RI":C$(41)"RU":C$(42)"RE":C$(43)"RO":C$(44)"WA":C$(45)"N":C$(46)"WO"b C$(0)" "l NC47t : "KATAKANA PROGRAM" ((4);"BRUN GRAFPAK 1.0" 2(4);"BLOAD GP/KATAKANA,A$6000" <: Z21:"TYPE WORD IN ROMAN CHARACTERS(19)"TE":C$(20)"TO":C$(21)"NA":C$(22)"NI":C$(23)"NU":C$(24)"NE":C$(25)"NO":C$(26)"HA":C$(27)"HI" C$(28)"FU":C$(29)"HE":C$(30)"HO":C$(31)"MA":C$(32)"MI":C$(33)"MU":C$(34)"ME":C$(35)"MO"T C$(36)"YA":C$(37)"YU":C$(38)"YO":C$(39)"RA KATAKANA PROGRAM$ C$(46) C$(1)"A":C$(2)"I":C$(3)"U":C$(4)"E":C$(5)"O":C$(6)"KA":C$(7)"KI":C$(8)"KU":C$(9)"KE":C$(10)"KO" C$(11)"SA":C$(12)"SHI":C$(13)"SU":C$(14)"SE":C$(15)"SO":C$(16)"TA":C$(17)"CHI":C$(18)"TSU"i C$   KED TYPE IN 3-DIGIT NUMBER. CLICKS INDICATE IF A DIGIT IS CORRECT. IF NOT START AGAINW! BEYOND CASTLE WOLFENSTEIN1d COURTYARDMn FIRST LEVEL FIND BOMBx THIRD LEVEL TAKE BOMB TO HITLER'S BUNKER AND LEAVE IT. RETURN TO COURTYARD 8 HOLSTERS GUN, CLOSETS6 POINT GUN, 7 IF UNLOCKED IT OPENSU 8 IF LOC!! CONGRATULATIONS !!!"L(AV101000ĺ"A VERY CONSISTENT PERFORMANCE !!!"y2Z1000Z1500ĺ"A VERY GOOD SCORE !!!"<Z1500Z2000ĺ"AN EXCELLENT SCORE !!! WELL DONE !!!"FZ500Z1000ĺ"A REASONABLE SCORE !!! KEEP TRYING !!!"PRH27.9,150(V(C).06)#HH27.9*C816301,0@21J1290\"QUIT ? ";L$zL$"Y"Ĺ16303,0:936: Z500ĺ"NOT A VERY GOOD PERFORMANCE !!!"AV10200ĺ"THE 'SAMES' DIDN'T PAY OFF !!!"Z2000ĺ"A SUPERB EFFORT !EST STAKE YOU ACHIEVED WAS $";M%K"YOUR AVERAGE STAKE WAS $";AV10Qd"GRAPH ? ";A$vA$"Y"İ1110|$.16303,0890BLV`7j0,0t0,150~279,1500,1500,120H0C110OU LOSE $50."j"A SPECIAL BONUS OF $250 IS GIVEN FOR CORRECTLY GUESSING THE COMPUTER'S WHOLE HAND.""PRESS TO START :";E$936:"YOUR GAME IS OVER !!!"I110(7);I"YOU BUST !!!""THE HIGHOSE IN THE COMPUTER'S HAND."Uf"YOU INITIALLY START WITH A STAKE OF $500."p"IF YOU CORRECTLY GUESS 'H' OR 'L' YOU RECEIVE $10 ,IF YOU ARE WRONG YOU LOSE $10." z"IF HOWEVER YOU CORRECTLY GUESS 'S' YOU RECEIVE $200, IF YOU ARE WRONG YSE YOU STAKE AT THE END OF TEN ENTHRALLING ROUNDS."R"YOU ARE DEALT A HAND OF FIVE NUMBERS BETWEEN 1 & 10 AND SO IS THE COMPUTER."\"YOUR AIM IS TO GUESS WHETHER THE CORRESPONDING NUMBERS IN YOUR HAND ARE: HIGHER,LOWER OR THE SAME AS TH   "GRAPH ? ";A$/ A$"Y"İ11105 C 16303,0V ZHIGHHIGHZe MUPUPM~ AV10BIGBIGAV10 *90 4 >"WDLCOME TO THE DOLLAR GAME WHERE FORTUNES ARE WON AND LOST."5H"THE OBJECT OF THE GAME IS TO MAXIMI &936 0 :Z0İ930) DV(C)Z5 NAVAVZB XZMMZL bCC1Z lC11640c v180 "YOUR GAME IS OVER !!!"  P110 (7); P "THE HIGHEST STAKE YOU ACHIEVED WAS $";M  "YOUR AVERAGE STAKE WAS $";AV10$(I)X$(I)G$(I)"S"ZZ50# I) r G$(1)X$(1)G$(2)X$(2)G$(3)X$(3)G$(4)X$(4)G$(5)X$(5)ZZ250 "COMPUTER'S HAND WAS :": I15 B(I);"(";X$(I);")";" "; I : "YOU HAD $";R;" YOU NOW HAVE $";Z O$ JI15 TA(I);" ";$ ^I, h:H r"ENTER YOUR GUESSES :"S |I15^ G$(I) G$(I)"H"G$(I)"L"G$(I)"S"Ģ10I:390 G$(I)X$(I)X$(I)"S"ZZ10 G$(I)X$(I)X$(I)"S"ZZ200 G$(I)X$(I)G$(I)"S"ZZ10 G";UP "H.AV = $";BIGD " YOU HAVE $";ZO I15e A(I)(10(1))1{ B(I)(10(1))1 I I15 A(I)B(I)X$(I)"H" "A(I)B(I)X$(I)"L" ,A(I)B(I)X$(I)"S" 6I @"YOUR HAND (";C;") IS :": RZ HIGH0#UP0:BIG02A(5),B(5)C(X$(5),G$(5)N2V(10)X<936rF"INSTRUCTIONS ? ";W$PW$"Y"İ830Z936dAV0nI110xV(I)0IZ500M500C1"H.F = $";HIGH "H.S = $     JXB0B1 '10180' 'B02JXB1B0? 'BNBNB0B0(IIV)J 'FLFLQ 'Ig 'B0B0BN:B1B1BN ':"J0(X) = ";B0:"J1(X) = ";B1 ' '10030"' BESSEL FUNCTION CALCULATOR*':L$'"BESSEL FUNCTION CALCULATOR"n.'"--------------------------"t8'B'"X = ";XL'B10:B01:BN0V'X0ī10210`'FL1: FLAGj'IU21t'IVIU1~'I1IV'JIU2I'FL0ī10160 'B12^198:I1750:I:X(16384):X1283504 h::C:HPH0240 PH:3:A1,PT ADD GOTO 280 HERE IF UNDERSIDE IS NOT DESIREDn RLRL1GH5:280| HG280 GH:H191280 2:A1,G C " ,A280350 6TT1:T180T180:LL1:DD1:DCFD0 @130 T16368,0* 6 MATHLAND+ NIBBLE SEPT 86, P 734PCF2:ZJdR0:P0:H0ZnC0:A0:Z0txT1:L1:K192:D0:G0|PKCTD1CFATL:RAC:R100300 LINE 200 CONTAINS FUNTION TO BE PLOTTEDZ((R10)(C10))2020 HKZR 6W0W3WL @W0ĺ" ";/ JW1ĺ".";> TW2ĺ"-";M ^W3ĺ"*";U hLW\ rJc |Kr M2WID1 B(M)A(M1)A(M)A(M1) B(M)9B(M)B(M)10:410 M  J1WID:A(J)B(J):J 220AA(1)1:A(2)2:A(3)3:A(4)3:A(5)2:A(6)0:A(7)2:A(8)1:A(9)3V J10WID:A(J)0:J^ : "PRESS RETURN TO BEGIN ";B$ : K0WID101 J19 MJK10 WA(M) Z19 WS(Z)WR(Z) Z "A(M)W ,M1ĺ" ";:370)0:R(7)0:R(8)1:R(9)2& dR(J);:J, nA x"THE SUM IS ";L J19` S(J)((1)10)s T(S(J))1140 T(S(J))1 QJWID24:B(Q)((1)4):A(Q)B(Q) S(1)0:S(2)3:S(3)8:S(4)1:S(5)7:S(6)4:S(7)5:S(8)6:S(9)9 S(J);:J>  1-D CELLULAR AUTOMATA BYOUR COMPUTER JULY 87 PAGE 112hWID40: NO. OF CHARACTERS ACROSS(A(WID),B(WID),R(9),S(9),T(9)2:<"THE RULE IS ";FJ19PR(J)((1)4)ZJ1R(J)0 _R(1)0:R(2)0:R(3)0:R(4)3:R(5)3:R(6    30 1 - FIRST MONTH. 23 - 23 RD. DAY. 0 - FIRST ITEM S.P. TULK10 N USE THE DATE AS YOUR LINE NUMBER AND THE ENTERIES WILL COME OUT IN ORDER ON THE CALENDAR; IE.- *N LINE # 12HE FIRST STATEMENT AFTER THE DATE WILL BE PRINTED ON THE CALENDAR AND MUST BE 7 SPACES WIDE."hB"WHEN THE COMPUTER ASKS FOR THE FIRST MONTH AND YEAR TO BE PRINTED TYPE JAN,1981 TO USE THE TEST DATA STATEMENTS. HIT RETURN TO START PROGRAM."PFZ$8Jz #?   ̠ΠҠӠ נ Я  Ϡ7٠ΠٮàǠàҠ ̠ϠĠ  ɠ ̠IJԠŠϠԠŠҠԠˠҠĠ ŠHԠŠҠ  òԲ.ԠԠ.ԯ͠.ٮɠ  Ϡ͠ˠ  Š͠ˠŠ͠ Š͠ Ơ.òñ"ӠƠӮԠΪ ˠүΠ"ҠԠӠ"Ӫ! ͠ˠ Ԡ͠ˠ :"THE PROGRAM HAS BEEN MODIFIED TO CONTROL AN EPSON MX80 PRINTER CONNECTED TO SLOT NUMBER 1. SEE LINE NUMBERS 440,450,455,460."]>"ENTER YOUR OWN SCHEDULE IN DATA STATEMENTS IN LINES 1000 --> 13000 FOLLOWING THE FORMAT SHOWN BY THE TEST DATA THERE. T @* *** NOVEMBER *** . *** DECEMBER *** 2 END,,,6"THIS PROGRAM WAS TYPED FROM THE BOOK BASIC COMPUTER PROGRAMS FOR THE HOME WRITTEN BY CHARLES D.STERNBERG." IX *** JULY *** @ *** AUGUST *** (# *** SEPTEMBER *** ' *** OCTOBER *** *** P *** MARCH ***  *** APRIL ***  *** MAY *** p *** JUNE *** ** DATA ENTERIES FOLLOW **  *** JANUARY ***  *** FEBUARY885pD3,D4$,D5$uI!zS ******* DATA FOR INITIALIZATION *********v SUN,MON,TUE,WED,THUR,FRI,SAT JAN,31,FEB,28,MAR,31,APR,30,MAY,31,JUN,30 JUL,31,AUG,31,SEP,30,OCT,31,NOV,30,DEC,31 (I1)D7(I1)L08154 D6$(I1)" "815D%D6$(I1)D4$M*L11T/IZ49 ********** DETAILED PRINT OF SCHEDULE>CM0$(M3)HMI131RX$WI\I1100aM3$,D3,D4$,D5$fM3$"END"890kM3$M0$(M3)************* REVIEWS SCHEDULE ITEMS ******************?HL10TI131\X$cIpI1100M3$,D3,D4$,D5$M3$"END"820D3N0(M3)815M3$M0$(M3)815D3I0815 D3I07815I1D3I08D7(I1)1D7"; qS1I1vI0I01${S0I1+I4"I"=L00GS0S1Mj ** VERT. LINES *******vI1M1D6$(I)" "700"I ";D6$(I);" ";D6$(I)" "D7(I)0705"I ";I"I"9 *********I1M1&!J15605&IS0560>+I01R0N0(M3)I0580e5"I ";q:I0I01z?640DI09620II00600N"I ";S640X"I ";I0;" ";]I0I01bS1I1g640l"I ";I0;" ";M0$(M3);" ";Y.:9I17S" ";D0$(I);" ";ZI`f ******** PRINTS SCHEDULE OUTLINE ************I1M1"I---------";I "I"  ******* PRINTS CALENDAR DAY LINE ************* PROGRAM TERMINATION POINT ******************LA$"Y"415U825dS08425mS01uI2{ *********** PRINTS HEADINGS *****A1$"Y"450X$1(9)(1);(1)"80N";&" 295 "N0(2)29 '270( ,S004151 1435= 6J1M2F ;505Q @K17c EN1$(K)" "j JK} ON0(M3)I0400 T535 YL110 ^720 cL10380 hA2$"Y"395 m665 r665 w395 |665 L0L01 L J;17 D1$D0$(K)225! S0K( Kj ********** PROCESSING LOOP **************************| I2M4M4N1 N0(2)28 YY1 (Y4)Y4260 N0(2)29 I00 M3I2 M312300 M3M312 YY11 (Y4)Y4A1$7 "DO YOU WANT AN EXPANDED CALENDAR ( Y OR N )?"@ A2$R A1$"Y"190 "BEFORE THE PRINTING OF EACH MONTH A '?' WILL APPEAR" "ALIGN TO THE TOP OF PAGE BEFORE PRESSING THE RETURN" I112 M$M0$(I)205 M4I I KTARTS ON SUCH AS SUN MON TUE WED THUR FRI SAT."8 D1$ "ENTER THE NUMBER OF MONTHS TO BE PRINTED SUCH AS 1 OR AS MANY AS YOU WISH." N "SHALL I PRINT THE SCHEDULED ITEMS( Y OR N )?" A$ "DO YOU WANT PAGE ALIGNMET ( Y OR N )?" D0$(2),D0$(3),D0$(4),D0$(5),D0$(6),D0$(7)5 PI112G UM0$(I),N0(I)N ZIY _I17n dD6$(I)" "u iI{ n s"ENTER THE FIRST MONTH AND YEAR TO BE PRINTED I. E.,JAN,1981" xM$,Y1/ }"ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH S14000B REMINDER SCHEDULE AND CALENDAR-ENHANCED  ************* DATA INITIALIZATION *******************N0S00L00#M17(M27-M412D6$(7)7D7(7)<D0$(7)AN0(12)FM0$(12)) KD0$(1),      :8e`hh ?l``` $ $` B$L;$ 3$L;$ $L_$ `8i`uuۥee```0```5I`ۅ܅` J Uȱ U  JL"L" ~#0 ʊ)ȱސ Lw" ~#)Ȅޤȱޤ߰)ieޅސ߱ `hhL" Jhh #L#$H) JQ JJJ#H`#HJ (` )A2cmKw馄!O̠Һ #,Ƀɠ "  =Г ̠Š̠ҺL"¥ޅ߅ ) ʊ)ޥߊ$ 0L1# L^#I@)JJJJJf ȩ]fʩ f L 8'ʆɢ ˠ ʥ ɰ$0 L bرMɪ1 7 0L K 7 K 7 ALAL E ! 8⪥ ! K  ,L  ̠,s uX ƐbR0(ʰPp@b  a ! Lh `02!F +AK S`LT aa0a2dLB|L"Lb>02a @0Pa`p D$K  ) ,!.&+-/*U5u dERANLABEMEMORY FULUNKNOWN LABENOT MACRNESTED MACRODUPLICATE SYMBO,jMM|nApr+! @&!d ($Rx^!Whܚ$N Fj.   3&KhFr8+++#+&z2\u!p!rKKȂH h (&`F8pr&BؙHRx@XVȑ] ۢԕХեLOʥ LեԊ$.PʩL U ULUV I0 H P heUUVLH h` IN LINE --END ASSEMBLY-- ERRORS:BYTES BADOPCODADDRESS MODBRANCOPI@Ȅܹ R!:Ș Ue`!ɌH $h Uɍ L UeVeUeVeL # LLAՅVԅU  i ީLӥЅڤe L H  h  (,А  UL@Q݄S?jSݩ&Tf݄QP %PQȾ T *?2ESL1 L  ] ( (  $LA LLIL UVfL߅ޅ ȥUVȑ`G u۱HȱH` q ҤȱL1L?   * , L* UJ PeSSQeTTfTfSfVfU` VL U *V *L) hh` ;) ` #Ș U *(  , 2 ȹ  2 *ݭ"I L". Й  Kȱ0 K Eץ ! L!UȱV` (fʅVϥUΥVU HI'I U)_8fWVh 52h% T($ n*I0 `    LA-H uVVh ʩST&&S&TSUTV TSUSΈυV΅UL΅PυQST  #L ie ``I0 iI`˅ȱ `UVJ&U&V 2I0`VU 0 2U&VULrҽh0ʆ҅ " ۥڨ6L) %ȱhȥ) ȱȥ`  H hE%.`8j1Yȱ$0  ɺ< ) $/0  A L ` eȱ` ]( ` S( H)`ߥޥȽȑȥ$ئ !$ɍLȹ  LA$ȹ  "$$0W ;Qȹ  WE];H5!1, 0ȹ ,ȹ,   жh @00  Ұܩ   JҰ   0 Lɠ,ɠ  :L Y;UF  $s)",!)_X"I)V }L! Ll%,")_IYL6 L)_J *L* V V.L* ,Ц!)_XYЗV L* UL1 >/ < P` VU`L L Ƀ 멩ʊ,Wֆ @!Lg` jfjf))_D)f(*멓 uf qЭ ] ,L ( @ hT(L qL1 q+H VUʊUȘh *LZ qL # ΩǍ S $ #2ɪ Oɠ Oɻɢɧ Oɠ ȱɍhh )_ȩ`,8xXxXx6  : Ia#` Q V #12 ϕ5 "]0 ) ե Ԇ׆؆ц. , `Ɉ Z : 5ɘ L Ɍ SI SL$ɕ(ESɍм `Ɉɠ ɍ7)L Li؍ĠӍԍ׍٠̍ō č ԍ̠ҠŠөŠŠ$VWOFVɠ$A0йH4hFAɕɈňLɄ Ɇ ɍWFVȱɍ)WfV0ɉfALɎ ɍɏ ɍLɌ I Lɂɍ4ɑ  # `Ƀ)ɒ` ,` lRLR`0L ɯɃɠ`Q $3  #$9 #*4 z L W  T V #l9ILA #)|!IQ  #l9ܩ # #IAYA!:JL`):I #<)qW'q*q7L,?AV44ɍT)) @ 4T ):(; Lp ?';  #&;  kL k #9: L  T   `/ ɍe п#вЮ #:92a:``J ?  f3  T #)IQ!JQ!:!Bl8(^ )`,8hkxXxXx@/Q  @*  #+)T+P6+  L s ?  #(;)8 ):`l; (11*2!|| #':7 #AY`   L  #l;  # B 1UE0I$Q ɻ10U(T011 0$!$  ɍ$! %# ^ɍБ #I`$ٵו󩠅L!8 Iiǥɍ  AL %7L #l;8L4+;߂ q2pFңS$+ >9  #i$ir!9 L ҍf/ 1 QS $Bɠ #! B9 a%AaAx - L 4d? #a? P+| =+|B\|`# B\9߰;B` И Ժ e A ѵȭҵ ȩ   ȑ    L  <LҦ A ̤8  AL ̤LA Ӭ`ɍ L $ Xhh L HH` X Ԡ L hIhLX ĺ )   Ġ  `eae L ' ź ) L ŠL  ĺ UL9 8 ϠŭҠǠîCALL`v LiŠōŠҠį͍ڠϠӍϠŠԠōѠԍ ź źh  Ժ A v ǍӠŠɄʄ  ! ĺ UɃ L L|L%%  ` e轀Cɍ`$( Ih$ o&`$Hɍ    ة Z [مv03W ԧ   àǍ̠ĠōӠŠōĠōĠ          86 HALLEY POSITION FROM MATTHEW STEVENS,GREENWICH T:"TOO MANY DAYS FOR THIS MONTH.":88> TO END. ";:CO$:CO$(13)ė:40)GH(5)2PIH(5)H(5)2PIbH(5)0H(5)H(5)2PIU(5)ASN((D(5))(L)(D(5))(L)(H(5)))V(5)ACS(((D(5))(L)(U(5)))((L)(U(5))))(H(5))0V(5)2PIV(5)%(1):(9)5R(1)rH(5)H(1):D(5)D(1)'u388SxV(1)V(5):U(1)U(5):K(1)V(1):Q(1)U(1){"AZIMUTH:";:(20):(DEGV(1));:(25):"DEGREES":"ALTITUDE:";:(20):(DEGU(1));:(25):"DEGREES"#~(1):(20):"PRESS ANY KEY TO DO ANOTHER CALCULATION OR =?<=`ɠ%25H $8h5 <"<"""<< <"""<< <$""< &"""     **"" """""<""< & >"""""""""**"""""< >>"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "<%+1  ? +++! ?  >>> >*""""=?=### ## = **>  ">" >>8>$>> > >>  **" >"""">>""   H 8>>"AA">  >" >>>>$>** > (  >"" >>>>$$$$>><$"  <> >> & > ">$8""$  Ɍ I0$H%H)H ?2h)h%h$hl8` k2$$!`L01L41ɠɍɊɓ@ɏ) Ɏ`HH2@,h@Hh ɀɠB8 8@ & & &m)m)H))) ))E$(h)h`KIYOMASA KAWAIKK1V(K)I:W(K)J:HHЩ 15 18,0`2HI25 k2h2`$%%#P%"H 1(*)+!hi#/H 15)H+H5 H))h++(*h+h)0 1% $)))`$)H))0))115))) ))5(!h) )`*UU*ժH$Pi38,P,R,U,W@L0q607h8090"%$%H 1 1hi#LX5 y0Lw05 1(`5()  0( ɍH 1hɌ I0L0ɋ $(5L0ɓH@hɒ`NO 0,Ɂɖɚ` "$(5XX&!"&X&&!!!!'&X'"!'X  0,Hhi@`Lo,H) h)8 e )5e )@* e .ڥ 8 8 e .ȄЩiК8 P,`@?. L-`X&!!&X&&!!!!&&X&!!&`@@..`@ ... L+, `Heh`@../@  0,HhL-hH) hH)8 e ),e $ !e  0,H hL,hehȄЪHihИ 0---5???????7-------5;??????.------?????7)----;??$>566/- )-2?:2----63/6;? 1$4?:2--76%(??6--26;? ?66)- ?--63336* $;?26)- @ /./ L+ 0*%0* 0L* L*`xH4444xx4444r4xx`xxx4`4 @  *--.555.66>677?>??<'''<$$,$%%- *-- :????------:??????.------???????7-------5???????7----3:AI,J0:| << SUPER OTHELLO >> BY S.KOMIYA TSUKUMO ORIGINAL FDEĺ"YOW WIN!":8,0:MCCP16368,0:"TRY AGAIN?";:C$SZC$"Y"870gd0:0::1490:mnxIX2116:JY2117:P130:2I,J:H1100::8,56:MC3:AI,J:H1100:P:IX2116:JY21170:2I,J (P)A1210-XXL:YYM:XX1YY11270HZX8Y,A:1440:1250VM,L:990dR11320 AMANĢ14:M$;": YOU"AMANĺ(12):7:T$;": COMPUTER";:"PASS!"::990((12):72DEĺ"DRAW"<DEĺ"COMPUTER WIN"5:(12):34,6:1070+Y(ZA8):XZA8Yi(12):7:T$;": COMPUTER";:"V: =";X1:"@C =";Y1ZX8Y,A:1400:X1X:Y1Y:L11:M11L0M0ĂMXX1:YY1XXL:YYM:X7X0Y7Y01270PZX8Y(P)01270 MAN4101$X0:Y0:14:M$;": YOU":16368,0D.15:"V: =";e8C$:X(C$)49:X0X71080zBX1:P1100:PL16:"@C =";VC$:Y(C$)49:Y0Y71110`Y1j(ZHX8Y)01180t18:"?:J 59O>]!"~P01000::34,1-9:">]C(Y/N)";:C$:A1:MAN(C$"Y")1EM$"& ":T$"% "dMAN2M$"% ":T$"& "nA3A11680:MAN2E(1):D(0)MAN1E(0):D(1)5:M$;E" : "D" "T$DE0DE64132050:U0RR1:1280 R0:BB1:AOTHELLO *":"* 1.0 *"1zR0:FRG0:B0:34,6FL063:ZL,0:jZ27,2:Z28,1:Z35,1:Z36,2A1:X4:Y3:1440:X3:Y4:1440A2:X3:Y3:1440:X4:Y4:1440PADAD63:P,(P64)((1)2):7:"ZM^Y(1-3)";:K:K3K1950 8" I07:3I9,2621I:2 32,27:33,128*>4Y>AD11776:ZA0:MC10752HZAD64:QZ128:ZHZ64:QHQ64:STQH64RMC10752:T111328:RE11549:PE11279:TR11264:PE211231:COUN11680\f660:0p(12):1:"* SUPER *":"* 1160$232,128:233,4211:0:0H32,0:33,27:34,0S(12)Z3tX14:Y16:P182:T184I08:SYI21X,(S)P,(S)P,S1X,S1II08:SXI21S,YS,TS1,TS1,YI 2:" 1 2 3 4 5 6 7Y1,X1&O0:L063E0(ZHL)0ĹSTO,L:STO1,(ZHL):OO2_::O2ZA(ST):1160iDN99NOO2:11264:H(STO)X0,H:16,A:11549:U(11):B55Č11279:U(11)bU0U5lN(STO1)UZA(STO):N(STO1)UvO0590:L05:FRGFRG(ZL9)(ZL49):\ L03:FRGFRG(Z8L17)(Z8L22)::FRG0430p 11279:ZA(12)z 1160  11279:U(11) K3550 X116:Y116:PX18Y1:P9P14P49P54540 H(ZHP):H0540 ZHP,H32 JY1Y1Y2:Y10Y173704 T(QHX8Y1)0330Q ^0,X8Y1:16,3A:11549k h(QZA)(A)FF1:z r:S0390 |(ZZA8)0(ZZA8)0FF1: LZA: 11264:0,ZA:16,A:11549:  B56550 FRG0ĴK490,80,80$ FRG0 X1X:400* X1X1X2:X10X17270B (QHX18Y)0230_ 0,X18Y:16,3A:11549y (QZA)(A)FF1: :S0290 (ZZA1)0(ZZA1)0FF1: "LZA: ,(ZHZA)0ı 6FF1:Y(ZA8):XZA8Y:Y2112 @Y1Y:400:ZA55:300:ZA48:300:F0ZAL:1160I ZA9:(ZHZA)0(Z)(A)1160o ZA14:(ZHZA)0(Z7)(A)1160 ZA54:(ZHZA)0(Z63)(A)1160 ZA49:(ZHZA)0(Z56)(A)1160 490 (ZHZA)0ı FF1:Y(ZA8):XZA8Y:X21120:ZA47:300:ZA40:300:F0ZAL:1160e nZA3:200:ZA4:200:ZA60:200:ZA59:200:F0ZAL:1160 xZA24:300:ZA31:300:ZA39:300:ZA32:300:F0ZAL:1160 S1:ZA1:200:ZA6:200:ZA62:200:ZA57:200:F0ZAL:1160& ZA8:300:ZA15:3004  1561616383"12288+(830F216,A:11328:U(11):X<(ZHZA)0ıgFF1:LZA:PS0:F0:ZA0:60:ZA7:60:ZA63:60:ZA56:60:F0ZAL:1160ZZA2:200:ZA5:200:ZA61:200:ZA58:200:F0ZAL:1160' dZA16:300:ZA23:30                   :"FIX DISK DRIVE ERROR AND PRESS A KEY";:A$::22O: 32,88,252,162,0,189,202,8,157,128,5,232,224,40,208,245,165,43,74,96Z4297,160 X; 788,2:220::"BOOT MESSAGE SAVED.":U X768796:Y:X,Y:X 169,3,160,8,32,217,3,96,1,96,1,0,0,0,25,3,0,16,0,0,1,0,0,96,1,0,1,239,216 768:(789)16ĺ:"UNWRITE PROTECT DISK AND PRESS A KEY";:A$::2204 (789)64ĺ03 xL39āX1((40L)2):M$" "M$:X:8:1:M$ 13:1::" INSERT TARGET DISK AND PRESS RETURN ";::A$:(A$)13130 ::200 4103,32:4104,179:4105,8:X42754294:Y:X,Y:X X140:(M$)XĹX4297,((M$,X,1))128:180 XZ NIBBLE MAY 1985d:10:"BOOT MESSAGE MAKER"::"INPUT YOUR MESSAGE USING 40 CHARACTERS OR LESS. THE MESSAGE WILL AUTOMATICALLY BE CENTERED.":40): n22:"** COPYRIGHT 1985, MICROSPARC, INC. **":8:1:"";M$:L(M$):L40L110 ؠM ``LyLzL,M-M +MfLoL +MgLpLhKiKjKkK xL``S1 jJMMNMMNMMMM MM MM M MM MML`` M ` `LhKLJɈ tL |L xLLJɠ tLgK xL jL |LLJZL[LK%% K$ZL[L````H)h```LL tLmK$$L L`ɠ jJiKLȌLLɠ jJi8LȌ9LSP jJi]LaLȌ^LbL MW jJiȪuLvhK JL>fK00 \L kKfKLKiK-iKiKfKlKkKLJ \L`kKjKjK)jKiKkKlKLK Ӡ𠬰Ԇ͠àʠ࠽ ̠Π Ԭ̠͠ŠРɠɍ 0LDJ`s 0L]J`JJi}Jj~J;Jȭ}JJ~JJͿJ}Ji}J~Jkϭ~JlȢ`}J~J`0kK` \L 1LhK xLgK * "H$(5)"* !! * "H$(7)"* /!!\ * "H$(6)" :: "H$(4)" "FH>H$(3)"** "H$(4)"****** "H$(5)"**** "H$(5)"* ** * "H$(7)"* ** *"G>BC$(3)" * * "H$(6)"* * * "H$(4)"*** /- "H$(8)"***== "H$(7)"*** \-. "H$(8)"* * * "H$(3)"* *"@H>BC$(4)" * ** * "H$(5)"**** "H$(6)"******** "H$(6)"*!!* "H$(6)"* * * "H$(4)"*** "H$(6)"*********"F>BC$(1)" * * * "H$(6)"* * * "H$(9)" -\ *** "H$(8)" ===***** "H$(10)" -/ *** "H$(4)"* * * "H$(6)"* * *"KG>BC$(2)" "H$(4)" :: "H$(4)"\!!/ "H$(5)"* !! * "H$(5)"*!!* "$(2)")( "H$(2)"\/ "H$(2)"**"wE>BW$(1)" * * "H$(7)"!* * * "H$(4)"*** "H$(5)"!* * * "H$(7)"*********"E>BW$(2)"********* "H$(6)"*** "H$(3)"*** "H$(4)"* * * "H$(6)"* *"E>BW$(3)BW$(1)1F>BW$(4)"* * * "H$(8)"* * H$(2)"\/ "H$(2)"-- "H$(3)"/**\ "H$(5)"/****\"D=BX$(4,8)" :: "H$(2)":: "H$(2)"!! "H$(2)"!! "H$(2)"!! "H$(2)")( "H$(2)"\/ "H$(2)"** "H$(3)"****"!E=BX$(4,9)" :: "H$(2)":: "H$(2)":: "H$(2)"!! "H$(2)"!! "H$(2)"!! "H/**\ "H$(5)"/****\ "H$(7)"/******\ "H$(8)"********"C=BX$(4,6)" :: "H$(2)"!! "H$(2)"!! "H$(2)")( "H$(2)"\/ "H$(2)"-- "H$(3)"/**\ "H$(5)"/****\ "H$(7)"/******\"5D=BX$(4,7)" :: "H$(2)":: "H$(2)"!! "H$(2)"!! "H$(2)")( "*\ "H$(5)"/****\ "H$(7)"/******\ "H$(8)"********"B=BX$(4,4)" !! "H$(2)")( "H$(2)"\/ "H$(2)"-- "H$(3)"/**\ "H$(5)"/****\ "H$(7)"/******\ "H$(8)"********"9C=BX$(4,5)" !! "H$(2)"!! "H$(2)")( "H$(2)"\/ "H$(2)"-- "H$(3)"** "H$(1)"*"eA=BX$(4,1)" -- "H$(3)"/**\ "H$(5)"/****\ "H$(7)"/******\ "H$(8)"********"A=BX$(4,2)" \/ "H$(2)"-- "H$(3)"/**\ "H$(5)"/****\ "H$(7)"/******\ "H$(8)"********"7B=BX$(4,3)" )( "H$(2)"\/ "H$(2)"-- "H$(3)"/*"\** "H$(2)"\* "H$(1)"\"@|=BX$(3,7)" / "H$(2)"/* "H$(3)"/** "H$(9)">-->-!*** "H$(3)"\** "H$(2)"\* "H$(1)"\"@=BX$(3,8)" * "H$(2)"** "H$(9)"->-->-*** "H$(2)"** "H$(1)"*"A=BX$(3,9)" * "H$(9)"-->-->-H$(2)"/* "H$(3)"/** "H$(7)"->-!*** "H$(3)"\** "H$(2)"\* "H$(1)"\"?h=BX$(3,5)" / "H$(2)"/* "H$(3)"/** "H$(8)"-->-!*** "H$(3)"\** "H$(2)"\* "H$(1)"\"@r=BX$(3,6)" / "H$(2)"/* "H$(3)"/** "H$(9)">-->-!*** "H$(3)(3)"\** "H$(2)"\*"}>J=BX$(3,2)" /* "H$(3)"/** "H$(4)"/*** "H$(6)"-!**** "H$(4)"\*** "H$(3)"\** "H$(2)"\*">T=BX$(3,3)" /* "H$(3)"/** "H$(4)"/*** "H$(7)">-!**** "H$(4)"\*** "H$(3)"\** "H$(2)"\*"L?^=BX$(3,4)" / "H$(2)"!! "H$(2)"!! "H$(2)":: "H$(2)":: "H$(2)"::"=6=BX$(2,9)" ** "H$(2)"/\ "H$(2)")( "H$(2)"!! "H$(2)"!! "H$(2)":: "H$(2)":: "H$(2)":: "H$(2)"::">@=BX$(3,1)" /* "H$(3)"/** "H$(4)"/*** "H$(5)"!**** "H$(4)"\*** "H$*/ "H$(3)"-- "H$(2)"/\ "H$(2)")( "H$(2)"!! "H$(2)"!! "H$(2)"::"<"=BX$(2,7)" \****/ "H$(5)"\**/ "H$(3)"-- "H$(2)"/\ "H$(2)")( "H$(2)"!! "H$(2)"!! "H$(2)":: "H$(2)"::":=,=BX$(2,8)" \**/ "H$(3)"** "H$(2)"/\ "H$(2)")( "7)"\****/ "H$(5)"\**/ "H$(3)"-- "H$(2)"/\ "H$(2)")( "H$(2)"!!";=BX$(2,5)"******** "H$(8)"\******/ "H$(7)"\****/ "H$(5)"\**/ "H$(3)"-- "H$(2)"/\ "H$(2)")( "H$(2)"!! "H$(2)"!!"K<=BX$(2,6)"\******/ "H$(7)"\****/ "H$(5)"\*b: "H$(5)"-/"C2:B$(1,6)" \ "H$(1)"===> "H$(4)"/"X2:B$(1,7)" ==>"l2:B$(1,8)" =>"2:B$(1,9)" >"2:B$(2,4)" "H$(4)" :: "H$(4)"\!!/ "H$(3)"!! "H$(2)"!! "H$(2)"\/"3:B$(2,5)" :: "H$(4)"\!!/ "H$(3)"1D/OY(37)1:#1N/P21:20:OY::1/OY(37)1:CX:CYH1/KC,0:CI`1/" ";:OY:1 0KC,0:ZZ1WT:(KB)128ĹKC,0:10ZZ:1p0ZZ(36):OY(37):200:ZZ1:OY1:1:B$(1,4)" -\ "H$(3)" ===> "H$(6)" -/"2:B$(1,5)" -\ "H)1.740+SS7(SS2)(SS5)(SS10)(SS16)(SS20)S0+S21005DT:S2200S2200h0+I1NW:H(I)0:s0+X(0)0+CI:P20:SP0:LO00+50000+10000.KC,0::23:10.P$;:X$:24:10." ":1.:::6,0/z+I1NW:WL$(I)W2$(I):1/+"...":X(0);/+W2NWA/+I/+K9/+"SPEED? (40=FASTEST, 10=MEDIUM, 1=SLOWEST";:"? ";SS/+SS1SS20Ą"DO YOU REALLY WANT THIS SPEED (Y/N)? ";A$:(A$,1)"Y"111600+DT(SS2(SS8)(SS8)(SS14)(SS14)$"LESSON "F$. +10960-.*+D$;"OPEN ";F$@.4+D$;"READ ";F$K.>+NT,WNQ.R+].\+I1NT.^+A$:"";A$;:A$(13)11102.`+I:"":"READING...";.f+I1WN:W2$(I)"".h+A$:A$(13)W2$(I)W2$(I)A$:11112.j+I.l+.p+D$;"CLOSE"/u+21512M-*:"SORRY, ";F$;" ISN'T THERE OR ELSE":" HAS BAD FORMAT. TRY AGAIN."_-*:D$;"CLOSE"j-*12300-*:"PLEASE INPUT THE LESSON NUMBER (1 TO";M$;" 17) OR THE NAME OF ONE YOU'VE CREATED":" AND PRESS RETURN ";F$.+V$(F$,1):V$"0"V$"9"FMAKE A MISTAKE, JUST PRESS":" THE SPACE KEY AND START AGAIN.";M$;" THE BACKSPACE WORKS TOO."p,*DMı{,*12000,*E10:DM0:Z45:Z55-*" IF YOU LIKE, YOU MAY RUN THROUGH THE";M$;"INSTRUCTIONS AGAIN.";M$;" WOULD YOU LIKE TO DO THAT?":10+*12000+*SP0:P20:J+*:"HERE ARE A COUPLE OF HINTS TO REMEMBER:"+*:"(1) THE MAIN THING TO REMEMBER IS TO "::" TYPE THE WORDS YOU SEE ON THE SCREEN":" AND PRESS THE SPACE KEY WHEN YOU ":" FINISH EACH WORD."e,*" (2) IF YOU 'S TRY THAT ONE MORE TIME":10650*):"VERY GOOD. AS YOU CAN SEE, IF YOU TYPE AWORD WHEN A MISSILE IS COMING AT YOU";M$;"THEN YOU STOP THE MISSILE.";M$;M$;"IN ORDER TO DESTROY A WORD, HOWEVER, YOUMUST TYPE IT WHEN NO MISSILE IS COMING."**EI2:2000 MISSILE IS COMING FROM":12400:"WITH A SPACE AT THE END."M))12400:12000))M$;" TYPE THE WORD LAD WITH A SPACE AT THE";M$;"END":SP0:12200))IN1WT:12100:SP(W$"LAD")10700))SP10690))IN!*):"SORRY, THAT'S NOT CORRECT.";M$;" LETCE.";M$;" WHEN YOU HIT ALL OF THE WORDS IN THE";M$;"LESSON, YOU WILL WIN THE GAME."l(l)12000:KC,N0:12200(r):BF(2)K:12400(|)"SOMETIMES, THE WORDS SHOOT AT YOU.":12400:"WHEN THIS HAPPENS";:12400:" YOU MUST TYPE THE";))12400:"WORD THAT THE0564y'^):" VERY GOOD. BY TYPING THE WORD 'ALL' AND";M$;"A SPACE, YOU LAUNCHED A MISSILE TOWARD";M$;"THE WORD 'ALL'"'b)EI1:2400:1:16:"---------------";'c)12300S(d):"YOU HAVE NOW HIT THE WORD ALL AND";M$;"ANOTHER WORD HAS TAKEN ITS PLAL THERE."&B)12000a&D)"PLEASE TYPE THE WORD ALL ";M$;"AND THEN PRESS THE SPACE BAR."q&E)SP0:12200&J)IN1WT:12100:SP(W$"ALL")10590&K)SP10574&L)IN:'N):"SORRY, THAT'S NOT CORRECT.";M$;" LET'S TRY THAT ONE MORE TIME";M$:1NSTRUCTIONS. "<%6)"NORMALLY, THERE WOULD BE ANOTHER WORD "U%8)"DOWN HERE.":12000%:)"THE OBJECT OF THE GAME IS TO SHOOT THE"%<)"'WORDS' ON THE SCREEN BY TYPING THEM."%>)M$;"LOOK ON THE LEFT SIDE OF THE SCREEN." &@)"YOU CAN SEE THE WORD AL THE SCREEN LOOKSLIKE THIS.....(JUST A SECOND)....":12300D$$)5000O$&)12300\$*)34,15:$,)"---------------------------------------"$.)34,16:$0)P$M$"PRESS ANY KEY FOR MORE"$2)"I AM GOING TO USE THIS PART OF THE"%4)"SCREEN TO GIVE YOU I"N"11000#):-#)DM1:P21:Z4600:Z5600k#)K9:WL$(1)"ALL":WL$(2)"LAD":WL$(3)"LIST":WL$(4)"FALL"#)"MASTERTYPE IS A GAME DESIGNED TO HELP "#)"YOU LEARN HOW TO TYPE QUICKLY AND";M$;"ACCURATELY. ":12300:$)M$;M$;"WHEN YOU PLAY THE GAME,7:19:I2:10195'"'10:15:I3:101952"'10200f"'J1(WL$(I)):(WL$(I),J,1);:X(CL)(CL):Jl"'r"'{"'255"(I12000:"(")WT900:CI")22:1" )"DO YOU NEED INSTRUCTIONS?"" )KC,0")"(Y/N AND RETURN) ";V$ #)(V$,1)K!n'X(16336)(16336)1!q'K1N:K:NN.758!t'I>!y'G!{'200S!~'I110e!'42I22:1I!'" "!'X(CL)(CL)!'I!'WL$(1)"MASTERTYPE":WL$(2)"(C) 1981":WL$(3)"BY BRUCE ZWEIG"!'20!'4:20:I1:10195"'  &1:12:".";:15010$ '/ '10410a $'V$"M A S T E R T Y P E "k .'N500q 8'w =' B'I110 L'(KB)128(KB)160ĹKC,N0:B1,96:B2,96 Q'(KB)16010502 V'2 `'K110:422(IK):2K j'(V$,2I)!l'34,6,12,76,38,6,45,30,31,32$T$"."3Y$19850,162I^$CI:19850,96:CInD%W$"1234567890":HT(3)9:HT(4)11N%H$(1)(8):I210:H$(I)H$(I1)H$(1):I]%D$(4)b%B2B2225%M$(13)&I1NW:WW$(I):I & "LEFT", "TOP", "RIGHT","BOTTOM"#33,40::"STARTING..";#CX20:CY18:Z11:Z21:Z31:Z41:S12.3795168E14:S210:S310:S410:CI19610:B1100:B2100:KB16384#I14:WX%(I),WY%(I),HX(I),HY(I),HU(I),HV(I),HS(I),HT(I):I$ 6,4,2,7,1,7,9,5,2,5,7,12,6,5,123,76,1,7,4,5,76,54,PLAY AGAIN (Y OR N, AND ":"RETURN)? ";V$J!SC0:E10:E20:E30:E40:R0^!(V$,1)"Y"Ā!P20:SP0:I1NW:BF(I)N0:H(I)0:I::"" SHOULD I REPEAT THE SAME LESSON (Y OR N":"AND RETURN)? ";V$"(V$,1)"Y"11130"11000(##:D, AND USE THEPRACTICE OPTION IF YOU GET HIT.":8670!" YOUR SCORE IS JUST GREAT, AND YOU ARE DOING WELL.":LOĺ"AS SOON AS YOU CAN WIN THIS LESSON, YOU CAN GO ON.":8670!" YOU ARE READY TO GO ON TO THE NEXT LESSON.")!:"DO YOU WANT TO KEEP WORKING ON THIS LESSON.":8670!SC8000ĺ" YOUR SCORE IS PRETTY GOOD, BUT YOU NEED TO WORK ON THIS LESSON SOME MORE.":86704!SC10000ĺ" YOUR SCORE IS VERY GOOD, BUT YOU ARE NOTQUITE READY TO LEAVE THIS LESSON. TRY A SLIGHTLY HIGHER SPEEWORDS DESTROYED ";E2/!"SHIELDS DAMAGED ";E3J!"MISTAKES ";E4[!SCHIHISCv!"HIGH SCORE ";HI|!!SC2000ĺ" YOUR SCORE COULD USE SOME IMPROVEMENT. KEEP WORKING ON THIS LESSON":8670#!SC4500ĺ" YOUR SCORE IS NOT BAD. NTER HAS BEEN DESTROYED."n "KEEP ON TRYING, AND SOON YOU WILL BE ":"ABLE TO GET ALL OF THE WORDS ON THIS"| "LESSON" 85504!I120>!""H!R!\!" A WINNER!!!!!!!!!!"f!"TOTAL SCORE = ";SCp!"WORDS TYPED ";E1z!"5:" ";A^IN020:JN0I:J1IJN1:J11J1208070PhZZ112zr12ZZJ:20J1N1:"*";:20J1:"*";|ZZJ:II132:10I:13:" ";:I12:13:" THE WORDS WON ";12300:LO1 :"YOUR CEONCE AGAIN TO DESTROY THE WORD."N8" PRESS ANY KEY TO CONTINUE":KC,0:A$LM$;" JUST A SECOND.":X(0):KC,0:CI::H(EI)1`ZZN1NW:BF(ZZ)N0:ZZ~E3E31:5000:P20TSN0@ - LOSERJI13:I:35:" ";:IT24:1 (UNDER THE 1)":"WHEN YOU ARE READY TO CONTINUE THE GAME"XA$:A$(27)ĺA$;:7390h34,0:7500s10920!." MOST GOOD PLAYERS GO AROUND IN A CIRCLE AS THEY TYPE. SOME ADVANCED PLAYERS TYPE MOST WORDS TWICE: ONCE TO STOP THE MISSILE, AND TRUCTIONS"-" PLEASE PRESS 1 2 OR 3 NOW";OA$:A$"1"A$"3"ĺ"":7280`34,0:35,24qA$"1"7500:A$"3"7450"PRESS THE ESC KEY TO CONTINUE THE GAME ":34,2:"OKAY, GO AHEAD AND TYPE WHATEVER YOU":"WANT. PRESS THE ESC KEYF YOU ARE HIT THERE AGAIN THEN YOUR":"CENTER WILL BE DESTROYED AND THE GAME":"WILL BE OVER FOR YOU."qf12300|kKC,N0p:" YOU MAY NOW "z" (1) CONTINUE THE GAME"" (2) PRACTICE TYPING BEFORE CONTINUING"; " (3) REVIEW THE INS):HT(EI):BC$(EI))(P21:SCSCS3:100?*ZZN1Z2:B2:ZZQ,H(EI)18000c/EI4Ĺ34,14t4EI4Ĺ35,10>::"YOU HAVE BEEN HIT ON THE ";WW$(EI);" SIDE"H"BY THE WORD ";WL$(EI);"."R"YOUR SHIELD ON THAT SIDE IS NOW BROKEN."f\"I12H(1)Ė15:"!";-H(3)Ė25:"!";513a15:"-----------";:H(4)Ė18:" ";npWP1NWxz4000WP100X W2>WN]H(EI)1b20lW2WNNW8500WL$(EI)" "20:  HIT BY WORD%HS(EI(N1);"!";:20:WY%(WP):(WX%(WP)4):" ";:20`WY%(WP):WX%(WP)((WL$(WP))2)rWL$(WP);:20x" - DRAW SCREEN1:35:"!SCORE";:2:35:"!";:3:35:"!-----";1115:"-----------";:H(2)Ė18:" ";:WPEI+ - LOWER SS AS THEY GET BETTER B 20:LSN94(EI4) ZZN1LS:HV(EI)N1ZZ:HU(EI):" ";:20:ZZ:2105:P2N1 WPEI:4000 P2N0: - WRITE WORD20H(WP)N0ı WP1WP3Ģ11:WX%(WP):"! ";H$(N1);"! ";H$SCS2BN:100t BNB0$ E2E2N1: I2N1Z5:20:I2i - GET NEXT WORD, MAKE SURE NOT ON SCREEN DMWL$(EI)"DARING":2525 20:W2W2N1:W2WNİ7000:2520 ZZN1NW ZZEIİ20:WL$(ZZ)W2$(W2)2470 ZZ WL$(EI)W2$(W2):20ZZN1N9:209CHX(EI):HY(EI)N1ZZ:" ";:ZZaH20:EIN1EI3ĭBF(EI)WPEI:4000tMBF(EI)N0:YN0RP2N0:` KILL WORDb 20c I2N1Z3:B1:20:I2e HX(EI):HY(EI):BX$(EI,K);:20j HU(EI):HV(EI):BW$(EI);:20 o SC20J EISCSCS4:100:20:E4E4N1:I2N1Z1:X(CL):20:I2:P2N0:R 20d BF(EI)2400}  - BULLET COLLISION B1 20 HX(EI):HY(EI):BX$(EI,BF(EI)); ZZN1Z4:20:ZZ SCSC(BN10):BNB0 SCSCS1:100 920 >LPROBABLY HAVE TO PUSH YOURSELF TO TYPE A LITTLE FASTER, BUT THAT'S HOW YOU WIN."_ WTWT10n MX1:7480  - SPACE SUB P2ı SPN0:W$""ı P2N1:V$W$"":20 TDTMN1:E1E1N1 I2N1NW EI(V$WL$(I2))I2 EIĂI2  WHILE THAT IS A GOOD DEFENSIVE STRATEGY,IT MAKES THE GAME VERY BORING BECAUSE IT PREVENTS THE WORDS FROM CHANGING." 12300R " SO TAKE A FEW CHANCES, AND TYPE WORDS WHICH ARE ON THE SCREEN BUT ARE NOT SHOOTING AT YOU. THIS MEANS THAT YOU'L200 E116E22ĭMXİ14002 20:TSSS1000~ TSN0:RN1R(RNW):BF(R)H(R)1BF(R)K:20:HX(R):HY(R):B$(R,K); 20 21000 x:"IT LOOKS LIKE YOU ARE WAITING FOR A WORDTO SHOOT AT YOU BEFORE YOU TYPE IT." }WTWT.1:12300v "6:" ";" n2:36:(SC);( x9 IN1NW:20E YBF(I)k YN1EII:7200:20:YN0:BF(I)0 YYYN1:BF(I)Y:20:HX(I):HY(I):B$(I,Y); I 20 TSTSN1 " 20 BN(BNBD)(BNBD) TDTDDT:TDTMTDN0:20:*F 20000:9000 (C) 1981 BY BRUCE ZWEIG. A LOT OF WORK WENT INTO THIS PROGRAM, AND TO MAKE ILLICIT COPIES IS TO STEAL FROM THE AUTHOR. ANYONE SMART ENOUGH TO COPY IT SHOULD KNOW BETTER. C5#DMı(SPĭP215002 d20:2:3                      APRIL 1985 X,Y 300 X,Y7 (49152)209Ĺ49168,0:::X (49152)128Ĺ49168,0:115a 150v ,X114064(0)2 6Y18064(1)2 7(XX1)6(YY1)6XX1:YY1 @  MODS SO SMOOTH CURVE APPEARS IN SQUARE  LINES 129 300 310 311 O"" P(49250)128Ģ6:31:"HI"A Z(49250)128Ģ6:31:"LO"Y _(49152)128ī110a d30n n49168,0t s{ x3 }75,15204,15204,14475,14475,15 21:1:" TO QUIT" "ANY OTHER KEY TO CLEAR SQUARE "; X76:Y16 300   :(" JOYSTICK TESTER"G20:"ANY KEY TO CONTINUE"w4:"PADDLE(0) ";:20:"PADDLE(1) "(4:11:(0);:31:(1)26:"BUTTON(0) ";:20:"BUTTON(1) "<(49249)128Ģ6:11:"HI" F(49249)128Ģ6:11:"L    I$ AMUST 80 IGNORE PAPER SENSOR+1:(27);"8"A(0G2*R Н L`12L18iIʐР>Ȅ<B=?C ,Б9iYl6,D,L",L, 208,44,138,192,96, . 20((A$))2:A$:dM*************** d n1706 x16247,0:16247,0] (4)"BLOAD DRIVE TWO BOOT,A$D000" 60,0:61,248:62,255:63,255:66,0:67,248 768 :A$"BOOT2.DOS LOADED":190: AD768782:BY:AD,BY:: 160,0,32,44,254,44,136,192,32,0,0 ************************=* *[* INSTALL D2 BOOT *y(* *2* INSTALLS CODE FOR *<* BOOTING FROM DRIVE 2 *F* INTO SLOT 0 RAM CARD *P* * Z*********:"INSERT BOOT DISK AND HIT ";:A$D :(4);"RUN HELLO "ADISK AND HIT ";:A$::A$(13)ī210 (4);"INITEMU,V";VO:(4);"INITHELLO,S";SL;",D";DR;",V";VO:(4);"UNLOCKEMU" EM18:(4);"SAVEEMU";EM;",S";SL;",D";DR:EM:(4);"LOCKEMU"::8:"PREPARE ANOTHER DISK? ";:A$:A$:A$(89)ī130+ ";::"212";:/ A$:A$(13)VO$"212":175G COUNT1:VO$"":169^ A$:A$(13)ī175v A$"0"A$"9"ī165 VO$VO$A$ 17:((VO$" "),3);:COUNT3ī175 COUNTCOUNT1:168 VO(VO$):VO1VO254ī165 . :"INSERT THE ORMATION ON THE DISK"= 14:8:"SLOT ? ";::"6";::SL$T SL$(13)SL$"6"r SL(SL$):SL1SL6ī150 17:SL$ 16:8:"DRIVE ? ";::"1";::DR$ DR$(13)DR$"1" DR(DR$):DR1DR2ī160 17:DR$ 18:8:"VOLUME ? F5 MAKE EMUDISK NIBBLE VOL 4 NO 8 (1983) PAGE 25`x((47032)167)ĺ(4);"BRUN RAM DISK"x}:"RAM DISK STORE"6:"THIS PROGRAM WILL PREPARE A DISK FOR USE";:"WITH RAM DISK " ::" WARNING ";::" THIS PROGRAM WILL DESTROY":"ALL INF     1 OF RAM DISK STORE DISK IN SLOT 6 DRIVE 1":" DEFAULT AREA IS 4" r"UNLOCK EMU ":" ALLOWS SAVE EMU, LOAD EMU TO BE USED TO SAVE TO ANY DISK WITH CORRECT VOLUME" s"LOCK EMU ":" RESTRICTS SAVE EMU, LOAD EMU TO PROPER RAM DISK STORE"; tɀk o"INIT EMU,S5,V212 ":" CLEARS RAM CARD AND PREPARES IT TO EMULATE DISK IN SLOT 5 WITH VOLUME 212" p"LOAD EMU1,S6,D1 ":" LOADS RAMCARD FROM AREA 1 OF RAM DISK STORE DISK IN SLOT 6 DRIVE 1"C q"SAVE EMU1,S6,D1 ":" SAVES RAM CARD INTO AREA ZK$"C"ĺ:(4);"BRUN DISCONNECT RAM DISK"::"RAM DISK DISCONNECTED ":^ d:"GOODBYE": i:"DOS COMMANDS":"IF RAM DISK IS EMULATING A DISK IN SLOT 5, THEN USE RUN, SAVE, LOAD, OPEN, READ, WRITE, CLOSE ,S5" n:"SPECIAL COMMANDS" "RAM DISK">6:(91);"A] MAKE RAM DISK STORE"_(:(91);"B] BRUN RAM DISK "2:(91);"C] DISCONNECT RAM DISK "<:K$FK$"A"ĺ:(4);"RUN MAKE RAM DISK STORE":PK$"B"ĺ:(4);"BRUN RAM DISK"::"RAM DISK READY ":105K   F*Lku ꢩӍ ԧL ݌  JLGF,,F,FGGа ĜtҜ0z'ڜ㈍,`컜݌`P#``,`L*,eP鷍 SH LJ휭xɱɹ) i, vڜ`ͻU✭귍㜤Ȍ圩霩HI ꜩ $ԭL4, :,L~, HJJJJUX*`k[<=>?BC ,W ԧ SL~ HIu,u_  L[L~ͻnXL{Hix>? GFhJ >F F>    XF(X):YF(X)YLYP:5-XL,YLXL,YPF(16384)1601680P1320_768:1620x'104,168,104,166,223'154,72,152,72,96 IJA1:B0:3"TI120:YF(X)/^AXAX<`BXBXNhXY::YF(X)grAB.5(1AB):AABA|"A="A", B-A="BA", LAMBDA="L", SEED="S5:BA109ĺ"UNDERFLOW. HIT ANY KEY":C$:1320XLXL(YP):216,01920XP,YPXL,YPC$"F"1050 xC$"E"1600. C$"L"1320F NLNL1:NL10İ100Z L(NL)L:I1NLv 10)"LAMBDA("I")="L(I) :OLL: "NEW LAMBDA=?";L "WANT NEW SEED?(Y/N)" C$:C$"Y"ĺ"OLD SEED="S:1110 C$"N"1470 1120 @::3OYP XP,YPXL,YP% XY:YF(X)3 YPSY(Y)D XL,YOXL,YP] (16384)1601250h (3:: 24:13)"SELECT FROM:" <:I16:9)C$(I): F:9)"LAMBDA="L" SEED="S:C$ PC$"Q"ĉ:: ZC$"S"1110 dC$"C"ĉ::2:1230 n ";L V"NEW SEED=? ";S2 `::3: HPLOT CURVE> j2:OSSK tI0279[ ~YF(I279)i YPSY(Y)u I,YP: 279,00,159 YF(S):YPSY(Y) XPSX(S):XS XP,159XP,YP  CURVE,LINE,CURVE XPSX(X):YPSY(Y) XLXL(YP):Y:L(J)L(J1)::NLNL1:* SX(X)279X@ SY(X)159(1X)^ XL(YP)279YP(279159)s 13)"WHAT FCT?" $P$(1)"PARABOLA":P$(2)"QUARTIC":P$(3)"SIN (X*PI)" .I13:9)I". "P$(I): 8K:K97,98,99 B(K1)11070 L"NEW LAMBDA=?$(3)"S. CHANGE SEED":C$(4)"Q. QUIT":C$(5)"C. CLEAR SCREEN":C$(6)"E. ENLARGE SCREEN": XP279((XA)(BA)):YP159(1(YA)(BA)): aF(X)4LX(1X): bG(X)4LX(1X):F(X)G(G(X)): cPI3.1415926535:F(X)L(XPI): dJ19; A CALCULUS GAME, CREATIVE COMPUTING OCT 1984, P 141fI768777:J:I,J::::1010: CCIAM"LAMBDA="L", SEED="S", OLD L="OL:"OLD SEED="OS" FOR MENU":16368,0:16384,0:Y C$(1)"F. CHANGE F(X)":C$(2)"L. CHANGE LAMBDA":C!   "'  N FORMATTING ROUTINE6*NVL((VA)(10))V4NV1(VA10(VL3)0.5)1000n>NV$(V1)" E"(VL)tHNL'IT,VYV'KP(49152)0`' READ PARAMETERSej'KP155GFLAG0GFLAG1:49236,0:49233,0:10110t'KP155GFLAG1GFLAG0:49237,0:49232,0~'49168,0'IT'PR0ī10130'1913,02'(17)'34,0'49236,0'':(4);"PR#01)T)(ADW1AC)2W1((KW1)T)A3(WTPHIPSI)t"I(KW1)(ADW1AC)2W1((KW1)T)(KW1)(ADW1AC)2W1((KW1)T)WA3(WTPHIPSI)~"10000' PLOT'DF1VI$'DF2VIR.'DF3VQC8'DF4VQB'VY80VVA79 T)(W1TALPHA)W1A(KT)(W1TALPHA)WA3(WTPHIPSI)J!10000c! CRITICALLY DAMPED "QA1(ADTAC)(KT)A3(WTPHIPSI)"I(ADKADTKAC)(KT)WA3(WTPHIPSI)"10000`" OVERDAMPED5j"QA1(ADW1AC)2W1((KW~10000@ RL CIRCUITSBJIA1A2(TTC)A3(WTPHIPSI)lTJA2TC(TTC)WA3(WTPHIPSI)wr100004! SERIES LCR CIRCUITS>!CASE8600,8700,8800! UNDERDAMPED!QA1A(KT)(W1TALPHA)A3(WTPHIPSI)?!IKA(KIME RUNS FROM 0 TO "V$" S"$VAVB8X PLOT FUNCTIONFbIT0279VlTIT279TAvCIR7510,7510,7510,8010,8010,8010,8510,8510,8510,4400,4400,4400L RC CIRCUITSVQA1A2(TTC)A3(WTPHIPSI)`IA2TC(TTC)WA3(WTPHIPSI) :20000:"VR RUNS FROM - TO + "V$" V"jDF3VA(QAC)(E)(E0):20000:"VC RUNS FROM - TO + "V$" V"DF5VAQA:20000:"CHARGE RUNS FROM - TO + "V$" C"CX(37)37,226454641,(41)437,CXVBVAVATA:20000:"T W1(W2))QA(A1)(AD)W1(A3)IIA(KADW2AC)W1(WA3)S"6000vp INDICATE AXES ON TEXT PAGE 2zCX(37)37,216454641,(41)437,CXDF1VAIA:20000:"CURRENT RUNS FROM - TO + "V$" A"%DF2VAIARUNDERDAMPEDW1(W2)0A(AC2(ADW1)2)LAC0ALPHAPI2:3840cALPHA(ADACW1){QA(A1)(A)(A3) IA(W0A)(WA3)6000< CRITICALLY DAMPEDFQA(A1)(ADK)(A3)PIA(AD)(WA3)Z6000 OVERDAMPED5T0- ((KW0)W0)1E6KW0:CASE2:3580H CASE(KW0)1(KW0)3S A1ECcW2W02K2A3E0L((W2W02)2(2WK)2)PSI(2WK(W2W02))$ACQ0A1A3(PHIPSI).ADI0KACWA3(PHIPSI)8CASE3800,3900,4100  LR TA5TC! T00TA5T0, A1ERH A3E0L((1TC)2W2)Y PSI(WTC)t A2I0A1A3(PHIPSI) IA(A1)(A2)(A3) JA(A2TC)(WA3) 6000 SERIES LCR CIRCUITS KR2L W0(1LC) TA5K T01KTA,3510,3510,3510,3600,3600,36000 RC CIRCUITS; TCCRG TA5TCZ T0TCTA5T0e A1EC A3E0((1TC)2W2) PSI(WTC) A2Q0A1A3(PHIPSI) QA(A1)(A2)(A3) IA(A2TC)(WA3) 6000 RL CIRCUITS TCЖ1:"CHARGE ON C "X$"Y/N"Y$" ";:K$:K$"N"ĺ"N":1460VK$"Y"ĺ"Y":DF5:1500`1420f{ SETUP GRAPHICS49237,049235,030,10,159279,800,80 CIRCUIT ANALYSISCIR2510,2510,2510,3010,3010,3010CROSS C "X$"Y/N"Y$" ";:K$12K$"N"ĺ"N":1360M<K$"Y"ĺ"Y":DF3:1500WF1320tPCIR1CIR2CIR3ī1420Z1:"VOLTAGE ACROSS L "X$"Y/N"Y$" ";:K$dK$"N"ĺ"N":1360nK$"Y"ĺ"Y":DF4:1500x1370CIR4CIR5CIR6ī1460#----") 1:"CURRENT "X$"Y/N"Y$" ";:K$@ K$"N"ĺ"N":1270\ K$"Y"ĺ"Y":DF1:1500f 1230 1:"VOLTAGE ACROSS R "X$"Y/N"Y$" ";:K$ K$"N"ĺ"N":1310 K$"Y"ĺ"Y":DF2:1500 1270 CIR4CIR5CIR6ī1360(1:"VOLTAGE ASE INITIAL CONDITIONS"7 "-------------------------"T CIR4CIR5CIR6ī1190w "CHARGE ON C IN COULOMBS ";Q0 CIR1CIR2CIR3ī1210 "CURRENT IN L IN AMPERES ";I0 :"DISPLAY WHICH QUANTITY VS TIME" "--------------------------CIR3ī1120! V"L IN HENRYS ";L' `^ jCIR2CIR5CIR8CIR11Ą"EMF IN VOLTS ";E:1150 tCIR3CIR6CIR9CIR12Ą"EMF AMPLITUDE IN VOLTS ";E0:"FREQUENCY IN HERTZ ";F:W2PIF:"PHI IN DEGREES ";PHI:PHIPHI180PI yW0T01F ~:"CHOO(4);"PR#1":PR1; 1:20:"CHOOSE CIRCUIT "X$"1-12"Y$" ";H " ";CIRX C12ī1010y :"CHOOSE COMPONENT VALUES" "-----------------------" $"R IN OHMS ";R .R0ī1060 8CIR4CIR5CIR6ī1100 B"C IN FARADS ";C LCIR1CIR2IRCUIT RESPONSES ":23)::? , CONSTANTS AND INITIAL VALUESK 6GFLAG0_ @PI3.1415926535u JX$(91):Y$(93)  CHOOSE CIRCUIT AND PARAMETERS PR0 :"PRINTER CONNECTED? "X$"Y/N"Y$" "; K$ K$"Y"K$"N"ī1004 K$"Y"ĺ:u/ PROGRAM TO DRAW LCR CIRCUIT RESPONSES 7d:Yn CLEAR BOTTOM OF TEXT PAGE 2fxCX(37)qI14~37,19I6454641,(41)437,CX" "I HEADING :23)::" LCR C""""""!!! ! ! ! ! !!!!!!!!g; LOADING PROGRAM FOR CIR TO ALLOW USE OF TEXT PAGE 2O 3072,0:104,12e:(4);"RUN CIR"6""F$$ 2:(4);"TLOAD ";F$;",A$4000", FL1< KADD16383LI LD(ADD)W MD0ī100k ODD(D128)128v PADD,D ZLL1 _75 d:(4);"DELETE ";F$ n:(4);"BSAVE ";F$;",A16384,L";L x:"DONE"  :) "TEXT FILE TO BINARY FILE"I"------------------------"Q35:"USE THIS TO CONVERT WORD PROCESSOR FILESINTO A FORM SUITABLE FOR THE APPLE COMPUTER TERMINAL PROGRAM"#:"NOTE: REQUIRES DAVID-DOS" (:"FILENAME ";" " ":"NOT CONVERGING"h :"TO CHANGE PARAMETERS TYPE RUN 50":"TO CHANGE FUNCTION TYPE RUN ROOTS.PFH": K21K20:S1S2:240 S1S20K10:RR1: XXLRTER P R ROOT":- xI1NH FA(X):HSS(F):S2Hb K11İ220:K11ī130u S2S10ī170 RR1:180 PP1 X1XH2(P3R) 2);I;10);P;17);R;25);X1:(XX1)Dĺ:"REMAINDER = ";A(X1):210 XX1:S1S2:I:X1))" F"ENTER STARTING VALUES" P:"X START = ";X:"R (IF UNCERTAIN USE R=0) = ";R:"SIGN (-1/1) = ";S:"ACCURACY (EG .001) = ";D UP0:N100 Z:"FINE SEARCH ? (Y/N) ";K$:(K$,1)"Y"ī110 dK11:K21:"SEARCH INCREMENT = ";L" nS11::"I[ ROOTS BY PATRICK HOWDEN AND NOEL KANTARIS, PRACTICAL COMPUTING, JUNE 1982, PAGE 125:"TYPE YOUR FUNCTION AS IN THE EXAMPLE":"50 DEF FN A(X)=X^2+3*X-10"(:"THEN TYPE RUN 50"2: SPACE FOR DEFINING FUNCTION <:S(X)(X(X""" " "