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` L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ h ֥  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&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̅  #%(217,2)NU%(8,8):Z11,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,30,32,35,36,40,42,45,48,50,60,64,108,72,80,90,96,100,120,125,144,150,180,216V1223:V:"-----------------------------":H1304:V122:V:AME$(X)NAME$(X)""1230(NAME$(X))65Ģ22:4:" USE LETTERS FOR THE INITIALS":T11000:T:22:" ":1230NAME$(X)(NAME$(X),2)n-- DRAW PLAYING SHEET -----------------------x:N%(50),LOC"EASY"DF$"DIFFICULT"1200%1140Y:4:" HOW MANY PLAYERS ? ";NP$:NP$""1200NP(NP$):(NP$)56(NP$)481200:" EACH PLAYER IS DESIGNATED BY A TWO LETTER INITIAL."X1NPX28:" PLAYER # "X"'S INITIAL ";:"";N KEY."bj10:5:"WHEN YOU WISH TO QUIT THE GAME TYPE 'END' FOR YOUR CHOICE":20:T$:1000t:10:"DO YOU WANT TO PLAY THE EASY VERSION "~12:"OR THE DIFFICULT VERSION ? ENTER E OR D"14:15:"";DF$DF$"E"DF$"D"1200DF$E PREVIOUSLY USED."I:" THE PLAYER ONLY GETS ONE TURN IN THE THIS GAME. IF THEY MISS THE COMPUTER WILL CALCULATE THE HIGHEST POSSIBLE ANSWER.`20:T$:c6:" IF YOU CANNOT THINK OF A CHOICE THEN ENTER 'PASS' AND PRESS THE RETURN_.(#a(ŠҠ׮ŠՠΠɠš)Q#]ˠ#]_ M$"Y"20  M$"YES"20& 4 R15000A R::21G M T" 7Z, `6 g@ 5mJ C12,50212,110164,140116,14068,11068,50116,207d Jn "EIGHT SIDES"Tx 2810^ 2760d j p v |     ::5:"ANY" ::10:"MORE" ::15:"POLYGONS" ::20:"(YES OR NO)?  ::25:" ";M$  2810 2760- THIS IS A HEPTAGONA 16)"HEPTAGON"G Q 2840 140,20187,44203,91169,136111,13677,9193,44140,20 "SEVEN SIDES"( 28102 2760< THIS IS AN OCTAGONF 16)"OCTAGON"P 28401Z 116,20164,202GONV 16)"PENTAGON"` 'j 2840Wt 140,20195,80175,140105,14085,80140,20i~ "FIVE SIDES"s 2810} 2760 THIS IS A HEXAGON 16)"HEXAGON"  2840 105,20175,20210,80175,140105,14070,80105,20 "SIX SIDES"70,75110,75120,853"TWO CONGRUENT SIDES"=2810G2760Mn THIS IS A SCALENE TRIANGLE 12)"SCALENE TRIANGLE" 2840 110,40200,12080,120110,40$ . "NO CONGRUENT SIDES"8 2810B 2760L THIS IS A PENTABTUSE TRIANGLE"R2840;\130,60220,10060,100130,60Afjp"ONE ANGLE GREATER THAN 90 DEGREES"tz2810~2760 THIS IS AN ISOSCELES TRIANGLE11)"ISOSCELES TRIANGLE"2840140,20190,14090,140140,20160,851:39:T$:::20 " 7#, )6 0@ 56J C_.(#a(ŠҠ׮ŠՠΠɠš)Q#]ˠ#]& ')*& "'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::" EACH PLAYER GETS TWO ATTEMPTS AT CHOOS-ING A SQUARE. AFTER TWO INCORRECT CHOICES THE PLAYER LOOSES HIS OR HER TURN."G20:T$:::12:"DIFFICULT VERSION"H6:" IN THE DIFFICULT VERSION THE NUMBERS CHOSEN MUST BE ADJACENT TO A SQUARTURN AND LET THE PLAYERS COMPARE ITTO THEIR'S."B22:" WHEN YOU SEE A FLASHING SQUARE YOU SHOULD PUSH THE 'RETURN' KEY WHEN READY.":20:T$:C::12:"EASY VERSION"D6:" IN THE EASY VERSION THE NUMBERS CHOSEN MAY BE ANYWHERE ON THE SHEET." PLAYER USES ADDITION, SUBTRACTION, MULTIPLICATION OR DIVISION TO OPERATE ON THE THREE NUMBERS AND MAKE A NUMBER ON THE PLAYING SHEET. ::" ALL THE DICE MUST BE USED ONCE AND ONLY ONCE./<:" THE COMPUTER WILL FIGURE ITS CHOICE EACH ION OF THE GAME?"1:"ENTER Y OR N ";:"";T$KT$"YES"T$"Y"1060dT$"NO"T$"N"1140:"ANSWER YES OR NO PLEASE":T11000:T:1000$.4:" THREE DICE ARE USED TO PLAY THE GAME.86:" THE COMPUTER THROWS DICE AND THE U HAVE ONE TRY LEFT":T11500:T:600:204023:"SORRY YOU MISSED TWICE AND HAVE LOST YOUR TURN ";:T11500:T:800:1800----- MAIN PROGRAM -------------------------T11200:R(1):T:10:"DO YOU WANT AN EXPLANAT":3 ---PRINT SCORE ---------------------------N*500:600:32,30:33,9\/NC0:AN0n41:" SCORE">P1NP:P3:NAME$(P);:" - "TP(P)::T$:---- LIMIT # OF CHOICES --------------DF$"D"PD1200,NCNC1:NC1Ģ23:"YO---------------.D730,740,750,760,780,7904IV2:H3:" ":mV1:H5:" ":V3:H1:" ":}730:740:740:V1:H1:" ":V3:H5:" ":V1:H1:" ":V3:H5:" ": 760:730:760:V1:H3:" ":V3:H3:" ":VX-- CLEAR LOWER LINE -----------------b32,0:33,40:34,23:23:" ":-- PRINT DICE ROUTINE --AT.":T$:600&|DF$"D"PD1:3000/900Z-- CLEAR DICE ARE -------------------n32,30:33,9:1+" 330 "YY14:FFY%(YY)D%(DE):100:FFY%(YY)D%(DE):100:FFY%(YY)D%(DE):100:FFY%(YY)D%(DE):100:FFD%(DE)Y%(YY):100:Y%(YY)0320 6FFD%(DE)Y%(YY):100 @YY JDE TDC ^DI hJJ13000 r600:23:"I DON'T KNOW HOW YOU GOT THE"236 150:OK0240/ JJ1:MAXCH:3000[ -- ALL POSSIBLE COMB -----------------o DI13:DC13~ DCDI340 Y%(1)D%(DI)D%(DC):Y%(2)D%(DI)D%(DC):Y%(3)D%(DI)D%(DC):Y%(4)D%(DI)D%(DC) DE13:DEDIDEDC330 DEDIDEDC-- OK0I URR1RR1:WCC1CC1:GS%(U,W)1OK1:URR1:WCC1S :: -- POSSIBLE DICE COMBINATIONS ------------ -- CHECK MULT CHOICE -------------- D%(1)1D%(2)1240 D%(3)1240 CHD%(1)D%(2)D%(3)240 DF$"FFJJ1 kFFMAXı' mFF(FF)ı; nLOC%(FF,1)0ı` xGS%(LOC%(FF,1),LOC%(FF,2))1ıq DF$"E"138 Z1138 RRLOC%(FF,1):CCLOC%(FF,2):150 OK0ı OK0:MAXFF (7)  -- CHECK ADJACENCY ------------------------ ------------------------% B /-\ /-\ - - --- - /-\] ! ! ! !\ ! ! ! !z  ! ! ! ! \! ! ! ! -  \-/ \-/ ! ! ! ! \-/  ------------------------ Z1000 d-- MAXIMUM DICE VALUE ---------------------- gCH 2/3/1983 VERSION 9PLEASE DIRECT COMMENTS &R SUGGESTIONS TO : o-----------------------! DUANE COATES ! ! PALMYRA HIGH SCHOOL !! PALMYRA, NE 68418 !! (402) 780-5327 ! ----------------------          ITIAL ";:"";NAME$(X)+NAME$(X)""1230(NAME$(X))65Ģ22:4:" USE LETTERS FOR THE INITIALS":T11000:T:22:" ":1230NAME$(X)(NAME$(X),2)n-- DRAW PLAYING SHEET -----------------------x14:15:"";DF$)DF$"E"DF$"D"120031140g:4:" HOW MANY PLAYERS ? ";NP$:NP$""1200NP(NP$):(NP$)56(NP$)481200:" EACH PLAYER IS DESIGNATED BY A TWO LETTER INITIAL."X1NPX28:" PLAYER # "X"'S IN22:" WHEN YOU SEE A FLASHING SQUARE YOU SHOULD PUSH THE 'RETURN' KEY WHEN READY."``T$j:6:5:"WHEN YOU WISH TO STOP TYPE 'END'.":T$t:10:"DO YOU WANT TO PLAY THE EASY VERSION "~12:"OR THE DIFFICULT VERSION ? ENTER E OR D". B12:" IN THE EASY VERSION THE NUMBERS CHOSEN MAY BE ANYWHERE ON THE SHEET."::" IN THE DIFFICULT VERSION THE NUMBERS CHOSEN MUST BE ADJACENT TO A SQUARE PREVIOUSLY USED."L19:" IF YOU CAN'T MAKE A NUMBER THEN ENTER THE WORD 'PASS'"XV00:T:1000$B.4:" THREE DICE ARE USED TO PLAY THE GAME.86:" THE COMPUTER THROWS DICE AND THE PLAYER USES ADDITION, SUBTRACTION, MULTIPLICATION OR DIVISION TO OPERATE ON THE THREE NUMBERS AND MAKE A NUMBER ON THE PLAYING SHEETS."$8T11500:T*$B:5:18:"SCORE"6$[P1NP\$`17:P25:NAME$(P);:" - "TP(P)s$jTP(P)TP(WP)WPPz$tP$~::11:"THE WINNER IS ";:NAME$(WP)$ THERE ARE A TOTAL OF 2316 POINTS 43:(" "NAME$(PP)" ",3):*# ""M# GS%(RR,CC)1:TP(PP)TP(PP)CHY# NSNS1j# NS49ī3600s# 800}#H 1800#------PRINT RESULTS -----------------------##$32,1:33,40:34,1::$.10:" THE GAME IS OVER. HERE ARE THE RESULT" YOU CHOSE "CH" BUT THE LARGEST ":" POSSIBILITY WAS "MAX" ";W" T$:600:600l" Z1PD13300" DF$"D"PD13300" ----- PRINT INITIAL IN SQUARE ---------------------" """ Z0" 32,1:33,40" CH03300# :RR3:CC0!JCH1CH2162040(!MDF$"E"9007!RPD1:200n! --- CHOICE IS ACCEPTABLE ------------------------! RRLOC%(CH,1):CCLOC%(CH,2)! MAX0İ600:23:"YOU CHOSE "CH", BUT THERE IS NO SQUARE POSSIBLE.";:3040! CHMAX3200E" 600:23:EEN USED":T$:600:PD1:900. 5DF$"E"200< 6Z1200U 7150:OK1OK0:200 9600:23:"YOUR CHOICE "CH", IS NOT ADJACENT TO A PREVIOUSLY USED SQUARE. ";:T$:PD1::600 >200!H600:23:" THAT IS NOT ONE OF THE SQUARES.":T$:600CH$"P"İ800:1800?CH$"PASS"CH0:MAX0:PD1:200[ CH$"E"CH$"END"3600CH(CH$):MAX0:ZZ1:JJ0:CH1CH2162120 CH(CH)2120*RRLOC%(CH,1):CCLOC%(CH,2):RR0CC02120 4GS%(RR,CC)1İ600:23:"THAT HAS ALREADY B ":P,V:H1:V2:X(0)=N13:DD%(N):700:VV6:s--- INPUT CHOICE -------------------------------32,0:33,40:34,23:PD023:NAME$(PP)", ";:"WHAT IS YOUR CHOICE ? ";CH$CH$""2040CH$"SCORE"CH$"SC"İ800:500:185S TURN -----------------------*PPPP13NC0CPPNPPP1x! ----- THROW OF DICE --------------------------&H10D%(1)((1)61):D%(2)((1)61):D%(3)((1)61):500:600D32,31:33,8 N:V1136:P15:VP:H:" H:"!":::H0$X149:N%(X):6@R17:C17\TRN(((1))491):N%(RN)01620hNU%(R,C)N%(RN):LOC%(N%(RN),1)R:LOC%(N%(RN),2)C:N%(RN)99H1N%(RN)10H1N%(RN)0:R31:C4H1:NU%(R,C):H0:C,R--- INCREMENT PLAYER'1X$" "!X3+XX29 C3(X)UXC(XC)C(X):F1\Cm(F1F0:7-(X$)((X))130707X$<X$" "FX$X$" "(X)P7 X):(; Lp ?';  #&;  kL k #9: L  T   `/ ɍe п#вЮ #:92a:``J ?  f3  T #)IQ!JQ!:!Bl8(^ )`,8hkxXxXx@/Q  @*  #+)T+P6+  L s ?  #(;)8 ):`l; (11*2!|| #':7 #AY`   L  #l;  # B 1UE0I$Q ɻ10U(T011 0$!$  ɍ$! %# ^ɍБ #I`$ٵו󩠅L!8 Iiǥɍ  AL %7L #l;8LX(222):KL(218)(219)256-ZX" AT "KLT$32,1:33,40:34,1::L.10:" THE GAME IS OVER. HERE ARE THE RESULTS."]8T11500:TsB:5:18:"SCORE"[P1NP`17:P25:NAME$(P);:" - "TP(P)jTP(P)TP(P1)WPPtP~::11:"THE WINNER IS ";:NAME$(WP)Z----- PRINT INITIAL IN SQUARE ---------------------E 32,1:33,40s :RR3:CC43:(" "NAME$(PP)" ",3): GS%(RR,CC)1:TP(PP)TP(PP)CH NSNS1 NS49ī3600 800H 1800------PRINT RESULTS ----------------------- --- CHOICE IS ACCEPTABLE ------------------------S RRLOC%(CH,1):CCLOC%(CH,2)i CHMAXDP03300z CHMAX3200 600:23:" YOU CHOSE "CH" BUT THE LARGEST ":" POSSIBILITY WAS "MAX" ";:T$:T11000::T$:600 DP1DP033004 0:900:20405DF$"E"21006Z1Z0:21097150M8OK1OK0:2109600:23:"YOUR CHOICE "CH", IS NOT ADJACENT TO A PREVIOUSLY USED SQUARE. ";:T$:600:DP1>210H600:23:" THAT IS NOT ONE OF THE SQUARES.":T$:600:9003C"İ800:500:18505CH$"PASS"CH$"P"İ800:1800Q CH$"E"CH$"END"3600zCH(CH$):MAX0:ZZ1:JJ0:CH12120 CH(CH)2120*RRLOC%(CH,1):CCLOC%(CH,2):RR0CC02120 4GS%(RR,CC)1İ600:23:"THAT HAS ALREADY BEEN USED":T$:60VP:H:" ":P,V:+H1:V2:X(0)KN13:DD%(N):700:VV6:--- INPUT CHOICE -------------------------------2332,0:33,40:34,2323:NAME$(PP)", ";:"WHAT IS YOUR CHOICE ? ";CH$CH$""2040CH$"SCORE"CH$"SREMENT PLAYER'S TURN -----------------------8PPPP1ANC0QPPNPPP1! ----- THROW OF DICE --------------------------&H10D%(1)((1)61):D%(2)((1)61):D%(3)((1)61):500:600D32,31:33,8N:V1136:P15:4:V122:V:H:"!":::H02X149:N%(X):D@R17:C17jTRN(((1))491):N%(RN)01620hNU%(R,C)N%(RN):LOC%(N%(RN),1)R:LOC%(N%(RN),2)C:N%(RN)99H1N%(RN)10H1N%(RN)0:R31:C4H1:NU%(R,C):H0:C,R,--- INC:N%(50),LOC%(217,2))NU%(8,8):Z11,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,30,32,35,36,40,42,45,48,50,60,64,108,72,80,90,96,100,120,125,144,150,180,216V1223:V:"-----------------------------":H130`&8`9L$(H)? @(h`NO,(` P``c,ɛ` ` `Ɏɬې*, `L&`Ʌ ,i@8 ,L<`ɉɌi@ L<`骍`ݹ`η```````, `L&``ҤҤ׍ Vȑ] ۢԕХեLOʥ LեԊ$.PʩL U ULUV I0 H P heUUVLH h` IN LINE --END ASSEMBLY-- ERRORS:BYTES BADOPCODADDRESS MODBRANCOPI@Ȅܹ R!:Ș Ue`!ɌH $h Uɍ L UeVeUeVeL # LLAՅVԅU  i ީLӥЅڤe L H  h  (,А  UL@Q݄S?jSݩ&Tf݄QP %PQȾ T *?2ESL1 L  ] ( (  $LA LLIL UVfL߅ޅ ȥUVȑ`G u۱HȱH` q ҤȱL1L?   * , L* UJ PeSSQeTTfTfSfVfU` VL U *V *L) hh` ;) ` #Ș U *(  , 2 ȹ  2 *ݭ"I L". Й  Kȱ0 K Eץ ! L!UȱV` (fʅVϥUΥVU HI'I U)_8fWVh 52h% T($ n*I0 `    LA-H uVVh ʩST&&S&TSUTV TSUSΈυV΅UL΅PυQST  #L ie ``I0 iI`˅ȱ `UVJ&U&V 2I0`VU 0 2U&VULrҽh0ʆ҅ " ۥڨ6L) %ȱhȥ) ȱȥ`  H hE%.`8j1Yȱ$0  ɺ< ) $/0  A L ` eȱ` ]( ` S( H)`ߥޥȽȑȥ$ئ !$ɍLȹ  LA$ȹ  "$$0W ;Qȹ  WE];H5!1, 0ȹ ,ȹ,   жh @00  Ұܩ   JҰ   0 Lɠ,ɠ  :L Y;UF  $s)",!)_X"I)V }L! Ll%,")_IYL6 L)_J *L* V V.L* ,Ц!)_XYЗV L* UL1 >/ < P` VU`L L Ƀ 멩ʊ,Wֆ @!Lg` jfjf))_D)f(*멓 uf qЭ ] ,L ( @ hT(L qL1 q+H VUʊUȘh *LZ qL # ΩǍ S $ #2ɪ Oɠ Oɻɢɧ Oɠ ȱɍhh )_ȩ`,8xXxXx6  : Ia#` Q V #12 ϕ5 "]0 ) ե Ԇ׆؆ц. , `Ɉ Z : 5ɘ L Ɍ SI SL$ɕ(ESɍм `Ɉɠ ɍ7)L Li؍ĠӍԍ׍٠̍ō č ԍ̠ҠŠөŠŠ$VWOFVɠ$A0йH4hFAɕɈňLɄ Ɇ ɍWFVȱɍ)WfV0ɉfALɎ ɍɏ ɍLɌ I Lɂɍ4ɑ  # `Ƀ)ɒ` ,` lRLR`0L ɯɃɠ`Q $3  #$9 #*4 z L W  T V #l9ILA #)|!IQ  #l9ܩ # #IAYA!:JL`):I #<)qW'q*q7L,?AV44ɍT)) @ 4T nX3XX2) C3(X)2EXC(XC)C(X):F1LC^(F1F0:60e2Xl<7 X CHOICE THEN ENTER 'PASS' AND PRESS THE RETURN KEY."j10:5:"WHEN YOU WISH TO QUIT THE GAME TYPE 'END' FOR YOUR CHOICE":20:T$:1000t:10:"DO YOU WANT TO PLAY THE EASY VERSION "~12:"OR THE DIFFICULT VERSION ? ENTER E OR D" 14:HE NUMBERS CHOSEN MUST BE ADJACENT TO A SQUARE PREVIOUSLY USED."I:" THE PLAYER ONLY GETS ONE TURN IN THE THIS GAME. IF THEY MISS THE COMPUTER WILL CALCULATE THE HIGHEST POSSIBLE ANSWER.`20:T$:5c6:" IF YOU CANNOT THINK OF A E NUMBERS CHOSEN MAY BE ANYWHERE ON THE SHEET."::" EACH PLAYER GETS TWO ATTEMPTS AT CHOOS-ING A SQUARE. AFTER TWO INCORRECT CHOICES THE PLAYER LOOSES HIS OR HER TURN."G20:T$:::12:"DIFFICULT VERSION"FH6:" IN THE DIFFICULT VERSION T" THE COMPUTER WILL FIGURE ITS CHOICE EACH TURN AND LET THE PLAYERS COMPARE ITTO THEIR'S."B22:" WHEN YOU SEE A FLASHING SQUARE YOU SHOULD PUSH THE 'RETURN' KEY WHEN READY.":20:T$:C::12:"EASY VERSION"D6:" IN THE EASY VERSION TH86:" THE COMPUTER THROWS DICE AND THE PLAYER USES ADDITION, SUBTRACTION, MULTIPLICATION OR DIVISION TO OPERATE ON THE THREE NUMBERS AND MAKE A NUMBER ON THE PLAYING SHEET. ::" ALL THE DICE MUST BE USED ONCE AND ONLY ONCE.^<:----- :@10:"DO YOU WANT AN EXPLANATION OF THE GAME?"`:"ENTER Y OR N ";:"";T$zT$"YES"T$"Y"1060T$"NO"T$"N"1140:"ANSWER YES OR NO PLEASE":T11000:T:1000$.4:" THREE DICE ARE USED TO PLAY THE GAME.ES --------------(DF$"D"PD1200sNCNC1:NC1Ģ23:"YOU HAVE ONE TRY LEFT":T11500:T:600:204023:"SORRY YOU MISSED TWICE AND HAVE LOST YOUR TURN ";:T11500:T:800:1800----- MAIN PROGRAM --------------------:V3:H5:" ":! 760:730:J760:V1:H3:" ":V3:H3:" ":z ---PRINT SCORE ---------------------------*500:600:32,30:33,9/NC0:AN041:" SCORE">P1NP:P3:NAME$(P);:" - "TP(P)::T$:---- LIMIT # OF CHOIC:8e`hh ?l``` $ $` B$L;$ 3$L;$ $L_$ `8i`uuۥee```0```5I`ۅ܅` J Uȱ U  JL"L" ~#0 ʊ)ȱސ Lw" ~#)Ȅޤȱޤ߰)ieޅސ߱ `hhL" Jhh #L#$H) JQ JJJ#H`#HJ (` )A2cmKw馄!O̠Һ #,Ƀɠ "  =Г ̠Š̠ҺL"¥ޅ߅ ) ʊ)ޥߊ$ 0L1# L^#I@)JJJJJf ȩ]fʩ f L 8'ʆɢ ˠ ʥ ɰ$0 L bرMɪ1 7 0L K 7 K 7 ALAL E ! 8⪥ ! K  ,L  ̠,s uX ƐbR0(ʰPp@b  a ! Lh `02!F +AK S`LT aa0a2dLB|L"Lb>02a @0Pa`p D$K  ) ,!.&+-/*U5u dERANLABEMEMORY FULUNKNOWN LABENOT MACRNESTED MACRODUPLICATE SYMBO,jMM|nApr+! @&!d ($Rx^!Whܚ$N Fj.   3&KhFr8+++#+&z2\u!p!rKKȂH h (&`F8pr&BؙHRx@X%" NOT PRIME PRIME.X138XX2F C3(X)bXC(XC)C(X):F1iC(F1Ė10:X:F0:60220:X<7 X E2S(I,J)K1NCE(O,K,1)E2E(O,K,2)E1E(O,K,3)2:720JKqE(O,N,1)E1:E(O,N,2)E2:E(O,N,3)1MM1ĺE(O,N,1),E(O,N,2),E(O,N,3);MM1ĺNN1E1E2JISSO2:N1MM1ijI ESTABLISH PRIORIV#.10:" THE GAME IS OVER. HERE ARE THE RESULTS."C#8T11500:TY#B:5:18:"SCORE"e#[P1NP#`17:P25:NAME$(P);:" - "TP(P)#jTP(P)TP(WP)WPP#tP#~::11:"THE WINNER IS ";:NAME$(WP)# THERE ARE A TOTAL OF 2316 POINTS " 32,1:33,40" CH03300L" :RR3:CC43:(" "NAME$(PP)" ",3):Y" ""|" GS%(RR,CC)1:TP(PP)TP(PP)CH" NSNS1" NS49ī3600" 800"H 1800"------PRINT RESULTS -----------------------""$32,1:33,40:34,1::2OSSIBLE.";:3040!! CHMAX3200t! 600:23:" YOU CHOSE "CH" BUT THE LARGEST ":" POSSIBILITY WAS "MAX" ";! T$:600:600! Z1PD13300! DF$"D"PD13300! ----- PRINT INITIAL IN SQUARE ---------------------! ""! Z023:" THAT IS NOT ONE OF THE SQUARES.":T$:600F JCH1CH2162040W MDF$"E"900f RPD1:200 --- CHOICE IS ACCEPTABLE ------------------------ RRLOC%(CH,1):CCLOC%(CH,2)! MAX0İ600:23:"YOU CHOSE "CH", BUT THERE IS NO SQUARE P4GS%(RR,CC)1İ600:23:"THAT HAS ALREADY BEEN USED":T$:600:PD1:900]5DF$"E"200k6Z12007150:OK1OK0:2009600:23:"YOUR CHOICE "CH", IS NOT ADJACENT TO A PREVIOUSLY USED SQUARE. ";:T$:PD1::600>2000 H600:"20400CH$"SCORE"CH$"SC"İ800:500:1850HCH$"P"İ800:1800nCH$"PASS"CH0:MAX0:PD1:200 CH$"E"CH$"END"3600CH(CH$):MAX0:ZZ1:JJ0:CH1CH2162120 CH(CH)2120*RRLOC%(CH,1):CCLOC%(CH,2):RR0CC02120L31:33,89N:V1136:P15:VP:H:" ":P,V:LH1:V2:X(0)lN13:DD%(N):700:VV6:--- INPUT CHOICE -------------------------------32,0:33,40:34,23:PD023:NAME$(PP)", ";:"WHAT IS YOUR CHOICE ? ";CH$CH$"1:NU%(R,C):H0:C,RM--- INCREMENT PLAYER'S TURN -----------------------YPPPP1bNC0rPPNPPP1! ----- THROW OF DICE --------------------------&H10D%(1)((1)61):D%(2)((1)61):D%(3)((1)61):500:600D32,------------------":>H1304:V122:V:H:"!":::H0SX149:N%(X):e@R17:C17TRN(((1))491):N%(RN)01620hNU%(R,C)N%(RN):LOC%(N%(RN),1)R:LOC%(N%(RN),2)C:N%(RN)99H1N%(RN)10H1N%(RN)0:R31:C4HSHEET -----------------------7x:N%(50),LOC%(217,2)JNU%(8,8):Z11,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28,30,32,35,36,40,42,45,48,50,60,64,108,72,80,90,96,100,120,125,144,150,180,216V1223:V:"-----------X28:" PLAYER # "X"'S INITIAL ";:"";NAME$(X)LNAME$(X)""1230(NAME$(X))65Ģ22:4:" USE LETTERS FOR THE INITIALS":T11000:T:22:" ":1230NAME$(X)(NAME$(X),2)n-- DRAW PLAYING 15:"";DF$%DF$"E"DF$"D"1200JDF$"EASY"DF$"DIFFICULT"1200T1140:4:" HOW MANY PLAYERS ? ";NP$:NP$""1200NP(NP$):(NP$)56(NP$)481200:" EACH PLAYER IS DESIGNATED BY A TWO LETTER INITIAL."X1NP6 * THIS PROGRAM FACTORS NUMBERST"ENTER THE NUMBER YOU WANT TO FACTORf#:10:"";A:q%E(A){(XX12AX(AX)75<8FX;" , ";AXKXE40P(7)A  ~U$(H$,1) U$"0"130B 4:1403,40(N$)2(U$):(95)V 10:39:"";AN$g AN$"E"810 (AN$)1(AN$)9Ģ8:18)" ":130 : (AN$)(AC$)500 10:37:"CORRECT";:T11200:T:37:" ":CR(CR)CR(CR)1(X,2),N(X,3):X @ I1NS:J1NP(I):S(I,J)" ";:J::IF )R RHO VALUE , D VALUE ";RHO$,D$7t RHO$""RHO$"40"K~ D$""D$"250"p (RHO$)45(RHO$)57ĺ"":2210 (D$)45(D$)57ĺ"":2210 160 "ENTER NO. OF OBJECT ";T X1NE:E(T,X,1),E(T,X,2),E(T,X,3):X  X1NS:N(X,1),N !"3 " \-------------/"@ 23:"'"g " ^ RHO ^"{$ " !"25)"!". " \-------------------------/"8 18:"'"B 18:"D"L :V "DEFAULT VALUES RHO = 40 D = 250"` j " ENTEES - DISTANCES "::V"PROJECTION OBJECT VIEWPOINT SCREEN ":c" !"}" ! ***"" ! * * +"" ! ***"" ^ ^" " ! :"^":19:"!":19:"!":16:"PHI = -1"A\13:"DIRECTLY BELOW"rf18:"ENTER PHI VALUE (DEFAULT = .4) ";PHI$pPHI$""PH.4:2210z(PHI$)45(PHI$)57ĺ"":2080PH(PHI$)PH1PH12080:" RHO & D VALU) (THETA$)45(THETA$)57ĺ"":2000:TH(THETA$)A  G*/:" PHI VALUE - ABOVE, BELOW ":::413:"DIRECTLY ABOVE">16:"PHI = 1":19:"!":19:"!":19:(118)H35:"FROM":19:"+ <--- PHI = 0 SIDE":'R19 PARAMETERS K:" THETA VALUE - COMPASS POINTS ":::16:"NORTH = 0"::21:"!":8:"WEST = 270 --+-- EAST = 90":21:"!"::16:"SOUTH = 180"::"ENTER THETA VALUE (DEFAULT = 40) ";THETA$THETA$""TH40:2080:YHSV(J,2)FSV(J,3)1XVSV(J,1):YVSV(J,2):XHSV(I,1):YHSV(I,2)d V1(XHXV)2:V2(YHYV)2zXTXVV1:YTYVV2I27(11702V1V12:V2V22<XTXTVIV1FYTYTVIV2PIZXV,YVXT,YTdE""  INPUT OF1):QE(P(1),L,2):R1SV(Q,1)SV(P,1):R2SV(Q,2)SV(P,2)ZU1XTSV(P,1):U2YTSV(P,2)tU2R1U1R20VI1:{L PLOT VISIBLE PORTION OF EDGES WHICH ARE PARTLY HIDDEN SV(I,3)1XVSV(I,1):YVSV(I,2):XHSV(J,1)3)VI"VSV(I,3)SV(J,3)21140>`SV(I,3)SV(J,3)01260cjSV(I,1),SV(I,2)SV(J,1),SV(J,2)jtE}~"":T$::10 CLASSIFY ENDPOINTS OF EDGES AS VISIBLE OR HIDDEN VI1L1NEE(P(1),L,3)11240PE(P(1),L,IU TEST EACH EDGE OF SECOND PRIORITY OBJECT FOR VISIBILITY STATUS a$E1NEy.E(P(2),E,3)011508IE(P(2),E,1):JE(P(2),E,2)BSV(I,3)0XTSV(I,1):YTSV(I,2):1170:SV(I,3)VILSV(J,3)0XTSV(J,1):YTSV(J,2):1170:SV(J,TY OF OBJECTS 4YE7P(1)1:P(2)2NYE7P(1)2:P(2)1 DRAW VISIBLE EDGES OF FIRST PRIORITY OBJECT :3I112E(P(1),I,3)01030JE(P(1),I,1):KE(P(1),I,2)SV(J,1),SV(J,2)SV(K,1),SV(K,2)--P 2/3/1983 VERSION :PLEASE DIRECT COMMENTS &S SUGGESTIONS TO : p-----------------------! DUANE COATES ! ! PALMYRA HIGH SCHOOL !! PALMYRA, NE 68418 !! (402) 780-5327 ! ---------------------  %_$a(ՠĠ)E@E(٠ή)c[a(ԧӠǠ)E@E()c[a(ˠέ)c[]&a(ҠӠŠЭϠĮ)qq`%q-rq-rq -rq ` %[c [$ a(ԧӠ٠ġРԠЮ) c [1 a(էŠŠԠ)E@E(ŧӠҭ) c& []Ǡ q`$`$ q q-rq-rq-rq q/?r`%_`%_`ԠҠӠҠϠŮ)_ ]Ԡ qqq q8 ` %_ a(ԭŠӠš)_ q/?r `%_  `%_  `%_  _ * a(ԧӠԠ)E@E(٠ҭ) b-rE@F-rE()F-rGY qc`-r%_!a(ՠĠŠӺ)UVW Pb-rE@F-rE()F-rG Y qcdede!S(̠Š٠Šſ)&@ `@9()$*`@9()$(#-/a(ՠE(ԠĠ)FE(Ǯ)-a(ՠĠŠȠ)FE(Ӯ)'a(ҠŠӠ)F8rd8r cq`-r%_)a(Ϡӭӡ)_.a(ՠĠ٠ȠŠӺ) UVW P`$_]ˠŠ2a()FE(נȠӠ)FE()E@E()FGT[]Š͠q/?αrq/?βr q[]ŠdedecPa@c1a@E(ՠԠ)FԠӠȠӿ)&@`@9()%q#a(ŧӠ͠Π)c\`%qqq`$qq `$\q88rddr`8r8r%\ `8r8r$\Π͠Ҡծ)8c>\R\ Wq \`%\ f`@9()%_3k`@:()%_>p\u`@9()%_3w`@:()%_>z_R]@p(Ġ)@p() q/S(Ϡ`%\  `$\`$_ ]/@p()@p()80S(ϠՠԠϠŠȠ̠Ҡ)&@%2`@9()%S(ԠӠŠ)'3`@9()%\4`@9()%_R/6a(ŧӠΠ͠Ҡխ)mcq\v\ {q `%\  `$q\`$q_v]'a(ŧӠ͠Πή)c@p()@p()\`%qqq\ q 'β``ββ$|h_0|a(ŠӠŠϠŠΠĠ)a(ԧӠ٠έ)_@]Ϡ̠`@9()$X`@9()$`@9()$ _X]g@p()@p()-la(ŧӠΠP a(ؠҠ)S(Ƞ̠Ԡſ)&@$`@:()@:()@:()@:()$,]ǠŠ,6a(ŧ̠ˠȠϠԠ)&@S(נǠΠŠԠŠ)'αL`αα$|)TS(נǠΠŠҠҠ)ά)#a(άҠή)#a(ŠŠƠŠӬ)a(Š̠ϠӮ),UVW -rq-rq-rqY qqqqq,UVW -rq-rq-rqY q"nS(ϬԧӠҠſ)&@.xa(ĠϠԠՠ)E@E(ԧӠ)!a(ŠӠҮ)]Ƞ̿N@"rN@"r N@"r3O4 rO4 rO4 rO4 rO4 rO4 rN@" rN@"r&a(ŠΠXM6a(ȠҠ)cca(٠ͮנ)Jcca(ĠҠŠŠƠί)ca(٠ˠ)UVW YM6 ]ȠҠ]Π٠ͮ]Ԭ 2N@"rd]Ǡ          # "X,0XX",4,012,"X.X0X",4,012,"XX.0X",4,012,".X00X",4,012,".XXX0X",5,012 F# "X,000",1,013,"XX,X00",3,013,"X0X,000",3,023,"XX0,000",4,513,"X,X00,000",5,713,"X,XX0,000",3,013,"X0",1,013,"X0.",2,013,"X,000",3,413,"X,0X0.",4,0123 dP# ".0XX",2,014,".0 A single zero left of the Decimal Point is not Significant. I"5. Zeros to the RIGHT of a Decimal Point and following a NONZERO digit are significant.(# 372# "XXX.X",4,01,"X,XXX",4,01,"XX.X",3,01,"XXX,XXX",6,01J< an assumed Decimal Point are NOT Significant unless indicated. The RIGHTMOST Significant zero is indicated by a bar. C"4. All zeros to the RIGHT of a Decimal Point but to the LEFT of a NONZERO digit are NOT Significant.:940+MD$"."MD$","NR$NR$MD$:940;NR$NR$"0"BFHN{"1. All NONZERO Digits ARE Significant."2. All zeros between two NONZERO digits ARE Significant "3. Zeros to the RIGHT of a NONZERO digit but left of<f22:20:"Would you like to start again ? (Y or N)";AN$gkAN$"Y"AN$"YES"AN$"y"AN$"yes"Ĭmpz(" "(CR(I)),3)" "(" "(CR(I)V),3)" pts":NR$""F1(N$)MD$(N$,F,1)MD$"X"NR$NR$(((1)91))t on 3rd attempt ";:I4:V0:890*O32,0fRTPCR(1)4CR(2)2CR(3):PP(CR(1)CR(2)CR(3)CR(4))4T:12:"On "PP4" problem(s) you scored "TP" points out of "PP" possible"UPP0860WPC(TPPP100.5)\:30:"Your final score is "PC"%" 23:25:"Touch the ";::" SPACE BAR";::" to Continue";:1403,44:T$:R*d4:32,20:5:>"Correct on 1st attempt ";:I1:V4:890C"Correct on 2nd attempt ";:I2:V2:890H"Correct on 3rd attempt ";:I3:V1:890 M"Incorrec700103,Y2(H$)?X((H$,Y,1))_X1000,2000,3000,4000,5000elY!CR3Ģ11:28:"The correct answer is "AC$&8000700:CRCR1DCR4CR(4)CR(4)1:103X12034,9::34,0L 2A YCE2C &DS0570- 0DS0580B :Y((MX2A)C)K ?590a DYS((MX2A)C)r NXTTT50x ~  " 2 2 " A"(120)" + B"(120)(121)" + C"(121)" + D"(120)" + E"(121)" + F= 0"$"N"V$"NO"440) "YES OR NO PLEASE"2 380: :I DS0470W DS0700o MD24AE24CF} SA(MA) SB(MC) :6 SASB520 SAT SBT T1S1 T10S10 T100S100 T1000S1000 XCD '310= 6::"WOULD YOU LIKE TO PLOT YOUR EQUATION ?";W$T @W$"Y"W$"Y"500l TW$"N"W$"NO"380 h"YES OR NO PLEASE" r310 w |:"WOULD YOU LIKE TO PUT SOME MORE VALUES INTO THE EQUATION ?";V$ V$"Y"V$"YES"140 V 9:9:"B=";B# 9:17:"C=";C6 9:25:"D=";DI 9:30:"E=";E\ 9:35:"F=";Fm DSB24ACy ::: DS0290 DS0300 "" "":"YOUR EQUATION IS AN ELLIPSE." 310 """:"YOUR EQUATION IS A PARABOLA."& U5)"2. A DEGENERATE CONIC - WHICH= Z6)"- IS A POINT"S d6)"- IS A LINE" n6)"- IS TWO INTERSECTING LINES " x"PRESS RETURN TO CONTINUE";A$ :: :"TYPE IN VALUES FOR EACH VARIABLE.":: 2000 9:1:"A=";A REVISED 11-5-1982# ::? 13)"CONIC SECTIONS":I2000{::"THE GRAPH OF THIS EQUATION IS EITHER ;"(5)"1. A CONIC SECTION - WHICH INCLUDES"26)"- ELLIPSES"<6)"- PARABOLAS"F6)"- HYPERBOLAS"P::" OR ;":     ( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               1980,1982":1000O ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:c dD$;"BRUN MENU"z  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:B:A$:D  :D$(4): CTRL-D92:A$"APPLE II":1000j(4:A$"DOS VERSION 3.3 SYSTEM MASTER":100027:A$"JANUARY 1, 1983":1000<D$;"BLOAD LOADER.OBJ0"F4096: FAST LOAD IN INTEGER BASIC P10:958:A$"COPYRIGHT APPLE COMPUTER,INC. x ɳLɴj  Ȱ)eL:ɁɈ)ieM 0,0L?(&52/.+%#! '%41.,*$" *'641/,&$"!".000000X0",2,015,".00X",1,015A00X0XX",4,0124,".00000XXX",3,014,".00X00X",4,0124,".000X000X",5,0124,"0.00XXX",3,014,"0.0X0X",3,0124Z# "X.X00",4,015,"X0X.0",4,0125,"X.00",3,015,"X,000.0",5,015,"XX.00X0",6,0125,"0.00X00",3,0145,".000X0XX0",5,01245,".0XX00",4,0145,".00000X0X0",4,01245,10S10 T100S100+ T1000S10009 XCD2AG YCE2CU &DS0570c 0DS0580x :Y((MX2A)C) ?590 DYS((MX2A)C) NXTTT50  "A*X^2 + B*X*Y + C*Y^2 + D*X + E*Y + F= 0"  ";V$ V$"Y"140& V$"YES"1406 V$"N"440G V$"NO"440_ "YES OR NO PLEASE"h 380p : DS0470 DS0700 MD24AE24CF SA(MA) SB(MC) :6 SASB520 SAT SBT T1S1 TIS A PARABOLA." '310M 6::"WOULD YOU LIKE TO PLOT YOUR EQUATION ?";W$] @W$"Y"500o JW$"YES"500 TW$"N"380 ^W$"NO"380 h"YES OR NO PLEASE" r310 w |:"WOULD YOU LIKE TO PUT SOME MORE VALUES INTO THE EQUATION ?A 9:9:"B=";B& 9:17:"C=";C9 9:25:"D=";DL 9:30:"E=";E_ 9:35:"F=";Fp DSB24AC| ::: DS0280 DS0290 DS0300 "" "":"YOUR EQUATION IS AN ELLIPSE." 310 """:"YOUR EQUATION :) U5)"2. A DEGENERATE CONIC - WHICH@ Z6)"- IS A POINT"V d6)"- IS A LINE" n6)"- IS TWO INTERSECTING LINES " x"PRESS RETURN TO CONTINUE";A$ :: :"TYPE IN VALUES FOR EACH VARIABLE.":: 2000 9:1:"A=";BY D.COATES JUNE,1980& ::B 13)"CONIC SECTIONS":L2000~::"THE GRAPH OF THIS EQUATION IS EITHER ;"(5)"1. A CONIC SECTION - WHICH INCLUDES"26)"- ELLIPSES"<6)"- PARABOLAS"F6)"- HYPERBOLAS" P::" OR ;"     ōР Ŭì ¬ƬčԠ ƬÍ Ĭ¬ƍàР؍ԠРàñРӠñĠààؠ؍̭؍ٍĠҠðԠðɠñРč̠ ƬŬ ì%ñؠؠҠıР³ŠԍؠЭٻӠŠРōؠРòԠР´ŠԍؠԠ̍ؠòҠı»΍ԠРñàԍРøӠñ"SC"%" $0 .T12000:T:$X1$"("V$" + "X2$")"7A$X1$V$" + "(X1X2)=C[T225251:(T);:a{NC(0)C(1)C(2)C(3)SC(C(0)4C(1)2C(2))(4N)SC(SC100.5)1:10:N$",YOU DID "N" PROBLEMS YOUR SCORE IS .5Q$(252)" "Q$" "(252):A$((X1X2))4 r: |S *******************i  MULTIPLICATION Q$X1$" * ("X2$")" A$(X1X2)  ******************* DISTRIBUTIVE V((1)26225) V236V239440 V$(V)QA$3 ,24:5:"HIT THE SPACE BAR TO CONTINUE";:G$M 41:".."A$"..":::0_ 6C(IN)C(IN)1w ;NPNP1:NPLP1000 ?IN0:T12000::90 @******************* E ADDITION JX20X2$"("(X2)")" TQ$X1$" + "X2$ ^A$(X1X2). hLIN52:11:Q$" = ";AN$;" ";% 06 AN$A$230^ AN$A$ĺ::15:"VERY GOOD":AN$""q 1:::0:310y : 7:"SORRY THAT IS NOT CORRECT":: AN$"" ININ1 IN3140 8:"THE CORRECT ANSWER IS :  "20:11:Q$" = "ȫ150 (T$)132121 (AN$)15AN$"":155] (T$)64(T$)91T$((T$)160):190o (T$)32190 (T$)43(T$)57AN$AN$" ":155 AN$AN$T$ IN52:13(Q$)(AN$):T$ 150 AN$(229)(238)(228)1000 1 RN((1)91)? RN320,320,320,320,400,400,400,430,430,430E b IN52:11:Q$" = ";AN$ IN52:14(Q$)(AN$):T$ (T$)8170 (AN$)2AN$"":162 AN$(AN$,(AN$)1) IN52:11:Q$" = ";AN$" " ! C(89) 83R$'(R$)3(V(R$)C2V$(160V)K<V$XF"H "V$^PS:10:"HOW MANY PROBLEMS ? ";LPU:10:"WHAT IS YOUR NAME ? ";N$:1:N$:0ZX1(30(1)15):X2(30(1)15)dX1$(X1):X2$(X2)nL(1) x     ŠŠz#?XñɠŠ ŠӠՠ ǠǠŠ!ǠǠҠŠ ǠӠ "ŭĠԠ ŠӠ ԠŠԠŠԠҮʰϠȠҠ ȠҠ֠Š Ǡ͠Ԡà٠Ǡ٠٭ΠЮϠà* ҠӠ à àήǠӠ ij  Ӡ ҠȠ Ҡ  ҠԠԠ͠!ԠΠΠàǠ̠ ҠҠŠŠΠԠΠԮӠǠà òʠԠԠ I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4 àà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ҩ Ȍeʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅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!$qo N049::24:20:"N= ";N::3:279,79:I06.26318531.0628318531:(I)139140,(NI)7979:::::N gW'  `^ :F Y %^LǏLZ^[_\Z][`1''I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4 "::"IN ANY CASE, TRY AGAIN.":B1,3:ZE,(T8SQCR)FR:771:AE THINGS JUST"::"HAPPENED.": |"EITHER YOUR INITIAL VELOCITIES"::"WERE TOO LARGE OR YOU PASSED TOO"::"CLOSE TO THE STAR. PASSING TO CLOSE"::"TO THE STAR CAUSES PROBLEMS WITH A"::"120 DAY LOOP INTERVAL." :"OR PERHAPS YOU JUST MESSED UP.ETS."? `:"SUGGESTED INPUTS: DX=5555, DY=0, VX=0, VY=3":: h:"HIT ANY KEY WHEN READY":A$::::DP771789:DA:DP,DA:: m 175,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96 r::YY110:(7):YY:::"OKAY, PAL. ONE OF THRE:VX:T3:FR:DY;" "$ T3:T8:VY7 "ZERO:XNU,YNUN ,XNU(DXCR)SXCALEe 6YNU(DYCR)SYCALEv @TH:XNU,YNU E700 J190 T ^17:"COMETS"::" THIS PROGRAM IS A SIMULATION OF THE"::"ORBITAL TRAJECTORIES CHARACTERISTIC OF"::"COM9:ZERO0:THREE3:T222:T323:FR4:T828:RE1.491011:TLL91011a SS(DXDX)(DYDY):SQ(SS)r FCMMSGSS AXF(DXSQ)CM AYF(DYSQ)CM VXVX(AXDT) VYVY(AYDT) DXDX(VXDT) DYDY(VYDT) T2:FR:DX;" ":T2:T8,81:139,80:140,79> RD1100:X(1)279:Y(1)159:X,Y: MS3293905.981024:G6.6710(11):DT120360024:SXCALE279(2(5900109)):SYCALE159(2(5900109)) 22:25:"VX=":23:25:"VY=" 22:"DX=":23:"DY="A CM1000:CR590010D 370# (350&-,/L2"ENTER DX(X 10^6 KM)";DX:[<DXDX109{F"ENTER DY(X 10^6 KM)";DY:PDYDY109Z"ENTER VX(KPS)";VX:dVXVX103n"ENTER VY(KPS)";VY:xVYVY103:} 3:140,80:141,80:140      YOUR TURN ";:T11500:T:800:1800Z----- MAIN PROGRAM -------------------------b:10:"DO YOU WANT AN EXPLANATION OF THE GAME?"12:"";T$T$"YES"T$"Y"1060T$"NO"T$"N"1140 :"ANSWER YES OR NO PLEASE":T11000:32,30:33,9!41:" SCORE"Q>P1NP:P3:NAME$(P);:" - "TP(P)::T$:}---- LIMIT # OF CHOICES --------------NCNC1:NC1Ģ23:"YOU HAVE ONE TRY LEFT":T11500:T:600:2040(23:"SORRY YOU MISSED TWICE AND HAVE LOST H3:" ":.V1:H5:" ":V3:H1:" ":>730:740:g740:V1:H1:" ":V3:H5:" ":V1:H1:" ":V3:H5:" ": 760:730:760:V1:H3:" ":V3:H3:" ": ---PRINT SCORE ---------------------------*500:6 LINE ----------------- b32,0:33,40:34,23:23:" ": -- PRINT DICE ROUTINE ----------------- D730,740,750,760,780,790  V2:ICE ARE -------------------/ 32,30:33,9:1 " ": X-- CLEAR LOWER100:FFY%(YY)D%(DE):100:FFY%(YY)D%(DE):100:FFY%(YY)D%(DE):100:FFD%(DE)Y%(YY):100:Y%(YY)0320 6FFD%(DE)Y%(YY):100 @YY JDE TDC ^DI hJJ13000 r600:23:"I DON'T KNOW HOW YOU GOT THAT.":T$:600:900 -- CLEAR DD%(3)12409 CHD%(1)D%(2)D%(3)JJ1:MAXCH:3000M DI13:DC13\ DCDI340 Y%(1)D%(DI)D%(DC):Y%(2)D%(DI)D%(DC):Y%(3)D%(DI)D%(DC):Y%(4)D%(DI)D%(DC) DE13:DEDIDEDC330 DEDIDEDC330j "YY14:FFY%(YY)D%(DE):F,1):CCLOC%(FF,2):150# OK0ı3 OK0:MAXFF9 k -- CHECK ADJACENCY ------------------------- URR1RR1:WCC1CC1:GS%(U,W)1OK1:URR1:WCC1 :: -- POSSIBLE DICE COMBINATIONS ------------ D%(1)1D%(2)1240 .1-- FEB 2, 1983 VERSION BY DUANE COATES<4000F 1000xd-- MAXIMUM DICE VALUE ----------------------gCHFFJJ1kFFMAXımFF(FF)ınLOC%(FF,1)0ıxGS%(LOC%(FF,1),LOC%(FF,2))1ıDF$"E"138 RRLOC%(F    68)0ĀZ ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."` ,C(768)1250 9 --IF THERE, LOAD INTG AND PA#1@ p 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 --NO CARD OR CAN'T RELOAD  (7806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96: 769 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 and ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -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فŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               `%_$a(ՠĠ)E@E(٠ή)c[a(ԧӠǠ)E@E()c[a(ˠέ)c[]&a(ҠӠŠЭϠĮ)qq`%q-rq-rq -rq ` %[ c [$ a(ԧӠ٠ġРԠЮ) c [1 a(էŠŠԠ)E@E(ŧӠҭ) c& []Ǡ q`$`$ q q-rq-rq-rq q/?r`%_`%_ՠԠҠӠҠϠŮ)_ ]Ԡ qqq q8 ` %_ a(ԭŠӠš)_ q/?r `%_  `%_  `%_  _ * a(ԧӠԠ)E@E(٠ҭ)b-rE@F-rE()F-rGY qc`-r%_!a(ՠĠŠӺ)UVW Pb-rE@F-rE()F-rG Y qcdede!S(̠Š٠Šſ)&@ `@9()$*`@9()$(#-/a(Ԡ)FE(ԠĠ)FE(Ǯ)-a(ՠĠŠȠ)FE(Ӯ)'a(ҠŠӠ)F8rd8r cq`-r%_)a(Ϡӭӡ)_.a(ՠĠ٠ȠŠӺ) UVW P\`$_]ˠŠ2a()FE(נȠӠ)FE()E@E()FGT[]Š͠q/?αrq/?βr q[]ŠdedecPa@c1a@E(ՠϠՠԠӠȠӿ)&@`@9()%q#a(ŧӠ͠Π)c\`%qqq`$qq `$\q88rddr`8r8r%\ `8r8r$Π͠Ҡծ)8c>\R\ Wq \`%\ f`@9()%_3k`@:()%_>p\u`@9()%_3w`@:()%_>z_R]@p(Ġ)@p() q/S(`%\  `$\`$_ ]"/@p()@p()80S(ϠՠԠϠŠȠ̠ҿ)&@%2`@9()%S(ԠӠŠ)'3`@9()%\4`@9()%_R/6a(ŧӠΠ͠Ҡխ)mcq\v\ {q `%\  `$q\`$q_v]'a(ŧӠ͠Πή)c@p()@p()\`%qqq\ q 'β``ββ$|h_0|a(ŠӠŠϠŠΠĠ)a(ԧӠ٠έ)_@]Ϡ̠`@9()$X`@9()$`@9()$ _X]g@p()@p()-la(ŧӠΠP a(ؠҠ)S(Ƞ̠Ԡſ)&@$`@:()@:()@:()@:()$,]ǠŠ,6a(ŧ̠ˠȠϠԠ)&@S(נǠΠŠԠŠ)'αL`αα$|)TS(נǠΠŠҠҠ)ά)#a(άҠή)#a(ŠŠƠŠӬ)a(Š̠ϠӮ),UVW -rq-rq-rqY qqqqq,UVW -rq-rq-rqY q"nS(ϬԧӠҠſ)&@.xa(ĠϠԠՠ)E@E(ԧӠ)!a(ŠӠҮ)]Ƞ̿N@"rN@"r N@"r3O4 rO4 rO4 rO4 rO4 rO4 rN@" rN@"r&a(ŠΠ\M6a(ȠҠ)cca(٠ͮנ)Jcca(ĠҠŠŠƠί)ca(٠ˠ)UVW YM6 ]ȠҠ]Π٠ͮ]Ԭ 2N@"rd]Ǡ      4+;߂ q2pFңS$+ >9  #i$ir!9 L ҍf/ 1 QS $Bɠ #! B9 a%AaAx - L 4d? #a? P+| =+|B\|`# B\9߰;B` И Ժ e A ѵȭҵ ȩ   ȑ    L  <LҦ A ̤8  AL ̤LA Ӭ`ɍ L $ Xhh L HH` X Ԡ L hIhLX ĺ )   Ġ  `eae L ' ź ) L ŠL  ĺ UL9 8 ϠŭҠǠîCALL`v LiŠōŠҠį͍ڠϠӍϠŠԠōѠԍ ź źh  Ժ A v ǍӠŠɄʄ  ! ĺ UɃ L L|L%%  ` e轀Cɍ`$( Ih$ o&`$Hɍ    ة Z [مv03W ԧ   àǍ̠ĠōӠŠōĠōĠ         VW4Xڱq<@*#rriڱjڱ<@*#rrk<@*#rrY5.q7`%q88rr[ Na(Π)V)_.?.@p().f/?r[.qqUVW4Xڱq<@*rriڱjڱ<@*rrk<@*rrY[-.UVW2q.?6?r.?6?r.?6?rY[].Uڳk[1.UVWghghY[..ijkghgh[_.lmnijklmnijkghgh[.d6?eKM6QD.@p([!.lmngh[.lmn['.ijklmn[T.lmnijkijkijklmn[.lmn[+.ijklmn[.ijW lm'nYf._6. .`$. .\.f.\.f[.ijk[.lmn[!.lmngh[!.lmngh[2.lmnijklmna(ϠӠ)GT.a(٠)\._6. Y.`d$^.a(Ϡ)G_T.^.q fqqc.`7$h.\.h.q q\.3m.\.`$r.f\.\.a()Y_ .r.رqٱq\. w.qٱqر;|.\.UVWYfUV \.qq\.,.q\.1.ij k6.qqq;.qf\.q5@.q`.?6@r$E.q_;.8dr8E.`.?6@r.?6@r$.q.?6@rf\.J.`$O.\.q_Y.$O.T`$Y.(.N@"6rLM6\.L] .LUVWX .q/? rq/? rF.q/?rq/?rq8 r`$.fq`$..qqqA.`$".q7qqqq f77\.f_'. ".q''.qq     Y(C1)X(C),Y(C) 125X115. 5:115: 6:115F 7:115C X(200),Y(200)d:3?}X(0)279255:Y(1)159255ZX,Y:T150::0:X,Yq(16287)127200(16286)127125BB1B1B03125B0Ē3:2100CC1X(C)XY(C)Y X(C1),T1000S1000 XCD2A, YCE2C: &DS0570H 0DS0580] :Y((MX2A)C)f ?590| DYS((MX2A)C) NXTTT50  "A*X^2 + B*X*Y + C*Y^2 + D*X + E*Y + F= 0"  h$"YES"140 V$"N"440, V$"NO"440D "YES OR NO PLEASE"M 380U :d DS0470r DS0700 MD24AE24CF SA(MA) SB(MC) :6 SASB520 SAT SBT T1S1 T10S10 T100S100 6::"WOULD YOU LIKE TO PLOT YOUR EQUATION ?";W$B @W$"Y"500T JW$"YES"500d TW$"N"380u ^W$"NO"380 h"YES OR NO PLEASE" r310 w |:"WOULD YOU LIKE TO PUT SOME MORE VALUES INTO THE EQUATION ?";V$ V$"Y"140 V17:"C=";C 9:25:"D=";D1 9:30:"E=";ED 9:35:"F=";FU DSB24ACa :::o DS0280} DS0290 DS0300 "" "":"YOUR EQUATION IS AN ELLIPSE." 310 """:"YOUR EQUATION IS A PARABOLA." '3102 CONIC - WHICH% Z6)"- IS A POINT"; d6)"- IS A LINE"n n6)"- IS TWO INTERSECTING LINES " x"PRESS RETURN TO CONTINUE";A$ :: :"TYPE IN VALUES FOR EACH VARIABLE.":: 2000 9:1:"A=";A 9:9:"B=";B 9: ::' 13)"CONIC SECTIONS":12000c::"THE GRAPH OF THIS EQUATION IS EITHER ;"(5)"1. A CONIC SECTION - WHICH INCLUDES"26)"- ELLIPSES"<6)"- PARABOLAS"F6)"- HYPERBOLAS"P::" OR ;": U5)"2. A DEGENERATE     ":V-- PRINT DICE ROUTINE -----------------uD730,740,750,760,780,790{V2:H3:" ":V1:H5:" ":V3:H1:" ":730:740:740:V1:H1:" ":V3:H5:" ":V1:H1:" " ":X-- CLEAR LOWER LINE -----------------)b32,0:33,40:34,23:23:" TDC ^DI hJJ13000T r600:23:"I DON'T KNOW HOW YOU GOT THAT.":T$:600m |DF$"D"PD1:3000v 900 -- CLEAR DICE ARE ------------------- 32,30:33,9:1r" %(DC):Y%(4)D%(DI)D%(DC)6 DE13:DEDIDEDC330K DEDIDEDC330 "YY14:FFY%(YY)D%(DE):100:FFY%(YY)D%(DE):100:FFY%(YY)D%(DE):100:FFY%(YY)D%(DE):100:FFD%(DE)Y%(YY):100:Y%(YY)0320 6FFD%(DE)Y%(YY):100 @YY JDE D%(2)1240 D%(3)1240< CHD%(1)D%(2)D%(3)240M DF$"E"236` 150:OK0240v JJ1:MAXCH:3000 -- ALL POSSIBLE COMB ----------------- DI13:DC13 DCDI340 Y%(1)D%(DI)D%(DC):Y%(2)D%(DI)D%(DC):Y%(3)D%(DI)D:MAXFF (7) I -- CHECK ADJACENCY -------------------------R OK0 URR1RR1:WCC1CC1:GS%(U,W)1OK1:URR1:WCC1 :: -- POSSIBLE DICE COMBINATIONS ------------ -- CHECK MULT CHOICE -------------- D%(1)1-- Z1000> d-- MAXIMUM DICE VALUE ----------------------N gCHFFJJ1] kFFMAXın mFF(FF)ı nLOC%(FF,1)0ı xGS%(LOC%(FF,1),LOC%(FF,2))1ı DF$"E"138 Z1138 RRLOC%(FF,1):CCLOC%(FF,2):150 OK0ı OK0 2/3/1983 VERSION :PLEASE DIRECT COMMENTS &S SUGGESTIONS TO : p-----------------------! DUANE COATES ! ! PALMYRA HIGH SCHOOL !! PALMYRA, NE 68418 !! (402) 780-5327 ! ---------------------               USE TIL STUDENT IS READY *? 2#"PRESS ANY KEY TO CONTINUE":S$E <#]RY(Y100.5)100) z N$"HUNDRED":H100/ q  EXPLAINS & ASKS QUESTION 1 MORE TIME FOR INCORRECT REPLIES. :"WRONG. EXPLAIN WHY. RZ= "RZ 9000 | p CONGRATULATES CORRECT RESPONCES :"THAT'S RIGHT!!!!" 9000 d (# * PA N$"TEN":H10 G GETS 2 RANDOM, 3 DIGIT #S & ROUNDS THEM.f ASSIGNS VALUES TO N$, H  X((1)899)101: 100RH ---INSTRUCTIONS---XRh\::255:5f"IT'S REALLY VERY SIMPLE. THE GAME IS PLAYED JUST LIKE TIC-TAC-TOE."pz5D"NUMBERS WILL BE GIVEN AROUND THE PATTERN. YOU WILL PA,B,CA01040*A(A)A(B)680>A(B)A(C)680TS(A(A))S(A(A))1]680cw--PLOT CELLS--}C22 P(G)4,Q(G)CP(G)4,Q(G)CC P(G)2,Q(G)4P(G)2,Q(G)4:P(G)3,Q(G)3P(G)3,Q(G)3-*P(G)2,Q(G)LECTION--  D2, &D2Ē6:D1:5707 01:D2o ::21:D$(D)" PLAYER WHAT IS YOUR CHOICE ";:"";G DG10G1ĺ(7):570 NA(G)1A(G)2ĺ(7):570 XWW1 bA(G)D l770 vW10ė:680 550  ---SCORING--- 70 GR 55,4,42,41,12,125,59,44,66,112,84,61,115,125,210,75,210,125,211,148 42,4,32,41,5,115,65,38,55,104,78,68,120,115,210,60,220,125,221,146 1,2,3,1,4,5,1,6,7,2,4,8,2,6,9,4,6,10,3,5,8,8,9,10,5,7,10 3,7,9,0,0,0  --CHOICE SE @X(X),Y(X)+ JX11Ĕ1X(X),Y(X):230< TXX(X),Y(X)C ^Xc hX(10),Y(10):1X(10),Y(10)k r: |10X(10)6,Y(10) 255 16304,0 AA1:A2440 :21 "DO YOU WISH INSTRUCTIONS (Y/N) ";:A$:A$"Y"830 G110 71259 22:10::"----D E S A----":A514000:A5:::K 23::10:18k Y$"BY":14:20(Y$)2:Y$ T$" D O U G P E T E R S O N ":A0: :18:20(T$)2:T$: X113:::X  ---POSITION NUMBERS--- " ,X19 63 P(13);(4)"BLOAD DIGITS"% Z:+ dB n-----CENTERS-----H x_ X110:P(X),Q(X)f Xp 0:1v } 3 211,12512,12555,466,11212,125210,75211,14866,11212,125:42,41210,75 115,12555,4 59,44211,148:42,41211,  ------------------------=---BY DOUG PETERSON-----[--PALMYRA HIGH SCHOOL---y#--------1983------------(------------------------2A(11),X(11),Y(11)7D$(1)"BLUE":D$(2)"GREEN"<8192::232,0:233,64F-----NUMBERS-----  ,80H(X1)@ XXIN(X)40IN(X1)402:XX,80XX,80H(X1):XX` SUMSUM(H(X1)6.2NB40)f " ,"THE TOTAL AREA IS "(SUM100.5)100 XIN(X)40,80H(X) " X1NB> (H(X))(H(X1))290Y (H(X))(H(X1))280 XXIN(X)40IN(X1)402:XX,80XX,80H(X):XX IN(X)40,80H(X)IN(X1)40,80H(X) SUMSUM(H(X)6.2NB40) 290 IN(X1)40,80H(X1)IN(X)40 dn30x0,00,159:0,80279,80M|X026031:X,75X,85:V}0,0fO06.2.1~O40,80((O)40)21:"HOW MANY BARS ? ";NBIN(NB1),H(NB1)X0NBIN(X)6.2NBXH(X)(IN(X))40 IN(X)40,80  @ #.8BO[cp  666-?? -.-=--u?6.-=$466&--??6-u6?I9.-?$--6)u?v- ?d)u6?d-6/?)u66?$$ -    3+(X5021010:2X,0X,159A<XQFY015910aP50,Y210,YhZY|_50,159210,159d6n50,80210,80x130,0130,159 XN EDGE ARRAY 20XERHS2C1:YERHS2S1:ZERHC2>:N1:O1JDI1NSXNE2S(I,1)jXVXXEV(E2,1)|bVYYEV(E2,2)lVZZEV(E2,3)vGGN(I,1)VXN(I,2)VYN(I,3)VZ{MM1ĺ"SURFACE "I" "GGGG0740E1S(I,1)J2NP(I) V(S(I,1),3)*V1V(S(I,3),1)V(S(I,1),1)IV2V(S(I,3),2)V(S(I,1),2)hV3V(S(I,3),3)V(S(I,1),3)N(I,1)U2V3V2U3N(I,2)U3V1V3U1N(I,3)U1V2V1U2I & DETERMINE VISIBILITY OF EACH SURFACE AND COLLECT VISIBILE EDGES I JI1NSTNP(I)^I:| FILL SURFACE ARRAY FI1NSUJ1NP(I)aS(I,J)jJ,I CALACULATE VECTOR TO EACH SURFACE I1NSU1V(S(I,2),1)V(S(I,1),1)U2V(S(I,2),2)V(S(I,1),2) U3V(S(I,2),3)RRAY I1NVX,Y,Z;V(I,1)X:V(I,2)Y:V(I,3)ZX1XS1YC1:Y1XC1C2YS1C2ZS2:Z1XS2C1YS2S1ZC2RHOSV(I,1)D(X1Z1)CX:SV(I,2)D(Y1Z1)CY"I,QZ14306 READ # OF POINTS IN EACH SURFACE SS10?V(NV,3),SV(NV,3),NP(NS),S(NS,6),N(NS,3),E(2,NE,3)I2000aRHO(RHO$):D(D$){THETA(360TH).01745PH(90PH90).01745CX140:CY96:S1(TH):C1(TH):S2(PH):C2(PH):12:12:"PATIENCE PLEASE" FILL VERTEX AHE VECTOR vz^: N(I,1), V(I,2), V(I,3) CROSS PRODUCT OF VECTORS u AND v for THE FIRST VECTOR OF SURFACE I _: SS = # OF SURFACES IN FIRST OBJECT IN DATAd VIEWPOINT AND SCREEN PARAMETERS nNV30xNS16NE34RTICE OF SURFACE I [:E(O,I,1) E(O,I,2) E(O,I,3) O= # OF THE OBJECT (1 OR 2) 1,2 VERTICES OF VISIBLE EDGE 3 = # OF VISIBLE SURFACES IT IS A PART OF \: U1, U2, U3 = X,Y,Z VALUES OF THE VECTOR u ]: V1, V2, V3 = X,Y,Z VALUES OF T$% 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       16)"HEPTAGON": 2840Y 140,20187,44203,91169,136111,13677,9193,44140,20l "SEVEN SIDES"v( 2810F 16)"OCTAGON"P 2840Z 116,20164,20212,50212,110164,140116,14068,11068,50116,20n :"EIGHT SIDES"x 2810 22"NO CONGRUENT SIDES"8 28105V 16)"PENTAGON":?j 2840ot 140,20195,80175,140105,14085,80140,20~ "FIVE SIDES" 2810 16)"HEXAGON": 2840 105,20175,20210,80175,140105,14070,80105,20 "SIX SIDES" 2810 DEGREES"z2810722:11)"ISOSCELES TRIANGLE":A2840c140,20190,14090,140140,20v160,85170,75110,75120,85"TWO CONGRUENT SIDES"2810 22:12)"SCALENE TRIANGLE 2840 110,40200,12080,120110,40. :EGREE) ANGLE"2810422:13)"ACUTE TRIANGLE>2840` 125,2080,130200,130125,20 :"ALL ANGLES LESS THAN 90 DEGREES"*2810H21:13)"OBTUSE TRIANGLE"R2840\130,60220,10060,100130,60 p:"ONE ANGLE GREATER THAN 9080,90100,40 N165,70175,601X85,6095,70Sb"ONE PAIR OF PARALLEL SIDES"|l"NON-PARALLEL SIDES ARE CONGRUENT";v281022:13)"RIGHT TRIANGLE284080,13080,30200,13080,13080,12090,12090,130 :"ONE RIGHT (90 D30,115130,125 90,65100,75;"ALL SIDES CONGRUENT"E2810Z14)"TRAPEZOID"d2840100,40160,40180,10060,100100,40:"ONE PAIR OF PARALLEL SIDES"2810&11)"ISOSCELES TRAPEZOID":02840 D100,40160,40180,9030200,30160,13080,130120,302160,26160,34E175,82185,82Z"120,126120,134l,95,82105,826"OPPOSITE SIDES PARALLEL"@2810h22:6)"EQUILATERAL TRIANGLE":|2840130,20200,12060,120130,20160,75170,651RIGHT ANGLES";<2810-d14)"RHOMBUS":7x2840`100,40220,40180,12560,125100,40s160,35160,45195,83205,83120,120120,13075,8385,83"ALL SIDES CONGRUENT"281012)"PARALLELOGRAM":2840120,"!"ALL ANGLES-RIGHT ANGLES";+2810=16)"SQUARE"G2840n80,40200,40200,13680,13680,40140,36140,44196,88204,88140,132140,140 76,8884,8890,4090,5080,50(:"ALL SIDES CONGRUENT"2"ALL ANGLES-39:T$:20! $15)"RECTANGLE":3 82840: COLORZ B60,40220,40220,12060,12060,40m L140,36140,44 V216,78224,78 `216,82224,82 j140,116140,124 t56,7864,78 ~56,8264,82 70,4070,5060,50"OPPOSITE SIDES CONGRUENTER POLYGONS":5:"CHOOSE A POLYGON":? 2870:"(1) PENTAGON"X 2870:"(2) HEXAGON"r 2870:"(3) HEPTAGON" 2870:"(4) OCTAGON" *:::: >"TYPE NUMBER? ";T HT2390,2470,2550,2630 p890 z:12:12:"MISTAKE IN ENTRY" 24:"(1) SQUARE"( :2870:"(2) RECTANGLE"G D2870:"(3) PARALLELOGRAM"` N2870:"(4) RHOMBUS"{ X2870:"(5) TRAPEZOID" b2870:"(6) ISOSCELES TRAPEZOID" l: q"TYPE NUMBER? ";T vT1230,1060,1510,1380,1750,1830 890% :3:11:"OTHIANGLE"( |5:"(4) ISOSCELES TRIANGLE"K 5:"(5) EQUILATERAL TRIANGLE"j 5:"(6) SCALENE TRIANGLE"r : "TYPE NUMBER? ";T T2040,2120,1940,2200,1640,2310 890 :3:11:"QUADRILATERALS":5:"CHOOSE A QUADRILATERAL": 02870:HER POLYGONS (5 OR MORE)"6 :10:"(4) EXIT PROGRAMP ::"TYPE NUMBER ";Tg T290,500,710,285p 890x : ":3:14:"TRIANGLES":5:"CHOOSE A TRIANGLE T ^5:"(1) ACUTE TRIANGLE" h5:"(2) OBTUSE TRIANGLE" r5:"(3) RIGHT TR7IORIGINAL PROGRAM ED KASL REVISED BY DUANE COATES 10-1-1982p THE ORIGINAL OCCUPIED 22 SECTORS:16:"POLYGONSP:::"CHOOSE ONEx::10:"(1) TRIANGLES (3-SIDES)":10:"(2) QUADRILATERALS (4-SIDES)" :10:"(3) OT      RIGHT (90 DEGREE) ANGLE""2810,2760L THIS IS AN ACUTE TRIANGLEf13)"ACUTE TRIANGLE"p2840 125,2080,130200,130125,20 "ALL ANGLES LESS THAN 90 DEGREES"*281042760> THIS IS AN OBTUSE TRIANGLEH13)"O85,6095,70.b"ONE PAIR OF PARALLEL SIDES"Wl"NON-PARALLEL SIDES ARE CONGRUENT";av2810k2760 THIS IS A RIGHT TRIANGLE13)"RIGHT TRIANGLE"284080,13080,30200,13080,13080,12090,12090,130"ONE 28401100,40160,40180,10060,100100,407Y"ONE PAIR OF PARALLEL SIDES"c2810m2760 THIS IS AN ISOSCELES TRAPEZOID&11)"ISOSCELES TRAPEZOID"0:2840D100,40160,40180,9080,90100,40N165,70175,60 X EQUILATERAL TRIANGLE4h6)"EQUILATERAL TRIANGLE":rD|2840f130,20200,12060,120130,20y160,75170,65130,115130,12590,65100,75"ALL SIDES CONGRUENT"28102760 THIS IS A TRAPEZOID14)"TRAPEZOID" THIS IS A PARALLELOGRAM112)"PARALLELOGRAM"7A2840j120,30200,30160,13080,130120,30}160,26160,34175,82185,82"120,126120,134,95,82105,826"OPPOSITE SIDES PARALLEL"@2810J2760T^ THIS IS A2810F2760P-Z THIS IS A RHOMBUS@d14)"RHOMBUS"FnPx2840y100,40220,40180,12560,125100,40160,35160,45195,83205,83120,120120,13075,8385,83"ALL SIDES CONGRUENT"28102760 THIS IS A SQUARE&16)"SQUARE"02840W80,40200,40200,13680,13680,40j140,36140,44}196,88204,88140,132140,140 76,8884,8890,4090,5080,50("ALL SIDES CONGRUENT"2"ALL ANGLES-RIGHT ANGLES";<36140,44V216,78224,78/`216,82224,82Dj140,116140,124Ut56,7864,78f~56,8264,82}70,4070,5060,50"OPPOSITE SIDES CONGRUENT""ALL ANGLES-RIGHT ANGLES";2810: TIME LAPSE2760: TEXT FOR MORE POLYGONSp890 z12125"MISTAKE IN ENTRY"CR11000JRR20X^djpv| THIS IS A RECTANGLE$15)"RECTANGLE".82840: COLORB60,40220,40220,12060,12060,40 L140, 5 "CHOOSE A POLYGON"% ? 2870:"(1) PENTAGON"X 2870:"(2) HEXAGON"r 2870:"(3) HEPTAGON" 2870:"(4) OCTAGON" *::: 4 >"TYPE NUMBER? ";OP$ HOP$"1"2380 ROP$"2"2460 \OP$"3"2540 fOP$"4"2620) RHOMBUS"% X2870:"(5) TRAPEZOID"J b2870:"(6) ISOSCELES TRAPEZOID"R l:j v"TYPE NUMBER? ";Q${ Q$"1"1220 Q$"2"1050 Q$"3"1500 Q$"4"1370 Q$"5"1740 Q$"6"1820 890  3:11 "OTHER POLYGONS" T$"3"1930" T$"4"21903 T$"5"1630D T$"6"2300M 890S ^ 3:11t "QUADRILATERALS"{ 5 "CHOOSE A QUADRILATERAL" & 02870:"(1) SQUARE" :2870:"(2) RECTANGLE" D2870:"(3) PARALLELOGRAM" N2870:"(4) ACUTE TRIANGLE"2 h2870:"(2) OBTUSE TRIANGLE"R r2870:"(3) RIGHT TRIANGLE"v |2870:"(4) ISOSCELES TRIANGLE" 2870:"(5) EQUILATERAL TRIANGLE" 2870:"(6) SCALENE TRIANGLE" : "TYPE NUMBER? ";T$ T$"1"2030 T$"2"2110UADRILATERALS (4-SIDES)" & 10L "(3) OTHER POLYGONS (5 OR MORE)"R X p "TYPE NUMBER? ";P$ P$"1"290 P$"2"500 P$"3"710 890 " ,3:14 6"TRIANGLES" @5 J"CHOOSE A TRIANGLE" T ^2870:"(1n! BY ED KASL SUMMER OF 19815 CLEARS SCREEN;I HEADINGQ(16g2 NAME OF PROGRAMw<"POLYGONS"F CONVENIENCEPZdn"CHOOSE A POLYGON"x10"(1) TRIANGLES (3-SIDES