' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`WAITING TO TRY?"0["(Y FOR YES, N FOR NO)=>";>_16368,0R`U$:U$""1120heU$"Y"ė:10:15zjU$"N"1119t:3:" GOOD-BYE!"~D$(4):DL1500:DL:D$;"RUN MENU";::C019((1)13)120C,20"(Y FOR YES, N FOR NO)=>";,16368,0@Y$:Y$""1010]Y$"Y"ĉ:936:10:160oY$"N"1008y1070-.::"OK, ";A$8" STUDY A LITTLE MORE AND THEN COME TO SEE ME AGAIN!"BDL12000:DLV:" IS SOMEONE ELSE $"THAT'S NOT A VERY HIGH GRADE!"0::2:Z$c::"WOULD YOU LIKE TO TRY THIS LEVEL AGAIN?""(Y FOR YES, N FOR NO)=>";16368,0U$:U$""955U$"Y"310U$"N"954936:8:"WOULD YOU LIKE TO TRY A DIFFERENT LEVEL?"DL f:p10 u16368,0Bz10)"LET'S SEE HOW YOU DID!"`::"M-M-M-M-M OK ";A$:"YOU HAD ";12W;" QUESTIONS OUT OF 12 CORRECT!"Z((12W)10012):"THAT'S A SCORE OF ";Z;"%."1500Z$""Z951210!Z75Z$:Z$"Y"100^Z$"N"1620(h1204h120ZZ$:Z$"Y"100Y^Z$"N"1620bh120HERE ANYONE ELSE WHO WANTS TO PLAY"C"(Y FOR YES, N FOR NO)=>";XZ$:Z$"Y"1600jZ$"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)=>"; TZ***M23:6:"PRESS TO CONTINUE":6:"OR TO END PROGRAM=>";aZ$:(Z$)13ıu(Z$)271505~:2"WOULD YOU LIKE TO PLAY AGAIN?""(ANSWER Y FOR YES, N FOR NO)=>";Z$:Z$"Y"1600Z$"N"1514#::"IS T ELSE WHO WANTS":"TO PLAY (Y OR N) =>";616368,0JZ$:Z$""1212XZ$"Y"ĬjZ$"N"1211r10:9:" * * * T H E E N D * * *"D$(4):D$;"RUN MENU";:$Ak776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,96:776,100:777,50:778:(:2:"IS THERE ANYONEoPN$"P"Ċ1tg~N(N100.5)100:FR((N(N))100.5)100:TATA(((N))):(N)0TATA1}N0N1TATA1N0TATA1TA);N;:FR0ĺ".00";((FR))2ĺ"0"; PRINTER OR NOTJ"DO YOU WANT THE PRINT-OUT TO THENT." "$";*NR2:TATB:1150L$" WENT TO PAY THE INTEREST."R.\8"$";qBNR3:TATB:1150L" WENT TO PAY THE PRINCIPAL."V\PN$"P"Ċ1]16368,0^0`"PRESS TO CONTINUE. ";:K$::(K$)131120jESS TO CONTINUE.==>";:Z$::(Z$)138009"Q 10 NOUNS FOR DATA ELEPHANT,MOUSE,COMPUTER,HOUSE,UMBRELLA,ANTLER,ICICLE,OTTER,CAR,BICYCLE,STEREO,DESKZ((1)31):Z481,482,483RA WORD STARTING WITH"9v"A CONSONANT: A HOUSE, A CAR"u"YOU USE ";::"AN";::" BEFORE A WORD STARTING WITH""A VOWEL, THAT IS A,E,I,O, OR U.""EXAMPLES: AN ANT, AN ORANGE."K0800::A0:T105501003 21:"PLEASE PR 0YN(Y):JJ1d>21:"FOR THE NEXT PROBLEM, ":"PLEASE PRESS ";Z$::Z$13574l?Z$uD120X REPEAT INSTRUCTIONS AFTER SECOND MISSYTT1b:2::A$;", YOU SEEM TO HAVE FORGOTTEN!"l"YOU USE ";::"A";::" BEFORE 0A'23:6:"PRESS TO CONTINUE...";:Z$:(Z$)13551b(:2::"THANK YOU, ";A$;".")"IS THERE ANYONE ELSE WAITING TO PLAY"*"(Y FOR YES, N FOR NO)=>";+Z$:Z$"Y"36,Z$"N"555-.:::D$(4):D$;"RUN MENU";/ OUT OF ";T6"OR ";((S1000.5)T)10;" PERCENT.">A0MT10550!21:"FOR THE NEXT BRAIN-BOUNCING PROBLEM, PRESS THE KEY":"OR PRESS KEY TO END ==>";"Z$::#(Z$)27552$(Z$)13100%545&T0:K0:S٠ŠӮ)cNPa(٠ƠȠŠΠŠŠȠŠ)UPa(٬ӠŠҠӠԠĠĠԠՠԠ)wPa(٠ƠŠӠΠŠŠέϠȠՠ)vc#Pa(ŠҠΠŠ)$Pa(ŠҠΠŠ).Pa(ŠҠԠӠŠҭ)a(Π) T`$\d_N\Ja(ҠǠΠҠ̬ՠԠĠϠŠҭ)&P a(ŠƠ) 0T:`$D\d_D\+Na(ΠϠӠȠΠέ).Xa(ĠΠ͠))ba(Ӭԭƭ٠Ԡ)la(ΠPa(ӠҠ);Pa(ӠĠϠנ٠)P a()SPa(ӠӠĠ͠)P a(ӠĩҠ)rP a(ŠҬϠנ٠̭)P a(ҠРϠӠ)P a(ԠȠ)Pa()<Pa(ӠĠӠԠŠ) T`$\d_\da(ӠҧӠŠ)Pa(ԠՠϠŠ٠)Pa(Ǯ)c) rT|`$\d_@\Xa(ҠǠĠǠŠԭƭ٠ϠӠĠ)G@a(ՠ٠ŠԠΠԠĠ̮)c=Pa(٠ƠĠӠT,`$6\d_6\D@a(ԠӠ̠ϠŠխΠԠà̮)JcTPa(Ԡ̠)=^Pa(٠ΠĠ٠Ġ)=hPa(ԠΠĠ٠Ġ T`$\d_x\-a(ŠŠϠנΠ̭)'a(ǠҠŠӮ)cPa()Pa().Pa(ŠҠȠҠȠ)a(Ơ) "d`$n\d_n\cxa(ΠϭŠ٬נҠԠΠƠŠ٠ҠԠӠ)G;a(ΠؠӠŠǠĮ)cPa()Pa()Pa()) T`$ \d_ \.a(ΠǠӠΠŠ)+a(ĠƠìՠԠ)(a(ΠŮ)2c<Pa(Ԡ)FPa(Ҡ)PPa(Ԡ) ZT)Pa()Pa() T`$\d_t\Wa(ŠŠĠԠԠĠĠΠӮ)cPa()Pa()Pa(Р)DBPa(̠ǠӠԠŠ)@LPa(ŠԠؠǠ) VT``$j\d_$j\0ta(Š͠Ġՠ٠ŠӮ)~cPa(ȠӠӠΠ)Pa()Pa() T`$\d_\O$a(ΠǠԠάՠԠĠŠԭƭ٠Ϯ).c<8Pa(ǠӠΠ)/Pa(Π٠ӠΠӠ)a() T`$\d_\_a(Š͠ҠƠӠԠ٠ŠĠĠҠҠӮ)FcPa(ϠԠƠ̠E FIRST NUMBER MUST BE SMALLER THAN THE SECOND. "::"YOU WILL NEED TO ENTER YOUR NUMBERS AGAIN.":1000::1100D1D1001230E1E1001230:"REMEMBER, MY NUMBER IS BETWEEN 1 AND 100. PLEASE RE-ENTER YOUR NUMBERS.":1000::1C20C20C,20C20C.20C,20C20CB20C,20C20CICf ::13)"GOOD JOB! ! !"yDL12000:DL:(5:950x:24:6:"PRESS TO CONTINUE....";U$:(U$)27950L)- Pa(ؠԠƠŠŠĮ) c Pa() Pa() Pa() T `$ \d_  \0 ca(ΠՠȠ̠Ӡ)/ Pa(ӠĠΠΠĠ)ΠŠǠϠ)%X Pa(ǠȠ̠Ӯ)b cl Pa()v Pa() Pa() T `$ \d_:  \- ca(ՠԠŠנԠ)* Pa(ԠԠΠǠ(ŠĠ)& Pa(ӠŠĠ)' Pa(Š͠Ġ)  T& `$0 \d_ 0 \/: ca(ӠĠŬŠ)'D Pa(ԠΠǠ)*N Pa(ŠҠ) P a(Ơ)+ Pa(ӠŠŠ)! Pa(ŠĠ) T `$ \d_|  \. ca(ŠàĠנӠ)) Pa(ՠ٠ԠŠҠ) c Pa)@ P a()-J Pa(٠ҠŠ)T P a() ^ Th `$r \d_ r \.| ca(ΠǠРΠҠ), Pa(ǠĠ̬ՠԮ) c' Pa(נΠĠ$ \d_  \V ca(ƠՠԠĠŠΠĠҠĠΧԠĠŠҬ) Pa(Į) c/" Pa(ŠŠΠŠҠĠϭ), P a(٠Š).6 Pa(٠ŠҠ٠àӠŠĮ) c. Pa(ŠӠǠӠŠ)" P a(ϠǠ). Pa(ԠӠӠ)! P a(ǠӠ)) Pa(ҠӠӠ) T `a(ĠƠĠӠӠΠ)>d Pa(ĠƠĠӠӠΠ)n Pa() x T `$ \d_2  \0 ca(խӠΠӠԠ). a(ϠԠŠǮ) c Pa() Pa() Pa()  T `%_( \d_ ( \-2 ca(ǠĠǠ),< a(ĠԠˠҠĭ)F a(ΠӮ)P c>Z Pa() Pa() Pa() T `$ \d_j  \, ca(ΠҠŠ٠Šƭ)- a(Ġ٠ԠҠԠά), a(̠ԠŠΠҠԠ)& a(ؠŨΠĠĠРƠí)8 a()/B Pa(̠ҠϠŠԠĠ) L TV `$` \d_ ` \0j ca(Š͠ĠԠҠӭ)+t a(ҠҠǠҠӮ)~ c PҠԠΠŠŠȠ) T`$ \d_ \q ca(ΠŠҠӠĭǠΠĠǠĠԬՠĮ) c $ Pa(Р)/. Pa(ǠԠРΠՠ٠ĠĠĠԠҠӠΠҠٮ)c+Pa(ŠŠΠԠ)+Pa(ŠŠΠԠ)pPa(ϠԠŠΠŠĠa(͠ԠĠ)JPa(͠٠ŠԠǠȠҠ)UPa(ӠŠӠ̠ϠŠԠ ҠŠƠ) T`$\d_p\ya(ҠŠ)$>Pa(ĠϠŠ)&HPa(ĠԠ) RT\`$f\d_f\spa(ԠΠ͠ĠǠӠΠŠӠƠàΠŠΠԠŠŮ)zc#PŠǠŠŠΠԠ) T`$ \d_ \Ra(ΠĠǠ̠ΠԠȠԠӬ)$ a(ԠӠĠŮ)*c)4Pa(Ġ٠͠Ġ)P a() T`$\d_\, ca(נˠӮ)c/ Pa(ǠϠǠ)/*Pa(ǠĠ٠)04Pa(ΠǠӨ\Uca(ΠՠŠϠΠǠǠҠǠ̠Ԡ) Pa(ǠՠԮ)c'Pa(РĠΠ);Pa(РĠĠ٠)P a(ԠӠ):Pa(נΠĠҠ) DTN`$X\d_X\1bca(ǠȠΠĠŠӮ)lc!vPa(̠Ҡ)!Pa(̠Ҡ)$Pa(̠Ԡ̠) T`$\d_b,ca(ΠԠĠҠ)LPa(ҠӠҠҠά)Pa(ҠҠԠŮ)c%&Pa(ԠŠ);0Pa(ȠԠĠԠ)P a()+:Pa(ԠŠĠҠ)1Pa(ĠΠƠŠ٠Ӯ)c$Pa(̠Ԡ̠).Pa(̠ΠŠԠ)@Pa(̠ƠԠŠΠ)P a(Š) T`$\d_\ΠĠŠ)!^Pa(͠ŠؠŮ)hcrPa()%|Pa(٠ŠԠ)Pa() T`$\d_T\Tca(ǠҠŠΠŠԠ٠ǠƠŠa(ҠӠΠŠ Š)Pa(ŠΠؠӠ)cPa()"Pa(),Pa() 6T@`$J\d_J\[Tca(ΠǠԠӠŠ)Pa(ϠŠ٠Ӡ)P a(ŠŠԭƭ)1Pa(ԠҠŠΠϠ)GAPa(ԠĠ٠Ҡ)P a(Ҡ) T`$\d_\0ca(ΠǠ̠ŠԠ)RPŠӠҠ)xP a(Ԡ) T`$\d_F\/ca(Ҡ̠ӠϠ)GPa(ĠΠӠ̠Π)Pa(ˠĮ)cLPa(ԠĠ$<\d_<\*Fca( ĠŠӮ)Pc=ZPa(ǠӠĠϠ)P a()9dPa(ǠӠĠРϠ)P a()UnPa(ǠӠĠϠˠ)P a(Ġc,Pa(ՠԠŠԠŠ)P a(Ġ)/ Pa(ՠԠԠŠԠȠ)$P a(ӠԠՠ)P a(),Pa(ՠԠנΠԠ)P a() (T2`Ǡ)Pa(ĠӮ)c$Pa(̠Ԡ̠)+Pa(̠ǠԠ)*Pa(̠Ǡɭ) T`$\d_~\.ca(Š͠ĠנӮ)̠ŠΠҠ)$Pa(ŠӮ).c'8Pa(ĠƠԠ)BP a()LPa()&VPa(ĠΠĠ) `Tj`$t\d_t\,~ca(ǠȠ٠) P a()- Pa(ĠΠҠΠԠ) P a()) Pa(ĠΠŠҧ) P a() T`$\d_ \Uca(ǬǠҠǠŠǠϠǠ)p P a(Ӡ) z T `$ \d_  \/ ca(ŠΠĠҠҠ) Pa(ԠŮ) c/ Pa(ĠΠŠŠĠŭ)+ P a(ĠϠŠҠ. Pa(ĠӠǠӠĠ̠))* Pa(ŠӠϠ̠Ҡ),4 Pa(ǠìՠԮ)> cH Pa(נϠ)*R Pa(РĠΠĠ)\ P a().f Pa(Р̠$D\d_D\VNca(խΠΠŠŠƠ)Pa(Π̠ԠӮ)Xc$bPa(̠Ԡ̠)rlPa(̠ƠǠӠ)P a(Ġ٠̠Ҡ)P a(ŠPa(ӠՠΠŠԠ)P a(ŠϠŠ)JPa(ӠӠŠ)P a(ҠΠՠŠ)P a(Š)L&Pa(ӠƠҠҠ)P a(ԠӠŠԠŠ) 0T:`)/Pa(ΠǠҠǠέ)P a(Ӡ) T`$\d_\Tca(ƠՠŠҠΠŠ)Pa(͠ĠԬՠŠ)#Pa(ΠƠŠ׮)cH) rT|`$\d_@\eca(ԠŠĠҠȭ)Pa(̠ҠǠ)Pa(ŠĮ)c*Pa(ΠǠȠ)=Pa(ΠǠȠ٠)P a(Ԡ)Pa(ӠҠ̠)Pa(Ӯ)Jc$TPa(̠Ԡ̠)b^Pa(̠ƠŠԠӠ)P a(ȠҠϠҠŠ)P a(Ơ)TH`$R\d_ R\;\ca(Š̠ҠנΠҠ)Pa(Ӯ)fc\d_>\ZHca(ΠǠΠ)Pa(ŠƠӠҠέ)&RPa(̠ԠԠˮ)\cfc/pPa(ΠӠԠŠƠŠ)1zPҠĠƠĠӠŮ)c' Pa(ĠԠ̠)WPa(Ġ٠Ƞέ)P a(٠ĠҠĠ)i Pa(ĠΠԠӠŠ)P a(ϠǠӠ)P a̠Ԡ̠)>Pa(̠ΠǠ)P a()CPa(̠ΠǠ)P a(٠) T`$\d_\[ca(խӠӠǠ)Pa(ΠԠ)0vPa(̠ǠԠӠ) T`$\d_N\Tca(ǠӠҠӠ)Pa(ӠƠĠ̠)-Pa(өΠĠ٠Ӯ)c$Pa(oP a(͠)Foa̱@# oPa(נϠҠˠɠΠ)_xW̲@p@@p()UVWq/?r@Brp̲@*#r`;̲@r%̲@Brp̲@*rYX̲@p̱@UVW;̲@ṟ@Brp̲@*#rq<̱@*rr`%̱@Brp@*#rY[ ]ȠԠͮ)ḇ@Brp(ԠǠϠŠԠ͠ՠ٠ҬŠҠӠ٠ˮ)_ s ̱@p(Šˠ٠ӠϠŠנҠӮӠĠάάŠĠҮ)5 \M6̠ĠҠӠ)M̱@Brp(ŠŠԬĠҠĠΠԠΠŠԠԮ)_ Ẕ@p(נԠէŠĠӠ͠Ԭɧ̠ԠՠǠϠӠ)_̱@BQrp(ŠĠ̠ĠΠϠŠӠŠĠ٠٠Ӡ ĮԠˠ)+̱@Brp(ĠԠŠǠϮ)_ Ẕ@p(ŠӠԠΠȠԠ̠Ԡ٠Ϡ¬ĠРŠŠ)_̱@BQrp(ȠĠ٠ӠҠŠĠŮΠŠ٠ǠΠŠĠƠԠĠŮŠӬŠӬŠӠ)0̱@Brp(ǬΠŠŮ)_ Ẕ@p(ŧŠԠӠ٠Ӡ ĮŠŠՠ̠٠Š)_̱@BQrp(׮ŧŠԠĠŠϠϺՠΧԠˠŠԮ)W̱@Brp(źɠԠҡΠҡĺΠҡΠҡ)_ Ẕ@p(ӠϠŠӠŠĠŠĠƠԮԠӠŠ)_̱@BQrp(ŠĠРȠǠˠĠĮɧ͠٠ԬĠɧ͠ˠĠ)2̱@Brp(ĠƠǠĠԠɠͮ)_ Ẕ@p(źŧӠȡϺנϠՠנŧӠȿ)_̱@BQrp(źŠŠנŠî)_ U̱@p(ƠƠƠ֠Ơ֠ؠР͠ڮ)_ y̱@p(ɠˠԠ̠ԠǠŠΠӠ٠ŠˠĠĠƠǠĠԠ٠)ẖ@Bprp(ŠԠˠڬР֠РϠɠڠԠЮ)_ w̱@p(Ƞ֧נננӠϠàѠìנˠڠàѮ)_ ḵ@p(ǠàנŠ̠Ѡ̠îàŠ׺Р֠ՠҠѠ֠Π٠)_ x̱@p(Р٠ʠ֠ƠР׬ϠƠ֬ɠ֠٠РѠ͠ԠŠٮ)_ ṯ@p(ȠĠȠ̠֠ҠҠР̠ӠʠΠԠ֠ʠѠؠή)_ Ẕ@p(Ѡ֠נؠΠغΠ Ơ̿Ѡנ)F̱@BQrp(Πغʠ̠ŠѠʠʠſ)_ m̱@p(ҠՠРҠϠѠĠӠ͠ڠΠǠѠӠؠѠѮ)_ vṯ@p(ҧՠɠ٠ҠՠՠȠĠĠȠĠؠՠ͠ڮ)_ t~̱@p(ʠΠԠӧ ΠʠԠΠѠˠؠϠڮ)_ TV̱@p(Ǡ̠Ѡ̠ڠ˻̠̠ǠɠƠˠƠǮ)_ o`̱@p(נĠƠҠƠ  ѠҠǠ֠Ơ ʠ֠Ǡ ʮ)_ jj̱@p(ؠѠǠ֮)9_ ZḆ@p(ʠҠʠƠʠ٠Ҡʠ٠ɠʠɠĠҠҠ)NC̱@BQrp(خʠʠؠʠĠؠ٠נخ)_ lḺ@p(̠Р֠ڠ̠֠Ӡˠ̠ԠԠנˠŠנ͠ؠѠŮ)_ h.̱@p(ӠʠΠ̺ɠ٠Ҡ֠άѠ٠Ҡɿ)_ |8̱@p(ħƠڠԠҠנƠƠƠȠɬ֠ȠĠƠ̠ɧŠà}]}]}]}]}]͠٠ŠĪ}]Ҡ̠Š }]٠ԠŠĮ٭!}]ԠŬà"}]]Π٪]q m `%[n _4 r `%a(ĭ)s a(ԧӠϠȡ)t \F v q w `%[x _4  KM6o a(Ԭ)E@- a(ՠŠĠ)FE(ӡ)* c`%a(ՠŠ٠Šš)# `%a(ՠŠϠ M6 4 `%[5 `%a(٠Ġ)E@_/6 ca(ԠΡ)7 c9 \F; [$@ a(ԧӠ٠ԠƠҡ) H qJ _, T ]%U a(ԧӠ٠ԠƠҡ) ] q^ _, h `%a(ĭ)i a(ԧӠϠס)j \F l $/# ca(ԧӠ٠Ԡš) c \F [ a(ϠҠϠŠԡ) q _  `%a(ĭ) a(Ϡȡ) \F  q `%[ _ " ` %_@ ' `%_T , ` %_h 1 `%_r 2 `%\F 3 `$/ ca(נԧӠԿ) c \F [% a(ՠĠŠŠؠҡ) q _  `%a(ĭ) a(٠ӠϠ̡) \F q `%[ _  ] `%_  `%_  `%\F M6 `F f M6 i `$/ n ca(̠Ԭ٠ҡ)o cp \Fs [!x a(ҠϠҠϠŠԡ) } q _d  `%a(ĭ) a(Ϡס) \F q `%[ _i  `%_  `%_  `%\F M6  `%\F M6 `$/$ ca(ˬӠ٠ŠԠԡ) \F cc [ a(ϠҠԡ) " q# _ ( `%a(ĭ)) a(Ϡȡ)* \F+ cc , q - `%[2 _ Z `%_x d `%_ e `%\\F ccca(٠ά)E@f gرhٱ[ ]ˠ `%_ ]Ҡ `%_Z ]Ҡ `%_ ]ҠԠ `%_ ]Ҡ `%_" ] `%_  `%_(a(Ҡ)`%a(Ҡ)*`%a(Ҡ)`%a() a(̠ŠҠҠҮ)T'\P`%_$\B[]Ԡf/? r رq ٱq# gرhٱa()]̠[]Ҡ \ ]ˠ"`%_*\]Ԡ/qq>YH_ $M6a(ԧӠԠΡ)\F q_]Ԡ2M6a(̠Ԭ)E@E(ŠԠ١)\FIM6`%a(Ҡ)`%* a(׬ӠɠĠŬՠŠ)- a(ŠƠǠҠΠŠ)#* a(ƠǠŠΠŠͮ)[*)* a(ӠŠΠ٠Ԡ)- a(ǠŮΠՠ̠Š)- a(ΠƠҠǠҠŬ)) a(ǠŠԠŠ̠Ҭ)* a(ǠŠͬҠǠ) a(ҠԠŠ׮) ccҠŮ)/ a(ӠŠҠӠ̠Š)) oa(ӠξϠŽ)G$ d6?eM6`.?6@r $  _  M6c o. a(ƬŠՠŠǠŬ)* a(ŠĠҠĠȠb a(ԠƠŠӠԠŠĮ)-l a(ՠŠŠŬŠӠ).v a(٠ĠҠ̠ŠĠήƠ). a(ҠӠҠȠԬΠ)0 a(ҠӠԠĠΠŠŮ)G. a(ŠԠ̠ŠŽ)G$' d6?eM6`.?6@r $0 ( _'  0 M6c1 o0: a(ŠǠŠŬՠ̠)G-D a(ȠƠ٭ˠΠŠР),N a(ŠήӠӠŠŠ)-X a(ՠԠŮנԠ̠Š).ŧĠϠή) c. a(ΠӠͬՠΠҠҠ)- a(ŠϠŠĠϠԠ), a(ŠΠŠԬҠՠΠ٠)- a(ŠŠƠŠ٠Š) a(ΠŠͮ))& oa(ӠξϠ^ KM6ca(ӠӠͮ͠͠ӠŠҠ)V a(ŠŠԠƠӠӠĠҠҮźؠؠΧ)] a(͠ҠŠŞ̌ŠѧӠӧا q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢàà L1H /Ѽhh`hЅ hiԄ8ҍӍh`H}Xߥ҅ީh LԦ}hҍ` ǠҠÍǠԠÍϠٮɆ0&⽌H}X L֠ $Ȅф(0PLhhLԩՠԑihL. ۄکڍ ȱڍ `H`ߠ h  .L`,0,0I,0`h hhLh t Lh L hi#Lh)ʽhʽhȄф L Ph0G  @hh0 RHHXhЮ$0lp  :HL HLlh 8ILILHUЍ`(S(L Lީߩ$, Lީߩ$hL  % "  hH ބ ބߩhҩ Ȍ     26:"RIGHT PLACE."A14:28::"BAGELS"::26:"NO DIGITS"h26:"MATCH TARGET":26:"NUMBER."u33,25:{"N"1374.b:16:" GOOD BYE THEN-":d:22)Jn"(SIGNED)"Vx:22)o"APPLE II COMPUTER"D$(4):D$;"RUN MENU";::4:30::"PICO"::26:"ONE DIGIT IN"26:"WRONG PLACE."9:29::"FERMI"::26:"ONE DIGIT IN"<"DO YOU WANT TO PLAY AGAIN? "C>"(Y FOR YES OR N FOR NO)=>";ZAA$:A$"Y"ĺ:530lFA$"N"1345uP:3Z2:"I HOPE WE PLAY AGAIN , ";N$\:"IS ANY ONE ELSE WAITING TO PLAY?"]"(Y FOR YES OR N FOR NO)=>";^A$:A$"Y"Ĭ _A$EIN, BY SOME CHANCE?":1260*RR31250W"EVERY DOG HAS HIS DAY, I GUESS!":1260t"THAT'S VERY GOOD, ";N$:"OH, WELL, I KNOW ANOTHER NUMBER.":1340::4:"SORRY, ";N$:"THE NUMER IS "; D1BC(D);D(2!T IT !! ":C13)::X115:" ";:X::::ZZ05:(7);:ZZ:"HOW COULD YOU HAVE GUESSED IN ONLY ";Z:"TRIES THAT ";D$;" WAS THE NUMBER?"::RR(1)140:RR11210"ARE YOU SOME TYPE OF GENIUS?":1260RR21230"IS YOUR NAME EINST]$]ΠҠ&])]Ŭ.]8]٠B]L]ϬQ]"V]ٿ)" a(٠ҠӠҠΠҠϩ)G$! d6@eM6`.?6@rN$H & `.?6@rY$! + c00 ca(ŬĠՠԠϠ٠ǡ)2 \F: M6_cH cca(ˠĭš)R c @p()a@E(Π)GQ Q ]ӡ)& `%a(ՠŠ)FE(Ӯ)A ca(ɠŠՠŠĠǠԠǠӡ)/ ca(ĠՠŠϠ٠οٯΩ)G$ d6?eM6`.?6@rY$ `.?6@rN$  c. ca(ӠŠŠŠǠB 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](Њ 80,1982":1000M ZC(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":1000:b d(4);"RUN MENU"y  CENTER STRING A$ B(20((A$)2)):B0B1 B:A$:"APPLE" / 9);"DISSEMINATION PROGRAMS"5 I 16);"DISK #2"Q 23v 7)"PRESS TO CONTINUE" 16368,0 A16666 "(16384)128ĂA ,(4);"RUN MENU"  :'(4);"BLOAD LOADER.OBJ0"140969d:Dn48,32Kx5{3);"SAN MATEO COUNTY OFFICE OF EDUCATION"20);"&"9);"COMPUTER-USING EDUCATORS":16)"SOFTSWAP"0,395:0,39214,201:4,203815 17);460%2 :*" BYE FOR NOW!"0ND$(4):D$;"RUN MENU";:z23:6:"PRESS TO CONTINUE=>";Z$:(Z$)13910 USERS GIVES UP958::"AHH....AND I WAS HAVING FUN TOO!"::"MY FRACTIONS WAS ";A;"/";B;"."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!$ 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 oLE PRINTER OR THE SCREEN (ENTER P FOR PRINTER OR S FOR SCREEN";SPN$ePN$"P"Ċ1:t PN$"S"ı~2010AԠӪ]ŠŠŪ]ؠ]ΠϬ]W]ΠϠŠŠƠΠϠٮҠҠ6]ԠӠҠ̠Ϡ * *+Nu * ZIP. 94404 *CSu * *[Xu *****************X. 94404 *Su * *Xu *****************FE1:1010YX(FEB11607FE01080CX1FER"FERMI ";Y$X_.n8PI01130zBX1PIL"PICO ";VX`jFE0PI0750t"BAGELS"~750:936 13)::X115:" ";:X:::13)::" YOU GO(A$,X,1)(A$,Y,1)890fY,X(p930lz:N$;", I SHOULD HAVE":"TOLD YOU THAT":"NO TWO DIGITS IN MY""NUMBER ARE THE SAME."780FE0:PI0X1BY1B(A$,X,1)(D$,Y,1)1000XY990PIPI1:1010 FEGET ";B130;" GUESSES."!::)Z03ZZ1EZB1301270Kf "GUESS #";Z;:"? ";A$wA$"0"1270 (A$)B820%(A$)0820*8404:"TRY GUESSING A ":B;" DIGIT NUMBER."9>780HX1B1RYX1B\E CHOOSE A 3-10 DIGIT NUMBER."$:-D540SN1500:936:2:"GOOD LUCK!!"::^XA1BwbC(A)(9.99999(1))lC(1)0610vC$(C(A))A1660D$C$A1710J1A1C(A)C(J)610JD$D$C$A"YOU A$:(A$)13512#936*3Q"HOW MANY DIGITS WOULD YOU LIKE";dB$:B$""560(B$)0ĺ:"THAT'S NOT A VALID ANSWER!":560 ((B$))(B$)ĺ:"WHOLE NUMBERS ONLY, PLEASE!":540!B(B$)&(B6.5)3.55900"PLEASPE ZERO (0) AS A ">"GUESS, I WILL TYPE THE SECRET NUMBER"j"AND YOU WILL HAVE ANOTHER CHANCE TO "w"PLAY."}"YOU MAY CHOOSE ANY NUMBER OF DIGITS""FROM 3 TO 10, INCLUSIVE.""PRESS THE KEY TO CONTINUE..."; -- IF NO DIGIT IN YOUR":Ar" GUESS IS IN THE"_|" NUMBER"e"PRESS THE KEY TO CONTINUE...";A$:(A$)134029362:"IF YOU EXHAUST YOUR ALLOTTED NUMBER OF""GUESSES OR IF YOU TYN RESPONSE TO YOUR GUESSES, I WILL TYPE"."]," PICO -- FOR EACH DIGIT YOU HAVE"6" IN THE WRONG PLACE"@J" FERMI -- FOR EACH DIGIT YOU HAVE"T" IN THE CORRECT PLACE"^h" BAGELS2A$"N"520"A$"Y"186,936]2:"BAGELS IS A NUMBER GUESSING GAME. YOU""TELL ME HOW MANY DIGITS YOU WANT TO ""GUESS AND I WILL SELECT A RANDOM NUMBER""FOR YOU. YOU THEN TRY TO GUESS MY ""NUMBER."("I10ĺ:"LIMIT IS 10 LETTERS.":19:" ":160 19::"PLEASE TYPE IN YOUR NAME=>";N$:150 936 2:"WOULD YOU LIKE THE RULES, ";N$: "(Y, N, OR KEY TO END PROGRAM=>";A$:(A$)27ĺ:137 () dN$(55):936:X180:"*";:Xc n::18):"BAGELS":::13):"CHARLES SULLIVAN":: xX180:"*";:X::::X12000:X 15:"WHO HAS THE PRESUMPTION TO TRY TO GUESS" "MY SECRET NUMBER? ";N$ N$""(N$)11170V (N$) *"  * *@  * *^  ***********************|  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " *********************** # $ COMPUTER-USING *2  * EDUCATORS *P  * *n  * SOFTSWAP *  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * (415) 363-5472 CLUES.  )  APPLESOFT 8K6  M  CHARLES SULLIVANZ ` ~ *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * | BAGELS  THIS IS THE CLASSIC GAME OF BAGELS. IN THIS NUMBER GAME, THE PLAYER ENTERS A GUESS. THE COMPUTER THEN TELLS THE PLAYER HOW CLOSE HE IS  TO THE TARGET NUMBER BY GIVING SOME CRYPTIC        $q]àӠ q]ĠӠ UVW.a(ŠŠՠǠϠԠҠԠ)Ma(ҠԬҠԬҠԬҠԬ)T `%_`%_\]ԠŠ٭ӠӠϠ)#a(ՠĠŠΠپ) d"e\_\a(٬)E@E(ԧӠġ)\F)Lflm$nf ij#k$GM6S(׬נ٠ӠĠՠŠϠԠԠ)'`حӠӠ)#]a(ՠĠŠΠؼ)b\q_Nv\{ca(ĠԬ)E@\FccCM6a(נ٠ϠŠԠΠŠҠƠŠή) d"eT'\P`$`%_+a(ŠŠƠҠԠҠՠĠԠ)&qq0\:\F;cc Cd"eHDM6a(נՠ٠ϠԠԠΠŠԠŠƠŠή) Id"eNT'\P`$C Pd"eX`%_v&Za(ŠŠƠŠcc>a(נԠӠŠҠՠϠԠŠԠơ)"f lm$nij#k$\FccIa(ϠŠԠΠŠҠƠӠȠՠĠԠ)qq\\FccKa(ϠŠԠҠΠӠ)FE()F\Fc-a(ϠҠԬŠΠӠ)*a(ΠŠحӬĠ٠)a(ΠΠŠ٭Ӯ) \Fc%ca(ΠŠƠӠĠź),a()\FLTUVWY^f hgȱhֱrY|f gȱhֱ*a(ԠΠϠŠΠӠ)a(נԠӠԠ)FE()Fc\Fcc+a(ԠӠԠӠ)FE(ӠϠŠ).a(ԠĠ)FE(ӠР͠ŠӮ)a(ĠŠ٭ӧӠĬحӮ)-a(ԠӠ٠͠Ϡ)f ij#k$\F ccc-a(Š٠ҠƠӠ͠ӠԮ)"UVW ,q/?rq/?r6ȱqֱq#@f JgȱhֱOa()G]̠M6`.?6@rN$`.?6@rY$cL#a(ŠӠŠƠ٠Ӡ)%a(ԠӠΠӬŠ٭Ӯ)flm$n\Fcc<a(Š٭ӠӠ̠Ӡ͠Ϡ)\Fcc,a(נԠ*# r_xwa(Կ)_cxM6ofa(ƠՠŠԠǠԠǠӠΠȬɠˠ٠ӠĠɠΠС)c9a(ĠՠŠŠӠŠŠ)a(Ϡ˿)!a(٠ҠӠҠΠҠϩ)G$d6?eT`%[ Ud"edVM6a(ӡӠԠŠΠĠϠԠΠŠȡŠ٠)\F[co+da(٭ĠϠŠŠϠˠϡ)icnS(̠ŠҠŮ)&@s`@9()$w*t@p@`;@r %@p@à"])(d6?ed6?ed6?eKM62N@"rC@"2rC@"r<_c*Foa(ӠξϠŮ)G$Gd6?eM6`.?6@r $GHc[8Pq`%q`%q]]]]]]͠٠ŠĪ]Ҡ̠Š ]٠ԠŠĮ٭!]ԠŬ]ŠƠΠ]]ҭǠ]Ӡ]]Р]]ΠԠ]Ġ٠!]ǠӠЮ]7]ӠԠԠ]]]ŠҠ]]٠ ] ] ] ]]ΠϠ٠                z#     !ĠӠ٠Π"͠&ǠӠӠ Үʰà* ǠΠŠΠŠȠڠΠŠŠŠ Р ǠԠ`ϠՠԠԠԠԠΠĠĠΠŠӠ ߅ 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̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                      100Pٹ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̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1( &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00                      16);"DISK #6" a :"DEER VALLEY UNIFIED SCHOOL DISTRICT #97 PHOENIX, ARIZONA"i 23 7)"PRESS TO CONTINUE" 16368,0 A16666 (16384)128ĂA (16384)141Ĺ16368,0:A (4);"RUN MENU"A  :48,32(5K23);"SAN MATEO COUNTY OFFICE OF EDUCATION"Y<20);"&"}F9);"COMPUTER-USING EDUCATORS"P:16)"SOFTSWAP"U0,395:0,3921Z4,201:4,2038d13n17);"APPLE"9);"DISSEMINATION PROGRAMS" ) IN1INLNī10101 .::D$;"RUN";SU$(IN) D14)"CRYPTOGRAM"? 0NA$(15)"PLOTTING POINTS":NA$(16)"BAGELS"E 6N 200[ 34,20: "PLEASE TYPE IN THE NUMBER OF YOUR CHOICEAND PRESS . IF YOU WANT TO QUIT TYPE 'Q', =>";IN$ IN$"Q"ĉ:: IN$""ė:1020 IN(IN$"SCRAMBLED WORD":NA$(4)"CINQUAIN":NA$(5)"HOME MORTGAGES":NA$(6)"SAVING & LOAN"l -NA$(7)"FUNCTION GAME" .NA$(8)"MATH QUIZ":NA$(9)"ADDITION RACE":NA$(10)"IMPOSSIBLE SHAPE ":NA$(11)"TRAP":NA$(12)"CAL DRIVING TEST":NA$(13)"FRACTION GUESS 2":NA$(10008 :2:C$"PROGRAM SELECTIONS":(20(C$)2):C$} TS((LN1)2):I1TS:(3I):2((I)));I;" ";(NA$(I),16):I LN1ı ITS1LN:3(ITS):21:2((I)));I;" ";(NA$(I),16):I:Q ,NA$(1)"PET PIT PAT POT":NA$(2)"A & AN":NA$(3)ON GAME" fSU$(8)"MATH QUIZ":SU$(9)"ADDITION RACE":SU$(10)"IMPOSSIBLE FIGURE":SU$(11)"TRAP":SU$(12)"CALIFORNIA DRIVING TEST":SU$(13)"ADVANCED GUESS MY FRACTION":SU$(14)"CRYPTOGRAM" hSU$(15)"PLOTTING POINTS":SU$(16)"BAGELS" LN16 300:3'(16368,0:16300,0:16298,0::D2D$(4):SU$(34),NA$(34)cc ** PROGRAMS TITLES ** dSU$(1)"PET PIT PAT POT":SU$(2)"A & AN":SU$(3)"SCRAMBLED WORD":SU$(4)"CINQUAIN":SU$(5)"HOME MORTGAGES":SU$(6)"SAVING & LOAN" eSU$(7)"THE FUNCTI     ,PETULANT\ END,ENDfi23:6:"PRESS TO CONTINUE...":6:"OR TO END PROGRAM.";Z$:(Z$)27375(Z$)131010:2:" W O R K I N G ": E TO MEND A HOLE (5),PATCHe4 "THROW A BALL; PUT UP A TENT (5)",PITCH> A FLOWER; ALSO A GIRL'S NAME (7),PETUNIAH A BASEBALL PLAYER; ALSO A POURING VESSEL (7),PITCHER R PEEVISHLY IMPATIENT (8) STORMS (6),PETREL8 AN UNDERSKIRT (9),PETTICOATY WORKER IN CLAY (6),POTTER  "SOUND OF TINY FEET; ALSO RAPID SPEECH (6)",PATTER SMALL AND DAINTY (6),PETITE  FARMER'S IMPLEMENT (9),PITCHFORK* A PIEC AC0:&DATA QUESTION,ANSWERH PART OF A FLOWER (5),PETALq AN EARTHY VEGETABLE (6),POTATO WHAT A SCOUT OR GUIDE IS A MEMBER OF (6),PATROL AN AUTO FUEL (6),PETROL A SMALL SEA-BIRD ASSOCIATED WITH ."; NX)b QUESTION AND ANSWERTl::" ";X;". ";Q$(Q)::" ";A$cvA$""620oACAC1A$QA$(Q)AC3İ440:620A$QA$(Q)ACEĺ::"SORRY - THE ANSWER IS ";QA$(Q)::1000A$QA$(Q)İ410:Y12000::COCO1:"WORDS TO BE GUESSED."K:::"I WILL GIVE YOU A PREFIX, A CLUE, AND"u:"THE NUMBER OF LETTERS IN A WORD."&:::"YOU GUESS THE WORD. THERE ARE 10 WORDS.";0::"PRESS THE KEY TO CONTINUE...";5Z$:(Z$)13565::"..SWERS"5"BEGINS WITH PET-, PIT-, PAT-, OR POT-. ";E1000t:::" --------------------------"" PETS, PITS, PATS, AND POTS"" --------------------------":::"PET, PIT, PAT, AND POT ARE PREFIXES OF"N D * * *"D$(4):,D$;"RUN MENU";B:50,63:"GOOD!"N50,255Tq::"SORRY, TRY AGAIN!"AC2ĺ"THE WORD STARTS WITH ";(QA$(Q),3)::1000Z$(A$,3)Z$"PET"Z$"POT"Z$"PIT"Z$"PAT"ĝ:1000"REMEMBER-- THE ANHAPS YOU HAD TO, ALSO."Fh::"WOULD LIKE TO TRY IT AGAIN? (Y/N) ";XrZ$:Z$"Y"ĬitZ$"N"370w:2:"IS THERE ANYONE ELSE WHO WANTS"::"TO PLAY (Y OR N) =>";xZ$:Z$""376zZ$"Y"Ĭ|Z$"N"376 :8:8:" * * * T H E E :Y1X ::R(Y)R200% :Y2 :R(X)R9 XL  ASK QUESTIONX X110e :QR(X)o ":610v ,X 6:: @"YOU GOT ";CO;" CORRECT OUT OF 10." JCO7360 T::"THAT WAS A CHALLENGE. I HAD TO USE MY"^"DICTIONARY. PER************** F, d480: INTRODUCTIONM n READ QUESTIONS AND ANSWERSk xQ1:Q$(50),QA$(50),R(50) Q$(Q):QA$(Q):Q$(Q)"END"160 QQ1 130 QQ1 RANDOMIZE QUESTIONS ::"W O R K I N G" X110 :R((1)Q)1  * (415) 363-5472 *<  * *Z  * *x  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " ********* & * .  * COMPUTER-USING *L  * EDUCATORS *j  * *  * SOFTSWAP *  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *LE SCHOOL, 1000 JACKSON ST. ALBANY, CA 94706J y ADOPTED TO THE APPLE BY KEITH ROLLIN *********************** * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  *  PET PIT PAT POT 8-80*  GIVES DEFINITION OF A WORD BEGINNING WITH PET, PIT, PAT, OR POT. THE USER GUESSES THE WORD.   APPLESOFT 8K =  BY AL & LINDA NIELSEN, ALBANY MIDD     ;:495!"NOT TOO BAD, ";:495B"YOU CAN DO BETTER, ";:495cZ((1)31):Z481,482,483"BETTER PUT ON YOUR THINKING CAP!":499"PLEASE TRY HARDER ,";:495"LET'S GET THE SCORE UP!":499A$ :A$;"'S SCORE IS ";S;"EEP UP THE GOOD WORK, ";:495G"YOU'RE PRETTY GOOD AT THIS, ";:495hZ((1)31):Z461,462,463"ALRIGHT, ";:495"LOOKING GOOD BUT CAN LOOK BETTER!":499"NOT BAD AT ALL, ";:495Z((1)31):Z471,472,473"KEEP GOING, "Z14:431Z15/Z1440,450,460,470,480PZ((1)31):Z441,442,443l:"WOW!";::" ";:495"*********SUPER!********* ";:495A$;", YOU ARE A WHIZ!":499Z((1)31):Z451,452,453"YOU'RE GOING STRONG, ";:495"K1:JJ1:127SS1:4994D$"AN"SS1:400=380I SCORESTT1`A1A0zZ((S1000.5)T)10"***************************************":Z92Z11:431Z92Z84Z12:431Z84Z76Z13:431 Z76Z68"AN";::"?";:958:"";D$4@D$"A"D$"AN"310TJ7:TA1:" ";D$;" ";:14:iT COMPARE ANSWER{^C$(N$(Y),1)hC$"A"C$"E"C$"I"C$"O"C$"U"390rD$"A"SS1:400|:"OOPS!":AA1I11500:IA1600 N(J)Y:KK" SHE HAD ";B$;" ";N$(Y);"."0TA13:290V" THEY LOST ";B$;" ";N$(Y);"."eTA15:290" WE BOUGHT ";B$;" ";N$(Y);"."TA15":::"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":, ANSWER ROUTINE613::"A";::" OR ";::" SHE CAUGHT ";B$;" ";N$(Y);"."0TA16:290U" HE FOUND ";B$;" ";N$(Y);"."dTA14:290" THERE IS ";B$;" ";N$(Y);"."TA14:290" HERE IS ";B$;" ";N$(Y);"."TA13:290" HE HAD ";B$;" ";N$(Y);"."TA12:290!TS SENTENCESnYY1(xZ((1)91)`:4::"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX":h:Z140,150,160,170,180,190,200,210,220,230" I SAW ";B$;" ";N$(Y);"."TA11:290" IT WAS ";B$;" ";N$(Y);"."TA12:290!AD THE SENTENCE AND DECIDE IF"ZR:"A";::" OR ";::"AN";::" BELONGS IN THE BLANK."U::"A";::" GOES BEFORE A CONSONANT: A TREE."W:"AN";::" GOES BEFORE A VOWEL: AN OCEAN, AN EAR."XI110::IZ800 d PRINFORGOT TO ASK--WHO ARE YOU?"::@ <20:" ->";:868:4:"";A$N ?A$""60\ @(A$)60l AA$(A$,10) F:2:"AAH! WELL, ";A$;", AS I WAS" K"SAYING, I WILL PRINT 10 SENTENCES. EACH ONE WILL HAVE A BLANK LIKE" L"THIS: ";B$P:"REX":I. ':6:"XXXXXXXXXXXXXXXXXXXXXXXXXXXX"d (:7:13:"USING ";::"A";::" OR ";::"AN";:n ,12:v -13 /B$(95)(95)(95) 2"I WILL PRINT OUT FOR YOU, ";::" ";::" . . ." 5I11000:I:"" 7::::"OOPS!";::" I AY BE COPIED*+  *FOR EDUCATIONAL USE &*I *MAY NOT BE SOLD.COPY-*g ! *RIGHT 1981 CUE,INC * " *********************** #N$(20),N(20):I010:N$(I):I $:::::Y1 %:6:"XXXXXXXXXXXXXXXXXXXXXXXXXXXX" &I15:6:"X";:33:"  * *;  * 333 MAIN STREET *Y  * REDWOOD CITY *w  * CA 94063 *  * (415) 363-5472 *  * *  * *  ***********************  *PROGRAM M*************+ * *I  * SAN MATEO COUNTY *g  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP * A & AN NOV 1979& o STUDENT CHOOSES 'A' OR 'AN' TO COMPLETE RANDOM SENTENCES.z   APPLESOFT 8K  GLENN FISHER 1517 HOLLY ST. BERKELEY, CA. **********        (B$)2:"-";: "/"1 XX1500:XXG 14:19:958::w 19:"SORRY!!";:XX1500:XX:19:868::UI`(EE$)1EE$"":11402jEE$(EE$,(EE$)1)XtCV((EE$)40)24CVCV1:1140v~CV:CH:EE$;:958:1090(13);:CV:17:"/";A1(B$)2:"-";:(92);CV1:16:"<";:16(B$)1:">";CV2:17:(92);A1 CHAIR,AWOKE,AROUSE,SIPHONM ZIGZAG,DONKEY,SPENT,VANITY,FAMOUS,INFUSE[ END,ENDa$|. CURSOR INPUT ROUTINE8EE$"":CV(37)1:CH(36)1BG$:AA(G$):AA13(EE$)2551160LAA8EE$EE$(AA):(AA);:1090V(EE$)01090BLE$ YIELD,ABYSS,EMPLOY,FASTENE ALBUM,TWINE,RANSOM,BEDECKe IGLOO,WHINE,GRIMLY,SOLID LOUSY,APRON,BANGLE,ANKLET FINISH,PREFER,IODINE,DABBLE GUTTER,NICKLE,POISON,OUTING,MOBILE,RAMROD NERVE,CHIME,HYMNAL,FACTOR SOUSE,FUZZY,AFFRAY,ESTATE=z CLEFT,STEED,OUTBID,WIDEST_ LINEAR,THYME,DISMAL,HELMET CLOVE,HITCH,DUPLEX,ARTERY WEDGE,TAFFY,QUAVER,BUTTER ENACT,JOINT,THRUSH,WISDOM DOUBT,QUEEN,MARINA,BEHELD BEGIN,CANAL,GHOST,NIMWINDOW&* FELON,DICED,THROW,CLOUDYW4 DARING,BAFFLE,INVITE,ENAMEL,DAHLIA,OBJECTv> WINCE,CRESS,DRUG,INVERTH SNORT,MOTIF,CHORUS,GENDERR POUCH,EXACT,BUTTON,ORIOLE\ YOKEL,ARMOR,VANDAL,PICKETf LIMIT,GAUDY,SINGLE,DOUBLYpD$(4):D$;"RUN MENU";:; HOBBY,BUILT,DIVERT,FLOWER\ GRIMY,SMART,ENGINE,MUFFIN RUSTY,DESTROY,ICEBOX,DEBTOR SCHOOL,HENNA,ARCADE,PURPLE  RAINY,LAPEL,FROZEN,CIPHER NUTTY,MAGIC,PASTRY,SOLACE  BOOTY,CLOUT,DROWSY,00.5)Y(WT100.5)":HX;"% CORRECT ";Y;"% WRONG"P:}"IS THERE ANYONE ELSE WAITING TO PLAY?""(Y FOR YES OR N FOR NO)=>";QQ$:QQ$""707QQ$"Y"ĬQQ$"N"707::8:"* * * T H E E N D * * *"˺:WW0:580 WW1:51030"CORRECT!!":=:RR1gD:"SCORE: CORRECT ";R;" WRONG ";WN23:"ANOTHER WORD? (Y OR N) ==>";SQQ$:QQ$""595XQQ$"Y"ė:3:240bQQ$"N"595:::"YOU ANSWERED: "TWRX(RT11) B$B$B$(E) A(D)1$ E3 A$B$360b 10:" UNSCRAMBLE: ";B$;:CV(37):2000j 14 "WHAT'S YOUR GUESS? "; 1060 : C$EE$ A$C$560 530 3100:WWWW1:WW3İ3000:445" THE ANSWER IS: ";::A$:LED WORD GAME"::: 34,50 B$(20),A(20)6 @ A$""J B$""T C$""` Z120k A(Z)0r "Z ,A((1)301) 6B1A @A$ JA$"END"Į:BB1 TB ^C(A$) hE1C rD((1)C1) |A(D)1370 B$(E)(A$,D, *  * *>  ***********************\  *PROGRAM MAY BE COPIED*z  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " *********************** d:::255 ::: 8);"SCRAMB EDUCATORS *0  * & *N  * SOFTSWAP *l  * *  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * (415) 363-5472 *  * TED TO THE APPLE FROM THE PET BY KEITH ROLLIN^ ***********************| * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * *  * COMPUTER-USING *  * x SCRAMBLED WORD 7/1980, b UNSCRAMBLE LETTERS TO SPELL A GIVEN WORD.m x  APPLESOFT 8K  AUTHOR UNKNOWN BUT IT WAS KID PROOFED ON 7/17/80 BY QJ @ ADAP      CINQUAIN";2"NEEDS ONE WORD THAT REFERS TO "S$K$"TYPE IN ONE WORD."^.1140:"=>";K$n8K$""1070x=::~BL SECOND TIMERVTT1`TITWTITI1:1120jt~23:"PRESS TO CONTINUE.";:IN$::(IN$)131150OF YOUR CINQUAIN NEEDS FOUR";J"WORDS THAT DESCRIBE A FEELING YOU GET"^"DURING "S$"."d"TYPE IN A FEELING USING FOUR WORDS."1140:"=>";G$G$""1000:: 5TH LINE OF POEM "THE 5TH, AND LAST, LINE OF YOUR THE 3RD LINE OF YOUR CINQUAIN NEEDS"Oz"THREE WORDS THAT DESCRIBE SOMETHING"l"THAT HAPPENS IN "S$"."r"TYPE IN A HAPPENING USING THREE WORDS."1140:"=>";D$D$""920:: 4TH LINE OF PROGRAM"THE 4TH LINE  &  SECOND LINE OF PROGRAMS*"THE SECOND LINE YOUR CINQUAIN NEEDS 2"t4"WORDS THAT DESCRIBE "S$"."z9>"PLEASE TYPE IN A DESCRIPTION USING TWO WORDS."H1140:"=>";B$RB$""840W::\f 3RD LINE OF POEM$p"S$"AUTUMN"S$"WINTER"S$"SPRING"710/k"ENTER ONLY ONE OF THE WORDS ABOVE. ":W150:1100:605q{::S$:W10:1100W10:1100"THAT'S THE FIRST LINE OF YOUR CINQUAIN."W300:1100W10:1100X - CHOOSING A TITLE$]:2Kb" WHAT IS YOUR FAVORITE SEASON? "[l" ------"kv" SUMMER"{" AUTUMN"" WINTER"" SPRING""TYPE IN TITLE'S NAME AND PRESS .""WHICH ONE? ";S$S$"SUMMER"710)NT TO QUIT=>";$A$:(A$)274327A$"Y"ĺ:564HA$"N"500Q:2"A CINQUAIN (SIN KWANE') IS A POEM THAT"&"HAS ONLY 5 LINES."0W150:11004:"I'M GOING TO HELP YOU WRITE A CINQUAIN."?1150:590DW150:1100NO WANTS":"TO TRY? (Y FOR YES OR N FOR NO)=>";@V$:V$"Y"ĬQV$"N"434i::"GOOD BYE ";N$D$(4):D$;"RUN MENU";::3: INTRODUCTION:"HI, "N$".""DO YOU KNOW WHAT A CINQUAIN IS? ""(Y, N, OR IF YOU WA20(B$)2))B$:( r(20(D$)2))D$:@ |(20(G$)2))G$:X (20(K$)2))K$: "WOULD YOU LIKE TO TRY ANOTHER CINQUAIN?" "(Y FOR YES OR N FOR NO)=>"; V$:V$""410 V$"Y"210 V$"N"410.:3:"IS THERE ANYONE ELSE WH INTRODUCTION TO GAME( 600:: TITLED 800: 2ND LINE OF POEMJ f 870: 3RD LINE OF POEMl " ,950: 4TH LINE OF POEM 6 @1030: 5TH LINE OF POEM J TN$", HERE IS YOUR CINQUAIN: " Y:: ^(20(S$)2))S$: h( EDUCATIONAL USE &*1 *MAY NOT BE SOLD.COPY-*O ! *RIGHT 1981 CUE,INC *m " ***********************s #y $ : W100:1100 : "WHAT IS YOUR NAME? ";N$ N$""ĺ"GEE, I THOUGHT EVERYONE HAD A NAME.":12:220 460:  * 333 MAIN STREET *;  * REDWOOD CITY *Y  * CA 94063 *w  * (415) 363-5472 *  * *  ***********************   ***********************  *PROGRAM MAY BE COPIED*  *FOR *-  * SAN MATEO COUNTY *K  * OFFICE OF EDUCATION *i  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * * CINQUAIN 12/13/1980& P HELPS MAKE CINQUAIN POEMS W ^ t APPLESOFT 16K}  DOREAN BARNES  ADAPTED FROM THE PET VERSION  *********************** *       0 fR10pR20 zR30*R407MCMC1ER1R1P1SR2R2P2aR3R3P3kR4P|MC12ī1140"IN YEAR ";(M12);" OF YOUR LOAN.":TB((((R1))))2"$";NR1:TATB:1150" WAS YOUR ANNUAL PAYMX$:X$"Y"X$"N"761-X$"Y"110N:298,0:16300,0:16368,0v :10:12:" * * * B Y E * * *":23D$(4):D$;"RUN MENU";: THIS ROUTINE ACCUMES * YEARLY FIGURES.4>HMC14ī970RMC12ī910\MC"THE INTEREST RATE IS ";TB((I)));I;"%"7::255E16368,0x"WANT TO DO ANOTHER":" ANSWER Y OR N=>";X$:X$"Y"X$"N"750X$"Y"11034,0:"IS ANYONE ELSE WAITING TO PLAY?""(Y FOR YES OR N FOR NO)=>";EST PAID:";vNC:TATB:1150%HBBP:"TOTAL PAYMENTS PAID ";\NB:TATB:1150b"TOTAL YEARS PAID";TB((D)));D"TOTAL MONTHS PAID"TB((A)));A"YOUR MONTHLY PAYMENT IS ";NP1:TATB:1150*I1ĪII100:NP:TA38:11507903AM0:BP1B:CP2CyJ$"S"K0ĺ:"** I'M COMPUTING AS FAST AS I CAN !! **":::K1&M0J$"D"MC12ĪMC14:790::DTB30IN"ORIGINAL LOAN AMOUNT:";XNE:TATB:1150b l"TOTAL INTERT";21);"PRIN RED.";32)"PRIN BAL."-34,2WP1P(I12)(1(1(1(I12))(L12)))eM1L12sP2PI12P3P1P2PPP3J$"S"ī530PN$"P"ĺ:M;PN$"S"ĺM;NP1:TA9:1150NP2:TA17:1150NP3:TA27:1150T?":" ENTER D OR S ";7;J$:J$"D"J$"S"310P@J$"S"ĉ:936:400XT:^"DO YOU WANT FAST OR SLOW PRINT:":" ANSWER F OR S ";:G$hG$"F"G$"S"350rG$"S"ĩ100w2000|:936#"PER";5)"PAYMENT";17)"IN ":250b":10:"# OF YEARS TO PAY:":"I.E. ENTER .5 FOR HALF A YEAR: ";L$#(L$)0ĺ"TRY AGAIN...":"# OF YEARS TO PAY:":L$:291'L(L$),DL:6:"DO YOU WANT A DETAIL & A SUMMARY LIST,":" OR JUST A SUMMARY LISUSE THE % SYSMBOL!"C:"(I.E. FOR 10% INTEREST, TYPE .1 OR .10)p11:"WHAT IS THE INTEREST RATE ";:I$:(I$)0ĺ"TRY AGAIN!":11:" ":250 I(I$)I1ī290"TRY AGAIN...":11:" *******":::M 18:"DO NOT USE A DOLLAR SIGN OR COMMA IN THE MORTGAGE!"y 13:"HOW MUCH IS THE MORTGAGE ";:P$: (P$)0ė:10:"TRY AGAIN!":229 P(P$) P1ĺ"TRY AGAIN...":229 EP:18:"USE A DECIMAL PERCENTAGE--DO NOT D0 E0 F19% K00 MC138 : "***************************************** ** -MORTGAGE CALCULATION- ** ***********************************  *PROGRAM MAY BE COPIED*=  *FOR EDUCATIONAL USE &*[ *MAY NOT BE SOLD.COPY-*y ! *RIGHT 1981 CUE,INC * " *********************** Z::298,0:16300,0:16368,0 d DONATED BY KEVIN ARMSTRONG n936 xA0 B0 C0 SOFTSWAP */  * *M  * 333 MAIN STREET *k  * REDWOOD CITY *  * CA 94063 *  * (415) 363-5472 *  * *  * *  ********************** ! ***********************? * *]  * SAN MATEO COUNTY *{  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  *  HOME MORTGAGES#  PAYMENTS, MONTHLY INT- EREST, PAYMENT TOWARD PRINCIPAL, AND PRINCIPAL LEFT AT THE END OF THE MONTH.  APPLESOFT 8K  BY KEVIN ARMSTRONG (S.F. APPLE CORE)        AT ";I100;"%"/" IS $";B5$Z."HAVE ANOTHER? ENTER Y OR N=>";n3C$:C$""1:758(C$)89ė:1200:180B(C$)781075G1210V:1200`180j958:"INVALID CODE -- TRY AGAIN --"t~Z12000:"PRESENT VALUE OF $";D;" ANNUITY"'L"FOR ";N;" YEARS AT ";I100;"%"Rn" IS $";Bx1060::5B(D((((1I)(N1))1)I))DB(B.5)1200"FUTURE VALUE OF $";D;" ANNUITY""FOR ";N;" YEARS N;" YEARS AT ";I100;"%"9" IS $";BC 1060Iz "FUTURE OR PRESENT VALUE? ENTER F OR P ";Q$*:4Q$"P"ī870>Q$"F"ī970HR1130\790f::5pBD(1(1(1I)N))IzB(B.5)1200!XBD(1((1I)N))"bB(B.5),l1200Hv"PRESENT VALUE OF $";DNr"IN ";N;" YEARS AT ";I100;"%"x" IS $";B1060::5BD((1I)N)B(B.5)1200"FUTURE VALUE OF $";D"IN ";ER L OR A ";Q$:'Q$"L"ī5208Q$"A"ī790B1130K450Q 23:"PRESS KEY AFTER YOUR ANSWR!":20"FUTURE OR PRESENT VALUE? ENTER F OR P ";Q$:&Q$"P"ī5900Q$"F"ī690:1130D520N::5N$N$""N$"R"O(N$)48(N$)57ĺ"THAT'S NOT A VALID ANSWER!":430h(N$)3N$"R":432tN(N$)N0N$"R":432N99N$"R":43223:"PRESS KEY AFTER YOUR ANSWER!":20"LUMP SUM OR ANNUITY? ENT|"ENTER INTEREST RATE ";:I$1}I$""I$"R"k~(I$)48(I$)57ĺ"THAT'S NOT A VALID ANSWER!":380(I$)3I$"R":382I(I$)I100I$"R":382I0I$"R":382I1420II100"ENTER TIME IN YEARS ";:R FOR A NUMBER OF YEARS."(,34,1916255;@1180EJ1200KTs^"ENTER AMOUNT-NO DOLLAR SIGN";:D$_D$""D$"R"`(D$)48(D$)57ĺ"NOT A VALID ANSWER":350a(D$)20D$"R":352bD(D$)cD0D$"R":352hrUAL ANNUAL (ANNUITY) PAYMENTS"*"3. THE FUTURE VALUE OF A PRESENT LUMP SUM, SUCH AS FROM PUTTING $3000 IN A BANK NOW."""4. THE FUTURE VALUE OF EQUAL ANNUAL PAYMENTS, SUCH AS FROM PUTTING $1000 IN A BANK EACH YEAA$:(A$)271210' (A$)131756 :::255< e "** THIS PROGRAM WILL CALCULATE **" "--------------------------------" "1. THE PRESENT VALUE OF A FUTURE LUMP SUM PAYMENT." $"2. THE PRESENT VALUE OF FUTURE EQ *";I "* S A V I N G S & L O A N S *";z "* *"; "****************************************"; 23:6:"PRESS TO CONTINUE...":6:"OR TO END THIS PROGRAM=>"; **********(  *PROGRAM MAY BE COPIED*F  *FOR EDUCATIONAL USE &*d *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " *********************** d:::255 n8 x"****************************************"; "* * SOFTSWAP *8  * *V  * 333 MAIN STREET *t  * REDWOOD CITY *  * CA 94063 *  * (415) 363-5472 *  * *  * *  ************* * ***********************H * *f  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  SAVINGS AND LOANS&  GIVES PRESENT OR FUTURE VALUE OF AMOUNTS OF MONEY AT DIFFERNT INTEREST RATES. PAYMENTS AS LUMP SUM OR ANNUITY.   APPLESOFT 8K  KEVIN ARMSTRONG       * KEVIN WACKNOV *+ * *C * 675 MATSONIA *[ * *s * FOSTER CITY,CA* * * * (415) 574-3192* * * * SEP. 17, 1980 * * * **************0$"X = A * 2 + B":/."X = A * B + A":J8"X = B * 2 + A * 2":]B"X = A ^ B":pL"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": *****************"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,50N1060,1070,1080,1090,1100,1110,1120,1130,1140,115THE ANSWER WOULD BE:"W9::8;::" + (";::20;::" X ";::4;::") = ";::88::"SINCE I WON'T BE TELLING YOU THE""FUNCTION, YOU ARE SUPPOSED TO DEDUCE IT""FROM YOUR ERRORS."1500:::(222)255420 YOU ARE"8R" SUPPOSED TO ENTER TWO NUMBERS SUCH"d\" THAT THE FIRST NUMBER PLUS FOUR"f" TIMES THE SECOND NUMBER IS 88."p" FOR EXAMPLE:"z" YOU MIGHT ENTER: A=8"" B=20"" THEN : 1500:*"FOR INSTANCE:"0] " 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 FUNCTION. THIS" ;"GAME. I WILL THINK OF A FUNCTION AND A"An"TARGET NUMBER. YOU WILL HAVE TO COME"t"UP WITH TWO NUMBERS SUCH THAT THEY WILL""PRODUCE THIS TARGET NUMBER WHEN THEY ARE""PLUGGED INTO THE FUNCTION."07&::::"A FUNCTION, DEFINED VERY GROSSLY, IS A"=0l:"SERIES OF STEPS THAT YOU PERFORM ON ONE"rDN"NUMBER (THE DOMAIN) TO PRODUCE A SECOND"Xb"NUMBER (THE RANGE). THIS GAME USES A"lv"VARIATION OF THAT DEFINITION IN@XABA:JXB2A2:'TXAB:3^XBA:AhXAB7:MrXAB:]|XABB2:kXB4A:yXA3B::418:"THE:16:"FUNCTION":18:"GAME"::8:"CREATED BY KEVIN WACKNOV"150Rĺ"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 1190 6XA2B: ,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 g XTAONAL 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 *  * *  * )  FUNCTION GAME 10/18/80, c PROBLEM SOLVING INVOLVING FUNCTIONSm w  APPLESOFT 16K  KEVIN WACKNOV   *********************** *      HAT'S NOT A VALID ANSWER..."::780/T(T$)< TS830B%m*" OH DEAR, THAT SHOULD HAVE BEEN ";Sw4WW191500:840>"": CNTRL GC:"RIGHT YOU ARE!"DZ111000:Z1HIMR::"THAT'S ALL!!!!"\DL12000:)1 QRSB > > DIVISION ALWAYS GIVES INTEGER ANSWER_ 6)I9,Q;" / ";R;" = ";m16368,0uT$T$""796Z((T$,1)):P((T$,1))(T$)2R1((T$,2,1)):R148R157796Z48Z57P48P57796798#:"TQ57675679>:"THAT'S NOT A VALID ANSWER..."::660JT(T$)WTP710]s" NO, IT IS ";P}WW11500720"": CNTRL G:"THAT'S RIGHT!"Z111000:Z1II13S((1)H)1R((1)H"CORRECT!"^Z111000:Z1%bI0lI13BvM((1)H)1TG((1)H)1ZdPMG6)I6,M;" X ";G;" = ";16368,0T$:T$""675(T$)2R((T$,2,1)):R48R57675Z((T$,1)):Q((T$,1))Z48Z57Q48((T$,1))64(T$)2R((T$,2,1)):R48R57567S5Z48Z57Q48Q57567\65687:"THAT'S NOT A VALID ANSWER..."::5408T(T$):TF600?D" OOPS, THAT SHOULD BE ";FNWW1O1500S610X"": CNTRL G ]: G:"VERY GOOD!")Z111000:Z10I;I13KD((1)X)XD0510hE((1)D)n xFDE6)I3,D;" - ";E;" = ";& > > SUBTRACTION ALWAYS GIVES POSITIVE ANSWER/16368,00T$1T$""567 3Z((T$,1)):Q(T$,2,1)):R48R57444C(T$)4R((T$,3,1)):R48R57444`Z48Z57Q48Q57444i445:"THAT'S NOT A VALID ANSWER..."::430T(T$)TC480:" SORRY, THE ANSWER IS ";CWW11500490"": CNTRL14 |I13C((1)X)*C0390:B((1)C)c > > ANY TWO NUMBERS ADDED TO MAX XmACBs6)I,A;" + ";B;" = ";16368,0T$:(T$)4ĺ"TOO BIG!"::435T$""444Z((T$,1)):Q((T$,1))(T$)2R( FOR * AND /X10:H4:3101X25:H10:310E"X100:H12:310U,X1000:H20b6:6:W0@ > > W COUNTS WRONG ANSWERSJ"OK, ";A$T" ANSWER THESE QUESTIONS -"^:"(REMEMBER TO PRESS 'RETURN' AFTER EACH ANSWER!)"h34,12r> KEY TO END..."A 9:"WHAT LEVEL DO YOU WANT TO START WITH?";O 16368,0b L$:L$""205u (L$)271069 (L$)49(L$)52204 L(L$) :5 L270,280,290,300  > > SETS LEVELS OF DIFFICULTY. X IS MAX FOR + AND -, H IS MAX6:" HI, ARE YOU READY FOR A MATH QUIZ? "T :"FIRST TELL ME YOUR NAME - ";A$h A$""Ģ10:140| :2:"OK, ";A$ :" THERE ARE FOUR LEVELS TO THIS QUIZ - " :"LEVEL 1 IS THE EASIEST, 4 IS THE HARDEST" 23:5:"...PRESS > J IS PASSMARK:NUMBER CORRECT OUT OF 12 xJ9:Y1:N0-  * *9  * 333 MAIN STREET *W  * REDWOOD CITY *u  * CA 94063 *  * (415) 363-5472 *  * *  ***********************   ***********************  *PROGR*************+ * *I  * SAN MATEO COUNTY *g  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *   MATH QUIZ OCTOBER '80) F FOUR FUNCTION, WHOLEd NUMBER DRILL-4 LEVELSl  APPLESOFT, 8K ADAPTED FOR APPLE BY B. GOODSON FROM THE COMPUTING TEACHER **********     368,0' (16384)155Ĺ16368,0:720M& (16287)127(16286)1273090S0 k.u *****************/u * *0u * KEVIN WACKNOV *5u * *:u * (415) 574-3192*?u * *Du * FOSTER CITY,CA*IuO! GO! GO!":. CHECK FOR PADDLEST (16287)127(16286)1273030^ 3120| ^PADDLES NOT PLUGGED IN :10 "THIS PROGRAM NEEDS PADDLES. PLEASE" "PLUG THEM IN NOW..." 22 "PRESS 'ESC' TO EXIT PROGRAM" 16A1$ĺ:"THAT'S THE SAME AS PLAYER #1!":1078|9:"HOW MANY PROBLEMS DO YOU WANT (3 TO 20) ";R$:R(R$):R3R20ĺ:1081:R(R)<:10:15:"GOOD LUCK"=A3:A1ABX110:20:10X:Y1500:Y:XL" GO! GO! GO! GO! GO! GO! GO! G2:"CORRECT, THE COMPUTER WILL GIVE YOU "::"ANOTHER PROBLEM TO SOLVE."u323:"PRESS TO CONTINUE...";4A$:(A$)1310765:3:"WHO IS USING PADDLE #0";:A$:A$""10776:"WHO IS USING PADDLE #1";:A1$7A1$""1078-8A$C$"YOUR OPPONENT SOLVES HIS TO WIN. .    "I)y." TO SOLVE A PROBLEM, YOU MUST TURN YOUR"0"PADDLE UNTIL THE ANSWER TO THE PROBLEM"::"APPARS ON THE SCREEN. THEN PRESS THE"::"BUTTON ON THE PADDLE. IF THE ANSWER IS"K KEVIN WACKNOV" X12500:X*30007A3:A13B::2g"WELCOME TO THE ADDITION RACE!"" I WILL GIVE YOU AND YOUR PARTNER A" "LIST OF ADDITION PROBLEMS APIECE. YOU""MUST SOLVE YOUR SET OF PROBLEMS BEFORE"703X$"Y"ĉ::1080:50m::2:"DOES SOMEONE ELSE WANT TO PLAY (Y/N)? ";:X$:X$"Y"X$"N"710}:X$"Y"ĬD$(4):D$;"RUN MENU";:::718:"THE"16:"ADDITION"18:"RACE:8:"CREATED BYRī350 X1Y1PA1A11:4507A1A11:A12A13a!20:A11:" ":450:21:958:"DO YOU WISH TO PLAY AGAIN? (Y/N) ";X$::X$"Y"X$"N"700X$"N"710:"SAME PLAYERS? (Y/N) ";X$::X$"N"X$"Y"E ^:4:A1$;" WAS ";(A1A);" TIMES AS FAST AS ";A$;"!!!":700e X1((1)10):Y1((1)10)x X10Y10450 P((1)14.16666) 20:A1:A12;") ";X1;" + ";Y1;" = ";P;" " (16286)128107 (16286)127520X1Y1PA12' nA:A2;") ";X;" + ";Y;" = ";P;" "> x(16287)128460U (16287)127130j PXYA2R300 PXYAA1:100 AA1:A2A3 A1:" ":100 ,:4:A$;" WAS ";(AA1);" TIMES AS FAST AS ";A1$;"!!!":700RIGHT 1981 CUE,INC *3 "***********************C (900: INITc 2X1((1)10):Y1((1)10)k 3:} 4X10Y1050 7A$;:20:A1$:34,1:24:" GOAL: ";R:35,23 dX((1)10):Y((1)10) iX0Y0100 k:P((0)14.16666)REDWOOD CITY *. * CA 94063 *K * (415) 363-5472 *h * * * * *********************** *PROGRAM MAY BE COPIED* *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* !*O COUNTY *) * OFFICE OF EDUCATION *F * & *c * COMPUTER-USING * * EDUCATORS * * * * SOFTSWAP * * * * 333 MAIN STREET * * \ ADDITION RACE 10/21/80+ V 2 PLAYER ADDITION PRACTICEa l  APPLESOFT 16K   KEVIN WACKNOV   *********************** * * * SAN MATE     DOMAIN - , ' IMPOSSIBLE FIGURE '2N20(CT$)2CT$ ""&0  GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS..  LAST MOD.OCT.1979 FOR CONVENTIONS UPDATE.  PROGRAM CLASSIFIED - PUBLIC SS THE SPACE BAR TO CONTINUE...>"8J(16384)155380PT(16384)160320k^ SPECIAL END ROUTINE.h16368,0:936:r16298,0::360|370:1010:"* * * THE END * * *"D$(4):D$;"RUN MENU";: PRINT CENTER ROUTINE T$"* IMPOSSIBLE FIGURE *":400DCT$"BY THOMAS W. KOTOWSKI":400\CT$"OCT 1979":400:CT$"THIS DRAWS THE IMPOSSIBLE FIGURE":400CT$"IN HI-RES GRAPHICS":400", PAUSE ROUTINE.621:" PRESS THE 'ESC' TO END"!@22:"< PRE56,27,71,96,185,1,0,1,0,58,26,115,125,1,0,1,0,129,158,147,185,0.6,-1.2,1,0,69,26,174,26,0,1,-0.6,1,36,71,147,71,0.6,1,-0.6,1,165,71,201,71,0.6,1,-0.6,1300380 CONVENTIONS ROUTINES.CT$(40):370 TITLE PAGE ROUTINE.3:C41,111,125,90,86,54,86,111,185,96,185,27,71,36,56,72,56,54,26,63,11,201,11,174,56,228,56,237,71,165,185,147,185,129,158,111,185,138,140,102,137,114,155,132,125,108,86,123,86132,98,138,86,123,86,138,110,165,71,201,71,192,86,174,86,147,125,165,155,228,,41:27,7181,71:72,56:NN16:132,125111,125:130 138,140165,185:156,140192,86:138,86147,71:99,71:201,11210,26:192,56 2:R16:X1,Y1,X2,Y2,A,B,C,D:Z115:X1AZ,Y1BZX2CZ,Y2DZ:Z:R 156,56,165,41,81,41,99,71,108,56,99,*FOR EDUCATIONAL USE &*5 *MAY NOT BE SOLD.COPY-*S ! *RIGHT 1981 CUE,INC *q " *********************** d TOM KOTOWSKI n210 x:3:NN6:99,71108,56:130:NN19:72,86102,137:130:140 N1NN:X,Y:X,Y::4 54,26174,26:165 *'  * 333 MAIN STREET *E  * REDWOOD CITY *c  * CA 94063 *  * (415) 363-5472 *  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  * *7  * SAN MATEO COUNTY *U  * OFFICE OF EDUCATION *s  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * 3  IMPOSSIBLE FIGURE 10/79-  DRAWS A FIGURE IN HI-RES GRAPHICS WHICH DEFIES THE LAWS OF PERSPECTIVE.   APPLESOFT 8K  TOM KOTOWSKI   ***********************      ORRY, BUT YOU FORGOT THE LAST NUM- BER. PLEASE PRESS RETURN AND THEN RE- ENTER YOUR NUMBERS. ";:IN$::(IN$)131170:1100K(B$):K1B$"":1190B$(B$,K1)(36)16ī1105((36)):868:1105sDEė:"I'M SORRY, BUT THOU FORGOT THE COMMA. PLEASE PRESS AND THEN ENTER YOUR NUM- BERS AGAIN. ":1000kyCO0ė:1100~D(B$):K(B$):I1K:B1$(B$,I,1):B1$","COI:1156IKCO11170E$(B$,(KCO)):E(E$)1200yB$"":E$""::"I'M SS NUMBER ";Q;" ";0QIN$:(IN$)13B$""1105DS(IN$)131130WV(IN$)81180i[IN$","1125`(IN$)48(IN$)571105: NON-NUMBEReB$B$IN$:IN$;:1105jCOMMA0:I1(B$):(B$,I,1)","CO1oIYtCO0B$""::"WHOOPS! YFRANCISCO FOR USE OF MEMBERS DEC. 1978 4fNp LAST MOD. JULY 1979Tzc ' TRAP 'i23:" PRESS TO CONTINUE...":6:"OR KEY TO END PROGRAM";Z$:(Z$)27740(Z$)131010LB$"":5:"GUES978":700;:CT$"GUESS THE APPLE'S SECRET NUMBER.":700_ 21:" PRESS THE 'ESC' TO END"*"< PRESS THE SPACE BAR TO CONTINUE...>"4(16384)155740>(16384)160800H16368,0::936:R.\ GIVEN TO APPLE CORE OF SAN "Y"IN$"N"740%IN$"Y"ė:200+k16368,0:16298,0::936:10:10:"* * * THE END * * *"D$(4):D$;"RUN MENU":3:CT$"* T R A P *":700CT$"BY STEVE ULLMAN":700CT$"MODIFIED BY G. LARSEN":700  CT$"DECEMBER 113)"YOU GOT IT !!!"#A15)"TRY AGAIN? (Y/N)?";UA$:A$"Y"390fA$"N"660 MODIFIED BY G.LARSEN 12/28/7874020(CT$)2CT$""::10:"WOULD SOMEONE ELSE LIKE TO PLAY? (Y/N) ";:IN$:IN$,:"MY NUMBER IS SMALLER THAN YOUR TRAP"<"NUMBERS."F1000O560t&:"YOU HAVE TRAPPED MY NUMBER."~+10000Q5:2::::"SORRY, THAT'S ";G;" GUESSES. NUMBER WAS ";X"."D640NRDXDEbERlv::X(N(1))1D0:E0(Q1G^:2:"PREVIOUS GUESS WAS ";D;",";E;" ":34,4:h1100yDEXD630DE470590DXXE550XD520:"MY NUMBER IS LARGER THAN YOUR TRAP""NUMBERS."1000560O TRAP MY NUMBER"A J:"I WILL TELL YOU IF YOU HAVE TRAPPED MY"m T"NUMBER, OR IF MY NUMBER IS LARGER OR" ^"SMALLER THAN YOUR TRAP" h:"TO GUESS A SINGLE NUMBER ENTER IT TWICE" r: |:"YOU GET ";G;" GUESSES TO GET MY NUMBER." 1000TIONS ( Y OR N )?";& Z$:Z$""2509 Z$"N"ĺ:380a Z$"Y"ĺ:"WHAT!!(Y OR N)?";:250g q 936x 4 "4)"I AM THINKING OF A NUMBER BETWEEN 1" ,"AND ";N" 6:"ON EACH GUESS, YOU ARE TO ENTER TWO" @"NUMBERS (A,B), TRYING TMAY NOT BE SOLD.COPY-*4 ! *RIGHT 1981 CUE,INC *R " ***********************X #^ $j ::12 10)"******* TRAP *******" D1750:D :12 :: G6:D0:E0 N100 -TRAP -STEVE ULLMAN, 8/1/72 10:"INSTRUC *  * REDWOOD CITY *>  * CA 94063 *\  * (415) 363-5472 *z  * *  ***********************   ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* * MATEO COUNTY */  * OFFICE OF EDUCATION *N  * & * l  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 333 MAIN STREET  TRAP 1/6/1981 < A NUMBER GUESSING GAMEC J ^ APPLE II 16Kg  CREATIVE COMPUTING  ORIGINAL BY STEVE ULLMAN  *********************** * *  * SAN     a() fTp`$z\d_ z\.a(ՠ٠ӠŠŠϠҭ)*a(ŠĠӠҠŮ)1cPa(ΠĠŠӠΠҠ)<Pa(ΠΠŠӠΠҠ T `$\d_\* a(ҠĠΠΠ),*a(ǠΠӠԠ٠),4a(̠ŠҠ)>a(̠ή)HcPa()RPa()\P-a(ΠӠΠŠԠƠΠɭ)a(ԠǮ)>cPa(٠ŠΠӠƠ)PPa(ŠΠӠƠҠ٠̠٠Ҡ)+Pa(٠٠ҠȠ)ǬǠҠ) T`%_\d_b\.a(Š̠٠נ̭),a(ӠΠƠҧӠí)+a(ŠҠŠϠŠ).a(ϠŠԮƠҠӠȭ)&cPa()0Pa():Pa() DTN`$X\d_X\-ba(ĠĠ ǠӮ)$lcPa(ŠԠ)&vPa(ҠǠ)0Pa(ϠӠ)'Pa(̠РӠ),Pa(ĠҠĠ) T`%_\d_\'a(ԠӠ̠ϠˠΠέ))a(ĠŠΠؠ)a(ƠŠԮ)(נӠή)|cPa()Pa()Pa() T`%_\d_T\'a(ՠԠРҠ),a(ǠΠΠǮ)'cPa(Ġ)R,Pa(ĠΠǠ)GPa(̠Ԡ̠) 6T@`%_J\d_J\&Ta(ƠՠŠĠҠ)&^a(ӬՠԠ٠)(ha(ԠƠҠӠƠ)ra]Ӡ] `%w[ ] ] ]ΠȠ ]ӠȠ ]M6o >a(ŠǠŠΠàԠӮ)@"cPa(ĠΠǠРӭŠȠӠŮ)P a(ĠŠΠ)P a()\'[]]]ԠҠ]] M6 a()M6o P  a(ԧӠ)\ NM6 qq co]`$} x\_ }\F_,M6P oa(Ů٠ή)\ Nq-rqM6co[]]]ҠǠΠŠ]]kM6oP a(ՠ͠ϠŠ)P a([ >\H[ ?\[FM6o P fIa(ՠŠ٠Ġ)P a(Ү٠Ԡ)P a(ΧԠŠԠŮ)K\'P[a]b]ǠҠc]d]i`%\-nq`$\[ %\~[ &\[ '\F[ (\[ )\[ *\T[ +\[ ,\[ -\b[ .\[ /\ [ 0\\[ 1\[ 2\[ 3\t[ 4\[ 5\[ 6\[ 7\[ 8\@[ 9\[ :\[ ;\N[ <\[ =\\[]\@[]\[]\[]\N[]\[] \[ \p[ \[ \ [ \j [ \ [ \2 [ \ [ \ [ \| [ \ [ \: [ !\ [ "\ [ #\ [ $^0O4>rN@"rqq\_\[]\T[]\[]\b[]έ\[]\ []\[]ɭ \[] \$[] \t[]ͭ \[] \[]\x[]                                     S ";A;" / ";B;" WHICH IS EQUAL TO ";G$M958:::"PLAY AGAIN? (Y/N) =>";aR$:R$"Y"220R$"N"ĺ:"WHAT!!!";:462:3:"IS ANYONE ELSE WAITING TO PLAY?""(Y FOR YES OR N FOR NO)=>";R$:R$""472R$"Y"ĬR$"N"47ENOMINATOR.":900:270g:"PLEASE TYPE IN A NUMERATOR, SLASH(/),":"DENOMINATOR!":900::270:"MY FRACTION IS LESS THAN 1":900::270::"YOU GOT IT!!!!! IN ";G;" GUESSES."BE460&::"MY FRACTION WA:'|"TRY A SMALLER FRACTION.":9002:270::`::"TRY A BIGGER FRACTION":900k:270:"THOSE AREN'T VERY GOOD NUMBERS":900::270:"THE DENOMINATOR MUST BE BETWEEN 2 AND 11.":"WHILE THE NUMERATOR IS LESS THAN THE"::"D(E$)&; CHANGE STRINGS TO VARIABLES7@D0E0399JE(S$)47410WJDE420iLE2E11400|ND1D10ī400O CHECK FOR IMPROPER FRACTIONST FIND DECIMAL EQUIVALENTS FOR BOTH FRACTIONS^CAB:FDEhCF430rCF390wGG1G$"0"1000-"L(G$):L5400:#L3300G$L4298w%D$(G$,1,2):S$(G$,3,1):E$(G$,4,2):310' B MUST BE LESS THAN 12*D$(G$,1,1):S$(G$,2,1):E$(G$,3,2):310,D$(G$,1,1):S$(G$,2,1):E$(G$,3,1)6D(D$):E...";:ZZ$:(ZZ$)13227 5 1";C$:(C$)13220(C$)27216470::"TO TELL THE COMPUTER W OF A FRACTION BETWEEN": ::" 0 AND 1"B :m "MY FRACTION WILL BE IN THE FORM A/B" :"WHERE B IS AN INTEGER FROM 2 TO 11" :" A IS AN INTEGER LESS THAN B." :: " FOR EXAMPLE, MY FRACTION COULD BE:"'LATORS AND COMPUTERS MAGAZINEE n ** LINDA M. SCHREIBER ** 8-4-77**P s::2w x" *** GUESS MY FRACTION***" y:: :"DO YOU WANT THE RULES (Y OR N)? "; R$:R$"N"220 R$"Y"ĺ:"TYPE Y OR N ";:140  " I WILL THINK************** 2  ***********************P  *PROGRAM MAY BE COPIED*n  *FOR EDUCATIONAL USE &* *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " *********************** # $ d ****GUESS MY FRACTION**** i CALCU  * *<  * SOFTSWAP *Z  * *x  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * (415) 363-5472 *  * *  *********D COMPUTERS MAGAZINE . L ***********************j * *  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS * 7 ADVANCED GUESS MY FRACTION 12/80@  PRACTICE IN COMPARING FRACTIONS THROUGH ELEVENTHS (X/11). APPLESOFT 8K   BY MARGE COLE FROM AN ARTICLE IN CALCULATORS AN!! ! ! ! ! !!!!!!!!  РѠРՠѠȠҠѮ)_ {̱@p(ΠΠؠԠѠŠŠɠΠؠՠΠڠՠ֠î)_ k$̱@p(ӠàӠѠ׬ȠŧȠѠȠàʠנ ˠЧĠנؠ ʠРנŮ)_ ẕ@p(ΠϠȠՠϠРڠѠʠ ϠڠڠנؠР)_ q̱@p(ѠѠȠՠѠǠǠ̠ؠѠϲβ $qβ_#q<@r` $*oPa(נϠҠˠɠΠ)_ ṟ@p(ؠɠؠàؠɠŠà֠Ѡɠנɠ̠ѠìĠŧؠή)_ i̱@p(נѧΠΠ6@rN$q/?rcc_bcca(Ƞ͠ӠԿ)a(Ҡ٠Ҡ͠Ϡ)a(ĠӠξ)GR@!`;@r$`;@r$8q8<@*#rrr`$q >βq<@*#rr`Ω)G$Bd6?eM6`.?6@rY$JC`.?6@rN$BDcE@p()a@E(Π)GQJcM6_1M6oWa(ϠՠŠ̠͠)a(ԠϠٿ٠ҠӠҠΠҠϩ)G$d6?eM6`.?6@rY$`.?Š)e6a(ŠϠŠ)a(נϠ٠נ)a(ŠӠξ)G7R@A@`@9()$x`@:()@:()$KM6`@9()$dIAM6oa(ӠŠŠŠ)a(ӠϠٿ٠Ҡ@r`$>̳@p@@Brp@`%@Brp̳@*r`@9()%@p()JUVW`̱@*#r:@$̳@p̲@̲@Brp@`%̲@Brp̳@*r Y_!`@:()@:()$@p()_F,`@9()@9()@9()$@a(РϠa̲@M61oa(ӠξҠǠ)]S(ҠҠϠź)&@`;@r$,q<@r`$,`@*#r:()$-a(٠ԠԠҠΧԠĮ)_Ra(Š̠Š)E@E(ӠϺ)GR@`;@r$q<Ҡź))oṞ@`̱@9()$oM6o\a̱@cx@p()q;̱@rd"e̲@p()UVW̲@Brp()`<̱@*rr<̱@*rr%̲@Brp̱@*#rYHUVW@p@*#rUVW`@9̱@*#r$Y@Brp()Y_@Brp()Yo a@a@cҠΠҠϩ)G&2d6?eM6c`.?6@rY$<6`.?6@rN$17cc8_d<\ Cdca(ϠՠԠϠҠ)a(ŠƠҠο٠ҠΩ)G$gd6?eM6`.?6@rN$h`.?6@rY$gid6?ecnM6oa(a()G0.a()G_/N@"rC@"rC@" rC@" rC̱@"rC̲@"rC̳@"r@p() 0N@" rH1oa(ϠՠԠŠӿ)a(٠ҠӠ ]٠ԠŠĮ٭!]ԠŬà"] (KM6)o0*a()G0+a()G0,a(àҠ٠РԠϠǠҠ͠)G0-]ΠԠ]Ġ٠]]]]]]͠٠ŠĪ]Ҡ̠Š]ΠϠ٠]ŠƠΠ]]ҭǠ]Ӡ]]Р]}$]͠ή ]R]ӠӠ͠ԠӠՠϠŠӮ ] ]]ŠҠ ]]Ҡ ]Š٩ ] ] ]"" " " " " """""""""