' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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- ( D Ϡ@跻~!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 ~(`F d ֠z# u`M6|_vLαqʱβqʲ_`NαqӱβqӲ_`Qαqʱβqʲ_eSαqӱβqӲ_eV\[`@:()%Mҵ_!\M6o8αrPβa@G_y`\M6eo8αrPβjq`β$t-oγqβαq-γr` r%@p()`%@p()M`@:()%d2ea()H@M6|a(Ӡ)IŲE()\a@Iű'$a(̠)Iűa@*)#2rI!.a()I˹a()H()I¹$3a(Š)G`%a(ԠԮ)G78`7$va(ԠҠ)FֵE()GM6bֶG)God ed!eM6|a()G\v4\bεqa()H()IӱE()GM6bӲM6|* `Ա$ԲqԹԴqdԱ_ԲqԹԴq2a()H()IԲE()FԴa()IE()FԱ A@p()`ű8Ű rű8Űa(Ԡ)FѱE()FѲ`-r$UVW@q-r`%q>@Brp@*#r@Brp()YM6a@\x_W\d eUαVӱWӱUβV8ӲrW8Ӳr\eYβYαd e M68oPa(d^\a`/?rԳ%\/*fUıVW`-ır-ırԳ%\!z`-ır%-ırq-ırԳYı&ıq/?r`/?drԳ-ır%[.a(ˠĠנҠŠ)1-ırq\a@E(ġ)`ı$[X`ζ%\\-ѳr`7ζ%[ζq_8$Kqq\Tq\T[&Ma(͠Ӡġ)[@R`- r%q2ԳųqŰ`ų%qųUԲVWԳ/Tųq88 r8Ų r8drŲ űr VűqűųXYԲ!\ԱqԱԳqԱdԱqԱr%[Y4\űqıq/?8- rrr`ı$H-ırq-ır/?r`ı $M9`ı%\D>\a@E(Ġ)F-ırdE()F-ırdE(ӠϠҮ)C`ı$K[TH\\-rqUVW@-rq61?-rrY-ѳrq6ѳ\M6|[3\`-ѷr%[P8Ѷroѵb-ѷr_v qŰqаűq8drŲ*UıVW -ırqYı[D/q/?rαqӱβqӲ\a(Š͡)\a@\D1qűqű`ű%űq\` %[`ű/? r/?e\M6[bd ed!eld"e d#eM6[vd"eδd#e !d ed!e(o P[δq\vM6[Id ed!e(oѱP8Ѳra()GP8Ѳrb-ѳr_v!d ed!e\lo[M6$:-&a()G\a(Ǡ)E@*)#/rE()(0cʴq\` qʴ\ֳqֳ_D :`/?r$?YӶqӳ[-ѳrq1?-ѳrr\q-ѳrӴq qdq  ;-ӳrqqq\qӴq\qq6ӹ\ Ӷqӳ[,cS()' 1q1?rhñqZòqZ6`ñi22_-#*dزqٲqηqٲθq8r1nӵqزٲƴqز زٲ ٲ[\q¹q \$UVW˹`/?r-r$+q/?@r`-rd -r $-rq-rdY.UVW@-rq6-r/?                WѵqѱѶqѲ<\2oѵP8Ѷra()GP8Ѷr`ѷѳ%\`ѷѳ%b-ѷrGYY[6`7ζ%δqq\h\`@:()±%[`$=`±$a(ŠŠҬŠŠ)FE(Ԯ)c[/`±$S()'ù`q`Ʊ$%`ѷѹ%\ѳqѹq׹`ѷѹ$ӳq/?@r\\\q  Գq \R__q\+UV6WUV6WѵqѱѶqѲ\2-ѷrq1?-ѷrrYY4`7ζ$8UV6WUV6ӵrqӳqӵ\N\\N`-r%\`%[$q8ױrԳqױ\R_2\(\ѳqѷ\Fӳqӵ\\\_ \,\Aѵqѱ88ٱr80?ٱrrrѶqѲ88رr80?رrrr>\2ѹqѷѷqѳ׹qqq\%[_&S(Ψ)'` %[\,\ ױq&`$бq@p()qӳ\ױqױƲ`Ʊ$`Ʊ$`-ӵr$4a(Ġ٠)E@E(Ԡ)FٲE()GM6bزM6|qرqٱ\d,-ӳrq--ӵr$ q\1[@ \-ѳrq-ѳr-ӵrqαqٲβqز`ζ%\_`Pq`-r$d!Za(ΠŠ)@p()_(da(РҠΠ)S(נҠɩ)&@n`@9()$ s`@:()%[2x\8S(РҨ)'`q\`ֵӱֶӲ%[ q[` qбq@p()\j `Ʊ$t a(ġ)[Rt αqٲβqز\a@*)#/rE(ԠΠ)E@E(Ԡ)FٲE()GM6bزM6|~ `-ӵr%[`-ӵr$  qӵ \ֱqֱ\ _ ``ֱ%ֳq-rq6ֱֳ'ֲ-rq-r8-r6˴r[= \\-rqq˹q˹-ѳrq-ѳrd\L&αqٲβqز\``ζ%\_Գq\R`%[-õqֵӱöqֶӲ`õö$\q\$\βqز\`lY[,ϱq1?õr1?ör`ϳ$õq6õöq6ö5ϲqϱϵq8õr϶q8ör/ϴq/?rõqϲϵϱϴöqϱ϶ϲϴٲqʱõزqʲö_n2ֱq6-rֲq6-r'ֳq68-rr [P`ֱ$ q8ֱ/?rr8r8r\.D`ƴ$X`ϳ8/?rr$lGN\(q-rq-ѳrq-ѳrd-ѷrq-ѷrd0?-ѷrr\LS`ζ%\Y[X`-ӵr$bY[Pbֱqֱ\-ӵrq-r-rqαqʱβqʲ\`αqٲ8r$|Y_-|±q±\`±%a@E(ĠΠ)G \Y"`±%a@E(Ԡ)Gc[q\hq_h`%[˴q7˴>UVW@`-r6(/?dr-r6˴$0Y[0\\õqʱӱöqʲӲ':ϳö%qh \1q0?رrq0?ٱr/UVWqرqٱq`$, "`õö$,q,Y[@S()'ٲ'ز[2TUVW@`-r'%-rq-r'Y[hcıq\4r±qUVW@`-r'@p@* ı # ır[\a@E(Ԡ)G%bʱE()GM6bʲGM6|a()G[a()FֱE(Ԡ)[a@E(ġ)[`@:()$5`1?õr%õqõ0?õr`1?ör%öqö0?örq.?1?õr81?örrҵAr`õ%q`rѶq8Ѷr<ѷqѶѵ['Fٲq8ٲrزq8زrP_n[x@p(РҠҠӠȠӠ̠ҠŠ)[@p(Π)[@p(Š)[@p(Ġ٠)[`-ӵr%\'`-ӵr$`-ӵr%@p()ƱqqYqƲ_` Y_`E\ -ӵrq¹q¹a()-ѳrq-ѳr \`ζ%\_ ƱqqYqƲ[3(ѵqѱ8ٲr8ٲrѶqѲ8زr8زr'2ѵq8`@9()%-ӳrq-αqʱβqʲqʲqʱUVWƲq8r,qرqٱ\d`αηβθ$Y[*`б%\`αqηβqθ`7ƴ$ `б%\V`زʲٲʱ$`-ӵr$Y`б$`[#`-ӵr%\%q ta@*#rGyM6|o P[,@p()dҵ^edҵPe\V_`,@p()dҵ^edҵPe\V_`P`ββαα$`7-r%[`1?αӱr1?βӲr%[w['dҵ^edҵPe\ƱqcM$a(Š)FE()FԱ ca(Ϻ̠)a(ͺԠ)cI$@p()`˹%@p()`ű%@p()\J$a(ŠŠΠĠԠŠ)a@E(ӠΠ)E@E()$@p(̠)`˹%@p(٠)d$&@$`$T$`-r$T$J$ıq\>_$T$`$^$\_h$^$\8rh$`˹űԹ$$R$رq8˰˹rdٱq8°¹r2q8رٱر88԰rdԱrr˹°%$\XoP a(Π)\ #\\$\\vεq $S()' $`ε%\$` $@$$εq\b$$a()a()"$UıVW\'$bıE()E@Yı,$\a()E@1$a(Š)6$a(Ġ)E@*)#2rG ;$\v_ #`@9()@9()$##S(Ԡԭп)&@#`@:()@:()$##d"e M6o#S(ԠРҠο)&@#`@:()@:()$_##S(Өة)'˹#`˹˹$##S(Өة)'¹#`¹¹$##_i# #\q԰Űqаq ԱqŲq2i#q\ ˰q˹°q¹,n#a(ΧӠǠŠ)F԰E()FԱc5s#a(ŠŠΠĠ)FԹ԰E(Ҡ)/x#\a(ϠˠĠ٠)F˹E@E()4}#a(ӮŠ̠Š)F¹E(Ӡ)Mr.?Lr F#\XoP#P a(Π̠)!U#P a(٠׮ҭ)[#o P a()GPa()C\#P M6a()GM6|a(ŭˠ)GM6a()M6|o-_#¹q/?r/?r˹q/?r/?r9d#ӹqԹqc ԰q` d0?rrq_c`$a@E()[S()'Գ\R_G-#qqӳqӵqO4@rC@"rC@"rD4@r@p(ˠª)W2#qqزqٲq˴qqֱqֲqֳqN@"rD4 rC@"r<#ҵq.?a@Yδqζq_vX\a(Ԡ)E@E()GTŲb_G \ζqUıVW`ı%Yı`-ır$*\a@H()_4*\>/4Yıδq`- r$v\Mδq _v$S(ϠĠҠĠ)'0`6 $q8"eδM6[7q\c`$P a(ϠӠ)[5\M6a()H()H()H()M6|!UVW@`-r$_8\\PbʱE()GM6bʲGM6|a()IֱIֳG`ֲ$c_ıqֲ\P±\@\F`-ӵr$ \"_qӵ\ֲq\Yq_(%q\@ֵqٲֶqز\_A\@õqٲӱöqزӲ\\'a(٠)F\v_( \_(["a(Ҡ)[&'`δ%δqd`@:()$ZõqٲѱöqزѲ_dZõqٲӱöqزӲd\On\'`@9()%a()G`@:()%a()Ga()FH(Š)F\v_(`%_ q\TAS(Ơ)'±`±$(`±±$\"_ UVWˠ)a(ˠȠ)Ha(ˠ)a(Š)a()a()#\v2(S(ԠӠҠ)'`$  -`ε%\2`$=<S(ԠҠҨѠҠө)&@`@:()@:()$(\@&PѷrP8ro,Ba()GP8rb-ѷrG`ѷѳ%\ VYѷ[][\ζq\UѶVWPa()YѶδq \v_q\ca(ŭŭ)% εq\ba(Š)*a([\õqʱӱöqʲӲ\P\1\a()E@E(Ǡ)E@*)#/rE()ʹqqӳ\` qʹq[A`±%[a(ϠҠ̿)S(Ҡͩ)&@`@9()%±q[8`ζ%[\[:\T=UѷVW@`-ѷr$Vq8ѷrq8$\`ֲ±$ \\S8αqʱβqʲ\qȱ˷q\\ֱqֱ!\c\\\NY_ Y_p_`±$qù\_%UVW@`-r'6%\Y#\`±$\\\ùg%[_3cS(Ӡٺ٠Ϡ)'ȱ`ȱ%[>`ȱű$a(ŠŠҬŠ٠Š)FűE()_#`%[˷q`±$"˷q±\\\q\h`-r±$`$4UVW@`-r$0DqdeNq_&a()o Pa()oPa()oPa()[UV W X q.?rq.?rq.?rq.?r\Y[q q.?r&`.?r%[0q/?r":`.?rqq("q1?r`1?r1?r%q1?r!,qqq0?rq0?r6UVW@dedeJdeMTdeM^qqhY[rd6ed7e |oPa()Pa()PrdUVWYnUVW- xo P a@*#rUVWKYYUVWYMM UVWYo P a()Pa()UVWYo P a()Pa()UVWY\_nQҮʮ N@"3r<@p( РӠŭΡ) (M6%2o P a(ŭΠ)47oPa(ԠŠҬî)<UVW Y FM6&PMd6?ed6?ed6?e Z\\FMd6?ed6?ed6?e P\4\ZUVWYdUVW+ xA]A]ŭA]ŭΠ<]ŭΠԠҮʮA ]<]7]ŭΠΠ٠#&QM]0``E N]ZZuZl|ZhuZepyZclu|Zbjqx~̠Ơ)G_%'b%a(̠Ҡ)G_%!l%a(̠͠)G_%v%a(ΠϠ)G1%a(Ҡ)\a(ΠƠ)E@E(Ҡ).%a(ŠҠƠ)FE(ΠӠή),%cS(٠Π)&@`@9()@9()$F)E@E(Š)%`˹$0%`˹$:%&%a(٠)G_D%0%a(Π)G_D%:%a(ԠӠ)GD%a(Šή)c6N%a(ԠĠ٠Ӡ)a(Ҡ)G$S%`˹$b%`˹$l%`<$v%X%a(Š$b԰E()FԱ E(ӠƠӠ)FԹ԰E(Ҡή)a@E(Ġ)E@F˰˹G\a@=$a(Š)G`˹%a(Ơ)F˰Ga(ΠӠή)cW%@p()`%@p()`˹$%@p()`<%@p()$%a(ӠA]ŭA]ŭΠԠҮʮР N@"/r8@p( РӠŭΡ) M6%(o P a(ŭΠ)<\ &@Τl4И`(ҌTӸԀHլt<נh0ٔEL (2<FPZdx,6^hr|$.8=B  4>HR\fp  & 0 : gCB@@@@9 РӠŭΡ? G MSY_fmw}66L|DŨ p8ǜd,ɐXʼ ˄L̰x@9`0``@@@```@@x|?~@gg`aG@agc7fld`pxxx>x<888<0px| 8`ppp``|@`?pyy`xa@ya{1~| x x||~_O|p@````08<<<p|~`>@>>>>@@?@8@@   AN":B$:B$"Y"10008 "DIFFERENT DIE?":C$:C$"Y"10> Q R((1)38)1X Rw "AGAIN?":B$:B$"Y"1200 "DIFFERENT DIE?":C$:C$"Y"10  R((1)18)1 R "AGAIN?":B$:B$"Y"2000 "DIFFERENT DIE?":C$:C$"Y"10 XR((1)49)2# [R7600* ]RH b"AGAIN?":B$:B$"Y"600m d"DIFFERENT DIE?":C$:C$"Y"10s ey g R((1)24)1 %R *"AGAIN":B$:B$"Y"800 ,"DIFFERENT DIE?":C$:C$"Y"10 / R((1)34)1 R "AGAI T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `O ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃLh` L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP YVPL6 ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` ăL: i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OO)@:a(̠ޠ)Pa(ޠ)Pa()$:Pa()GPa()P a()(:d2eq.?-rrd-re@[y]̮ǠԮԬ|y]Ġy]3}] U U`0`VWY[&d"e M6[&o PM6&d"e 7M6&d"e M6['M6P 'UVWa@GYcM6|[,:M6d2e?a(Ӡޠ)GPa()H:a(ޠ͠)GPa()a(ޠàР)a(Ġ˺)!\&cq\M6_& f&q\_H& p&\ _R&Bz&a(Ƞǿ)FE()G\2`$z&`-r$&\&_R&)&q-rq\q \&\L[>&M6a(ԠȠ٬)E@ca(ՠĠ)\&[&\&&\&&U)oa(ҠŠٺ)G+&\<`$ &ca(٠Π)GM6d_&2 &qq-rq\:\H&q/?r_H&qq\\&\|mR&M6a(Ӻ)ca(٠ŠƠŠ)a(٠Ҡ)a(ԠҠҠL%M6oa(ϠŠΠө)oS(ԠӠҠſ)&@%`@9()%@p(Ġ)O%o a(ΠҬ)E@c\&a(ŠŠƠŠӠҠҠ)%UVW \Fa()GYI%coa(ŠԠҠ̠ŠȩM6qY$o @p@*#r\a@E@E@E@E@\q8r\`.?6@r$$"$d6?eM6|d e:%q/? r\Xq/?rqd/?rE&%qqqqq-rq-rq-rqq2q7a()GM6a()a()GPa(Ԡ)Z#a()GPa()M6|a(ϠϠ)dededed eW$oPa(Š)o \'o\'cca(Ԡ٠٠Ϡ) $@p()ed%eV2#N@"UrC@"rC@" rD4rD4rD4rD4rD4rD4rC@"r@p()H<#O4 r-rq-rq-rq -rq-rq?=#-rq-rq-rq- rq- rqO#M6d e oq `%q`%qCj"c\&a(ՠŠ)E@*#rE(Ҭ)E@cc9"\&a(ĠՠŠϠ٠ο)G\`7$%Q8(#q.?Lr.?Mrqqq+-#ded&ed)\&_!/4!a(Ϡՠ٠ԠϠԿ)G\`%[wZ!d"eM6`%a(ҠǠӠΠĠҠ)F c\&q `$!%!a(ҠԠȠӠ)FE()_`"'!a(ՠŠ̠)F6E(Π)M`"@p(ҠĠ)\&[ \&w[5xca(ŠˠӠĠΠҠ)q [G@\&\&a(ՠŠ)F6c\p`6$d"e\ \&[\\c\&_ 8 \&M6\jca(ՠŠԠҠ)\&3 a(ĠՠŠĠԠƠĠŠ)F E()d"e.?%rMM6a(ϠՠԠϠſ)G\`$M6a(ҠȠǿ)G?a()FE()G\2`$q-r `$\&_Dq-r q\\&a(ŠנŠ)\L rE@Ycq\q-rq[L~@p(̠Š٠)a@*#rGD-rq- -rq-rF-rq-rK[fM6\|a(ҠǠӠȠ)F E(Π)a(ȠҠȠՠӬ)E@E()ca(ՠŠԠƠ)qq_(3ca(נԺ)FE(Ӻ)F_(.M6ca(ՠנŠ)Gq\~ccOLcP a(ɠΠӠՠҠΠà)c@p(Ҡ)UVWPbE()G\~3Va()F-d[4M6`$a(ՠŠԠΠԬ)E@c_(Fa(ՠŠ)FE()cS(נȠϠՠԠϠ٠)'`%[6`$ca(ՠΧԠŠԠȬ)E@c_;\&q\qq q`$Oca(%[qqM6_*FRq8rq q6a(ĠӬ)E@E()\&cTWa(ҠΠӠΠ)ca(Ҡ̠ӠŠ)F\q_(*\ca(ҠԠӠϠ)c\&[$pq `%qq$\o.?"ra(ؠӠ)FE()o.?"rS(נȠϠՠԠϠנ)'?4M6`$*`<%[\&`/? r8r$R9>ca(٬)E@c\&a(ՠŠΠĠ)cMHa(ϠՠԠϠ٠Ҡ˿)G\`q\Fa()cRa(Ӻ)GPa(Š)a(Ϡ)GPa(٠)9a(Š)GPa(٠Ҡ)q\!\xd8rM6_b< M6@p()P\'Pa( Π)cqq\pa*`F E()GPa(٠)Pa(ǠӠ)FNla(Ӯ)FE()GPa(Ԯ)FPa(Ů)FDva(ԠȠ)F E()GPa(̮)F=cb8 rE(Ӡ٠͠Š)G-rq-rqIa@*  # rE(ˠ)FE(ӠĠԠ)F\q_dr@p(̠̠)@p(ӠŠԠ)UVWPb-rE@E@*  # rY[X@p()o P\'Sba(Ӯ)Pa(̠Ϡ)Pa()\ca(̠ՠ͠ſ)G\`%[Mx\&a(Ӻ)GUVWP bE()E@*  # rYo\{oP q\M6\&q/?r2q/?r -rq`$)ca(ǠŠӠԠ)Gq\Zc.ca(Šο)G\`%[_p4ca(͠Ƞٿ)G\<`7$qq-r7ca(ϠȠٿ)G\<`7$qq-r-M6ca(͠)Gq\Fqq_Wdo#rE()F-rYd"e.?%rM6[-pM6@p()P\'Pa(Ԡ̠)Czca(ο)G\<M6`-r7$ca(͠)Gqq`%q7a(Ϡ)G\Fa()Gq-rq\_q=bE(ˠǠ͠àŠĠΧΠ)@p(נ):a(ŠӠŠҠź)a()_q/?r/?rUVWq/?rq/?r-rqlk8/?prr /?2rHPbE()E@*#rE@*8rI@p@*#r@p@*  # rq/?r_$9@p()@p(̠)q/?r7/?r*$P\'P\'ccqqP;.a(ՠŠΠĠ)G\ZccPa(٠)E@_ P|@p()q/?,rq$/? r/? r-rq-rq-rqV\&a()E@E()c\&a(ӠԠ)FE(Ġˠ)FE()_ d@p(נȠ٠Ǡ)@p()q/?r%\ _l!\UVW\UVWYZ3fa()G`-r'/?r-r$Sz`/?r-r,$@p(Ҡ)q /? r/?rq/?r_<@p(Ҡ)qd/?rq /? r/? r_F@p(ŠŠנ)G6a@*#rca(̠ՠĠ)FE()G4\cc`$qP a(ԠȠΠˠӠ)_ '`/?r$a(Р̠ŠӠŠ)G_#a(է̠Š٬)E@_ La(ՠԠŠŠ٠)qdq`7%\(`/?r$@p(ƠҠǠҠҠԮ֮ŠԠϠ)]`/?r$q/?rq -8/?rra(ҠĠΠŠ)G_Bq/?rq 8/?rra(٠ĠM6`ԱԱ$ `7$r\ 86(7Աr`$ 4r`Ա$ q/?r\p` $|\x_9|ca(נՠԠ٠נ)\(\H&\&_ R`d$ @p(Š͠ź)P UVWa@*#rG\Ycc\&v`;Pa(ՠŠԠԬ)E@`/?r$q_63qd/?rPa(էŠΠĠҠ)F]6q8r8r`%qq8rdq8rca()E@F%@`7$h\(\$q2Hh\(Աq\ q c_&a(էŠΠŠ)Gq`7cca(Ů)FE(ٮ)Gq\ZccE@p(ŠӠĠ)`%q`%q6`/?dr2$Ka(ŠҠҠӠԠ)ca()E@Fq67_hUVW\\Y\&d6?eJc`/?r$P a(Ҡ)Gq/?rq/?dr_Ga(Ҡԡ)G\<q/?0rqd_ /?rWcca(ҠǠӠΠĠ)q`  %q ["jca(ŠƠҠ)G[tdedeM0y\&a(ՠŠ)FE(Ӡ)c4~qK/?ra(ŠŠӠ)Fq_ G<q/?rdede 8rUVWM/7Y[>d6?ed6?eΠĠҠ)E@*#rGc<\&` /?r $ P a(ŠŠӠ)FcMq`%[Pa(ՠנŠ)FE()`%[\&X$M6c\ja(Ҡ)ca(ӠŠ͠)FG\q-ra(Ϡ)F \ `/?r$ ^ @p(Š٠ӠӠӠŠŠҠ)_Y @p(̠ǠŠϠӠǠǠϠ)Pq/?rq/?ra(ՠŠҠ)qq\&[C \ a(ՠŠΠĠҠǠ)F/?rE()\&& q\q_ A oPa()GM6a(Š)GM6|a()Pa()5 d:e@d;edede\<\&c[ՠĠǠ)E@a(נԠˠϠˡ)q0q4 \`$`80u 6r$ _ \&\x\_= ca(ϠՠԠϠ)a(РҠϿ)G\`%[ \&U oa(ҠϠӠΠ)a(٠q`$ ccPa(ϠĠ)Gq`$ a(Πš)_ X \Za()cq `d%qdq 8dr PbE(٠): cPa(Ԡĺ)Fq6qcP\([ `d$ qcca((էŠ٠)M6|_ 5 deq.?rq`-r$ \ q_ S qq-rq\ddeqqXUVW-rq-r Y[S de@q@p()M6\&\'cP a(Šχ)Gq\F\&V q `/?r$ `/?r$t`/?r$2 \ q_ J2 `/?@r$`/?r8xr0$`/?r$5< `/? r$\`/?r8r$/Z oP a(Ԡ٠٠Ϡ)`2$ 0d cM6P a2r8r\q`$ F q98rq-rdq8r<8r] q8r8"rqq8-rr-r'  q<8:r `.?6@r$M6C(fq\_ \p_ \4!_`%\ `d$_K. cS(נĠȩ)'`(K$. qq\_ ` \d_ \X_" `%q`%q6\&\ \&\&` $A qq8r8\&qqqq_l@q\d_r\&\Xq_=qqM6oUVWq6\Pa()G*\Y`-r%[qq[l\ q\\&\M6_2 \&_ 4q\_qq\&c\P a(Ҡ)G\Fa()_l\&qqAca(Ҡκ)G\<`7$qqq_lFq\q/?r_ x\p_ \4!_q\_.`$ca(ՠŠŬ)E@\&_ r-r@Ba()FE()G\Fa()G\Pa()F-rGP\ZP%b-rL-rq-rqYd"e.?%r\M6_2H`7$`$ca(ȠϿ)FE()G\2`$qDq-rqq-rq-rq-rq-rqԠԠ)GUVWB-rq/? r`-r$qq--rrq\dq-rfq8r/? rqH/?r`7%q/? r-rq 8r/? r%8-rq8)a(Ӡ)a()P a(Ƞο)GDdexdeF7Ma()FE()G\2`$[ q/?r/\&`$o a(ϠϠ)_aa(ήϠ٠Š%qbq[gM6q `$@p(ĠϠԠŠ٠ĠϠ)_S@p(ĠŠΠԠӠŠ)ha(Ӻ)a@a(ԠӠc`7$Nq`$&a(ŠΠ)Gq\Za()_N#&q6\Za(Š)_N10a(κ)G\Fa()ca()'Nd eoP`$@[VXq8r$qq`1?r%q`q`%\XPq.?%rq.?$rd eoPa(ź)E@*#rE()FE()*qca(Ⱥ)F8rE()cTqa(ӠׯϠԺ)FE()qcq`7$0a(κ)G\FccSa(ĺ)FE()[_q`%[Odqqq8r86rq8r86r>nq`.?r$xqqF7d7`$_[xq0?r_na(ٯΩ)G\2q)[I@p()ήΠҠˮîӮ̮)a@*#rG[vP@p(ӠҠ̠Ԡ֧Ƞ)a@*#rG[0Z`/%bE()G`0%bE()G5 K_(#UVW Y"q6?q.?r.?r.?r.?r['(cPa(Ԡ٠٠ϠŠ)G:2d6?eM6q.?6@r0d6?e`%q [G<@p()R@`@9()$AUVW `@*#r9@*#r%[Y Aq[gF@p(                               : :* "I,II,III,IV,V,VI";2A$BA$"I"400S(A$"II"600e2A$"III"800w<A$"IV"1000FA$"V"1200PA$"VI"2000R((1)50)1R"AGAIN?":B$:B$"Y"400"DIFFERENT DIE?":C$:C$"Y"10 <$%%%,%<,%<$,$$??'<,,,,,556555.-,.-%-,.5-66>??<'?65-..%6>6?6?77>''$?<<<$?-,%-%--,56-5-56?>>6>>666?<'<<<$?$7'?$$$--%%%6.-%46.5.677><<47...66''''<$'?.->>>$%$,$'?>6?>>6..5-,$$;??>?>7?'$$%,$,-$$$$<$'<$$$5-.-.-.-...666>>6>>6>>666>7?7?>?<'?7?>'$'$$%<$$%$$<,--,%,$-$%$$%%-,55-55-.%-5-56.>656567>>>>?<7>'$?>>>????'$5.667?6?76'-$-56666666666>6777777>6?>?7?7?6676>'$?$'<<$,,%<'??7??7.657'?>$?656>>7...6567'$67?>>66.66766'''$$$%$$777>677??>6777.-66676776?>$$$$$<$$$%-%$,$$-,-,-%-$%,,,,,,$%$$$$$$$$$$$-.--%-5-?>66..65.56767656666?7?.--5%,$'$,5666666665656666656666556?>>$$<<<766676?66>>666665.65666?767>666>?>'$''$$$$'$$$$$'$'$$$$$%,665.$$$'<$655656%$$'$$$?$%%$,-,-.%--$,5-5.-.6--%-%%-,.5-%%---.-66..67???7?67?<''?'?<<$%%,$-,$-,---,$5..5--%5>>6>67>76765666>>'?76''$''$$$$??$<$?$%$-%%%%,,,-%-5666657???$?>'??'--.-%6----,465-%$5-67.677766677?67?>?>''''$<<$$$<'<$'$$-676766677?<$%<$%$%,%%56..7.6??7-%$%'?<<$$-,-..667?7-55-%'$-%<,%-%%56%$%,-%$$-.66>6.6767>677665..666>6?67>7??7656>66>766566'<<<'$',77?$?',,$$'$/$%%,%$$,$$$<$'$<$<$,$5--,-,-,55767>>6655..-..55>6..656??>>6777?'''%?<7??$?''''<<$$$'$$$%%,%%%,,-,%5-667>?$'%dI$,,,56565.6.7?7?>'%<,,<$'--67665656.6566766><'$$$$%<77>67.66>6.>>7''$?>?''$$$$%%%,,$$$$,$%-,%,6.6776>>?77??'?<$%,,,%$,,.6%-,,-7?>7..5>???>65>65--%5-$%,,$--$$?>65?<$?>'<''?'?''$?''<'?$''$'$'$%<$-6%55-.-5-5-.65>6?>>67667>>>?>77676?>>>6?><',,$%%%$$<$''$$<<<'?$?>>6776.5777?7>>75>>767766-6??><<$$$$,$$$$%$%$%$%$$$%<$$5-,%-...677?>??'$',$>?<6?7?>>77?>?>>?>?>6.66>'''$?7??7>'?,$-$$%$$---$$$$$$---.-55-5.5-66%%5567.675.>?<<<''?<<$''''<$<76..6'''$$'<'$%$,$,,-5--%%-.55-..5-.55>???''?66>'''???---...57?66.-$--%5656567.%,5-677.5>65>>7.67>76777766>>><'<<<$<$$$<$?<$$----------66666666???????????$<$$-,$$$$-------.666....66676.65>7?7?'$$<$<'?-6-557>>'7>>6?6?>7??''<$%$$-------------66666>??76676>766666666666666>>$<$<<<$<7???''%%%<''$%-,,,-,,-..55-6666666666.----------------%,-,%,$,-%%$<$?'<6''<$?6766?>?77?'6-.656?<656?65?<<'<'''-%$<$%'$$?><'<'<'$dIIIIIII!% :"PLAYER.....";NAME$(N)t 4);"TERRITORY";31);"FORCES":I140:"=";:I: N0NPLAYERS2310 I142:R(I)NĺI;8);N$(I);18),A(I) I_ 70` *** SUB TO DOCUMENT STATUS OF A CONTINENT ***e SĒ3:2250 FLAG1Ē2:2250'0;IX(I),Y(I):ILN11000:Nr(16384)127FLAG1FLAG:2225:FLAG0: *** SUB TO DOCUMENT PLAYER STRENGTH ***  :"WHICH PLAYER DO YOU WISH TO DOCUMENT...":::I1PLAYERS:I;":- ";NAME:2130:V ***GRAPHICS ROUTINE FOR WORLD MAP HIGHLIGHTING INDIVIDUAL PLAYERS:"WHICH PLAYER.....#":::I1PLAYERS:I;":- ";NAME$(I)::I:S:S1SPLAYERS2210:"PLAYER.....";::NAME$(P)::1:0:FLAG1I142 R(I)KEY9KEY2700,2100,2200,2300,2400,2500,2600,2800,2900C32000Y4***WORLD MAP****>FLAG1:2700:10)::"WHICH TERRITORY?";:N:::0:1H2:I142:IX(I),Y(I):IRFLAG1Ē0:2150\3fNX(N),Y(N)(16384)127FLAG1FLAGDISPLAY INDIVIDUAL DISTRIBUTION."F"4: DOCUMENT TOTAL ARMAMENTS"p"5: DOCUMENT STATUS OF CONTINENT.""6: DOCUMENT STATUS OF TERRITORY.""7: DISTRIBUTE FRESH TROOPS.""8: ATTACK!""9: NEXT PLAYER":"(1-9)....":(1)PLAYERS1)#.N$(I):A(I)1:I=8I142:X(I),Y(I):ITBI16:CNT$(I):I^2980x:"":*** MENU *** :2000"PLAYER #";P;" ---- ";::NAME$(P)::"1: TERRITORY CODE NUMBERS.""2: DISPLAY TERRITORY."!"3: PLAYERS::PLAYERS3PLAYERS9ĺ"INCORRECT RESPONSE.":1005^I1PLAYERS:J(I)0:T(I)1:I:I1PLAYERS:"ENTER NAME OF PLAYER #";I:NAME$(I):I:"THERE ARE 42 TERRITORIES IN THIS GAME. THEY HAVE NOW BEEN DISTRIBUTED."$I142:R(I)(42 :T0:XAB:R(X)PTT17<X:TBA1N(N)1>?NPDN(1)1CC5bFN(2)1CC2tHN(3)1CC5JN(4)1CC3LN(5)1CC7NN(6)1CC2W"WELCOME TO THE GAME OF 'RISK'.":<"HOW MANY PLAYERS.......(3 - 9) "::I424:"HIT ANY KEY FOR NEXT PLAYER.";:AN$:d***SUB TO CHECK OWNERSHIP OF CONTINENT*** zC0:N16:N(N)0N1A1:B9:570N2A10:B13:570N3A14:B20:570N4A21:B26:570&N5A27:B38:5700N6A39:BERS:T(N)0:U(N)0:Nm6:14);::"GAME STATUS."::N1PLAYERS:I142:R(I)NT(N)T(N)1:U(N)U(N)A(I)v8I,N@:"PLAYER";12);"TERRITORIES";26);"ARMIES";35);"CARDS":I140:"*";:I:TI1PLAYERS:NAME$(I);16);T(I);28);U(I);37)J(I):::2000%***SUB TO PLAY CARDS***;EXTRA0:J(P)3ı]N((1)31):J(P)3N1280zJ(P)4NN:N1N2280J(P)5280EXTRA(D1)2:D5EXTRA(D3)5"DD1:J(P)J(P)3:,***GAME STATUS DOCUMENTATION***1N1PLAYT238T240T241190!195<T239T241T242190E195`T239T240T242190i195~T240T241190195FLAG0ıT2;4);N$(T2);22);NAME$(R(T2));36);A(T2):FLAG1ı"INVALID MOVE!!!":""T228T232T234T237T238190+195RT228T230T231T233T235190[195pT230T234190y195T219T220T232T222T223T237190195T232T233T236T238190195T233T237T239190195T232T233190195?T227T229T231T233T234190H195cT228T231T230190l195T21T229T231T234T235190195T228T229T230T234190195T220T227T233T236T237190195"T22718T219T222T223T224190( 195I T219T236T221T223190R 195 T221T222T224T225T226T236190 195 T221T223T225190 195 T223T224T226190 195 T223T225190 195T220T22895# T214T220T215T217190, 195S T216T220T215T218T219190\ 195} T215T217T219T221190 195 T217T218T220T221T222T236190 195 T216T217T219T227T232T236190 195 T212T2195 uT27T28T210190& v195@ wT29T211T212190I x195d yT210T212T213190m z195 {T210T211T213T221190 |195 }T211T212190 ~195 T23T215T216190 195 T214T216T217T218190 1 gT21T24T25T23190$ h195= iT22T26T214190F j195c kT21T22T25T27190l l195 mT22T24T26T27T28190 n195 oT23T25T28190 p195 qT24T25T28T29190 r195 sT25T26T27T29190 t24::"HIT ANY KEY TO CONTINUE.";:AN$:: dT1101,103,105,107,109,111,113,115,117,119,121,123,125,127,129,131,133,135,137,139,141,143,145,147,149,151,153,155,157,159,161,163,165,167,169,171,173,175,177,179,181,183 eT22T24T230190 f195'"BLOAD RISK2,A$891C"1232,28:233,137E255:X(0)::p5:18)"RISK":6:17);::"******": 12::7)"DANGER-UNDER CONSTRUCTION ":T(42),R(42),A(42),X(42),Y(42)N$(42),CN$(6)P0:D12:::<1000, F                    BY WEYMAN FONG FOR THE APPLE CORE ** 415-391-1915 ***=&'&' GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS.. . DECEMBER 1978 .&$'&.' LAST MOD. JULY 1979&8'&B' 'DYNASTY"&s'616368,0::%p%' ** 'DYNASTY' IS A MODIFIED ADAPTATION OF A PROGRAM PUBLISHED IN 'PEOPLE'S COMPUTERS' MAGAZINE -SEP/OCT '78 ISSUE CALLED - KINGDOM,7&' * WHICH IS AN EXPANDED VERSION OF 'HAMMURABI' ** COPIED & RE-PROGRAMMED FOR THE APPLE II -ONG":5600($XCT$"DECEMBER 1978":5600V$bCT$"IMPROVED VERSION OF HAMURABI.":5600$gCT$"WITH EXPANDED 'EVENTS' !":5600$v21:" PRESS 'ESC' TO END"$"< PRESS THE SPACE BAR TO CONTINUE...>"$(16384)1555690$(16384)1605750%S) MUST"/#d" EQUAL OR EXCEED ONE MILLION !!"g#|23:5::" HIT ANY KEY TO BEGIN YOUR RULE ";:A$:m#~#20(CT$)2#CT$#""##:16368,0:::10:10:"* * * THE END * * *":#D3:CT$"* DYNASTY *":5600 $NCT$"BY WEYMAN FED ALLOTMENT *";"(5:"3 BUSHELS ARE REQUIRED FOR 1 ACRE""2:" * PRICE PER ACRE *":5:"RANGES BETWEEN 1 TO 9 BUSHELS PER""<:" * TO QUIT - TYPE IN A '-1' *""P:" TO BECOME 'EMPEROR OF ALL CHINA', YOUR#Z" TOTAL WEALTH (ACRES PLUS BUSHELS FOR GAME ***F!:::" GUIDELINES FOR GOVERNING YOUR PROVINCE ":b!" * FOOD ALLOTMENT *"!5:"EACH PERSON REQUIRES 10 BUSHELS OF":5:"RICE TO SUSTAIN LIFE"! :" * FARM LABOR *"!5:"EACH PERSON CAN ONLY PLANT 2 ACRES"":" * SEAND LAST, BUT NOT"j :" LEAST, SUSTAINING & FEEDING YOUR"::" POPULATION. IF SUCCESSFUL, CHINA" :" WILL PROCLAIM YOU 'EMPEROR'.":::::10:" MAY BUDDHA BLESS YOU ": X0PAUSE1000::255! *** PRINT INSTRUCTIONS & GUIDELINE100::::b" YOU ARE ABOUT TO RULE A PROVINCE"::" AND YOUR OBJECTIVE IS TO ACQUIRE":" WEALTH BY FARMING & TRADING YOUR"::" RESOURCES, ANTICIPATING GOOD AND" :" BAD OCCURRENCES, PREDICTING MAR-"::" KET CONDITIONS 75:" *"c" * ------- *":" * *":" * * * * * *"k:7:"'YOU ARE A GOVERNOR OF HUNAN":7:"PROVINCE IN CHINA DURING THE":7:"YUAN DYNASTY (1260 TO 1368)'":X0PAUSE500:  !":" *":" *"" * *":" * *":" * *"" * * * *":" *** ***":" * ";::1:"DYNASTY";::1K TO SERVE"2:12:"AS HIS ";::" EUNUCH! ":k22:6::" YOUR DYNASTY LASTED ";Y;" YEARS "::255:8:" TRY AGAIN ? ( Y / N ) ";A$A$"Y"40A$"N"ĀHN1R(3000)2000 :2020$ *** PRINT INTRODUCTION ***@4:" O BECOME"::18:"THE NEW"C:9::" * 'EMPEROR OF CHINA' * ":M2020uN01:1000:X0PAUSE1000:::1008:10:"YOU ARE THE SOLE SURVIVOR"::8:"OF HUNAN PROVINCE AND THE":8:"'EMPEROR' KUBLAI KHAN HAS" :8:"ORDERED YOU BAC *** MESSAGES FOR THE GOVERNOR ***.1000KX0PAUSE1000:::100:8:"YOU HAVE, BY YOUR MATERIAL-"::8:"ISTIC MACHINATIONS, AMASSED":8:"SUCH WEALTH THAT THE NOBLES"::8:"IN THE GREAT CITY OF PEKING":9:"HAVE CHOSEN YOU T^";:X410::" PEOPLE IN PROVINCE ";`10:" ACRES OF LAND OWNED ";10:" BUSHELS IN STORAGE ";:$X039:"^";:X.83:" ";N0;" "B4:" ";L2;" "L5:" ";N1;" "V:$N1C 140@:7::" ### HARVEST FOR YEAR ";Y;" ### ":r" ";L1;" BUSHELS PER ACRE---";A;" BUSHELS"{900 ** SUBROUTINE TO PRINT COMPUTED FIGURES IN REPORT WINDOW **34,6:111::" REPORT FOR YEAR ";Y;" ":X039:"*\AL1L3aBR(A2)(fCAB5uA0910hz:7::" ### HARVEST FOR YEAR ";Y;" ### ":|" ";L1;" BUSHELS PER ACRE----";A;" BUSHELS"~" LOSS TO RATS----------";B;" BUSHELS"" NET HARVEST-----------";C;" BUSHELS"N1к" ......DROUGHT..... ":&>8608CL(15)0852HHL1R(3)7aML21000L1R(3)6zOL25000L1R(3)5QL2105L1R(2)5R:11::" ////// RAIN ////// ":S860TL1R(4)3W ** COMPUTE & PRINT YEARLY HARVEST *AL(15)08100AR(100(L2100))500u ::" $$ RICE IMPORTS ARRIVE $$ ";::" ";A;" BUSHELS"%N1N1A*L(15)0835/L1R(2)14N15000L1R(2)26N125000L1R(3)28N125104L1R(2)39:11::...... -";N5L(10)07609AR(N120)(N120)v::" ??? GRAFT ??? ";::19:A;" BUSHELS MISSING"N1N1AL(10)0785AR(L210)(L220)::"><><><EARTHQUAKE><><><";::" ";A;" ACRES LOST" L2L2 ";A;" PEOPLE ";B;" ACRES"+N3N3A8L2L2BLN0N0N3N4N5\N012014 ** PRINT POPULATION CHANGES **:" POPULATION INCREASE........... +";N3" DEATHS FROM NATURAL CAUSES.... -";N4 " DEATHS FROM STARVATION.. 'MONGOLS'>>> ";::" ";A;" KILLED"[3:;A;" BUSHELS LOOTED ";C;" ACRES BURNED"hN4N4AuN1N1BL2L2CL(15)0705AR(20)10BR(N0250)50:7::" **** LAND ACQUISITION **** ":4:"GAINS: (N03)R(N022)>V *** COMPUTE RANDOM OCCURRENCES ***]::" +++++ 'PLAGUE' +++++ ";::" ";A;" PERISHED!"bN4N4AlL(10)0670qAR(N05)(N05)vBR(N120)(N120){CR(L250))::" <<< RAIDS BYN52)D::" !! FOOD SURPLUS !! ";::" ";A;" NEWCOMERS"N!N50[&N3N3Ad+590~0(L(5(N52)))05905AR((N5N1)(2N0))?::" << FOOD RIOTS >> ";::" ";A;" BUSHELS TAKEN"DN1N1ANL(10)0620SA000::500N1A"N10475,1000d:6:::" !!! RICE STORAGE EMPTY !!! ": ** COMPUTE EFFECTS OF FOOD ALLOTMENT **YY1N3R(N033)N4R(N042)N5N0(N210)N50560 N50590AR(3L30475 (L2L3)0440G"YOU ONLY OWN ";L2;" ACRES!"P400f(2N0L3)0455"YOUR POPULATION IS ONLY ";N0;" PEOPLE!"400AN13L3A0480"YOUR STORAGE IS ONLY ";N1;" BUSHELS!"400 1HOW MANY BUSHELS FOR FOOD? ";N2, hN2(N2); mN203000H rAN1N2V wA0390 |"YOUR STORAGE IS ONLY ";N1;" BUSHELS!" 350 N1A N10490 1000::23 "HOW MANY ACRES TO BE PLANTED? ";L3 L3(L3) L303000 'AL2C ,A0315> 1"YOU ONLY OWN ";L2;" ACRES!"G 6275Q ;L2Aa @N1N1CL1r E(BC)0335 J *** TEST FOR WIN *** O(L2N1L0)02000 TN10495 Y1000::23 [ ** READ AND VERIFY FOOD & SEED ALLOTMENTS ** ^"0270 AN1BL1" A0260R "YOUR STORAGE IS ONLY ";N1;" BUSHELS!"[ 215e N1Ar L2L2B 1000::23:"PRICE OF LAND IS ";L1;" BUSHELS PER ACRE" "HOW MANY DO YOU WISH TO SELL? ";C C(C) C03000 "C0325 : L30:N20K 1000: ** DISPLAY THE REPORT FIGURES IN WINDOW **~ *** READ AND VERIFY LAND TRANSACTIONS *** 23 :"PRICE OF LAND IS ";L1;" BUSHELS PER ACRE" "HOW MANY DO YOU WISH TO BUY? ";B B(B) B03000 B 5000: ** INTRO **) (PAUSE5:225L - ** RANDOMIZE FUNCTIONS **f 2R(Z1)((Z1)(1))} <L(Z2)R(100)Z2 F *** SET INITIAL PARAMETERS *** PY0:L0106 ZL1R(3)3 dN0R(75)75 nL2R(250)250 xN1R(3000)200016298,0:16368,0::8 " DYNASTY " ? \ BY WEYMAN FONG v APPLE CORE BOX 4816  S.F.CA 941011  DEC. 2, 1978    PAUSE5:200:CT$(40)5700          z #  ŧӠؠΠ٠Ҡɠؠ  Ҡ ŠŅŠԠҠ Ҡ Ҡ Ӡ  ΠҠˠ4ԠŠӠ"ؠɠ Ҡ ŠӠ РĠҠ!!àŠ٠ ˠ) ˲ Ҡ7ϠՠΠĠ̠ ԠҠŠӠ00000  0xxx00@p| |Cxxxxx~@px8`0`0`p``@`@@@p@@`@a@``@`@ ` @ `@@aacFN|xx?xwxcpp<p ppppxxx8888 8800@1@1@ @ ``0@ 0<<< @`x~<||p||~~~wwgggc@c@c@a@a`?ppx8__  ?C?0A? A?@?@;@;@;@1@1@1@1@1$dn$i&d( } }   }s} U]Սߟ55555ߟJ :341(1(AAMMWb W MA:AM b W MWb(x!n$} x!d  s n$ s"d(  x!ss"      } d( xis"x!  }   x! n@M W b h b W b vb W MMM W b W MWWM W b h b W b vb W MAAM b W MWb(M AM AAM AM A=J :"J :":"J :"`Ruuu4u4R4R4R_chdKOKOKOOK!NCNCNCC!!!NKFFFJFJFOK4H 44HH4  ccO  cccMM!!__uuOu}u}u}}u>> "HPRWɍ;)?  i% HH Ge$ihhhLHH  5hh`i V$ Gi     𼪩 HhHh0> >>>  >00000>">>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6""""""".& dede _H &h`H &I1h`H &1h` G me@` @ )jjjj) j)jj)`  ff `HH hh`         (4);"CATALOG"D$(4):D$;"OPEN APPLE PROMS":D$;"READ APPLE PROMS":D$;"CLOSE APPLE PROMS"44033,15:"TYPE IN THE PASSWORD?";A$A$"THE PASSWORD"ė:6644033,17:1012,0D$;"BRUN INT :"KYLE THOMPSON"줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m     (Y1)63 B(X,Y)1 Y, HTHT10R3 Xa  9,8,7,5,4,3,2,0,0,1,2,3,4,3,3,4,5,6,5,4  4,5,6,5,4,3,3,4,3,2,1,0,0,2,3,4,5,7,8,9  22:33);::"DIVE";::" " 23:32);::"BOMBER";::" " SW1 SW1SW1:F230:T10:BEGIN."" P(16384):P1282560 16368,06 < F 0:1O HT0[ X140k ,R:R0405r 61 ;I110:1059 @DX(X1)6(X1)66 TDX,159DX,159R6 ^DX cY1R:B(X,Y)5:Y 3 YR110 3(X1)63,15916L iPP1 nA x307 } "030008001F003700"n "252D2C2D2E35353F3F3F3F373535353525252525250500" "25253F3F24242C2D253C3E2627372E2D3536363F3F2E2E00" "1225253C3C37372E2E0500" "END" S10:S20:M10:M20 "HIT ANY KEY TO 8192B(40,10)*HX(9),HY(9)0 F I110:1059:IP6000\P16384o232,0:233,64I$:I$"END"250(A1(I$)122P$(I$,A,2)<H((P$,1))FL((P$,1))PHH48:H9HH7ZLL48:L9LL7 dP,H 1:D(.85D):D12D12!\200 0 39BA201:(I)160Ă:) P2IBA1:HI1D2:36872:I42100q 36878:2:21:" ";:(36866)02010*(36865)Ĺ36865,0:21204I6Č36881>:2070HS1$SC$:1800:SC$((SC$)9((SC$)(S1$)))RSC$("00000",6(SC$))SC$:WW/SC$"":S17611766:SCSC$((S)128);:91800jVR3:2040:IBA20VR2:2040:IBA202120IVR6:I:P1:" ";:P2:" ";I1:P1:"D";:P2:"DD";::2070VR:BA(40)256(41):IBABA19:(I)160THNE:P1IBA1:IBADDDD";( 5:11:"DDDDDDDDDDDDDDDDDD";M 6:9:"DDDDDDDDDDDDDDDDDDDDDD";S o 2:6:"GG";:32:"GG"; 3:5:"HHHH";:31:"HHHH"; 4:12:"DDDDDDDDDDDDDDDD"; 5:10:"DDDDDDDDDDDDDDDDDDDD"; 6:8:"DDDDDDDDDDDDDDDDDDDDDDDD";DDDDDDDD"; .. 82:9:"G";:30"PRINT"G";J B3:8:"HH";:30:"HH:;f L4:14:"DDDDDDDDDDDD"; V5:12:"DDDDDDDDDDDDDDDD"; `6:10:"DDDDDDDDDDDDDDDDDDDD"; t w2:8:"G";:31:"G"; z3:7:"HHH";:30:"HHH"; ~4:13:"DDDDDDDDDDRINT ""; NA160ī560) XA$"N"Ā2 b180b ::20:(36867)1:"@";:255,255:49168,0 W1010,1080,1143,1200:1200 2:9:"G";:30:"G; 3:9:"H";:30:"H"; 4:16:"DDDDDDDD"; 5:14:"DDDDDDDDDDDD"; 6:12:"DDDDDDDD1:36869,255:20:RP1:"F";:36881:36878:9 L4200Z 1800:(SC$)(HS$)HS$SC$x 23:11:"HIGH SCORE:"HS$ &10:"PLAY AGAIN? Y <- N"; +49168,0 0A(49152):A129560 :49168,0:A149A$"N":24:"->"; DA136A$"Y::HTAB 24:P12Č36881 @36872# JI1370> T(1280)160Ĺ36868,1Y ^(1319)160Ĺ36868,0d h36875y rI8(I8)410 |36878 (36865)500 (36866)02000 :300 A160ī560 1800:LL1:RP(36867):36865,0, I120:36870,#d128256n80256 x;(4);"BLOAD SPIDER 2"WI36096360967:I,0:g6,0:7,14136884:54,0:55,3:1002HS$"000000"W1:L1:SC$"000000":D3010001:22:" ROBOT:"L" "SC$" WEB:"W,I1D 6I     Lđ [K$(( [(Fɠ7%%:% [($ %% [Ą$ %% [Ll$ (Ъ%%` [N 8eNN8(i(($  [Ą$  [(ÐƐ %%`%% [(ɠ„$ @`L󅲩L, ,0ΩƮL$ ̂́|w $ LgN 8eNN0H( ( 'ɠ °6($ 삐쁐N))ii(Ș(Lϑ́"$%% [ ́'%%%(Ȍ ['(ɠ ́̂(ɠL<„$ `` [($ ` [(ɠ„$LƐ`" ɺƄ$ @` [(ɠ̂́ č(Ԡ%% [(ɠLðL%LɠL(LLLLxL  [, Ɉɠ2`'$  `$  `0` [@L` [$  ['(ɠ0C0(ɠfl$ 6$$ ́Х [   S10:S20:M10:M200P(16384):P1285020>16368,0DbI$:I$"END"Č54915:270l5050p"DIVE BOMBER: INSTRUCTIONS""YOU AND YOUR OPPONENT ARE BOTH PRIVATES""IN THE U.S. ARMY. YOUR MISSIONS ARE THE""SAME. TO CL00CY111&B(S,C)04615-C5C0EC1Y4700b B(S,C1)B(S,Y):B(S,Y)0z0:3S63,162Y6 3:3S63,162(C1)6\YS$1010SW1M1M11SW1M2M21M1M210101021:"GAME OVER." X:YHPHP1"hFL110)r36|FO1HPU3HX(FO)63,162HY(FO)6]FOd0qFO1HP3HX(FO)63,162HY(FO)6FOFLFSRX1:TSRX1FS1FS1TS40TS40SFSTSY210B(S,Y)1ī47Y((159Y)6)#B(RX,RY)55000AX19:HX(X)0:HY(X)0:XJHP1^Y11:X11RXX1RXX40RYY1RYY104100B(RXX,RYY)14100HX(HP)RXX:HY(HP)RYYB(RXX,RYY)0SW1S1S11:4070S2S21HPHP10:2X,Y2 XXSW1.756X0X240:2050FX240X0T3:2X,Y[ Yj0:2X,99z Y991582 0:2X,Y2 B((X6)1,((159Y)6))04000 XXSW1.75 3:2X,Y Y 0:2X,157 5000RX(X6)1:RUNTDOWN:";CD #16368,0* (P1300:P2 2CD= <21:"N INFTSW3` 3:1IN4,10m 2IN,25 P(16384):P128Ĺ16368,0:2000 0 1IN4,10 "2IN,25 @IN 5000 0:1IN4,10 2IN,25 XINY259921030 SW1:F10:T230, M15SW11010@ M25SW11010S X110:1059c 22:SW1Ğ "PLAYER #1";::11);"SCORE:";S1;21);"MISSES:";M1 23:SW1Ğ "PLAYER #2";::11);"SCORE:";S2;21);"MISSES:";M2 CD511 21:"COL)U~H`EFG >0 e()) $20I$6 i EFGL66VX86IH""*""I*U"" R((1)10)1 R9 "AGAIN":B$:B$"Y"1000^ "DIFFERENT DIE?":C$:C$"Y"10d w R((1)12)1~ R "AGAIN?":B$:B$"Y"1200 "DIFFERENT DIE?":C$:C$"Y"10  R((1)20)1 R "AGAIN?":B$:B$"Y"200"DIFFERENT DIE?":C$:C$"Y"10% + = XR((1)6)2J [R7600Q ]Ro b"AGAIN?":B$:B$"Y"600 d"DIFFERENT DIE?":C$:C$"Y"10 e g R((1)8)1 %R *"AGAIN":B$:B$"Y"800 ,"DIFFERENT DIE?":C$:C$"Y"10 / : :/ "4,6,8,10,12,20,30,100";7A$GA$"4"400W(A$"6"600g2A$"8"800y<A$"10"1000FA$"12"1200PA$"20"2000ZA$"30"3000dA$"100"10000R((1)4)1R"AGAIN?":B$:B$"Y"400   AM WHICH WILL HELP"A "YOU TO BETTER UNDERSTAND ACCELERATION."G p  "YOU SHOULD FIRST READ ABOUT TIME,"  "DISTANCE, VELOCITY, AND ACCELERATION"  "IN A SCIENCE BOOK TO GET A BASIC " $ "UNDERSTANDING OF THEM." .  8 "IN THIS PROGRAM,DE1000 H19000 RL24' \18000D f"IT'S NICE TO SEE YOU!"_ p"WHAT IS YOUR NAME?";h zL12s 18000| NA$ 18000   "I HOPE YOU HAVE A GOOD TIME, ";NA$;"." D1500 19000 L24 18000 "THIS IS A PROGR"d ACCELERATION BY GARY ORWIG5 INTRODUCTION>L24I18000XJ03008eDE300Jp19000 ">>>>>>>>>>>ACCELERATION>>>>>>>>>>>>>>>>>>>>>>>>>";J I110*">>>>>>>>>>>ACCELERATION>>>>>>>>>>>>>>>>>>>>>>>>>";4I >   F):DD1& D0C$" "D2D0:FF17 :D0FF1= [ J(C$):JJ487(J64):} A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::0C(B256):CB254C255(C127):CC255K13Ė7:A$;" ";:D K32K47K58K64K71A$L$(K)R$:PP1V K4A$L$R$x K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(D1)V((7);:290, @F18:BF1,V(F)::::150K J(A$)33A$O$:PO:(7);w TL(A$):O$A$:OP:L$"":P0L$(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128 :A$;": ";:L25 F07:V(F1)(BF)::560:V(9)Ch F1N:AV(F):580:A$" ";:::(49152)128Ăz 49168,0:150 590:B0150 BBE8 4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺUIT":0 A$:I15:A$("EDLSQ",I,1)Ă:160O I270,220,180,200:34,0: "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:5800dN9:::"APPLE MLX":34,2" ONERR GOTO 610bn1:20:"START ADDRESS";:530:A0ĺ(7):110jxSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA :"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)THER NOTE: THE BOMB 'WRAPS' AROUND"Q"THE SCREEN, TO ALLOW YOU TO HIT ROCKS"~$"THAT WOULD OTHERWISE BE IMPOSSIBLE TO"."HIT."8IOP"3"IT. YOU MAY HIT A KEY DURING THE COUNT-"_"DOWN TO DEPLOY THE BOMB IMMEDIATELY.""NOTE: EACH PLAYER GETS TO MISS 5 TIMES.""YOU MISS IF EITHER YOU FAIL TO DESTROY""ANY ROCKS OR YOU DO DROP YOUR BOMB AT""ALL."$"ANOEAR OUT A MOUNTAIN PASS TO"G"ALLOW YOUR TROOPS TO GET THROUGH AND"v"DEFEAT THE ENEMY. YOU ALTERNATELY DROP""BOMBS IN AN ATTEMPT TO CLEAR OUT AS MANY""ROCKS AS POSSIBLE. AS YOUR BOMB FLOATS""ACROSS THE SCREEN, HIT ANY KEY TO DR)85:JY120,110,110% dDY1:DX0:5 nDY1:DX0:J xDX0:DY0:ST1:V BF150 22:"ALIENS: ";AC;28);"SCORE: ";SC:16)"SHIPS: :;NS: RETURN 22:"SCORE: ";SC;29);"TIME: ";CT;" ":17);"SHIPS: "NS:1 EX(0)DH:EX(1)DH:EX(2)DV:EX(3)D= AH(3),AV(3),XH(3),XV(3):230,64:3:0,0:3082:230,32M1150:1610qRD1:NS3:BL1:BR40:BZ1:BB20(62450:::2602Y1:P(((40)(41)256)X)128:<ST0:JX((0)85):JX90,80,80FDXJ1:DY0:PDX1:DY0: ZJY((1               D$"D"100 d P "PASSWORD PLEASE."!P$0P$"P"30810@A$O#A$"A"40W%10_(S$n-S$"S"50v/10~2S$7S$"S"60910<W$AW$"W"70C10FO$KO$"O"80M10PR$UR$"R"90W10ZD$ _ X" "PASSWORD PLEASE";!A$?A$"BRIAN SUCKS HARD"10F1g "XXXXXXXXXXXXXXXXXXXXXXXXX"" XXXXXXXXXXXXXXXXXXXXX"" XXXXXXXXXXXXXXXXX"" XXXXXXXXXXXXX"(" XXXXXXXXX"210<" XXX" F"  L24 18000% MAIN PROGRAMM"SELECT ONE AND ENTER THE NUMBER."SY" 1.GIVEN ACCELERATION & TIME,FIND VELOCITY & DISTANCE" 2.GIVEN ACCELERATION & DISTANCE,FIND VELOCITY & TIME " 3.GIVEN ACCELERATION  D$  + "TIME WILL BE IN ";T$;"."1 T& "DISTANCE WILL BE IN ";D$;"."Z0 u: "VELOCITY WILL BE IN"D D$;" PER ";T$;" PER ";T$;"."l v  "PRESS 'RETURN' OR 'ENTER'": FOR PET PRESS ANY LETTER BEFORE PRESSING RETURN S$TTER BEFORE PRESSING RETURN# S$, L247 18000G SET UNITSv "WHAT UNIT DO YOU WANT YOU USE FOR TIME?" "(SECONDS, MINUTES, HOURS, ETC.)" T$ "WHAT UNIT DO YOU WNAT FOR DISTANCE?" "(METER, KILOMETERS, MILES, ETC.)"ULD MAKE ME TRY"( "TO DIVIDE BY 0!)"V "ALSO, I DON'T CHECK TO SEE IF YOU HAVE" "ACCELERATED BEYOND THE SPEED OF LIGHT!" "(SOMETHING HARD TO DO IN REAL LIFE!)"  "PRESS 'RETURN' OR 'ENTER' WHEN READY.": FOR PET PRESS ANY LE YOU CAN PICK ANY UNITS"E B "YOU WANT TO WSE TO REPRESENT TIME AND"s L "DISTANCE. THE ANSWERS WILL BE IN THOSE" V "SAME UNITS." ` j "THERE ARE TWO LIMITATIONS.............." t "DON'T TYPE IN '0' FOR A VALUE!" ~ "(SOME OF MY EQUATIONS WOˠ PG K(LOCK U(NLOCK N(EW D(ELETE E(XIT ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ؅D$% 0 +DE ` A PCL~@E^E_EZE[` 2 B A PC @`6798 `H|C h|C``2D3DEEiEiA)m3D3D +D 4D +D) 4Dm2D2Dm3D3Dة$eeELCؠ C82D2D3D3Dؠ 3D$C >B$E  ``L#BH$%  hWB\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\E  EmEB&BBNBmBJnBmBeeE` 8EEPEE &B B00   5DEEE B ALT@ BG A CL~@Ъ2'EE &B B B" yD$ >B B A C }CL~@ :L@% E E >B yD AE/5 >Bs r ; >Ba ` `$$(@ @_E%E^EZE[E̍^ZE_[ 0E^ D C1  }CE)ȹE)ȹE) 5D E Bɠ 0   5DL@ M  EТ E XELiLLT@ E &B B B E A EL@ E     ,YA:460*NXNXDA(FY):NX0NX237480?HS:FXFXDA(FY)i11FX,YA:FXNX:FYNY:TMTM1:TM250w11FX,YAX115:11FX,YA:6,X610:7,20:768:X:FRFR1:0:Y520FR3620FR:260,Y273,Y:Y:FR240RX1500:X:::X14:6,50:70:7,30:MU:SI20:640:360*^D150:DIhNXFX:NYFY:M193NYFY1frM136FX140NXFX14|M149FX14238NXFX14M218FY12NYFY1NY43011FX,27:YA14:11FX,YA:(234)88480620FY6ĕ11FX,YA:HS:11FXU:M(KBD):CLK,0!M1553105"(KBD)128290>,270K6JF340@M0:P0(0):P1(1):C030P0P0225:C130P1P1225:C1C0M13613(P0127):340JC0C1M19325(P1127):340TM193M136M149(M218FY12)Ĺ6,50:7,20:MU:6,4,Y:X,YO D1100:D:CLK,0:0:Y185191:215,Y228,Y:Y:FX120:FY12:TM80 YA14FY13:11FX,YA:FY6FY12ĭ(234)88480 FY6TLLT2(YA1):MB(TL)256(TL1):(MB(FX7))1284800:XP215:NTM1:650:3:NTM:650:6,255:7,3:MIDID(LG1)SPSP:4:X,Y1X41,Y1:3:13X23,Y:X:230 SP((252LP)7.5)7:ID42(LP2)98(LP1)7:XIDID(LP1)SPSP:4:X,Y1X41,Y1:3:D64814:12XD,Y:D,X Y:3:Y10615813:RD((1)(120(B1)14))10:X028B28:14RDXY251,Y:0,Y78251,Y78:Y:1510,185:16184,185 SG,0:P2,0:SC0:FR5:B1:0:Y185191:50,Y120,Y:Y:3:Y258520:11260,Y:Y:SI0:640; 54915:FA0:LG4B(B3):LP4B:Y277913:3:Y27Y53Y66SP((252LG)7.5)7:ID42(LG2)7:X0& "DIFFERENT DIE?":C$:C$"Y"10, ? R((1)30)1F Re "AGAIN?":B$:B$"Y"3000 "DIFFERENT DIE?":C$:C$"Y"10 'R((1)100)1 'R '"AGAIN?":B$:B$"Y"10000 '"DIFFERNT DIE?":C$:C$"Y"10 'A$"OPEN HOPSCORES":D$"READ HOPSCORES":X09:TS(X):TN$(X):XT D$"CLOSE":216,0 ::0:1:6:Y06:0,Y250,Y:Y:X0142:X,7X,25:X:X4023248:D0224(X232)2:XD,7XD,25:D,X2 1:253,0253,181279,181279,0253,0:3:Y91103:0,232:P249237:KBD49152:CLK49168 H216384:LT12544:Y023:SS(Y8):SLYSS8:D07:LVH2SS40SL128D1024:HB(LV256):LT,LVHB256:LT1,HB:LTLT2:D,Y:LT12544:DA(1)7:DA(2)7:DA(3)14:DA(4)7:DA(5)14:DA(6)0 D$(13)(4):170> D:d24576:::11:"JOYSTICK OR KEYBOARD (J/K)? ";:JF0WnA$:A$"J"A$"K"110hxA$"J"JF1 :"INITIALIZING...":DA(6),TS(9),TN$(9):MU768:XMU788:N:X,N:X:HS12288:XHS12432:N:X,N:X:X1305613553:N:X,N:X:232,0:233,51:SG49    W1500:W:LBLE( 230,32:62450:9106 "DX0:DY0\ ,BLLB1:BR40LB:BZ1LB:BB20LB 6RD5AH(0)BL3:AV(0)BZ3:AH(1)BL30:AV()BZ3:AH(2)BL30:AV(2)BB2:AH(3)BL5:AV(3)BB4 @NA3:AC0:DH20:DV10:LV3:LH20 JBFı T130 ^60"'":EX(1):EX(3):"'"F I2(I2)Ĺ16299,0:W110:W:16300,0 865,9010I:864,1:866:16336,0:16336,0:I:LELE1 NSNS1:NW01580 LELE1:RD2(LE)CT200(RD2)10:BF1:1040 ::10:16);"LEVEL "RD:14:16);"ROUND "LE:V:16302,0:16299,0:W130:W:16300,0:I19T EX(0)EX(0)1:EX(0)1EX(0)1y EX(1)EX(1)1:EX(1)BREX(1)BR EX(2)EX(2)1:EX(2)BZEX(2)BZ EX(3)EX(3)1:EX(3)BBEX(3)BB EX(0):EX(2):"'":EX(0):EX(3):"'" EX(1):EX(2): 6X039#(X,X*2X2<Y0;FZ39GPT039PZY,ZZnYY1dxZZ1kT|I14000:I: X7,0,72,200,177,0,136,145,0,200,192,35,208,245,104,145,0,198,5,208,233,230,2,202,208,149,165,3,73,1,133,3,230,4,165,4,20111,208,133,96,1,1,2,1,2,0,1,1,2,2,1y16,0,36,0,50,0,58,0,69,0,79,0,87,0,98,0,113,0,121,0,135,0,149,0,205,0,234,0,86,1,131,1,1908,10,24,165,2,105,13,133,2,76,119,48,152,10,168,176,13,185,0,49,133,0,185,1,49,133,1,76,56,48,185,0,50,133,0,185,1,50,133,1,164,4,185,134,48,133,5,165,3,208,24x160,35,177,0,72,136,177,0,200,145,0,136,208,247,104,145,0,198,5,208,235,76,114,48,160,0,17):((N$,X,1))47XP7X7,185:X:4:X1520948:D024:XD,7XD,25:D,X:0:Y2690:0,Y251,Y:0,Y78251,Y78:Y:173,48,192,136,208,5,206,7,0,240,9,202,208,245,174,6,0,76,0,3,96169,0,133,3,133,4,169,26,133,2,162,13,164,2,192,91,2)2 8*B F. GIVEN DISTANCE AND TIME:LA(2D)T2HVV(2D)TN`[PF SCROLLfZFI1LldFsnFIyxF8J DILAYBJI1DELJIVJ N CLOSING*N4N>N"I HOPE YOU HAD FUN, ";NA$;"!"HN"BYE FOR NOW!"RNLNCET((2D)A).5&V(2AD.5,Q C. GIVEN ACCEL. AND FINAL VEL.[TVAmD(V2)(2A)s D. GIVEN FINAL VELOCITY AND DISTANCEA(V2)(2D)T(2D)V E. GIVEN FINAL VELOCITY AND TIME$AVT.D(VTE VALUES (YES OR NO)" S$0S$"NO"200006X("SAME UNITS OF MEASUREMENT?"k2"(YES OR NO)"s<S$FS$"NO"3000P4000p CALCULATIONSz A. GIVEN ACCEL. AND TIMEVATDT2A.5 B. GIVEN ACCEL. AND DISTAT62105000, PRINT ANSWERS4L6?18000s"ACCELERATION: ";A;" ";D;" PER ";T$;" PER ";T$y"VELOCITY: ";V;" ";D$;" PER ";T$"DISTANCE: ";D;" ";D$"TIME: ";T;" ";T$"ENTER MORA"ENTER VELOCITY""V,609065000L&"ENTER VELOCITY"S0Vi:"ENTER DISTANCE"pDDzN6130X5000b"ENTER VELOCITY"lVv"ENTER TIME"T61705000"ENTER DISTANCE"D"ENTER TIME"SA64010TL24^18000DhSA4210,4270,4330,4390,4450,4510^r"ENTER ACCELERATION"e|Aw"ENTER TIME"~T60105000"ENTER ACCELERATION"A"ENTER DISTANCE"D60505000"ENTER ACCELERATION"& VELOCITY,FIND DISTANCE & TIME"&d" 4.GIVEN VELOCITY & DISTANCE,FIND ACCELERATION & TIME" 5.GIVEN VELOCITY & TIME,FIND ACCELERATION & DISTANCE""," 6.GIVEN DISTANCE & TIME,FIND ACCELERATION & VELOCITY"6@SA JSA1SCORES":D$"WRITE HOPSCORES":X09:TS(X):TN$(X):XKXD$"CLOSE":216,0Sb:lSI250:640:FAFA1:X25131:6,X:7,30:MU:X:FA5240vSI2000:640:660:BB1(B3):2100:NSC:XP50:650:3:SCSCSI:NSC:650:$N$(N):X1(N$X):TS(X)TS(AP):TN$(X)TN$(AP):TS(AP)HN:TN$(AP)HN$:X::RX09:TS(X)550(" ",7((TS(X))));TS(X)" "TN$(X):X&::"WOULD YOU LIKE TO PLAY AGAIN? ";0A$:A$"Y"A$"N"560:A$"Y"ė:660:200D6005ND$"OPEN HOP,50:MU:6,15:7,50:MU:X:CLK,0:::12)"G A M E O V E R":::TS(0)SC550eSCTS(9)530"YOUR SCORE IS IN THE TOP TEN"::"ENTER YOUR NAME PLEASE: ";YN$:TS(9)SC:TN$(9)YN$:X08:APX:YX19:TS(Y)TS(AP)APY;Y:HNTS(X):HN$TN$(NAH(RA)AH(RA)(DHAH(RA))(DHAH(RA))QXAV(RA)AV(RA(DVAV(RA))(DVAV(RA))nbAH(RA)DHAV(RA)DV160lAH(RA:AV(RA):"$"vXH(RA):XV(RA):(32)RA350MHMHDX:MVMVDYMH2BLMH2BRMV2BZMV2BBıTA0NA3LH:LV:(32)LVDV:LHDH*BF1060<H1H0:160HST530e((16287)127BF)520n530MHDH:MVDV:MH(1)MF:MV(1)MV:660(AC4)550560&750:2600RA0NA:(AH(RA)EE)640DXH(RA)AH(RA):XV(RA)AV(RA)( hPC75PC rST0* |DX0DY0ST1b DHDH(DX1)(DX1)(DHBLDX1)1(DHBRDX1)1 DVDV(DY1)(DY1)(DVBZDY1)1(DVBBDY1)1 XDH1:YDV1:50:P36H1 P35ST1:DHDHDX:DVDVDY DH:DV:(PC) ST460  BA BAFD A9 02 8D 68 8D A9 0FD A9 02 8D 68 8D A9 04 BA4 BAFD A9 02 8D 68 8D A9 FD A9 02 8D 68 8D A9 04 BA04 BAFD A9 02 8D 68 8D A9FD A9 02 8D 68 8D A9 04 BA 04 BAFD A9 02 8D 68 8D AFD A9 02 8D 68 8D A9 04 BA9 04 BAFD A9 02 8D 68 8D FD A9 02 8D 68 (C255)=:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":150 ,45,77,8,24,4,32,0,45,45,222,54,54,110,73,45,28,36,36,60,13,77,54,54,54,5,8,24,8,24,168,46,8,24,37,22,54,54,77,36,36,36,45,45,150,59,183,42,45 77,8,24,4,32,055,30,63,96,57,63,39,36,45,45,37,5,40,40,45,150,219,43,45,45,45,45,45,5,0,45,21,223,51,14,45,21,246,63,7,104,73,9,36,36,12,45,21,150,242,63,68,73,9,118,45,5,32,36,228,63,23,54,77,7333,36,45,173,246,63,30,54,77,225,28,77,9,36,36,45,45,150,59,183,51,45,5632,28,100,100,12,12,14,14,14,118,246,246,30,77,73,73,9,8,24,40,45,45,45,45,45,45,45,45,77,73,73,73,1,8,24,8,24,56,63,63,63,63,255,219,219,3,8,24,63,63,63,63,63,63,63,63,63,63,63,7,0,45,45,21,21,21,45,45,54,62,5530,63,96,57,63,63,63,63,63,63,54,63,77,9,40,45,5,0,21,21,21,118,54,30,24663,7,224,100,12,223,146,23,246,4,8,24,8,23,63,32,100,100,12,45,45,0,45,45,45,45,45,45,45,45,45,45,45,45,21,21,14,118,246,246,30,30,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,63,7,56,30,30,46,0,41,173,246,63,23,118,45,5,32,220,27,32,4,0,146,18,14,45,5,32,36,228,63+23,118,45,5,0,73,73,173,63,255,251,46,245,14,14,37,36,45,45,109,48,45,244,242,30,39,60,63,55,45,53,63,247,45,45,53,63,63,255,106,45,45,109,54,46,253,3,8,24,63,63,63,63,5,1,242,1,41,173,54,54,30,63,7,32,101,12,220,51,54,0,9,62,14,54,54,253,7,0,42,40,173,246,30,30,23,45,45,5,0,42,40,173,246R14,246,63,7,40,0,54,46,45,37,180,50,54,0,45,45,222,27,54,45,173,246,63,63,0,73,17,28,63,23,54,54,14,45,5,32,28,63,7,0,45,45,54,306)2:BY((JY)16)2:BXDHBYDVBXBX3:BYBY2GLBX1BX401090\VBY1BY201090`865,60:864,1:866:865,60:864,1:866:865,60:864,1:866jBX:BY:"'"t350~::22::14:"PLEASE WAIT":1200: DATA9:17);"SPACE":5:AH(2)15:AV(2)14:AH(3)25:AV(3)14+4890<60RDHDHDX:DVDVDY::12:15)"BONUS ROUND":W1600:W:CT20CT20TBLB:LB1:280:1090$CTCT1:CT0P33340.CT0RDRD1:LE0:BF0:2608SCSC1002BBX((JX)3̠ұ̠ҲӬ:V#V1LB:I140:"#";:I:VmRD3āI1RD:((8)(39(2LB))1):((9)(19(2LB)))1:"###":IRD4āI17:6:I16:"#":I:I16:16:"#";7);"#":I:I17:13:I16:"#":I:BFĖ20:13:1)%RD5AH(0)15:AV(0)5:AH(1)25:AV(1) % ">BU:HES150R865,((ES)3)1@\864,1:866HfESNp\zLE1:LB1kLE5LB5::54,0:55,3:1002:6,0:7,141LB4LB4V1LB:I140:"#";:I:V:1CLB19LB:I1LB:"#";:I42I:I1LB:"#";:IMHAH(TA)MVAV(TA)SCSC50(TA1):130:AH(TA)0;TANMH:MT:(34)eMHDX:MVDY:" "vDH:DV:"%"660DV:DH:"%":BU1DHW110:WDV:BU:"'" BUDV:DH:" " BUDH11*W110:W4DV:BU:"̠Š͍ō΍̠ԬӬԠũԠũˠԬӬ &dN9:::"APPLE MLX":34,2:610Xn1:20:"START ADDRESS";:530:A0ĺ(7):110`xSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA:"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)UIT":&   d2,169,0" x 72,189,255,1,201,160= 240,8,104,10,125,255V 1,105,0,72,202,208p 238,104,170,41,15,9 48,201,58,144,2,233 57,141,1,4,138,74 74,74,74,41,15,9 48,201,58,144,2,233 57,141,0,4,104,170 169,141,96' C0:I76876868:A:CCA:I,A:^C7258ĺ"ERROR IN PROOFREADER DATA STATEMENTS":(190256)76Ĺ56,0:57,3:1002:50((4);"IN#A$300"234,0::34,1:2:"PROOFREADER INSTALLED"<d 216,32,27,253,201,141 n 208,60,138,72 8D 68D 8D A9 04 BA9 04 BAFD A9 02 8D 68D 8D FD A9 02 8D 68D 8D A9 04 BA 04 BAFD A9 02 8D 68D 8D AFD A9 02 8D 68D 8D A9 04 BA04 BAFD A9 02 8D 68D 8D A9FD A 02 8D 68 8D A9 04 BAFD A9 02 8D 68FD A9 02 8D 68D 8D A9 04 BA8D A9 04 BAFD A9 02 8D 68DFD A9 02 8D 68D 8D A9 04 BAD A9 04 BAFD A9 02 8D 68D FD A9 02 8D 68D 8D A9 04 BA A9 04 BAFD A9 02 8D 68D 8FD A9 02 8D 68D 8D A9 04 BAA9 04 BAFD A9 02 8D 68D 8DFD A9 0 8D A9 04 BAA9 04 BAFD A9 02 8D 68 8DFD A9 02 8D 68 8D A9 04 BA A9 04 BAFD A9 02 8D 68 8FD A9 02 8D 68 8D A9 04 BAD A9 04 BAFD A9 02 8D 68 FD A9 02 8D 68 8D A9 04 BA8D A9 04 BAFD A9 02 8D 68 FD A9 02 8D 68 8D A9 04 BAFD A9 02 8D 68 8D A9 04 BAFD A9ORES"(TI02:10I2:17);HS(I):I:T^18:5)"PRESS THE FIRE BUTTON TO PLAY"zh(16287)128(16384)1281640r16368,0:SC0:LE0:PC37:30 I,97,3,174,97,3,232,208,253,169L 4,32,168,252,173,48,192,136,208,239,206b" 96,3,208,231,96,::12:(15):"GAME OVER":W11000::I026SCHS(I)FFHS(I1)HS(I):HS(I)SC:FF1@IJFF0:::4:13);"SPACE CAVERNS":8:14)"HIGH SC,20,8,0,0/ 130,160,136,130,160,136,162,128U 128,128,128,128,128,128,128,128k 0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0 0X0:ML864890A:XXA:ML,A:MLX3815ĺ"ERROR IN DATA": 0,115,172609636192:A:XXA:I,A::PX4993ĺ"ERROR IN DATA":@ZVd 0,0,0,0,0,0,0,0|n 136,156,162,227,162,156,136,128x 73,42,8,127,8,42,73,0 28,34,65,65,65,65,34,28 62,65,85,65,34,28,54,119 8,20,34,73,34,20,8,0  0,8,20,42230,27,165,40,133,8,165,417 41,3,5,230,133,9,162,8U  160,0 177,26,36,50,48,2v 73,127,164,36,145,8,230,26 208,2,230,27,165,9,24,105( 4,133,9,202,208,226,165,692 166,70,164,71,88,76,240,253<I3619236864:I,0:FX0:I31340#14:16);"CAVERNS":15105I11000::TI768855:A:XXA:I,A:tX8158ĺ"ERROR IN DATA":z 216,120,133,69,134,70,132,71 166,7,10,10,176,4,16,62 48,4,16,1,232,232,10,134 27,24,101,6,133,26,144,2  255  #I11000:I' %:3 (D$(4)F )D$;"BRUN INT"L - p j>jvrws,i L1mnqp `N 8eNN`t@*TtI`t`$8jq8D 20 4 2DA9 01 8D 90 8D 20 44 2DA9 01 8D 90 8D 20 A9 01 8D 90 8D 20 8 2DA9 01 8D 90 8D 20 8 2DA9 01 8D 90 8D 20 8 2DA9 01 8D 90 8DI8iiQ쇍LM~vrwsR58퉍83I8ims0 rLYirsLrs ʎLq 8L8  S b b ʆL`vrws,i LVmnqnvrwsqp  S ۊNM쇍· b b ʆL쇍/M~vrwsq 8LT``v &wii$Э8i΋88vx 8xmwi8?ɂxymxjny*vyJJJJ)vL3wLv͂,ij|(#ɠv8킍0 ,| L` J S b bi ʆ 뇢M}QQ  Q0 QQ 뇭M MM Jmɮ ~ lLA ~ l ۊ KΆ J S b Lɍ,,kL~,a09,b0U0)L lllxmljx\W,aLELiw8ivvwLiwivwv%%vwL,&M|| L݁L,m̈́L8v킍L0Lx 8xmw8큍,z0P0, 5 8M莇 L"&2(16384)1555040&<(16384)1605150&F16368,0:16298,0::&pN'z %"YOU HAVE CONQUERED THE WORLD IN ";Y6;" MANEUVERS!"=%{%16368,0:16298,0:::10:10:"* * * THE END * * *":%20(CT$)2%CT$%""%%5:CT$"* WORLD POWER *":5050%CT$"BY JOE JAWORSKI":5050 &CT$"MOD.BY T.N.TA RUN OUT OF FORCES.2$::"SORRY, YOU BLEW IT."a$"ALL YOUR DEFENSES ARE GONE."::::5010$LINES 5000 TO 5010 PRINTS THE END OF THE GAME AND THE NUMBER OF MANEUVERS IT TAKES TO WIN WHEN THE ENEMY RUN OUT OF FORCES.$::"CONGRATULATIONS!"72050O# LINES 2500 TO 2550 CALCULATES THE CASUALTIES FOR THE PRESENT BATTLE.g# EE((E3)(X))2u# E0E0# E1E1((E13)(X))2# E10E10# A(X,J)E1:C(X,C)E# $LINES 4000 TO 4010 PRINTS THE END OF THE GAME WHEN THE ALLIESA(T,D)"A(T,D)A(T,D)X2*"R3320709"R662080Y""AMBUSH DURING TRANSPORT!"x""YOU JUST LOST ";X2;D$(D)" "TOTAL ARRIVED IN ";N$(T);"= ";A(T,D):""SNIPERS ON THE ";L$(A(T,(D5)))S$:2050# "VIOLENT SEAS SINKS A TRANSPORT SHIP":00!E0E80:1270+!E10E81:1270E!E1000E1E81:1270_!E1E1000E81:1270i!1420!LINES2000-2080 CALCULATES THE LOSS OF FORCES DURING TRANSPORTATION.!R(100(X))1:X2(10(X))2:D1X2(100(X))2"A(T,D)X2X2X,C)0:A(X,(C5))C(X,(C5))< AE;D$(C);" WERE CAPTURED. "S BI13000:I:1020s DC(X,(J5))A(X,(J5)):1020} PE,E1 Z2500 _E0E80:1270 aE10E81:1270 dE11000EE80:1270 iEE11000E81:1270 n1360 E,E1!25E ";"E81ĺ"ENEMY IN ";:12885"ALLIES IN ";]N$(X);" ON THE ";L$(A(X,(J5)))S$w"TOTAL CASUALTIES: ""ENEMY ";D$(C);": ";OE("ALLIED ";D$(J);": ";O1E12E81C(X,J)C(X,J)A(X,J):A(X,J)0:1348 <A(X,C)A(X,C)C(X,C):C(J1ĭC11360'C1ĭJ114201E,E1;2500PE10E81:1270dE0E80:1270}E1E1.7E80:1270EE11.5E81:12701165LINES 1270 TO 1348 REORTS THE VICTORY FOR THE BATTLE.E,E1::"***** A VICTORY FOR THC(X,(C5))1060jKLINES 1100 TO 1200, 1360 TO 1450 CALCULATES BATTLE CASUALTIES AND CHECKS FOR VICTORY.LKK1::::(7);"BATTLE IN ";N$(X);V" ON THE ";L$(A(X,(J5)))S$;"!"`"ENEMY ";D$(C),"ALLIED ";D$(J)~OC(X,C):O1A(X,J):EO:E1O1(X,J)01040!J:X:K01000<H0:K0:X110:J15QC(X,J)0KK1f A(X,J)0HH1z J:X:K05000 H04000 :"NO MORE ATTACKS POSSIBLE."200C1C(X,C)01080$CC1:C61020.10508A(X,(J5))0ĂX:200&pD$(X);18);C(T,X);34);NuC(T,(X5))0ĺL$(C(T,(X5))):890Tx`zX:200LINES 1000 TO 1080 SEARCHES TO SEE IF BOTH SIDES ARE ON THE SAME SHORE IN A COUNTRY. IF NOT, THEN BACK TO THE MAIN PROGRAM.K0:X110:J15 AA(F,2)A(F,2)10:>:::"SPY MISSION REPORT: ";N$(T):RH((X)100)20860R(50(X))26ĺ"ALL PLANES LOST AT SEA":200W"PLANES SHOT DOWN OVER ";N$(T):200\"DEFENSE QUANTITY LOCATION"]^X15 f((X)100)4FRICA, (7)KOREA, (8)CHINA, (9)GREENLAND, (10)ENGLAND: (FROM,TO)?";F,TS!T5810Y"#"THERE IS NO NEED TO SPY ON YOUR ALLIES. JUST ASK FOR A STATUS REPORT."$200*A(F,2)9820+,"YOU DON'T HAVE ENOUGH PLANES IN ";N$(F):200434);*vK20:F215:C(X,F2)0K2K212{F2G|K20ĺ"NO":638R}"YES"Y~Xb200 LINES 800 TO 890 COMPUTE THE RESULTS OF THE SPY MISSIONF "ENTER COUNTRIES: (1)NO. AMERICA, (2)AUSTRALIA, (3)SO. AMERICA, (4)RUSSIA, (5)JAPAN, (6)A0 :200sW LINES 600 TO 640 PRINTS A GLOBAL REPORT OF POSSESSION AND IF THERE ARE ANY TROOPS IN EACH COUNTRY.X::10);"--- GLOBAL REPORT ---"ab"COUNTRY-OUR TROOPS-ENEMIES'-OURCOUNTRY?"clX110:N$(X);13);A(X,1);21);C(X,1);b"DISK ERROR":150 CC255(C255)E:F18:CC2255(C127)V(F):CC255(C255)::DI(0):A$"":I1L:T(A16):A$("0123456789ABCDEF",A16T1,1)A$:AT::N"FROM ADDRESS ";:530:SAEAA0B0:XBS8((AS)8):b"DISK ERROR":150 N:150 (D1)V(F):DD1. D0C$" "D2D0:FF1? :D0FF1E c J(C$):JJ487(J64): A0:A$:A$(A$,4):(A$)0ı P1(A$):C$(A$,P,1):C$"0"C$"9"C$"A"C$"Z"A0: &520:AA16J::0C(B256):CB254C255(C127): K13Ė7:A$;" ";:I K32K47K58K64K71A$L$(K)R$:PP1^ K4THANA$L$R$ K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:V(F)J16(7);:290, @F18:BF1,V(F)::::150J J(A$)33A$O$:PO:(7)| TL(A$):O$A$:OP:L$"":P0L$LEFT $(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,0:KK128:L2+ F07:V(F1)(BF)::560:V(9)C^ F1N:AV(F):580:A$" ";:::(49152)128Ăp 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:CV(9)ĺA$:I15:A$("EDLSQ",I,1)Ă:160E I270,220,180,200:34,0:z "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:580:A$;": ";GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS NOV.12 1978T'n' LAST MOD. JULY 1979t'' 'WORLD POWER'' C401M4816060@:"PRESS 'RETURN' TO CONTINUE LISTING.";X$FbDD%(M):NTNT%(M):NNNTDOT2:NUMD:MOD3:60:R0D255DOT3A$"":DOT3A$"."DDDOT(D).6931.996110,6120,6130,6140,6150A$A$"S":6160A$A$"E):D%(I)I"D$;"CLOSE";F$, 5180j:"POSITION TAPE, START PLAYING, AND PRESS RETURN. ";X$:"LOADING. . .(WAIT FOR 4 BEEPS)"(NT%:D%2NNT%(0)<p:TEMPO4zT1:N01000M1NM81M161M241M321Mh D"LOAD TUNE FROM TAPE OR DISK?(T/D) ";X$:X$(X$,1)UX$"T"5140gX$"D"5000:"FILE NAME: ";F$:"INSERT DISK AND PRESS RETURN. ";X$D$;"OPEN";F$D$;"READ";F$NT%(0):D%(0):NNT%(0)I1NNT%(ID$;"OPEN";F$&D$;"DELETE";F$8D$;"OPEN";F$KD$;"WRITE";F$VI0Ni"NT%(I):D%(I)p,I6D$;"CLOSE";F$@4200J:"POSITION TAPE, START RECORDING AND PRESS RETURN. ";X$T:"SAVING. . . (WAIT FOR 4 BEEPS)"^NT%:D%O1TEMPO83000 M1N5 DD%(M):NTNT%(M):50< MB HVN04200cNT%(0)N"SAVE TUNE TO TAPE OR DISK? (T/D) ";X$:X$(X$,1)X$"T"4170X$"D"4000:"FILE NAME: ";F$:"INSERT DISK AND PRESS RETURN. ";X$2110C2 NT17NT0ĺBELL$;"SORRY, I CAN ONLY GO UP TO FS4":2110M< NN1oF D%(N)D:NT%(N)NT:TEMPO1:50P NMAX11ĺBELL$;"JUST TEN NOTES TO GO. . ."Z NMAX1000d FLAG2110n  ::"PLEASE CHOOSE TEMPO(1-8) ";X$:TEMPO(X$):TEMPF"2580- C$"S"NNNN1:NN13NN1:ADJ1T C$"F"NNNN1:NN0NN12:ADJ1^ KK1p (A$)K2140 C$(A$,K,1) OCTV(C$)ADJ:OCTV0OCTV42140 NTNT(NN)2OCTV:NT(NT.5)( NT255ĺBELL$;"SORRY, I CAN ONLY GO DOWN TO G0":1:(A$)K2140 ` C$(A$,K,1)6j NN0:C$"R"2590Gt C$"C"NN1X~ C$"D"NN3i C$"E"NN5z C$"F"NN6 C$"G"NN8 C$"A"NN10 C$"B"NN12 NN02140 KK1:(A$)K2140 ADJ0 C$(A$,K,1):C$"S"C$":(A$)K2140b C$(A$,K,1):DOT3C$"W"ĺBELL$:"SORRY, DOTTED WHOLE NOTES NOT ALLOWED";2110 C$"W"C$"H"C$"Q"C$"E"C$"S"2140$ D127.5DOT. C$"H"D64DOT8 C$"Q"D32DOTB C$"E"D16DOTL C$"S"D8DOTV KK0-FS4)"V *:"ENTER CHARACTERS WITHOUT SPACES. PRESS 'RETURN' ALONE FOR MAIN MENU."b 434,9:~ >"NOTE #";N1;:": ";A$ HA$""ĉ:2670 R(A$)1(A$)62300 \BELL$;"INVALID ENTRY; TRY AGAIN":2110 DOT2:(A$,1)"."DOT3 KDOT1NE NOW IN MEMORY. DO YOU WANT TO DO THIS?"_ :"ENTER 'Y' OR 'N': ";X$:(X$,1)"Y"2670g N0m  " 1. (DOT): (.)" " 2. DURATION: W, H, Q, E, S" " 3. NOTE OR REST: A-G, R" " 4. SHARP, FLAT: S,F" " 5. OCTAVE: 0-4 (G 8. SIGN OFF"9 B:" (TYPE IN THE NUMBER) ";X$:C(X$)K LC1C81090 VC8ĺ:"YOU MAY RE-ENTER PROGRAM WITH MEMORY INTACT BY TYPING 'GOTO 1000'.": `C3000,2030,6000,7000,2000,4000,5000 j1000- :5:"THIS OPTION WILL DESTROY ANY TU:" 1. PLAY THE TUNE IN MEMORY"@ :" 2. ADD MORE NOTES"b :" 3. LIST/EDIT THE NOTES" :" 4. LIST CODED NOTE TABLE" :" 5. START A NEW TUNE" $:" 6. SAVE TUNE TO TAPE OR DISK" .:" 7. LOAD TUNE FROM TAPE OR DISK" 8:"(4):BELL$(7)(7)* I012:NT(I):Ib 0,384,364,342,324,306,284,272,255,242,228,216,204y I012:NN$(I):I R,C,CS,D,DS,E,F,FS,G,GS,A,AS,B 18:8:"DO YOU WANT INSTRUCTIONS?";X$ (X$,1)"N"İ9000 :"WOULD YOU LIKE TO:"#  (10022NT0āI12(D(DTEMPOD)8):I:M7TNT,D(DTEMPOD)8:x<R((NUMMOD(NUMMOD))MOD.00001):~dnMAX500x5:8:"M U S I C M A C H I N E":8:13:"BY JON VOSKUIL"8000D%(MAX),NT%(MAX),NT(12),NN$(12) D$!! ! ! ! ! !!!!!!!!!""" " " " " """0:KK128! K13Ė7:A$;" ";:S K32K47K58K64K71A$L$(K)R$:PP1h K4THANA$L$R$ K9A$L$" "(A$,P1,1)R$ K8PP(P0) K21PP(PL) 330 F1:D0:P1(A$):C$(A$,P,1):FNC$" "ı C$" "İ520:CV(9)ĺ(7);:2906 @F18:BF1,V(F)::::150T J(A$)33A$O$:PO:(7) TL(A$):O$A$:OP:L$"":P0L$LEFT $(A$,P) ^R$"":PL1R$(A$,LP1) h7:L$;::PLĺ(A$,P1,1);::R$; r" ";: |K(49152):K128380 49168,:A$;": ";:L25 F07:V(F1)(BF)::560:V(9)Ch F1N:AV(F):580:A$" ";:::(49152)128Ăz 49168,0:150 590:B0150 BBE8 "1:AB:L4:580:A$;": ";:64668:A$"":P0:330:L0150 ,470:FNĺ(7);:290 6N9İ560:UIT":0 A$:I15:A$("EDLSQ",I,1)Ă:160O I270,220,180,200:34,0: "FILENAME: ";A$:A$""ĺ(4);"BLOAD";A$;",A";S 150 "FILENAME: ";A$:A$""ĺ(4);"BSAVE";A$;",A";S;",L";ES 150 590:B0150 BBE8:L4:AB:5800dN9:::"APPLE MLX":34,2" ONERR GOTO 610bn1:20:"START ADDRESS";:530:A0ĺ(7):110jxSA2:20:"END ADDRESS ";:530:SAA0ĺ(7):130EA :"CHOOSE:(E)NTER DATA";:22:"(D)ISPLAY DATA":8:"(L)OAD FILE (S)AVE FILE (Q)"""""   #:"5. A NUMBER (0-4) INDICATING THE OCTAVE (RANGE IS G0 THROUGH FS4)": #:"A BRIEF SUMMARY OF THESE INSTRUCTIONS":"WILL BE DISPLAYED DURING ENTRY." #:"PRESS 'RETURN' TO BEGIN. ";X$ # LLOWED)"*#" H = HALF E = EIGHTH"T#" Q = QUARTER S = SIXTEENTH"#:"3. A LETTER INDICTING THE NOTE, A-G,":" OR A REST, R. (IF A REST, THIS IS":" THE LAST CHARACTER TO ENTER.)"#:"4. A LETTER FOR SHARP OR FLAT (S,F)"M ARACTERS INDICATE AN F":"SHARP IN THE 3RD OCTAVE."_n#::"PRESS 'RETURN' TO CONTINUE. ";X$ex##"HERE IS A COMPLETE NOTATION SUMMARY:"#::"1. OPTIONAL LEADING DOT"#:"2. A LETTER INDICATING NOTE DURATION:"#" W = WHOLE(DOT NOT APLE, THE 'H' INDICATES A HALF NOTE, THE 'C' INDICATES THE NOTE"vP#"ON THE SCALE, AND THE '2' INDICATES THE OCTAVE."Z#:"THE LEADING PERIOD (.) IN THE SECOND":"EXAMPLE INDICATES A DOTTED NOTE, IN":"THIS CASE AN EIGHTH ('E'). THE"3d#"REMAINING CH4,0:1015,3:w(#:2:"THIS PROGRAM ENABLES YOU TO INPUT NOTES AND CREATE TUNES, WHICH CAN BE SAVED TO TAPE OR DISK."2#:"THE FOLLOWING ARE EXAMPLES OF THE NOTA- TION USED IN ENTERING NOTES:"<#:9:"HC2 .EFS3"?F#:"IN THE FIRST EXAM,001,133,000":JI135:I767,((POK$,I43,I41)):ITPOK$"170,160,001,132,002,173,048,192,136,208,004,198,001,240,007,202,208,246,166,000,208,239,165,003,133,001,198,002,208,241,096"^I133:I802,((POK$,I43,I41)):I h1013,76:101CONTINUE LISING";X$A:" NT DUR NT DUR NT DUR";HIl24:"PRESS RETURN FOR MENU";X$v1000 @POK$"201,084,208,015,032,177,000,032,248,230,138,072,032,183,000,201,044,240,003,076,201,222,032,177,000,032,248,230,104,134,003,1341:MI0b:N010004vI1N:DD%(I):NTNT%(I)@MIMI1TBTB1:NUMTB:MOD20:60:3R:114(TB20)(MI100)(MI10)MI;". ";NT100);NT;" ";(D10)(D100));DNUMTB:MOD60:60:R597120TB124:"PRESS RETURN TO : jM<t::"DO YOU WANT TO CHANGE ANY NOTES? (ENTER"i~"NOTE #, OR 'RETURN' FOR NO CHANGE.) ";t"";X$}N1NN(X$):N0NN1:6340NN1:FLAG1:2110NN1:FLAG0"NEXT CHANGE (NOTE #, OR RETURN): ";:6280:XTB":6160A$A$"Q":6160/A$A$"H":6160=A$A$"W"WNT0A$A$"R":6220_K0$NN200NNNN2:KK1:6180.I112:X(NNNT(I)):X1.02X.98JI8IBA$A$NN$(J)(K)LT:"#";M;":";A$;V50:TT10:T416250`T1