L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` xDx>x@xHx>x@xHx@xDxxDxHxxHxBxDx6x:x6x:x,xX6x><:<>x6x>x6xDxDx>xD<@<Dx>xDx>xHxHxDB<D<:<><4<6<0<:x,x><D<:<><4<6x>x6xDxD<L<B<D<<<>xDx>x4!,x4<0<4x,x4x,x6x6x4x:<6<:x4x:x4x>x>x6x><:<>x6x>x6xDxDx><D<6<D<:<D<><D<:<D<><D<@<D<><D<:<D<><D<6<D<4<D<0x@x4x6x64<6x>x4x6x>x6x:x@x8x:x@x:x>xDxDxLxNxRxNxRxVxRxNxRxRxLxDx<V<RxRx<N<R<H<Lx<H<Lx<R<V<N<H<R<LxR<N<RxLxRxLxVxxx<V<\<R<V<N<RxhLxDx>x,\<d<Z<\<V<6U V<R<VxNxVxNx\x\xV<\<N<\<R<\<V<\<R<\<V<\<X<\<V<\<R<\<V<\<N<\<K<\<HxXxLxNxNL<NxHx>x@xDx,x6xxhNxL<N<R<N<L<H<L<N<R<N<L<H<DxVxN<R<V<R<N<L<N<R<V<R<N<K<HxHxDx>x@xDx>xBx<N<R<N<L<H<DxxRxNxRxNxHxNxRxNxNxVxN<K<Hx<D<<N<HxDxDxxDxDxxNxHxxHxHxxRxLxxLxLxxVxNxxNxNxxXxRxxRxN<R<V<R<N<L<HxDx>x:xDxL<H<LxDxLxDxNxNxLxR<N<RxLxRxLxVxVxNxHxHx@xH<D<Hx@xHx@xNxXL<R<D<R<H<R<L<R<H<R<L<R<N<R<L<R<H<R<L<R<D<R<@<R<>xNxBxDxDHDHD<B<Dx\xV<X<\<X<V<R<V<X<\<X<V<X<RxRx\<`<d<`<\<X<\<`<d<`<\<X<VxNxL<N<R<N<L<H<L<X<\<R<Vx<R<V<N<<N<LNxXXRx\x\x\xd<`<dx\x\xdx\xdx1 6x><:<>x6x>x6xDxDx>xD<@<Dx>xDx>xxVxRxx\xXxx`x\xxbx\xxdxXxx\xXxxXxRxxRxVxxVxRx<R<NxLx<L<HxLxdx\xVxXx\xVxZx\xjxdx4x6x:x4x:x>x>x:<><@<><:<6<:<><@<><@<:<fxxdxfxdxfxfxfxdxfxfxVxX<\<`<\<X<\<VxV<R<V<X<\<X<V<X<RxxZx\xZx\x\x\xZx\\x\<X<Vx<R<<\<<`<<`<\xj<f<jxdxjxdx\x\xjxp<n<pxjxpxjxfxfxnxt<p<txnxtxnxjxjxnxxXx\xXx\x`x\xXx\x\x\xXx<N<RxVx<R<<R<NxxRxNxLxVxVxNxV<R<VxNxVxNx\x\xV<\<N<\<R<\<V<\<R<\<V<\<X<\<V<\<R<\<V<\<N<\<K<\<HxXxLxNxNRNRN<L<Nxfxd<f<j<f<d<`<d<f<j<f<d<`<\xnxf<j<n<j<f<d<f<j<n<j<f<d<`x`xV<X<\<X<xZx\x`x\xZx\xdx\xf<\<fx<f<<d<`<R<\x<Z<\x\`\`\<Z<\xd<`<dx\xdx\xfxfxdxj<f<jxdxjxdxnxnx0@ DxL<H<LxDxLxDxNxNxLxR<N<RxLxRxx<t<r<nxnxt<x<|<x<t<r<t<x<|<x<|<t<~xnxpxtxpxtxxxtxpxtxnxfxpx,f<j<\<fx\x`x<\<R<X<VxVxR<\<d<`<\<Z<\xdx\xfxfx`<d<f<d<`<^<`xfxVxXxXxV<X<\<X<V<R<V<X<\<X<V<Z<Rx\xZx\V<\<f<d<`<\<X<\<`<\<X<V<X<`<j<f<d<`<\<`<d<`<\<Z<\<d<n<j<f<d<`<c<f<c<`<\<`<f<p<n<j<f<dxxdxfxxfx<f<dx<`<<R<\x<Z<\xtxn<p<t<p<n<j<n<p<t<p<n<p<jxjxt<x<|<x<t<r<t<x<|<<~xxx~xxxtxtxtxdxfxjxfxjxnxjxfxjxdfx<\<`xdxfxjxdxjxf<j<n<j<f<d<fxnxfxtxtxn<p<t<p<n<j<nxtxnx~xtxt<x<|<x<t<r<tx|xtx~xxdxfxdxfxjxfxdxfxnxfxpxXx\x\xXx\xV<X<\<X<V<R_?_$a(ϠՠԠϠŠԿ)GR@`@*#r9()%Q T'ԠӠա)05a(ՠԠϠԠԠӠĠՠ)G06a(ԠҠĠҠȠŠՠ)G07a(ήϠŠРԠŠŨ)G+8a(ϠŠԮϠŠΠԠŠ).9a(ŠϠŠԮϠŠŠ)v:a((ՠŠǠҠԠŨũ)G00a(ΠՠŠŠĠǠԠՠ)G01a(ԠӠӠԠҠӠ)G02a(٠ԠӠ٠Π٠Ԡ)G03a(ĠӠġՠŠϠԠ)G"4a(ԠΠŠ%a(š)$`%a(ŠҠ·)cS(٠ο)&@`@*#r9()$ a(š)KQ!qLqq_d M6 !N@"r$%S(ϠՠԠӿ)&@*`@*#r9()$/_0/akY_ddeddedMdeKdeMdeddeMdedesMdeddeMdeKdeiMdededMK M6o `%a(ՠΡ)` qUVW 4dedeMdededMY1oa(ӭպ)FE(Һ)FE()fi&j%kб_1oa(ӭպ)FE(Һ)FE()_f#UV6Wijбmбn'g&hб`.?r$_sq/?r ͱq fg&ͱhб`=%ͱ>бr$ ͱqͱdedeͱM `ͱ$_fi&j%kб_sdedeͱMlбmбn'g&hб Oвq2?r TбqбUq.?6?r.?6?r Yf^lбmбn'g&hбc`.?r$h_sm`б$srfwlбmбn'g&hб|бqбвq2?r}q.?6?r.?6?r flghY q qfij%kz`$UVW 4dede Mdede2MY M6z_#1`2?r$E`2?rU$m;`.?r$@_sEfF`б$$sJqı fijkijkijk q`б"$`/?r$1qq fUVW%dedeMdede M`$flm'nUVW4dededMdededMY`"$q`$_d].`%ıq`%ıq`%ıq6!`ıı&%ıqı6 de` dqeflm'n?fUVW dededMdedeMYiq/?&rn`$isfxijk}ijkijk&`ñ%q/?rñqñq _ qLq  q6? M6qz N@"drT dede0dededededed ed eKd ed ed ededededeLdede       KM6Q]]Т]ĠĠ]Ġ]٠]ŠҠ] ԠԠĠՠ)G,9a(ҠԠ٠ŠՠԠ) >a(ή)Ca(Ġˡ)Ha(Ӡ΢ϠԮ)MR@RL@p()_#[Q a(Ҡ̠ŠӺ)F$ S(ϠՠԠϠ٠ο)&@ `@9()%q`@9()$eMYfijkijk_Z KM6,%a(ŠԠƠŠŠӠϠԠŠ),*a(ԠȠҠ٠ӠԠӠҠ)0/a(ծϠŠӠŠŨή)G04a(ՠԠӠϠ>r $X&`.?6?r$X 0q:_Xoa(ҠŠӺ)FYfblm&nd`=>r$e`ñ$l_UVW2dedeMYUV2WX6ded.?6?r`$fijkijkYq`$ \(_Zq/?%r q&f  gh de ñq deM`=>r %q`=r`%q`%q`%q6`%q6`%q"\`%q6`%qdUVW#&e`#%q6qnf xijkijkdede-rM qdede`/S(ĠՠŠӿٯүΩ)&@ `@9()%\ !`@9()$#"_ #LM6%UVW'-rq/?rY &\(_Z(f2ijk'<ij'k'Ff  Pgh'Q[Zq/?#rZ[q/?K!d6?ed6?ed6?evLM6d6?eM6 O4'rT dede0dededededed ed e qKd ed ed ededededeLde    (C/R TO END)";A$ A$""4510ED$;"BSAVE ";A$;",A$4000,L";L11P22016PACKING TABLE"4L1L11:L2(L1256):L3L1L2256SL4TANU2:L4,L3:L41,L2[60k` TABLEL1,0j L2(L1256):L3L1L2256t L4TAMX22:L4,L3:L41,L2y ~ :3770:"PACK COMPLETE .. LENGTH ";L116368,0:"NAME TO SAVE= 000::NUX1,Y1:L1SA:500*(7);:5006PLPL1FPLAO1210d"STACK LIMIT REACHED..."vPLPL1:1950ARPL,VPP0ēX2,Y2X,Y24:10:"X=";X;" Y=";Y;" STACK=";PL;" ";#X2X:Y2Y(5002000:2430::22:"$"B"950PL01000/V1A(PL):PLPL1BX2X:Y2Y:P40U(V14)0925fV1V14:P41wV10YYPCV11XXPCV12YYPCV13XXPCP409450:X2,Y2X,Y:CL1310A$"V"1000NO1SAL1:2PC:1200A$"R"800-XPC2791000BV1:XXPC:1200S A$"L"850d%XPC01000y*V3:XXPC:1200RA$"E"1950\A$"Q"900fL4TANU2:L4,0:L41,0:L2(L1256):L3L1L2256:L4TAMX22:L4,L3:L41,L2p:: AV,P,N"; NO15201 3:X,Y:A$:0:X,Y:CL: 540B A$N Z0(0)_ &A$"P"600l 0P4:500} XA$"N"650 bNO0:P0:500 A$"U"700 YPC01000 V0:YYPC:1200 1200 A$"D"750 YPC1591000 V2:YYX2X:Y2Y* :22:"SCALE= (1-15)?";PC> PC1PC15450I PC:0h :22:"COLOR#= (1-7)?";CL CL1CL4CL7470 CL :22:"IS HGR ON (Y/N)?";B$ B$"N"đ B$"N"B$"Y"491 1:22:I140:" ";::22:"U,D,L,R,B,E,Q,23)256(TAMX22)D T23:"MAX # OF TABLES=";MX;" LENGTH =";L1u 22:I140:" ";::22:"WHICH TABLE #?";NU NUMMX400 Y1(TANU2)(TANU21)256 Y10400 :22:"STARTING X,Y=";X,Y:X1X:Y1Y X1X279Y1Y159440 "Y"320 B$"N"211R :22:"MAXIMUM # OF SHAPES IN TABLE?";MX:MX255220u TA,MX:X11MX25:TAX1,0: L8((MX25)256):L9(MX25)L8256:TAMX22,L9:TAMX23,L8 L1MX23 ,400 6D$;"BLOAD ";N$: @MX(TA):L1(TAMXP01:EX093 a d51901 iAR5192:AO2999D n232,0:233,64W xA(Z)(ARZ) TA16384:D$(4):D$;"NOMON C"::P4 22:"TABLE NAME (C/R IF NEW FILE)";N$:N$""310 :22:"ARE YOU ADDING ON TO AN EXISTING":"TABLE (Y/N)";B$ B$Q 2100<BY0:P01:EXBY;FP11PL:BYBYA(P1)P0]J(A(P1)0)(P01)BY200:96K(A(P1)0)ĹTAL1,BY:L1L11:BY200:96PP06496UP08P064ZP01P08\(A(P11)4)1P06496]^EX1 `TAL1,BY:L1L11:BY0: ǠѤؤɬʬˬ̽ǮЮcl]ìӽĠ̠άƽҠ̠ĬŽˠ̠ͽΠ>]ҠӠŠ٠ӠΠŠˠŠŮҽϬӠŠϠנŠн٠ӠƠˠtD]ƽ٠ӠƠˠɯϠҠӽ٠Ӡˠ̮ͮŠӽ˯ҠƠˠTX]̤ӠȤؠӠƠФТԠoPa(Ǯ)`$7oPa(ҠԠĮŠ)_T 2de\]Š٠Ġ q,_h  H R \ f10:14 p"JOB DONE" uz"TO INITIALIZE TH")> EXIT" &8 0"TYPE THE NUMBER BEFORE THE TASK":T DUP:UP1UP2UP3590d I(37):580x NUP10,700,1000~  "10000'S DIGIT";TT " 1000'S DIGIT";OT " 100'S DIGIT";OH " 10'S DIGIT";TE " UNIT'S DIGIT";UN "TO CONT." 33,40:32,0:T$1 T$(13)440: 410@ F L R X  "<(";::"1";::")> RETURN TO INSTRUCTIONS"   "<(";::"2";::")> POKE YOUR (INPUTED) LINE-NUMBER":6);"FOR YOU." : "<(";::"3";::"  "DEFAULT=1" / "DEFAULT=0"5 "F ,"DEFAULT=0"P 632,0[ @33,40a Jx T11);"THEN CALL:"~ Y ^"770 (TO START AT 100)" h"787(TO START AT POKED LINE NUMBER" r33,10:32,30 |:15 "HIT";::"RETURN" :13 Z07:"LOCATIONS" [13% d? n"894(10000'S DIGIT)"E x_ "895(1000'S DIGIT )"e  "896(100'S DIGIT )" "897(10'S DIGIT )" "898(UNIT'S DIGIT )" 32,21:33,19 14 "DEFAULT=0"  "DEFAULT=0z"";"BLOAD AUTO-SOFT"" B"HOW TO USE THE AUTO-SOFT"b" LINE-NUMBER "(" GENERATOR "2"****************************************"<:::A34,06K06P"POKE THE STARTING LINE-NUMBER IN:" U 5115015"AUGUST, 1864. SHERMAN AND THREE"`5"VETERAN ARMIES CONVERGED ON ATLANTA AND"5"DEALT THE DEATH BLOW TO THE CONFEDERACY."511505. AFTER THE SOUTH HAD"D4U"SIEGED GEN. ROSENCRANS' ARMY FOR THREE"o4Z"MONTHS, GEN. GRANT BROKE THE SIEGE."y4d11504n"MAY 5, 1864. GRANT'S PLAN TO KEEP LEE"4s"ISOLATED BEGAN TO FAIL HERE, AND"4x"CONTINUED AT COLD HARBOR AND PETERSBURG."RN MISTAKE BY":3"GEN. LEE AT GETTYSBURG COST THEM ONE"i3"OF THE MOST CRUCIAL BATTLES OF THE WAR."s3(115032"SEPT. 15, 1863. CONFUSION IN A FOREST"37"NEAR CHICKAMAUGA LED TO A COSTLY"3<"SOUTHERN VICTORY."3F11504P"NOV. 25, 1863N LOST ONE OF THEIR OUT-"H2"STANDING GENERALS, 'STONEWALL' JACKSON."R211502"JULY 4, 1863. VICKSBURG WAS A COSTLY"2"DEFEAT FOR THE SOUTH BECAUSE IT GAVE"2"THE UNION ACCESS TO THE MISSISSIPPI"2 11503"JULY 1-3, 1863. A SOUTHEEDERACY UNDER"<1"LEE SUCCESSFULLY REPULSED AN ATTACK BY"b1"THE UNION UNDER GEN. BURNSIDE."l111501"DEC 31, 1862. THE SOUTH UNDER GEN."1"BRAGG WON A CLOSE BATTLE."111501"MAY 1-6, 1863. THE SOUTH HAD A COSTLY"2"VICTORY AMBINED"+0o"CONFEDERATE FORCES UNDER LEE"k0t"AND JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON."u0~11500"SEPT 17,1862. THE SOUTH FAILED TO"0"INCORPORATE MARYLAND INTO"0"THE CONFEDERACY."011501"DEC 13, 1862. THE CONF"DUE TO POOR ORGANIZATION."%/81150T/B"JUNE 25-JULY 1, 1862. GENERAL LEE (CSA)"/G"UPHELD THE OFFENSIVE THROUGHOUT THE"/L"BATTLE AND FORCED GEN. MCCLELLAN"/V"AND THE UNION FORCES AWAY FROM RICHMOND."/`11500j"AUG 29-30, 1862. THE CO"COMMANDING THE SOUTH, MET UNION FORCES"W."WITH GEN.MCDOWELL IN A PREMATURE BATTLE"."AT BULL RUN. GEN. JACKSON HELPED PUSH":"BACK THE UNION ATTACK.".1150.$"APRIL 6-7, 1862. THE CONFEDERATE".)"SURPRISE ATTACK AT SHILOH FAILED"/.0000,23000,3=- "CHICKAMAUGA",66000.,60000.,18000,16000,2m- "CHATTANOOGA",37000.,60000.,3670.,5800,2- "SPOTSYLVANIA",62000.,110000.,17723,18000,2- "ATLANTA",65000.,100000.,8500,3700,1- "JULY 21, 1861. GEN. BEAUREGARD, "(.0.,10000,12000,3 F, "FREDERICKSBURG",75000.,120000.,5377,12653,1x, "MURFREESBORO",38000.,45000.,11000,12000,1, "CHANCELLORSVILLE",32000,90000.,13000,17197,2, "VICKSBURG",50000.,70000.,12000,19000,1 - "GETTYSBURG",72500.,85000.,2 AFTER APPRO. INFO, AND ADJUSTING READP+p "BULL RUN",18000,18500,1967,2708,1|+z "SHILOH",40000.,44894.,10699,13047,3+ "SEVEN DAYS",95000.,115000.,20614,15849,3+ "SECOND BULL RUN",54000.,63000.,10000,14000,2, "ANTIETAM",40000.,5000 PROBABILITY POINTS, UNLESS A STRATEGY FALLS BELOW 5.A* S3K* S00V* I14h* S(I)53390y** S(I)S(I)S*4 S0S0S*> I*H S(Y)S(Y)S0*R *\ - HISTORICAL DATA...CAN ADD MORE (STRAT.,ETC) BY INSERTING&+f DATA STATEMENTSIGHT GIVEN TO THAT STATEGY.*) RS032701) Il) - IF ACTUAL STRAT. IN,THEN HERE IS Y2= HIST. STRAT.v) Y2I~) Y2) ) LEARN PRESENT STRATEGY, START FORGETTING OLD ONES) - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S8* Y2(N Y203160#(S Y253290b(X "ENTER 1 , 2 ,3 , OR 4 (USUALLY PREVIOUS UNION STRATEGY)"l(b 3140v(l S00(v R100(1)( I14( S0S0S(I)( - IF ACTUAL STRATEGY INFO IS IN PROGRAM DATA STATEMENTS) THEN R-100 IS EXTRA WE----------------' 4010E'& - UNION STRATEGY IS COMPUTER CHOSENS'* M23120a'+ M13118', :"CHOICES FOR DEFENSIVE STRATEGY ARE"::270'- 3120'. :" CHOICES FOR OFFENSIVE STRATEGY ARE"::320'0 "UNION STRATEGY IS ";': A03180(D(100(T1P1).5);" ";(100(T2P2).5)?& B$"Y"3100E& q& "UNION INTELLIGENCE SUGGESTS THAT THE"& "SOUTH USED STRATEGIES 1, 2, 3, 4 IN"& "THE FOLLOWING PERCENTAGES"& S(1);" ";S(2);" ";S(3);" ";S(4)' ----------------- "FOR THE "WLW0" BATTLES"=% "FOUGHT (EXCLUDING RERUNS)j% " CONFEDERACY UNION"% "HISTORICAL LOSSES ";(P1.5);" ";(P2.5)% "SIMULATED LOSSES ";(T1.5);" ";(T2.5)% .& " OF ORIGINAL ";.$" :(3):"THE UNION HAS SURRENDERED.":(6)4$# >$' 2920D$, [$6 "THE CONFEDERACY"$@ "HAS WON "W" BATTLES AND LOST "L$c $f WL2940$h "THE CONFEDERACY HAS WON THE WAR"$r 2950$| "THE UNION HAS WON THE WAR"$ $ R103100%# R2R2M2(100I2)20'# M3M3M15# M4M4M2?# 3300K# UU20b# "---------------"j# RAs# 620# ------FINISH OFF# :(3):"THE CONFEDERACY HAS SURRENDERED":(6)# "THE UNION HAS WON ";L;" BATTLES AND LOST ";W# $ 2940E FACTORS WHICH ALTER HISTORICALW"Z RESOURCES AVAILABLE.IF A REPLAY DON'T UPDATE.e"d A02790p"n WW1"x T1T1C5E" T2T2C6E2" P1P1C1" P2P2C2" Q1Q1(F(1)H(1)B(1))" Q2Q2(F(2)H(2)B(2))" R1R1M1(100I1)20R CASUALTIES WERE "(100(C5C1).5)" OF "N! "THE ACTUAL CASUALTIES AT ";C$T! j! - FIND WHO WONx! U12590! C5E17C2C1(C520)5O2630! "YOU LOSE ";C$!( A02790!2 LL1!< 2680!F "YOU WIN ";C$ "P - CUMULATIVE BATTL212440 ` C5EC6E224602 j C5EC6E22440K t "THE UNION WINS "C$U ~ 2600t "THE CONFEDERACY WINS "C$~ 2660 "BATTLE OUTCOME UNRESOLVED" W0W01 A02790 2680 C6(17C2C1(C520)) E25O 2280*! "YOU"Y"25304 "COMPARED TO THE ACTUAL CASUALTIES AT"F " ";C$:} "CONFEDERATE:"(100(C5C1).5)" OF THE ORIGINAL"$ "UNION: "(100(C6C2).5)" OF THE ORIGINAL". 8 - 1 WHO ONEB U12380G U212460L U12420 V U(Y2Y)1)))8C5(C5(11O)(1.28F1(B(1)1)).5)EE100OnC5100OM1(1(P1T1)(M31))2270C5(13M120(1(P1T1)(M31)))E7C513U1D12500"CASUALTIES",C5,C6"DESERTIONS",(E),(E2) B$11O2).5)<> - IF LOSS > MEN PRESENT, RESCALE LOSSES KHE2100O2aR(C6E2)M62180u\C6(13M620)fE27C613pU21z - CALCULATE SIMULATED LOSSES" CONFEDERACY UNION" C5(2C15)(11(2(:"UNION GENERAL---"&I218404M22010BM32000JM3T2010\M1cImY2YwYY1 Y251950 : SIMULATED LOSSES-NORTH C6(2C25)(11(2((Y2Y)1)))*C6C6(1.28(5M26)(B(2)1)) 4C6(C6( ON THE OFFENSIVE":306-0"YOUR STRATEGY";4:YGD(Y3)31890hN"STRATEGY";Y;" NOT ALLOWED"rX1840bY5I22830gY52850lB$"Y"1930v3110{::"ENTER A RETURN WHEN READY";|Z9$2170I22040Y1YO(2)OO(1)!I12/I21790>M21778l"BOTH SIDES ARE ON THE OFFENSIVE"::306}B$"N"1790"CONFEDERATE GENERAL---"M21840M31830" YOU ARE ON THE DEFENSIVE"::2601840&" YOU AREDERATE ";61620(@" UNION ";=J - FIND MORALE_TO((2F(Z)2H(Z)2)F121)n^O101660h"MORALE IS HIGH"r1700|O51690"MORALE IS FAIR"1700"MORALE IS POOR"B$"Y"1760O(Z)OZO2230'"NEGATIVE VALUES NOT ALLOWED."8N1370,1410JB$"Y"1550XI21550(16):Q18:" ":Q(16)"UNION GENERAL---"IZ1DB$"Y"1620"Z1580,1600 ,"CONFEES..";dH(I)nN1*xH(I)01490@" - AMMUNITION";JB(I)SN2dB(I)01490jF(I)H(I)B(I)D(I)1510"THINK AGAIN YOU HAVE ONLY $"D(I)(18)K15" "K1L--- "(18)D"HOW MUCH DO YOU WISH TO SPEND FOR"Z" - FOOD......";aFp F01360R101330"NO PREVIOUS ENTRIES"(12302"ASSUME YOU WANT TO KEEP SAME ALLOCATONS"<F1510PF(I)FZ" - SALARI;D(1);" $";D(2)N"INFLATION ";I115;;" ";I2;"" - ONLY IN PRINTOUT IS CONFED INFLATION = I1+15 - IF TWO GENERALS, INPUT CONFED. FIRSTI1DB$"Y"1260I21260(16)"CONFEDERATE GENERA30@eA3580,3620,3650,3690,3720,3750,3780,3800,3830,3860,3890YjA113920,3950,3980t:(3):" ";C$;" INSTANT REPLAY"~(10)" CONFERERACY UNION"" MEN ";M5;" ";M6" MONEY $""Y"1050CD(2)100((M2(100I2)2000)(1(R2Q2)(R21)).5)\ - MEN AVAILABLE}$M5(M1(1(P1T1)(M31))).M6(M2(1(P2T2)(M41)))8F15M16B:(2)L"THIS IS THE BATTLE OF ";C$Q(4)VX$"N"1150`A1111(A)M2M2(A)C1C1(A)-C2C2(A)9MM(A)BU0Y INFLATION CALClI110(LW)2I210(WL)2 - MONEY AVAILABLED(1)100((M1(100I1)2000)(1(R1Q1)(R11)).5)D(2)100(M2(100I2)2000.5) B$ [B(2)0\R20]Q20&^C60._F07`W00?aY0HbY20PcU0YdU20_lv"WHICH BATTLE DO YOU WISH TO SIMULATE";AA0660ARA0MM(A)R01140A0A15670:2860C$C$(A)M1M1"AFTER REQUESTING A BATTLE ":"DO YOU WISH ";X&"BATTLE DESCRIPTIONS ";`:X$q?X$(X$,1,1)DX$"Y"600NX$"N"560OL0PW0QR10RQ10SM30TM40UP10VP20WT10XT20YF(2)0ZH(2)0TUATION. ALLOWING"+"YOU TO REPLAY IT"b(24):"ENTER A CARRIAGE RETURN TO CONTINUE";:Z9$h"NOTE: A NEGATIVE FOOD $ ENTRY CAUSES""THE PROGRAM TO USE THE ENTRIES FROM""THE PREVIOUS BATTLE":260306365;GOOD LUCK"D1*B$"Y"5383D2<538f"SELECT A BATTLE BY TYPING A NUMBER""FROM 1 TO 14 ON REQUEST. TYPE ANY""OTHER NUMBER TO END THE SIMULATION.""ENTERING A '0' BRINGS BACK THE EXACT""PREVIOUS BATTLE SIATTACK (2)FRONTAL ATTACK"H T"(3)FLANKING MANEUVERS (4)ENCIRCLEMENT"] h"(5) SURRENDER"c km m(19) r"ARE THERE TWO GENERALS PRESENT "; B$ B$(B$,1,1) B$"Y"430  B$"N"365 (2) "YOU ARE THE CONFEDERACY. " "(1)ARTILLERY ATTACK"K "(2)FORTIFICATION AGAINST FRONTAL ATTACK"t ""(3)FORTIFICATION AGAINST FLANKING" '" MANEUVERS" ,"(4)FALLING BACK (5)SURRENDER" 1 2 6"YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:" @"(1)ARTILLERY AL OCCURRENCE. MOST BATTLES TEND TO"P "RESULT AS THEY DID IN THE CIVIL WAR,"v "BUT THE OUTCOME DEPENDS ON YOU"| "THE OBJECT OF THE GAME IS TO WIN AS" "MANY BATTLES AS POSSIBLE." 460 "YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:WAR SIMULATION." ' "TO PLAY, V "TYPE A RESPONSE WHEN THE COMPUTER ASKS."i :"REMEMBER," "THAT ALL FACTORS ARE INTERRELATED AND" "THAT YOUR RESPONSES COULD CHANGE HISTORY" "FACTS AND FIGURES USED ARE BASED ON THE"$ "ACTU14),C2(14),M(14)C < UNION INFO ON LIKELY CONFEDERATE STRATEGY N AI14X FS(I)_ KIr P 25,25,25,25 R READ HISTORICAL DATA. TD114 VC$(D),M1(D),M2(D),C1(D),C2(D),M(D) XD YD(1) Z:(3)  "THIS IS A CIVIL -9 PROGRAM NAME - CIVIL VERSION: 2/18/79 WJ{ ORIGINAL GAME DESIGN: CRAM, GOODIE, HIBBARD LEXINGTON H.S. MODIFICATIONS: G. PAUL, R. HESS (TIES), 1973( CDC CYBER 70/73-26 BASIC 3.1- 2S(4),C$(14),M1(14),M2(14),C1(                               K ::120:12:88 "EVEN MATHMATICAL ROSES FADE"H "K1800:KU ,255::V"d--> 'APPLE ROSE' BY JIM DAY?nRA150:P.015:X95:Y140LxC6260YzC3C4c|CC1jCzM(1)303N(1)M1:16302,0X,YA0RA(1)PR((MN)A)XYR(A),XR(A)A120 K11000:   >">">"">""""<"">>>"">"">"">">"">"">>>"">"""">>">"">"""">>>">""">>"">"">""0""""""""""""""""""""""""""""""""""6"""""""""""""""""""""""""""""""""2"> 2 ">222"> > &"> " " >""""> >"  > ""*"">"">"> "">"2""> " >"">"">"> 2" &""**"**>"" **"""""">*"""">"*">""""""*"""*">">"""""""*"*" *""""&"*"&&"""2*"""""""""*"""""""""""""""""*"""&""""""""""""*" &""2""""""""6"""""6""""""""6""""""""""""""""6"""""""""""""""6""""&>">>">>"""<">>>>">">>>>>>>">">>">>>"">"">>"> "">">">>>>">>">>">">>">">>                     I,J:.'769,100:: DURATION$8'( 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666e 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''76666666661& 80,100P1,100P1,1500 0 P28013.125J 80,125P2,125P2,150P b P38019.685| 80,138P3,138P3,150 ' : GENERATES MUSIC TONES' 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174, 0,3,76,2,3,96 $'I770790:J:R t :CALC. % REMAINING6R100(D900)100\PP1: TIME PERIOD OF 100 UNITSn805P,150RRR(R10)1022:RR;"% REMAINING AFTER ";T;" DAYS " PITCHPITCH1768,PITCH 770::TONE ROUTINE* P1806.5651500:Q:!:PLOT DECAY7PAUSE(200(1))IQ1PAUSE:QP0[X1,Y1kA(X1,Y1)1$DD1::DECAY COUNTER.381B0:326,0L16:352,26V32:326,52`48:30,26j768,40:769,3:770: :CLICK SPEAKE l32:326,52 v48:30,26- P296606 510X 24:"HALF LIFE IS 656 DAYS."f 16368,0w KY(16384) KY128680 16368,0 : 10 "DO YOU WANT TO DO THIS AGAIN? ";Q$ (Q$,1)"Y"240 :10:20)"OK"QME COUNTER( (T100(T100))0İ2000J (FLAG1R50)ĪFLAG2:3100l (FLAG2R25)ĪFLAG3:3200 &(FLAG3R12.5)ĪFLAG4:3300 0X110(30(1)1) :Y110(30(1)1) DA(X1,Y1)0ī650 N1000 X0:326,0 b16:352,262 r0,QA52,QA |QA2 :DRAW AXES OF GRAPHL 80,5080,150250,150^ QW5014010o 75,QW80,QWw QW 70,5080,50 70,10080,100 QW852505 QW,153QW,150 QW QW13023050 QW,156QW,150:QW TT1::TITS WHICH HALFLIFE IS PLOTTEDF R100::THIS IS % REMAINING INITIALLYh 10000::SETS UP TONE ROUTINE PITCH15: :INITIAL TONE "A(40,40) ,:3 6D$""::CNTRL D @D$;"BLOAD RADIO" T232,128:233,17 ^: DRAW "REACTOR" hQA05ROGRAM REQUIRES"6 "THAT THE FOLLOWING BINARY FILE"Y "IS ALSO PRESENT ON THE DISK"_ r 17)"'RADIO'"| :: "PRESS SPACE BAR TO BEGIN" KY(16384) KY128200 16368,0 :LOAD BINARY FILES :16384 FLAG1: SE  :16384+10)"RADIOACTIVE DECAY"1I(13)"A SIMULATION"O2v<7)"H.EDELSTEIN MARCH 3,1980"|FP"DEMONSTRATES THE CONCEPT OF 'HALF LIFE'"Z"AS A MEASURE OF AN EXPONENTIAL DECAY"d"PROCESS."n x"NOTE: THIS P   7,3,15,6,10,3,15,46,15,30,45,32,48,54,10,32,48,15,18,11,18,33,57,11,18,45,18f ` DAVE WINZLER, 1978g TRIANGLE ILLUSION9 CONFIGURED FOR ROM CARDS X(X)(3.5X.5)20Y lY(Y)1803YrHB044:HC13:HBHC:X,Y:X(X),Y(Y)(N117:X,Y:X(X),Y(Y):N2HC,HB:22cL d 6,10,54,10,57,15,33,57,27,5XL)) hY(AYBY(CYL))& rX,Y- |L5 22d " DO YOU WANT TO DO THIS AGAIN ? ";B$z (B$,1)"Y"ī110 ::ATRY THESE OR ENTER YOUR OWN."B :" ENTER VALUE FOR A: ";CXg :" ENTER VALUE FOR B: ";CYm ~ PI3.1415927 AX140 BX100 AY80 BY70 ,ANG2.1PI 6STPPI128 @:3 JAXBX,AY TL0ANGSTP ^X(AXBX(CF A AND B,". "YOU WILL CHANGE THE CURVES."\ "HERE ARE SOME SUGGESTED VALUES TO TRY:"b z " A B" " --- ---" " 1 1" " 1 3" " 3 4" " 3 7" :"NOW ONE CYCLE OF 360 DEGREES.Q d::" PRESS THE SPACE BAR TO GO ON...":ANS$Y n: x"THE X,Y COORDINATES HAVE THE FORM:" :" X = COS( ";::"A";::" * ANGLE) :" Y = SIN( ";::"B";::" * ANGLE) :"BY CHANGING THE VALUES O 5-" LISSAJOUX CURVES"X(::" H.EDELSTEIN OCT 19, 1979"d2:::<"A FAMILY OF CURVES GENERATED BY CHANGING"F"ANGLES IN THE POLAR COORDINATES THAT"P:"SPECIFY THE POINTS AS THEY ARE PLOTTED" Z:"THROUGH     )AA((V2BB))d#:3En#24:"THIS IS THE CURVE YOU SELECTED."Ox#0,DDa#Q1001002v#YYF(Q)(QCC)#Q100,DDYY#Q#24:"PRESS SPACE BAR TO CONTINUE"#A$#H00^A(X)A((X2B))$h:3Or24:"THIS IS THE CURVE YOU SELECTED."Z|0,150lX1001002xYA(X)X100,150YX24:"PRESS SPACE BAR TO CONTINUE"D$(#2#AA80<#BB2000F#CC15P#DD80Z#F(V E :XN,YN IS THE POINT OF INTERSECTION OF PARTLY HIDDEN LINEs XN(Y1H(X1))(X2X1)(Y1Y2H(X2)H(X1)) YNY1XN(Y1Y2)(X2X1)  XN(Y1L(X1))(X2X1)(Y1Y2L(X2)L(X1)) YNY1XN(Y1Y2)(X2X1) @JA130TB10((U1)2)1%F X1XI(KK1)S1CCS1CP X2XI(KK1)S1(CC1)S1[Z A(KK,CC)99992740ud A(KK,CC1)99992740n Y1A(KK,CC)x Y2A(KK,CC1) Y10ĪY10 Y20ĪY20 Y1159ĪY1159 Y2159ĪY2159 X1,Y1X2,Y2 CC KK159ĪY1159 Y20ĪY200 Y2159ĪY2159G X1,Y1X2,Y2:2550N X^ A(K1,C)Y2f K0m Y : CROSS-HATCHING ROUTINE 24:"PRESS SPACE BAR TO SEE CROSS-HATCHING.":B$ X10:X20:Y10:Y20( XIYB2R2 KK1U2 < CC1(X1)Y1 j Y1L(X1)ĪL(X1)Y1@t C11ĪX2X1XN:Y2YN:2460`~ C12ĪX1X1XN:Y1YN:2460 C13ĪX1X1XN:Y1YN:2460 C14ĪX2X1XN:Y2YN:2460 X10ĪX10 X1279ĪX1279 X20ĪX20 X2279ĪX2279 Y10ĪY10  Y1Z2 A(K,C)Y1,$ Y1H(X1)ĪA(K,C)9999Z. Y1H(X1)Y2H(X2)Y1L(X1)Y2L(X2)25508 (Y1H(X1)Y2H(X2))ĪC11:2770B (Y1H(X1)Y2H(X2))ĪC12:2770L (Y1L(X1)Y2L(X2))ĪC13:2810V (Y1L(X1)Y2L(X2))ĪC14:2810` Y1H(X1)ĪH(279)L(279)HA12799H(HA)159:L(HA)0:HAD::3UYRR1S1_CC1vX2R2(R1)S1KK1C10Z1A((Y2X2))B(Y)Z2A((Y2(XS1)2))B(Y) X1YBS1CX:X2YBS1(C1)X Y1YBYZ1:Y2YBYA SETS HEIGHT OF CURVE*R40<4: R IS RADIUS OF CIRCLEE>D10uH: D IS THE PERIODICITY OF THE COS FUNCTIONRU(RS1)41\A(U,U)f :U IS THE NO. OF LINES pS21600zA(X)A((X2S2))(XD)B(X)A((X2S2))H10A(KK,CC1)01510)Y1A(KK,CC);Y2A(KK,CC1)LX1,Y1X2,Y2TCC\KKb: ****DECAYING COS CURVE***********************************************S14:S1 SETS SPACINGYB90 :YB SETS BASE LINEA8 : 360 FA(K,C)0 PX' ZA(K1,C)Y2/ dK06 nYk s24:"TO SEE CROSS-HATCHING,PRESS SPACE BAR":E$ xX10:X20:Y10:Y20 XIYB2R KK1U2 CC1((U1)2)1 X1XI(KK1)S1CCS1 X2XI(KK1)S1(CC1)S1A(KK,CC)015)((X2S2))6 Z2A((Y2S2))(((XS1)2)S2)X X1YBS1CX:X2YBS1(C1)Xr Y1YBYZ1:Y2YBYZ2 A(K,C)Y1 Y1H(X1)1350 Y2H(X2)1350 Y1H(X1)ĪH(X1)Y1 (Y2H(X2)ĪH(X2)Y2 2Y10Y201360 <X1,Y1X2,Y2:1A(U,U)' ` :U IS THE NO. OF LINES 3 jH(300)A tHA0299V ~H(HA)(YBR):HA` T.04 : T IS ARBITRARY FRACTION TO MAKE S2 GREATER THAN R ::3 YRR1S1 CC1 S2RT X2R2(R1)S1 KK1 Z1A((Y2S2)*******************************************************************EXPONETIAL SURFACE[ d S14z :S1 SETS SPACING YB100 :YB SETS BASE LINE $A80 .: A SETS HEIGHT OF CURVE 8R40 B: R IS RADIUS OF CIRCLE LU(RS1)41 V! n10)"1. EXPONENTIAL CURVE"' xK 10)"2. DECAYING COSINE CURVE"S NOk NO8000,9000,10000 NO1000,2000,3000 24:"DO YOU WANT TO DO THIS AGAIN?";C$ (C$,1)"Y"ī10 : 10:18)"OK" Q1500:Q :U ***** :16384:#18)"SURFACE"+:P(8)"H.EDELSTEIN FEB 21,1980"w2:10)"PLOTS A THREE-DIMENSIONAL"<10)"MATHEMATICAL SURFACE."F:P"AS A BASIS FOR THE SURFACE, ENTER THE"Z"NUMBER OF ONE OF THE FOLLOWING CURVES:" d      3,6,7 p: FACE VERTICES* z 1,4,9,109  7,8,9,10G  8,3,4,9U  2,3,4,1d  7,2,1,10r  5,6,8,7  5,6,3,2  8,6,3,0  7,5,2,0  19,20,21,22  15,16,17,18  11,12,13,143,8,-1 -3,8,7" -3,-8,-70 -3,8,-7> 3,-8,-1K  3,8,-1W 3,8,7d 3,-8,7s( -3,-6,-32 -3,-6,-5< -3,-4,-5F -3,-4,-3P 1,-8,5Z 1,-8,3d -1,-8,3n -1,-8,5x 3,0,7 3,0,2 3,6,2 HNH1B1DHDB~H2HN8HNH1(B1159)DHDBBH2HNH^****************x 22:-NO.OF VERTICES 12: -NO.OF FACES  4:- MAX.NO.VERTICES PER FACE0,0,0:VERTEX COORDINATES -3,-8,7 -3,-8,-1 -: TO MAIN PROGRAM + BNB2H2DBDH5& B1BN;0 T BNB2(279H2)DBDH^ B1BNd w HNH2B2DHDB H1HN H HNH2(159B2)DHDBR H1HN\  BNB1H1DBDH B2BN BNB1(H1279)DBDHB2BN$tLP,1)"1")ĪSKIP1:2150 \LP&f>:RESET COORDINATESTH10ĪH10:3100nH1279ĪH1279:3200B10ĪB10:3300B1159ĪB1159:3400H20ĪH20:3500H2279ĪH2279:3600B20ĪB20:3700B2159ĪB2159:3800B1159ĪPBPB1/ : SET UP CODE FOR PEEB20ĪPEPE1000Z H20ĪPEPE100p*H2279ĪPEPE104B2159ĪPEPE16PB$(PB):PE$(PE)8PB$(PB$,4):PE$(PE$,4)>: COMPARE CODES OF PTSHLP14R((PB$,LP,1)"1"(PE$,:ENDPTS WITHIN WINDOW?WDSW(H10H1279H20H2279B10B1159B20B2159)]N:IS LINE COMPLETELY OUTSIDE WINDOW? :SET UP CODE FOR PBPB90000:PE90000:SKIP0B10ĪPBPB1000H10ĪPBPB100H1279ĪPBPB102000SKIP11760(2200:18607SW11730A1700RH2,B2H1,B1cQQ(16384)tQQ1271780{IL24"DO YOU WANT TO DO THIS AGAIN?":A$(A$,1)"Y"525:10:18)"OK"&E1500:E0::W1164062000#@SKIP116503J2200:1860BTSW11640L^1610]hH1,B1H2,B2drJ}|H1P1K1P(F(I,1),1)B1P2K1P(F(I,1),2)H2HL:B2BLDHH1H2:DBB1B2DH0ĪDH.0001DB0ĪDB.00011860SW11730(P4)I1N1!H(I)017602J1V1(I)1KH1P1K1P(F(I,J),1)fH2P1K1P(F(I,J1),1)B1P2K1P(F(I,J),2)B2P2K1P(F(I,J1),2)HLH2:BLB2DHH1H2:DBB1B2DH0ĪDH.0001DB0ĪDB.0001"1860:SKIP0,S PW11390ZPP0ī1410'd14207nPP01410Ax1420MH(I1)0UI1`::30,0279,0279,1590,1590,01,1278,1278,1581,1581,1K1(0)3P3P(F(1,1),1)K1P4P(F(1,1),2)K1P1180P3(P3)P2120P4(X(I)X(K))2:E2(Y(I)Y(K))2:E3(Z(I)Z(K))2HE4(E12E22E32)lPP(A1E1A2E2A3E3)(A4E4)tW0PP01300 1310W1G1E1D(1)(G2E2D(2)2G3E3D(3)<G4(G12G22G32)FPP(A1G1A2G2A3G3)(A4G4)1(H$,1)"N"1420:IF(I1,1):JF(I1,2):KF(I1,3)qA1(Y(K)Y(J))(Z(I)Z(J))(Z(K)Z(J))(Y(I)Y(J))A2(Z(K)Z(J))(X(I)X(J))(X(K)X(J))(Z(I)Z(J))A3(X(K)X(J))(Y(I)Y(J))(Y(K)Y(J))(X(I)X(J))A4(A12A22A32)/E1KKV(J).J8S301120OBP(I,1)((A(1)Q(1))C(2)(A(2)Q(2))C(1))S3iLP(I,2)(A(3)Q(3))S3sV1140`P(I,1)((Q(1)A(1))C(3)(A(3)Q(3))C(1))S2jP(I,2)(A(2)Q(2))S2tI~:FLAG FACES WHICH ARE HIDDEN.I11N1H(I1)V(3)Z(I)D(3)2:CHECK FOR VALID VIEWPOINT]U(1)V(1)U(2)V(2)U(3)V(3)0ī1040"VIEWPOINT IS WITHIN OBJECT---PLOT IS ABANDONED---REENTER ALTERNATE VIEWPOINT."::KKD0(V(1)C(1)V(2)C(2)V(3)C(3))J13$A(J)D(J)INESHU(1)D(4)D(1)*RU(2)D(5)D(2)=\U(3)D(6)D(3)\fU1(U(1)2U(2)2U(3)2)gpI13xzC(I)U(I)U1IS3(1C(3)2)S2(1C(2)2)I13Q(I)D(I)D0C(I)II1N0V(1)X(I)D(1)V(2)Y(I)D(2)z#Xñ     ٠ҠͺŠؠΠàүȠŠҠŠׯƠɠĠͺŠɠΠĠүȠԮîŮîͮɠ Ԯà حíؠҠ  Š ̠/ϭԠӠ  ϭԠ ҠέŠҠ  Р   ̠ ΠŠؠŠΠŠ Ϡ" ŠϠ ˠˠҠ ҧӠΠ Ҡ̲ ĠŠXñ]Ϡ ՠ Үʰà*ɠŠŠK3(L)D(2)K3(L)%D(3)K2o: D(1,2,3) ARE COORD. OF OBSERVER. D(1):VERT.;D(2):HORIZ.;D(3):DEPTH :D(4 TO 6) ARE COORD. OF POINT LOOKED ATD(4)0 D(5)0*D(6)04:PERSPECTIVE TRANSFORMATIONS>:FIRST..CALC.DIRECTION COS 3. TELEPHOTO"I>N"ENTER YOUR CHOICE (1,2,OR 3): ";AQXA610,620,630fbK350:D025:640{lK320:D010:640vK3200:D0100:640:"SHOULD HIDDEN LINES BE REMOVED? ";H$PI3.141593L02PIPI6K21(1)D(1)BERS FOR EACH FACE"%I1N11J1N2E" ";F(I,J);LJRYIa : "PRESS SPACE BAR TO CONTINUE":A$ ::5&"WHAT KIND OF PERSPECTIVE ?"+0" 1. NORMAL"5:" 2. WIDE ANGLE"?D" READ IN CLOCKWISE FOR EACH FACE FROM DATA STATEMENTS. h: IF A FACE HAS LESS THAN THE MAX NO. OF VERTICES,ENTER 0 AS THE LAST VERTEX NUMBER. rI1N1 |J1N2 F(I,J) F(I,J)0430 J JN21 V1(I)J1 I"VERTEX NUMZ(I) ,I 18 6"PRESS SPACE BAR TO CONTINUE":A$> @Y JF(N1,N2),V1(N1),H(N1) T: THE VERTEX NUMBERS OF EACH FACE ARE READ INTO ANARRAY F(N1,N2) WHERE N1 IS FACE NUMBER AND N2 IS THE MAX NO. OF VERTICES ON A FACE.6 ^: THE VERTEX NOS.ARE. CENTER C1,C2,C3@ :GET COORD. AND TRANSLATE TO ORIGIN.L I1N0` X(I),Y(I),Z(I)q X(I)X(I)C1 Y(I)Y(I)C2 Z(I)Z(I)C3 I  :"COORDINATES OF THE VERTICES": I1N0 ""VERTEX NO.";I;": ";X(I);4);Y(I);4);SING SPACE BAR."; F:"PRESS SPACE BAR TO CONTINUE. ":A$H d:16384g n:POLYHEDRON DATA IS INPUT xN0:...NO.OF VERTICES X(N0),Y(N0),Z(N0),P(N0,2) N1: :NO.OF FACES N2: :MAX.NO.OF VERTICES PER FACE : READ IN COORD. OF POLYHED %. ("THE OBJECT (A 'BARN') IS ROTATED."\ -"PADDLE(0) CONTROLS SIZE FIT ON SCREEN." 2"PADDLE(1) CONTROLS HEIGHT OF VIEW POINT." 7"KEEP SETTING AT MIN.(COUNTER-CLOCKWISE)" <"TO START AT 'GROUND LEVEL'." > A"HALT DRAWINGS BY PRES :18:"BARN" ?10:"H.EDELSTEIN JAN 16,1980"Er"ADAPTATION OF PROGRAM BY JOHN W. ROSS""IN 'PERSONAL COMPUTING'(NOV,DEC 1979)""DRAWS THREE DIMENSIONAL OBJECTS IN"#"PERSPECTIVE FROM VARIOUS POINTS OF VIEW."      )"Y"1000 :B11,158278,158278,11,1$ FAX,AY5 PL0RADSTPA xXC(L)M YS(L)[ ZZZ(L)f YZYZt X1ĪX1 X278ĪX278 YZ1ĪYZ1 YZ158ĪYZ158 X,YZ L  23 "DO YOU WANT TO DO THIS AGAIN? ";S$ (S$,1 4' `"ENTER VALUES:";BX,BY,ZC,CX,CY; PI3.1415926536C R7T RADR(2PI)b STPPI32j Z0 C(L)AXBX(L(R2))(CXL) S(L)AYBY(L(R2))(CYL) Z(L)ZC(L(R2)) AX140 AY8050(ZC) ( 2:3 <1,E)" .:" Z=K3*SIN(ANGLE)K 8:"SUGGESTED VALUES OF THE PARAMETERS:"i B15)"K1, K2, K3, A, B" L14)"--- --- --- --- ---" V14)"100, 30, .2, 2, 2" X14)"100, 30, .2, 2, 3" Y14)"100, 50, .3,200,100" Z14)"120, 10, .4, 1, ::,10)"SPHERICAL COORDINATES"T:7)"H.EDELSTEIN NOV 4,1979"::"TRACES A SPIRAL CURVE IN THE FORM OF""A SPHERE. USES SPHERICAL COORDINATES:":" X=K1*SIN(ANGLE)*COS(A*ANGLE)" $:" Y=K2*SIN(ANGLE)*SIN(B*ANGL    0) ,L0RADSTP" 6XAXA(L)1 @YAYB(L)Q J(X1X279Y1Y159)350[ TX,Yb ^Lh hp r23 |"DO YOU WANT TO DO THIS AGAIN? ";S$ (S$,1)"Y"10 :A15)"50, 10, 7, 25, 8, 9"" J "ENTER VALUES: ";A1,A2,A3,B1,B2,B3U AX140_ AY80 A(X)A1(A2X)A1(A3X) B(Y)B1(B2Y)B1(B3Y) PI3.14159265 R1.01 RADR2PI STPPI128  :3 "AXA(0),AYB(N(B3*X)". Z:"SUGGESTED PARAMETRIC VALUES:"P d15)"A1, A2, A3, B1, B2, B3"s n14)"--- --- --- --- --- ---" x15)"25, 2, 1, 25, 2, 1" 15)"25, 5, 7, 25, 5, 7" 15)"50, 7, 5, 25, 6, 4 15)"50, 7, 8, 25, 9, 10"   ::15)"ROSETTE"E:7)"H.EDELSTEIN NOV 4,1979"n(:"TRACES 'ROSE PETALS' AROUND THE"2"POINT OF ORIGIN."<" THE PARAMETRIC COORDINATES ARE:"F:" X=A1*SIN(A2*X) + A1*COS(A3*X)" P:" Y=B1*COS(B2*Y) + B1*SIA(L) "YAYB(L)5 ,(X1X279Y1Y159)320? 6X,YF @LL JT T23~ ^"DO YOU WANT TO DO THIS AGAIN? ";S$ h(S$,1)"Y"10 r: |10:18)"THE END" P11000:P A0,300"  : "ENTER VALUES: ";A1,A2,A3,B1,B2,B3E AX140O AY80m A(X)A1(X)A2(A3X) B(Y)B1(Y)B2(B3Y) PI3.14159265 R1.01 RADR2PI STPPI128 :3 AXA(0),AY L0RADSTP XAXIN(Y)+B2*SIN(B3*X)"9 Z:"SUGGESTED PARAMETRIC VALUES:"[ d15)"A1, A2, A3, B1, B2, B3"~ n14)"--- --- --- --- --- ---" x15)"25, 25, 10, 25, 25, 10" 15)"25, 50, 10, 25, 50, 10" 15)"50, 25, 10, 20, 10, 5" 15)"25, 50,300, 25, 5  ::15)"CYCLOIDS"F:7)"H.EDELSTEIN NOV 4,1979"r(:"TRACES A POINT ON A CIRCLE THAT IS"2"ROLLING AROUND ANOTHER CIRCLE. "<" THE PARAMETRIC COORDINATES ARE:"F:" X=A1*COS(X)+A2*COS(A3*X)" P:" Y=B1*S CYL)XXC(L)YYS(L)8&XXXDX(EXL)(L)Q0YYYDY(EYL)(L)\:YZYZjDX1ĪX1|NX278ĪX278XYZ1ĪYZ1bYZ158ĪYZ158lX,YZvLCX,DY,EX,EY,ZC!PI3.1415926536)R7:RADR(2PI)ISTPPI256TAX140eZC0ĪAY80xAY8050(ZC)~:31,11,158278,158278,11,1AX,AYL0RADSTPC(L)AXLBX(CXL)ZZZCS(L)AYLBY(5 25 25 0"9," 2 2 1 1 25 25 25 25 0"d6" 4 4 1 1 25 25 6 6 0"j@pJT"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"^h"NOW ENTER THESE OR YOUR OWN:"r" K1, K2, L1, L2, M1,M2, N1, N2, Z" |BX,BY,CX,CY,DMENSION)"="SEE WHAT CURVES RESULT WHEN YOU CHANGE"^"THE PARAMETERS K,L,M,N,Z."d" SUGGESTED STARTING VALUES ARE:"" K1 K2 L1 L2 M1 M2 N1 N2 Z""--- --- --- --- --- --- --- --- ---""" 2 2 1 1 5 :8"SINE CURVE SUPERIMPOSED ON A REGULAR SPIRAL"e:"HERE ARE THE COORDINATES YOU CHOSE:""X=K1*(ANGLE)*COS(L1*ANGLE)+M1*SIN(N1*ANGLE)*COS(ANGLE)""Y=K2*(ANGLE)*SIN(L2*ANGLE)+M2*SIN(N2*ANGLE)*SIN(ANGLE)" "Z=0 (0>Z<1 ADDS A 3D DI L0RADSTP! L(L)(1L). F1L(L); F2L(L)W C(L)AXF1BX(CXL)c XC(L) S(L)AYF2BY(CYL) YS(L) ZZZC YZYZ* X1ĪX14 X278ĪX278> YZ1ĪYZ1H YZ158ĪYZ158R X,YZ\ Lf  A ? ";CX3N " B ? ";CYSX " Z ? ";ZCgb PI3.1415926536ol R7v RADR(2PI) STPPI32 AX140 ZC0ĪAY80:3225 AY8050(ZC)  :3 1,11,158278,158278,11,1 AX,AY2,A,B."  6 " SUGGESTED STARTING VALUES ARE:"` " K1=30 K2=10 A=1 B=1 Z=0 "NOTE: KEEP Z LESS THAN 1(E.G.:.1)" & "NOW ENTER THESE OR YOUR OWN:"0 " ENTER K1: ";BX: " K2 ? ";BYD " "HERE ARE THE COORDINATES YOU CHOSE:"U :" X= K1 *LOG(1+ANGLE) * COS(A *ANGLE)" :" Y= K2 *LOG(1+ANGLE) * SIN(B *ANGLE)" :" Z=0 (01 ADDS THE 3D DIMENSION)"  "SEE WHAT CURVES RESULT WHEN YOU CHANGE" "THE PARAMETERS K1,K  XC(L)' S(L)AYF2BY(CYL)3 YS(L)> ZZZCI YZYZo (X100X400Y100Y300)2560} X1ĪX1 X278ĪX278 YZ1ĪYZ1 YZ158ĪYZ158 X,YZ L :  : 10)"LOGARITHMIC SPIRAL"& :3.1415926536 R2& RADR(2PI)5 STPPI256@$ AX140W) ZC0ĪAY80:2360j. AY8050(ZC)p8 yB :3L 1,11,158278,158278,11,1V AX,AY` L0RADSTPj E(L).1(L)t F1E(L)~ F2E(L) C(L)AXF1BX(CXL) Z=0"/H"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"5RY\"NOW ENTER THESE OR YOUR OWN:"yf" ENTER K1: ";BXp" K2 ? ";BYz" A ? ";CX" B ? ";CY" Z ? ";ZC PI"0:" Y= EXP( K2 *ANGLE) * SIN( B *ANGLE)"^:" Z=0 (01 ADDS THE 3D DIMENSION)"d "SEE WHAT CURVES RESULT WHEN YOU CHANGE" "THE PARAMETERS K1,K2,A,B."*4" SUGGESTED STARTING VALUES ARE:">6)"K1=1 K2=1 A=5 B=5<XC(L)FYS(L)!PYZYZ/ZX1ĪX1AdX278ĪX278QnYZ1ĪYZ1exYZ158ĪYZ158pX,YZwL}:10)"EXPONENTIAL SPIRAL":"HERE ARE THE COORDINATES YOU CHOSE:":" X= EXP( K1 *ANGLE) * COS( A * ANGLE)CPI3.1415926536R7.RADR(2PI)<STPPI32GAX140^ZC0ĪAY80:1260qAY8050(ZC)w:31,11,158278,158278,11,1 AX,AYL0RADSTPC(L)AXLBX(CXL)(ZZZC2S(L)AYLBY(CYL) A=1 B=1 Z=0"7`"NOTE: KEEP Z LESS THAN 1(E.G.:.1)"=jat"NOW ENTER THESE OR YOUR OWN:"~" ENTER K1: ";BX" K2 ? ";BY" A ? ";CX" B ? ";CY" Z ? ";Z COS(A *ANGLE)"8 :" Y= K2 *(ANGLE)* SIN(B *ANGLE)"f :" Z=0 (01 ADDS THE 3D DIMENSION)"l $ ."SEE WHAT CURVES RESULT WHEN YOU CHANGE" 8"THE PARAMETERS K1,K2,A,B." B L" SUGGESTED STARTING VALUES ARE:"V8)"K1=2 K2=2 10) "NO ? THEN WE WILL SIGN OFF.": !P11500:PD "::c 6 ************************w @ SUBROUTINES J ************************ : 10)"REGULAR SPIRAL" :"HERE ARE THE COORDINATES YOU CHOSE:" :" X= K1 *(ANGLE)*:10)"2. EXPONENTIAL"3 :10)"3. LOGARITHMIC"[ :10)"4. SUPERIMPOSED SINE CURVE"g ::: "ENTER YOUR CHOICE(1,2,3, OR 4): ";CH CH1000,2000,3000,4000 22 "DO YOU WANT TO DO THIS AGAIN ? ";C$ (C$,1)"Y"170 : $ |" 4. SUPERIMPOSED SINE CURVE"U :" PRESS SPACE BAR TO GO ON ":ANS$o ******************** MENU FOR TYPE SPIRAL ******************** :: 5 " WHAT TYPE OF SPIRAL DO YOU WANT ? " :10)"1. REGULAR" A FUNCTION OF THE"; P"ROTATING ANGLE. YOU HAVE A CHOICE"] U"OF FOUR TYPES OF SPIRALS :"c Z _" 1. REGULAR : SPREADS OUT EVENLY." a d" 2. EXPONENTIAL: SPREADS INCREASINGLY." n x" 3. LOGARITHMIC: SPREADS DECREASINGLY." z 17)"SPIRAL"D8)"H.EDELSTEIN OCT 23,1979"J#y("PLOTS SPIRALS USING POLAR COORDINATES :"-2" X = K1 * F1(ANGLE) * COS(A * ANGLE)"7<" Y = K2 * F2(ANGLE) * SIN(B * ANGLE)"F K"WHERE F(ANGLE) IS          SSAJOUX" :14)"SPIRAL"W &:::"PRESS SPACE BAR TO END THIS PROGRAM. ":ANS$a 0::CSNX11,Y1SN AX,AYX,Y, AX,AYX,AY: X,AYX,YA LI 22x " DO YOU WANT TO DO THIS AGAIN ? ";B$ (B$,1)"Y"10 : 10 "THE FOLLOWING PROGRAMS ALSO ILLUSTRATE" :"THE USE OF POLAR COORDINATES:" :14)"LI STPPI64& X(L)AXBX(CXL)? Y(L)AYBY(CYL)H :3V "AXBX,AYh ,LANG0STPt 6XX(L) @YY(L) JX1X(LSTP) TY1Y(LSTP) ^0 hAX,AYX1,Y1 rX,AYX1,AY |X1,AYX1,Y1 3 SN((CYL)) X1,YSTART WITH A=1 AND B=1. THIS WILL GIVE"S "YOU A CIRCLE. THEN TRY OTHER VALUES:"} :" ENTER VALUE FOR A : ";CX :" ENTER VALUE FOR B : ";CY PI3.1415926536 AX140 BX79100 AY80 BY70 ANG2.01PIP11)"Y = SIN (B * ANGLE)"K Z:"THESE ARE THE HORIZONTAL AND VERTICAL"w d"LEGS OF THE RIGHT TRIANGLE FORMED BY" n"THE ROTATING ANGLE." s x" BY SPECIFYING DIFFERENT VALUES FOR" "A AND B,YOU CAN GET DIFFERENT CURVES." ' "b  :):12)"POLAR COORDINATES"Q:8)"H.EDELSTEIN OCT 22,1979"(:"ILLUSTRATES HOW CURVES AROUND A POINT"2"ARE BEST PLOTTED BY POLAR COORDINATES."<" THE X,Y COORDINATES HAVE THE FORM:"F:11)"X = COS (A * ANGLE)" 336) FQ::10518)"LUCKY YOU !"?::`10)"YOU BROKE THE HOUSE !"::::"(BUT ONLY BECAUSE IT WAS LOW IN FUNDS...THIS TIME.)"Z12500:ZpR$"LOSING "zR$"WINNING"RR PROBABILITY OF RUIN WAS ";RUIN<z"WITHIN ";NP;" PLAYS."l"SEE 'LADY LUCK' BY WEAVER (ANCHOR BOOKS)""DO YOU WANT TO GAMBLE AGAIN? ";A$(A$,1)"Y"101016)"VERY WISE!"Z11000:Z:FQ1100TN(16"NO. OF LOSSES: ";L5 "FRACTION WON: ";FS*"HOUSE FUNDS: $";RHq4"PLAYER'S FUNDS: $";RPw>HRUIN(100000(H(HR)))100000RHPCT0ĪNPHR:870\NP(R(HPCT.01).5)f"ACCORDING TO PROBABILITY THEORY," p"YOUS FUNDS: $";R(" BET: $";Be"HOUSE PERCENTAGE IS ";HPCT;" WITH ODDS ";ODDS;" TO 1.""PLAYER'S PROBABILITY OF WIN: ";P" AFTER PLAY"" -----------------""NO. OF PLAYS: ";N "NO. OF WINS: ";WbJ/l24:"YOU HAVE NOW HAD 10,000 PLAYS."cv"CASH IN YOUR CHIPS:PRESS SPACE BAR.":A$:660k24"YOU ARE WIPED OUT ! PRESS SPACE BAR.":A$:" BEFORE PLAY"" -----------------"" HOUSE FUNDS: $";H "PLAYER'ALB) GY! Y159ĪY159/ Y0ĪY0C (50G)0İ6000X (50G)0İ6020o &22:32:50G;" " +22:19:R$ 0LOOP2,Y :NN1:FRW(WL):F(FR1000)1000 DRP0İ4000 NRP0640 PV(16384) RV127ī660 XLOOP05,25225,25 215,15215,352 205,65225,65G 0,50R200,50RO 22p 10)"YOU ARE : $" LOOP1100 PLAY(1) PLAYPĪLL1:RHRHB:RPRPB:520 PLAYPĪWW1:RHRHPA:RPRPPA RH0İ5000:660 Y50(WPODDS: ";ODDSK PW((1(HPCT100))1000(1(ODDS1)).5)1000q " (PROB. OF WIN IS: ";PW " SIZE OF BET: $";B  6RRP @HRH JPPW TPABODDS ^J1100 h:3 r0,00,159 |0,50200,50 2 $1 8 "NOW ENTER THESE VALUES OR YOUR OWN:"\ " HOUSE FUNDS: $";RH " HOUSE PERCENTAGE: ";HPCT " PLAYER'S FUNDS: $";RP RP100ĺ"SORRY......":"WE DON'T ALLOW YOU LOSE MORE THAN $100.":220 " "$ d"IS PLOTTED AFTER EACH PLAY."* nX x" HERE ARE SUGGESTED STARTING VALUES:"| " HOUSE FUNDS: $1000 " HOUSE PERCENTAGE: 5 " " PLAYER'S FUNDS: $25 " ODDS(E.G. 9 TO 1): 9" " SIZE OF BET:  :#12)"GAMBLER'S RUIN")L(8)"H.EDELSTEIN NOV 29,1979"R2|<" SHOWS HOW THE GAMBLER IS RUINED"F"EVEN IF THE ODDS ARE 'FAIR'...THAT IS,"P"EVEN IF HOUSE PERCENT IS CLOSE TO ZERO." Z" THE PLAYER'S NET GAIN OR LOSS     ;"$";((DOBCOB1.005)100)100P"***************************************"cPRT$"Y"ĺ" "}PRT$"Y"ĺDD$;"PR#0"PRT$"Y"ĺ"NOW DO YOU WANT PRINTED RESULTS (Y/N)?":Z$:PRT$"Y"Z$"Y"PRT$"Y"::380MT";30);"$";COvC"=======================================""BALANCE EXPECTED IN CHECKBOOK";30);"$";((DOBCO.005)100)100"BALANCE IN CHECKBOOK";30);"$";B1"***************************************"!" DIFFERENCE ";30)"TOTAL";30);"$";DOB[ !PRT$"Y"ĺ:"PRESS ANY KEY FOR OUTSANDING CHECKS";:Z$:::a &{ 0"CHECKS OUTSTANDING" :18);"CHK";30);"AMOUNT" DI1M2 N18);C1$(I);30);"$";C(I) XI b25);"------------"l" SUBTOTAL CHECKS OUA$   18);DA$# L "BALANCE FROM STATEMENT";30);"$";BR s "RECENT DEPOSITS NOT SHOWN" I1M1 30);"$";D(I) I 25);"-------------" " SUBTOTAL DEPOSITS";30);"$";DO  25);"=============" GET OTHER ADDS AND SUBTRACTS "[ @"SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC."f JM2I1l T ^"ENTER BALANCE SHOWN IN CHECKBOOK $";B1 r *** PRINT OF RESULTS *** | PRT$"Y"ĺDD$;"PR#1":395 "PRESS ANY KEY FOR BALANCE";:WHEN DONE." M1I1" I1M21 C1$(I)" "< C(I)0d "CK NBR. ";C1$(I):(C1$(I))0300 "CK AMOUNT $";C$(I):(C$(I))0300 C(I)(C$(I)) COCOC(I) "I ,"SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.":"DON'T FORER BALANCE FROM BANK STAT. $";Bc :"ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"o I1M1z D(I)0 "AMOUNT $ ";D$ (D$)0200 D(I)(D$) DODOD(I) I "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN $ CHECKBOOK BALANCING PROGRAM G *** DATA INITIALIZATION *** Q(M120\2M2100<D(20),C1$(100),C(100),C$(100)F::5PDD$""Z:"ENTER DATE OF THE STATEMENT ";DA$d:"WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$ n:"ENT     ";A$ (A$,1)"Y"100" :4 10:18:"OK"D Q1500:QL : XX79Y79)ĪSSQUARESS1, LSQUARELS1K A(((SSLS)100)100)100x 22:"POINTS PLOTTED: ";LS;" AREA: ";A X,Y K(16384) K127990 130 23 "POINTS INSIDE SMALL SQUARE: ";SS 24:"DO YOU WANT TO DO THIS AGAIN?N IN THIS AREA." 4D 7"THE CALCULATED AREA SHOULD APPROACH 25"g <"AS MANY POINTS ARE PLOTTED."o A: F:"PRESS SPACE BAR TO BEGIN.":K$ d:::3 n0,0159,0159,1590,1590,0 x0,7979,7979,159 X160(1) Y160(1) (N  ::"14)"MONTE CARLO"(L8)"H.EDELSTEIN DEC 26,1979"T:"CALCULATES AN AREA BY A RANDOM PROCESS."#("POINTS ARE RANDOMLY PLOTTED IN AN AREA"-"OF 100 SQ.INCHES. A SMALLER SQUARE " 2"OF 25 SQ.INCHES IS DRAW V(SUMM10)10= "EQUIPROBABLE DISTRIB. OF NOS. 1 TO ";M] "AVERAGE FREQUENCY IS ";AV "WITH A HIGH OF ";HI;" AND A LOW OF ";LO "DO YOU WANT TO DO THIS AGAIN? ";A$ (A$,1)"Y"ī10 : 10:18)"THE END" P11000:P :0279,150 R1T& S(M(1)1)? "SSX,150SYB(S)SYO ,B(S)B(S)1V 6Rf @0,YMSX,Yo BHI0z DL1M FB(L)HIHIB(L) HL JLO1000 LL1M NB(L)LOLOB(L) PL T ^22 hL1M rSUMSUMB(L) |L Ax:14)"WHERE THE SET OF INTEGERS"; :14)"IS 1 TO M"C :h "WHAT IS YOUR NUMBER (M) ? ";Ms T1000 F(101000M)10 SX(279M) G100 M50G50 SY(GF) Y150(1000M)SY B(100) :3 0,00,15  16384:=(10)"THE EQUIPROBABLE DISTRIBUTION"h2::8)"H. EDELSTEIN SEPT 30,1979"P::"PLOTS 1000 RANDOM INTEGERS RANGING"Z:"BETWEEN 1 AND 100."d:10)"THE EXPECTED FREQUENCY OF"n:14)"EACH INTEGER IS 1000/M"$ ( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ    L L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1L JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOՅ ApN gHLhL8hpY gHL5hLPLg B X  /Bfh" KLqhASTEROYDER" /Bh" KLhT -------- ALIEN (20)" /Bh" KLhY -------- BEAM "  /Bg" KLg6" 2 Mz{ /BRg" KLVg?"2 MnoinoŰ 0pPpLf /Bg" KLgGAME OVER"  /Bg" KLgTRY AGAIN ?"pq gHLfL3Qlm < MlmilmŰ 0pPpL*f /Bf" KLfALIEN GOES AWAY!!" /Bf" KLfYOU WIN !!"L8hLSno z{ /B|}e~e(! /B JȄ gHLHeLeꄜ gHL`eLe\ gHLxeLe. gHLeLeP gHLeLe„ gHLeLfLf Mi 腀i腂ie~e(|}8e~e(Le( H H|}|}e~eॊ񥌦 /Bd" KLd "8ʅ HLdtuLe񥌦 /Bd" KLd+"( H H|} we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us andeʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J/ ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00           ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ   B(20((A$)2)):B0B1( B:A$:)  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASICd(4);"BRUNMENU" CENTER STRING A$  hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  J?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LHȱLFHȱAh`)? iZ`ȱ80  8``HHHȱH=> Fhh=hh H73`<.= >hh gHLHhh HLHhh H0pPPͩ`>%= hh HLHhh H0pPP jHI`+ hheHeh`- hh8H坪h`* hhLNI+ F0`# FLjH% F`'3 FHH = H TGhh Hi`"ȱ`$) )HLKH )Hh & & & &LwG`?HHH K Fhhh`(LF H: GLG G` GeHehL"H(- G H*hLG EHKKh IH 0h0` g @ꆡHȱ$Z.h][ȹȹȹ[LF@ Ȅ FLFhL@ {KLF/ KLF F Iꥠ$ȱА`H XJh[`H F Fhh`=LI$Z= FH$Z),h CHLF$h` E- FL[`Ў D0Bš:ȱŠ3 DeŦ L&ET轠eHŮ寰?hƔƕŐ呰ȥȽL>DL,D:0``8` K E)e腙H Eh & &eHeh &LʰM?Lp@Lf@ԅPՅة߅Z[K K EJ K F D0ܱ  Fȱ0̘e摠 DLND D0Ő呐Ű0L@ D K DLD0ȘH Jh yKe`ȱ`ԤՅŠ0塰 DeȰ$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4    eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pȱLFHȱAh`)? iZ`ȱ80  8``HHHȱH=> Fhh=hh H73`<.= >hh gHLHhh HLHhh H0pPPͩ`>%= hh HLHhh H0pPP jHI`+ hheHeh`- hh8H坪h`* hhLN KL g GOOD LUCK"` B X LD !   N   ) TO MOVE AND SWITCH(0) TO HIT ALIEN. "5f" KLofUPPER ALIEN IS 10 POINTS. AND MOVING ALIEN IS 20 POINTS. " Kf" KLfI THINK THIS GAME IS VERY DIFFICULT TO PLAY."f" KLf THE BEST SCORE OF THIS GAME IS '940' POINTS. " Kg" eTRY AGAIN ?"pq ApN gHL.eL!gpY gHLGeLPLd  /Boe" KL~eSHOOTING ALIEN" /Be" KLeTHIS GAME IS AN ORIGINAL GAME IN BAKED APPLE USERS GROUP."e" KL#f USE PADDLE(0mŰ 0pPpLbLPVlm 񥌦 /BOd" KLSdS" M񥌦 /Bd" KLd6" MlmilmŰ 0pPpL*d /Bd" KLxyz{ /B'c" KL)c "z{8ʅz{z{ HL[ctuz{z{( Hxy H|}|}e~exyz{ /Bc" KLcY"tu gHLcxyz{ /Bc" KLc "lmilBb" KLb1"( H H|}|}e~e2tu gHL]bLbpq Ap gHLbLdxy8ʅz{tu Mlmz{( Hxy H|}|}e~eᩥ|}e~e2 HL"aLd|}e~eॊ񥌦 /B\a" KL^a "pq Ap HLa拥! HLa!p HLa8ʅ HLa񥌦 /fg /B`" KL` "Z( Mi腂Ų 0pPpL_tuxyz{ /B`" KL` "noe`eadnoebecflmilmŰ 0pPpL[( H H|} HL_noe^e_L`hijk /BC_" KLG_@"jk( Hhi H|}|}e~enoeehnoeejL`defg /B_" KL_6" < Mdee_noeednoeefgiL?^L`noeehinoeejkjk( Hhi H|}|}e~e2 gHL^Ld~e|e}hijk /B^" KL^ "jkjkgfg HL1] ,Gifg ,Gdedefg /BV]" KLZ]Q"fg( Hde H|}|}e~elnoe^e_ gHL]L?^noe\e] gHL<^hihirs ,G gHL<^noe^fgnoe\e] gHL'\L]fg( Hde H|}|}e~e gHL\noe\e]ीi腀L_|}e~edefg /B\" KL\ "de Hdede HL\!def Mdefg /B&[" KL([ "< Mi腂Ų 0pPpLZlme`eadlmebecflmilmŰ 0pPpLWlmlminonoe`eadenoebec㢦k HL'Zlme^e_Lj[hijk /BLZ" KLPZ@"jk( Hhi H|}|}e~elmeehlmeejLj[defg /BZ" KL