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`>ȄȨtBsO~g`@ZaB@D"T"x__G~k{ѕȪ 5jŨ 8onDdy{n^<ֺ @T ؖpLr},nq~cÊ A@@ B(Z8!c\gowPrIB<Jq& @ U]zml>fwO| Ae0D(E* ((@(Q(QUE(q" Рx,(@1~~f?x^JE"琠PgRD I(Tv*~y"dy}{\F.ETX,@ T"C{|?|qv'@m\;h"`?E<~a;p p}}p)Eí H r* ӖRց+~?@3oCo{|OU B5”s3gps?Ȑ*hؐDŀ*g ~" ! h@I_y ᨁ !j~y0}P ƊG (~ PLOo/  R JԐ#\DqQ,IA,%U!ŐêКKOa?`?~}w@(RPB$:S }|}oiZ;D@0IB*=aȉF[gw=s'y08ЂF};xguϨJ"TTՂȔCBzOOMxsq0$H()|aØY{{~no|?@*D‚tk9xxo~AWoBfx>~_;|Д ¤Ɩs]gOw~?|B@) *0ŨZx<@ENuo3(3OL+mEA,qx9&O*urK=x0ԂF#*(*Q@* (*T UQ \,B(Q [T"A,~?~u{sO 񎢯ZB1@EAvs2|x_yxԮ D)(#sO0v|?~qD(@LHxHOvwoVE p42DA(+D Xvw?s{}r `ȈP@ ` U*U:eM U P Q P"U8$P$UV~O`??\cG"@L28A @$Q/U| &}^FCSb GDL|{G>(A  Sr"8H%(Ăf(u`|?` o_f+рj)B+6QnCU;i |~awAg}l|#                               60,BE(BE256)256:61,(BE256):62,EN(EN256)256:63,(EN256):66,DE(DE256)256:67,(DE256):768: p7 768,216:769,160:770,0:771,76:772,44:773,254CDE8192S:16302,0r(4);"BLOAD N.BIN,A$2000"}J1516300,0(I13000:I216299,0<Y1300:YAJFBE24576:EN32768:100P100:I13333:IZ26n d  $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 TURN' TO BE ENTERED EXCEPT WHEN YOU ENTER THE MESSAGE AMD THE TIME IT WILL BE PRINTED"#8r"JUST REMEMBER, YOU HAVE TO PRESS 'RETURN' WHEN THE CURSOR IS FLASHING OR WHEN THERE IS A QUESTION (?) MARK."#Br32900:$Lr"WHEN YOU ENTER THE TIME TI SUGGEST YOU ENTER THE TIME THE MESSAGE WILL BE PRINTED.""$r"NO PROVISIONS ARE MADE IN THE PROGRAM, TO TELL YOU WHEN THE MESSAGE WILL BE PRINTED, IF YOU HAVE NOT ENTERED IT INTO THE MESSAGE TEXT"Y#.r:"MOST KEY PRESSES REQUIRE NO 'RECLOCK AND THE PROGRAM IS UP AND RUNNING. WHAT DO YOU DO NEXT ?":!r"YOU CAN DO FOUR THINGS, 1. SEE ALL THE MESSAGES, 2. ENTER A MESSAGE, 3. DELETE A MESSAGE, OR 4. END THE PROGRAM"C"r"SIMPLY PRESS 1,2,3, OR 4. IF YOU DECIDE TO 'ENTER A MESSAGE', DISK ERROR ON THE FIRST RUN. IF YOU DON'T DELETE LINE '280' AFTER THE FIRST RUN, ANY INFO YOU PUT ON THE DISK, WILL BE ERASED" q:"LINE '280' IS USED TO INITIALIZE THE TEXT FILES" q32900C!r"GOOD -- NOW YOU HAVE A 'MOUNTAIN HARDWARE' G":Zq32,4:33,36:5:"HIT 'RESET'":"ENTER - 'LIST 280'":"ENTER - '280 GOSUB 26000'"q"RUN THE PROGRAM":"DELETE LINE '280' AFTER 1ST RUN":"RESAVE THE PROGRAM":32,0:33,40: q"IF YOU DON'T DO THE FOLLOWING, THE PROGRAM WILL END WITH A FOR EACH MESSAGE."jq"AFTER THE MESSAGE IS ENTERED, YOU WILL BE ASKED TO ENTER THE TIME YOU WANT THE"q"MESSAGE PRINTED."q32900q12::"IMPORTANT NOTICE"::q"IF THIS IS THE FIRST TIME YOU HAVE EVER USED THIS PROGRAM, DO THE FOLLOWINA"*zq"MESSAGE IN THE COMPUTER AND THEN"Gq"TRANSFER IT TO DISK":q"IT USES A 'MOUNTAIN HARDWARE' CLOCK TO CALL THE MESSAGE UP WHEN THE TIME HAS"q"ARRIVED FOR IT TO BE PRINTED"qq"YOU ARE ALLOWED TO ENTER 6 LINES OF 40 CHARACTERS,ESSAGE CENTER"0\q:10:"BY DENNIS R. FISCHER"^q22:8::"HIT ANY KEY TO CONTINUE "::7::"HIT 'ESC' FOR INSTRUCTIONS":`qKEY(16384):KEY12729028bq29024dq16368,0:KEY15529040fqpq:5:"THIS PROGRAM WILL ALLOW YOU TO LEAVE Nfixi TEST Hq BEGINNING MESSAGE MqRq11:7:"APPLE CLOCK MeDOS$;"CLOSE"*e TTP=TIME TO PRINTHeX$"999999999.19":X(X$)geDOS$;"OPEN TTP FILE(L20)"eDOS$;"DELETE TTP FILE(L20)"eDOS$;"OPEN TTP FILE(L20), L20"fI025fDOS$;"WRITE TTP FILE(L20), R";IfX!fI&fDOS$;"CLOSE"TORAGE--LENGTH'S= L255 & L20"CeDOS$;"WRITE MESS FILE(L255), R4"e"THIS IS A TEST TO SEE IF THIS PROGRAM CAN REALLY DO WHAT I EXPECT IT TO DO. TEST----TEST----TEST----TEST----TEST NOW IS THE TIME FOR ALL GOOD MEN TO COME TO THEIR PARY"eDOS$;"WRITE MESS FILE(L255), R";I+e""2eIXeDOS$;"WRITE MESS FILE(L255), R0"e"THE MESSAGES ARE STORED IN 'MESS FILE (L255) & THE 'TIME TO PRINT' FILES ARE STORED IN TTP FILE(L20) THIS PROGRAM USES A RANDOM ACCESS FILE FOR DISK S INITIZE TEXT FILE 1ST TIME eDOS$;"OPEN MESS FILE(L255)"eDOS$;"DELETE MESS FILE(L255)"eDOS$;"OPEN MESS FILE(L255), L255"eI025: MAX MESSAGE NUMBER = 25#DD CURRENT DAYS OF MONTH2zbL(4928016SLOT)@bL(L64)ObL1LL2gbMT2L1DTDDTD1b SECONDS TO DATE---STD bSTDDTD86400H3600M60Sbje aDTD0(aMT1DTD09bMT2DTD31J bMT3DTD59[bMT4DTD90m bMT5DTD120*bMT6DTD1514bMT7DTD181>bMT8DTD212HbMT9DTD243RbMT10DTD273\bMT11DTD304fbMT12DTD334pbDTDDTDD: A THIS IS THE SECONDS SINCE JANUARY 1BaMT((TIM$,1,2))WaD((TIM$,4,2))laH((TIM$,7,2))aM((TIM$,10,2))aS((TIM$,13,6))a DAYS TO DATE--DTD OUTPUT DATE & TIME B]10h]"DATE: ";MTH$" ";DAY$;", ";YEAR$p]12]"TIME: ";HOUR$;":";MIN$;":";SEC$]a SECONDS TO DATE ,aMTH$"JUNE"&ZMTH$"07"MTH$"JULY"C(ZMTH$"08"MTH$"AUGUST"c2ZMTH$"09"MTH$"SEPTEMBER"N24000\N32,(700):33,(701):34,(A \Z$ a15V fZ$::Z$"":DOS$;"WRITE MESS FILE(L255), R";A:Z$:DOS$;"CLOSE" k:" ": pZ$"99999999.19":Z(Z$):DOS$;"OPEN TTP FILE(L20), L20" zDOS$;"WRITE TTP FILE(L20), R";A:Z:DOS$;"CLOSE"8032000 16368,0+ 25000: GET STD7 A125K *STDPT(A)840R 4A[ >750 H::"": 15 BELLS M13::" ": RDOS$;"OPEN MESS FILE(L255), L255":DOS$;"READ MESS FILE(L255), R";* 1.SEE MESSAGES *"5 10:"* 2.ENTER MESSAGE *"U 10:"* 3.DELETE MESSAGE *"u 10:"* 4.END PROGRAM *" "***************************************" 34,12:13 20000: PRINT TIME KEY(16384) KEY177KEY178KEY179KEY1 b MAIN PROGRAM1 g32,0:33,40:34,0:35,24:` l"***************************************"u v"*":2:39:"*" "*":3:39:"*" "***************************************" 10:"* PRESS KEY FOR- *":10:"********************" 10:"HOUR$(2),MIN$(2),SEC$(2),FRAC$(3),YEAR$(4)B YEAR$"1980":SLOT4Z DOS$;"NOMON,I,C":t 29000: INSTRUCTIONS 30000: CHECK FOR CLOCK  PUT 'GOSUB 26000' HERE IF YOU HAVE NEVER USED THIS PROGRAM BEFORE "31000:LOAD MEMORY FROM DISK9 ( ************************;2 CLOCK MESSAGE CENTERV< BY:DENNIS R. FISCHERF JULY 10, 1980 P ************************d:xPT(25): PRINT TIMEDOS$(4): CTRL-D* TIM$(25),MTH$(10),DAY$(2),          ,YAXB,YB# X(I)(XA):Y(I)(YA)? X1(I)(XB):Y1(I)(YB)E XP2XBD2:P20P2XM540+ P2XB:D2D25 XBP2T &P3YAD3:P30P3YM570e 0P3YA:D3D3o :YAP3 DP4YBD4:P40P4YM600 NP4YB:D4D4 XYBP4 b l PLOT THE NEW LINE FROM THEN ENDPOINTS AND UPDATE THE ARRAY vCO XAO GET NEW DELTAS AND NEW TESTS- T20470@ D1((1)94)S D2((1)94)f D3((1)94)y D4((1)94) T2(5(1(1)10))   COMPUTE NEW END POINTS FOR PLOTTING P1XAD1:P10P1XM510 P1XA:D1D1 XAP1 )X1(I),Y1(I) J= T TEST TO SEE IF YOU NEED A NEW COLOR ^ IF A NEW COLOR IS NEEDED THEN GET NEW COLOR AND NEW TEST VALUE hT10390 rCO(1(1)7) |T1(5(1(1)10))   TEST TO SEE IF YOU NEED NEED NEW DELTA VALUES. IF YOU DR NEW COLOR0 400: TEST FOR NEW DELTA VALUESP 480: CALCULATE NEW POINTSs 620: PLOT THE NEW END POINTS T1T11:T2T21 II1 I150180 190  " ERASE OLD LINE , SET COLOR TO BLACK AND DRAW LINE 60 @X(I),Y(IFd STRING ART0nBY ERIC SMITH NOV 7,1980[x FROM AN ALGORYTHM IN NOVEMBER 'BYTE'~X(150),Y(150),X1(150),Y1(150)XAYAXBYBT1T20XM279:YM159 START MAINLINE PROGRAMI1290: ERASE OLD LINE 340: TEST FOUMBER---THE EMPTY"@:"SQUARES ARE INDICATED BY ";::" ":m:"WHEN YOU CAN NOT JUMP ANY CHECKERS,":"ENTER A '0' FOR THE 'FROM' GOOD LUCK!!E110000:E:70T IS TO CAPTURE AS MANY"B\:"CHECKERS AS POSSIBLE, BY JUMPING"of:"OVER A SQUARE CONTAINING A CHECKER,"p:"TO A SQUARE THAT IS EMPTY."z:"ALL JUMPS ARE ON THE DIAGONAL,":"SQUARES WITH CHECKERS ARE INDICATED":"BY THE SQUARE NAYING..") :" HOPE YOU HAD FUN!!"/ @ 8);::520j :"YOU CAN DO BETTER THAN THAT":710 *:"VERY GOOD! YOU'VE BEEN PRACTICING?":710 4:"FANTASTIC--":710 >:::: H"THIS IS A SOLITARY GAME OF CHECKERS"R:"THE OBJEC2 :"YOU MADE ";M;" JUMPS AND HAD ";S;" PIECES"T :" REMAINING ON THE BOARD."b M39800p M44810~ M48820 :"TRY AGAIN (Y/N) ";A$ A$"Y"Ĭ A$"N"760 "PLEASE ANSWER 'Y' OR 'N'." 710 ::"O.K. THANKS FOR PL0790 A(I)10530- 8);A(I)" ";:540I 8);" ";::" ";:540` 8);"0";A(I);" ";g Im &t 0J| :: ?34,18 @19:958 D200 NS0 XI164 bA(I)1A(I)1 lSSA(I) vI  *** SUMMARIZE GAME 34,17: T(F2T2)2390+ ^A((TF)2)0390; hA(F)0390K rA(T)0390T |415v "ILLEGAL MOVE. TRY AGAIN..." 200  *** UPDATE BOARD 34,0:1 A(T)T A(F)0 A((TF)2)0 MM1 J1578  IJJ7 A(I)A(I)0 I J M0% 460: "JUMP FROM ";FG F0590V " TO ";T^ :s *** LEGAL MOVE F1((F1)8) F2F8F1 T1((T1)8) T2T8T1 "F17390 ,T17390 6F28390 @T28390 J(F1T1)2390  ::5*18);"SOLITARY CHECKERS"B:18);"BY M GRAY"K(::u2"DO YOU WANT INSTRUCTIONS? (Y/N)";B$<B$"Y"830:B$"N"70F::A(64)P *** LAY OUT BOARDZJ164dXX1nA(J)XxJJ19438IJJ3     ONLY BE USED ONCE."f210PU". " CAN ENTER 'GOTO' WHICH ALLOWS YOU"Z*" ADD ANY NUMBER TO 10(GOTO 5 WOULD"}4" GIVE 15 FOR YOUR NUMBER.">"12.USE..WILL GIVE LIST OF THE #'S USED"H"13.SCORE..WILL GIVE SCORE."R"14.END...END GAME."\:"EACH NUMBER CAN NUMBER BY 2."0"7. SQUARING...SQUARE NUMBER"\"8. SQUAREROOT..SQUAREROOT OF NUMBER.""9. INCREMENT...ADD ONE TO NUMBER""10.DECREMENT..SUBTRACT ONE FROM NUMBER." "11.GOTO.....A SPECIAL CASE."" IF THE NUMBER GETS DOWN TO 1, YOZ$):"HERE ARE YOUR OPTIONS:......."I:"1. ADDITION....ADD A+B"s"2. SUBTRACTION...SUBTRACT A FROM B""3. MUTIPLICATION..... MULTIPLY A * B""4. DIVISION....DIVIDE B/A""5. DOUBLING....DOUBLE NUMBER" "6. HALVING....DIVIDE (1+3=4);2X:"A 15 BY SUBTRACTION (5 - 1 = 4)"[b:"BY ADDITION OR MULTIPLICATION A"}l:"22 BECOMES A 4 AND SO ON"v:"EXAMPLE FOR 13 A=1 AND B=3":"HIT ANY KEY TO SEE ALL OF YOUR CHOICES":"PROGRAM ONLY USES THREE PLACES."TO THIRTY INCLUSIVELY"8:"HIT ANY KEY TO CONTINUE."@Z$I:5`&"THE PLAY......."0:"LET'S SAY THAT THE MASTER NUMBER IS 4,"::"GETTING A 4,14 OR 24 WOULD SCORE BE-"D:"CAUSE EACH CONTAINS THE NUMBER." N:"A 13 BY ADDITIONISCONSIN."8:"ONE, TWO OR THREE PLAYERS MAY PLAY."c:"YOU START THE GAME, BY PICKING A":"MASTER NUMBER BETWEEN AND INCLUDING ":"THREE AND NINE. PLAYER # 1 THEN":"CHOOSE THE STARTING NUMBER, WHICH MUST ":"BE FROM ONE HAS ";S(D);" POINTS."rD4|(T$,3)"SCO"1550GT$"END"1690R:460:"THANKS FOR PLAYING...ANOTHER GAME(Y/N)":Z$Z$"Y"Ľ:::210(37):"'SKEDOODLE' WAS ORIGINALLY CONCEIVED BY" :"FATHER DANIEL OF BENET LAKE, WAGAIN":X1:430@G30G1ĺ"ONE TO THIRTY PLEASE.":GG1:430Fu:"THE FOLLOWING NUMBERS HAVE BEEN USED:"D130"GDğ,C(D)0ĺD;::",";6@DJ:460T:"THE SCORE IS AS FOLLOWS:":^D1Nh"PLAYER#";D;" NCREMENT, PLAYER #";P;" GETS:";G'n0x370J=======DECREMENT====T1500^GG1h1500r1530(37):"BY DECREMENT, PLAYER #";P;" GETS:";G370A(G10):BGA10"OPERATION CANNOT BE COMPLETED, TRY MAINDER MUST BE ONE (1).":X1:(7):430VG1Ė20:(37):"GOTO WHICH NUMBER? ";GObG10GOl 1500(37):"BY GOTO PLAYER #";P;" GETS:";G;16)(3702=======INCREMENT====<1500FGG1P1500Z1530!d(37):"BY I t1500:~(37):"BY DOUBLING PLAYER #";P;" GETS:";G@I370f=====HALVING===========G2(G2)GG2:121015201500(37):"BY HALVING PLAYER #";P;" GETS:";G370=====GOTO==============(G1ĺ"RE====SQUARE ROOT========$1500S(G4)(G9)(G16)(G25)G((G)):1070]$1520g.15008(37):"BY SQUARE ROOT PLAYER #";P;" GETS:";GBL370V=======DOUBLE==========`G15GG2:1140j"TOO HIGH,TRY AGAIN":X1:430A:91015201500K(37):"BY DIVISION PLAYER #";P;" GETS:";GQZ370w=======SQUARE==========1500(G2)(G3)(G4)(G5)GGG:100015201500(37):"BY SQUARING PLAYER #";P;" GETS:";G370(37):"BY SUBTRACTING PLAYER #";P;" GETS:";G2; 370X====MULTIPLICATION=====b 1500l*GABv41500>1530H(37):"BY MULTIPLICATION PLAYER #";P;" GETS:";GR\370f=====DIVISION==========p1500zBA(BA)GBEND"1620/l"INVALID ENTRY, TRY AGAIN ":460Lv=====ADDITION==========V1500`GABj1530t1500(37):"BY ADDING PLAYER #";P;" GETS:";G370======SUBTRACTION======1500G(AB)15001530,800 (T$,3)"DIV"8802 (T$,3)"SQU"960J (T$,3)"SQR"1040b (T$,3)"DOU"1120z &(T$,3)"HAL"1190 0(T$,2)"GO"1260 :(T$,3)"USE"1550 D(T$,3)"SCO"1620 N(T$,3)"INC"1330 X(T$,3)"DEC"1410 b(T$,3)"(AB))(MAB)(MAB)(MBA)ĺ"PLAYER #";P;" SCORES":S(P)S(P)1K G1G] X1X0:460p PP1:PNP1 LN(37):3:25:"NEW NUMBER= ";G;" ":LN1 :"PLAYER #";P;:" ";T$ (T$,3)"ADD"640 (T$,3)"SUB"720 (T$,3)"MUL" ";M# ^:"STARTING NUMBER IS ";S- h34,4a rC(G)0ĺ"THAT NUMBER HAS BEEN USED":GG1:460q |C(G)C(G)1 MGĺ"PLAYER #";P;" SCORES":S(P)S(P)1:430 (A0)(MB)ĺ"PLAYER #";P;" SCORES":S(P)S(P)1:430 A0430B (MA)(MB)(MTO 30 PLEASE.":(7):250& GS:G1G= A(G10):BGA10R "(A0)(BM)250_ ,A0320 6(MA)(MB)(M(AB))(MAB)(MG)(MAB)(MBA)ĺ"YOU CANNOT SCORE ON ENTRY":250 @:"HIT ANY KEY TO CONTINUE":Z$: J T"MASTER NUMBER IS:$"N"1702 :"ENTER THE NUMBER OF PLAYERS ";Nb (N2)(N4)ĺ:"2..3..OR..4..PLEASE.":210 :"ENTER MASTER NUMBER ";M :(M3)(M9)ĺ"MUST BE FROM 3 TO 9, TRY AGAIN"::230 :"PLAYER #1 ENTER STARTING NUMBER ";S :S0S30ĺ"1  d::5nP1:C(31)Fx"WELCOME TO THE GAME OF 'SKEDOODLE'."f:"WRITTEN BY KEN HOGGATT":"9195 S.W. ELROSE COURT":"TIGARD, OREGON":" (503) 639-5505":"DO YOU WISH INSTRUCTIONS (Y/N)?"Z$Z$"Y"1720 Z     O,OR 97034n#x 503-638-5755HEE11ĺ"BAD NAME.":1300M 936:22:"CAN NOT RECOVER. TRY AGAIN.":n:"USE 'RETURN' TO RESUME."T$:T$""Ħ(13102< 48K APPLE II W/3.2DOSA AND ROM CARD FP ART MCGEE Z 18985 SW OLSON CT. d LAKE OSWEG958:"FILE NOT FOUND.":Z1500:Z:260WEE8ĺ"I/O ERROR. IS THE DOOR OPEN?":1300EE9ĺ"DISK FULL.":"PLEASE REPLACE DISK.":1300EE10ĺ"FILE IS LOCKED.":"REPLACE DISK.":1300EE11Q4ĺ"BAD NAME.":Z1500:Z:(4);"CATALOG":840EE4ĺ"DISK IS WRITE PROTECTED.":"REPLACE DISK OR REMOVE TAB.":1300EE6Q4ĺ"FILE NOT FOUND.":Z1500:Z:(4);"CATALOG":840EE6Q5ĺ"FILE NOT FOUND.":Z1500:Z:740EE6Q3ĺ"FILE NOT FOUND.":Z1500:Z:720'EE6Q2Ģ22:LACE":"DISK INTO DRIVE AND HIT 'RETURN'.":Q$:Q$""1150Dt1130O~1190"BSAVE ";A$;",A16384,L";L:(4);"BSAVE";A$;",A16384,L";L:216,023:958::"USE 'RETURN' TO GO BACK TO THE MENU.";Q$:Q$""ı1170E768:EE(222):216,0::384):IE$:6:"SHALL WE LOOK AT IT? (Y/N) ";Q$:Q$"Y"İ770:1090W.Q$"N"ī1090a81060B:6:N1:"IS IT A KEEPER? (Y/N)";Q$:Q$"Y"1120LQ$"N"ıV1090`12:"SHAPE TABLE NAME = ";A$:A$""1120:j14:958:"TO SAVE ";A$;" - PCC(37):CC20Č912:37,20:36,07NN1:N331030@840nNN1:ILN22:SAB(N)IL:SA,N:(SA1),0IN11:DLB(I)SA:HHDL256:UL(HH):LL(256(HHUL)):(B(N)2I),LL:(B(N)2I1),UL:IL24575SA:I16384(16384L)1:I,(ISA16N"970Q$"Y"ė:770:940'91012:24:"IS IT A KEEPER?":13:24:" ":13:24:"(Y/N) ";Q$:Q$"Y"970Q$"N"840940I1(16387I)01000II1:980"B(N)B(N1)I:J0(I1):(B(N)J),(16388J):J:G"ĉ::(4);"CATALOG":840*fN$""900pN$""Ģ12:24:"IS THAT ALL? ":13:24:" ":13:24:"(Y/N)";Q$:Q$"Y"1030z840(4);"BLOAD";N$;",A16384":216,012:24:"WANT TO LOOK AT":13:24:"THIS ONE? (Y/N)";Q$:Q$""N"ĉ:4800>::2:"<======== SHAPE TABLE MERGE ========>":6:"USE 'RETURN' TO END THE TABLE.":8:"USE 'CATALOG' TO SEE DISK CATALOG.":N1H12:24:"SHAPE #";N;" ":13:25:" ":13:24:N$R1190\N$"CATALO(4);"BLOAD";A$;",A16384":216,08M(16384)::SN1| 21:M1ĺM;" SHAPES":21:23:"DRAW # ";SN:SNM780:SN178022:1:"SCALE = ";S:S:22:20:"ROTATION = ";R:R:SN139,79 23:1:"MORE ON THIS ONE? (Y/N)";Q$:Q$"Y"đ:780*Q$м20:"USE 'RETURN' TO GO BACK TO THE MENU.";Q$:Q$""ıB700::4:"<======== SHAPE REVIEW ========>":8:"SHAPE NAME = ";A$:A$""720750::4:"<=====SHAPE TABLE REVIEW=====>":8:"SHAPE TABLE NAME = ";A$:A$""7401190"PE NAME = ";A$:A$""ĺ"WE'VE GOT TO HAVE A NAME!":I12000:I:66012:958:"TO SAVE ";A$;" - PLACE":"DISK INTO DRIVE AND HIT 'RETURN'.":Q$:Q$""69067015:"BSAVE ";A$;",A16384,L";T:1190(4);"BSAVE";A$;",A16384,L";T:216,091:(AAT),0:590*D(AAT),A:TT1:3202N:xX4:958:"DO YOU WANT TO LOOK AT IT? (Y/N)";Q$:Q$"Y"İ770:630bQ$"N"630l600v6:958:"DO YOU WANT TO SAVE THIS TABLE? (Y/N)";Q$:Q$"N"ıQ$"Y"660630D8:958:"SHAY:XX0:340'3:X,Y:P0Ē0:X,Y:36U0YY1ER0XX1TD0YY1cL0XX1qPA2550ARDLP:E1570PA2:330&AA8(RDLP)0A0Ĺ(AAT),8:TT1:(AAT),24:TT1:320:E1Ĺ(AAT),A:TT1:(AAT),0:TT16368),0:Z1380.^K70Z1:P4: PRINT OhK83Z1:P0: NO PRINT \rZ0430o|K73U1:470K76R1:470K75D2:470K74L3:470K69E1:470XXXX1:XX5340HC0HC3:460HC3HC0 HC:X, ";A$:290260"1190J,(4);"BLOAD";A$:1139,79:216,0:2606X139:Y79:X,Y:24:"S=NOPRINT I=UP F=PRINT":"J=LEFT K=DOWN L=RIGHT":" E=END OF SHAPE"@PA1:A0JXX0:Z0:P0:U0:R0:D0:L0:E0TK(16384):(Q$:Q$""ı230AA16384:(AA),1:(AA1),0:(AA2),4:(AA3),0:T4::21:"<========= SHAPE DRAW =========>":1:0:3:22:958:"DO YOU WANT TO OVERLAY ON ANOTHER":"SHAPE? (Y/N) ";Q$:Q$"N"310 Q$"Y"Ģ22:958:"INPUT SHAPE NAME.F DESIRED, PRIOR TO DECID- ING ON ITS ACCEPTANCE OR REJECTION FOR USE IN THE TABLE.": " ";::"SHAPE REVIEW";::" AND ";::"SHAPE TABLE REVIEW";::" PROVIDE EASY REVIEW OF YOUR HANDIWORK.": " USE ";::"RETURN";::" TO CONTINUE." ND TO LEAVE BEHIND THESE MOVEMENTS" "EITHER A DOT OR NO-DOT TO CREATE THE DESIRED SHAPE."::" ";::"SHAPE TABLE MERGE";::" IS FOR MERGING TO- GETHER UP TO THIRTY TWO(32) SHAPES INTO"W "A SHAPE TABLE. IT ALLOWS FOR REVIEW OF EACH SHAPE ,IAPES II";::" HAS FOUR(4) PROGRAMS: SHAPE DRAW,SHAPE REVIEW, SHAPE TABLE MERGE, AND SHAPE TABLE REVIEW.":# " ";::"SHAPE DRAW";::" IS FOR THE CREATION OF A":"SHAPE TABLE HAVING ONE(1) SHAPE. IT USESOPERATOR KEY INPUTS TO MOVE A FLASHING DOT A20:10:"WHICH ONE ";Q nHD1> xQ160,250,720,830,740,140F 20 :4:"I HOPE THAT SHAPES II HAS HELPED YOU.":::"IF YOU LOAD AT 'A16384',REMEMBER TO USE 'POKE (232),0:POKE(233),64' BEFOR USING 'DRAW'.": 2:1:958m " ";::"SHHAPE REVIEW":a (10:"4 - SHAPE TABLE MERGE"::10:"5 - SHAPE TABLE REVIEW"::10:"6 - QUIT"o 2HD1100 <T$" <<< BY ART MCGEE <<< ":I160:6:I39Ė1:(T$,(61I)):90 F(40I):I30ĺ(T$,I):90 P(T$,(61I)) ZKK160:KK:I d$ 233,64:232,0:768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:N1:B(32):B(0)24576::4:"<============= SHAPES II =============>" 8:10:"1 - PROGRAM OVERVIEW"::10:"2 - SHAPE DRAW"::10:"3 - S                Ĭ3 EPNĀ*3 PP1:PN1RR1:P163 I110A3 W(I)0Y3 J15:W$(I,J)"":p3 L$(I)"":SL$(I)""v3 3 GG0:F0:BB0:AA0:L$"":SL$"":WD$"":R20:Z503 T03 3 V(P)1W(3)53 S03 1020ARABLE?".2. I$(I);:10:S(I);:19:S1(I);:32A28 S(I)4999E1^2B S(I)1999ĺ"YES":V(I)1s2L S(I)2000ĺ"NO"y2V 2[ S1(P)S2` I15000:2j ::2t E1PNĺ" GAME IS NOW OVER"3~ E1PNĺ" TO PLAY ANOTHER GAME HIT 'P'...":A$:A$"P"W(6)4W(7)4SS120031W(7)4W(8)4SS1850O1W(8)4W(9)4SS2700h1V(P)1S500S5001::7:I$(P);"'S SCORE FOR THIS ROUND IS ";S1 S(P)S(P)S1 I15000:1 I1N2$ "PLAYER";:9:"SCORE";:16:"LAST SCORE";:28:"VULNE500W(8)250*0\W(9)0SS500W(9)500N0fW(10)2210,2200,2190,2180,2170X0p2230e0zSS6500r0SS25000SS20000SS15000SS15000V(P)122400W(3)4W(4)4SS3000W(4)4W(5)4SS5000W(5)4W(6)4SS8001CORING/I310:J15L/(W$(I,J),2)"+"(W$(I,J),2)"-"W(I)W(I)1T/ :e/V(P)12090~/ W(3)0S50W(3)10/*W(4)0SS100W(4)20/4W(5)0SS150W(5)50/>W(6)0SS200W(6)100/HW(7)0SS350W(7)150 0RW(8)0SSJ(CH$).qJ101960&.vI1W(J)].W$(J,I)CH$W$(J,I)W$(J,I)"--C":F1:W(I)W(I)1c.q.:3:Z53.23:" ".F0Ģ22:CH$;" NOT FOUND".3.1110.24.1870. CHECKED FOR CHALLENGES/ S))2,1)"-"F0<-F1W$(AA,BB)W$(I,J)"--2":W(I)W(I)1D-F0L-:{-&:" HAVE OPPONENTS ENTER ALL CHALLENGES"-0"WHEN FINISHED, ENTER 'XX'.....":-:" ";L$:6-DR21:1110-N"WORD: (OR XX): ";CH$-XF0-bCH$"XX"2030 .lBB)::W(I)W(I)1:1590@,GG0::BB113:L$(BB)SL$(BB):::z, CHECKED FOR WORDS INCONSISTENT WITH THE LETTER LIST,I310,F0,J1W(I),JW(I)Ă::1830,K15,W$(I,K)W$(I,J)FF1:AAI:BBK,-(W$(I,J),(W$(I,J+JBB113:SL$(BB)L$(BB):(+TK1I1+^GG0=+hL113k+r(W$(I,J),K,1)L$(L)GG1:L$(L)"*":L13q+|+(W$(I,J))31700+(W$(I,J),(W$(I,J))2,1)"-"1700+W$(I,J)"A"1700,GGW$(I,J)W$(I,J)"--?":JJ1:BB113:L$(BB)SL$(*J15#*W$(I,J)""Ă::1570D*(W$(I,J),1)"S"Ă::1570O*K15*W$(I1,K)(W$(I,J),I1)W$(I,J)W$(I,J)"--S":W(I)W(I)1*:* CHECKED FOR WORDS MADE BY ADDING S*"I110*,J1W(I)*6JW(I)Ă::1710*@I101720:1420)I(ZZ$):J15:W$(I,J)ZZ$W$(I,J)W$(I,J1):W$(I,J1)W$(I,J2):W$(I,J2)W$(I,J3):W$(I,J3)W$(I,J4):W$(I,5)" "))WD$"")6:1110):7:" .. INSPECTING ENTRIES .. ")V(P)1W(3)0)I410 X)2:6:WL$WD$:WD$"":11100(dWD$"XX"T300(nX2ĭ(WD$,2)"ZZ"ZZ$(WD$,(X2)):W((ZZ$))W((ZZ$))1:WL$WD$:WD$"":1430(xX31260(X(WD$):W$(X,(W(X))1)WD$:W(X)W(X)1:6:WL$WD$:WD$"":1110)"*";:1:I180::" ";:1:I180:((X128)):WD$;-'-(WD$)10WD$(WD$,10)E'234:1:TT1:T:24O'<1260\'FX(WD$)'PW(X)4Ė1:"THE ";X;"'S CATAGORY IS FILLED";:I12000::1:" ";:1:6:1110(ZWD$"ZZ"XX(WL$):W$(XX,W(XX))"":W(XX)W(X8Ă:TT1:T;:34:T3001270:&Q2,0:2:24:X1411350j& Z(WD$)1:X136Z1WD$"":WD$;:1:1260&T300Ģ24:1:"OVERTIME --":I11000::1470&X136ĺ" ";:2:WD$(WD$,Z):WD$;:2:1330'(X127WD$WD$$(I,J))2,1)"-"Ğ(%W$(I,J);::" ";F%::((((I1)2)1)Z5):P%R2ıZ%1260d%1230t%900,3000:%24:" HIT 'C' TO CONTINUE....";:A$:1%A$"C"1230%:%24:"*";WD$;" ";:34:1&I1100:X(Q1):X12DKCM $8 KYTHOJe$BI1(10(V(P)3)):C$:X((1)61):L$L$((C$,X,1)" "):L$(I)((C$,X,1)):$L"YOUR LETTERS ARE: "::" ";L$$V:V33:V(P)1Ģ(37)3:V34$`IV310$jI;"'S:";$tJ15$~(W$(I,J))41170%(W$(I,J),(W..";:"";I$(I):#34,1"#P1*#R10#`#1:" SCORE:";S(P);" TIME:"n#V$" NOT"#V(P)1V$""#$I$(P);" PLAYING AND";V$;" VULNERABLE$. FUNIPT,LTODRN,MUSRIG,BYWOLO,VEJQZX,WOPOMC,BRHIKT,SRHIFU,AAAEEE,VSYQWS,FHLPBN,JGISPLAY THE TIMER.""i"" NOW, IF YOU'D LIKE TO REVIEW THAT, JUST HIT 'R', OTHERWISE HIT 'C'...}"A$:A$"R"210"A$"C"930":11""HOW MANY PLAYERS WILL THERE BE?";N"N1N4ī950#I1N::"TELL ME PLAYER #";I;"'S NAME.IN A STANDARD DICTIONARY AND THEN ENTER ANY CHALLENGES WHICH THE COMPUTER WILL BRACKET WITH ++ ++Ck!z"" DURING PLAY, THE UPPPER LEFT CORNER OF THE SCREEN WILL SHOW THE PLAYER'S SCORE UP TO THE END OF HIS LAST TURN. THE UPPER RIGHT WILL DING S: ++EXAMPLE++SB R"DUPLICATE WORDS: ++EXAMPLE++2 \"WORDS INCONSISTENT WITH LETTERS: ++EXAMPLE++? fe!p" AFTER THE COMPUTER DIS-ALLOWS WORDS YOUR OPPONENT MAY DO SO TOO. THEY MAY CHECK WORDS , THE COMPUTER WILL EXAMINE ALL THE ENTRIES AND DIS- ALLOW WORDS MADE BY ADDING S TO OTHER ENTRIES, DUPLICATE ENTRIES AND WORDS INCONSISTENT WITH THE LETTER LIST.*12304" DIS-ALLOWED WILL BE BRACKETED AS SHOWN> H"WORDS MADE BY ADDNA- TORY, LISTING YOUR WORDS BY LENGTH. WORDS ENTERED AFTER THREE MINUTES ARE UPWILL BE AUTOMATICALLY DIS-ALLOWED, AND  "AND THE TURN WILL BE ENDED. TO END YOUR TURN BEFORE THE TIME LIMIT EXPIRES, ENTER 'XX'.  " WHEN YOUR TURN IS ENDEDWORDS. y" THE GAME IS OVER AT THE END OF THE ROUND IN WHICH ANY PLAYER REACHES A TOTAL OF 5000 POINTS.1230" A WORD ABOUT THE DISPLAY...{" THE DISPLAY IS SELF-PROMPTING AND WILLHELP YOU ALOT. IT IS ALSO SELF-EXPLASO MUST SCORE A MINIMUMOF 500 POINTS. IF YOU DON'T SCORE THE"MINIMUM, 500 POINTS WILL BE DEDUCTED FROM YOUR SCORE, AND THE POINTS YOU DID MAKE IN THAT ROUND WILL BE DISALLOWED." WHEN YOU ARE VULNERABLE YOU MAY NOT MAKE THREE-LETTER NOW SOME VERY IMPORTANT DETAILS- DON'T SKIP THESE!p:<" ONCE YOU HAVE ACCUMULATED 2000 POINTS YOU BECOME VULNERABLE! BUT THAT'S FINE, BECAUSE THEN YOU'LL GET 13 LETTERS TO WORK WITH. YOU ALNG 1000, 1500, 2000, 2500 OR 3000 POINTS FOR ONE TO FIVE ENTRIES.Mlv" AND THE TENS??? --- FORGET THE REST OFTHE REST OF THE PLAYERS AND LOOK!":" 1500, 3000, 5000, 7500, 13000 POINTS FOR ONE THROUGH FIVE ENTRIES.1230h" $% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4      TATEMENTS WITH THE WORDS AND CHANGE W=70 IN LINE #100CONVERTED TO APPLESOFT BY DENNIS W. FRED (808) 623-9146WAY,CALL,BY# YELLOW,WHEN,THAT,BE< GREEN,BLUE,ARE,THENU AFTER,FOUR,STOP,SAWn OR,THEY,WE,HELP,YES FOR,MYSELF,GET,JUST &HAD,ITS,SIX,FLY,TWO 0LONG,WALK,ON,UP,THE :SO,YOU,RUN,HIS,THEM ;TO ADD MORE WORDS: ADD DATA S300::15:"YOU LIVE....";:I1500::"FOR NOW..."M I11500::110[ DO,AN,IFt BUT,SEE,SHE,EAT,OUT OLD,COME,LET,ME,ONE AS,MY,WITH,WHAT,TEN LITTLE,BLACK,TURTLE MISS,WANT,READ,KNOW SOON,LOOK,IS,IN,BIG SLEEP,TOD0" @15:20,2125:20,2524:140? J20,2129:20,2530:140f T28,3325:28,3326:23,2433:140 ^28,3328:28,3329:30,3133 hI1250:::22:15:"YOU DIE!!!":I1250:M(16336)::I1300:::"THE WORD IS ":A$:4108 22:958:I1270,280,290,300,310,320,330,340,350a 22:1:868:"YOU ALREADY GUESSED THAT! GUESS > ";:150 15:26,2815:25,2916:25,2917:26,2818:140 1:26,16:28,16:140 "2:27,18:140 ,15:27,19:140 64:L2628:20,26L::25,2927:14 ";0 16368,0:B$:B$:H0:B$"A"B$"Z"140Q I1(C$):B$(C$,I,1)260W y I1(A$):B$(A$,I,1)220 H1:21:(I2):B$"":C$C$B$:23:C$:QQ1:Q(A$)400 :H140# I125:M(16336)::NN1:23:C$C$B$:C$;:958:N-dW70:A$(W):I1W:A$(I)::C((1)W)cn:C$"":CC1:Q0:A$A$(C):N0::8:CWC0:110xI2833:3,11I::9:8,289:8,2810:9,277:11,11:10,12:9,13:8,14:13:11,142721:X1(A$):X2)"-";: 22:868:15)"YOUR GUESS >    ' B$"N"Č936::13:,"ENOUGH ?":^  THIS PROGRAM IS CONSIDERED PUBLIC DOMAIN  DISTRIBUTED BY APPLE- PORTLAND PERMISSION TO REPRODUCE IS GRANTED AS LONG AS THE IDENTIFING REM'S ARE RETAINEDA.5) / 100: NEXT A# JA:D$"Y"ĂI4 T16302,0:3R ^0,1797,170:3,1750,170d h7,17914,170 r19,17919,170:24,179:24,170 |29,17231,170:34,170:36,172:36,173:34,174:33,174:33,175:33,17833,179 "":B$ B$"Y"ė:40D$"N"FB:200" FB(1AP10)/ YF(A)< XF(A)C 3S A$"C"310d C,DXC,YDw C,DMXC,MYD~ 0 C,DMXC,MYD MXLX:MYLY "LXX:LYY ,A:340 61.15XC,YD @ PRINT A,I, INT ( SQR(X ^ 2 + Y ^ 2) * 100 + NO ";D$= P(INPUT "DISPLACEMENT (X,Y) = " ;C,D)M Z:16302,0i d ***T=(2*22/7)/360*** n *** C=HORIZ DISP,D=VERT DISP *** xT.0174603175 P360T C145:D95 D$"Y"āI09 R95 AIP(I1)PT(I21)RB * ::10:16)"CIRCLE":15)"PROGRAM"2205)"THIS PROGRAM PLOTS A RADAR SWEEP, A SPIRAL OF 10 TURNS AND A CIRCLE.MAX RADIUS IS 90"(23:2"CIRCLE OR SWEEP (C/S) ? ";A$<"RADIUS = ";B F"DECREASING FOR SPIRAL-YES OR    Y"ī10: # :10:," FINIS? :10:," FINIS":22:u  THIS PROGRAM IS CONSIDERED PUBLIC DOMAIN " DISTRIBUTED BY APPLE- PORTLAND ,PERMISSION TO REPRODUCE IS GRANTED AS LONG AS THE IDENTIFING REM'S ARE RETAINEDCY 91,13394,130:98,130:101,133:101,137:98,139:96,139:96,143:96,14896,150 3:145,130150,139:150,150:150,139155,130 160,133163,130:167,130:170,133:170,137:167,139:165,139:165,143:165,148165,150 Y$ Y$"27,15027,130:32,140:37,130:37,150| 43,13049,130:51,132:51,148:49,150:43,150:41,148:41,132:43,130 56,15056,130:63,130:66,133:66,136:63,139:56,139:61,13966,150 81,15071,150:71,130:81,130:71,13978,139) :10:,"CYCLOIDS":," PROGRAM":22F"HOW MANY CYCLOIDS ?";CO:3`(A2227279i2B44r<D88|FMBCPN0279ZGANdXBC(GC(GC))nYBM(1(1(GC)))xX,YMN3:B120160:0,B135,B:B0*    AF:3:15);"SINE WAVE":::"ENTER TWO WORDS OR SHORT PHRASES":["STATEMENT 1 ";cA$x"STATEMENT 2 ";B$::2B0nT040.25xA(1615(T))A);B1180A$B1200B$B0T M TARGET = ";D;::B:BC"PRESS ANY KEY TO CONTINUE":A$:KD345Q RMETERS.":780@"SHOT TO RIGHT OF TARGET ";Y2;" KILOMETERS."N Z20810"SHOT ABOVE TARGET ";Z2;" KILOMETERS.":820*"SHOT BELOW TARGET ";Z2;" KILOMETERS."4"APPROX POSITION OF EXPLOSION: X=";X1;" Y=";Y1;" Z=";Z1>:" DISTANCE FRO";R;" SHOTS."5DR0:I15::I:"NEXT TARGET...":>N220dX2X1X:Y2Y1Y:Z2Z1Z:X20730"SHOT IN FRONT OF TARGET ";X2;" KILOMETERS.":740"SHOT BEHIND TARGET ";X2;" KILOMETERS."Y20770 "SHOT TO LEFT OF TARGET ";Y2;" KILO15 X1P2(B1)(A1):Y1P2(B1)(A1):Z1P2(B1)^ D((X1X)2(Y1Y)2(Z1Z)2)(12)l D20670 :"* * * HIT * * * TARGET IS NON-FUNCTIONAL ": &"DISTANCE OF EXPLOSION FROM TARGET WAS ";D;" KILOMETERS" ::"MISSION ACCOMPLISHED IN P1):390 wP3P15 " ESTIMATED DISTANCE=";P3{ "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, AND DISTANCE "; A1,B1,P2 :P220ĺ"YOU BLEW YOURSELT UP!!":580 A1A1R1:B1B1R1:"RADIANS FROM X XIS = ";A1; "FROM Z AXIS = ";B(1)(1):X(B)(A)P1:Y(B)(A)P14 "Z(B)P1< ': T"TARGET SIGHTED: APPROX COORDINATES X=";X;" Y= ";Y;" Z= ";Z YRR1:R5390 ^R355,360,365,370,375 cP3(P1.05)20:390 hP3(P1.1)10:390 mP3(P1.5)2:390 rP3(ED TO SHOOT AT THE TARGET UNTIL IT IS DESTROYED!"::" GOOD LUCK":: "PRESS ANY KEY TO PREPARE FOR ACTION":A$ : A(1)2P:B(1)2P:Q(AR1):W(BR1) "RADIANS FROM X AXIS = ";A;" FROM Z AXIS = ";B& P1100000OLD THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES." "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET"U "YOU WILL THEN PROCES ) 17)"TARGET "3::PdR1:R157.296:P3.141592n"YOU ARE THE WEAPONS OFFICER ON THE STAR-SHIP ENTERPRISE"x"AND THIS IS A TEST TO SEE HOW ACCURATE ASHOT YOU ARE IN THE THREE DIMENSIONAL RANGE"x "YOU WILL BE T   D(X)) PXSX3DF:XCX4DFE Z:"ARCSIN(";X;") = ";XS;" DEGREES":k d"ARCCOS(";X;") = ";XC;" DEGREES"v n::30Xw! CALCULATE ARCSIN & ARCCOS? FROM BUD GROVES LIBRARYG :d"ARCSIN AND ARCCOS":::"SIN OR COS (RADIANS) ? ";X:X030(CF.017453294:DF57.29577472C(X)X(((1XX)).0001)<D(X)((1XX))X FX3(C(X)):X4(C100.5)100+ K" ";B;:20:C;:26:"%"? PAA(365B)365V ZB(B16)16İ120\ db nn xB80Ā :"HIT 'RETURN' TO CONTINUE...";A$ :/:: JERRY JENKINS OCT.1978V "NUMBER OF","PROBABILITY THAT AT"t" ","LEAST TWO HAVE THE"" PEOPLE","SAME BIRTHDAY""^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"(34,5:2A.997260274<B280 FC100(1A):C( "A  "PERFORMANCE","REINFORCEMENT","OPEN CLASSROOM","RESOURCE"l " "STRUCTURE","FACILITY","ENVIRONMENT" "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT!":IALUATIVE","OBJECTIVE"N "COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC" "INTEGRATED","NON-GRADED","TRAINING","VERTICAL AGE"  "MOTIVATIONAL","CREATIVE","GROUPING","MODIFICATION"  "ACCOUNTABILITY","PROCESS","CORE CURRICULUM","ALGORITHM((13(1)27)):- Y$:Y$"Y"110ELSE999c "ABILITY","BASAL","BEHAVIORAL","CHILD CENTERED" "DIFFERENTIATED","DISCOVERY","FLEXIBLE","HETEROGENEOUS" "HOMOGENEOUS","MANIPULATIVE","MODULAR","TAVISTOCK" "INDIVIDUALIZED","LEARNING","EVRTS AND SPEECHES."? <"WHENEVER A QUESTION MARK IS PRINTED, "{ F"TYPE 'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT." P::"HERE'S THE FIRST PHRASE:" ZA$(40) dI139:A$(I):I nA$((13(1)1));" "; xA$((13(1)14));" "; A$ BUZZWORD GENERATOR5 FROM 101 BASIC GAMESE936:(10)d 11);"BUZZWORD GENERATOR"j11);"CREATIVE COMPUTING"::("THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN 'EDUCATOR-SPEAK' THAT YOU CAN" 2"WORK INTO REPO   ) I1J5:I 16304,0* J(1): I1J5:IC 200( FY159100 GX279YYB2 HY159Y159A IX0Y0ĀQ P138,95X,YY Z60` d0t nXXB:X0X0 xX0YYB {X0Y0150 }Y060 138,95X,Y 100 12 12 "*** CIRCLES ***" 16303,0 J(0E T.CIRCLES# HI-RES DEMOA FROM BUD GROVES LIBRARYI: "USE PADDLES 0 AND 1 TO ADJUST THE RATE OF FLASHING.":"INPUT SPACING (1 TO 360): ";BB1ī152(I0159:0,I279,I:I<0=XXB:X279X279A$(W(I));" SCORED ";S(W(I));" POINTS.":IJ h:"THANKS FOR THE GAME.":(UP3ĺ"20-POINT ZONE":B20:290K UP4ĺ"WHEW! 10 POINTS.":B10:290s "MISSED THE TARGET! TOO BAD.":B0 "S(I)S(I)B:"TOTAL SCORE = ";S(I):I ,I1N 6S(I)200MM1:W(M)I @I JM0150 T"WE HAVE A WINNER!!":* ^I1M:T3ĺ"INPUT 1, 2, OR 3! ":1702 T200,210,220U P1.65:P2.55:P3.5:P4.5:230z P1.99:P2.77:P3.43:P4.01:230 P1.95:P2.75:P3.45:P4.05 U(1) UP1ĺ"BULLSEYE!! 40 POINTS!":B40:290 UP2ĺ"30-POINT ZONE!":B30:290!  Z" 3 UNDERARM ANYTHING"3 _:e dA$(20),S(20),W(10):M0:R0:I120:S(I)0:I n"HOW MANY PLAYERS ?";N: xI1N "NAME OF PLAYER # ";I;:A$(I) I RR1::"ROUND ";R I1N :A$(I)"'S THROW ";:T T1T 200 POINTS.":B <"THROW DESCRIPTION PROBABLE SCORE"o F" 1 FAST OVERARM BULLSEYE OR" K" COMPLETE MISS" P" 2 CONTROLLED OVERARM 10, 20, OR 30" U" POINTS" W+K BULLSEYE+ FROM 101 BASIC GAMES5::J16);"BULLSEYE"Po 11);"CREATIVE COMPUTING"y::"IN THIS GAME, UP TO 20 PLAYERS THROW "("DARTS AT A TARGET WITH 10, 20, 30, AND " 2"40 POINT ZONES. THE OBJECT IS TO GE  ZJ,WG <A14746 >460! EASTER EGG$ HI-RES DEMOB FROM BUD GROVES LIBRARYJ :P^+16302,0r-R90:Z145:W95.AA1:7(1)/JR(A)0J1JJ(1)1GR(A)2G1GG(1)3Z,WZJ,WG4Z,WZJ,WG5Z,WZJ,WG 6Z,W  OTAL WINNINGS ARE NOW ";R;" DOLLARS."@ ^:"PLAY AGAIN (Y/N)";T hA$:A$"Y"170 |:"SO LONG. HOPE YOU ENJOYED YOURSELF!!!"  :S"; A BB1! AY300. AY270P "YOUR GUESS IS TOO LOW":280n "YOUR GUESS IS TOO HIGH"} :B6200 ""YOU BLEW IT..TOO BAD..THE NUMBER WAS ";Y 'R0:350 ,"GOT IT!!!!!!!!!! YOU WIN ";Y;" DOLLARS." 6RRY% @"YOUR TOLLARS. IF"9 "YOU GUESS THE AMOUNT, YOU WIN ALL THE"d "MONEY IN THE JACKPOT! THEN YOU GET" "ANOTHER CHANCE TO WIN MORE MONEY. HOWEVER, IF YOU DO NOT GUESS THE AMOUNT,THE GAME ENDS.": R0 B0: Y(100(1)) "YOUR GUES  HI LO( FROM 101 BASIC GAMES: 10);"HI LO"X4);"CREATIVE COMPUTING"b::d"THIS IS THE GAME OF HI LO.":n"YOU WILL HAVE 6 TRIES TO GUESS THE"s"AMOUNT OF MONEY IN THE HI LO JACKPOT," x"WHICH IS BETWEEN 1 AND 100 D NOT BAD." 100 G2 ((GA)A).15510M "NOT EVEN CLOSE....."V 512k "CLOSE ENOUGH."u QQ1 "CORRECT ANSWER IS ";A   IGH WILL IT GO (IN METERS)";% u500/ xAV5^ z"HOW LONG UNTIL IT RETURNS (IN SECONDS)";g |500~ T1(2V(1))10 AV10T "WHAT WILL ITS VELOCITY BE AFTER ";T;" SECONDS"; 500 Q;" RIGHT OUT OF 3." Q2100 "  KINEMA) FROM 101 BASIC GAMES3936=(10)O 10)"KINEMA"q"APPLE II HONOLULU, HAWAII"{::dijQ0nV5(35(1))o"A BALL IS THROWN UPWARDS AT ";V;" METERS PER SECOND"psA.05V2 t"HOW HWG 5Z,WZJ,WG% 6Z,WZJ,WG3 <A100Ā; =46F= BULLET  HI-RES DEMO> FROM BUD GROVES LIBRARYF :LT*A0b+16302,0,3:I0190:0,I279,I:I-R90:Z145:W95.AA1:0/JR(A)0J1JJ(1)1GR(A)2G1GG(1)3Z,WZJ,WG 4Z,WZJ, SKM:JVGSZ(QQ22Q33Q44Q55)gIAGSS2VSZS(Q2Q26Q312Q420Q530):sA$(10)}::" TRY AGAIN??";A$L0:936A$"N"100ATER "W2777" FT DEEP" X950A bLLS:TTS:MMSK:AI:VJ:Q S5E3510v DV(VV2A(GZKM)):S2AD 910:610:710 *W(1MG(ZK))2:SMV(ZK(W(WWVZ))).05:910 >I0710 H610:J0310 RV0810 \310,Q0+ "GOOD LANDING(COULD BE BETTER)":9509 0W60580i 5"CRAFT DAMAGE! YOU'RE STRANDED HERE UNTIL" :"A RESCUE PARTY ARRIVES!!":950 D"SORRY, THERE WERE NO SURVIVORS!!!" I" YOU BLEW IT!!!" N"IN FACT, YOU BLASTED A NEW LUNAR CRN)K ^910:I0710% hV03802 rJ0810@ |610:310 "FUEL OUT AT "L" SEC":S(V(VV2AG))G:VVGS:LLS W3600V:"ON MOON AT "L" SEC":"IMPACT VELOCITY "W" MPH" W1.2530 "PERFECT LANDING!! (LUCKY)":950 W105615)"GOOD LUCK!!":::> "SEC.MI.+FEET...MPH...FUEL...BR"i A120:V1:M32500:N16000:G.001:Z1.8 L;:5:(A);:9:(5288(A(A)));:16:(3600V);:22:(MN);:29 K:T10 6MN.001410 7T.001210 8ST:MNSK350 @S(Mz #Xΰ  έԠ ՠ ĠҠ ΠӠίӠԠ Š Ӡ Š "ҭ ԠɠϠҠǠ ŠԮӠ  ҠɠԠ Ҡ Šˠ!ɭӠϠˠɠ " ӠĠŠŠӠŠԠ Ҡ ӠԠΠӠ̠ǠΠAİ.~K=~?~(ࢅؐnԪ ~!D{xAG[ sSJԢM0A OSHI3O4F 8T 4AE~?F_| @(QZ*(Q~($x!\w<@T  N$3բ9dL?~wQcQhTEШ$`EإR8x?s/yAL_* 'Ѱą ,w^v}appЂJD҅mq?v@ P>ᡑރ*toH}9bgc V,M"Q"Ka8I&hy6x" \GQyIh|ty|5~~_@V@P A,D8x?xP{aOwD(QШGr& hvC>(U*U .Q \&b* "]Dw|y1NZ€xT~U~?vw]`_z G+  3x=Cq?pq< @ժC"XBPjEqxw!@Q{s{ بBA J^XDYy#jxxcwO_eEؕ $0@ fc?~HdĀ5"(~?0i(e L@E A*RD9Q@ɠB~l7` ;sHb|w Q"TʎUbx?{xS|SmF"PArE@Ƅ꓁),3N^v $YļCIO`y9~yg?ܨ R` ` Zڕ|qwu?xng( MH@)u(@*lr ]oq]Lv~`a P Xr<Q 2H Qy2Pyb|=|`mŨ8jD(4QR.Q{ )x?oSSK]BZ* (" vp}8D`*PAjQ@#B*OPQD7c@~{9zyCCt(PCV:):~~yq_OMq QQ-E{L|?9Ä((~?|g/u? |gPAO(ШѮ%(-4%).Հn`~x?`ÀŌ % шp~e{?~L H_(r@5 (a~"~Oa fASEAQ )Ѐ$CNwlu8>2fjxq}wE"A0EDT͈ pPBx?~y >[y3:0!A +A!Q° ;/N}v=x~GȸĈàЬъ#~C~v!5@P Ԁk,Ő*sopg} sOOX)\EX0(BJG#Q衂$vf}fwBAPĎу>p3NcOC`s?PQ1MC** @HeĊx_~_cCos?ђP X ȊQ(Ons|_L^ <ƨ%̃(Ő¸~`|||?t|?xOաHLP D=QWxg;a?}oos!$k@ `*P**(Lzm}[\nwZ~ŐPҨA((E*Uax @ U (E*WTJ A|o~ yCQHѼᑊhK(,TN U`QS `?|FA{yk]V@ " @X.#w`Zlz[=F#P*@RZA"0*)RP/(Ex|~g~{xx}fᲡ|TxHz|N)xި#ѠU]?-U}?">g x@ t*F FrHL~_x?@Ɗ*PCT~?q~j-誉I@"Z"I(~A c_OKv%20"Ք'cl5U#*gL<|?~?D}wHCkQ"JԸjTZyW~~}O K{8`Q`$]"7L!蚘PV'o::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00          ààH /Ѽdd`dЅ deԄ8ҍӍd`D}Tߥ҅ީd LԦ}dҍ` ǠҠÍǠԠÍϠٮɆ0&⽌D}T L֠ $Ȅф(0PLddLԩՠԑihL* ۄکڍ ȱڍ `D`ߠ h  *L`,0,0I,0`d hhLd t Ld L di#Ld)ʽdʽdȄф L Pd0G  @dd0 RHDThЮ$0lp  :DL DLld 4ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩdҩ Ȍ     B(20((A$)2)):B0B1( B:A$:l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Leʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  & Ĉċgsxgg͈EL,` Dx_yxԮ D)(#sO0v|?~qD(@LHxHOvwoVE p42DA(+D Xvw?s{}r `ȈP@ U*U:eM U P Q P"U8$P$UV~O`??\cG"@L28A @$Q/U| &}^FCSb GDL|{G>(A  Sr"8H%(Ăf(u`|?` o_f+рj)B+6QnCU;i |~awAg}l|# we will delete that"6 "program from our library."> :g "WILLAMETTE APPLE CONNECTION, INC."{ "P.O. Box 7252 "SALEM, OREGON 97303-0053 ::- ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as""Public Domain. If any person has valid""evidence that a program is, in fact, ""not in the Public Domain, please " "contact us andDɪ0~/mY/{oՂ !q@,(P~ g=w[7E*E* А+a"~?4gY`!DJ18U~_`?~{T@1 B  &+2 |? D3O=^FaP:)EP@A_1ґ?s}xOsS$W$Q G #Px__O.z?<~#\TzST PB UIꐂPn==~._x?`<|P a(Ӽ?lS~Og_J(*Ѡ(noc_GesdI7 P P&iMB!"Ţ@?22~ܪA@q</B}6[+1o|Gј E#`*B QDxPeowR.Q-M XW@2H:q`8?vs_{;&}`¨ԄR,x聁ŀfA?O?|sy"o@ 1! A@h|ytb"vQdH+*4 k[[?Ow=g/`Ԅ Q!x=`GQcL/ %!0 \4* POP(g||cOb+r*\`B! ŚT.Ay p8p}hw=ly@BBȄ@LlI;gq|>8~sbF lK8+t8$Gws@gNgA?DaqT(0Qp :,A^_yqŤd~}|^@  R)~%@s?pN[@:TB!DrAP̤fo4F0`ƠQ8I lU\~?>NJ  XHQ"q A$~/LrCg=0$Dh @D A& 51$ #ݠŊv~wK@'P TDdN>JPyG&{[(PPyX"0Ġ1Pf<&^|p^В RLAGw@+$ԐgoqcwuqfcO`  JDLpzv|Ƃ؀$^Nc|<|`v?~@nꊋaFTP`"峁dx\?{+iowP0"J $4FArhz4>S{_O;7|AD x#\fqgAG{TPP 2HjYxY L@E A*RD9Q@ɠB~l7` ;sHb|w Q"TʎUbx?{xS|SmF"PArE@Ƅ꓁),3N^v $YļCIO`y9~yg?ܨ R` ` Zڕ|qwu?xng( MH@)u(@*lr ]oq]Lv~`a P Xr<Q 2H Qy2Pyb|=|`mŨ8jD(4QR.Q{ )x?oSSK]BZ* (" vp}8D`*PAjQ@#B*OPQD7c~{9zyCCt(PCV:):~~yq_OMq QQ-E{L|?9Ä((~?|g/ux? |gPAO(ШѮ%(-4%).Հn`~x?`ÀŌ % шp~e{?~L H_(r@5 (a~"~Oa fASEAQ )Ѐ$CNwlu8>2fjxq}wE"A0EDT͈ pPBx?~y >[y3:0!A +A!Q° ;/N}v=x~GȸĈàЬъ#~C~v!5@P Ԁk,Ő*sopg} sOOX)\EX0(BJG#Q衂$vf}fwBAPĎу>p3NcOC`s?PQ1MC** @HeĊx_~ |Cos?ђP X ȊQ(Ons|_L^ <ƨ%̃(Ő¸~`|||?t|?xOաHLP D=QWxg;a?}oos!$k@ `*P**(Lzm}[\nwZ~ŐPҨA((E*Uax @ U (E*WTJ A|o~ yCQHѼᑊhK(,TN U`QS `?|FA{yk]V@ " @X.#w`Zlz[=F#P*@RZA"0*)RP/(Ex|~~{xx}fᲡ|TxHz|N)xި#ѠU]?-U}?">g x@ t*F FrHL~_x?@Ɗ*PCT~?q~j-誉I@"Z"I(~A c_OKv%20"Ք'cl5U#*gL<|?~?D}wHCkQ"JԸjTZyW~~}O K{8`Q`$]"7L!蚘PV'oȄȨtBsO~g`@ZaB@D"T"x__|k{ѕȪ 5jŨ 8onDdy{n^<ֺ @T ؖpLr},nq~cÊ A@@ B(Z8!c\gowPrIB<Jq& @ U]zml>fwO| Ae0D(E* ((@(Q(QUE(q" Рx,(@1~~f?x^JE"琠PgRD I(Tv*~y"dy}{\F.ETX,@ T"C{|?|qv'@m\;h"`?E<~a;p p}}p)Eí H r* ӖRց+~?@3oCo{|OU B5”s3gps?Ȑ*hؐDŀ*g ~" ! h@I_y ᨁ !j~y0}P ƊG (~ P Oo/  R JԐ#\DqQ,IA,%U!ŐêКKOa?`?~}w@(RPB$:S }|}oiZ;D@0IB*=aȉF[gw=s'y08ЂF};xguϨJ"TTՂȔCBzOOMxsq0$H()|aØY{{~no|?@*D‚tk9xxo~AWoBfx>~_;|Д ¤Ɩs]gOw~?|B@) *0ŨZx<@ENuo3(3OL+mEA,qx9&O*urK=x0ԂF#*(*Q@* (*T UQ \,B(Q [T"A,~?~u{sO 񎢯ZB1@EAvs2|x_yxԮ D)(#sO0v|?~qD(@LHxHOvwoVE p42DA(+D Xvw?s{}r `ȈP@ U*U:eM U P Q P"U8$P$UV~O`??\cG"@L28A @$Q/U|ը &}^FCSb GDL|{G>(A  Sr"8H%(Ăf(u`|?` o_f+рj)B+6QnCU;i ԢawAg}l|#Dɪ0~/mY/{oՂ !q@,(P~ G=w[7E*E* А+a"~?4gY`!DJ18U~_`?~{T@1 B  &+2 |? D3O=^FaP:)EP@A_1ґ?s}xOsS$W$Q G #Px__O.z?<~#\TzST PB UIꐂPn==~._x?`<|P a(Ӽ?lS~Og_J(*Ѡ(noc_GesdI7 P P&iMB!"Ţ@?22~ܪA@q</B}6[+1o|Gј E#`*B QDxPeowR.Q-M XW@2H:q`8?vs_{;&}`¨ԄR,x聁ŀfA?O?|sy"o@ 1! A@h|ytb"vQdH+*4 k[[?Ow=g/`Ԅ Q!x=`GQcL/ %!0 \4* POP(g||cOb+r*\`B! ŚT.Ay p8p}hw=ly@BBȄ@LlI;gq|>8~sbF lK8+t8$GwNgA?DaqT(0Qp :,A^_yqŤd~}|^@  R)~%@c?pN[@:TB!DrAP̤fo4F0`ƠQ8I lU\~?>NJ  XHQ"q A$~/@rCg=0$Dh @D A& 51$ #ݠŊv~wK@'P TDdN>JPyG&{[(PPyX"0Ġ1Pf<&^|p^В RLAGw@+$ԐgoqcwuqfcO`  JDLpzv|Ƃ؀$^Nc|<|`v?~@nꊋaFTP`"峁dx\?@+iowP0"J $4FArhz4>S{_O;7|AD x#\fqgAG{TPP 2HjYxYᡑރ*toH}9bgc V,M"Q"Ka8I&hy6x" \GQyIh|ty|5~~_@V@P A,D8x?xP{aOwD(QШGr& hvC>(U*U .Q \&b* "]Dw|y1NZ€xT~U~?vw]`_z G+  3x=Cq?pq< @ժC"XBPjEqxw!{s{ بBA J^XDYy#jxxcwO_eEؕ $0@ fc?~HdĀ5"(~?0i(e L@E A*RD9Q@ɠB~l7` ;sHb|w Q"TʎUbx?{xS|SmF"PArE@Ƅ꓁),3N^v $YļCIO`y9~yg?ܨ R` ` Zڕ|qwu?xng( MH@)u(@*lr ]oq]Lv~`a P Xr<Q 2H Qy2Pyb|=|`mŨ8jD(4QR.Q{ )վoSSK]BZ* (" vp}8D`*PAjQ@#B*OPQD7c@~{9zyCCt(PCV:):֊yq_OMq QQ-E{L|?9Ä((~?|g/u? |gPAO(ШѮ%(-4%).Հn`~x?`ÀŌ % шp~e{?~L H_(r@5 (a~"~Oa fASEAQ )Ѐ$CNwlu8>2fjxq}wE"A0EDT͈ pPBx?~y >[y3:0!A +A!Q° ;/N}v=x~GȸĈàЬъ#~C~v!5@P Ԁk,Ő*sopg} sOOX)\EX0(BJG#Q衂$vf}fwBAPĎу>p3NcOC`s?PQ1MC** @HeĊx_~_cCos?ђP X ȊQ(On_L^ <ƨ%̃(Ő¸~`|||?t|?xOաHLP D=QWxg;a?}oos!$k@ `*P**(Lzm}[\nwZ~ŐPҨA((E*Uax @ U (E*WTJ A|o~ yCQHѼᑊhK(,TN U`QS վ|FA{yk]V@ " @X.#w`Zlz[=F#P*@RZA"0*)RP/(Ex|~g~{xx}fᲡ|TxHz|N)תި#ѠU]?-U}?">g x@ t*F FrHL~_x?@Ɗ*PCT~?q~j-誉I@"Z"I(~A c_OKv%20"Ք'cl5U#*gL<|?~?D}wHCkQ"JԸjTZyW~~}O K{8`Q`$]"7L!蚘PV'oȄȨtBsO~g`@ZaB@D"T"x__G~k{ѕȪ 5jŨ 8onŪy{n^<ֺ @T ؖpLr},nq~cÊ A@@ B(Z8!c\gowPrIB<Jq& @ U]zml>fwO| Ae0D(E* ((@(Q(QUE(q" Рx,(@1~~f?x^JE"琠PgRD I(Tv*y"dy}{\F.ETX,@ T"C{|?|qv'@m\;h"`?E<~a;p p}}p)Eí H r* ӖRց+֪3oCo{|OU B5”s3gps?Ȑ*hؐDŀ*g ~" ! h@I_y ᨁ !j~y0}P ƊG (~ PLOo/  R JԐ#\DqQ,IA,%U!ŐêКKOa?`?~}w@(RPB$:S }|}oiZ;D@0IB*=aȉF[gw=s'y08ЂF};xguϨJ"TTՂȔCBzOOMxsq0$H()|aØY{{~no|?@*D‚tk9xxo~AWϪx>~_;|Д ¤Ɩs]gOw~?|B@) *0ŨZx<@ENuo3(3OL+mEA,qx9&O*urK=x0ԂF#*(*Q@* (*T UQ \,B(Q [T"A,~?~u{sO 񎢯ZB1@EAvs2|$-6????'$$$$$$$$|)--------666666666????????'$$$$,----56h232,139:233,91:0'(:2-R14O2I1627319:J918319k<CO(6(1)1):CO460sACOF2I,J:J,IPI918319:J1627319ZCO(6(1)1):CO490_SH(2(1)3)bCOdSHJ,I:J,InRpI14444:Dɪ0~/mY/{oՂ !q@,(P~ g=w[7E*E* А+a"~?4gY`!DJ18U~_`?~{T@1 B  &+2 |? D3O=^FaP:)EP@A_1ґ?s}xOsS$W$Q G #Px__O.z?<~#\TzST PB UIꐂPn==~._x?`<|P a(Ӽ?lS~Og_J(*Ѡ(noc_GesdI7 P P&iMB!"Ţ@?22~ܪA@q</B}6[+1o|Gј E#`*B QDxPeowR.Q-M XW@2H:q`8?vs_{;&}`¨ԄR,x聁ŀfA?O?|sy"o@ 1! A@h|ytb"vQdH+*4 k[[?Ow=g/`Ԅ Q!x=`GQcL/ %!0 \4* POP(g||cOb+r*\`B! ŚT.Ay Тոp}hw=ly@BBȄ@LlI;gq|>8~sbF lK8+t8$Gws@gNgA?DaqT(0Qp :Ǫ^_yqŤd~}|^@  R)~%@s?pN[@:TB!DrAP̤fo4F0`ƠQ8I lU\~?>NJ  XHQ"q A$~/LrCg=0$Dh @D A& 51$ #ݠŊv~wK@'P TDdN>JPyG&{[(PPyX"0Ġ1Pf<&^|p^В RLAGw@+$ԐgoqcwuqfcO`  JDLpzv|Ƃ؀$^Nc|<|`v?~@nꊋaFTP`"峁dx\?{+iowP0"J $4FArhz4>S{_O;7|AD x#\fqgAG{TPP 2HjYxYᡑރ*toH}9bgc V,M"Q"Ka8I&hy6x" \GQyIh|ty|5~~_@V@P A,D8x?xP{aOwD(QШGr& hvC>(U*U .Q \&b* "]Dw|y1NZ€xT~U?vw]`_z G+  3x=Cq?pq< @ժC"XBPjEqxw!@Q{s{ بBA J^XDYy#j׊cwO_eEؕ /232,61:233,94:1:0:30,184:2220,184C(2:8:SH4OHI114VI0zKDO(4(1)):DO2Ē(6(1)1)PSH140,96:SH:SH:SH:SH:SH:SH:SHQD118RRO(4(1)1)16:RORO8:ROXSH:SH:SH:SH:SH:SH:SH:SHZD " W:< Z::::7:"COMPUTER ART BY NINO G. BARBIERI"U d:28:"DUESSELDORF"f nI13333:In x10Rp  :R1556C1(6(1)1):C13C1420RC2(6(1)1):C2430(A(279(1)):B(279(1)):C(191(1)):D(191(1))2F3:CDFF<HCDFFC1:A,HB,H:C2:A,H1B,H1:KRNI13333:I P::12:18:"GABY33: X10XBN(Q2))" YPQ(N)Q(PQNQ)1 XAA,YBBL 280(XAA),192(YBB)a 280(XAA),YBBv XAA,192(YBB)|  I14444: :::12:15:"ORNATO 2":: 7:"COMPUTER ART BY NINO G. BARBIERI":: 28:"DUESSELDORF" I133  :3+0,0279,0279,1910,1910,0FB(5(1)1):B3399jP(11(1)36):QP(7(1)4)T((399(1)600)100)ST360AA(30(1)93)BB96R(9539(1)1)IRR360NISPQPQ XPQ(N)P(PQNO G. BARBIERI"::* 28:"DUESSELDORF"= I15555::0A4 B2B24:B4B44! B5B564 B396B3B34G B396B3B34S B1B16f B654B6B64z B6138B6B64 A6100A6A64 A6180A6A64 10 J14444: :: 12:18:"RANDOM" ::7:"COMPUTER ART BY NI60(1)80) nA3(280(1))F xA4(160(1)10):A5(180(1)10)h A6(280(1)):B6(192(1)) B1(50(1)):B2(32(1)80) B3(192(1)) B4(30(1)84):B5(40(1)150) Q280 Z(9(1)11) I0Z A1A14:A2A2?::7:100j A1I((QA12)Z),B1A2I((QA22)Z),B2A3I((QA32)Z),B3A4I((QA42)Z),B4A4I((QA42)Z),B4A5I((QA52)Z),B5A6I((QA62)Z),B6A6I((QA62)Z),B6A1I((QA12)Z),B1c dA1(180(1)10):A2(1    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA R>66>???'$$$,---5>66>??'$$,--66??$$-56?$5- ??--- ????----- ??????-------?????? -----???? ---?? -AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf AAAAAAAAAAAELERATION = 12.5 FT/SEC/SEC":A212.5:145" YOU'RE ON JUPITER, ACCELERATION = 85.2 FT/SEC/SEC":A285.2:145" YOU'RE ON SATURN, ACCELERATION = 37.6 FT/SEC/SEC":A237.6:145:" YOU'RE ON URANUS, FT/SEC/SEC":A228.3:145s " YOU'RE ON EARTH, ACCELERATION = 32.2 FT/SEC/SEC":A232.2:145 " YOU'RE ON THE MOON, ACCELERATION = 5.15 FT/SEC/SEC":A25.15:145)" YOU'RE ON MARS, ACCA2((A2(1)20))((A2(1))20):205b (1(10(1)))151,152,153,154,155,156,157,158,159,160 " YOU'RE ON MERCURY, ACCELERATION = 12.2 FT/SEC/SEC":A212.2:145 " YOU'RE ON VENUS, ACCELERATION = 28.3 (1000(1))3 "TERMINAL VELOCITY = ";V1;" MI/HR"l V1V1(52803600):VV1((V1(1))20)((V1(1))20)u 150 "WANT TO SELECT ACCELERATION DUE TO GRAVITY (Y / N)? ";B1$ (B1$,1)"Y"150 "WHAT ACCELERATION (FT/SEC/SEC)";A2& A k936; v::D10:V0:AV:NV:MV:D1(9001(1)1000)y w128:INPUT "PICK YOUR OWN TERMINAL VELOCITY (Y/N)?";A1$ x(A1$,1)"Y"128 {"WHAT TERMINAL VELOCITY (MI/HR)";V1 }V1V1(52803600):VV1((V1(1))20)((V1(1))20):135 V1:9580 Z"WELCOME TO SPLAT! -- THE GAME THAT"_ _"SIMULATES A PARACHUTE JUMP. TRY TO OPEN" `"YOUR CHUTE AT THE LAST POSSIBLE MOMENT" a"WITHOUT GOING 'SPLAT'!" dD$;"OPEN PARACHUTE" eD$;"READ PARACHUTE" fI1500 gA(I):I hD$ 1:gTO RUN FOR FIRST TIME (AND CREATE DATA FILE) LOAD, TYPE 'DEL 101,104', THEN 'RUN 1'FROM 'CREATIVE COMPUTING'A(1000)D$"":93610:17:"SPLAT!"12:13:"A GAME OF GUTS"20 D$;"NOMON C,I,O":18     )172 X,Y I150? xX(40(1)20),Y(40(1)20)E K @IM  NEW FIREWORKS BY R E RAY: CALL-APPLE, JUN '79@d`G(1)20038:H(1)10038t,A1(1)7015(1)71G,H76(1)(G38),78(1)(H38)XC(1)101C8İ900 100X239(1)259 LY152(1 CC ~P(16336) C1* C0ĒC20 = :C20:E 30b . MODIFICATION FUNCTIONSp .X1(XR)~ .Y1(XR) 2122& HYPER BY FRED MITCHELL OCT4,784R57.2958>936b"ENTER FIRST TWO COLORS";C1,C2u :16302,0:2}C1(C1C17:C2C27dX1180xX1(X57.2958):Y1(X57.2958)y12000z140X1140,86Y186140X1140,86Y186 }  '  D$(4)D$;"CATALOG"%Dv BASKETBALL- FROM 101 BASIC GAMES7936T(10):15);"BASKETBALL"y(15):11);"CREATIVE COMPUTING"ABC12000:ABC:936 (5) "THIS RAINBOW BASKETBALL. YOU WILL BE RAINBOW CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOL     0 A1A12:B1B12:C1C12& 2006 :936:22X 0,150B1,150B1,150A10,150t "A=";A;" B=";B;" C=";C W13000:W N:130Id PYTHAGOREAN TRIPLES,h BY JIM DAYWi RECREATIONAL COMPUTING,SEPT-OCT 1979an936lxM1:3vMM1N1M1AMMNN:B2MN:CMMNNA1A:B1B:C1CC175200A12A1:B12B1:C12C1170 A1150B115023(16336):ZJ0ZI:ZJ:X(16336):ZJ0ZI:ZJ:ZIPD$;"WRITE PARACHUTE,R0"fI1500:A(I):ID$;"CLOSE PARACHUTE"C2,803,804,805,806,807,808,809E(VA)((D1(V2(2A)))V),"SPLAT"O1005`I11000:I"I'LL GIVE YOU ANOTHER CHANCE"" WANT TO GO AGAIN? ";Z$(Z$,1)"Y"118I1500:I:" PLEASE....";Z$(Z$,1)"Y"1183ZI125:X-OF-A-GUN":1950+%"&%$%&$#!#$%!!":1950Y&"MAYBE IF YOU OPENED YOUR EYES...":1950'"MUTTER, MUTTER, MUTTER.....":1950("PUSHING UP DAISIES.":1950)"EASY COME, EASY GO.":1950(2D1A),"SPLAT----":(1(10(0)))800,801,80 SOON. ";K;" SUCCESSFUL JUMPS BEFORE":"YOURS, AND YOU CAME IN NUMBER ";KK1;"!":"GET WITH IT!"k2000 "REST IN PEACE...":1950!"OH, BOY THAT SMARTS":1950""ALWAYS WAS A LITTLE SLOW":1950#"TIME TO BE CHANGING JOBS":1950$"SONK1:"IN THE ";K;" SUCCESSFUL JUMPS SO FAR."62000"NOT TOO DARING, SPORT. THERE WERE ";K:"SUCCESSFUL JUMPS BEFORE YOURS, AND YOU CAME IN ";K1;" JUMPS BETTER THAN THE":"WORST! SHAPE UP."2000a"HEY! YOU PULLED THE RIP CORD MUCH TOO ND ONLY ";KK1:"OF THEM GOT LOWER THAN YOU DID BEFORE OPENING THEIR CHUTES."Y2000"NOT BAD. THERE HAVE BEEN ";K:"SUCCESSFUL JUMPS BEFORE YOURS. YOU WERE":"BEATEN OUT BY ";KK1;" OF THEM."2000,"PRETTY CONSERVATIVE. YOU RANKED ";K720KK1.75K730.KK1.90K7407750"WOW! THAT'S SOME JUMPING. OF THE ";K:"SUCCESSFUL JUMPS BEFORE YOURS, ONLY ";KK1:"OPENED THEIR CHUTES LOWER THAN YOU.2000O"PRETTY GOOD! ";K;" SUCCESSFUL JUMPS":"PRECEDED YOURS, A))(V(I(VA)))) D01010)I,D0I9500X"....'CHUTE OPEN........"eK0:K1KsI13000&A(I)06200KK1:DA(I)600DK1K11XIlA(I)DvII1KK1.1K700KK1.25K710KK1.50K******","*****************",,I0T(T8)=6I(VA)400R@DD1((A2)I2)aJD01000jTI,D}YKK11000:KK^Ih500"TERMINAL VELOCITY REACHED AT T PLUS ";VA;" SECONDS"IIT(T8)KK11000:KKDD1((V2(2ATUDE =";D1;" FT"?" TERM. VELOCITY=";V1;" FT/SEC +-5%"l" ACCELERATION =";A2;" FT/SEC/SEC+-5%":"SET THE TIMER FOR YOUR FREEFALL:""HOW MANY SECONDS? ";T:"HERE WE GO.....":"TIME (SEC)","DIST TO FALL (FT)":"**** ACCELERATION = 33.8 FT/SEC/SEC":A233.8:145" YOU'RE ON NEPTUNE, ACCELERATION = 39.6 FT/SEC/SEC":A239.6:145"OK, YOU'RE ON THE SUN (HOT STUFF!), ACCELERATION = 896 FT/SEC/SEC":A2896:145" ALTIl+@" ***** END OF FIRST HALF *****"ZJ"SCORE: RAINBOWS ";S(1);" ";O$;" ";S(0)`OfPoT370u'N.7550103165A"BALL STOLEN. EASY LAY UP FOR RAINBOWS"K7000U3000g(1).65120q1160"PASS STOLEN BY ";O$;" EASY LAY UP." 6000425pS(0)S(0)2z"SCORE: ";S(1);" TO ";S(0)XS(1)S(1)2b60103520 FOUL SHOOTING.(1).494050O"SHOOTER MAKES BOTH SHOTS."cS(1P)S(1P)2m6010s(1).754100"SHOOTER MAKES ONE SHOT AND MISSES ONE."S(1P)S(1P)14040"BOTH SHOTS MISSED."4040 (1).93310) "PLAYER FOULED. TWO SHOTS."3 4000< 425d "OFFENSIVE FOUL. RAINBOWS' BALL."m 425| Z133800 "LAY UP." 7D(1).4133600 "SHOT IS GOOD." 6000 425"SHOT IS MISSED."3110"SET SHOT."425 8D(1).7532006! "SHOT IS OFF THE RIM."L& D6(1).53150q0 "RAINBOWS CONTROL THE REBOUND."z: 425N O$;" CONTROLS THE REBOUND."X D65000] (1).53175` "PASS BACK TO ";O$;" GUARD."b 3000g 3500 8D(1)"SET SHOT."1330?"YOUR NEW DEFENSE ALIGNMENT IS ";DMD62010V425^ P1h TT1w T508000 3018 600  Z1104(1)1 Z123500 "JUMP SHOT." 8D(1).353100 "SHOT IS GOOD." 6000 1300%"BALL PASSED BACK TO YOU.".430F7D(1).8751600i"SHOOTER FOULED. TWO SHOTS."s4000}3000@7D(1).9251630J"SHOT BLOCKED. ";O$;"'S BALL."T3000^"CHARGING FOUL. RAINBOWS LOSE THE BALL."h3000 LAY UP."27D(1).41360@<"SHOT IS GOOD. TWO POINTS."JA7000TK3000jP7D(1).71500Z"SHOT IS OFF THE RIM."d(1)231415nO$;" CONTROLS THE REBOUND."x3000"RAINBOWS CONTROL THE REBOUND."(1).41440430O$;"."30003(1).843D81270Y"SHOOTER IS FOULED. TWO SHOTS."c4000m3000"CHARGING FOUL. RAINBOWS LOSE BALL."3000TT1T508000T9213041305600Z02010Z31700("SSED BACK TO YOU."430-(1).91190N"PLAYER FOULED, TW0 SHOTS."X4000b3000"BALL STOLEN. ";O$;"'S BALL."3000(1).782D81250"SHOT IS BLOCKED. BALL CONTROLLED BY ";(1).51242"RAINBOWS."1090."SHOT IS GOOD."$37000.=3000FB(1).682D81200aL"SHOT IS OFF TARGET."xQD6(1).451130V"RAINBOWS CONTROL THE REBOUND."`1145j"REBOUND TO ";O$t3000y(1).401158~1300D65100"BALL PAOF GAME ***** "D "FINAL SCORE: RAINBOWS ";S(1);" ";O$;" ";S(0)J P Xz b" *** TWO MINUTES LEFT IN GAME ***" l v Z1040,1040 1300 TT1 T508000 T921046 1050 600 "JUMP SHOT"$(1).341D81000 T1001000 / S(1)S(0)510X " ***** END OF SECOND HALF *****" "SCORE AT END OF REGULATION TIME: " " RAINBOWS ";S(1);" ";O$;" ";S(0)  "BEGIN TWO MINUTE OVERTIME PERIOD" T93 370 " ***** END OPPONENT ";O$ r"CENTER JUMP"2 (1)35420O O$;" CONTROLS THE TAP."Y 3000z "RAINBOWS CONTROL THE TAP."  "YOUR SHOT ";Z P0 Z(Z)455 Z0Z4455 460 "INCORRECT ANSWER. RETYPE IT. ";:430 (1).5 6.5 MAN-TO-MAN 7.0 ZONE 7.5 NONE" I:"TO CHANGE YOUR DEFENSE, JUST TYPE '0' AS YOUR NEXT SHOT.": L"WHAT WILL YOUR STARTING DEFENSE BE? ";D:D62010 O P"CHOOSE YOUR LOWS:- " 1. LONG (30 FT.) JUMP SHOT"V " 2. SHORT (15 FT.) JUMP SHOT"n " 3. LAY UP " #" 4. SET SHOT" ( <"BOTH TEAMS WILL USE THE SAME DEFENSE. " F"CALL DEFENSE AS FOLLOWS:"i H" 6.0 PRESS  IMPACT  HI-RES DEMO> FROM BUD GROVES LIBRARYLB0:A139w::15:10::"IMPACT"::P13000:P}2:I0191:0,I279,I:I#X1X:Y1Y(X279(1):Y191(1)20FAA1:A279A0GBB1:B191B0 P139, K73 \I0N1:F(N)6K(F(I)6(7C).1)QQ2: fIS kI013:B(I)G(I):Ie pQDAJ:DQl uJ zMA:(42M):200 I0N1:B(I):I 2M)0: D99:H130 %I013:G(I)B(I):IH *J712:B(J)0885Y /G0:MJ:600p 4I05:B(I)0845 9LB(I)I:R0 >L13LL14:R1:830 CB(L)0ĭL6ĭL13RB(12L)R HRQQR MI RQB(13)B(6)Q:C8875 WKJ:K6K0' " ";:B(6):" ";7 I05:580> IH ::[ DB(I)10ĺ" ";h IB(I);:z XPB(M):B(M)0 ]PP11:MM1:M13MM14 bB(M)B(M)1:P gB(M)1ĭM6ĭM13ĭB(12M)0625 l qB(H)B(H)B(12M)1:B(M)0:B(1130 x"ILLEGAL MOVE":100, B(M)01209 H6:200B 500O KM:600b E0:K6KK7 CC1:C9F(N)F(N)6K I05:B(I)0230 I I712:B(I)0E1: 220 :" "; I1271:580 I :I13:587E080" <"MY MOVE IS ";:800. AE080B FMHĺ",";:800N KE035a P:"GAME OVER" UDB(6)B(13):D0ĺ"I WIN BY ";D;" POINTS":20 ZNN1:D0ĺ"DRAWN GAME":20 _"YOU WIN BY ";D;" POINTS":20 d"AGAIN"; nM:M7ĭM0MM1: AWARI - 101 BASIC GAMES.936:(8)B17);"AWARI":a11);"CREATIVE COMPUTING"i 0B(13),G(13),F(50):N::E0I012:B(I)3:IC0:F(N)0:B(13)0:B(6)0#500("YOUR MOVE";:110-E0802MHİ100 A:40,C240,C% PB:40,C1240,C14 ZC,B,A:40T65 "COLOR TWENTYONE" BY DARRELL ALDRICHZ CALL-APPLE, JUL-AUG '79, P. 21y :::"TWENTY-ONE COLORS" GREEN,VIOLET,WHITE,BLACK,ORANGE,BLUEI16:A$(I):(A16:BA6223:A$(B)"-"A$(A)" "<C291192 F  Xy :"NUMBER OF PLACES":"(NEGATIVE FOR PLACES TO RIGHT OF ":"DECIMAL, POSITIVE FOR LEFT OF DECIMAL): ";PLACES :"X=";ROUND(X) UHT OF THE DECIMAL POINT, POSITIVE FOR PLACES TO THE RIGHT OF THE DECIMAL POINT. dROUND(X)(X)(((X).510PLACES)10PLACES)10PLACES n SAMPLE ROUTINE TO TRY FUNCTION x :10:"ROUNDING DEMONSTRATION" ::"NUMBER TO BE ROUNDED: "; FROM APPLE SASS, 2/79s FUNCTION TO ROUND A GIVEN ARGUMENT TO THE NUMBER OF DECIMAL PLACES SPECIFIED.O  THE VARIABLE 'PLACES' SPECIFIES THE NUMBER OF DECIMAL PLACES THE FUNCTION IS TO ROUND TO. 'PLACES' IS NE