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`4229,4231,4241,4243,4253,4259,4261,4271,4273,4283,4289,4297,4327,4337,4339,4349,4357,4363,4373,4391,4397  4409,4421,4423,4441,4447,4451,4457,4463,4481,4483,4493,4507,4513,4517,4519,4523,4547,4549,4561,4567,4583,4591,4597 q 4603,4621,463833,3847,3851,3853,3863,3877,3881,3889,3907,3911,3917,3919,3923,3929,3931,3943,3947,3967,3989  4001,4003,4007,4013,4019,4021,4027,4049,4051,4057,4073,4079,4091,4093,4099,4111,4127,4129,4133,4139,4153,4157,4159,4177 k 4201,4211,4217,4219,61,3463,3467,3469,3491,3499,3511,3517,3527,3529,3533,3539,3541,3547,3557,3559,3571,3581,3583,3593  3607,3613,3617,3623,3631,3637,3643,3659,3671,3673,3677,3691,3697,3701,3709,3719,3727,3733,3739,3761,3767,3769,3779,3793,3797^ 3803,3821,3823,349,3061,3067,3079,3083,3089,3109,3119,3121,3137,3163,3167,3169,3181,3187,3191 ~ 3203,3209,3217,3221,3229,3251,3253,3257,3259,3271,3299,3301,3307,3313,3319,3323,3329,3331,3343,3347,3359,3361,3371,3373,3389,3391 d 3407,3413,3433,3449,3457,3489,2693,2699,2707,2711,2713,2719,2729,2731,2741,2749,2753,2767,2777,2789,2791,2797 j 2801,2803,2819,2833,2837,2843,2851,2857,2861,2879,2887,2897,2903,2909,2917,2927,2939,2953,2957,2963,2969,2971,2999 Nt 3001,3011,3019,3023,3037,3041,30333,2339,2341,2347,2351,2357,2371,2377,2381,2383,2389,2393,2399 V 2411,2417,2423,2437,2441,2447,2459,2467,2473,2477,2503,2521,2531,2539,2543,2549,2551,2557,2579,2591,2593 Y` 2609,2617,2621,2633,2647,2657,2659,2663,2671,2677,2683,2687,269,1987,1993,1997,1999 B 2003,2011,2017,2027,2029,2039,2053,2063,2069,2081,2083,2087,2089,2099,2111,2113,2129,2131,2137,2141,2143,2153,2161,2179 AL 2203,2207,2213,2221,2237,2239,2243,2251,2267,2269,2273,2281,2287,2293,2297,2309,2311,2 . 1601,1607,1609,1613,1619,1621,1627,1637,1657,1663,1667,1669,1693,1697,1699,1709,1721,1723,1733,1741,1747,1753,1759,1777,1783,1787,17898 1801,1811,1823,1831,1847,1861,1867,1871,1873,1877,1879,1889,1901,1907,1913,1931,1933,1949,1951,1973,1979,1259,1277,1279,1283,1289,1291,1297,1301,1303,1307,1319,1321,1327,1361,1367,1373,1381,1399 $ 1409,1423,1427,1429,1433,1439,1447,1451,1453,1459,1471,1481,1483,1487,1489,1493,1499,1511,1523,1531,1543,1549,1553,1559,1567,1571,1579,1583,1597 1,947,953,967,971,977,983,991,997  1009,1013,1019,1021,1031,1033,1039,1049,1051,1061,1063,1069,1087,1091,1093,1097,1103,1109,1117,1123,1129,1151,1153,1163,1171,1181,1187,1193 ` 1201,1213,1217,1223,1229,1231,1237,1247,563,569,571,577,587,593,599  601,607,613,617,619,631,641,643,647,653,659,661,673,677,683,691,701,709,719,727,733,739,743,751,757,761,769,773,787,797 ;  809,811,821,823,827,829,839,853,857,859,863,877,881,883,887,907,911,919,929,937,94,193,197,199  211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293,307,311,313,317,331,337,347,349,353,359,367,373,379,383,389,397  401,409,419,421,431,433,439,443,449,457,461,463,467,479,487,491,499,503,509,521,523,541,547,55F "; K1J:D(K)",";:! ) :M :"DO YOU WISH TO DO ANOTHER?"U A$d A$"Y"Āl 10  3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,191STED. THE NUMBER SHOULD BE LESS "B 2"OR EQUAL TO 100 MILLION."I <N^ >N((N2)2)İ5j FQ(N)x PI11228 ZP:PQī130 dNP(NP)JJ1:D(J)P n J0ĺN;" IS PRIME":155 N;" HAS PRIME DIVISORS LESS " "THAN "N"^.5 O 10:F8::"YOU ARE NOT GIVING ME AN ODD NUMBER!"::Y:"TRY AGAIN"i I11800: : THIS PROGRAM TESTS NUMBERS FOR PRIMENESS.10:"THIS PROGRAM TESTS ODD NUMBERS FOR ""PRIMENESS. ENTER THE NUMBER YOU WISH"" ("TE          ETWEEN 100 AND 500"=p"5. NUMBER BETWEEN 100 AND 1000"::\z"WHICH WILL IT BE? ";:A$y(A$)1(A$)5ė:2100N(A$):AY, 5 IS HARD.", :"READY TO PLAY? ";:A$:A$"Y"ıD 2000f4 * DIFFICULTY LEVELS * >10)"DIFFICULTY LEVELS"::H"1. NUMBER LESS THAN 50"R"2. NUMBER BETWEEN 50 AND 100"\"3. NUMBER BETWEEN 100 AND 200"f"4. NUMBER BILL TELL YOU THE RESULT OF DIVIDING --YOUR TASK IS TO USE THIS INFORMATION TO DISCOVER THE SECRET NUMBER" :"TO MAKE IT HARDER, YOU HAVE ONLY 10 CHANCES TO GET THE NUMBER.":"TO MAKE IT EASIER, YOU CAN CHOOSE THE LEVEL OF PLAY -- 1 IS EAS? ";:A$ lA$"Y"ī700 v:10:18)"BYE!":J  *INSTRUCTIONS* :4:"THE OBJECTIVE IS TO DISCOVER THE SECRET NUMBER THE COMPUTER WILL CHOOSE." :"YOU WILL ENTER NUMBERS WHICH THE MACHINE WILL DIVIDE BY THE NUMBER.":j "IT W::150:"F A N T A S T I C ! !"5 255:100:600[  * FAILED TO FIND NUMBER * :5:" SORRY, BUT YOU DID NOT FIND THE NUMBER" :"IT WAS "A% 100 600 X * WISH TO CONTINUE? * ]G%0 b:5:"DO YOU WISH TO TRY AGAIN1:G%10İ5001 4:868:"MAKE A GUESS - ";G$C G$(13)210Z G(G$):GA%İ400s 6:"GUESS","RESULT" (6G%):G" / ? = ",GA% 100 200   * CORRECT GUESS * :5:8::"YOU GOT THE NUMBER IN "G%" GUESSES":" 40,150,160 Z200 _5 c CONTINUING SUBROUTINEd d23:08)"PRESS ANY KEY TO CONTINUE ";:A$l e: xA%50(1)1: A%50(1)51: A%100(1)101: A%400(1)101: A%900(1)101: * PLAYING THE GAME *  G%G%' : PROBLEM SOLVING WITH DIVISIONC8:13:"U B A D VI ZR"K:s5:"PROBLEM SOLVING WITH DIVISION"#:15)"NEAL PAYNE"':(:8)"FOR APPLE BY A. COXFORD"-:18)"1983"2100<:2000F:4:2100: PN120,130,1      9601,9613,9619,9623,9629,9631,9643,9649,9661,9677,9679,9689,9697,9719,9721,9733,9739,9743,9749,9767,9769,9781,9787,9791 # 9803,9811,9817,9829,9833,9839,9851,9857,9859,9871,9883,9887,9901,9907,9923,9929,9931,9941,9949,9967,9973 A7,9199 " 9203,9209,9221,9227,9239,9241,9257,9277,9281,9283,9293,9311,9319,9323,9337,9341,9343,9349,9371,9377,9391,9397 " 9403,9413,9419,9421,9431,9433,9437,9439,9461,9463,9467,9473,9479,9491,9497,9511,9521,9533,9539,9547,9551,9587 #1,8779,8783 ! 8803,8807,8819,8821,8831,8837,8839,8849,8861,8863,8867,8887,8893,8923,8929,8933,8941,8951,8963,8969,8971,8999 " 9001,9007,9011,9013,9029,9041,9043,9049,9059,9067,9091,9103,9109,9127,9133,9137,9151,9157,9161,9173,9181,918363,8369,8377,8387,8389  8419,8423,8429,8431,8443,8447,8461,8467,8501,8513,8521,8527,8537,8539,8543,8563,8573,8581,8597,8599 ! 8609,8623,8627,8629,8641,8647,8663,8669,8677,8681,8689,8693,8699,8707,8713,8719,8731,8737,8741,8747,8753,8767927,7933,7937,7949,7951,7963,7993 x 8009,8011,8017,8039,8053,8059,8069,8081,8087,8089,8093,8101,8111,8117,8123,8147,8161,8167,8171,8179,8191   8209,8219,8221,8231,8233,8237,8243,8263,8269,8273,8287,8291,8293,8297,8311,8317,8329,8353,87529,7537,7541,7547,7549,7559,7561,7573,7577,7583,7589,7591 d 7603,7607,7621,7639,7643,7649,7669,7673,7681,7687,7691,7699,7703,7717,7723,7727,7741,7753,7757,7759,7789,7793 &n 7817,7823,7829,7841,7853,7867,7873,7877,7879,7883,7901,7907,7919,43,7057,7069,7079,7103,7109,7121,7127,7129,7151,7159,7177,7187,7193P 7207,7211,7213,7219,7229,7237,7243,7247,7253,7283,7297,7307,7309,7321,7331,7333,7349,7351,7369,7393 AZ 7411,7417,7433,7451,7457,7459,7477,7481,7487,7489,7499,7507,7517,7523, 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 437,5441,5443,5449,5471,5477,5479,5483,5501,5503,5507,5519,5521,5527,5531,5557,5563,5569,5573,5581,5591  5623,5639,5641,5647,5651,5653,5657,5659,5669,5683,5689,5693,5701,5711,5717,5737,5741,5743,5749,5779,5783,5791 c 5801,5807,5813,5821,9,5011,5021,5023,5039,5051,5059,5077,5081,5087,5099,5101,5107,5113,5119,5147,5153,5167,5171,5179,5189,5197  5209,5227,5231,5233,5237,5261,5273,5279,5281,5297,5303,5309,5323,5333,5347,5351,5381,5387,5393,5399 m 5407,5413,5417,5419,5431,57,4639,4643,4649,4651,4657,4663,4673,4679,4691,4703,4721,4723,4729,4733,4751,4759,4783,4787,4789,4793,4799  4801,4813,4817,4831,4861,4871,4877,4889,4903,4909,4919,4931,4933,4937,4943,4951,4957,4967,4969,4973,4987,4993,4999 p 5003,500,228,100,228,100,171,220,114,220,128,100,136,100,152,100,85,220,114,220,128,100,136,100,152,100,85,220,114,220,128,100,136,100,128,100,152,255-99,0: S/W MUSICI0:ZZ:I,ZZ::V 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 228,100,228,100,228,100,171,220,114,220,128,100,136,100,152,100,85,220,114,220,128,100,136,100,152,100,85,220,114,220,128,100,136,100,128,100,152,255 228,100. IF"/x"BOTH PLAYERS SWING SIMULTANEOUSLY,"Z"THEY BLOCK EACH OTHER AND NO SWINGS""ARE COUNTED. THE GAME IS OVER WHEN ONE";"OF THE PLAYERS REACHES AT LEAST 25""POINTS."(16384)128145016368,0::255:I770792(16384)1281330,<16368,0::6:1WF"HE RECEIVES POINTS DEPENDING ON HOW"P"CLOSE OR FAR AWAY HE IS FROM HIS"Z"OPPONENT. EACH PLAYER HAS FIVE SWINGS"d"PER HIT, AND WHEN THEY ARE USED UP HIS";n"OPPONENT GETS CREDIT FOR A HIT"PLAYER STARTS AT ONE END OF THE "M"CATWALK. AS THEY TURN THE PADDLES,"x "THEIR MEN MOVE IN THE CORRESPONDING""DIRECTION. WHEN A PLAYER IS DIRECTLY""IN FRONT OF HIS OPPONENT, PUSHING THE"("PADDLE BUTTON SWINGS HIS LIGHT SABRE."H DUEL ARMED ONLY WITH TWO "F"METER-LONG LIGHTSABRES! THIS GAME"u"SIMULATES THAT DUEL IN COLOR GRAPHICS.";"ONE PLAYER IS DARTH, WHO IS CONTROLLED";"BY PADDLE ONE, AND THE OTHER PLAYER""IS LUKE WHO USES PADDLE ZERO. EACH""40);:%33,38:32,1:34,1:35,22k1:14::"INSTRUCTIONS":23:9:"HIT ANY KEY TO CONTINUE"::1253:1:" IN THE IMMENSE, DESERTED REACTOR""SHAFT IN THE CLOUD CITY OF BESPIN,""DARTH VADER AND LUKE SKYWALKER BATTLE""A DEAT2010:768,I:769,10:770:912:\L3:12:"BY MICHAEL LENZ":10:"INSTRUCTIONS (Y/N)?"VZZ(16384):16368,0:ZZ2171130`ZZ2061110j:I2024010:768,I:769,10:770:tZZ206ı~:40);:I222:I:1:" ";:40:" ";::23::0:970:5:990:k2:970:990:16,20DX2:0:28,3028:29,3027:26,2727:25,2626:23,2427:24,285:25,2728:25,27:21,2227:21,26:11:940:8:950:15:960:$50,255:255.::1470824:11::"LIGHTSABRE BATTLE";:#BI2402,DX21:23,26DX'DX1,23:DX,20:S27,28DX:20,22DX1:DX,22:DX1,28:hPI,TI:PI99ı768,PI:769,TI:770:10002:940:950:960:16,20LX2:11:3,528:3,427:7,25:15:6,828:8,278:6,727:7,26:9,1327:13,26:9,287052:DX2,24:DX3,25:DX4,26:27,28DX5:210DDX27210n2:970:990:16,20DX2:DXDX1:88017,19LX1:17,18LX:LX2,21:23,28LX:20,21LX:LX1,21:LX1,23:LX1,28:20,22LX1:LX,22:17,19DX1:17,18DX:DXX231907R2:940:950:960:16,20LX2:LXLX1:800F\DX11210kf2:970:990:16,20DX2:DXDX1p0:970:5:990:11:940:8:950:15:960:9:16,20DX2:7:16,20LX2:0zDX2,24:DX3,25:DX4,26:5:27,28DX5768,240:769,20:7LX719032:940:950:960:16,20LX2:LXLX1 11:940:8:950:15:960:0:970:5:990:7:16,20LX2:9:16,20DX2:8*LX2,24:LX3,25:LX4,26:27,28LX54768,25:769,20:770>2:LX2,24:LX3,25:LX4,26:27,28LX5:190HL:16,20LX2:16,20DX2:7:LX3,20:LX4,19:LX5,18:LX6,179:DX3,20:DX4,19:DX5,18:DX6,17:I110:ZZ(16336):2:LX3,20:LX4,19:LX5,18:LX6,17:DX3,20:DX4,19:DX5,18:DX6,177:16,20LX2:9:16,20DX2240  :LH10ĺ0;-LH;::" TO ";::DH10ĺ0;>DH;:::"."\:"ANOTHER GAME (Y/N)?";ZZ(16384):16368,0:ZZ206ė:"MAY THE FORCE BE WITH YOU...WHEREVER YOUGO!":ZZ217Ľ:F1:20690DXLX3DXLX10FF:F1260,390?2DH:10:0LS;:29:0DS;&:LS54605DDS5330>N240bX:LH24İ1040:P$(0)" WINS!!!"bDH24İ1020:P$(1)" WINS!!!"lI2501010:768,I:769,10:770:vI2025010:768,I:769,10:770:I110:(7);: "THE SCORE WAS ";:370:I1400::2:370&DH246004DS0:LS0T2:940:950:960:970:990{16,20LX2:16,20DX2:LX7:DX2711:940:8:950:15:960:0:970:5:9907:16,20LX2:9:16,20DX223::8:LH10ĺ0;&LH;:31:DH10ĺ0;022,12:, 2:16,20DX2:9:DX8,DX321G I110:ZZ(16336):k 2:DX8,DX321:9:16,20DX2 DXLX3DXLX8DSDS1:540 DXLX8DXLX3DHDH1:470 DXLX7DXLX4DHDH2:470 DXLX6DHDH3:470 DHDH515:,DXLX8DXLX3LHLH1:340A 6DXLX7DXLX4LHLH2:340[ @DXLX6LHLH3:340g JLHLH5 T0:370:I1400::2:370 ^LH24600 hLS0:DS0:500 r8,1212:8,1214:13,8:13,12 |8,1216:8,1220:17,11:19,11:18,10:8,1022:260( (16286)127(16287)128390M (16287)127(16286)127720o (16384)155Ĺ16368,0:600x 170 2:16,20LX2:7:LX3,LX821 I110:ZZ(16336): 2:LX3,LX821:7:16,20LX2 "DXLX3DXLX8LSLS1:540 8:"LIGHT YOUR LIGHTSABRES!":I11000:s 22:868:22:12::"LIGHTSABRE BATTLE":7:16,20LX2:9:16,20DX2 :I120:ZZ(16336): P0(0):P085780 P0170840 P1(1):P185860 P1170920 (16287)127(16286)128136:13,15378 P34,14:36,14:33,10:37,10:2:35,10s Z21:1:"* "P$(0)" *";:36(P$(1)):"* "P$(1)" *":23 d" HITS";:34:"HITS":" SWINGS";:32:"SWINGS"; n11:940:8:950:15:960 x0:970:5:990 FāI11000::1000( 22:  10605P$(0)"LUKE":P$(1)"DARTH":LX7:DX27R::2:I039:0,39I:(I130:((1)16):((1)40),((1)40)2768,((1)255):769,20:770:<15:I2932:2,32I::I2734:0,1I:33,37I: F8,2635:35,3935:9,1134:9,1       (27);(66)2(30)!2:'2G2 -- PRINTER OFF SUBROUTINEN20T2j2D -- PRINTER MODEr2N:2X"HARD COPY ? ";P$2bP$"Y"PQ1:55002ldD DELETED ";F$1112::"ARE YOU SURE ? ";Q$:C1(Q$"Y"5196M1-4170b12D$;"DELETE ";F$w1<D$;"DELETE ";S$1FD$;"DELETE ";N$1H"ANY MORE ? ";Q$1JQ$"Y"51301L1|-- PRINTER ON SUBROUTINE111(9);"80N"1(9);"I"2TER CODE ";C+0j:6:"DELETING ";SU$(C)60tPZZ1Q0~JCP:SU$(J)SU$(J1)o0I1KK:SG(I,J)SG(I,J1)y0I:J0ZZP:SW2012:"ANOTHER SUBJECT ?";Q$0Q$"Y"4940000--DELETE COURSE UTILITY01 :6:"COURSE TO BEU$(J):SU$(J)SU$(J1):SU$(J1)T$-/I1KK[/FGSG(I,J):SG(I,J)SG(I,J1):SG(I,J1)FGb/Ii/Js/PP1/F14760/SW2//$/.--DELETE SUBJECT UTILITY/8/BSW0İ1850/L:6:"--DELETE SUBJECT UTILITY--" 0`2570:"ENC):15.SW2-."ANY MORE CHANGES ? ";Q$>. Q$"Y"4506D.`.\--SUBJECT SORT UTILITYp.fSW0İ1850y.p:6.z"SUBJECT SORT UTILITY".15::"PLEASE BE PATIENT":.PZZ1.F0.J1P.SU$(J)SU$(J1)4840.F1!/T$Sz#Xò     נ͠ ϭР àŠˠ, ŠΠŠ ɠŠ ΠӠӠ ΠӮƠӠàΠ  ҠҠ ǭΠ"Ϡ! Π!àϠӠ!ŠҠΠŠ  ˮĠ Ӡ٠ΠH(20)::-N"-- ";Q$,-SQ$"ZZZ"602-XU-: --SUBJECT CHANGE SUBROUTINEe-SW0İ1850n-:6-"SUBJECT CHANGE MODE --"-2570-"ENTER CODE ";C-:6-C,SU$(C)::-"ENTER CORRECT SUBJ TITLE";SU$(C).:6:C,SU$(R"',"-----------------------------"?," A";15);H(15):W," B";15);H(16):o," C";15);H(17):," D";15);H(18):,&" F";15);H(19):,0H(20)H(15)H(16)H(17)H(18)H(19),:"------------------------------" -D"TOTAL";15);F$ +h(+r--LIST CATALOG SUBROUTINE0+|:X+"WANT TO SEE CATALOG ?(Y/N) ";Q$j+Q$"Y"4280p++D$;"CATALOG"+"-- ";Q$++---FINAL STATISTICS SUBROUTINE+:3:" FINAL STATISTICS "+:,"GRADE";15);"NUMBE *-- NAME CHANGE SUBROUTINE0*SW0İ1850O*:6:" NAME CHANGE MODE"W*:a*2630t* T$"ZZZ"4136*""0LD NAME IS ";NM$(II)*$"NEW NAME IS ";NM$(II)*&4122*(SW2***J-- SET FILE NAMES SUBROUTINE*TS$"S"F$+^N$"N"READ FILE @";Q$)18507):6:"INSERT DISKETTE"A)4210k)"PRESS RETURN TO START COPY FILE";Q$u)2180)"ANOTHER COPY OF SAME FILE ?(Y/N) ";Q$)Q$"Y"4010)"ANOTHER COURSE ?(Y/N) ";Q$)Q$"Y"3950)F$SA$)4170*NM$(KK)Q$(3840-((SG(0,0)KK:SG(0,1)07(23360F(<SW1:2180L(Fm(P--COPY DATA FILE SUBROUTINE(Z:6:"--COPY DATA FILE MODE":(dSA$F$(n"ENTER COURSE-- ";F$(x4170(:"INSERT DISKETTE":(4210)"PRESS RETURN TO N SUBROUTINE+':6::"INITIALIZATION":7'J020H'SU$(J)"XXX"T'I070c'SG(I,J)1j'Iq'J}'I070'NM$(I)"XXX"'I':6:"INITIAL ENTRY OF CLASS LIST"'KK0'" NAME--- ";Q$' Q$"ZZZ"3880 (KKKK1:;15);"NAME CHANGE":8&X" 4";15);"SUBJECT CHANGE":Y&Z" 5";15);"SUBJECT SORT":|&[" 6";15);"DELETE SUBJECT":&\" 7";15);"DELETE COURSE":&`"ENTER CODE -- ";C&jC3710,3920,4120,4500,4700,4900,5100&t '~-- INITIALIZATIOGH(4)H(18)H(18)1:"D":36007%"F":H(19)H(19)1=%Y%--UTILITIES SUBROUTINEz%$:6:6);" UTILITIES"::%."CODE";15);"UTILITY":%8" 0";15);"RETURN":%B" 1";15);"INITIALIZE":%L" 2";15);"COPY DATA FILES":&V" 3"$ J $ F1$ II1&$ IKK33904$ F13380:$ d$ --LETTER GRADE CONVERSION SUBROUTINE$ :20);"FINAL GRADE : ";$ FGH(1)H(15)H(15)1:"A":3600$ FGH(2)H(16)H(16)1:"B":3600$ FGH(3)H(17)H(17)1:"C":3600 % FFACTOR ?";MG# MG03170$# :*# H# -- NAME SORT SUBROUTINE`#* :6::"SORTING":l#4 F0:I1#> NM$(I)NM$(I1)3490#H T$NM$(I)#R NM$(I)NM$(I1)#\ NM$(I1)T$#f J120#p H(J)SG(I,J)#z SG(I,J)SG(I1,J)# SG(I1,J)H(J)N K "X I"b :20::0'"l P0:XC03"v I120?" XCXC1O" XC15XC1W" XCi" PP40H(I)MG" PP40PP2:3300" PP0PP0" 39,PPP" PP1" 39,PPP" PP1" I" " 10 20 30 40 50 60 70 80 90": # "MAGNIFICATION )100! ::2! NM$(II);20);"AVERAGE : ";FGB! SG(II,0)FGH! b! ---HISTOGRAM ROUTINEk! MG2! I120:H(I)0:I! I1KK! SMSG(I,JJ)! FU95! K120!& LL20K1!0 SM13160!: SMFUH(LL)H(LL)1:3160!D FUFU5"DE --";H(2):( @ " C GRADE --";H(3):C J " D GRADE --";H(4):I T f ^ -- FINAL GRADE ROUTINEt h TS0:SZ0 r J1ZZ | SG(II,J)1SZSZX(J):2960 TSTSSG(II,J)X(J) J FGTS100 SZ0FGFG100(100SZ)! FG(FG1000.5# "--------------------------":/ Q1ZZP Q;10);SU$(Q);30);SG(II,Q)W Qf PQ12830x P005::P0~  --LETTER GRADE STANDINGS SUBROUTINE" :6:6);"-- LETTER GRADE STANDINGS--"::, " A GRADE --";H(1): 6 " B GRAT$)s LX0T$"ZZZ")x T$"ZZZ"27405 I1KKU (NM$(I),LX)T$III:2740\ I~ :::T$;" NOT IN ";F$: I01000:I:2650  -- GRADE DISPLAY SUBROUTINE :6 NM$(II):: "CODE";10);"SUBJECT";30);"GRADE";"CLOSE ";S$ :9 -- CODE-SUBJECT DISPLAY ROUTINEX "CODE";15);"SUBJECT"::d I1ZZw( I;15);SU$(I)~2 I6 ::< F -- NAME SEARCH ROUTINEP -- RETURNS SUBSCRIPT II OR "ZZZ"Z II0d "NAME-- ";T$n LX(ETE ";N$j D$;"OPEN ";N$'t I170;~ D$;"WRITE ";N$G NM$(I)N Ic D$;"CLOSE ";N$ :6::"WRITING SUBJECTS FILE ": D$;"OPEN ";S$ D$;"DELETE ";S$ D$;"OPEN ";S$ I120 D$;"WRITE ";S$ SU$(I) I  D$J I'SG(0,0)KK:SG(0,1)ZZ:D$;"OPEN ";F$OD$;"DELETE ";F$bD$;"OPEN ";F$n I070z J020 D$;"WRITE ";F$$ SG(I,J). J8 IB D$;"CLOSE ";F$L :6::"WRITING NAME FILE ":V D$;"OPEN ";N$` D$;"DELJECTS FILE ":"4D$;"OPEN ";S$.>I120BHD$;"READ ";S$NRSU$(I)U\IjfD$;"CLOSE ";S$ppvz-- WRITE FILE SUBROUTINESW1:6::"WRITING GRADES FILE":IKK170NM$(I)"XXX"JZZ120SG(I,J)1J020D$;"READ ";F$)SG(I,J)0J7IFKKSG(0,0)UZZSG(0,1)jD$;"CLOSE ";F$:6::"READING NAME FILE":D$;"OPEN ";N$I1KKD$;"READ ";N$ NM$(I)I D$;"CLOSE ";N$*:6::"READING SUB2İ2180*"ANOTHER COURSE ? (Y/N)";Q$9&Q$"Y"20?0]:-- READ FILES SUBROUTINED:6::"READING GRADE FILE":ND$;"OPEN ";F$XSW1bD$;"READ ";F$lSG(0,0)vKKSG(0,0):D$;"CLOSE ";F$D$;"OPEN ";F$I0KKLIST ROUTINESW0İ1850%LI0-:9I1KKkLI0ė:6:6);"--CLASS LIST OF ";F$;" --":" ";NM$(I)LILI1LI101770LI0:"-- ";Q$I"-- ";Q$60--EXIT PROGRAM ROUTINESW--":#6"CLASS AVERAGE ";AV:A@"STANDARD DEV. ";SM:_J"LOWEST : ";X1:T"HIGHEST : ";X2::::"HISTOGRAM ? (Y/N) ";Q$^Q$"N"İ3040h"ANOTHER SUBJECT ? (Y/N) ";Q$rQ$"N"1350|60 -- CLASS SG(I,JJ)XG11510-SMSM(XGAV)24IDSM(SMKX)nAV(AV100.5)10:SM(SM100.5)10w:6 5700"COURSE : ";F$:"SUBJECT : ";SU$(JJ):""# OF STUDENTS: ";KX:,"----------------------ENTER CODE-- ";JJUdJJZZJJ1ĺ:::"CODE MUST BE BETWEEN 1 AND ";ZZ::1360tnSM0:KXKK:X11000:X2100xI1KKXGSG(I,JJ)XG1KXKX1:1460XGX2X2XGSMSMXGXGX1X1XGIAVSMKX SM0:I1KK:XG::3530 QQ$"I"PQ113003 :"-- ";Q$DQ$"ZZZ"60KI_QQ$"I"İ4300QQ$"I"JJ0::"HISTOGRAM COMING UP"::3040(602--- CLASS AVERAGE ROUTINE<SW0İ1850F:6:"CLASS AVERAGE MODE":::P2570Z"0>:::"WEIGHTS MUST ADD UP TO 100"::I02000:I:1120_"CLASS OR INDIVIDUAL ?";QQ$i5700uI1KKPQ1ĺ::III:T$NM$(I)QQ$"I"12602630T$"ZZZ"602750"------------------------------"2910608 -- FINAL GRADE ROUTINE6=I1520:H(I)0:IFBSW0İ1850kL:6:"--- FINAL GRADE MODE"::uV2840~`SS0e:6j"CODE SUBJECT WEIGHT":tI1ZZ~I,SU$(I);30);:X(I)SSSSX(I)ISS100120 ? ";QQ$QQ$"C"1015&57005:6:2630GT$"ZZZ"ī60WPQ1İ5500hII0İ2750x"-- ";Q$9705700I1KKPQ1İ5500III2750PQ1QQ$"C"1060"-- ";Q$Q$"ZZZ"ī60$I.CT0750HCTCT1;R"ENTER CORRECT GRADE ";SG(II,C)K\I0500:ITf780zp"ANOTHER SUBJECT ? (Y/N) ";Q$zQ$"Y"710SW260 LIST GRADE MODESW0İ1850:6:"--LIST GRADE MODE":: "CLASS OR INDIVIDUALDE ROUTINESW0İ1850A:6:"---CHANGE GRADE MODE":::K2570U::p"ENTER CODE-- ";Cz2630T$"ZZZ"880CT0 :6"NAME";15);NM$(II): "SUBJECT";15);SU$(C):*"GRADE";15);SG(II,C):4: >:6:"NAME";20)"GRADE"::8 NNM$(I);20);:SG(I,ZZ)Z XSG(I,ZZ)1SG(I,ZZ)125620 b:::"GRADE NOT BETWEEN 0 AND 125"::Q$:580 lI v:: "ANY MORE ? (Y/N) ";Q$ Q$"Y"540 SG(0,1)ZZ SW2 60  --CHANGE GRA0 SG(K,J)SG(K1,J) J2 NM$(K)NM$(K1)9 KB 390a SG(0,0)KK:SG(0,1)ZZ:SW2i 60 --- ENTER GRADE ROUTINE SW0İ1850 :6:"--- ENTER GRADE MODE"::: &ZZZZ1 0"ENTER GRADE TYPE-- ";SU$(ZZ) :I1KK D Q$"ZZZ"320 "KKKK1, ,NM$(KK)Q$5 6250D @SG(0,0)KKS JSG(0,1)ZZ] T3360f ^SW2n h60 r DELETE STUDENT ROUTINE |SW0İ1850 :6:"--- DELETE MODE"::: 2630 T$"ZZZ"500 KKKK1 KIIKK J12CLASS LIST":. " 9";15);"EXIT PROGRAM":H :"ENTER CODE ";Cw C230,370,520,690,920,1080,1330,1670,1800 C9C060 3610 60 -- ADD STUDENT ROUTINE SW0İ1850 :6:"--- ADD MODE" :: "NAME-- ";Q$LITIES":) Z" 1";15);"ADD STUDENT":L d" 2";15);"DELETE STUDENT":l n" 3";15);"ENTER GRADE": x" 4";15);"CHANGE GRADE": " 5";15);"LIST GRADE": " 6";15);"FINAL GRADE": " 7";15);"CLASS AVERAGE": " 8";15);"*$ CREATIVE COMPUTING OCT 1981O NM$(70),SU$(20),SG(70,20),H(20),X(20)eD$(4):SW0::6nPQ06);"GRADES PROGRAM":::("COURSE : ";F$24170<:6APQ0İ5600F"CODE";20);"FUNCTION": P" 0";15);"UTI             >>8  80,>>> >00000>"> <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">> ""*:<>""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""">eJ`*U444LLLddd|||(~ < (&20 *, **>> """ " >> ">> """>""""""< *L` A)LM LL ـ LJ(IM(0 ` L L犨0 u`M8 M { J 8Je^L8 & & &i*i ـJMMMLæ`MH) KhHJJJJ)KKh)jJJJ)J    B1200: 7 '16368,0 (16301,0? ,"WOULD YOU LIKE ANOTHER? ";A$X 6(A$,1)"Y"ė::90 @::12:11:"G O O D B Y E ! ! !" J TT1:JJ1 TNT1  X: b"POINT OFF SCREEN AT ";X;",";Y;". START OVER. " lB12000:::90 40% X,YX,YST:YYST:500:700T XST0Y0X279Y191XXST:500:260w X,YXST,Y:XXST:500:700 YST191X0Y0X279YYST:500:290 X,YX,YST:YYST:500:700 "JM200 $16302,0 &K(16384):K127ī294B11500:B T1:J0:W 21:"SPIROLATERAL OF ORDER ";N;" BEGINNING AT ";X;",";Y] d 3 HIRES PLOTTING ROUTINE XST279Y0X0Y191XXST:500:220 X,YXST,Y:XXST:500:700 YST0X0Y191X279YYST:500:2SE ORDER OF SPIROLATERAL ";N] n:"COORDINATES OF STARTING POINT (0x MA12570:i ::"YOU ENTER A NORTH-SOUTH CORRIDOR "THRU A SECRET DOOR"::4310: ::"YOU ENTER AN EAST-WEST CORRIDOR":2730: "YOU ACTIVATED A . . . TRAP DOOR":440:TD((1)41):TD3LD PEICES"::GGG4:MA12570$ - 440r "YOU SEARCH THE CHAMBER AND":440:"YOU . . . . . FIND A MAP":2 "YOU SURPRISED THE THEIF . . . ."::440:"AS HE RUNS OUT HE DROPS . . . .":" . . . "G4" GOLD PIECES.":"YOU PICK UP THE GOLD PIECES":G((1)61):M43240,3370,3540,3670,4360,4420::V :"THERE IS A THIEF IN THIS CHAMBER":A(C,D,L1)2:440:G4((1)350L11):Y((1)81):Y32610::". . . . . . . HE SURPRISES YOU"::440:"AS HE QUICKLY PASSES BY YOU HE":"SNATCHES . . . "G4" GO;:2180IpS1A(N,Q,L1):S13110,3110,3130,3130,3150,3170,3190,3210,3220[N::Q:1120:"YOU ARE IN A COLD AND DARK":" . . . . . . EMPTY CHAMBER":::"YOU ARE IN A DAMP AND MISTY":". . . . . . . EMPTY CHAMBER"::2$ TRTR1::4140:M4:"YOU ARE AT THE NORTH WALLa"YOU CANNOT PAST THROUGH"::"TRY ANOTHER DIRECTION?":1120:"YOU ARE AT THE EAST WALL":1990:"YOU ARE AT THE SOUTH WALL":1990:"YOU ARE AT THE WEST WALL":1990*::Q18:N18:CNDQĺ"P1 "1750440:440::"YOU LOST ALL YOUR GOLD AND YOU WERE":". . . UNABLE TO MEET THE DEMANDS OF":". . . THE ALGEBRA DUNGEON . . .":::"YOU CAN ONLY GO NORTH OR SOUTH":930v:"ANOTHER GAME?":"ENTER '1'-YES '0'-NO":AA:AA11970::210 "YOU DON'T HAVE THE MAP"::440:1120Y:"YOU HAVE "G" GOLD PIECES WITH YOU"::1120::"YOU ARE IN AN EAST-WEST CORRIDOR":"YOU CAN ONLY GO EAST OR WEST:1120::"YOU ARE IN A NORTH-SOUTH CORRIDOR":"YOU CAN ONLY GO NORTH OR SOUTH":2030:CC1:10708nA71710:(D1)92050:DD1:1070`A61770:(C1)02070:CC1:1070:A91580:K1750::"YOU CANNOT GO UP THE STAIRWAY":"YOU DON'T HAVE A KEY":440::1120,"YOU ARE NOT AT A STAIRWAY":440:1120&J:MA12090: (E)AST, (S)OUTH, (W)EST":"(U)P, (M)AP, (G)OLD":M1$:M1M11:K0M1140L14190M1$"N"1290:M1$"E"1340:M1$"S"1390:M1$"W"1440:M1$"U"1490:M1$"M"1610:M1$"G"1670::1120 A71710:(D1)01980:DD1:1070<A61770:(C1)9QUESTIONS CORRECTLY":"OUT OF "TR" QUESTIONS ASKED.":w C((1)81):D((1)81):A(C,D,2)1:L12:K4((1)41)4 .:AA(C,D,L1):440:A2220,2280,2340,2340,2390,2700,2750,2790,3070R`:G01820:A$", WHAT IS YOUR ACTION OR MOVE?"::"(N)ORTH,0x f"YOU FOUND YOUR WAY . . .":". . . OUT OF THE ALGEBRA DUNGEON"::"YOUR HAVE ACQUIRED "G" GOLD PIECES":930:19106 GGG100:R((GGCA70001)M1)::"GAME RATING IS "R::G04280:"YOU TOOK "TR" TURNS TO FIND THE WAY OUT,":"AND ANSWERED "CA" 2:A12:N1S:X((1)81):Y((1)81):A(X,Y,A)9::: L1L11:"YOU WALK UP THE STAIRWAY":440:"THE ENCHANTED KEY . . . OPENS THE LOCK":440:L10870:MA0:K0:K4((1)41)4::CBCAK4:"YOU ARE AT . . . . . LEVEL 1":440:440:440:440:107TCH":"YOUR STEP . . . . . . . . . . . .":"TRAP DOORS CAN BE COSTLY . . . .":AB14540:AB:1010v Z21908:Z2:< X18:Y18:Z12:A(X,Y,Z)((1)71)::::H((1)31):A12:N1H:X((1)81):Y((1)81):A(X,Y,A)8:::S((1)41)TER'S NAME":A$:440::"YOU CARRY 1000 GOLD PIECES WITH YOU"::440:A$" . . . YOU ARE ON YOUR WAY":440:480::"YOU HAVE ARRIVED AT . . . .":b ^"THE ALGEBRA DUNGEON . . . LEVEL 2"::"YOU WILL ENCOUNTER MONSTERS AND":"THEIVES, AND GOLD . . . BUT WA=d:"THE ALGEBA DUNGEON":"APPLE II":"COPYRIGHT (C) 1980 BY HOWARD BERENBON"::"AN EDUCATIONAL FANTASY GAME":440:440::A(9,9,2):"YOU WILL BE TELEPORTED TO . . .": "THE ALGEBRA DUNGEON":::MA0:CA0:G1000:M11:K0:TR0:"ENTER YOUR CHARAC         (22):" PUSH ANY KEY TO PLAY"516368,0V(16384)127Ĺ16368,0:29`2025F4)127Ĺ16368,0:2961580&:W(10):"THESE NUMBERS ARE MULTIPLES OF 4,+1"bFLAG3l1560t:(10):"IN ORDER TO WIN, YOU MUST ALWAYS LEAVE":"THE COMPUTER WITH A MULTIPLE OF 4, +1":" FOR EXAMPLE -- 17 (4X4,+1)"'G2ī1800FLAG3ī2000#:W(8):"IF THE COMPUTER LEAVES YOU WITH CERTAIN":"NUMBERS, THEN IT WILL ALWAYS WIN":" WHAT IS IT ABOUT THESE NUMBERS?"FLAG2(21):" PUSH ANY KEY TO PLAY AGAIN""16368,0,(16381NUM+ROW((N6(N6))6.05)(N6)=COLUMN(N6)\$X(ROW4)9:Y(COLUMN4)4gjX,Y)tX,Y)0Ġ((1)15)1~NMĠ0X,Y:X,Y1)X,Y)1220SOUND(16336)(16336)X,Y1:X1,Y:X1,Y1N FLALAY AGAIN."$KPAUSE12000:PAUSE,O:\Q(10):" IF THERE ARE PEOPLE WAITING,"R:" PLEASE GIVE THEM A CHANCE TO PLAY."SX14000:XT4^:"YOU MAY ONLY TAKE 1, 2, OR 3 BRICKS."cPAUSE12000:PAUSEdh130N00:PAUSE M0330 1000) "120P ," I WON! LET'S PLAY AGAIN"i -PAUSE12000:PAUSE .:" WOULD YOU LIKE A HINT?" /" ( PRESS Y OR N )"; 0A$ 2A$"Y"ī1500 4: 630 J"O.K. SO YOU WON. LET'S PKE?":H$' H$"1"H$"3"ĺ(7);:1303 H(H$)@ HM350S H4H0350c MMH:1000p M0300} M1330 RM4(M4) R1240 C((1)3)1 250 C(R3)4((R3)4) MMC::"I TAKE ";C;" ..." PAUSE15"RETURN AFTER YOU'VE ENTERED THE NUMBER ";NUM: *255\ -NUM20NUM50(NUM)NUM40d [:n dMNUMx n1000 x"THERE "; yM1ĺ"ARE "; zM1ĺ"IS "; }"NOW ";M;" BRICK"; ~M1ĺ"S"; "."  "HOW MANY BRICKS DO YOU TA 3 BRICKS": :"AT A TIME. IF YOU TAKE THE LAST BRICK,"M :"YOU LOSE."X FLAG1q PAUSE13000:PAUSEw  4:"YOU MAY START WITH AS FEW AS 20 BRICKS" #:"OR AS MANY AS 50 BRICKS." (:"HOW MANY BRICKS WOULD YOU LIKE?- PUSH"1 ): NIM "; (22):" PUSH ANY KEY TO START"I 16368,0j (16384)127Ĺ16368,0:15r 12z : 100 4:13:"DON'T BE LAST!" ::: :" OBJECT IS TO AVOID TAKING THE LAST" :"BRICK. TAKE EITHER 1, 2 ORa @ FROM A PROGRAM CALLED 23 BRICKS FROM APPLE COMPUTER INC. MODIFIED BY ARLENE AND JERRY KRAMER - PHILA SCHOOL DISTRICT FINAL VERSION BY THE FRANKLIN INSTITUTE/HD:(5):" THE FRANKLIN INSTITUTE" (12):"  : A$% (A$)64(A$)901507 (A$)64200X I(A$)64:A(I)A(I)1:NN1f A$;:150 FREQUENCY PRINT ROUTINE I126 (I64)" "A(I), I :"YOU ENTERED "N" LETTERS. PZA(26)?d"TYPE THE TEXT IN WITHOUT PUNCTUATION."ln"THE COMPUTER WILL COUNT THE NUMBER OF"x"TIMES EACH LETTER IS USED.""WHEN YOU ARE FINISHED, TYPE A @.""IF YOU MAKE AN ERROR, BEGIN AGAIN." "BEGIN TYPING WHEN READY."   1)"("M0M4M6:M1M4M68'(A$(C),1)"x"M0M4:M1M5^'(A$(D),1)"("M2M7M9:M3M7M9~'(A$(D),1)"x"M2M7:M3M8'M0'M0M2M1M3M1'D.."  L%,0! (K%)1283060) 503'L%,0V'A(K%)128:A110010:L%,0:t' CHECK FOR MATCH BETWEEN A$(C) AND A$(D)~'M4((A$(C),3)):M5((A$(C),7)):M6((A$(C),8))'M7((A$(D),3)):M8((A$(D),7)):M9((A$(D),8))'(A$(C),NEXT PLAYER UP..."".Z11500:+85001KN0B$(R)B$(R)"+"`B$(R)B$(R)(N)f ::5:17:"SCORES":17:"------": N1NP:"PLAYER #"N" "; Z129((P(N))):".";: P(N): 20:" PRESS ANY KEY TO CONTINUE . z1020  :23, "A MATCH!!"@ S%(C)0:S%(D)0T 0,50,0:0,50,0d P(P)P(P)1t Z11000: G0:Z118:GGS%(Z): G500 3000  NEXT PLAYER 0,0,130 C,1 B1įD,1 PP1:PNPP1 :23$"0,570,680 570! CC3:6900 CC1:690? CC1:690I CC3Y C1CC18j C18CC18s 570 0,32,100 *B1DC:C,0,A$(C):B2:C1:530 4C,0,A$(C) R10100 \M900 f:23 p"WRONG..." r0,0,130 uZ1700:S%(C)0630 <C,22 >TPTP1:TP0TPTQ:TT1K @36:T2);:T01000o BA(K%)128:A1āZ1TD::570y CL%,0 DA13800 IA65A73 NA8A74 XA21A75 ]A90A77 bA73A77A76570 lC,1:0,32,4 vA72650,660,6718)1:S%(O)420:S%(O)1:A$(T)B$(O):< :B118:B,1:B Q TTT:TPTQ] B1:D0p 34,20:C1:: " I=UP J=LEFT K=RIGHT M=DOWN" &" = ACCEPT CURRENT SQUARE" 0:"PLAYER "P" UP"18)"TIME:"; 5L%,0:A75 :CDY((1)8)2:(1).5YY/ E(XY)10310H JB$(R)"(x":NX:2000h TB$(R)B$(R)")(x":NY:2000| ^B$(R)B$(R)")" hRR9 rB$(R)"x^":NXY:2000 |B$(R)B$(R)"x":NXY:2000 RR9: P1 T118:S%(T)0::T118' O((1)  32767&A$(18),B$(18),S%(18)2D$(4)<2::j<(32768)169(32769)76(32770)14190FD$"BRUN AMPDEC"ZTQ8:TD70dTT30:NP2nK%16384:L%16368xZ1NP:P%(Z)0:,R196X((1)8)2:(1).5XX @  )$ +"(3) VALUES + SUMS + DIFFERENCES":[$*+"(4) VALUES + SUMS + DIF'ENCES + PRODUCTS":$/+"OF THE PAIRS OF LINEAR EXPRESSIONS.":$4+"CHOOSE 1, 2, 3, OR 4";:A$:(A$)49(A$)5211000$>+FL(A$): SET CHOICE FLAG$H+:"ANY KEY TO CONTINUE";:A$:$#t'K#* IMPROVEMENTS 1/13/83 A.F.COXFORDm#* INSTRUCTION FOR TEACHER USE#*::"OPTIONS FOR THE INFORMED USER."::#+"CLUES CAN INCLUDE EACH OF THE FOLLOWING":# +"(1) VALUES ONLY":$+"(2) VALUES + SUMS": ARE OBTAINED BY CHOOSING OPTION (1) IN THE MENU. GUESSES ARE MADE BY CHOOSING OPTION (2).""`':" THE OBJECTIVE IS TO DISCOVER ALL THE ALGEBRAIC EXPRESSIONS IN AS FEW GUESSES AS POSSIBLE. A WRONG GUESS ADDS 5 GUESSES TO YOUR TOTAL."#j'23:10000!$'A$"N"ı8!.'::14::" GUESSGEBRA ":S!8'::"INSTRUCTIONS";:v!B'" LINEAR EXPRESSIONS ARE "!L'"HIDDEN IN FOUR (4) BOXES AT THE TOP OF THE SCREEN. YOUR OBJECTIVE IS TO DIS- COVER THESE LINEAR EXPRESSIONS IN X."`"V':"CLUES000 F# P#8000& Z#T((3)FL)18 d#Y((4)4)1J n#U((5)4)1X x#YU9060s #T1000,2000,3000,4000y # ' IMPROVEMENTS 1/13/83 A.F.COXFORD ' INSTRUCTIONS FOR STUDENT USE '12:5:"INSTRUCTIONS? ";:A$:A$!'A$"Y"A$"N" ";hX140:" ";:r6|:"YOUR SCORE >> "Q:10:"POINTS >> ";POl:10:"GUESSES > ";GU:"YOUR PERCENTAGE >>> "AMGUPO:10:" >> ";AM23:(#(A$)2İ5000:2#(A$)39050 <#X14:PO(X)07VE UP ON:"v32,10:33,30#6.X14E(EQ$(X))0ĺ" ";XA(X)1ĺ" ";dEQ$(X)j{32,0:33,4018:@:J:X140:" ";:T5);"WAY TO GO JOE, YOU WERE ABLE ";^4);"GUESS AT ALL OF THE EQUATIONS! OX WILL IT BE ?????";:A$=8:8:"<< PEEKING AT A BOX >>"C_(A$)49(A$)526000e4:PO((A$))((EQ$((A$)))2):EQ$((A$))PO((A$))1X:b2:"THESE ARE THE ANSWERS TO THE PROBLEMS" l4:"THAT YOU GA IT WILL COST YOU 5 GUESSES":X15000::GUGU5:J"CORRECT !!!!!!!!"XPOPO100:4:PO((Z$))((EQ$((Z$)))2):EQ$((Z$)):PO((Z$))1X15000: PEEKINGpzR6R61R62ıGUGU1012:"WHICH BA$(A)"X"PX2(GU$)DZ(GU$,X,1)"-"(GU$,X,1)"+"5230KdX[nG$(GU$,X)gxB(G$)A$""B$(B):5290B0B$"":5290B0B$" + "(B):5290DB1:B$" - "(D)EQ$A$B$EQ$EQ$((Z$))53202"WRONG. 1(EQ$((Z$))):(EQ$((Z$)),X,1)"X"51202XWX1(GU$):(GU$,X,1)"X"5200]zA$"":B$((GU$)):5290A(GU$) A0A((GU$,1)):51505180A48A$"":5200(A45A$"-X"2A$"X":5200<A0A$"":5200 FTO CONTINUE";:Z$+ GUESSING PART1V8:8:"<< GUESSING AT A BOX >>"12:"WHICH BOX WILL IT BE ?????";:Z$:Z$(Z$)49(Z$)525010PO((Z$))1ĺ:"NOT QUITE BUDDY !!!":X12000::14:"YOUR GUESS >> ";GU$+X1(EQ$)10Ģ18::8:" 2 ":H(EQ$)0(EQ$)1Ģ18::7:" 2 ":s(EQ$)0(EQ$)10Ģ18::9:" 2 ":(EQ$)10(EQ$)100Ģ18::10:" 2 ":20:7::X1(EQ$):" ";;::19:1:">>>>> ";::EQ$:23:"PRESS II1:B$" - "(D)"X",L0C$"":4260IL0C$" + "(L):4260bDL1:C$" - "(D)sEQ$A$B$C$18:7::X1(EQ$):" ";::(EQ$)100(EQ$)1000Ģ18::10:" 2 ":(EQ$)10(EQ$)100Ģ18::9:" 2 ":(EQ$)$))B((Z$))IIOI,"F0A$"":4170E,F1A$"-X ":4170\6F1A$"X ":4170m@A$(F)"X "JA$""B$(II)"X":4230TII1B$" + X":4230^II1B$" - X":4230hII0B$"":4230rII0B$" + "(II)"X":4230|DGUGU178:7:"<< MULTIPLYING 2 BOXES >>"KA$(Y):Z$(U)10:"I WILL BE USING BOX #";A$;" AND BOX #";Z$A$Z$402016:"THE ANSWER IS ..."FA((A$))A((Z$))OA((A$))B((Z$))IB((A$))A((Z$)) LB((A70N W0B$" + "(W):31708X DW1:B$" - "(D)Fb EQ$A$B$kl 18:8::X1(EQ$)2:" ";::v 19:1:">>>>>> ";::" ";EQ$;" ": 20:8::X1(EQ$)2:" ";:: 23:"PRESS TO CONTINUE";:Z$  MULTIPLICATION :Z$(U)= 10:"I WILL BE USEING BOX #";A$;" AND BOX #";Z$M A$Z$3020j 16:"THE ANSWER IS ..." QA((A$))A((Z$)) WB((A$))B((Z$)) Q0A$"":3140& Q1A$"-X":31400 Q1A$"X":3140: A$(Q)"X"D W0B$"":31A$B$*18:8::X1(EQ$)2:" ";::R19:1:">>>>>> ";::" ";EQ$;" ":w20:8::X1(EQ$)2:" ";::23:"PRESS TO CONTINUE";:Z$ SUBTRACTING  GUGU1  8:7:"<< SUBTRACTING 2 BOXES >>" A$(Y)A$Z$2020)16:"THE ANSWER IS ..."A QA((A$))A((Z$))Y*WB((A$))B((Z$))n4Q0A$"":2140>Q1A$"-X":2140HQ1A$"X":2140RA$(Q)"X"\W0B$"":2170fW0B$" + "(W):2170pDW1:B$" - "(D)zEQ$)2:" ";:t8~19:5:">>>>> ";::" ";AM$;" ":c23:"PRESS TO CONTINUE";:Z$i~ ADDING 2 BOXESGUGU18:10:"<< ADDING 2 BOXES >>"A$(Y):Z$(U)10:"I WILL BE USEING BOX #";A$;" AND BOX #";Z$  A NUMBER >>"A$(Y),D((3)19)9k$14:"I SHALL NOW ENTER A ";(34);D;(34);" INTO BOX #";A$.AMA((A$))DB((A$))816:"THE ANSWER IS ..."BLX11000:VAM$(AM)`18:11:X1(AM$)2:" ";: j20:11:X1(AM$33,35&b11:"1.) GET ANOTHER CLUE"El13:"2.) GUESS AT A BOX"Yv15:"3.) END"j32,0:33,40r208:25:A$(A$)49(A$)516609000520 INPUT A NUMBER INTO A BOXGUGU1 8:8:"<< INPUTTINGB(X)0B$(X)" + "(B(X)):500@ DDB(X)1:B$(X)" - "(DD)W EQ$(X)A$(X)B$(X)^ Xf 12p 34,7 X14:PO(X)0570 & 08000 :1:3:"GUESSES >> ";GU D1:24:"POINTS >> ";PO N8:"HERE ARE YOUR CHOICES >> "X32,5:0 hX14 rD((X)19)93 |DD((X)19)9F A(X)D:B(X)DDL W X14q A(X)0A$(X)"":460 A(X)1A$(X)"-X":460 A(X)1A$(X)"X":460 A$(X)(A(X))"X" A$(X)""B$(X)(B(X)):500 B(X)0B$(X)"":500  : C0 D1* SCREEN SET UP2 Z38 C X26M CC1f X:Z:"<< ";D;" >>"l v ZZ9 DD1 C15190 Z3:D0 X35 X:Z:" " " ,ZZ9 6DD1 @D4270 J TC0 ^TEST141";(34);",";(34);" BETWEEN EACH NUMBER. ";::::3:" BETWEEN EACH NUMBER, NOT DIGIT ": PCC1::"(X,X) >> ";A(C),B(C):A(C)9A(C)9B(C)9B(C)9ė:"FUNNY.":CC1:80 ZC4TEST1:11000:110 d80 nX14:PO(X): x6,15,24,33 ICE FLAG 10000E 12:"DO YOU HAVE SOMETHING TO SAY? >> ";:Z$U Z$"N"110z (::14:"O.K. SAY IT >> ";TEST$ 2TEST$"RONNY BABY"110: 1050 : REM NOT LEGAL CODE <[ F8:"INPUT EACH PAIR OF COEFFICIENT WITH A":10:"  ****************6  S GUESSGEBRA l  BY     SCOTT SVATORA   ****************  ::FL4: CHO          :" H E R E C O M E S T H E G A M E !":;'J14000:A' It'"TYPE 'K' TO ";::"COVER";::" THE NUMBERS."`~'"TYPE 'M' TO MAKE A ";::"GUESS";::"."'"TYPE 'Q' TO ";::"QUIT";::"."'"PRESS A KEY TO CONTINUE.":Z$':10:"DO YOU WANT TO READ THE RULES AGAIN? ":Z$'Z$"Y"ī10000+':9: CONTAINS THE LAST":BB'"DIGIT OF THE ANSWER. YOUR JOB IS TO "pL':"DISCOVER THE NUMBERS HIDDEN BEHIND":V'"THE LETTERS. IN SUBTRACTION, THE "`':"RESULT IS THE POSITIVE DIFFERENCE.":j'"TYPE 'P' TO ";::"PEEK";::" AT THE ANSWER."1r:'' ** INSTRUCTION ROUTINE **V':"THE DIGITS 0-9 ARE HIDDEN IN BOXES.":'"EACH BOX IS NAMED WITH A LETTER. YOU"$':"TELL THE COMPUTER WHICH LETTERS TO ADD,":.'"SUBTRACT OR MULTIPLY AND THE COMPUTER ":8'"TELLS YOU WHICH BOXbB$;" "C$" "D$" = "E$(lROWROW1CvROW10COCO13:ROW0If? ** QUITTING ROUTINE **@:10::"YOU HAD "Z" INCORRECT GUESSES."JZ4ğ:"THAT IS VERY GOOD.":T"PLAY AGAIN ";:Y$^Y$"Y"Į:400h::12:10:"GOODBYE!!"GIT **O5010,5020,5030KRA(R1)A(R2)((A(R1)A(R2))10)10:5040fR(A(R1)A(R2)):5040RA(R1)A(R2)((A(R1)A(R2))10)10X09A(X)RE$A$(X):W ** ROUTINE TO KEEP RECORD OF EQUATIONS GUESSED **XROW7:CO10 X15000:#: 20:958:1000L ** ROUTINE TO DETERMINE # AT B$ **WX09jB$A$(X)R1Xr: ** ROUTINE TO DETERMINE # AT D$ **X09D$A$(X)R2X ** A(R2) IS # BEHIND D$ ** ** DETERMINING LAST DI$;:4000 C$" C$"+"ī30304 C$"-"ī3030F C$"*"ī3030P 3020] 16:C$;o C$(43)O1 C$(45)O2 C$(42)O3 D$:D$"A"D$"J"ī3070 28:D$;" = "; 4050 36:E$:7000& B$"":C$"":D$"":E$"" X09A$(X)L$Q1X, A(X)NQ2X2*W4Q1Q2ĺ"INCORRECT":ZZ1:2200y9:22:10:"GOOD THINKING!":>4:(4Q12):A(Q1);HB$(Q1)"*"X15000:19::9581000 ** SETTING UP THE EQUATIONS ** 21:" "BL$"Y"ī2030' I09:B$(I)A$(I):R 4:I09:(4I2):B$(I)"*"ĺA$(I);^ :1000|  ** GUESSING ROUTINE ** :20:958:"LETTER ";:L$:L$; 20:15:"NUMBER ";:N$:N$:N$(48)N$(57)ĺ"INCORRECT":ZZ1:2200 N(N$)2 :20:958:"LETTER (X FOR ALL) ";:L$:L$I 4:I09:(4I2)k L$A$(I)L$"X"ĺA(I);:2017 L$A$(I)L$"X"B$(I)"*"ĺA$(I);  1000  ** COVERING ROUTINE ** 20:958:"COVER ANSWERS ALSO? (Y OR N)?";:L$:L$ 9:(4I2):A$(I);::  ** MAKING CHOICES FOR BOXES **q :20:"LETTER OPERATION LETTER RESULT":y B$ B$"P"ī2000 B$"K"ī2020 B$"M"ī2040 B$"Q"ī8000 B$"A"B$"J"ī3000 1000  ** PEEK ROUTINE ** M-GUESS" 2 I140' "-";. I9 0I13C 5"!";O :J110_ D4J);"!";i NJ:Iu XI140 b"-"; l vJ125 4:R((1)10) I09 (4I2) RA(I)ĺ((1)10); " "; I J :4 I009 A(I)I I:Z0$ I095 R((1)10)Q DA(I):A(I)A(R):A(R)DX Io I09:B(I)A(I): I09:A$(I):  A,B,C,D,E,F,G,H,I,J I09:B$(I)A$(I):  ** SET UP THE SCREEN FOR PLAY ** :"P-PEEK Q-QUIT K-COVER C ** OPENING DISPLAY ***:8:13F:"HIDDEN NUMBERS"::f11:13:"ARTHUR COXFORD":z14:18:"1981"I15000:I:12:"DO YOU NEED INSTRUCTIONS?":Y$Y$"Y"İ10000 ** SETTING THE VALUES AND MIXING THEM ** I     AM 1 WON IN "G1" GUESSES!"::"READY FOR NEXT (Y,N)?":A$:A$"N"ė::"GOODBYE":Z60T WHO WON\G1G2Ģ21:"IT WAS A TIE! READY FOR NEXT (Y,N)?":A$:A$"N"ė::"GOODBYE":tA$""ĭA$"Y"ī60G1G2Ģ21:"TEAM 2 WON IN ";G2" GUESSES!"::"READY FOR NEXT (Y,N)?":A$:A$"N"ė::"GOODBYE":A$""ĭA$"Y"ī60R21:"TEG(1)B(T1)G(2)B(T2)G(3)B(T3)Ģ16:24:"CORRECT!!":5000Z16:24:"INCORRECT!!"~18:24:"NEXT NUMBER: ";B(T1)G2G21:G1G25000TT1:T9ĺ:"NEITHER TEAM GOT ITS PATTERN ":A$:60I14000:I8:958:180A$"": SES 14:"NEXT 3 NUMBERS?"2 G(1),G(2),G(3)n G(1)A(T1)G(2)A(T2)G(3)A(T3)Ģ16:"CORRECT!!": 16:"INCORRECT!!": 18:"NEXT NUMBER: "A(T1):G1G11: TEAM 2 GUESSES14:24:"NEXT 3 NUMBERS"24:G(1),G(2),G(3)?H TEAM."8 :"EACH TEAM GIVES THE NEXT 3 NUMBERS IN "e :"IN THE PATTERN. IF WRONG, ANOTHER " :"NUMBER WILL BE GIVEN. THE TEAM FINDING" :"THE PATTERN IN THE FEWEST GUESSES WINS." :"PRESS ANY KEY TO BEGIN.":A$: TEAM 1 GUES,1,.5,.25-  0,-1,0,3,8,15,24,35,48,63 L  1,3,-1,5,-3,7,-5,9,-7,11s @ .5,-1,2,-4,8,-16,32,-64,128,-256 r 1,1,1,3,5,9,17,31,57,105  INSTRUCTION SUBROUTINE :3:"THE COMPUTER WILL PRINT TWO NUMBER " :"PATTERNS -- ONE FOR EAC29#  2,3,5,8,13,21,34,55,89,144C L-3,5,2,7,9,16,25,41,66,107d  3,5,9,16,24,34,46,60,78,98  1,3,6,10,15,21,28,36,45,55  24,19,14,9,4,-1,-6,-11,-16,-21 F 3,-3,3,-3,3,-3,3,-3,3,-3 x 4,4,4,4,4,4,4,4,4,4  128,64,32,16,8,4,2I);",";:: 3000:4000;  2,4,6,8,10,12,14,16,18,20Z  1,3,5,7,9,11,13,15,17,19|  1,4,9,16,25,36,49,64,81,100 R 3,8,15,24,35,48,63,80,99,120  1,2,4,7,11,16,22,29,37,46  54,53,51,48,44,39,33,26,18,9  2,3,5,7,11,13,17,19,23,TEAM 2"% Z8:G11:G21:N10:S1:C09 I110:A(I):M I110:B(I):U T3j I1T:I6ī185 A(I);",";::190 T5ĺ 10:I6T:A(I);",";::190 8:24:I1T:I6ī195 B(I);",";:::200 T5Ģ10:24 I6T:B(\ A(20),B(20); 13:12::"NUMBER PATTERNS":KI15000:Y13:868z("DO YOU NEED INSTRUCTIONS?"2A$:A$"Y"İ2000<:2:"HERE ARE THE PATTERNS."F4:"-------------------//-------------------" P5:7)"TEAM 1";27)"     >";TZ$:Z$"Y"100)^Z$"N"16202h120Z::"IS THERE ANYONE ELSE WHO WANTS TO PLAY"M"(Y FOR YES, N FOR NO)=>";bZ$:Z$"Y"1600tZ$"N"1518:3:9:"**** G O O D B Y E ****":23D$(4):D$;"RUN MENU";:@::"DO YOU NEED INSTRUCTION?"J"(Y FOR YES, N FOR NO)=*************W23:6:"PRESS TO CONTINUE":6:"OR TO END PROGRAM=>";kZ$:(Z$)13ı(Z$)271505:2"WOULD YOU LIKE TO PLAY AGAIN?""(ANSWER Y FOR YES, N FOR NO)=>";Z$:Z$"Y"1600Z$"N"1514-***** * KEVIN WACKNOV *5 * *M * 675 MATSONIA *e * *} * FOSTER CITY,CA* * * * (415) 574-3192* * * * SEP. 17, 1980 * * *  ****0,1140,1150"$"X = A * 2 + B":9."X = A * B + A":T8"X = B * 2 + A * 2":gB"X = A ^ B":zL"X = B ^ A":V"X = A + B + 7":`"X = A * B":j"X = A + B * B + 2":t"X = B * 4 + A":~"X = A + 3 * B": ************)255420"WITH THE PRESENT FUNCTION IN MIND, THAT NUMERICAL VALUE WOULD NOT BE PRACTICAL. PLEASE REEVALUATE THE SITUATION AND TRY AGAIN.":1500190 16,10,42,216,4096,18,42,412,11,50 N1060,1070,1080,1090,1100,1110,1120,113 THEN THE ANSWER WOULD BE:"a9::8;::" + (";::20;::" X ";::4;::") = ";::88::"SINCE I WON'T BE TELLING YOU THE""FUNCTION, YOU ARE SUPPOSED TO DEDUCE IT""FROM YOUR ERRORS."1500::: (222FUNCTION. YOU ARE"BR" SUPPOSED TO ENTER TWO NUMBERS SUCH"n\" THAT THE FIRST NUMBER PLUS FOUR"f" TIMES THE SECOND NUMBER IS 88."p" FOR EXAMPLE:"z" YOU MIGHT ENTER: A=8"" B=20""ION." :1500:4"FOR INSTANCE:":g " MY TARGET NUMBER MIGHT BE 88 AND"" MY FUNCTION MIGHT BE: *" TARGET# = A + B * 4"4>" I WILL TELL YOU THE TARGET NUMBER"H" BUT NOT THE INITION IN THIS"E"GAME. I WILL THINK OF A FUNCTION AND A"Kx"TARGET NUMBER. YOU WILL HAVE TO COME"~"UP WITH TWO NUMBERS SUCH THAT THEY WILL""PRODUCE THIS TARGET NUMBER WHEN THEY ARE""PLUGGED INTO THE FUNCT" 1500A&::::"A FUNCTION, DEFINED VERY GROSSLY, IS A"G0v:"SERIES OF STEPS THAT YOU PERFORM ON ONE"|DN"NUMBER (THE DOMAIN) TO PRODUCE A SECOND"Xb"NUMBER (THE RANGE). THIS GAME USES A"lv"VARIATION OF THAT DEFA2B:@XABA:%JXB2A2:1TXAB:=^XBA:KhXAB7:WrXAB:g|XABB2:uXB4A:XA3B::418:"THE:16:"FUNCTION":18:"GAME"::8:"CREATED BY KEVIN WACKNOV.00001)TARĺ"YOU GOT IT!! YOU HIT THE TARGET IN ";T;" NUMBER OF TRIES!!"::"THE FUNCTION WAS:":1050::1512 "I'M SORRY, BUT THE TARGET NO. IS ";TAR;",":"NOT ";X ":"****************************************": ,958:1500 11906X,390,400 T0L :2:TT1:"TURN # ";T:"YOUR TARGET NUMBER IS ";TAR:t "PLEASE INPUT VALUES FOR A AND B." "A = ";A:"B = ";B "A= ";A;" B= ";B N310,320,330,340,350,360,370,380,390,400 "A (@) B = ";X q (XONAL USE &*) *MAY NOT BE SOLD.COPY-*G ! *RIGHT 1981 CUE,INC *e " ***********************k #q $ Z::298,0:16300,0:16368,0 d450 n990 xN((1)101) L1N:TAR:L  N310,320,330,340,350,360,370,380 333 MAIN STREET *3  * REDWOOD CITY *Q  * CA 94063 *o  * (415) 363-5472 *  * *  ***********************   ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATI *%  * SAN MATEO COUNTY *C  * OFFICE OF EDUCATION *a  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 3  FUNCTION GAME 10/18/80, c PROBLEM SOLVING INVOLVING FUNCTIONSm w  APPLESOFT 16K  KEVIN WACKNOV   *********************** *       NO)=>";R$:R$""477)R$"Y"ĬER$"N"Ĺ16368,0:477m::9:"* * * T H E E N D * * *":16298,0:16300,0:16368,0D$(4):D$;"RUN";"MENU"R;" / ";B;" WHICH IS EQUAL TO ";G$P22:" "p20::"PLAY AGAIN? (Y/N)";~16368,0R$:R$""465R$"Y"240R$"N"464:8"IS THERE ANYONE ELSE WAITING TO PLAY?"::"(Y FOR YES OR N FOROSITIVE NUMBER FOR":"THE NUMERATOR PLEASE!":270c:2:"MY FRACTION IS LESS THAN 1; NUMERATOR""MUST BE LESS THAN THE DENOMINATOR!":270::"YOU GOT IT!!!!! IN ";G;" GUESSES."BE455!::"MY FRACTION WAS ";AFDEhCF430rCF390(w:2L|"TRY A SMALLER FRACTION.":270T:{:2:"TRY A BIGGER FRACTION":270:2:"THE DENOMINATOR MUST BE BETWEEN 2 AND 9.":270:2:"PLEASE TYPE A DIGIT,SLASH(/), DIGIT.":2701:2:"ENTER A P 9-,D$(G$,1,1):S$(G$,2,1):E$(G$,3,1)A6D(D$):E(E$)c; CHANGE STRINGS TO VARIABLESt@S$"/"410EE2E9400JDE420LD0415O CHECK FOR IMPROPER FRACTIONST FIND DECIMAL EQUIVALENTS FOR BOTH FRACTIONS^CAB:1 ::2:"I AM THINKING OF A FRACTION.": G0^:" WHAT IS YOUR GUESS?"22:6:"...MAKE YOUR GUESS 0 TO END..."8::"PRESS RETURN AFTER GUESSING.";G$GG1G$"0"475"L(G$):L3410' B MUST BE LESS THAN BE:"2:" 1/8 OR 2/3 BUT NOT 3/10 OR 5/2"b::"YOUR GUESS SHOULD BE BETWEEN 0 AND 1"::"PRESS TO CONTINUE....";16368,0C$:(C$)27475(C$)13216 1 TO END PROGRAM." 7:"DO YOU WANT THE RULES (Y OR N)? "; 16368,0 R$:R$"N"240 (R$)27475 R$"Y"139 :2# " EDUCATIONAL USE &*0 *MAY NOT BE SOLD.COPY-*M !*RIGHT 1981 CUE,INC *j "*********************** Z::16298,0:16300,0:16368,0 d ****GUESS MY FRACTION**** i CALCULATORS AND COMPUTERS MAGAZINE n ** LINDA M. SCHREIBER ** 8-4-77** *# * 333 MAIN STREET *@ * REDWOOD CITY *] * CA 94063 *{  * (415) 363-5472 * * * *********************** * *********************** *PROGRAM MAY BE COPIED* *FOR* * *; * SAN MATEO COUNTY *X * OFFICE OF EDUCATION *u * * * COMPUTER-USING * * EDUCATORS * * * * SOFTSWAP * *  GUESS MY FRACTION / 10/80L EXERCISE IN RELATIVEg SIZE OF FRACTIONSm 16K APPLE/APPLESOFT BY MARGE COLE  ADAPTED FROM CALC. & COMPUTERS MAGAZINE **********************     O TRY"P12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030` :R$"Y"Ĭt4D$;"RUN HELLO"4(36):CV(37)5A"";ZN$:(ZN$)(((ZN$)))40003RB(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT T *** WE GOT A WINNER C"YOU CAUGHT HIM IN ";K;" GUESSES."Y:"GOOD SHOW.":c2000n43000G71999::124:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0(16384)128200416368,0: @CH0`t01000"R0012002D2001420DD2RR01260VD2RR01300hD2RR01340"SNARK IS INSIDE YOUR CIRCLE."01360"SNARK IS OUTSIDE YOUR CIRCLE."(01360<"SNARK IS ON YOUR CIRCLE."PKK1d840x:"FORGOT TO TELL YOU - COORDINATES MUST":"BE INTEGERS.":840^D2(XA)(XA)(YB)(YB)t11B:2A3:"^"22:"RADIUS?";:86840000:RZNR(R)01080$011008R0ė:1160L23:"THE RADIUS MUST BE A WHOLE NUMBER.":100X(10(1)) Y(10(1))1 340::34,15` "THE SNARK IS HIDING ... START GUESSING."{  *** GUESSING BEGINS K1 H18:"X-COORDINATE?";:868:40000:AZN \20:"Y-COORDINATE?";:868:40000:BZN:958 pA(A)B(B)980>22S 'INSIDE' YOUR CIRCLE,"::"'OUTSIDE' YOUR CIRCLE, OR 'ON' YOUR"::"CIRCLE.":2000 :10);"***IMPORTANT***"::"IF YOU THINK YOU KNOW WHERE HE IS HIDING" "ENTER 0 (ZERO) AS THE RADIUS."::10);"GOOD HUNTING":2000  *** HIDE THE SNARK  YOU TYPE IT IN, AND PRESS"::"RETURN AGAIN.":2000 :"THEN, WHEN I ASK FOR 'RADIUS', YOU TYPE"::"THE RADIUS OF A CIRCLE CENTERED ON THE": "GRIDPOINT WHOSE X,Y COORDINATES YOU JUST":"ENTERED. I WILL THEN TELL YOU WHETHER":T D"THE SNARK I . . ." U. " 0 1 2 3 4 5 6 7 8 9 X"4 @ 2000: :"TRY TO CATCH HIM. HERE'S HOW... WHEN I"::"ASK, YOU TYPE THE X COORDINATE OF A": "GRIDPOINT AND PRESS THE RETURN KEY."4 ::"THEN I WILL ASK YOU FOR THE Y"::"COORDINATE,(Z$,1)"Y"ė:240, (Z$,1)"N"ė:700J 12:"YES OR NO, PLEASE."S 120p *** HERE ARE THE RULESv  "A SNARK IS HIDING IN A 10 BY 10 GRID"::"LIKE THE ONE SHOWN BELOW:": ,340:440 T" Y" hU901 |U;" . . . . . . .u * MODIFIED VERSION - OCT.,1983 - AFCb COPYRIGHT MECC 1979 SNARK 7/24/79 FPy AUTHOR: UNKNOWN ASSOCIATED PROGRAMS AND FILES: NONE ::ZM24::255n4:10);"S N A R K"x10:"WANT THE RULES";:868Z$    ETWEEN 100 AND 500"=p"5. NUMBER BETWEEN 100 AND 1000"::\z"WHICH WILL IT BE? ";:A$y(A$)1(A$)5ė:2100N(A$): Y, 5 IS HARD.", :"READY TO PLAY? ";:A$:A$"Y"ıD 2000f4 * DIFFICULTY LEVELS * >10)"DIFFICULTY LEVELS"::H"1. NUMBER LESS THAN 50"R"2. NUMBER BETWEEN 50 AND 100"\"3. NUMBER BETWEEN 100 AND 200"f"4. NUMBER BILL TELL YOU THE RESULT OF DIVIDING --YOUR TASK IS TO USE THIS INFORMATION TO DISCOVER THE SECRET NUMBER" :"TO MAKE IT HARDER, YOU HAVE ONLY 10 CHANCES TO GET THE NUMBER.":"TO MAKE IT EASIER, YOU CAN CHOOSE THE LEVEL OF PLAY -- 1 IS EAS? ";:A$ lA$"Y"ī700 v:10:18)"BYE!":J  *INSTRUCTIONS* :4:"THE OBJECTIVE IS TO DISCOVER THE SECRET NUMBER THE COMPUTER WILL CHOOSE." :"YOU WILL ENTER NUMBERS WHICH THE MACHINE WILL DIVIDE BY THE NUMBER.":j "IT W::150:"F A N T A S T I C ! !"5 255:100:600[  * FAILED TO FIND NUMBER * :5:" SORRY, BUT YOU DID NOT FIND THE NUMBER" :"IT WAS "A% 100 600 X * WISH TO CONTINUE? * ]G%0 b:5:"DO YOU WISH TO TRY AGAIN1:G%10İ5001 4:868:"MAKE A GUESS - ";G$C G$(13)210Z G(G$):GA%İ400s 6:"GUESS","RESULT" (6G%):G" / ? = ",GA% 100 200   * CORRECT GUESS * :5:8::"YOU GOT THE NUMBER IN "G%" GUESSES":" 40,150,160 Z200 _5 c CONTINUING SUBROUTINEd d23:08)"PRESS ANY KEY TO CONTINUE ";:A$l e: xA%50(1)1: A%50(1)51: A%100(1)101: A%400(1)101: A%900(1)101: * PLAYING THE GAME *  G%G%' : PROBLEM SOLVING WITH DIVISIONC8:13:"U B A D VI ZR"K:s5:"PROBLEM SOLVING WITH DIVISION"#:15)"NEAL PAYNE"':(:8)"FOR APPLE BY A. COXFORD"-:18)"1983"2100<:2000F:4:2100: PN120,130,1  |# 9803,9811,9817,9829,9833,9839,9851,9857,9859,9871,9883,9887,9901,9907,9923,9929,9931,9941,9949,9967,9973 B,9397 }" 9403,9413,9419,9421,9431,9433,9437,9439,9461,9463,9467,9473,9479,9491,9497,9511,9521,9533,9539,9547,9551,9587 # 9601,9613,9619,9623,9629,9631,9643,9649,9661,9677,9679,9689,9697,9719,9721,9733,9739,9743,9749,9767,9769,9781,9787,9791 969,8971,8999 ! 9001,9007,9011,9013,9029,9041,9043,9049,9059,9067,9091,9103,9109,9127,9133,9137,9151,9157,9161,9173,9181,9187,9199 " 9203,9209,9221,9227,9239,9241,9257,9277,9281,9283,9293,9311,9319,9323,9337,9341,9343,9349,9371,9377,93911,8597,8599  8609,8623,8627,8629,8641,8647,8663,8669,8677,8681,8689,8693,8699,8707,8713,8719,8731,8737,8741,8747,8753,8761,8779,8783 ! 8803,8807,8819,8821,8831,8837,8839,8849,8861,8863,8867,8887,8893,8923,8929,8933,8941,8951,8963,8,8161,8167,8171,8179,8191  8209,8219,8221,8231,8233,8237,8243,8263,8269,8273,8287,8291,8293,8297,8311,8317,8329,8353,8363,8369,8377,8387,8389   8419,8423,8429,8431,8443,8447,8461,8467,8501,8513,8521,8527,8537,8539,8543,8563,8573,85891,7699,7703,7717,7723,7727,7741,7753,7757,7759,7789,7793 n 7817,7823,7829,7841,7853,7867,7873,7877,7879,7883,7901,7907,7919,7927,7933,7937,7949,7951,7963,7993 x 8009,8011,8017,8039,8053,8059,8069,8081,8087,8089,8093,8101,8111,8117,8123,81477297,7307,7309,7321,7331,7333,7349,7351,7369,7393 Z 7411,7417,7433,7451,7457,7459,7477,7481,7487,7489,7499,7507,7517,7523,7529,7537,7541,7547,7549,7559,7561,7573,7577,7583,7589,7591 :d 7603,7607,7621,7639,7643,7649,7669,7673,7681,7687,76857,6863,6869,6871,6883,6899,6907,6911,6917,6947,6949,6959,6961,6967,6971,6977,6983,6991,6997 F 7001,7013,7019,7027,7039,7043,7057,7069,7079,7103,7109,7121,7127,7129,7151,7159,7177,7187,71935P 7207,7211,7213,7219,7229,7237,7243,7247,7253,7283, 6421,6427,6449,6451,6469,6473,6481,6491,6521,6529,6547,6551,6553,6563,6569,6571,6577,6581,6599( 6607,6619,6637,6653,6659,6661,6673,6679,6689,6691,6701,6703,6709,6719,6733,6737,6761,6763,6779,6781,6791,6793 `< 6803,6823,6827,6829,6833,6841,67,6043,6047,6053,6067,6073,6079,6089,6091,6101,6113,6121,6131,6133,6143,6151,6163,6173,6197,6199  6203,6211,6217,6221,6229,6247,6257,6263,6269,6271,6277,6287,6299,6301,6311,6317,6323,6329,6337,6343,6353,6359,6361,636