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`=HKN[er~#)/̰6ư=CIO Ĭˬ֬өٮҠŪ¦נӯؠŠԠϠΠӠŠҭŠίٯŠŠ'0U_PUZPFd'0=HKN[er~ "*9. NddH?dQ@,(((@@@ #<d2< _PK_(Z2F((  00 00ffXL9Kr@"@5@FȠrӠ    ^~ x )  ٠ŠԠƠӲ٠ŠԠƠӳŠŠӴŠŠŠƠŠӵŠŠ O @ԠŠĬˠөȮҠ@ @E   !BddB!d!BٯH @@@ Šɫɠ͠ɠôӭ̠H@hH@  pH`hH( ȸ H(h Hب@HxHH H@h H@ `phH@@ HhH@HP O @ ԠŠĬˬ֬өٮҠŪ¦נӯؠŠԠϠΠӠŠҭŠί     $70uUVWưUVW̰:ub-8rrJDuYcNuYXuUVWưUVW̰bub-8rrJluYcvuY[--rrr7Y(8a(Ԡ٠٠Ϡ)d6?e8`.?6@r$8d6?e8[Mf:UVWưqUVW̰q-8rr-8rrq`%qY@p:`@*-r#-rr9()@*-r#-rr9()$6u:_7z:`7UVW̰-rq17UVWư-rq-r-8rr-rYZ7UVW-rqY7UVW̰UVW̰$7q-rq-r`-r-r$77-rq-rq7YZ7a(ŧӠŠӺ)c 7UVW̰*7b--rrH@*--rr#F7qqUVW̰P7q-8rr`%q Z7`%qd7Yn7q`$x7=s7UVW̰-8rrq-8rr8drY_F7x7]C7UVW̰-8rrq8d8-8rrrr88rr7YZ7]ŠŠM6UVWưqUVW̰q-8rr-8rrq`%qY@6`@*-r#-rr9()@*-r#-rr9()$66_746UVW̰-8rrq-8rrY7Y7](7]ŠŠ <7UVWưrra@*#rG3Yc4YZ6`%q6[6]Š?6M6a(׬ɠ̠Š̠Š)E@E@U6a(٠ǠȠŠ)a@E@E(٠)a(ŠƠԠҮ)!6]ԠӠΠa()GUV--rrW--rra@*#rG 3YcY3qUVW̰`$4 3oT3`$"3q_4("3--r8rrqoa()FG#3`'%a()G$3`%a()G%3`d%a()G'3` %a()G2,3a()GUV--rrW--`-r-r%c92a(ԠŠĠՠŠ)G`-r-r%c72a@E@a(Š٠ҠҠǠҠԠ) 2UVW̰(2q--r8rroa()FG2`'%a()G2`%a()G2`d%a()G2` %a()G22{/`%q/[2]٠͠"2UVWưUVW̰-rqYT2UVW̰UVW̰q-rq-r`-8rr-8rr$22-rq-rq2YZM6M2a(Ǡ)E@*-r#-rrE(٬)GTq`$D/:/--rrq-?/oa()F--rrG`--rr %a()G7A/a()GUV--rrW--rra@*#rGYcD/YN/UVWư-rqYX/UVWưUVWư&b/q-rq-r`-r-r$v/l/-rq-rqv/YZŠ͠ϠŠΠŠҠΠŠŠŠǩ).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ή)Xja(ҠŬƠՠĠϠŠҬΠΠĠĠΠ)G)ta(ŠΠҠԮРϠӮ)S~a(ŠԠӠԠŠŬ̠٬ĠŮ) ca(Ԡ٠٠Ϡ) ҠҠ)FR@B-rr+z-rq;@r`-r-r$f ưqq_L]FVca(ŧӠנԠӺ)a(ɠ̠ˠՠϠŠԠƠ)R`a(ӠĠϠԠƠŠӠȠ̠ŠҠŠ٠ŠŧӠ٠ǠΠԠŠĮ)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(ԠӠŠŠƠŠ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@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 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"]`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         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::"****************************16384)128ĂCOUNT 16368,0' 102 X SET? b936:2R g"YEARS= ";YX lk v"DAYS= ";Dq { "HOURS= ";H  "MINUTES= ";M  "SECONDS= ";S 936:1000 LOOP1 A0:PAUSE0 NL0  @ PAUSE1ı SSA:S0S60ı% SS603 S0S59J MMA:M0M60ıU MM60c M0M59z HHA:H0H24ı HH24 H0H23 DDA:D0D365ı DD365:D0D364 YYA A0ı COUNT115 ""; (3  " "   ` , j LOOPLOOPLDLYE t 15:2:"LAP TIMES:"a v H$(H):H10H$"0"H$} x M$(M):M10M$"0"M$ z S$(S):S10S$"0"S$ | 17NL:NLNL1:NL6NL0 ~ Y","D" "H$":"M$":"S$;:868: ADVANCE TIME PAUSE1İ2300 I160İ8000( I1559000= I211I176ıN I211İ7000] %I176Ĭ10c *{ 4A1LOOPDLYLOOP >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: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 *  *           "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)      4)128 Y32Ĺ16368,0:170+ Y13Ĭ4 255PAS$,4) X(16384)128' X32250D X13RR0:R0R1:185\ X13RR0:R1R0t 16368,0:R1ī220 M1Ģ18:13:" 1 MINUTE ":210 18:14:M;" MINUTES " 20:13:S$;" SECONDS " I 16368,0 Y(16386#d:3:13::"APPLE STOPWATCH"Ei5:13::"BY TOM MCDONALD":in:10:"SPACE BAR = START/STOP"x:11:"RETURN = LAP/RESET"A$A$" "160130I01000000.1M(I60):SIM60S$(S)S10S$(S$,3) S$("LIBERALS ";L;" * CONSERVATIVES ";CMA$"B":4220rA$"G")|K(2(1))1>K1LL1:4250HCC1TZ220cZ:20:A$uZ1:20:" "20:20:" ";M1100:MZK2Ģ20:21C:"C";:4330K1Ģ20:19L:"L";M1100:MX)22:1:"NATURE ALWAYS DOES CONTRIVE --- "H"THAT EVERY BOY AND EVERY GAL"p"THAT'S BORN INTO THE WORLD ALIVE"""IS EITHER A LITTLE LIBERAL","OR ELSE A LITTLE CONSERVATIVE!"6M12000:M@255JTX110^F(2(1))1 hF1RY MODEL OF A MAJOR-GENERAL!"M IOLANTHE --------Sa:L0:C0"IOLANTHE; OR, THE PEER AND THE PERI"10:"PRIVATE WILLIS""OF THE GRENADIER GUARDS"M12000:M100"...IT'S COMICAL"$1:M$;W$(Z) M12000:M/ J(11(1))1< L1J2J 15:958Y 15:L:C$i M1100:Mp Lv  M11000:M 1:A$;W$(Z) M12000:M   :: M13000:M * Z> ENJOYING THE APPLE...,THE VE A A A A A A " E$" O -*- A"& M$"I AM "0 A$"HE IS ": Z12D L15N 3:L:E$X M1100:Mb L:868l Lv M11000:M  -------  S "THE PIRATES OF PENZANCE; OR, THE SLAVE OF DUTY"s 5:"MAJOR-GENERAL STANLEY" "AND THE CHORUS" M13000:M  X12:W$(X):X& C$" O O O O O O -!- -!- -!- -!- -!- -!- 17Z:X:M$%17Z:X1:" ";9M1(200R):M@XU 17Z:38:"#";Z\ Zp 11:10:"? !"$ M12000:M. M$"MAID"8 RB 11:10:"OK !"L M12000:MV 11:10:"O !"` M13000:Mj  PIRATES 3000:M >HY1520%RZ12<\Y:Z6:"SCHOOL";FfZ:Ydp21:1:S139:(37);:SpzX914X:8:"!"X9:9:F$F$F$F$;"."10:13:"!"11:10:"O !"12:9:F$F$F$F$;"!"R12Z13X19332:"XXXX" JX! TM15000:M' ^P  MIKADO ------V \ i F$(95)w M$"MADE" "THE MIKADO; OR, THE TOWN OF TITIPU" 5:"FEATURING..." 32,4: "YUM-YUM":"PITTI-SING":"PEEP-BO" *32,04M1 X1015- 3:X:A112:"HMS";:A4 X: B H0M B12X X39t X:4H:A16:" ";:A X:HH28 B 20:1 X14:15X:1:Y138:"^";:Y:X "M11500:M ,12:4:" PINAFORE ";: 6X13 @3X:3 "; X310:29:X:" ";:X/ 2:1:868@ 16:1:868F V 3:2:10)h (9:19:" "v 2E3156 <E:37:" " FE PM13000:M Z d3:1:868 n9:19:" "; xE315 E:37:868 E M13000:M 4 B2:3H:8) LX315; VX:4H:A16:" ";:AB `XT j16:3H:8)^ tHH9o ~M11000:Mv Z 2:11:" " 9:10:" "; X210 29:X:" "; X X210  M13000:M 2:11:" " 9:10:" HLIGHTS FROM", 6:"GILBERT AND SULLIVAN"= M12000:MC n  PINAFORE --------t z  "H.M.S. PINAFORE; OR, THE LASS THAT LOVED A SAILOR" 5:"CAPTAIN CORCORAN (SOLO)" M12000:M $ . 8Z1* d::nFx GILBERT & SULLIVAN ------- - --------L^ PAUL RAYMERdz PAUL'S ELECTRIC COMPUTER BOX 42831 LAS VEGAS NV 89116 VI/XIII/MCMLXXXI (C) 1982 PEC  5:"HIG     ************ * * * 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+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,22z#Xα   ӮΠ  ŠȠàĠ ٠ Ƞ ԠɠϠԱ ԠɠϠԲ Π+ ҠŠˠ֠! ˠ!ŠŠ" ŠŮʠ"ŠҠ٠ӠҠ ̠٠̠Ϡ ̠Ϯà!Ҡ  Ԡ Π ͠ҠǠŠ @@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp`@9()$&@`@9()$ C`@9()$D`@9()$ E`@9(`@9()$`@9()$`@9()$*`@9()$( `@9()$`@9(ƶ)$ `@9()$@`@9()$ `@9()$ `@9()$@`@9()$ `@9()$:`@9(Ϡ)$d  `;@Ҥ)$`@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(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$H: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/?(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(ؠ) 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(ΠĠΠĠΠĠή)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(ra@*#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$)_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(ԠԿΠ٠)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(ΠͮԠŠԭ)[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(Ȯȡ)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(ǺĠŠ)O<a(ԧӠĠȠǧ)a(ԠƠŬǩԠ)K=a(͠РĠӠ͠ԡ׬)a(׬Ŭ˩)_S@a(ġɠΧԠĠԠš)a(ŠΠϠ٠Ġ٠)4B)_\1a(ɠŠΠҠӠɠԠŠ)a(Π٠Ԡ٠Ǡ٠Ů)_W6a(ĠŬӬǠƠӬ)a(ԠŠϠҠԮ)_U;a(̬ɠĠҠԠĠŠ)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()\~ҨҨ)a(٩)cUVWYa()\cLa(ҨΩҨȠƠӠө)UVWYo_74!@p()M6*>!a@Ga()GP(a()Ga()GP(a()G0H!a(Ԡ۠Š)a(ҨΩҨũҨҨϠ)Y|a(ҨҨȩҨҨũ)a(ҨԠҨҨϠҨ)GUa(ҨǩҨҨҩ)a(ҨҨ٩ҨҨҨ)<a(Ҩ٩Ҩ[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(ɧ͠Ԡ)_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      膢 ȱ " <67 L  8ij v vo> 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)  " 28);"A=OVERALL AVERAGE"% P 13);"DOWN";34);"CRITICAL";20);"UP" 13);"*************************!*************************"  13);"*************************!*************************" L$ I"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)RY29M2İ3100:2120#>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(N7