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`"BIORHYTHM CHART FOR ";Z$N SX 28);"BORN ON ";T$(P1);" ";M1;"/";D1;"/";Y1b 28);"BEGINNING ";T$(P2);" ";M2;"/";D2;"/";Y2l v 28);"P=PHYSICAL (23 DAYS)" 28);"E=EMOTIONAL (28 DAYS)" 28);"I=INTELLECTUAL (33 DAYS)20"RUBIK-END"Z(46):B(15)A(47):B(18)A(48)4v M1:K24:L16:3600:| LI13:J02j$B(KMI3MJ)A(L3IJ)t.J:Iz8XI05:KB(9I1):J29vB(9IJ)KıJ:I::"WAIT":Z$;"BLOAD CHAIN, A520":520"RUBIK-END"K A520":5(41)A(14):B(40)A(17):B(51)A(29):B(50)A(32):B(49)A(35):B(29)A(40):B(32)A(41):B(35)A(42):B(11)A(49):B(14)A(50):B(17)A(51)o u B(45)A(12):B(44)A(15):B(43)A(18):B(48)A(28):B(47)A(31):B(46)A(34):B(28)A(43):B(31)A(44):B(34)A(45):B(12)A)A(34):B(8)A(35):B(9)A(36)6[ M1:K40:L34:3600<^ Ta M1:K4:L2:3600d B(39)A(10):B(38)A(13):B(37)A(16):B(54)A(30):B(53)A(33):B(52)A(36):B(30)A(37):B(33)A(38):B(36)A(39):B(10)A(52):B(13)A(53):B(16)A(54)h k B(42)A(11):BB(13)A(4):B(14)A(5):B(15)A(6):B(22)A(13):B(23)A(14):B(24)A(15):B(31)A(22):B(32)A(23):B(33)A(24):B(4)A(31):B(5)A(32):B(6)A(33)Q W B(16)A(7):B(17)A(8):B(18)A(9):B(25)A(16):B(26)A(17):B(27)A(18):B(34)A(25):B(35)A(26):B(36)A(27):B(7(42):B(19)A(45):B(3)A(48):B(6)A(51):B(9)A(54)H: M1:K15:L7:3600N@ C B(10)A(1):B(11)A(2):B(12)A(3):B(19)A(10):B(20)A(11):B(21)A(12):B(28)A(19):B(29)A(20):B(30)A(21):B(1)A(28):B(2)A(29):B(3)A(30):G M1:K51:L43:3600J M 25:3600, / B(38)A(2):B(41)A(5):B(44)A(8):B(53)A(20):B(50)A(23):B(47)A(26):B(26)A(38):B(23)A(41):B(20)A(44):B(2)A(47):B(5)A(50):B(8)A(53)3 19 B(39)A(3):B(42)A(6):B(45)A(9):B(54)A(19):B(51)A(22):B(48)A(25):B(25)A(39):B(22)A314157,1615141,9$V!23:" ""23::"PRESS ANY KEY TO CONTINUE";:C$:_"44):B(34)A(45):B(12)A(46):B(15)A(47):B(18)A(48)Kv M1:K24:L16:3600Q| cI13:J02$B(KMI3MJ)A(L3IJ).J:I877138,1148154,1089170,10210181,8411181,6312181,4213173,2$"0C2D06000C0C3C3FB752"6$"360700ADF63F1C641C64"R$"2D153600E7642D153677"e$ "1E1E3F0400"$ "64240C6C49494911BF3F" % "173F17BF3F172E15AD0500"%"END"I" $"3BE736273C361C24373E":$"241C3627E436273C3627"V$"3C3627BC36273C360600"r$"C00C36366E3A3F270035"$"913F3F64C4602D153600"$"9B722D0CE4670C3C3F37"$"003A270C0C0C3636F53E"$"0038272C2DF5AA361E3F"$"1C0400ADF63F1C24E50C"C"$"360E242D3E2E25353636":$"36363636363636272424"V$"24242424242437363636"r$"363636363E241C36273C"$"361C24373E241C36272400"$"75243576246436362524"$"2C36362E24357624352E"$"241536252C3625643625"$ "2C360C2C2E2C2D2C2DE5435" $"2E240C2D353F372D3536">$ "36363636363636272424" Z$"24242424243C36363636"v$"3636363627BC36273C36"$"1E24373E241736272400"$"2424242424242424242C"$"36363636363636363676"$"2424242424242424242C"$"360E24352E241536252|$I4654:B(I)6:I/$I819216383:I,0:I?$C1ī9390[$Z$;"BLOAD CHAIN, A520"r$520"RUBIK-RANDOM"$I154:A(I)0:I$$"2424242424242424242C" $"36363636363636363666" $"2424242424242424242C"$"36256436252C360C2*#P$(I$,I,2):H((P$,1)):L((P$,1))@#HH48:H9HH7V#LL48:L9LL7m#P,H16L:PP1:Iw$9120"$ SET RUBIK ARRAY,$I19:B(I)1:I;$I1018:B(I)2:IJ$I1927:B(I)4:I^$I2836:B(I)5:Im$I3745:B(I)3:Ij` $ o\t_tUVWX bE()G=yq$ 8}r 8r8r8@9()r~dNedOe\/?r cP\/?ra()P\p/?ra()6Pb/?/rG\X/?rb/?rE()F/?@r$89UVW;@r`<@*rr<@*rr%Y`;@r$8\,$`$.qqq`;@r$.q8`$Bq q_VB` $V`$`qqq[q/`q8r   q   8r;@r$a(ϠԠΧ)_a(ؠ)G`@9()%a()Ga()_$@p@q\`$__]X`.?|rB/? r$d|eBo.?%rPa()ca(ؠ)G_.qqq6q`;[wa()_7`@9(٠ԠƠͤ)$I`@*#r9()$I`;@r($ca(ϠȠҠŠ)G`@9()%a()Ga()G_5qUVW;@r`<@*rr%q`7%Y5`7$UVW;@r`<@*rr%Y`@9()$2 f`@9()$p`@9(Ϡ)$z`@9()$`@9()$`@9()$\_]Š0qUVW;@r`<@*rr<@*rr$ `  <@*rr$q <@*rrY)$| F`@9(Π)$ G`@*#r9()$H`@9(ͺ)$M`@9()$N`@9()$O`@9()$ P`@9()$0R`@9(ͺ)$ S`;@r$@p@*#r\`@9()$ ^`@9(Ԥ)$@a`r$%@p@*#r*`@9()$+`@9(Ԥ)$64`@9()$9`@9()$R:`@9(Ϡ)$;`@9()$ <`@9()$ >`@9()$&@`@9()$ C`@9()$D`@9()$ E`@9(`@9()$`@9()$`@9()$*`@9()$( `@9()$`@9(ƶ)$ `@9()$@`@9()$ `@9()$ `@9()$@`@9()$ `@9()$:`@9(Ϡ)$d  `;@************ * * * JUNE 1982 * * * *************+74,"THE COAST GUARD ",6,47,48,49,54,55,56B +75,"",4,1,4,64,65******************* * * * A PRODUCT OF Q & D * * PROGRAMMING. DUGYM * * QYCFYL, AUTHOR. * * * ********************ND)",0**68,"THE AIR FORCE (THE END)",0Q*69,"THE MARINE CORPS (THE END)",0w*70,"THE COAST GUARD (THE END)",0*71,"THE NAVY ",6,47,48,49,54,55,56*72,"THE AIR FORCE ",6,47,48,49,54,55,56*73,"THE MARINE CORPS ",6,47,48,49,54,55,56+DIE: 140-200 PLOT DIEe: 1000-1005 HIRES MODE& SET COLOR, CENTER DIE ON SCREEN, PLOT 60 APART: 1010-1200 PLOT DOTS, TIME BETWEEN EACH DIE PLOT N: BY MARK ANDERSON MAY 1980 THIS WILL ":11:"BEGIN THE REROLL."01000021:10:"WHEN READY TO BEGIN,":11:"HIT THE SPACEBAR. ";:A$:A$" "5128: 2200P12:12:"HAPPY GAMBLING !":I13500:I::'I14500:I:: 100-DIMENSION: 130-PLOT SQUARE FOR 7:"TYPE IN ALL FIVE NUMBERS."R9:"****************************************"11:"THE NUMBERS WILL NOT SHOW ON THE SCREEN."13:"****************************************"%16:5:"WHEN DONE WITH YOUR SELECTION ":5:"TYPE NUMBER '9', AS11:"9) A '#' HIGH"D21:3:"THIS IS THE ORDER FROM HIGH TO LOW"22:5:"HIT THE SPACEBAR TO CONTINUE. ";:A$:A$" "51059362:9:"TO REROLL CERTAIN DIE,":3:"TYPE IN THE DIE NUMBER TO REROLL.":11:"TO REROLL ALL DIE,":" 28);"A=OVERALL AVERAGE"% P 13);"DOWN";34);"CRITICAL";20);"UP" 13);"*************************!*************************"  13);"*************************!*************************" L$ I:de.?Lrde.?Mrde.?Jrde.?KrMQ+`$ a(ԠƠΠ)_`;@r$_HUVW;@r`<@*rr%Y`;@r$ UVW;@r`<@*rr%Y3a(ϠԧӠϠĠԠ)E@*#rE()_Ǯ)$oPa(Š)0dedede8dedeH`.?xrB.?yrB$dxedyede.?zrde.?{r)d<e.?zrd=e.?{rdeM.]ŠӠo]̠(ȠϠ̮)_'KM6Pa()cPa()$oP a(ӡ)cNcP a(ՠŠĠҠ)ca(ԠƠҠ)4oa(ŠנΠՠ̠ƠҠŮ)P a(Ӡ̠٠Ԭɧ̠ŠՠԠ̠ΠӮ)_Pca(ŠԠĠӠŠŠ)a(ԠĠӠȠӠ)-a(ӬϠȠԠӠĮ)_%ca(ՠĠŠ)_>a(ǠŠ)caՠŠǠ)G_Po.?%rPa(ɠԠ̠)GM6cca(Ԡ٠)G_zca(ԧӠ٠šɠӠȠ͠ŠŠŮ٬ŠҠΠŠϠŠǠٮٮ)Na(ĠƠէPa()GM6cca(ĠȠ)a(ĠԠ)_a(̠)G_\o.?%rPa(Σ)F/?drGM6ccca(ՠŠǠ)G_\o.?%rPa(ң)F/?drGM6ccca(rr q?{\tca()F E()a()ca(ԠƠӠ)_ca()_0a(ԠȠΠϠϠĠ)_$a(Ϡנ٠)G_%a(ϠȠ٠)G_a(Ϡ)G_^o.?%rcca()G_Io.?%rPa()F/?dr(GM6cca(Š)G_'&a(ΠԠҠ)G_(:a(Ġ )G_&la(ԠԠϠ)G_6v`$ q/?rqq8/? a(٠ĩ)_'a(Šӧ̠٠Ǯ)_'a(٠ġנ٠٧)_*a(ϠҠҠŠ҇)_ !a(Š٠Χ)_@a(Ԡ)G_Po.?%rPa()F/?drF/?(#rGM6̠ɠҠҠĠŮΠŠՠǠϠԠš)_#a(ǠӠŠ)G_>a(ϠĠΠԠ)a(ՠΧԠРש)_ `7$ 7a(ǠΠҊ)o.?%rUVWY@q`$a(ϠǠҠ)G_2`$ a(ԠƠˠΠЧӠ)_A`$ o.?%rPa()ca(ؠ)_5o.?%rPa()ca(٠)c_ja(ƮƮƮԧӠPa()c_6no.?%rPa()c`;@r%a@*r_ xa(ˠƠԠ)G_Go.?%rPa(٠Š)GM6cca(à)G_Qo.?%rPa(ҠŠš)GM6cca(à)G_r_2`;@r$Hf/?r"4l/? rm/?r n/?(r_7<a(Ǡ)a(ՠĠŠ)_Fa(ԠϠŠ)G_'Pa(̠ԠҠ)G_/Zo.?%rPa()GM6c_!do.?%rŠΠŠ)GM6cca(Š)?a(Ԡſ)oM6doM6doM6doM6d/a@Gd8.?)r.?(rre`o_ K_ a(ԠԠŠ)G_(`;@r$Hf/?r"*i/? rj/?r k/?(_.`@9()%a(٠Ġ)G_I`;@r$q\$a(ԠŠՠŠϠӠ˿)_3`@9()%a(ԠƠΠӠ)G_a(Ǡ)G_ L_ `7$ No.?%rPa(Ŭr@+`Z$Pa(Ϡ)F/? r ]c`%Y[a(ԠĠ)G_Rq`$`%q6a(ϠĠϠΠ)G_ \H _C`;@r$q\$a(ĠƠԧӠӡ)) a(ؠ) a(ؠ) a(ؠ) a(ؠ) a(ؠ) cc_L `7$ o.?%rPa()GM6cca(έ)_i `7$ o.?%rPa(ΠΠάǠ)GM6(Ġ̠̬Ġ)a(ˠΠŠӠƠנˮ)C ca(ŠŠŠӠϠŠĮ)a(Ġǡ)_ c a(ؠ) a(ؠ) a(ؠ) a(ؠ) a(ؠ) a(ŠĠϠŠŠĠΠ)a(ԠΠϠŠԠĬ)Y a(ȠӠϠŠȠӧ)ca(ԠԠϠŠӧŠӠ)[ a(ŠΠǬӠ٠ϠŠ)ca(ŬǠ٠ŠϠŠ)Q a)cP a(ЮԮ͠ĠŠԠ)a(ĠƠԧΠӠԠ)N a(ΠӠ͠Πנˮ)ca(ŠŠĠϠӠǠ)R a(ϠҠŠǠŬ)a(ΧԠ͠ϠԠ͠ϠŮ)cO a(̠נȠծŠŠ)a(ӺՠנӠԠ)Q a(ǠՠĠɧ̠Šՠ)a(ŮԠƠɠ̠լɧ̠)' a(Ҡ٠ϠŠҮ)_J a(҇҇҇LJLJLJȇȇȇȇȇՠԠšrq/?rY`7$ `7$ `7/?r$ `$ q_ /?r+ a(ǬǬէŇĮ)_ a(ՠĠš)_" a(ȮՠĠŮ)_2 M6o P a(ǠǠէŠĮ)_ \ qa(Ϯˮɧ a(Ҡ)GM6cca(ŠŠĠɠŠԠŠӡ) `$ _  `$ M6cc q_h `7$ `7%a(Ǡ҇)`%a(Ƞ٠ȠǠ҇)q_^ UVW/?Ǡ)_t a(Ҳՠ)_ | `7$ } o.?%rPL~ a(ҽ)G`%a()G`%a()G`%a()G^ `%a(Š)G`$ a()GM6cca(ϠŠŠϠŠӿ)W `$ĠϠ٬ΠՠҠԡ)__ KM6oS` `7$ a(ŠĠϠԠԠӺŠ٠ϠԠԢ)_2j `7$ `;@r$k `@*#r9(Ҳ)$t Ik o.?%rPa()GM6cca(ǠϠ a(ӠϠٮԠŠ̮)B c@p(İ)a()GUVWUVW2Ya@*#rGYc_V o.?%rPa(ΠӠΠ)GM6ca(ŬԠӮ)c _]ؠ\. a(Ԡ͠ɿҠſƠՠԠԠΠҠ٠ʮ)a(ĠȠ۠ԠҠŮ)q ca(ΠՠĠŠԠĠԠ)a(ȠŠҿ)ca(̠ŠӠĠӠˮ)X ca(ŠҠŠĠŮŠ)a(ԠƠΠӠĠҠ)*o.?%rPa(Π)F/?rGM6cc-a()a(ź)_E`.?rB$deBa(ĠĠŭ҇)c; a(ؽٽнӽ)cUVWYR a(ҠŠӠΠǠŠ҇)_>o.?%rPa(ĠҠ)G`%a()+`%a()q_1a(ǠĠǠĠî)_Ka(ǠĠǠĠî)a(ԠĠՠԿ)_9(@p()qd3edxe_(@p()qd3edxe_sa(̠ԧӠ̠٠٠ҠՠϠ٬ԠէŠԠŠŠԠӠϠŠȠӠӮ)_Ro.?%rPa(Πš)GM6cca(a(Ϡ٠)G_P\o.?%rPa(Ӡ)F/?drcca(Ӡˠ҇)_f_Lzo.?%rPa(Өɧ͠ĠէŠǠҮ)_H`7$ o.?%rPa()ca(Ǡ٠҇)_' a(˺ϠȠŠ)G_*a(Š)G_e4o.?%rPa(ŠҠ)GM6cca(Ԡ҇)a(Рǩ)_>>`;@r$Ha(ԠȠǬԠŠǡ)_H_)R`;@r$Hra@*#rE()Gq/?ra@*#rE()G[a(ΠҠ)G[a(ƠŠӠŠ)G[!a(ƠԠԠԠΠ)G[@a(Ơ)Gq/?ra@*#rE()F/?rE(Π)G[Ta(Ơ)Gq/?ra@*#rE()Gq/?Y c d2eY \ _F q.?6Hr`%d6?e`%d6?e`%d6'?e[# d6?ed6?ed6(?e["a(Ơ٠Π )G[a(ƠƠ)G[a(ΠΠ)G[a(͠)G[Oa(Ơ)Gq/?Ԡ)\ [ \ q\$ dNedOe a(ˠ̠)c a(ɠ) a(ɠ)- UVW/?r a(ɠ)F/?rdE()GV UVW/?rd2e@ /?rq/?ra@*#rG`7/?r%a()GBb dHe dIedJedKedLedMedNe80l dOedPedQedRe9dSe` q ]̭ `.?rB%[deBDH `7$R cUVW/? r a()F/?r GYa()c+R a(ĠȠ)a(Ġd'eh9D d(ed)ehd*e d+ed,ed-e` I ]TN d5e,d6ed7ed8ed9ed:e,d;ed<ed=e`S ]̠KX d@edAedBedCe8dDedEedFedGe9d ed ed ededededede de]0 dededededededededede]: deded ed!ed"ed#ed$ed%ehd&eede  ]ޤİ cZ d.ed/ed0ed1ed2ed3e<d4e`d<e.?zrd=e.?{r deM.  ]̠] deHdedeHdedeHde deodeded e]& d eed7ed8ed9e]̠T d`edaedbedce8ddedeedfedge9dheL7 diedjede`dede]Z `.?xrB.?yrB$ dxeBdyeBdze.?rd{e.?rd?r%\4!_  Kd6?e M6oP a(Ҡ) cPa(Π)1 o Pa(Π٠Š)o- d6?ea()a(Σ)d6?e% @p() q 1 d6eq6K N@" rC@"rqN@"rC@"rD4 rUVW -rqYH K@p()d3eq`.?xr$ @p()d3eqo dxe<@r`.?rB$  UVW `.?r%Y# `.?r.?r$ deB `.< de.?Lrde.?Mrde.?Jrde.?Krde9 de de,dedeLdeYdeL d ed<ed=e d>ed?edBedCe M_I `.?%r%o.?%rPM6dJedKeded a(ǠŠǠ)G_'Z `7$ a(ԠԠơ)_^d o.?%rPa()GM6cca(ĠȠ)a(ĠԠ)_= UVWM6UVW88rr YYd6?e dede ]Ų o.?%rPa(Ľ)F/?r8GM6cca(ȠҠϠ̇)_ 2 `7$ a(Šũ)_F `7$ cco.?%r'G a@Gd8.?)r.?(rre`c4K UVW,Ya(ɧ͠ǩ)o.?%r_.P `7$%a(ΠɠӠĠɠĠϠˠؠӠϠ̮)A `%a(ŠħԠĠǠנΠɠӠǮ)$ `%a(͠٠ҁ) `%q_8 `7$ a(ՠԠԠĬՠŠԡ)_g( `7$d2e_! `7$ @p()d2e?_8 `7$ @p()d2ea(Š҇)_3 `7$ a(ҠǠӠ҇)_ `7$ \ _J `7$ `%a(ΠɠӠҠŠŠΧԠŠӮ)G `þcca(٠҇)_# a(ǠŠ)G_h `7$ o.?%rPa(Ž)F/?2rE(Ӯ)a(ԠΠΠŠӬŮ)_> `7$ a(٠ĠΠȠ҇͠)_! `7$ @p()Π٠)a(ŠάǬӬ)Ua(ŠΠΠȠŠĠ)a(Š͠ŠĠî)cMa(ƠՠΧԠŬէĠŠ)a(Ԡ٬ΧԠտ)ca(Р҇)_+()a()_2` %a(ӠĠĮӠΡ)G` $qa(ɧ͠ǠՠΠŠҡ)_ Va(ŠӠƠ̠ӠŠ)a(Šź٠Š͠Ҡ)Va(ҠŭӠĠ)`%a(Ǡ)X`%a(ԠΠ)`%a(Ӡ)`%a(Ġ)J`%a(ĠԺ)`%a(̠Π)3`$a()a()a(Š)aԡ)q_A`$o.?%rPa(Š)E@*r_a(Πՠϡ)_ 7o.?%rPa()ca()_"a()F/?rF/?rF/?r_ b#_Nq`%a()`%a(Dj`;@r$l`<@*rr$nq`@*#r9()%qb2?r_Cla(Ȯ٬ɠΧԠ)`;@r%a(Š)D@*r_Fna(ɧ͠٬Ԡɧ͠ٮɠΧ)a(ԠҠΠ)_ra(̠҇)_+|a(ϠԠ٠%a(ӠŮ)qe`%a(ŠҠŠȠԠ)`%a(ԠƠΠԮ)` %a(ŠŠ)Rf`%a(ӠΠŠנ)`%a(Ȭ٠Ĭɧ͠Ҡġ)_+hUVW;@r`<@*rr<@*rr%YĠǠŠԠ)a(ĠĠȠĮ)[`a(Ĭ)_Qcq/? r`%a()`%a()`%a(ԠƠΠӠ)kd`%a(٠٠ŠƠǠĮ)`%a(ΠĠŠ)`Ҡ̠ĠϠ)a(ĠĠ٠͠)a(Ԯ)[u]a(ǠΠ̠ȠǬ)a(٠ŠĠǠĬ)a(ӠΠӠĠ)[t^a(ΠԠˠΠƠϠӠϠ)a(ǬǠԮ)a(̠ŠƠŠŠ)a(ĠŠŠϮ)[)Za(ҠϠӠΠŮ)[v[a(ŠϠӠĠӠŭ)a(ΠϠӠ٬Ӭ)a(ӬӬӮ)[_\a(/U\U`$UVW -rqY_1Va(נƠΠȠӠӮ)[@Wa(ĠŠȠǠ͠)a(٠Ơ)[EXa(ϠŠ͠Ƞ)a(̮ϠŮ)[kYa(Ǭԭ$Q_ fQa(ĠӠŠƠǡ)a(ˠŠΠĠɧ̠РՠϠŠҡ)q_DR`7$ q` $Ta(Ӡ҇)_LT`;@r$`q/? r`-r$T-rqq` %qՠϠӮ)_<6a(Ԥ٠ԠƠͤŢ)`7%q_=@a(Ԥ٠ԠƠͤӢ)`7%q_I`7%qRJ`$Oo.?%rPa()GM6cca(Ӡ҇)_O`)_%a()_(&a(ΠЮ)_'a()_(a(٠)_)a(Ġ)_"*a(ӠԮ)_&+a(Ժ٠Ǡ)_?,a(àŠϠӠĠɧ̠̠ӠӠǮ)_/ b/?rE(Ԭ)F/? rE()_$a(٠҇)_a()F/?rE()F/?dr_G"q`%q\#_#a(Ҡ)_$a(ΠΠĠΠĠΠĠή)GM6cc$a(Ϡ٠ΧӠ҇)_@p@*rq_ca()_ ca()PUVWYca(٠ΧԠՠŠŠ)a(ҠĿ)_L`$ qa(ŠԠĠra@*#rGa(Π)G[Va(Ҡ)Gq/?ra@*#rE()F/?rE(Ϡ)F/?rE(Р)F/? rG['a(̠)Gq/?ra@*#rG[a(Š)G[.a(Π)F/?rE()F/?drE(Ԡ)F/?r[I`7$ o.?%rPa(ȡ)UVW;@ra@*#rE()GUVW YZc'(dx.?6Hred6HeM06)cca(ӬҠˬɠנ̮͠)_ *`A$\q5+a(Ǡ)GM6ccq\$q,\4`;@r$0\d6?eK_ `X$*q!@p(ŠՠſٯΩ)7"oPM6doM6dq\q#\$\%a()`.?6@rY$9&d0e d1ed2ed3eLd4ed5eZ'@p(PM6\@q\$q/?r\$\~q/?r\$oM6<@p(Ԡ̠)UVW(UVW;@ra@*#rG3`.?$r'$d2e?a()Gd2eP.?$r YZa()% @p(ġ)oPM6d\@p( ҠĠ)[/@p(Π̠Ϡ)[@p(Ġ)[(@p(ԠҠ)[,@p(ŠӠĠ)[[`L$ q(@p(Ǯ)oĠҮϮ)[0@p(ԠȠĠ)[*@p(ĠԠ)[2@p(̠ȠĠ)[0@p(ˠŠĠ)[2@p(ǮΠ٠ĠҮϮ)[0ΠĠ)[2@p(ӠΠĠ)[0@p(ΠΠĠ)[1@p(ΠΠĠ)[/@p(ȮҮΠϠ)[2@p(ŮĠԠoM6\ccq\$q\`;@r$\q@p()_*@p(ҺŠ)[ @p()[)@p(Ҡ)[2@p()[0@p(Ԡp(ɧ͠ǠӠԠӠɠΠס)(oPM6doM6d\_ `F$q]'oP@p(Ǯ)M6d\q /? r\$@p(̠ġ)\_`C$qF@p(ǠҮ)P/?'ra()YM6 \\qq_loPM6d`E$qh@p(ϠϠՠŠŠҬ͠)oPM6doM6d\@p(Կ)o\_`R$q*@_%Jv`BGRXA?HL$kod2e?P/?ra()GP /?ra()GP/?ra()GP/?ra()GP#/?ra()G/d2eP/?ra()GP /?ra()4UVWo/?rcCX@p(ծîӮĮ̠͠ɮ)UVW;@ra@*#rGYcc&b@p(ԠŠӠҭ)\!g\q\$a()o i\\1l\oP(a()o`%M6q qq.?6@r/r`7$vq`Y%qed6?ed6%?e]ȠΠIJC8UVWXYd6?ed6?ed6&?e\ q\$[:qqqqqqqqDPa()q(No @p(Šű)\ŠԠ҇)q_'a(ŠŠϠ)GM6ccAa(ĠƠӠӡ)ca(̠)_  0]3qF5KM6d2e?oa()Gd2eq\$q\$47\ d6?@p()`/?r%@p()a@E()Lb/?hrE(Ӭ)F/?<rE()G@p()`/?r%@p()a@_5`;@r$UVW;@ra@*#rE()GYc_Ho.?%rP`$a(ŠŠӠ)GM6cc>a(Ǻ)_Ua(Ӡ)E@*rca(ӠϠ)E@*rca(Ӡ)E@*rca(ӠϠ)E@*rc1a(ՠӠРǠӠԡ)_Mo.?%rPa(Ġ)GM6cca(ĠŠ҇)_Kb/?hrE(Ӭ)F/?<rE()Ga(ɠΧԠננϠΠԮ)_Tq`%a()`%a()`%a()`%a()5`%a(Ƞԡ)`$a()c3a(ϠԠŠҠӠǡ)_ #`;@r$a(ԠԿ"/?r2"a(ŠĬĠŠԠҮ)_P'a(ԠӠӠŠҠԠӠԠ)a(ŠԠϠŠԠԠ)2(a(נŠŠΠǠٮ)_E,a(ӠٺĠ)a(ŠUVW;@rq<@*rr`%q`8r%qYI`$dNedOe`$@p()`/?r%@p();a@F/?rF/?rE()F/?rF/?rE(Š)F/?r__rG[a( )F/?rG[a(ԠӠ)G[ a()G[ a()G[-`7$ `;@r$`<@*rr$Da@*8<@*rr;@rr#;@r8<@*;@rrr;@rrr_3qq@p@`;@rd$a)G[a(ͺ)G[a(ͺ)G[a(Π)G[a(Š)G[a(̠)G[ a()G[a()G[ a()[5a(Π)F/? rE()F/?r E(Ԡ)F/?(rG[a()G[a()G[a( )F/?a()G[a(̠)G_/?r(a(Šͮ)G[a(͠Ҡ)G[a()G[a(٠Š)G[#a(ΠԠŠҠ)G[%a(נРŠϭ)G[a(ȠŠ)G[a(РsY_j'VUVW/?rd6HeYM0`UVW/?drYjYl\ o`%[ tdxed6HeM0u[ ~dxeKd6HeM0[a()G[a()G[a(š)G[a(Ԡ)G[ Xa@*#rGY[9$d0e d1ed2ed3eLd4ed5e.q.?6Hr8d6Hed6 HeM0=d6He/?rM0?\ BUVW6Ld6He.?6Hr`7%d6He/?rM0#Q`7$VUVW%q(P[)UVW;@ra@*#rG`.?$r'$#d2e?a()Gd2eP.?$r8Y`%[`.?$r'%a()G`.?%r7%c[dMed6?eM5dMe[0@p(ĺŨԬҨάƨ̬èͬȨ)/oPUVW')[ @p()[5@p(Ϡՠ̠ȠϠԿٯΩ)q[@p()[q\a()M6`.?6@rY$FM6o\q\~q\$Pa()o_ oP(3d2e?a()Gd2eq.?$r`7ŠǠӠκ)[ @p()[`%[@p(Ũ)[`%[@p(Ҩ)[`%[@p(ƨ)[`%[@p(è)[`%[@p(̨)[`%[@p(ب)[`%[@p()[`%[@p(ĨM68u@p(̨ˬبŬͬĨǠɮ)\\w_l z]@`$%q\$qoM6c+\`@9()$`;@r$\q@p()_)@p(ao@p(Ǡ)M6d\q\$M6d@p(ΧԠĠǠǮ)\c_f`?$pho`$q:k@p(ĺ̨ˬبŬͬĨ)\\m_lp`$z)ro`$q\~\t[D@p(Ȭٮ)[ E@p()[/F@p(Ġ٠ŠƠӠ)[G@p(ǠҠή)[]H@p()`.?6Hr%d6?e`.?6Hr%d6?e`.?6Hr%d6'?e[I@p(Ϯˮ)[J[\`D$fq^ǠŠԭĠŠĮ)[=@p()q\$[>@p(Ӯ)[4?o.?%rP UVWY@p(Ȭ̮)[ @@p()[,A@p(ננҠѱ)[2B@p(͠ŠԠǠƠŠԠ)[C@p()\~ͮԠŠԭ)[15@p(ǠԠϠŠĠƠŬȬ)[-6@p(ҬȠӠ׬Ԭ)[7@p(Ů)[ 8@p()[9@p(Ϯˮ)q\$[ :@p()[.;@p(ΠԠԠϠԠí)[0<@p($.q@p()UVWdY_,A0UVWYUVWd2e@ /?rq/?r31o/?rP/?&ra@*#rGYd2e42d6?ed6?ed6(?eqd6?e#3UVW`.?6@r%Y_/4@p(Ȯ[ia(Ҡ)G[ja(ԠԠ)G[ka()G[@q/?r\$%TM6a(Яȭ)R^a(ԠŠҠ)a(Ԡӽ)F/?rcUVWYha()GUVWYXra(ҨөҨՠҨ[ Ya()G[ Za()G[ [a()G[\a(Π)G[!]a(àԠ)G[^a(Š)G[_a(Ԡ)G[`a(Ġ)G[ aa(ޠ)G[ba(Ҡ)G[ca(Ԡ)G[ da()G[ ea()G[fa()G[ga(Ġ)G[ha(įҠ)G )F/?2rG[ za()G[{a(Π)F/?rG[|a(ң)F/?rG[}a(Σ)F/?rG[=~q/?ra@*#rE(Ψ)F/?rE()F/?rG[$a(ӠӠӠԠԠ )G[a( )G[&a(įҠĠĨΩ)F/?& rG[ Xa()G)G[qa(ԠҬ)G[ra(ҽ¦)G[&sa(ŠƠ͠Ŭ)G[ ta(ԺԺź)G[ua(̠Π̠)G[.va(ԠŠ Ĩ)F/?drE()G[wa(ԠԠԠԠ)G[xa()G[ya(ҠɠԠĠϠŠΠ)a(Π̠Ԡ٬ԠϠ)ia(נԠΠӠϠȠԠ)a(ԠĠĠŠ٠Π)a(Ġӿ)_=a(ǠŠ҇)ca(ȠϠ̩)_pa(ŠӬ)a(ȠӠάӬάĤî)_4wa(ŠՠĠҠΠĠ̿)_W|a(ɠԠΠϠԠΠŠ)a(͠ĬŬϠά)3~a(ĠŠ̠ĠŠŠή)_Xa(ϠɠĠĠخ)Qna(ՠĠŠϠ٠ΠȠ)a(ǠԠĠŠ٠Ӡ)Uoa(͠ŠӠҠΠԠ)a(ŮנՠԠŠϠԠ)#pa(ŠҠ٧)_Ura(ŠŠϠ٠̠ŠŠӠՠϠŠĬ)a(άάĬĠ)Uka(Ġ̬ĠĠ)a(٠ӠӬĠΠԠ)"la(ήԠš)_Xma(ϠɠϠϠӠ٠ȠĠ)a(ĠРȠΠССɧ͠ǠĠŠΠ)a(ŠٮŠ٬)_Sha(ĠϬҮĬҠҠ)a(ŠƠĠǠ)Oia(ԠϠԠϠŠҠŬ)a(ԬΠũӠ)Nja(a(ƠԠǠΠŬȬϠ)q[a(ŠŠŮ)ca(ĠҠҬŠĮ)ca(נԠϠՠŠ)a(Ԡ٠Կ)__^a(נӠǠӠŠЮȬ)a(ԠΠҠϠӬɠӬ)_]ca(WYsVa(ȬŧӠŠŮ)ca(ӬӬӬ)a(Ӭ٠ӬέĠӮ)WXa(ŠŠנƠ٠֭ҭŠӮ)Pa(Š)d6?e_VYa(ϠɠĠϠŠҬǠ)Ԡ)a(ՠԠŠӮĠ)UQa(ӠġԠӠӠ٠)a(ҬٮɠΧԠננ)HRa(ӠɧŠĠՠԬ)ca(ɧ͠Ԡ)_A1 @12:3 C"-->" H A1LOOPDLYLOOP A1 12:3 "<--"   STOP COLD  A0  12:= ";Y;" " - "DAYS= ";D;" "3 K "HOURS= ";H;" "Q i "MINUTES= ";M;" "o  "SECONDS= ";S;" " B  INPUT? I(16384) 16368,0 I149İ2100: + I136İ2200: - I204İ2400 I14 20000 DLY14$LDLY1.5,:7d33,25Bi32,15HnPpA0YsTA1qxH0:M0:S0:D0:Y01000: PLOT TIME MAIN LOOP1000030001000SMHDY0A04000200 PLOT TIME2 "YEARS      $:DNES."&:" THE OBJECT IS AQUITTAL"W:" WHEN CHALLENGING A JUROR USE THE ARROW""KEYS TO POSITION THE CURSOR OVER THE""DESIRED JUROR THEN PRESS THE " "KEY TO CHALLENGE HIM." 23:7:"PRESS TO CONTINUE";:CH$:CHJUROR IS SELECTED RANDOMLY BUT THE "R"AMOUNT OF EACH IS STATISTICALY CORRECT""IN RELATION TO THE OTHERS. (I.E. MORE""BLUE COLLAR WORKERS THEN PROFESSIONALS)."" THE STATISTICS AND TENDENCIES CAME ""FROM VARIOUS BOOKS AND MAGAZI.p:" 'JURY' IS A SIMULATION OF THE JURY"[z"SELECTION PROCESS. IT WAS DESIGNED TO""SHOW THE RELATIONSHIP BETWEEN AGE ,RACE"",SEX ,CAREER AND A JUROR'S VOTING TEN-""DENCIES.":" THE AGE ,RACE ,SEX AND CAREER OF EACH"$"E IN AS FOLLOWS"8*:X112:"JUROR #";X;15);D$(X):I4X12000:Xp>(T12)ZFV$"NOT GUILTY !":2130HFV$"GUILTY !!!"R:"THE JURY'S FINAL VERDICT IS ";::FV$:\23:" DO YOU WISH TO TRY ANOTHER CASE (Y/N)":1010:CH$"Y"Ĭf:ǠԠà)G4R!a(̠)Ga@,\!a(ԠŠҬî)c$f!a(Ԡ٠)c p!a(̠Ӡ)cc[$]ԠŠ u]ΠҨҨ)a(٩)cUVWYa()\cLa(ҨΩҨȠƠӠө)UVWYo_74!@p()M6*>!a@Ga()GP(a()Ga()GP(a()G0H!a(Ԡ۠Š)a(ҨΩҨũҨҨϠ)Y|a(ҨҨȩҨҨũ)a(ҨԠҨҨϠҨ)GUa(ҨǩҨҨҩ)a(ҨҨ٩ҨҨҨ)<a(Ҩ٩ҨFIRST VERDICT IS! NOT GUILTY; IF AVERAGE OF TN(X)T IS < Z THEN FINAL p VERDICT IS NOT GUILTYvZ(213)3112 T0:X112:TTTN(X):TN(X)ZD$(X)"NOT GUILTY !"::2080D$(X)" GUILTY !": " THE FIRST BALLOT CAM:1080:l&v DETERMINE VERDICT,2Y" THE FINAL SELECTIONS ARE :"::v1040:X112:1400::XX139:"-";:X:20:" THIS IS THE FINAL JURY":"PRESS TO GET VERDICT";:A$:A$: IF TN(X) IS < Z THEN H1810X121750SSJ12ĺ:::"YOU HAVE SEATED 12 JURORS":X11000:1950::"YOU HAVE SEATED ";SJ;" JURORS":X11000:&XSJ112:1080:01040:XSJ112:1400:""::CRSJ:1550D N FILL OUT JURYXbXSJ112J1R211630KS$(WH)"":PP1:WH2SJ:X139:" ";::"":WHSJ1YP01740c1630mSJ12X112:S$(X)""17801810SJSJ1:YX11:S$(Y)S$(Y1):A(Y)A(Y1):R$(Y)R$(Y1):J$(Y)J$(Y1):TN(Y)TN(Y1):YSJ12C%TWHSJ1::CLCLCH:PCH:16368,0C^WH2(SJ)::XWH:1400:ehCH$:(CH$)8(CH$)211640vrR(CH$):""|R8ĢWH2SJ:1400:" ":WHWH1:WHSJ1WH12R81630R13R211660R21ĢWH2SJ:1400:" ":WHWH1:WH12WHSĉ::1950j6:"HOW MANY CHALLENGES DO YOU WANT TO MAKE":"(YOU HAVE ";CL;" LEFT)":CH:CH12CH11590@CHCLė:"YOU ONLY HAVE ";CL;" CHALLENGES LEFT":X12000:X:1590J16::" TO CHALLENGE,ARROW KEYS MOVE CURSOR";::X139:"-";::""00:"":SJ0:CR0CL0ė::"YOU HAVE NO CHALLENGES LEFT":"THE COMPUTER WILL FILL OUT THE JURY":"PRESS TO GET THE VERDICT":CH$:CH$:1890X139:"-";::"""34,17 ,:"DO YOU WANT TO MAKE A CHALLENGE (Y/N)":1010:CH$"N");14);A(X);17);R$(X);27);J$(X);(VS$(13),A(13),R$(13),J$(13),TN(13),D$(13)`CL12"DO YOU WANT INSTRUCTIONS (Y/N)":1010:CH$"Y"İ2160X112:TN(X)0:12:16::"WORKING":X112:1080:1040X112:14(X)"CIVIL SERVICE":TN(X)TN(X)3OPY25J$(X)" BLUE COLLAR":TN(X)TN(X)1}ZY55J$(X)" WHITE COLLAR":TN(X)TN(X)1dY70J$(X)" UNEMPLOYED":TN(X)TN(X)3nxS$(X)""āY139:" ";:Y:X10ĺ" ";X;:1430X;"5);S$(X)TN(X)104 Y85R$(X)" SLAVIC":TN(X)TN(X)12^ Y95R$(X)" SPANISH":TN(X)TN(X)10d x  JOB SELECTION~ ( 2A(X)60(34).75J$(X)" RETIRED":TN(X)TN(X)10:1390 <Y(87)80:J$(X)" PROFESSIONAL":TN(X)TN(X)5!FY10J$ECTION < Y(756)100:R$(X)"W.A.S.P.":TN(X)TN(X)7e Y25R$(X)" IRISH":TN(X)TN(X)3 Y40R$(X)" ITALIAN":TN(X)TN(X)2 Y50R$(X)" JEWISH":TN(X)TN(X)1 Y55R$(X)" NORDIC":TN(X)TN(X)2 Y65R$(X)" BLACK":TN(XALE":1140% LS$(X)"FEMALE":TN(X)2+ V? ` AGE SELECTIONE jk tY(23)100:A(X)20:TN(X)TN(X)5 ~Y10A(X)30:TN(X)TN(X)3 Y30A(X)40:TN(X)TN(X)2 Y50A(X)50:TN(X)TN(X)2 Y75A(X)60:TN(X)TN(X)3   RACE SEL  8 :::D$"":D$;"IN#0":D$;"PR#0":1450] CH$:CH$(89)CH$(78)1010h CH$:n  :" #"7)"SEX"13)"AGE"21)"RACE"34)"CAREER":X139:"-";::"":  $ SEX SELECTION . 8TN(X)0 BY(65):Y.5S$(X)" M *-  * 5/7/82 *K  * *i  * *  * ALL *  * RIGHTS *  * RESERVED *  * *  *********************** ***********************= * *[ * J U R Y *y * * * B Y * * * * D O U G * * C O L L I N S *  *           VINGDUMMY STATEMENTS SUCH AS 'A=A' IN THE"VN"DELAY LOOP (LINES 10000 THRU 10120)."N:"HIT ANY KEY TO START. ";:I$::IET TO ZERO; STOP"$fN"S: SET TIME"ppN"L: POST LAP TIME (UP TO 7 LAP TIMES MAY BE DISPLAYED AT ONCE)"uN"ESC: QUIT"zN:"YOU CAN TINKER WITH THE ACCURACY OF THE STOPWATCH BY CHANGING THE VARIABLE"*N"DLY IN LINE 10, OR BY ADDING OR REMO************STOPWATCH - BY DANIEL TOBIAS - MAY, 1982";f/N"****************************************"4N"COMMANDS:"::"RIGHT ARROW: FORWARD">N"LEFT ARROW: REVERSE"HN"RETURN KEY: STOP"RN"SPACE BAR: PAUSE; HIT AGAIN TO CONTINUE"\N"0: RESJPAUSE08100^13:4#h" "/rPAUSE05|G SET PAUSE:R13:4["P"gPAUSE1m{(#:936:' TIME LOOP'LOOP1DLY'AA'QQ1'AA:AA'2000$'LOOP* N6*N::"****************************bZca(ΠҠ)Q][[]edBedCe8dDedEedFedGe9bWdHe dIedJedKedLedMedNe8]5XdOedPedQedRe9dSe`M4YM ca(Πìɬ)]d erd ed ed e`Tdedededede ]hUde dededed ed ed e`]KVd@edALd5ed6eM.]Qd ed ed ed ed ed ed ed ed ed eTRd ed ed ed ed ed ed ed ed e]Sd ed ed ed ed ed ee.?rdedeeNd8ed9e`.?r.?r.?r.?r%deB]nOd.ed/ed0ed1ed2ed3e<d<e.?zrd=e.?{r],Pded4emKd`edaedbedce8ddedeedfedge9dheL]QLdiedjede`dede]ZM`.?xrB.?yrB$NdxeBdyeBdze.?rd{TI]HJdJedKededeq6]a()G`.?6@r$_]dMe_I]'ca@G] dMe.?r_%#_I])2dMe]uA]x]-a()Ga()Ga()G]|] E`.?r .?r%dMe.?r_I]3M@dMe.?r_I]]]     Ҥ)$`@9()$c`@9(Ĥ)$J`@9()$f`@9()$ `@9()$ `@9()$n`@9()$ `@9()$ `@9()$`@9()$`@9()$`@9()$P `@9()$`@9()$|`@9()$`@9()$`@9()$`@9()$`@9()$`@9()$`@9()$`@9()$`@9()$`@9()$`@9()$`;@r$@p@*#r`@9(7$ `;@r$@p@*#r<`@9()$D`@9()$F`@9()$H`@9()$P`@9()$Q`@9()$zZ`@9()$"d`@9()$,n`@9()$Jx`@9()$T`@9()$h`@9()$r`@9()$`@9()$(`@9()$`@9()$2 `@9()$>"`@9()$$`@9()$<%`@9()$@&`@9()$(`@9()$l*`@9()$,`@9()$v0`@9()$7:`<@r$`)$F `@9()$`@9()$`@9()$`@9()$`@9()$`@9()$ `@9()$  `@9()$4`@9()$@`@9()$_ `@9()$`@9()$`@9()$ `@9()$x`@9()$`@9()$`@9()$`@9()$`@9()$`@9()$z`@9()$`@9()$R`;@r$@p@*#r`@9()$`@9()$`@9()$`@9()$`@9(`@9(Σ)$`@9()$`@9()$j `@9()$. `@9()$ `@9()$F`@9()$`@9()$P`@9()$`@9()$Z `@9()$Z`@9()$`@9()$d`@9()$`@9()$@9(Ơ)@9(à)@9(̠)@9(ؠ)@9()@9(Ġ)$|`@9()$ `@9()$`@9()$`@9(Р)$0-`<@r$UVW;@r`<@*rr%Y`;@r$@Brp@*r`;@r$@p@*#r`@9()$`@9(ң)$`<@r$@p@*rY`;@r&%o.?%r`.?3r$)`;@r$`@*#r9()$@]ƠէŠǠӬէŠΡ,`;@r$6@p@*#r`;`@9(Š)@9(ՠ)@9(ɠ)@9(Ƞ)@9(Ҡ)Ye@Brp@`<@r$x`<@r$ q]na@G_ xq8q`$]]-`;@r$`;@r%@Brp()@p@/UVW;@rj\de dede.?Mr_]#__]qd] dMe.?r_%#_Z])2dMe]TZ]P[`6$_q6\ `.?r .?r$]-a()Ga()Ga()Ga()G`.?6@r$_]dMe_Z]'ca@G]|]x]E`.?r .?r%dMe.?r_Z]3M@dMe.?r_Z]]]                                                 "ELECTRIC"::"LETTERHEAD MAKER";::" WILL DO ITS THING."o22:"=== PRESS ANY KEY TO CONTINUE == ";:A$: ========== END ==========N LEFT. ADD THE LETTER ";K$;"R";K$;" TO END OF THE LINE IF YOU WISH THE COPY SET""FLUSH RIGHT. IF YOU WISH THE COPY TO BE CENTERED, ADD A ";K$;"C";K$;" AT END OF LINE";:"THEN SELECT OCCUPATION FOR LOGO OR TRADEMARK DESIGN AND THE ";::=========== "YOU WILL BE ASKED NAME OF THE COMPANY, ADDRESS AND THINGS LIKE THAT. ANSWER ASYOU WISH ";::"EXCEPT";::" WHEN YOU GIVE THE""ANSWER, ADD THE LETTER ";K$;"L";K$;" TO THE END OFTHE LINE IF YOU WISH THE COPY SET"R"FLUSH)2 l Fv ==================== FLUSH LEFT ==================== [ W$(W$,(W$)1)e C1: ==================== FLUSH RIGHT ====================  W$(W$,(W$)1) C40(W$)  ==================== INSTRUCTIONS =========20:S$W$& 22:C1:K$;S$;K$_0 ==================== COPY LINE UP ==================== : (W$,1)"C"W$(W$,(W$)1):3170D (W$,1)"L"3190N (W$,1)"R"3220X ==================== CENTERING ==================== b C(40(W$) Z12000:Z:23:1:\ ==================== PRINT LETTERHEAD ==================== b x W$N$:3120:N$W$ 2:C:N$ W$A$:3120:A$W$ 3:C:A$ W$C$:3120:C$W$ 4:C:C$ W$P$:3120:P$W$ 5:C:P$ W$S$:311:B$:Z125:Z:X:X3911:6:X:T$;B$:Z125:Z:X:Y:2800q 10:X4011:6:X:(63):X:255:2800( X732:R(26(1))1:6:X:(R64):Z150:Z:X:Z11000:Z:X126:1669X,X:Z175:Z:X:2800 X140:6:X:(61):X:2800R64);:X:2800/R(3(1))1:T$"SILENCE "FR1T$" QUIET! "]R2T$"SHHHHHH "~X1408:6:X:T$:X:2800X240::6:X:B$::6:X1:B$:Z175:Z:X:2800` X140:7:X:(46):XCj T$(79):Y14:X240:6:X:T$:6:X:2800*X1402:6:X:(35):X:2800lX3405:7:X:(42):X:X3405:8:X:(33):X:X140:9:X:(94):X:2800X140:R(3(1))1:L$(46)R1L$(45)R2L$B$6:X:L$:X:28004X140:R(26(1))1:6:X:(- L$"II /// ":X3377:6:X:L$:X:2800] xL$"**ERR"::X1405:6:X:L$:X::2800 L$(78)(79):50:X2393:6:X:L$:X:255:2800 @L$"TAKE 2 ASPIRINS, CALL ME IN THE MORNING":22:1:L$:2800200:1:1:X1960:(32);:X:255,2700,2750R  ==================== TRADEMARK DEPARTMENT ==================== X239:6:X:(95);(48):Z150:Z:X:2800 X239:6:X:(95);(48):Z150:Z:X LL$"-OO-":X1405:6:X:L$:X:2800 X140:6:X:(36):X:2800"13) LIBRARIAN"' "14) BOONDOGGLER"C "15) TENNIS SPECTATOR"` "17) VERY TIDY PERSON""} "18) NONE OF THE ABOVE" :"SELECT BY NUMBER ";B 3010 B1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600 EYEGLASSES" h"3) FINANCE"8 r"4) COMPUTER DEALER"M |"5) PROGRAMMER"j "6) MAGAZINE PUBLISHER"{ "7) DOCTOR" "8) SPY (OR SECRET AGENT)" "9) PUZZLE FREAK" "10) HORTICULTURIST" "11) TELEGRAPHER" "12) CRYPTOLOGIST" + 20:"DO YOU NEED INSTRUCTIONS? ";:A$= A$"Y"İ4000C [ "COMPANY NAME ";N$u "STREET ADDRESS ";A$ ""CITY/STATE/ZIP ";C$ ,"PHONE NUMBER ";P$ 6"SLOGAN OR MOTTO ";S$ @ J"TYPE OF BUSINESS..." T:"1) CARPETS" ^"2) d::n$x THE ELECTRIC; LETTERHEAD MAKERQ PAUL'S ELECTRIC` COMPUTERp BOX 42831 LAS VEGAS NV 89116 (C)1982 PAUL RAYMER IV/XII/MCMLXXXII"DESIGN YOUR OWN LETTERHEADS!" K$(34):B$(32)     z#Xγ   Ƞ  ԠɠϠԱԠɠϠԲ" ҠŠˠ֠ˠ˭Ġ˭Ԡ˭͠˭ŠɭɠŠŠҠ ӮΠ Π+àĠ!ԠΠӠ ٠ΠΠŠŠŠŮʠΠˠΰ"ŠȠԠˠŠԠ͠ҠҠ Π7,392:16,391:15,390?k4:30,276:32,2910:27,3014:1Xl3:5,25:7,25:6,26sm9:10,28:9,27:11,27n1:14,26:13,25:15,25o ADDITIONAL SPACE-----23:"@";:R$::" PRETTY, ISN'T IT ? AND IT IS EASY.":23:"@";:R$:WI(394)(3946):2:0,39I:IG;:12:I(3921)39:0,39I:I^@13:13,21(392)sJ14,20(3921)T15,19(3922)^8:I13:10,3028I:Ih12:25,349i24,358:23,368:22,377:21,386j20,395:19,394:18,393:1T 8'. ANOTHER COMMAND WITH THE SAME FORM: VLIN, FOR VERTICAL LINES. (VLIN X,X+ AT Y)":23:"@";:PP$:,::"NOW FOR A TREAT. A TOTAL LO-RES PICTURE WILL BE DRAWN.":23:"@";:R$:62:I0(392):0,39I:I:7:I(3947)(392):0,39I:I"7P$"PLOT 1,8"ė:"SORRY, PLEASE READ THE DIRECTIONS.":23521:"NOW TO DRAW A LINE FROM THAT POINT.":1,398:23:"@";:AW$:::g"" ALL I DID THERE WAS TO ISSUE AN 'HLIN' COMMAND, (FORM HLIN START,FINISH AT Y). IN THIS CASE IT WAS 'HLIN 1,39 AIS 'PLOT X,Y' (X,Y ARE THE COORDINATES)"::"PLEASE DO THAT NOW, USING 1,8 AS THE COORDINATES."x 'PLOT 1,8' = 8 SP.::"ENTER 'PLOT 1,8', PLEASE"::"]";P$P$"PLOT 1"Ĉ:1:1,8:21:"PLOT 1,8 HAS BEEN EXECUTED.":"@";:S$::280< THERE BETTER BE AN EXPLANATION FOR THIS!!!!"::"WELL, ER ,AHH UMMM...,"::"FIRST A POINT MUST BE PLOTTED ! ! !23:"@";:S$:MP235_" TO PLOT A POINT, 1) YOU MUST KNOW THATTHE SCREEN IS A 40 BY 40 GRID OF BLOCKS IN GRAPHICS, 2) THE FORM ;:P$:::" TO PLOT A POINT, THE COLOR MUST BE GIVEN. COLORS ARE FROM 0 TO 15: YOU WILL SEE THEM ALL.":23:"@";:P$:q"THE OPERATION FOR SELECTING COLOR IS AS FOLLOWS: ENTER 'COLOR=X' (X=COLOR NUMBER) AND PRESS RETURN. NOTHING HAPPENS!! ISPLAY THE LOW-RESOLUTION GRAPHICS SCREEN, TYPE 'GR' AND PRESS RETURN.":::"DO SO NOW."::"]";G$x G$"GR"Ĉ:200 G$"GR"ĺ"SORRY, PLEASE TYPE 'GR' AND PRESS RETURN":23:170 21:"THIS IS THE LO-RESOLUTION SCREEN. PRETTYBLANK.":"@"TER)." 23:"@";:R$: " THE TEXT SCREEN CAN PRINT CHARACTERS STORED IN A PORTION OF MEMORY. MOST II'SDISPLAY A 40 COLUMN, UPPER CASE DISPLAY.APPLES CAN USE A CARD THAT MAKES AN 80 COLUMN, LOWER & UPPER CASE DISPLAY.":23:"@";:R$:d "TO D II AND -II PLUS."& n23:"@";:A$:n xI120::"NOW TO BEGIN":::"NOW TO BEGIN":::"NOW TO BEGIN"::I I122:" ":I 4 :"THE APPLE II HAS A 40 COLUMN, 23 ROW SCREEN. (FOR TEXT LIKE THIS) THE APPLE HAS TWO GRAPHICS MODES (SEE LA CONTINUE."X Z23:"@";:A$:9:I923:" ";:I d9:"CONTINUING--":" THIS PROGRAM SHOWS THE MAJOR ABILITIESOF THE APPLE II AND APPLE II PLUS. THIS PROGRAM IN NO WAYS SHOWS THE TYPES OF SOFTWARE FOR THE APPLE4/ 2"WHAT I DO.":8)"BY JEFFREY MARRACCINI"a 320:"PLEASE PRESS A KEY TO START.";:R$::5i 7: <:"INSTRUCTIONS-" F09:"-------------" P:" A SCREEN EASILY FILLS WITH DATA- SO WHEN YOU SEE A '@' AT THE SCREEN BOTTOM PRESS A KEY TO  WID, BY JEFF MARRACCINI+ 600005 ::M15)"APPLE ]"(91)U:]15"P";:I1600:I:"R";:I1600:I:"E";:I1600:I:"S";:I1600:I:"E";:I1600:I:"N";:I1600:I("T";:I1600:I:"S";:I1600:I:: -1    Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)" """q#"76242424643636363625"9r#"2424242C363636362E24"Us#"2424242C363636362E24"qt#"242424AC3636362E2424"u#"24AC3636360C24242C36"v#"362E2424353625241536"w# "0C2C2E2D00"#P16384:232,0:233,64#I$:I$"END"ı#I1(I$)12c#"2424242424242424242C"7d#"3636363636363636362E"Ve# "24242424242424242405" rf#"3636363636363636362E"g#"24242424242424242474"h#"3636363636363636362E"i# "2424242424242424242400"o#"AD243576246436362524"p#"2C36362E242424353636 "2424242424242424242400"6[#"2424242424242424242C"R\#"36363636363636363676"n]#"2424242424242424242C"^#"3636363636363636362E"_# "24242424242424242405" `#"3636363636363636362E"a#"24242424242424242474"b# "3636363636363636360E"L#"3636363636363636362E"7M#"2424242424242424242C"SN#"36363636363636363666"oO#"2424242424242424242C"P#"3636363636363636362E"Q#"24242424242424242464"R#"3636363636363636362E"S#"2424242424242424242C"T#"3636363636363636362E"U#ALIZATION ROUTINES%2# SHAPE TABLESs<#"10002200B9005001A501FF015A02A002A902B402BF02C902D502E002E902F402FF02" G#"2424242424242424242C"H#"36363636363636363666"I#"2424242424242424242C"J#"3636363636363636362E"K#"24242424242424242464"E THE CUBE BY MAKING"D#"EACH FACE OF THE CUBE A SOLID COLOR. AN"s#"OPTIONAL LEARNING FEATURE BEGINS WITH A"#"COMPLETED CUBE SO THAT A PLAYER MAY"#"LEARN HOW SQUARES MOVE."#23:"PLEASE WAIT WHILE LOADING SHAPE TABLE"'#(# INITIUBE. THE"8""PLAYER IS ALLOWED TO EITHER ROTATE THE"c""CUBE RIGHT, LEFT, UP, OR DOWN OR TO"""SPIN ANY OF NINE PLANES IN A CLOCKWIZE"""OR COUNTERCLOCKWIZE DIRECTION. THUS,"""BY APPROPRIATE ROTATES AND SPINS THE"""PLAYER CAN SOLV IS INITIALIZED":1:"1"15:"RUBIK CUBE"?"19:"BY"T"15:"RON SANTA"\":""THIS PROGRAM REQUIRES A COLOR TV OR """COLOR MONITOR. THE PROGRAM WILL NOT"""SOLVE A RUBIK'S CUBE BUT INSTEAD WILL" ""DISPLAY ALL SIDES OF A COR ROTATE RIGHT":10:"L FOR ROTATE LEFT":10:"U FOR ROTATE UP""10:"D FOR ROTATE DOWN"::::"TO SPIN A PLANE TYPE + OR -""10:"WHERE + = CLOCKWIZE":10:"AND - = COUNTERCLOCKWIZE"::"THEN TYPE PLANE NUMBER""23:"PLEASE WAIT WHILE CUBE0^ ~"5:"TO ROTATE CUBE, HOLD BUTTON#2 AND MOVE"::"TO SPIN PLANE INDICATED BY ARROW, MOVE" ""STICK APPROPRIATELY"::"TO MOVE INDICATOR ARROW, HOLD BUTTON#1":"AND MOVE STICK UP OR DOWN":8898 "5:"TO ROTATE CUBE TYPE AS FOLLOWS:"@"10:"R F "2 "23::"PRESS ANY KEY TO CONTINUE";:C$:8 _"B `"8700 j":"TYPE 0 FOR A PREVIOUS CUBE":"TYPE 1 FOR A RANDOM CUBE":"TYPE 2 FOR A COMPLETED CUBE" v"C::4 y""TYPE 3 IF USING JOYSTICK":"TYPE 4 IF USING KEYBOARD":P: |"P28830,886VE: TYPE !"; 2050 T 00 ^ 16Q(2),Q(3)9 h 0:@ 7O 7138,114^ 8154,108m 9170,102| 10181,84 11181,63 12181,42 13173,23 14157,16 15141,9  @ !23:" P/DOWN"6 "ROTATE: BUTTON#2 AND MOVE APPROPRIATELY"f "QUIT/SAVE: PRESS BUTTON#1 AND BUTTON#2";q 1:: 21:"ROTATE: R=RIGHT L=LEFT U=UP D=DOWN" "SPIN: + CLOCKWIZE - COUNTERCLOCKWIZE" 6:"FOLLOW BY PLANE NUMBER" "QUIT/SA";C$:9355 F8700" d::1:0/ nP4150T xQ(1)5:Q(2)182:Q(3)63:7:2900^ 2030g 160q 4000{ 2500 Z$;"BLOAD CHAIN, A520":520"RUBIK-PLOT" 21:"SPIN PLANE: MOVE STICK APPROPRIATELY" "MOVE ARROW: BUTTON#1 AND MOVE U  RUBIK8162;Q(3),A(54),B(54):Z$(4):8900E 9000O8800^C2S10jC040t9250~8700100(1::"ENTER NAME ";C$:)1:" "-Z$;"OPEN ";C$:Z$;"READ ";C$7I154:B(I):I <Z$;"CLOSE          h k B(42)A(11):B(41)A(14):B(40)A(17):B(51)A(29):B(50)A(32):B(49)A(35):B(29)A(40):B(32)A(41):B(35)A(42):B(11)A(49):B(14)A(50):B(17)A(51)o 3u B(45)A(12):B(44)A(15):B(43)A(18):B(48)A(28):B(47)A(31):B(46)A(34):B(28)A(43):B(31)A()A(26):B(36)A(27):B(7)A(34):B(8)A(35):B(9)A(36)M[ M1:K40:L34:3600S^ ka M1:K4:L2:3600d B(39)A(10):B(38)A(13):B(37)A(16):B(54)A(30):B(53)A(33):B(52)A(36):B(30)A(37):B(33)A(38):B(36)A(39):B(10)A(52):B(13)A(53):B(16)A(54)1:L43:3600J M B(13)A(4):B(14)A(5):B(15)A(6):B(22)A(13):B(23)A(14):B(24)A(15):B(31)A(22):B(32)A(23):B(33)A(24):B(4)A(31):B(5)A(32):B(6)A(33)Q 4W B(16)A(7):B(17)A(8):B(18)A(9):B(25)A(16):B(26)A(17):B(27)A(18):B(34)A(25):B(3525):B(25)A(39):B(22)A(42):B(19)A(45):B(3)A(48):B(6)A(51):B(9)A(54)_: M1:K15:L7:3600e@ C B(10)A(1):B(11)A(2):B(12)A(3):B(19)A(10):B(20)A(11):B(21)A(12):B(28)A(19):B(29)A(20):B(30)A(21):B(1)A(28):B(2)A(29):B(3)A(30): G M1:K5)A(52) ' M1:K31:L25:3600&, / B(38)A(2):B(41)A(5):B(44)A(8):B(53)A(20):B(50)A(23):B(47)A(26):B(26)A(38):B(23)A(41):B(20)A(44):B(2)A(47):B(5)A(50):B(8)A(53)3 H9 B(39)A(3):B(42)A(6):B(45)A(9):B(54)A(19):B(51)A(22):B(48)A(5):B(34)A(46):B(31)A(47):B(28)A(48)? M1:K22:L16:3600E y C3365,3375,3385,3395,3405,3415,3425,3435,3445% B(37)A(1):B(40)A(4):B(43)A(7):B(52)A(21):B(49)A(24):B(46)A(27):B(27)A(37):B(24)A(40):B(21)A(43):B(1)A(46):B(4)A(49):B(79)A(11):B(50)A(14):B(51)A(17):B(40)A(29):B(41)A(32):B(42)A(35):B(17)A(40):B(14)A(41):B(11)A(42):B(35)A(49):B(32)A(50):B(29)A(51) & B(46)A(12):B(47)A(15):B(48)A(18):B(43)A(28):B(44)A(31):B(45)A(34):B(18)A(43):B(15)A(44):B(12)A(4A(27):B(25)A(34):B(26)A(35):B(27)A(36)A M1:K42:L34:3600G ^ M1:K6:L2:3600 B(52)A(10):B(53)A(13):B(54)A(16):B(37)A(30):B(38)A(33):B(39)A(36):B(16)A(37):B(13)A(38):B(10)A(39):B(36)A(52):B(33)A(53):B(30)A(54)  B(40  B(31)A(4):B(32)A(5):B(33)A(6):B(4)A(13):B(5)A(14):B(6)A(15):B(13)A(22):B(14)A(23):B(15)A(24):B(22)A(31):B(23)A(32):B(24)A(33) ) B(34)A(7):B(35)A(8):B(36)A(9):B(7)A(16):B(8)A(17):B(9)A(18):B(16)A(25):B(17)A(26):B(18)9):B(6)A(42):B(9)A(45):B(25)A(48):B(22)A(51):B(19)A(54)T r M1:K13:L7:3600Z x { B(28)A(1):B(29)A(2):B(30)A(3):B(1)A(10):B(2)A(11):B(3)A(12):B(10)A(19):B(11)A(20):B(12)A(21):B(19)A(28):B(20)A(29):B(21)A(30) M1:K49:L43:360 M1:K33:L25:3600 d g B(47)A(2):B(50)A(5):B(53)A(8):B(44)A(20):B(41)A(23):B(38)A(26):B(2)A(38):B(5)A(41):B(8)A(44):B(26)A(47):B(23)A(50):B(20)A(53) k < q B(48)A(3):B(51)A(6):B(54)A(9):B(45)A(19):B(42)A(22):B(39)A(25):B(3)A(3Q(2),Q(3) h 0:# C$"+"31504 C$"-"3350: n N C3165,3175,3185,3195,3205,3215,3225,3235,3245 ] B(46)A(1):B(49)A(4):B(52)A(7):B(43)A(21):B(40)A(24):B(37)A(27):B(1)A(37):B(4)A(40):B(7)A(43):B(27)A(46):B(24)A(49):B(21)A(52) _APPROPRIATELY"> "QUIT/SAVE: PRESS BUTTON#1 AND BUTTON#2";I 1::{ 21:"ROTATE: R=RIGHT L=LEFT U=UP D=DOWN" "SPIN: + CLOCKWIZE - COUNTERCLOCKWIZE" 6:"FOLLOW BY PLANE NUMBER" "QUIT/SAVE: TYPE !"; 1:: T 0 ^ 165:Q(2)182:Q(3)63 7:2900* 20303 160= 4000G 2500M k :Z$;"BLOAD CHAIN, A520" 520"RUBIK-PLOT" 21:"SPIN PLANE: MOVE STICK APPROPRIATELY" "MOVE ARROW: BUTTON#1 AND MOVE UP/DOWN" "ROTATE: BUTTON#2 AND MOVE  RUBIK-RANDOM9 I((78)256(79))65535:C(I)ER110dC(1):C$"+":C.5C$"-"(C(19(1)):C1C940-J154.A(J)B(J)/J23000<RF8700ZI154[A(I)0\Id::1:0nP4150 xQ(1)      47):B(28)A(48)( M1:K22:L16:3600. b C3365,3375,3385,3395,3405,3415,3425,3435,3445% B(37)A(1):B(40)A(4):B(43)A(7):B(52)A(21):B(49)A(24):B(46)A(27):B(27)A(37):B(24)A(40):B(21)A(43):B(1)A(46):B(4)A(49):B(7)A(52) ' M1:K31:L51)A(17):B(40)A(29):B(41)A(32):B(42)A(35):B(17)A(40):B(14)A(41):B(11)A(42):B(35)A(49):B(32)A(50):B(29)A(51){  B(46)A(12):B(47)A(15):B(48)A(18):B(43)A(28):B(44)A(31):B(45)A(34):B(18)A(43):B(15)A(44):B(12)A(45):B(34)A(46):B(31)A(A(35):B(27)A(36)* M1:K42:L34:36000 G M1:K6:L2:3600 B(52)A(10):B(53)A(13):B(54)A(16):B(37)A(30):B(38)A(33):B(39)A(36):B(16)A(37):B(13)A(38):B(10)A(39):B(36)A(52):B(33)A(53):B(30)A(54) u B(49)A(11):B(50)A(14):B(B(32)A(5):B(33)A(6):B(4)A(13):B(5)A(14):B(6)A(15):B(13)A(22):B(14)A(23):B(15)A(24):B(22)A(31):B(23)A(32):B(24)A(33)  B(34)A(7):B(35)A(8):B(36)A(9):B(7)A(16):B(8)A(17):B(9)A(18):B(16)A(25):B(17)A(26):B(18)A(27):B(25)A(34):B(26)):B(25)A(48):B(22)A(51):B(19)A(54)=r M1:K13:L7:3600Cx { B(28)A(1):B(29)A(2):B(30)A(3):B(1)A(10):B(2)A(11):B(3)A(12):B(10)A(19):B(11)A(20):B(12)A(21):B(19)A(28):B(20)A(29):B(21)A(30) M1:K49:L43:3600 ~ B(31)A(4):d g B(47)A(2):B(50)A(5):B(53)A(8):B(44)A(20):B(41)A(23):B(38)A(26):B(2)A(38):B(5)A(41):B(8)A(44):B(26)A(47):B(23)A(50):B(20)A(53)k %q B(48)A(3):B(51)A(6):B(54)A(9):B(45)A(19):B(42)A(22):B(39)A(25):B(3)A(39):B(6)A(42):B(9)A(45C$"+"3150 C$"-"3350# WN C3165,3175,3185,3195,3205,3215,3225,3235,3245] B(46)A(1):B(49)A(4):B(52)A(7):B(43)A(21):B(40)A(24):B(37)A(27):B(1)A(37):B(4)A(40):B(7)A(43):B(27)A(46):B(24)A(49):B(21)A(52)_ M1:K33:L25:3600 Q(2)138:Q(3)111:, Q(2)154:Q(3)105:C Q(2)170:Q(3)99:Z Q(2)182:Q(3)84:q" Q(2)182:Q(3)63:, Q(2)182:Q(3)42:6 Q(2)171:Q(3)25:@ Q(2)155:Q(3)18:J Q(2)139:Q(3)11:T 0:Q(1)4Ę16^ 16Q(2),Q(3)h 0:   C1C92570 )( Q(1)42085:2 Q(1)62630E< C$"+"RA CQ(1):cF C$"-":2625tZ Q(1)42085d Q(1)62620n 2630 Q(1)32085 2630 Q(1)32085 2620 Q(1)2810,2820,2830,2840,2850,2860,2870,2880,2890(1)I:Q(1)9Q(1)1' 3 Q(1)1Q(1)91 8 2800> B 7:2900H L 2050a ` (J)127I1:2340u j (K)1272750 ~ C$"D":2140 24:38:C$ C$"+"C$"-"2570 C$"R"C$"L"C$"U"C$"D"2560 C$"!"2560 2500 C0: C(K)1272160 %I110:I& *20509 4(J)1272085M >(K)1272600X RC$"L"b \C0:s pC$"!":2140 (J)1272085 (K)1272650 C$"R":2140 (J)127I1:2340  (K)1272700  C$"U":2140 $ 0:2900 . Q(1)QX13016I16J:Y497I6J:) 1500M X1116I16J:Y1187I6J:_ I13:J02p N3IJKız J:I  J16287:K16286 I(0):I502100 I2002200 I110:I I(1):I502300 I2002400 !(J)127ͭN37Z2:K25:1180- BN46Z3:K34:1200F LN55Z3:K43:1220L VV `1500v eX13016J:Y13121I6J: t1500 yX23716J:Y11121I7J: 1500 X4216J:Y10421I6J: 1500 X8116J:Y11221I7J: 1500 1::Z$;"BLOAD CHAIN, A520":520"RUBIK-ROTATE": 3000B 65_ ::1:"ENTER NAME ";C$ Z$;"OPEN ";C$:Z$;"WRITE ";C$ I154:B(I):I Z$;"CLOSE ";C$  N10Z1:K2:1120 $N19Z2:K7:1140 .N28Z1:K16:1160 8  0:1AL154*FB(L)A(L)1508KNL:1000NU0:ZX,Y:ICB(L)jdB(L)3ICB(L)3:ZZ3{jIC4:ZX,YLL154:A(L)B(L):LS5İ7000P422020002302500C$"+"C$"-"250C$"!"5000       2.) TO SPECIFY A POINT ON THE 279 BY 191 SCREEN. 'HPLOT X,Y' DOES THAT. NOW, YOU TRY." :"PLEASE ENTER 'HGR'."::"]";HR$ HR$"HGR"đ:433 HR$"HGR"ĺ:"SYNTAX ERROR:PLEASE TRY AGAIN.":23:"@";:R$:425 :21:"NOW ENTER 'HCOLOR=3E HI-RES SCREEN. @";:R$:::425n HR$"HGR"ĺ:"?SYNTAX ERROR: PLEASE TRY AGAIN.":23:"@";:R$:420Z " THE COLOR RANGE IN HI-RES IS FROM 0 TO7. NOW, TO PLOT A POINT IN HI-RES, 1.) YOU MUST SPECIFY A COLOR, WITH 'HCOLOR=X' (X=COLOR NUMBER).CH FINER DETAIL, HOWEVER, THERE ARE FEWER COLORS.":23:"@":R$: :" HI-RES. GRAPHICS SCREEN IS INITIALIZEDBY THE APPLESOFT TERM 'HGR' FOR PAGE #1,OR 'HGR2' FOR PAGE #2 (FULL SCREEN)."::"PLEASE TYE 'HGR' NOW."::"]";HR$$ HR$"HGR"ė::23:"THr P:" A SCREEN EASILY FILLS WITH DATA- SO WHEN YOU SEE A '@' AT THE SCREEN BOTTOM PRESS A KEY TO CONTINUE." Z23:"@";:A$:9:I923:" ";:I@ :"==HI-RESOLUTION GRAPHICS==":" HI-RES. GRAPHICS HAVE MU WID, BY JEFF MARRACCINI+ 600005 ::P14:3:" PART ]"(91)X:`15h-142"WHAT I DO.":8)"BY JEFFREY MARRACCINI"320:"PLEASE PRESS A KEY TO START.";:R$::57:<:"INSTRUCTIONS-" F09:"-------------"    G15:"PLEASE WAIT, LOADING PART 2."::(4)"NOMON I,O,C"::(4)"RUN WHAT I DO PART2"]` B(36)A(34):B(33)A(35):B(30)A(36)1? I3745B@ B(I36)A(I)IA IVD I4654jE B(2746I)A(I)qF IwG (A(I) - I4 0 B(12)A(10):B(15)A(11):B(18)A(12)\ 1 B(11)A(13):B(14)A(14):B(17)A(15) 2 B(10)A(16):B(13)A(17):B(16)A(18) 5 I1927 6 B(4519I)A(I) 7 I : B(34)A(28):B(31)A(29):B(28)A(30) ; B(35)A(31):B(32)A(32):B(29)A(33)$#Z(I$)[F#A1Z12lP#P$(I$,A,2)}Z#H((P$,1))d#L((P$,1))n#HH48:H9HH7x#LL48:L9LL7#P,H16L#PP1#P160009110#P10089110#"DAT1XX,YY:9300I115'AXX4I5BYY.5IAA,B:0OJ12:J[A,B:7e9300lI2:32:XXA:YYB:21XX,YY:9300 I120*93004I'#9999(# SUBROUTINE MACHINE LANGUAGE LOAD"*# DATA STATEMENT MUI122AXX1.5I'BYY1.5I3A,B:0AJ12:JMA,B:5W 9300^Is6:64:XXA:YYB&1XX,YY:9300DI113NAXX2.25IXBYY3IbA,B:0gJ12:JlA,B:6q9300vI7:16:XXA:YYB2.8I ,BYY1.5I! 6A,B:0/ ;J12:J; @A,B:6E E9300L JIa T7:32:XXA:YYBt ^1XX,YY:9300 |I116 AXX1.5I BYY1.5I A,B:0 J12:J A,B:7 9300 I 5:48:XXA:YYB 1XX,YY:9300  A,B:0 J12:J% A,B:7, I6 9300D I12:IU 5:XXA:YYBb 1XX,YYn I115} AXX2.8I BYY1.5I A,B:0 J12:J A,B:5 9300 I 6:16:XXA:YYB 1XX,YY:9300 I120 "AXXXX:90,56XX140,56XX:20,64XX90,64XX:90,72XX140,72XX:20,80XX90,80XX:90,88XX140,88XX $XXXX1:XX9XX0:6:40 %35 (20XX,4020XX,64:XXXX1:XX31XX0:7:100 )40 d7:1:0 nI150 sA1501.5I xB1592.8I,40:QQQQ1:QQ11QQ0:5:30& 25 50,40XX90,40XX:90,48XX140,48XX:50,56XX90,56XX:90,64XX140,64XX:20,72XX90,72XX:90,80XX140,80XX 20,88XX90,88XX:90,96XX140,96XX:XXXX1:XX9XX0:7:35 30e #50,48XX90,480400" & "394461200CDCDBDB7389"C "BAE3DF969F4D4A445669"` "11B6F3D71CE41B160700"l "END"x SUB768 9000 :21:17:"WINNER" :1:QQ0 10QQ,4010QQ,159:QQQQ1:QQ11QQ0:25 20 2:10QQ,1610QQ RUBIK-END1 "A9C88501850285038504" ^ "AD30C088D004C601F00ECAD0F6A6004C0A03" "AD30C088D004C602F00ECAD0F6A6004C1C03" "AD30C088D004C603F00ECAD0F6A6004C2E03" "AD30C088D004C604F008CAD0F6A6004C400360" "END"  "0100     @R"B"ĺ:"?REENTER: USE A OR B ONLY.":50050U`@@ժժժժժժժժժժժժժժժժժժժ@OT$"B"ė:"GOOD NIGHT! ! ! !":VíOT$"B"ĺ:"?REENTER: USE A OR B ONLY.":50050\`@@ժժժժժժժժժժժժժժժժժժժO-RES, AND TEXT PAGES VERY FAST.":23:"@";:R$:â23:"@";:R$::"OPTIONS:"::4)"A. START THIS PROGRAM OVER.":4)"B. QUIT AND GO TO SLEEP."::"PLEASE ENTER CODE LETTER ->";:OT$íOT$"A"ĺ:(4)"NOMON I,O,C"::(4)"RUN WHAT I DO PART1" í:1,38I:IYdÒ5:I0159:0,I279,I:I:::"YOU GRADUATED! ! ! ! ! ! ! ! ! ! ! ! ! !"nÁF160:16304,0:16297,0:16303,0:FsÁD1100xù16304,0:16298,0:16303,0:D1}ú"@";:R$:::"THAT WAS ACCOMPLISHED BY FLIPPING BETWEEN HI-RES, L$R16j%21:"A RADIO TELESCOPE: LOOKING AND SENDING MESSAGES INTO THE STARS AND CONTROLLED BY ME!"&I15901:5:137,I137,I5:0:137,I137,I5:I+R,23:37:"@";:R$::PÉ:::3:0,390:0,3939:0,390:0,3939 ZÁI138:2:R$::j::" NOW ANOTHER TREAT: A HI-RES PICTURE BYME.":23:"@";:R$:::0:I060:0,I279,I:I:I1400:(1)279,(1)127:3:I2:0,12760,140100,150139,159179,150279,127!138,159138,137:139,137129,127:139,137149,12759:I:I763517635135:3:I,0I,159:IxI14814835:4:I,0I,159:I:I14835114835135:5:I,0I,159:II21921935:6:I,0I,159:I:I219351279:7:I,0I,159:I"COLORS=":" 0 1 2 3 4 5 6 7" "@";0,39I:I:I0142:I21);I;:IA:I1152:I21);I;:Iw:"STANDARD APPLE LO-RES COLOR BARS. @";:R$::::" NOW THE HI-RES COLORS.":23:"@";:R$:::21:0:I039:I,0I,159:I,:I4075:1:I,0I,159::I767635:2:I,0I,1ES GRAPHICS SEEM HARD, BUT ARE NOT. FULL INSTRUCTIONS AREIN THE APPLESOFT MANUALS.":23:"@";:R$::" NOW TO GIVE THE FULL COLOR RANGE OF THE APPLE II, WITH LO-RES COLORS FIRST.":23:"@";:R$: COLOR BAR MINI-PROGRAM":I031:I2:"]20 HCOLOR=3:REM HI-RES COLOR ":"]30 HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0:REM DRAW THE BORDER IN THE CORNERS23:"@";:R$:10:"]RUN":255::3:0,0279,0279,1590,1590,0:23:"@";:R$:e:::" PRETTY SIMPLE! HI-RNES AS YOU WANT.":23:"@";:R$:::" NEXT: A SIMPLE PROGRAM EXAMPLE IN BASIC. FULL DETAILS ARE IN THE APPLESOFTMANUALS."::"(PLEASE PRESS A KEY)";:R$:("APPLESOFT PROGRAM TO DRAW A BORDER."::25:"]10 HGR:REM SET UP HI-RES GRAPHICS"::TRY AGAIN.":23:"@";:R$:436:21:"PRETTY SMALL POINT! !":23:"@";:R$::21:"NOW TO DRAW A LINE FROM THAT POINT.":0,0279,0!23:"@";:R$:::"THE COMMAND TO DRAW A LINE IS 'HPLOT X,Y TO X,Y'. BY CHAINING HPLOT TO'S YOU CAN DRAW AS MANY LI' (WHITE)":"]";CL$/ CL$"HCOLOR=3"Ē3:436 CL$"HCOLOR=3"ė:21:"?SYNTAX ERROR:PLEASE TRY AGAIN.":23:"@";:R$:433 :23:"NOW ENTER 'HPLOT 0,0'":"]";HP$ HP$"HPLOT 0"ē0,0:450HP$"HPLOT 0,0"ė:21:"?SYNTAX ERROR: PLEASE 膢 ȱ " <67 L  8ij v vo>30000HS2F:F0<OS2S1B F365YRD31(M1)((YR1)4)(3(((YR1)100)1)4)  F365YRD31(M1)(.4M2.3)(YR4)(3(((YR100)1))4)! & O(L1)ı+ I130 : ID 20); T::$^"SEE YOU NEXT TIME."*hHr ADAPTED FOR APPLE-II BYX| ED AVELARm (415) 538-2431 MODIFIED BY: JOHN C SCHOEPPNER (612) 455-8613MM1:DD1:YRY1M2İ3100:20203000S1F:F04MM2:DD2:YXPENDED IN PRIOR MONTHS J20-I1X1<J2J2F(I)CIIe CHECK X FOR LEAP YEARX400(X400)01560X100(X100)01580X4(X4)01580X1",X06@I163:"*";:I:"*":J"THANK YOU...."2"ANOTHER RUN";V$#<V$"Y"260-F1610DP FIND DAY OF WEEK\ZN1M212(.61M2)qdN2Y2(.61M2)nN3(13(N11)5)xN4(5N24)N5(N2100)N6(N2400)N7N3N4N5N6D21P2N77(N77)1 FIND DAYS EAL CORRESPONDS TO SENSITIVITY,"B"INTUITION AND CHEERFULNESS."x :"INTELLECTUAL IS RELATED TO MENTAL ALERTNESS,""COGNITIVE POWER AND JUDGEMENT ABILITY.":"ALL THREE CYCLES START AT ZERO AT THE MOMENT OF BIRTH."#L$(D$;"PR#0"VE A CONSTANT PERIOD IN THE HUMAN BODY"L"THERE ARE THREE (3) CYCLES..."c"23 DAY PHYSICAL"{"28 DAY EMOTIONAL""33 DAY INTELLECTUAL":"PHYSICAL IS ASSOCIATED WITH PHYSICAL VITALITY""ENDURANCE AND ENERGY LEVEL.":"EMOTION(2)F(2)X*LPG$"Y"İ3260:3110:PG$""1VO@`D$;"PR#0"Fjbt"WANT INSTRUCTIONS";Q$s~Q$"N"1320A$"P"ĺD$;"PR#1"::"THE BIORHYTHM THEORY....":"POSTULATES THAT THERE ARE CERTAIN METABOLIC CYCLES,"'"WHICH HAY)"A"& T$(P2);5);M2;"/";D2;13)5 X1 51B O$(X);J XPe INCREMENT DATEtP281030P2P21P27P21D2D21D2F(M2)D21:M2M21:PG$"Y"M2131070$M21:Y2Y21.XY2:F(2)2881520 BF  CC1 X1 51' O$(X)"-"/* X>4O$(26)"!"F>Y0hHX((K(O23(O23)))25)26vRO$(X)"P"\YYXfX((K(O33(O33)))25)26pO$(X)"I"zYYXX((K(O28(O28)))25)26O$(X)"E"Y(YX)3O$(2000 1520 OOX) M235302 XY2< 1520F OOX_  PRINT CHART HEADERv A$"P"ĺD$;"PR#1" &3110  SET F(2) TO 29 FOR LEAP YRS XY2 1520 F(2)F(2)X  GENERATE THE BIO PLOT LOL C0OOL1);"BIRTHDATE:"; 6M1,D1,Y1, @Y199350; JY1Y11900H T25),Y1^ ^M2M1:D2D1:Y2Y1h h1360r rP1P2 |"STARTING DATE FOR CHART:"; M2,D2,Y2 Y299430 Y2Y21900 25),Y2 1360 "LENTH OF CHART IN DAYS:"; L RAM DATA INPUT SECTION H " BIO-RHYTHM PROGRAM FOR APPLE-2"N \ 1600:: "THIS PROGRAM WILL PLOT YOUR BIORHYTHM CYCLES."  "BIO-RHYTHM FOR (FULL NAME)";Z$ "ENTER DATES IN THIS FORMAT MM,DD,YYYY" " ,11F(12),J(2),Z$(20)H T$(1),T$(2),T$(3),T$(4),T$(5),T$(6),T$(7),T$(8),K "SUN","MON","TUE","WED","THU","FRI","SAT"," ",6.28318 F(1),F(2),F(3),F(4),F(5),F(6),F(7),F(8),F(9),F(10),F(11),F(12) 31,28,31,30,31,30,31,31,30,31,30,31 1600 ICH WILL YOU BE USING":; "MONITOR OR PRINTER (M/P)";A$K (A$"M"110` 2D$(4):L$(12){ < BIO PLOTTING PROGRAM F P REWRITTEN BY ED AVELAR 1/29/78 Z MODIFIED BY JOHN SCHOEPPNER 6/29/80 d FOR APPLE-2 nO$(51) xT$(8) " ************************C * *d * BIO-RHYTHM PROGRAM * * * ************************ :"THIS PROGRAM IS FORMATTED FOR THE IDS 440 PRINTER" "WH     2"bq.?Jr.?Krdede7#d<e.?Jrd=e.?Krd>ed?eM6$a(Š)%[&a(ϠȠ)[2]ˠ)3q.?r.?r.?Jr.?Kr14a(ԠŠ̠ՠŠŠŠ)[`a(ĠŠŠΠԠҠ)a(ˠŮ)a(ΠӠΧ)d6?eFq.?6@r`$d6?e`%[a(נǠ͠) de.?rde.?r-!d<ed=ed>ed?eM6Ů)a(ΠӠΧ)d6?eCq.?6@r`$d6?e`%[a(נǠϠ)Sq.?r.?r.?Jr.?Krd<ed=ed>ed?eM63b9d<e.?Jrd=e.?Krd>e.?rd?e.?rM63a(z) q]έ]ĠϠŠ]٠ΠӠ]]̠Π٠ ]̠ΠĠ͠]̬ KM6tu c_d^a(ĠŠΠԠŠҠ)a(Ġ             R"6"A$"7"A$"8"A$"9"590-A$"2"650E::"SAFE DRIVING"KT"BR DIST ";(DB.5) &DTRTDBA02:24:"TL DIST ";(DT.5);f:17:22:"(0) CHART,(1) GRAPH ";D17:23:"(5) ANOTHER,(2) END ";NA$:A$"0"Ĺ16303,0:590XA(A$):A0590bA$"1"Ĺ16304,0:590lA$"5"100vA$"3"A$"4"A$1)20DTDBRT6RX(RT.50.5):DX(DT.50.5)rB:1,HRX,H:1,H1RX,H1:C:RX,HDX,H:RX,H1DX,H11:21:"0";:5:" ";:7:"100";:14:"200";:21:"300";:25:" ";:29:"400";:36:"500"2:22:"RE DIST ";(RT.5)2:23:FST(FSFS)(220)S r2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "370:a |21:958m ZPZP1| ZP8ZP1 ZP1đ ZP1470 H027550 H150HH2 H250H250 7:H,0H,159:H B2:C3:16304,0H5(ZPDTDBRT 5 "MILES PER HR..............";MP; f ""FEET PER SEC..............";(FS.5)l , 6"REACTION DISTANCE.........";(RT.5) @ J"BRAKING DISTANCE..........";(DB.5) T ^"TOTAL DISTANCE............";(DT.5) hDT:958:"BETWEEN .01 AND 1.0 ";T$> T(T$):T0160Q T.01T1160a FSMP1.467n VVFSFSz RTFST 11:958:"YOUR BRAKES ARE (1) GOOD OR (2) BAD ? ";DB$:DB(DB$):DB1DB2220 DB1DBVV(220) DB2DBVV(217) OUR CAR ? ";MP$:MP(MP$):MP0110q xMP82ĺ:::"TOO BAD YOU GOT A TICKET FOR SPEEDING":Y12000:Y::110 MP0110 MP10Ė5:7:"NOT FAST ENOUGH, TRY AGAIN ":Q11500:Q:958:110 958:4:7:"WHAT IS YOUR REACTION TIME ") 7:9THE SPEED OF YOUR CAR": <7:14:"2) YOUR REACTION TIME"^ F7:16:"3) GOOD OR BAD BRAKES" K6:20:"AVERAGE REACTION IS .75" M P2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "80 ZZP0 d:# n3:5:958:"WHAT IS THE SPEED OF YL9 ::2:2:"CAR STOPING SIMULATION, BY T.PETERSON "Q T140:3:"=";:TZ$" ":H521:H::Z$:H2:7:"THIS PROGRAM WILL SHOW YOUR REACTIONS"(10:9:"AND THE IMPORTANCE OF " 27:12:"1) 936$3:11:"1) FIVE OF A KIND"D5:11:"2) FOUR OF A KIND"`7:11:"3) FULL HOUSE"9:11:"4) HIGH STRAIGHT"11:11:"5) LOW STRAIGHT"13:11:"6) THREE OF A KIND"15:11:"7) TWO PAIR"17:11:"8) ONE PAIR"19:COND AND THIRD ROLLS,"b7:14:"YOU MAY REROLL ANY OR ALL":7:16:"OF THE DIE ON THE SCREEN."5:22:"HIT THE SPACEBAR TO CONTINUE. ";:A$:A$" "508093613:7:"THE POSSIBLE COMBINATIONS":"":11:"YOU CAN ROLL ARE:":I12000:I:(Y/N) ";:A$:A$"Y"A$"N"50553A$"N"220094:"THE OBJECTIVE OF THIS GAME IS TO GET THE":8:6:"SAME FACE ON ALL FIVE DIE."3:8:"TO DO THIS, YOU HAVE TWO ADDITIONAL":4:10:"ROLLS AFTER THE PRELIMINARY ROLL.":5:12:"IN THE SE2222:I:936:1I8:"****************************************"17:11:"MARK V":6:13:"MAY BE MORE COMMONLY KNOWN AS ":14:15:"'POKER DICE' "18:"****************************************":10000:936"12:10:"INSTRUCTIONS ? J1100:J,I36:8,968,7617,8426,7626,96W68,9676,7685,96:72,8681,86128,96128,76140,76147,81140,86147,96:128,86140,86188,96188,76:204,76188,86204,96249,76257,96265,76:246,76268,76:252,96260,96I1E(4)E(5)Ė1:868:"YOU HAVE A ";E(5);" HIGH.":I15000:I::2000:3:22:"WELCOME TO THE WONDERFUL WORLD OF...":I12000:I:936::I12000:I:936:15:V70I15:H(I1)60H1,VH33,VH33,V31H1,V31H1,VND, IN ";E(3);"'S.":I15000:I:2000 E(1)E(2)E(2)E(3)E(3)E(4)E(4)E(5)Ė1:868:"YOU HAVE 1 PAIR, IN ";(E(1)(E(1)E(2)))(E(2)(E(2)E(3)))(E(3)(E(3)E(4)))(E(4)(E(4)E(5)));"'S.":I15000:I:2000E E(1)E(2)E(2)E(3)E(3)E(4)1:868:"YOU HAVE A LOW STRAIGHT.":I15000:I::2000 (E(1)E(2)E(2)E(3))(E(3)E(4)E(4)E(5))Ė1:868:"YOU HAVE 2 PAIR, IN ";E(2);"'S AND ";E(4);"'S.":I15000:I::2000& (E(1)E(3))(E(3)E(5))(E(2)E(4))Ė1:868:"YOU HAVE 3 OF A KI(4)E(5))(E(1)E(3)E(3)E(5))Ė1:868:"YOU HAVE A FULL HOUSE, IN ";E(1);"'S AND ";E(5);"'S.":I15000:I:2000 E(1)2E(2)3E(3)4E(4)5E(5)6Ė1:868:"YOU HAVE A HIGH STRAIGHT.":I15000:I::20008 E(1)1E(2)2E(3)3E(4)4E(5)5ĖLO:D(C)7:AA1:A627158 I15:D(I)E(I):I:1000 E(1)E(5)Ė1:868:"YOU HAVE 5 OF A KIND, IN ";E(1);"'S.":I15000:I::2000 (E(1)E(4))(E(2)E(5))Ė1:868:"YOU HAVE 4 OF A KIND, IN ";E(3);"'S.":I15000:I:2000s (E(1)E(2)E. 9 TO END ";: J$:J(J$):(J1J5)(J9)ĺ"":2510H J92600c D(J)((1)6)1:2510} ( 1000:AA1:A32510 FIGURE OUTCOME AND PRINT REORDER ARRAY AND PLACE IN E A1 LOD(1):C1:X25:D(X)LOLOD(X):CX X:E(A)? (Y/N) ";:A$:A$"Y"A$"N"20008 A$"N"ė:5200C 62450Z  RANDOM DICE ROLLy I15:D(I)((1)6)1:I  ` 1000: PRINT DICE REROLL (MAX 2 MORE) A1 21:I15:(I1)91:I;:I 1:23:956:"ENTER DIE TO REROLLH27,V24:! 62450::3:V707 I15:H(I1)60@ 130W D(I)1İ170:1200r 140:200:D(I)21200 D(I)3İ170:1200 160:180:D(I)41200 D(I)5İ170:1200 $150:190 J1100:J,I $ ::12:11::"PLAY AGAIN V24:I H17,V14H19,V14H19,V16H17,V16H17,V14H18,V15: H26,V5H28,V5H28,V7H26,V7H26,V5H27,V6: H26,V14H28,V14H28,V16H26,V16H26,V14H27,V15: H26,V23H28,V23H28,V25H26,V25H26,V23dD(6),E(5)|22(}5000:2200UH1,VH33,VH33,V30H1,V30H1,V:H7,V5H9,V5H9,V7H7,V7H7,V5H8,V6:H7,V14H9,V14H9,V16H7,V16H7,V14H8,V15: H7,V23H9,V23H9,V25H7,V25H7,V23H8,        ٠ŠŧӠ٠ǠΠԠŠĮ)F>a(ŠҠ͠ŠԠŮ)a(ŠҠӠԠԮ)8Ha(Π̠ŠĬŠΠΧ) Rd6?e\-rqq@p()fq`$$pca(̰#bE()E@*-r#-rrY4a(ӠԠ٠ŠĠҠƠՠȮ) UVW,̰Yc` a(׬ɠĠԠƠŠԠӠԠŠԠϠՠΠ)G*a@E@cT4a(ҠϠrqq@p()q`$ca@E()FE()R@B-rr+-rq;@r`-r-r$`$$a(ɠĠŠΠŠ)E@_M6̰q(a(ˮӠӠŠԠҠ)a(ή)c UVW(#0_':_*D_2N_.X_6Jba(ɠ̠נĠԠ)a@E@a(ԠՠŠǮ))lca(ŠҠ͠ŠԠŮ)"va(ŠҠӠԠԮ)8a(Π̠ŠĬŠΠΧ)-@p()@p(Š)M6`$b!a(ԠΠϠՠԺ)=UVWUV-rW-ra@*#rGYccY%a(ŠҠԠҠ)c5S(ȠҠϠՠ)'`$\& _&_ՠŠϠſ)'|`$r@p()@p(Ƞ)@p(ŠƠ)`$Aa(ԠŠƠ͠ӠԠԠՠĠϠŠο)R@ q;@rUVW'`@*#r9@*#r%@p(Π)Y`@*#r:()$#r9()$GD`@*#r:()$ E\_IG\<I_JqM6NTa(ȠƠŠԠӠŠŠƠΠՠŠϠſ)c^a(ŠΠ͠)%ha(ŠŠƠΠ)3rcS(ȠŠҠϠ٠ҠΩ)&@`@*#r9()$\LFa(͠Ӡ͠٠ŠĠҠҠˠƠՠȮ) "d6?e8,a(ϠՠŠŠϠĿ)S(٠ҠΩ)&@6`@*#r9()$J@`@*#r:()$,BS(ŠҠˠ)&@`@*)UVW-rqY M6sa(ɠΠРՠŠӠ٠ǠŠԠ٠ҠՠԠƠ̠Ӯ)Eca(̠ɠĠϠϠӠŠΠՠ٠Ů)c@S(ϠՠԠӠp(٠ŠԠƠ)-rq;@r7@B-rrp(ŠŠ)-rq;@rL@B-rrp(ŠŠŠƠŠ)-rq;@r<@B-rrp(ŠŠ)-rq;@r@p(@" rC@" rC@" rD4r#O4rD4rD4r-UVW-rq-rq-rqY7O4rD4rD4rC@"rD4rC@p(٠ŠԠƠ)-rq-rq;@rB@B-rrŠԠՠԿ)9Ba(ϠԠŠŠΧ)R@`;@r%[Da(Ġ)E@E()bEq.?Jr.?KrHdede[dq]@nN@"rC@"rD4rD4rC@"rC@"rD4r,xNſ)R@5b96a(Š)E@E(ά)F.?Jr.?KrE()F8a(Š)E@E(Į):[<]ˠ>>S(ϠՠԠϠŠŠǿ)&@`@*#r9()$A?`@*#r:()%[@a()cc8Aa(ԠӠŠŠƠŠTLY-USED BENCHMARK"7 "OF A COMPUTER'S PERFORMANCE."G dI14000:Z :"STARTING:"h N11000u K2500 MNK L(M) L0230 L1220 ML220 ML240 K " "N; N (7) "FINISHED." :A ::T$"PRIME NUMBER BENCHMARK PROGRAM":21(T$)2::T$: 3:"THIS BENCHMARK PROGRAM IS DESIGNED TO FIND ALL THE PRIME NUMBERS BETWEEN 1 AND1000. AS SUCH, IT TAKES APPROXIMATELY 16 MINUTES TO EXECUTE. THIS MATHEMATICALFUNCTION IS A FREQUEN ή)Xja(ҠŬƠՠĠϠŠҬΠΠĠĠΠ)G)ta(ŠΠҠԮРϠӮ)S~a(ŠԠӠԠŠŬ̠٬ĠŮ) ca(Ԡ٠٠Ϡ) ҠҠ)FR@B-rr+z-rq;@r`-r-r$f ưqq_L]FVca(ŧӠנԠӺ)a(ɠ̠ˠՠϠŠԠƠ)R`a(ӠĠϠԠƠŠӠȠ̠ŠҠ16384):X1288120 RE DESIRED NUMBER OF CHARACTERS (200"L"MAX) HAVE BEEN SENT, THE PROGRAM"}"DISPLAYS THE CORRECT CHARACTERS AND YOUR";"INPUT. ERRORS ARE FLASHED, AND THE PER-""CENT CORRECT IS COMPUTED.":"HIT ANY KEY TO CONTINUE";:X(PUT MAY BE"<|"DELAYED BY RECOGNITION TIME AS REQUIRED.";m"IF YOU GET LOST, YOU MAY TYPE A SPACE TO";"GET YOUR INPUT RE-SYNCHRONIZED WITH THE""NEXT CODE GROUP. INPUT ERRORS MAY BE""CORRECTED WITH THE BACKSPACE KEY. AFTER"$"TH"SPEEDS OF 5 TO 60 WORDS PER MINUTE."Uc"CHARACTERS SENT MAY BE ANY COMBINATION"h"OF LETTERS, NUMBERS, STANDARD PUNCTUA-"m"TION, AND NON-STANDARD PUNCTUATION. YOU"r"MAY TYPE IN CHARACTERS SEPARATED BY" w"SPACES AS THEY ARE HEARD. INV((1)M1)VC%(V)"J@" MORSE CODE GENERATOR 2.0"lE" BY BOBBY DEEN"rJO" THIS PROGRAM IS INTENDED FOR CODE"T"PRACTICE. IT SENDS RANDOM 5-CHARACTER"Y"CODE GROUPS OVER THE BUILT-IN SPEAKER AT";'^ "DO YOU WANT ";::":;'()";(34);::" ? ";A$:A$(A$,1)_ A$"Y"A$"N"İ4000:10:3060 A$"Y"C%(M)34:C%(M1)39:C%(M2)40:C%(M3)41:C%(M4)58:C%(M5)59:MM6 MM1 11::"PLEASE ANSWER Y OR N";:I11000:I:1:868::$(A$,1)- A$"Y"A$"N"İ4000:8:3020Y A$"Y"āIMM10:C%(I)48IM::MM10 "DO YOU WANT ";::".,?-/";::" ? ";A$:A$(A$,1) A$"Y"A$"N"İ4000:9:3040 A$"Y"C%(M)44:C%(M1)45:C%(M2)46:C%(M3)47:C%(M4)63:MM5:56WPM.5) T :2:7:"MORSE CODE GENERATOR 2.0":9:"BY BOBBY DEEN, N5DPU "h C%(47):M1:: "DO YOU WANT LETTERS? ";A$:A$(A$,1) A$"Y"A$"N"İ4000:7:3000 A$"Y"āIMM26:C%(I)I::MM26  "DO YOU WANT NUMBERS? ";A$:AN ACCURACY OF "NRN100"%."Z "DO YOU WANT TO TRY AGAIN? ";X$:(X$,1)"N"Ľ:2000:10` 5:"INPUT SPEED IN WORDS PER MIN. ";WPM$:WPM(WPM$) WPM5WPM60Ğ:"SPEED MUST BE BETWEEN 5 AND 60 WPM";::1:I11000:I:868:5:1000 S(3288) U21> Z(X192);:X192YX128YX32ğ:NRNR1[ d22:36,(36)1:(Y);: iZ36(Z36)Č912:912:912:912:1 kY160Z6(Z6)110 lQQ1 nZ s(0)0Č912:912:912 x:"YOU GOT "NR" RIGHT OUT OF "N:"FOR A1N:II1 (5000:16384I,V. -12288I,32\ /Z5(Z5)II1:16384I,32:12288I,32n 2Z:16385I,0 7"HIT ANY KEY TO START":X$:16368,0:::Z1900:Z 933,36 <8192 >33,40 A21:NRN::Q1 FZ1I PX(Z16384):Y(Q12 YOU WANT INSTRUCTIONS?";Q$: (Q$,1)"Y"İ8000::2000J 9:1:868T 1000h 249,S3:250,S "NUMBER OF CHARACTERS? ";N$:N(N$) N1N200Ğ:"NUMBER MUST BE BETWEEN 1 AND 200";::1:Q11000:Q:868:6:25 3000 I0 Z  MORSE CODE PRACTICE BOBBY DEEN,N5DPU 629 WINCHESTER DR. RICHARDSON, TX. 75080 (214)235-439116640:2000(4);"BLOAD MORSE CODE.OBJ" 9:"DO     Š͠ϠŠΠŠҠΠŠŠŠǩ).a(Š٠Ү)7/UVWưoa()F--rrG`--rr %a()G2/a()GUV--rrW--rra@*#rG /YcY &/q+/UVWư`$D/0/o$p+f+q_z+p+]z+Y+`$+6+R@B-rr-rq;@r`-r-r$++q_+ +ưq +UVWư-rq-rY +@p@,[.]٠Ҡ .M6x.a(ŠŠŠƠȠҠΠԮ) +UVWư3*+oUV-rW-ra@*#rGYcY4+-rqq>+UVWưoR@B-rr+H+-rq;@r`-r-r$\+JR+@B-rrp@*-r#-rr-rq;@roa@*-rr\+`@*-rr9()-r$''q_' '̰q 'UVW̰-rq-rY '@p@)[*]٠ +M6& +a(ҠȠҺϠԬ)+a(ΧϠŠŬ)'+a(ŠϠŬϠŮ)(+a(ԠנӠȠŠUVW̰oR@B-rr+`'-rq;@r`-r-r$t'8j'@B-rrp@*-r#-rr-rq;@ro'oa@*-rrt'`@*-rr9()$'~'q_'']'Y'`$'6'R@B-rr-rq;@r`-r()%[#Q']٠ 'M6$'a()E@E@E().'a(ΧϠŠŮ)'3'a(ŠϠŬϠŮ)(5'a(ԠנӠȠŠԮ) 8'UVW̰3B'oUV-rW-ra@*#rGYcYL'-rqqV'M6[(#]ŠĠ(2#S(ϠՠԠϠŠҠ)&@<#`@*#r9()$#F#`@*#r:()%[P#S(ŠϠˠҠŠ)&@Z#`@*#r9()$x#d#`@*#r:()%[ n#\_#x#\2#S(ϠՠԠϠԿ)&@ #`@:נՠϠŠŠŠƠȠҠ٠Ǡ͠Ӯ)oZca(׬٠ԡΧԠ٠ԠӭӬŠՠ̠ŠŠϠԠ͠Ү) ca(Ԡ٠٠Ϡ)(q.?6@r`$d6?e)a(Š)(a()2a()<a()UFa(ƠŬՠ٠ԠϠŠŠӠά٬̠٠Π)xPa(ŮҠӠŬɠ)(q.?6@r`$d6?eM6qa(ŧӠŠŠŠȠŠͭӠĠή٬ŠĠŠŠӠĠӮ)c&a()c a(Ԫ)a(̠٠a(ŠӠĠŠħŠŠҠҠӠӠŮ)Ua(ҠӠŠӬɠנՠϠŠĠŠ٠)=a(ԠŠǠҠĠƠŠҧӠŮ) ca(Ԡ٠٠Ϡa(ҠŬՠԠŠŠΠŠĠŠΠ)ha(Π̠٬ՠĠŠŠӭҭΠӬĠϠŠӮ)GCa(ҠŬՠĠŠŠĠŠŬ)Sd6?e"q.?6@r`$d6?e M6Xca(ŠĠ̠٠٠Š٠ĠàӬԠ)qa(ӠŠԮȠӠ٠ŠŠ٠ǠҠŧƠϠ)V , L ` Ɉ 0L0!`L0!`@`hh c! c! c! c!Lc! r! r!Lr! ! ` ~ 7! E!  c!L # r! r!L p E q %LF @H h fH ! hL9 `@ p@`@ `HxTx80, , ,0,  AND THEY TURN INTO DISGUSTING LUMPS (THE END)",0*63,"AND THEY GET MARRIED AND LIVE HAPPILY FOREVER AFTER (THE END)",0*64,"FREEZES ",2,5,6*65,"FALLS INTO THE SUN ",2,5,6*66,"EXTRAGALACTIC ",5,21,22,23,24,25*67,"THE NAVY (THE ETTLE KID CONVINCES THEM PEOPLE ARE O.K. ",3,60,61,62hb*58,"A PRIEST TALKS TO THEM OF GOD ",3,60,61,62l*59,"THEY FALL IN LOVE WITH THIS BEAUTIFUL GIRL ",4,60,61,62,63v*60,"AND THEY DIE (THE END)",0*61,"AND THEY LEAVE (THE END)",04*62,"STING LUMPS (THE END)",0W0*53,"THEY DIE FROM CATCHING CHICKEN POX (THE END)",0}:*54,"SO THEY KILL US (THE END)",0D*55,"SO THEY PUT US UNDER A BENIGN DICTATORSHIP (THE END)",0N*56,"SO THEY EAT US (THE END)",04X*57,"A CUTE LIF PEASANTS WITH TORCHES ",6,47,48,49,54,55,56A)47,"BUT ",1,53u)48,"SO SCIENTISTS INVENT A WEAPON ",3,50,51,52*49,"BUT ",3,57,58,59*50,"WHICH FAILS ",4,47,54,55,56*51,"WHICH KILLS THEM (THE END)",0&*52,"WHICH TURNS THEM INTO DISGU4,45,46,71,72,73,74Q)41,"A CROWD OF PEASANTS WITH TORCHES (THE END)",0p)42,"THE ARMY (THE END)",0)43,"THE ATOMIC BOMB (THE END)",0)44,"THE ATOMIC BOMB ",6,47,48,49,54,55,56)45,"THE ARMY ",6,47,48,49,54,55,56-)46,"A CROWD O FEW AND LEAVE (THE END)",0<r)34,"AND EAT US (THE END)",0W|)35,"AND ARE ",2,36,37s)36,"RADIOACTIVE ",1,38)37,"NOT RADIOACTIVE ",1,38)38,"AND ",2,39,40)39,"CAN BE KILLED BY ",7,41,42,43,67,68,69,70)40,"CANNOT BE KILLED BY ",7,4WOMEN ",2,33,3526)28,"ARE FRIENDLY (THE END)",0a@)29,"ARE FRIENDLY BUT MISUNDERSTOOD ",1,35J)30,"MISUNDERSTAND US ",1,35T)31,"UNDERSTAND US TOO WELL ",1,35^)32,"LOOK UPON US ONLY AS A SOURCE OF NOURISHMENT ",2,34,35h)33,"TAKE A,23,24,252(20,"BETELGEUSIAN ",5,21,22,23,24,25I(21,"BUG(S) ",1,26d(22,"REPTILE(S) ",1,26)23,"MECHANICAL DEVICE(S) ",1,26)24,"SUPERPERSONS ",1,26)25,"ICKY THINGS ",1,26")26,"WHICH (WHO) ",6,27,28,29,30,31,32,)27,"WANT OUR S (THE END)",0((12,"INVENT ",2,16,17D(13,"DISCOVER ",2,16,17b(14,"TINY ",4,18,19,20,66(15,"GIANT ",4,18,19,20,66(16,"TINY ",5,21,22,23,24,25(17,"GIANT ",5,21,22,23,24,25(18,"MARTIAN ",5,21,22,23,24,25 (19,"MOON ",5,21,22 ",3,7,8,92 P(5,"AND EVERYBODY DIES (THE END)",0a Z(6,"AND ALMOST EVERYBODY DIES (THE END)",0 d(7,"DESTROYED (THE END)",0 n(8,"SAVED (THE END)",0 x(9,"NOT DESTROYED BUT ",2,10,11 (10,"EVERYONE DIES (THE END)",0(11,"ALMOST EVERYONE DIE' (FORMAT OF THE DATA STATEMENTS:h (DATA/PHRASE #/PHRASE/ # OF POSSIBLE BRANCHES/ BRANCHES ( 0,"EARTH ",3,2,3,75 ((1,"BURNS UP ",2,5,6 2(2,"SCIENTISTS ",2,12,13 <(3,"IS ATTACKED BY ",2,14,15 F(4,"IS STRUCK BY A GIANT COMET AND ~'18:12)"PRESS A KEY";:K$- '::PH06 'PC1R 'PC(PH$(PH))Wĺ:PC1` 'PH$(PH);u 'PCPC(PH$(PH)) 'BR%(PH,0)10220 'PIBR%(PH,0)(1)1 'PJBR%(PH,PI) 'PHPJ '10140 '::"ANOTHER? ";:K$ 'K$"N"10120 (:AT THEY WERE PRODUCED BY A COMPUTER." B'" AS EVIDENCE WE PRESENT THE APPLE SCREENWRITER (WITH APOLOGIES TO ONLINE SYSTEMS)." L'EL75 V'W40 `'PH$(80),BR%(80,8):A0EL:N,PH$(N),BR%(N,0):BR%(N,0)10100 j'B1BR%(N,0):BR%(N,B): t'**ILLUSTRATED HISTORY **(C) 1977 - GROSSET & DUNLAP****************************% 8':"MANY PEOPLE HAVE WONDERED WHO WAS REALLYRESPONSIBLE FOR THE HUNDREDS OF INDIS- TINGUISHABLE B SCIENCE FICTION MOVIES OFTHE 50'S AND 60'S. OUR CONTENTION IS TH&'A$"JAPANESE S-F MOVIE WRITER":k'::A040:"*";:::(20(A$)2):A$;:40::A040:"*";::u$'34,4U .'***********************ADAPTED FROM THE SCIENCE **FICTION NOVEL FLOWCHART **FROM SAM J. LUNDWALL'S