' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 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*`]q}o";CC$4<#CO,25,40:"use to determine the cost of"\F#CO,25,55:"finding prime numbers?"Z#CO,70,95:"1. a slow algorithm":CO,70,120:"2. a fast algorithm"d#CO,205,55:INP,(1,"-12",1),C$n# GET INPUT TO START AND STOPx#CL$B#CO,0,25:F1ī8020(C(P14):RP(P14)14<H((C1)(C4))zCO,37C72((X10)(X100)(X1000)(X10000))8,(5R)9XPP1(16384)211ī10008020(# COST OF FINDING PRIMES-#CL$2#CO,0,25:"What algorithm do you want t,25:H2$;CC$JWIND,141,20,255,34:X1100X2ĺ:CO,141,25:X2;CC$:8069X1199X2H3$(X1100)"-"(X2):CO,141,25:H3$;CC$:8069H4$(X1100)"-"(X1199):CO,141,25:H4$;CC$WINDI3(X)2XI(XI)I(X):F1I ,38,134,177,4:BOX,142,38,248,177,4:BOX,21,25,135,34,4:BOX,141,25,255,34,4:P0:V1X1X1}WIND,21,20,135,34:X2X10ĺ:CO,21,25:X2;CC$:8069~X2X10X2X199H1$(X1)"-"(X2)::CO,21,25:H1$;CC$:8069 H2$(X1)"-"(X199)::CO,21X11:8070Q8070TF0'^XX26cX3ī8110ThV1XVX2įSPACE:1000kjXX2įSPACE:1000mXXM100ī8070oXXM100X2X0įSPACE:1000rXXM100P42:8070wXXM100XXM200ī8070\|XXM200X1X:XMX1:SPACE:BOX,260)CX1OX22Ģ6:10:"2":SPACE:1000VDX10X1:XM1:6:10:"2":P1:V1:8020~FX11X22Ģ6:10:"2":SPACE:1000GX11X1:XM1:6:10:"2":P1:8020JX12X1:XM3:6:10:"2":P1:V1:8020MX13ī8110 OX12(X12)XX11:XM21,25:H1$;CC$:8000+CO,21,25:H2$;CC$CWIND,141,20,255,34kX1100X2įCO,141,25:X2;CC$:8000X1200X2įCO,141,25:H3$;CC$:8000CO,141,25:H4$;CC$@ CHECK FOR PRIMALITYAP0:XX1:XMX1:V0:WINDBX10X21ĺ:SPACE:100135,37135,17825,17825,37E141,37249,37249,178141,178141,37H1$(X1)"-"(X2):H2$(X1)"-"(X199):H3$(X1100)"-"(X2):H4$(X1100)"-"(X1199)WIND,21,20,135,34X2X1OįCO,21,25:X2;CC$:8000X2X10X2X1100įCO,N2$)(N1$)įCO,40,140:"Type a number greater":CO,40,152:"than "(N1$)".":6075qX MAKE CHART AND HEADINGSz]CL$vCO,0,0:"Density of Prime Numbers";CC$:CO,0,10:"Between "X1"-"X2;CC$519,35255,35255,18019,18019,3525,37CO,8,120:"the search at?"GCO,130,120:INP,(5,N,1),N2$:X2(N2$)p(N2$)50000įBOX,39,139,250,160,0(N2$)(N1$)įBOX,39,139,250,160,0(N2$)50000įCO,40,140:"Type a number less than":CO,40,152:"or equal to 50000.":6075S(R WHIZ","Factor Whiz is a game that requires the application of factoring skills. One or two players can play it."?e or two players can play it."Ccation of factoring skills.","One or two players can play it.","","",""She cost of checking for primeness."ynà "Factors","FACTORS","Factors lists all the factors of any number up to 5000."xà "Prime Factors","PRIME FACTORS","Prime Factors lists the prime factors of any number up to 5000."sà "Factor Whiz","FACTO":30000: Pò USER DATA AREAEZò"Prime Numbers","Version 1.0",4#dà "Primes","PRIMES","Primes enables you to access a program submenu to see a list of prime numbers being generated, to obtain the number of primes within a range, or to determine tle not found.";:321006}ZE8ĺ"I/O Error.";:32100n(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:2}:"Error #"ZE" in line #"ZN" in Menu Program. Please report this error to MECC.":30000: d}" Please check your disk drive and diskette.11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:P0uSPACE BAR ROUTINEa:u:SPACE::vyPROCESS ESC-ESC"y2000,y}ERROR PROCESSING }ZE(222):ZN(218)(219)256:ZE255Ĭ}CO$CL$:WIND:HSP:VSP:CO,0,80:ZE6ĺ"Error: FiWIND,ZX,ZY,250,ZY12:DL$(127)F2#DL$:CO,ZX,ZY:9100:AZ:A19070^<#A49A(48N)9010qF#(A);DL$;CA$;P#9100:Z139070Z#Z8Z127įCO,ZX,ZY:CEL:9010d#9040n#AA48:A1A1x#XX(XX):SEED RANDOM # GENERATOR#:9#ZL0:1100VTA(2)TA(1)X0:XX0:1200'VLYWaVQA((1)2):CM$"Congratulations":A1CM$"Fine job"VTWIND,23,13,257,120:NU$"2"įWIND,3,13,275,120VVCO:CEW::CO,65,70:CM$", "NA$;:WI(1)1WI(3)1ĺ:CO,65:" and "NA$(2);V["!W`CO,W:30000:CO,0,162:CEW+USE(1)SE:SE0:GC0:CO0dUCOCO1:FA(CO)0CRFA(CO):GC0:I$(CR):2150:993qUSESE(1)U2800:SEī810UX18:30000UWIND:CO,0,163:CEWU:CO,20,163:NA$:CO,178,163:"Factor Whiz"UTA(1)TA(2)X0:XXCO,VX((I$))8,175:",";:VXVX(I$)88:DB::CO,VX,174:960{T(I$)0įCO,VX10,175:" ":WIND:30000:CO,0,162:CEW:992T2800:SE0įCO,0,163:992USE(3)0įWIND:CO,0,182:CEL:I$;" is not a factor of "WX"."(3):PAUSE,50:CO,0,182:CE00:SEįCO,VX,174:960RSCOCO1:2900:SE(I$)0SE0:CR(I$):2150:FA(CO)(I$):SE1SI$""CO2įCO,VX,174:CO,ZX,ZY:"nothing":WIND:30000:CO,0,165:CEW:992S(I$)0SE0SE(3)SE:SE1:9807TTA(1)TA(1)(I$):CO,67,148:TA(1):DB::E0:CRX:I$(X):GC8:2150:SESE(2)?R2800:FA(1)WX:CO1:SE0ī992R:WIND:CO,0,183:CEL:HSP,1:"Press RETURN if there are no factors."(3):HSP,2:CO,0,174:NA$" takes: ";(1);:GCP,ZX,ZY:VXZXS(1);:GCP,ZX,ZY:INP,(2,N,0),I$:I$""İ20FA(1)(I$):992"Qf30000:CO,0,163:CEWMQoSE(1)SE:SE0:GC0:CR(I$):2150:CO0xQpCOCO1:FA(CO)0CRFA(CO):2150:880QzSESE(1)QQWIND:RNU:FFNU4:50::CO,0,165:FZ$" chooses: ";RWX:TA(2)TA(2)X:CO,227,148:TA(2):SE(2)SE:S(CO)0TA(2)TA(2)FA(CO):850NPU(FA$)18įCO,20,174:FZ$" takes: ";:PAUSE,7:CO0PV(FA$)17įCO,20,174:"F.W. takes: ";:PAUSE,7:CO0PWFA$:WIND:CO,227,148:TA(2):CO0P\COCO1:FA(CO)0CRFA(CO):2150:PAUSE,2:860QaCO0:2800:SE0SE0ī700OSESE(1):610"O2300:CO0ROCOCO1:GC0:FA(CO)0CRFA(CO):2150:710\O1010bO pO%VSP:HSPO*BX20:BY15:BA$"chooses":2400O4SEī810O9TA(1)TA(1)(I$):CO,67,148:TA(1):CR(I$):2150O>OHCO0PRCOCO1:FAC1:XI(XI)I(X):F1!$%I0$%F1ī9410=$&%TDTDDCM$0%P18ī9550U$:%P0$D%SPACE:BOX,8,85,132,177,4:BOX,136,85,272,177,4$N%C(P9):RP(P9)9$S%H(C1)$X%11R:(8C18)(X10)(X100)(X1000)(X10000)$b%X'%l%11R:(7C18#$X10X21İ10000:1000p#$X12X22Ģ11:8:"2":11:16:"0":X1:P1:CO,75,41:TD:CO,252,41:CS$:9410~#$X39550#$X12(X12)XX11:9480#$9480#$F0:U(3)#$XX2#$XX2İ10000:1000#$X3ī9550$%DC0:I3(X)2:DCDhecks"s"r$CO,164,66:"#":CO,143,75:"_______":CO,202,62:"Division":CO,202,75:"________":CO,205,70:"Checks""w$(C$)1ī9700"|$ FAST ALGORITHM"$ CHECK FOR PRIMALITY"$ DIVISION CHECKS & COST"$P0:DC0:CS$".00":TD0:F0:CS0:H0P,1:CO,142,41:"$.10/100: $"F!J$CP$:5,55275,55275,1805,1805,55!T$CP$:7,57133,57133,1787,1787,57:CP$:135,57273,57273,178135,178135,57!^$CO,36,66:"#":CO,15,75:"_______""h$CO,70,62:"Division":CO,70,75:"________":CO,73,70:"C(C$)1įCO,0,18:"(Slow Algorithm)";CC$:9240R $CO,0,18:"(Fast Algorithm)";CC$Y $5 "$CP$:5,28133,28133,515,515,28 ,$CO,10,31:"Total Division":CO,10,41:"Checks:" 6$CP$:135,28275,28275,51135,51135,28!@$CO,142,31:"Cost at":HS0,152:"or equal to 50000.":9140|#(S2$)(S1$)įCO,40,140:"Type a number greater":CO,40,152:"than "(S1$)".":9140# ***MAKE CHART***#CL$#CO,0,0:"Cost of Finding Prime Numbers";CC$#CO,0,9:"Between "(S1$)" - "(S2$)CC$- $,105:"Which number do you want to stop":CO,8,120:"the search at?"p#CO,130,120:INP,(5,N,1),S2$:X2(S2$)#(S2$)50000įBOX,39,139,250,160,0#(S2$)(S1$)įBOX,39,139,250,160,0!#(S2$)50000įCO,40,140:"Type a number less than":CO,4"Which number do you want to start";CC$:CO,8,40:"the search at?"r#CO,130,40:INP,(5,N,1),S1$:X1(S1$):XX1#(S1$)10000įBOX,40,60,250,80,0#(S1$)10000įCO,40,60:"Type a number less than":CO,40,72:"or equal to 10000.":9100D#CO,8R1(((CR(XX.1)))XX)):YYSDY((((CR1)XX))):CR10įBOX,X1,Y3VA,X15,Y13VA,GC:wfuBOX,X,Y3VA,X16,Y13VA,GC:~f 1g CO,0,159:CEW:2450:CO0:WIND:CO,0,163:CEW:FA$"":CA$:CO,0,155(M1)4:"Factor Whiz gets: ":X1NU:M(M,X)1įCEW:SE1: ee4e9SEıe>M(M,CR)0:X7(CR(((CR.5)GX))GX1)(114(3(BO$)))4(CR10)NO138:Y16(((CR.5)GX))VS:CR10įBOX,X5,Y2VA,X10,Y8VA,GC:eCBOX,X2,Y2VA,X14,Y8VA,GC:efekSEıSfpM(M,(I$))0:XXSDX(CCEL:"Sorry, that is too large."(3):PAUSE,50:CO,0,181:CEW:SE1:d(I$)0įCO,0,182:CEL:"Type a number greater than 0."(3):PAUSE,50:CO,0,182:CEW:SE1:eM(M,(I$))0įCO,0,182:CEL:"Sorry, that has been taken."(3):PAUSE,50:CO,0,182:1WI(3)1)ī1775cWI(1)WI(3)1790c:WIND:AFT,1,3:CO,81,147:NA$:CO,140,147:"Factor Whiz":AFT,1,0:CO,22XX,136:TA(1NO2):CO,81XX,136:TA(2NO2)c1200cI14:WI(I)0:I:43000cc S/R =dWIND:SE0:(I$)NUįCO,0,182:(2NO2):CO,121,125:"Score"0bWI(2)1WI(4)1ī1780Kb1100:W(1)W(2)ī1790bCO,0,146:CEW:BOX,XX4,135,XX53,143,0:BOX,XX64,135,XX112,143,0:WI(1)1WI(3)0NA$NA$(2):NO1bWI(1)0WI(3)1NA$NA$(1):NO0 c(WI(1)0WI(3)0)(WI(1),XX116,145,2:BOX,XX3,135,XX54,143,0:BOX,XX63,135,113XX,143^aWI(1)0WI(3)1NA$NA$(2):NO1aWI(1)1WI(3)0NA$NA$(1):NO0b:WIND:AFT,1,3:CO,81,147:NA$:CO,140,147:"Factor Whiz":AFT,1,0:CO,22XX,136:TA(1NO2):CO,81XX,136:TA`WI(Y1)1 `Y`XX80:(WI(2)1WI(4)1)(WI(1)1WI(3)1)įAFT,1,3:CA$:CO,0,147:NA$(1):CO,59,147:"FACTOR WHIZ":CO,162,147:NA$(2):CO,214,147:"FACTOR WHIZ":AFT,1,0:17609aXX80:BOX,0,125,279,170,0:BOX,XX,133,XX57,145,2:BOX,XX59,133CR(I$):2100:CO07_/COCO1:FA(CO)0CRFA(CO):2100:1583R_0TN(1)1TN(2)1ī1700t_6SESE(1):XNO22:3400:1510_ENDROUTINE_NO1:NA$NA$(1)_WIND,3,13,275,120:CO:CEW:WIND_XX65:X33:Y132:TA(Y)TA(Y1)WI(Y)1:1730A$,L01,(FA$)L01):CO,235,148:TALLY(2):CO0:L019:1560G^FA$:WIND:CO0|^COCO1:FA(CO)0CRFA(CO):2100:PAUSE,2:1560^"TM(NO1)1įCO,81SSNO,136:TA(2NO2):2700:30000:WIND:CO,0,148:CEW^,SE0TM(NO1)1 _.SE(1)SE:SE0:GC0:2400:]TA(NO21)TA(NO21)(I$):CO,22NOSS,136:TA(NO21)@]s]CO,0,162:"Factor Whiz gets: ";:PAUSE,3:CO0]COCO1:FA(CO)0TA(2NO2)TA(2NO2)FA(CO):1550](FA$)18ī15553^WIND:L01618:(FA$,L0,1)","ĺ(FA$,1,L0):(FY:X1NU:M(1,X)0:X2\TN(1)0:TN(2)0:TM(1)0:TM(2)08\]\SS162:SX130:NO1:(A$)23600\NO(NO):XNO21:3400:TM(NO1)1TN(NO1)0TN(NO1)1:BY24:2300:1570\TN(NO1)1ī1510\XSXS(1):NA$NA$(NO1):BA$"takes":BX0:BY30:OX,0,Y1,57,Y2,2:BOX,59,Y1,116,Y2,2:BOX,162,Y1,219,Y2,2:BOX,221,Y1,278,Y2,2:Y1Y12:Y2Y22:BOX,3,Y1,53,Y2,0:BOX,63,Y1,113,Y2,0:BOX,165,Y1,215,Y2,0:BOX,225,Y1,275,Y2,0\AFT,1,0:M(3,62):Y23:X1NU:M(Y,X)1:X:Y:Y23:XNU162:M(Y,X)0:X::CTRL09:L19Z:8ZL1NR1:Y13VSL:142,Y278,Y:ZCT0:L008:L103(BO$):CTCT1:CO,145L1(114(3(BO$)))4(CT10),16L0VSVA:CT:CTRL09:L19Z:ZHSP:CO,40,125:"SCORE ":CO,201,125:"SCORE "[Y1133:Y2145:BBOX,0,10,278,123,2:BOX,3,13,137,120,0:BOX,141,13,275,120,0mYNR((R.5)(4(BO$)))1:VS108NR:VA(VS11.5)2Y2:L1NR1:Y13VSL:2,Y138,Y: ZHSP,1:CT0:L008:L103(BO$):CTCT1:CO,7L1(114(3(BO$)))4(CT10),16L0VSVA:CThis time.":30000XNU$(49)43000$X.XxWINDcXzTI$(1)"Pick a Number":TI$(2)"Pick the Factors"X{(BO$)1R((1)11)10:GX5:NUR:1420X|(BO$)2R((1)20)21:NUR:GX6:1420X}R((1)20)41:NUR:GX7XCL$TI$((A$))(3)6Y110,90:IMAGE,1,110,25:30000(WeNU$"1"43000.Wj6WCWjWWIND,23,13,257,120:NU$"2"įWIND,3,13,275,120WCO:CEW:IMAGE,1,30,30:DB::CO,70,72:"Sorry, "NA$;:WI(2)1WI(4)1ĺ:CO,70:" and "NA$(2);W"." X:CO,70:" I won! --t ɛ MBpBp0LDpBpɈTPɿɯ,p 詍0@ɍp7,p pCp) }pCp9p Џ pLo ` ֩PyQ AL }ppp`uptp Uptpup` ~L_pH)hJJJp`LANCS AZ09!/:"(3):PAUSE,50:CO,0,182:CEW:30000:CO,0,148:CEWHuSE(1)SE:SE0:GC0:CO0uCOCO1:FA(CO)0CRFA(CO):GC0:I$(CR):2100:3793uSESE(1)uX2NO2:3400:2800:SE0TM(NO1)1uTM(1)1TM(2)1ī1700uNO1ī3605u3705v0uWIND):CO,VX(I$)8,165:",";:VXVX(I$)88:DB::CO,VX,165:3760~t(I$)0įCO,VX10,165:" ":WIND:30000:CO,0,148:CEW:3792t2800:SE0TM(NO1)1:TM(1)1TM(2)1įCO,0,148:1700,uSE(3)0įCO,10,182:CEL:I$;" is not a factor of ";WX;".B:CO,VX,165:3750NsCOCO1:2900:SE(I$)0SE0:CR(I$):2100:FA(CO)(I$):SE1sI$""CO2įCO,VX,165:"nothing":WIND:30000:CO,0,148:CEW:3792s(I$)0SE0SE(3)SE:SE1:37809tTA(1NO2)TA(1NO2)(I$):CO,NOSS22,136:TA(NO21WX:CO1:SE0TM(NO1)1:TM(1)1TM(2)1įCO,0,130:30000:CO,0,148:CEW:1700r:WIND:HSP,1:CO,0,183:"Press RETURN if there are no factors."(3):HSP,2rCO,0,165:NA$(NO1);" takes: ":CO,VX,165:CEL sINP,(2,N,0),I$:I$""İ2000:SEĺ:D:3400q|SX50SXSX10Iq~WIND::50:CO,0,150:FZ$;" chooses: ";I$:FFNU4eqXSXS(1):NO1XSXS(2)qTA(2NO2)TA(2NO2)X:CO,81NOSS,136:TA(2NO2):SE(2)SE:SE0:CRX:I$(X):GC8:2100:SESE(2)qVX((NA$(NO1))7)9Gr2800:FA(1)0:CR(I$):2100:CO09pOCOCO1:FA(CO)0CRFA(CO):2100:3663LpPX2NO2:3400gpQ2800:SE0TM(NO1)1pSTM(1)1TM(2)11700p`NO0ī3605ptSWITCHpyVX((NA$(NO1))8)8:NO(NO):CO110:FA(CO)0:COpzTM(NO1)13795p{X1NO236:TA(1NO2)o.FWGETSECo8CO0VoBCOCO1:FA(CO)0TA(2NO2)TA(2NO2)FA(CO):3650oGCO,0,162:FZ$" takes: ";:FA$:WIND:CO0oLCOCO1:FA(CO)0CRFA(CO):2100:PAUSE,2:3660oMCO,SSNO81,136:TA(2NO2) pN30000:CO,0,148:CEW:GCR X1M2nf X3M3nz MnTM(1)0:TM(2)0:SX130:SS162:NO1:TWOPLAYERSWITCHknNO(NO):TM(NO1)13665nXNO21:XSXS(NO2):3400nNA$NA$(NO1):BA$"chooses":BX0:BY30:2400n$SE3610o)TA(1NO2)TA(1NO2)(I$):CO,22NOSS,1DYL0:21,Y259,Y:L0(m XXS:YYS:CO0:HSP,1^m I1YY:G1XX:CONUCO9įCO,X6,Y5:(49CO)m CONUCO9įCO,X2,Y5:(48((CO1)10)):CO,X9,Y5:(48CO1(((CO1)10))10)m* COCO1:XXDX:G:YYDY:XXS:Im> mH RESETMATRIXnX)27403l YX111:M(M,Y)1X((XY))YSE1:OX:PY:l YFl SEX1Ol X:Ul wl SE0:FF1NU:M(M,FF)1SE1l FF:lT l^ SE0:(I$)0SE0:WX(WX(I$))(I$)SE1lh l DRAWBOXESl 1m 2:L01YY1:YYS((YS10)2)(A$)1ī2600$k TT0FA$"nothing":2550Qk FF110:FA(FF)0FA$FA$(FA(FF))","mk FF:FA$(FA$,(FA$)1)sk yk( k2 CO,0,174:"There are no factors of "I$"!"(3):SE1:SPACE:CO,150,165:CEW:k k X0:Y0k SE0:XNU11:M(M,2410jt j F130:FA(F)0:: j *j SEıDj (A$)1(I$)12600jj (A$)2(I$)1FA(1)0:M(M,1)0j TT0:CO1:FA$"":2450:FF1(I$)1:(I$)((I$)FF)FFM(M,FF)1FA(CO)FF:COCO1:M(M,FF)0j FFk X110:TTTTFA(X):X:TT0SSNOMX(M1)8,160BY:TALLY(2NO2):CO0:L019:23308i L0pi 30000:WIND:CO,0,160(M1)(M1)7:KL(0):CEW:vi` ij :FA$"":SE0:CO,BX,180BY:CEL:NA$" "BA$": ";:INP,(2,N,1),I$:2000:SE0İ2500:CR(I$):GC8:NA$(1)""İ2100io SEī(FA$)19įNOJUST:CO,0,155(M1)4:"Factor Whiz gets: ";(FA$,(FA$)1):WIND:CO,81SSNOMX(M1)8,160BY:TA(2NO2):PARSE:23300i WIND:L01618:(FA$,L0,1)","įCO,0,155(M1)4:"Factor Whiz gets: ";(FA$,1,L0):(FA$,L01,(FA$)L01):CO,81COCO1:FA$FA$(X)",":FA(CO)X:TA(2NO2)TA(2NO2)X8g Xhg SE(1)SE:SE0:GC8:CO0:WIND,0,160,274,191g COCO1:FA(CO)0CRFA(CO):I$(CR):M1İ2150:2317g GC8:(FA(CO)0)(M1)İ2100:2317g MX0:(M1)BYBY6:MX154h (FA$)1CO,8,40:"the search at?"ICO,130,40:INP,(5,N,1),N1$:X1(N1$)p(N1$)10000įBOX,40,60,250,80,0(N1$)10000įCO,40,60:"Type a number less than":CO,40,72:"or equal to 10000.":6040CO,8,105:"Which number do you want to stop":"1. the range of 1-500"BCO,60,95:"2. a range of your choice"CO,18,150:"Which number do you want?":CO,223,150:INP,(1,"-12",1),B$p CHECK INPUTz(B$)1X11:X2500:7000CL$CO,0,25:"Which number do you want to start";CC$ C(P14):RP(P14)14WX CO,74C72((X10)(X100)(X1000)(X10000))8,(4R)9^b Xhl PP1rv 3020 DENSITY OF PRIME NUMBERSCL$CO,18,25:"You can see all the prime numbers"CO,18,40:"that there are in"CO,60,70: X99999įSPACE:10009 I2X1:XI(XI)IX1:F1@ IQ U15531000` F1ī3020o P423150& P0:BOX,20,171,250,180,40 SPACE:BOX,30,28,96,167,4:BOX,104,28,172,167,4:BOX,180,28,248,167,4::CO,0,174:"Press ESC to exit"CC$N4::CO,0,174:"Press ESC to exit";CC$CC(P14):RP(P14)14CO,74C72((X10)(X100)(X1000)(X10000))8,(4R)9XPP12160 SLOW PRIME GENERATOR X1:P0 F0:U(3) U15531000 XX1 X3ī31000:U(3) uU15531000# XX22 X4ī2220L X99999įSPACE:1000s I3(X)2:XI(XI)I(X):F1z I F12160 P42ī2250 P0:BOX,20,172,250,180,4&SPACE:BOX,30,28,96,167,4:BOX,104,28,172,167,4:BOX,180,28,248,167,7023,17023,254 *29,2797,2797,16829,16829,27^ 4103,27173,27173,168103,168103,27 >179,27249,27249,168179,168179,27 CCO,0,174:"Press ESC to exit";CC$ H(S$)1ī3000 R FAST PRIME GENERATOR \X1:P1 a5:10:"2" pFCO,60,95:"2. a fast algorithm"M CO,18,150:"Which number do you want?"q CO,223,150:INP,(1,"-12",1),S$z CL$ 5 (S$)1įCO,28,5:"SLOW PRIME NUMBER GENERATOR":2080 CO,28,5:"FAST PRIME NUMBER GENERATOR" 23,25255,25255,1;:GCP,ZX,ZY3 LCO,ZX,ZY:CEL:INP,(1,"-14",1),A$F V(A$)431030` `(A$)2000,5000,9000y  PRIME NUMBERS LIST CL$ CO,0,25:"You can see prime numbers being";CC$ CO,18,40:"generated using" CO,60,70:"1. a slow algorithm"!  CO,0:"Primes";CC$::4 CO,20:"Options:":Y CO,30:"1. Prime Number List": $CO,30:"2. Density of Prime Numbers": .CO,30:"3. Cost of Finding Prime Numbers": 8CO,30:"4. Return to main menu":: BCO,20:"Which number? "(1)z" PROGRAM: PRIMES4PROGRAMMER: NANCY MILLERNCOPYRIGHT: MECC,1984t( LAST UPDATE: 84/07/25 NM z230,64:24576:16384CC$(3):CL$(12):D$(4):CN$(14):CP$(16):CO$(15):RNH,"USR.OBJ-A$88C4":U(0)HSP,2           xx|| |x ````l8|x0x0x| x0`0````0``0``v000xxxlxx x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````|| x````8p`````l 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` x@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEPAUSCWININjymmfkUkxkkkkkkkdkk#lmcmmm n`lllll~~~0` pvv0`0``0`000`~<~0000``:CO::CO,0,183:CEL:SPACE:!vy43000'v}Yv }ZE(222):ZN(218)(219)256:216,0:32000v}WIND:VSP,1:ZE255Č54915:31000vx}(12):CO,0,89v}"Error "ZE" at line "ZN" in FACTOR WHIZ"v}:"Please report this error to MECC."v}30000"One moment please...":RNH,"MENU"U"C?to try other numbers? "(1);:INP,(3,"YESNO",1),B$I6(B$,1)"Y"ī1100h@(B$,1)"N"įHSP,2:31020rJ1580yCL$:CO,0,89:"Would you like to try again? ";:INP,(3,"YESNO",1),A$:A$(A$,1):A$"Y"A$"N"31000"yA$"Y"Ĭ",yCL$:CO,0,89:0:V5:H4:N10!L4V13:N100X(I$(L))KV:H(H29):X;:12SN0]NN1nNX2ī1560XN(XN)ī1490N",";N1N1((N))1N125N10::121490X"L'PARSE2,CO,0,180:CEL:"Do you want "CS$:CS$(CS$,8)()&CO,217,41:CS$2)&PP1<)&9740_)'END OF CALCULATION SUBROUTINE)'CO,0,183:"End of the calculations."CC$:PAUSE,510:CO,0,183:CEL:SPACE:)y END)yU155U05*"yHSP:CL$:10:"Would you like to try again? ";:I(X100)(X1000)(X10000)"(&X<(&BOX,10,181,275,191,4v(&11R:(7C18)9(DC9)(DC99)(DC999)(DC9999)H~(&DC(&CO,75,41:TD(&CS(TD.10.5)100(&CS.01CS$".00":9898(&CS$(CS.001):L(CS$)1(&CS$(CS$,L))&CS$" X2įCO,0,184:CEL:10000:1000O'4&DC0:I2X1:DCDC1:XI(XI)IX1:F1V'>&Ie'H&F1ī9740r'R&TDTDDC'\&P18ī9850'f&P0'p&SPACE:BOX,8,85,132,177,4:BOX,136,85,272,177,4'z&C(P9):RP(P9)9'&H(C1)(&11R:(8C18)(X10)M&% CHECK FOR PRIMALITY9&% DIVISION CHECKS & COSTx&%X1500įCO,0,184:"The computer is now calculating.";CC$&&P0:DC0:CS0:TD0:F0:H0&&X10X21İ10000:1000&&X13X2:9850& &9780& &F0:U(3)&&XX1& &X3ī9850'*&X)9(DC9)(DC99)(DC999)(DC9999)H/%v%DCA%%CO,75,41:TDY%%CS(TD.10.5)100u%%CS.01CS$".00":9625%%CS$(CS.001):L(CS$)1%%CS$(CS$,L)%%CS$" "CS$:CS$(CS$,8)%%CO,217,41:CS$%%PP1%%9410&%SLOW ALGORITHz#???    Ҡڮ!ԮԠ"ŮԠ ĠԲԠ Ԯʠ̮ʠϠ Үʭô̮ʠҠڮԠҠڠҮԠŠӠϠ ՠ Ӡ$Ӡ ŠӠ Ҡڠ:7,10277,1741,1741,10:5,12273,12273,1725,1725,12 <CO,15,20:"Number":CO,145,20:"Factors":8,2868,28:77,28270,28 x FIND FACTORS }HSP,1 NOJUST N0:N10:V5:H4 L1M L2V13:N10L3įSPACE:BOX,18,30,270,171,) (I$(3))5000ī11700 (I$(3))0ī1300j M3:CO,85,125:"D. ":CO,100,125:INP,(4,N,1),I$(4) (I$(4))5000ī1200 (I$(4))0ī1300 (I$(4))5000M4  DISPLAY SCREEN CL$:HSP,2 (CO,0,0:"Factors";CC$7 21,1027VCO,85,80:"A. ":CO,100,80:INP,(4,N,1),I$(1)J `(I$(1))5000ī1110` j(I$(1))031000 tM1:CO,85,95:"B. ":CO,100,95:INP,(4,N,1),I$(2) ~(I$(2))5000ī1140 (I$(2))0ī1300 M2:CO,85,110:"C. ":CO,100,110:INP,(4,N,1),I$(325,45:"For what four numbers do you":CO,25,60:"want the factors?" QHSP,1:CO,0,170:"Type '0' if you don't want more numbers.";CC$:1,165277,165277,1801,1801,165 SHSP,2 TCO,85,80:"A.":CO,85,95:"B.":CO,85,110:"C.":CO,85,125:"D."1 SP,9:Y $"The computer will search for the factors of any numbers between 1 and 5000."_ ) ."You can request the factors of up to four different numbers at a time." 3VSP,1 8SPACE B GET INPUT D LCL$:HSP,2:CO,0,0:"Factors";CC$:CO,$ PROGRAM: FACTORS5PROGRAMMER: NANCY MILLEROCOPYRIGHT: MECC,1984p( LAST UPDATE: 84/07/17 NM v2230,64:24576:163845HSP,2CC$(3):CL$(12):D$(4):CN$(14) FIRST SCREENCO,0,0:"Factors";CC$ V  ק̭ [\_Ŭ4@ȧ̲ śŬֲӶ ͺ̮ʬֵ ӶVӦԬ,Ԭ Ѧ̬"Ԭ Ѧ̬" Ԭ ӦԬ ^(`JN`ɠSH)? h` `89`67`HɆ Mh,0ɍɛɓ Ƀ%, Nɋ ɉ LL ԠƛFЛ@ɛʛ˛͛T ̭6ֱӶ 4Χ̭ ? NE$?CC C @C @@ Lɒ$>  LɐQE? *  C ?  LH@ɠ$@ ɢE@@EE=h`ɂ *L Ɏ L LH))? @(h`$( N ɓ&Ɂ!ɍ#ɘ, ɕL }ZE(222)::12:ZE4ĺ"PLEASE REMOVE THE WRITE-PROTECT STICKER.":32020` }"FATAL ERROR." }30000:SL(P(P(999))1)16:SL R.":32020 }"FATAL ERROR." }30000:SL(P(P(999))1)16:SL 2ECLDH hhhC`ɚJɆDOT SLOT }BS SEDRIVE OPTIONS,A953,L6"1 j'H 0uSPACE BAR ROUTINEg 5uZH(36)1:ZV(37)1:ZF0 :u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE"; Du16368,0:16384,128 Xu1:868:1::ZV:ZH:16368,0: }ERROR PROCESSINGILPACK 8RFL,"PPRINT.OBJ"L BALSO LOAD ANY OTHER ESSENTIAL BINARY FILESt L975,255:SOUND BYTE; DO NOT DELETE VIF YOU NEED A DELAY, PUT IT HERE RNH,"MENU": }PROCESS ERROR BY RE-BOOT }:BS(P(P(999))1)16:BS1BS7BS6:FIND BO(978)157Ģ12:"THIS PRODUCT NEEDS AT LEAST 48K TO RUN.":16384,128:16368,0:32000 230,64:D$"BRUN LOGO":16304,0:16297,0:16299,0:16302,0 $GOSUB 3000 FOR HARDWARE CHECK (64K, 128K, OR //E) .D$"BRUN FACTORUTIL.OBJ": PUT NAME OF UT PROGRAM: HELLO(PRIME NUMBERSFCOPYRIGHT (C) MECC, 1984e(LAST UPDATE: 84/05/22 BEIwMAIN PROGRAM32000D$(13)(4):P(X)(X)(X1)256(65435)6ĺD$"PR#0":D$"IN#0":16372,0:TURN OFF THE 80-COLUMN CARDW ::     CL$:::"Use of ESC Key"CC$::"You may want to quit in the middle of a program. If so, press the ESC (escape) key twice whenever the computer is waiting for you to type."WIND:VSP:30000:(#INPUT ROUTINE-#CA$;:16368,0:GCP,ZX,ZY:""įCO,ZX:PA$L>12:" Direct inquiries to:"::" "CC$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55112":"(612) 481-3527"R30000:CL$:WINDESC ESC SCREEN!VSP,4:ZYY1İ30000::CO,X1,Y1:CEW<L11DP:DS$(L,L1);:L1:TWIND:::L:30000k SUPPORT BOOK INFO*CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP49:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$02:9,6L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:b{XGENERAL INFORMATIONbCL$TI$CC$:PA$""ĺPA$CC$lVE$CC$:::GCP,X1,Y1CO,X1,Y1:CEWSHOW DESCRIPTIONSL1NP:GCP,ZX,ZY:ZY150269,185:6:X10:Y10:X2278:Y2191:DX18:DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:\1:L another diskette."CC$&30000:CL$JCS(P(P(999))1)16: SLOT #^CS1CS7CS6fCSl}pDRAW BORDERz4:21,021,1911:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,158:11:"The sound is now turned "SB$(((975)))"."CC$:30000:2000R AS(6)5000gRUN THE PROGRAMA0ANPF1$MN$(A):F2$CN$(A)CL$:HSP:VSP:CO,0,89:"Getting "F1$"...":D$"MAXFILES1":RNH,F2$END OPTIONCL$:11:"Insert no management options available.":30000:2000n AS(2)A1F1$"the management options":F2$"MANAGEMENT" AS(3)F1$"Printer Support":F2$"PRINTER SUPPORT" AS(4)F1$"Diskette Support":F2$"DISKETTE SUPPORT"A AS(5)Ĺ975,((975)):CL$) = "on":SB$(1) = "off": PRINT SB$( PEEK (975))SHNN1:3(N9):S(6)N:N". End"q RESPOND TO USER'S CHOICE :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND AS(1)İ7000:2000/ MOA1ĺCL$:VSP,8:CO,0,75:"There are = N: PRINT N". Program Manager":MO = 1 p *N = N + 1: HTAB 4 - (N > 9):S(3) = N: PRINT N". Printer Support" 4N = N + 1: HTAB 4 - (N > 9):S(4) = N: PRINT N". Diskette Support"/>N = N + 1: HTAB 4 - (N > 9):S(5) = N: PRINT N". Turn sound ";:SB$(0O,0,MT:CN$TI$CC$:PA$""ĺPA$CC$e CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::L1NP:3(L9):L". "MN$(L):: "Options:": NNP1:3(N9):S(1)N:N". General Information"*  N = N + 1: HTAB 3 - (N >9):S(2):"This module is designed to be teacher centered, not computer centered. Use of the printed instructional materials is essential to the success of this module." VSP:SPACE 230,64:24576:DFT,1,15128:AFT,1:CO$:HSP:VSP:WIND" CL$:6000:Con 1.0"N jMN$(NP),CN$(NP),DS$(NP,DP): MENU NAME, CATALOG NAME, DESCRIPTION tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: ~DATA STATEMENTS ARE AT 50000 DISPLAY MENU (975)2552020 24768:975,1:"Prime Numbers"(3) 5:VSP,7:SP0:FORMATTING PARAMETERS7 P(S)(S)(S1)256R RFL,"TITLE.PFT"15128j LPROGRAMMER OPTIONS VNP4:DP1:MO0: # OF PROGRAMS, # OF PARTS PER DESCRIPTION, BOOLEAN FOR HIDDEN MANAGEMENT OPTIONS `TITLE$"Prime Numbers":PART2$"":VE$"Versit PROGRAM: MENU'PRIME NUMBERSDPROGRAMMER: P. BOUCHARDb(COPYRIGHT (C) MECC, 19842 LAST UPDATE: 84/07/12 NM Z32000INITIALIZATION15128CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15) MT13:ML37         N"įHSP,2:31030|1630$y END"yCL$:CO,0,89:"Would you like to try again? ";:INP,(3,"YESNO",1),A$:A$(A$,1):A$"Y"A$"N"31010,yA$"Y"Ĭ6yCL$:CO,0,89:"One moment please...":RNH,"MENU"  F11490ZZN,N;:GCP,A,Y:",";@"N1N1((N))1W,N125N10::12a61500w@AYįCO,A,Y:" "~JLTPARSE^:CO,5,180:"Do you want to try other numbers? ";:CEL:INP,(3,"YESNO",1),B$h(B$,1)"Y"1100r(B$,1)"5:H4L1MYO+L2V9:N10>L3V13:N10QL4V17:N10`X(I$(L)){V:H(H29):X;:12ZX:N1NN1:F0:Z11600ZN(ZN)1490N21550I2((N)1)NI(NI)I((N)1):F1I CL$- (CO,0,0:"Prime Factorization";CC$q 21,10277,10277,1741,1741,10:5,12273,12273,1725,1725,12 <CO,15,20:"Number":CO,120,20:"Prime Factors":8,2868,28:75,28270,28 x FIND PRIME FACTORS }HSP,1 NOJUSTN0:N10:VM2:CO,85,110:"C. ":CO,100,110:INP,(4,N,1),I$(3)P (I$(3))5000ī1170f (I$(3))0ī1300 M3:CO,85,125:"D. ":CO,100,125:INP,(4,N,1),I$(4) (I$(4))5000ī1200 (I$(4))Oī1300 (I$(4))5000M4  DISPLAY SCREEN ":CO,85,95:"B.":CO,85,110:"C.":CO,85,125:"D."g VCO,85,80:"A. ":CO,100,80:INP,(4,N,1),I$(1) `(I$(1))5000ī1110 j(I$(1))031000 tM1:CO,85,95:"B. ":CO,100,95:INP,(4,N,1),I$(2) ~(I$(2))5000ī1140 (I$(2))0ī13007 LCL$:HSP,2:CO,0,0:"Prime Factors";CC$:CO,25,45:"For what four numbers do you":CO,25,60:"want the prime factors?" QHSP,1:CO,0,170:"Type '0' if you don't want more numbers.";CC$:1,165277,165277,1801,1801,165 SHSP,23 UCO,85,80:"A.s";CC$:WIND,16 VSP,4v $CO,16,30:"The computer will list the prime factors of any number between 1 and 5000." .CO,16,90:"You can request the prime factors of up to four different numbers at a time." 3VSP 8WIND:SPACE B GET INPUTz PROGRAM: PRIME FACTORS;PROGRAMMER: NANCY MILLERUCOPYRIGHT: MECC,1984v( LAST UPDATE: 84/07/17 NM |2230,64:24576:16384HSP,2CC$(3):CL$(12):D$(4):CN$(14) 5 FIRST SCREEN CO,0,0:"Prime Factor     CO,227,148:TALLY(2):CO0:L019:660%NL0LNFA$:WIND:CO,227,148:TA(2):CO0NCOCO1:FA(CO)0CRFA(CO):2150:PAUSE,2:660N30000:CO,0,161:CEW:SE(1)SE:SE0:GC0:CR(I$):2150:CO0NCOCO1:FA(CO)0CRFA(CO):2150:680O2700:7,148:TA(1):CR(I$):GC8:2150MvjMCO,0,171:FZ$;" gets:":PAUSE,5:WIND,130,169,279,191:CO,140,171:CO0MCOCO1:FA(CO)0TA(2)TA(2)FA(CO):650M(FA$)18ī655NWIND:L01618:(FA$,L0,1)","ĺ(FA$,1,L0):(FA$,L01,(FA$)L01):23:DY21:NU41((1)20)L3300_LDAFT,1,0:(15):CO,24,148:"SCORE:":CO,184,148:"SCORE:":HSPLNM(1,62):X1NU:M(1,X)1:X:XNU162:M(1,X)0:XLXM1:(A$)2ī800LbBX0:BY18:BA$"takes":2400LlSEī610MqTA(1)TA(1)(I$):CO,6X,20,145,100,157,2:BOX,180,145,260,157,2:BOX,23,147,97,155,0:BOX,183,147,257,155,0K (BO$)1XS41:YS21:XX5:YY4:DX47:DY32:NU10((1)11):530K(BO$)2XS34:YS19:XX8:YY5:DX29:DY25:NU21((1)20):530LXS29:YS16:XX10:YY6:DXet's start the game!":30000:500hJCO,0,70:"Very well, ";NA$;","::CO,0,88:"let's start the game!":30000JTI$(1)"Pick a Number":TI$(2)"Pick the Factors"JNU$"2"ī1400MKCL$TI$((A$)48)(3):BOX,20,10,260,140,2:BOX,23,12,257,138,0:BO"1. Small (10 to 20 numbers)"jI::"2. Medium (21 to 40 numbers)":::"3. Large (41 to 60 numbers)"::I:"Which board do you want? ";:INP,(1,"123",1),BO$ICL$JNU$"2"įCO,0,75:"Very well, ";NA$(1);" and ";NA$(2);",":CO,0,93:"lINP,(10,"-az-AZ .'-",2),NA$:(NA$,1)" "ī4009H`NU$"1"ī351DHhL12HrCO,0,L2765:CEL:"What is player #"L"'s name? ";:INP,(7,"-az-AZ .'-",2),NA$(L):(NA$(L),1)" "ĂHsL3ī370ICL$:CO,0,16:"There are three kinds of boards:":::re no more factors of a number, press RETURN."::~G"CO,0:"* If you choose an incorrect factor, your turn ends.":30000:WIND:CL$G^CL$:CO,0,32:"Are there 1 or 2 players? ";:INP,(1,"12",1),NU$'H_NU$"1"įCO,0,85:CEL:"What is your name? ";:O,0,35:"* We'll take turns. First, you'll choose a number and I'll get its factors. Then, I'll choose a number and you'll pick its factors."*G::CO,0:"* We can choose any number on the board. When the number I select has no factors or when there a a number that has factors left because I must get something every time!"::ECO,0:"* When none of the numbers left on the board have factors, I get them.":30000:WIND:CL$:350ECL$:"Pick the Factors":3:0,20122,20:WIND,18,35,279,191FCSP:CO,0,171:"Which way do you want to play? ";:INP,(1,"12"),A$:A$"2"280DCL$:"Pick a Number":3:0,2099,20:WIND,18,35:CO,0,35:"* You take a number from the board and I get the remaining factors of the number."::EECO,0:"* You must pickecome an expert, too.":WIND,30,68,279,191:CO:"The object of the game is to beat me in collecting all the factors of a number.":WINDCCO,0,114:"There are two ways of playing:":WIND,40,128:CO:"1. Pick a Number":"2. Pick the Factors":WINDEDVFL,"LILFAT2.FNT"(A22000):DFT,7,A2640:DFT,3,A22000RB::CL$(12):FA(30):CA$(1)hBFZ$"Factor Whiz"BCL$:IMAGE,1,0,20:WIND,70,20,279,191:CO:VSP,4:"Hello, I am Factor Whiz.":"I am very good at playing this game, and you can ";C"bL0RC2C1:VCC0:M(M,L0)801A9BOX,135,178,146,188,8fA<L1C1L0C1C1:(L0L1)L1L0M(M,L1)VCVCL1uAF:VCL0VCAPVCVBVBVC:BCL0AZ:WXBC:I$(BC):XBC:CO,0,165:CEW:/BxA131750:A2A1310:AFT,1:RFL,"FACTOR WHIZ.IMA"(A2640):R7@ PROGRAM:FACTORWHIZ,@PROGRAMMER:P.HILPISCH>@(C)MECC,1984[@( LASTUPDATE:84/07/12PWHg@)32000@-(13);(4)"MAXFILES1":34560:24576:120@2CA$:CO,10,165:" Factor Whiz is thinking...":CO,138,180:"?"A7C00:C11:C22:BC0:VB0:               :31000qwWIND:CO:CEW:CL$:CO,0,89:"Do you want to play again? ";:INP,(3,"YESNO"),Y$:Y$(Y$,1):Y$"Y"ĺCL$:200w Y$"N"43000wCO:CEW:CO,0,89:"Getting the menu...":RNH,"MENU"wenu...":RNH,"MENU"he menu...":RNH,"MENU"`@l 00f``l 03p-͂ooo _pLnõoo^`No ݤp 輤pppp߹ppo _po , g 掏p ,o vpp) p pp)p ߅ l o ) L{Bp HHHp hhh `+ hR("  h5880`L pppop ( vpLRo Ln {$0! 掐p ,L)o k {$0L#oNo 千oLoo n|-?npLn Up no n U mhhhhhhhhh,lp` ֩PyQ ALŠҠ僁'i(imiʈ*i+i &')iq&,iL6i N8`f `.f`mm ` ң Σ  h @)`,` sj ެLqj,Hl  !l  h!l`L, HHHHHHHHH k l jlNO,ɍɠ ɛ8nl,lPݩ'i(i)i hmHihʍ*i+i,i L8iL Sk TkMUkSk &g<>=MUk?'<>SkSkTk` H g Rh PQ`L     խ)?` `& ,jQ&-0iQ&&)i)i,i`/i-0i/i)i &g&'-i ,jQ&-/iQ&&)i)i,i`*U U*ժ gj')JMgj)1i Q&,5iP 0=lj`hj`J&)` `L3f̙jj ߅$0Hjj LbLvjj j` hH)8 qȥq8)h` g R  QP (`L h`L)  @ 5ij1i3i j2i4i'i(i g-i j/i*i+i g.ij0i-i.iB)i &g&'-i ,jQ&-/iQ&&ȭ1i.i ,jPhHhhh hJ` &eeieh ghIiwhi 썼h &gmh﬽hMhwhPjjjjjjj0jj) h0ȱjhjhhУ`8pPL2f -`,f`'im(imʈ*i+i)iʎ,iL6i Kggg`gg ggg`g Kg gggg`ggg8pg.g(gggmgg`8pgJJJ) }gggmgg`((((PPPL de80 " Tfm8h)` dem88eLf` deme` d8` f@ f f f`Lc dff`) ``fʽ`) ` `fH`mS` dS`)ae``e hae g`e}`mf8ff`f` dLc,0*`%f 8fHfJhj`mfff` c d` c dI``f`emfff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff `ɀ   LX8e湥 qHqH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff  2f%%h $20 LZc $ aHaH`daemeWeeeef1fSflffffff(bb d (cf hf gNOH (c h f ghH ,aɈ.hH (cb h) e f g (c fbbh`˅o 8````L`bbbbIq$% `@ GaLa6 ,fLcLmfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH (c$ d f$%0 d       `L 䎱 掲`RFRNSEc `6뭁>? /%p g^h_^`ȱ^Șe^^_iȑ^^_wvu@A q D `@ i @ ȱ 5`,X` {ݩD ^ D` &L N ҍ& eL׭Ѝˍэ̍XЍэLXLXЍэ 󎪰$)򎭁>? /p G 8`L8ghegiȱehj8ȱCvЍ э Ѝȱэ8Ѝэ8ȱ>? /:p"<<`<=ʱD>` VDyEzB}C~@A>? N  { RPЍQэ ڍL ҍLl`N bDyEzB}C~@A>?ULLᅝ 8ɀ  L8e湥 HH L` <=<ȥ?< <<= H <=I    JUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgClk {|J*BBC AC~~|~~JUwGsvC6ACFJ*NGAGsBcB6f`CBwJUNGAGsBBCFB;FJ*NGAGsB`B0`Ca]a}}JUNGAGsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBnJ*NGAGsBcB6cCtwutJ*NGYD$E<|]GQFA@D`A@H?BByBLyCFJUNGYffE'ffgfg]GOFx~J~xHBBX}- CFJ*NGYxpsppxEx03?^GOH@NHxBByB{CFJUNGf@|@@]GsBBqCFJ*NGAGs00{C3ACFJUNGAV`@OO@`IDO@H]GO~x`FGA>B~BBBYCFJUNGY DyE!DI]GQF@``DpA`@HB@@_BY_CFJ*NGY><|BBON BL L]GOG|L|HBFACFJUNGVA|D|ApEp`Bg`p]GOD@CBGB <~~B@@oBLOCFJ*NGcAscC3Cs]GOE@`ppG`@GBBYCFJUNGVIBByAAA9]GOGCGA~HBBOBYOCFJ*NGJ*NGAGJp`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGAGOCC@D`DpD8DBBBGlo`OCFJ*NGAGO~x`FDQB oBlOCFJ捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BBC3ACFJUNA^D?A/A/++++**BB3?>CFJ*NGAGOC_B WUUUBUABUCUBB>0CFJUNGTvGLB?C*B*B***B*AB*C*BBB3CFt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)     ĈsL х ` RP6PDH)#n6,6ph" ֩PyQ AL6h) `NP,(3,"YESNO",1),A$:A$(A$,1):A$"Y"A$"N"31010G*,yA$"Y"Ľ:10x*6yCL$:11:"One moment please...":RNH,"MENU"   Q{ `@ i @ ȱ v`,X` {ݩD ^ D`i{Dj{ED` &Lqv`L 䎱 掲`RFRNSEIMAGx? {:p"q{>r{? {%p zg^h_^`ȱ^Șe^^_iȑ^^_g{f{e{@A a{q{?r{ .{  { RPyQy yL yzLl`N ubDi{Ej{Bm{Cn{@o{Ap{>q{?r{ .{ y&z eL׭yyyyXyyLXLXyy z$)zq{>r{? {pz G 8`Lz8ghegiȱ u&'8x vȄ7x6x`` x g RPxQx g RPx,x ȱeexxIi uIxIx  uxxx pw,` uVDi{Ej{Bm{Cn{@o{Ap{>mwnwow <= <ȭ<ȭ<ȭmw<ȭow<><ȥ?< <<= H <=nwI<mwʱD>` uuu`uu 8vuu`u u 8vuuu`     ppxp````pp ppppp`@@@`@ @@@@@ pxxxx```xpppppxp````pp ppppp @@ @@@@@`@`t`@@@@@``@ @@ @ @ @@@ @@@@@@@@ @pp0p00xppxx`ppxp0``ppppxp@@@@ @@ @ @ @@@`pxxxx```xppp |4(`@@`8<"  >""$$$>> << "">"""""">"&*2"`0  0` 0``0  tN! pȈp ` pp0@ppppp ppppxUBDECDECCDޏDBP磘χSABBDAkPA⏟DZߟTABBCj '`OHJUBAAUBDEEBCAデBFJECO݈BSbCdD '_OFAJAU@ &`NFAJAEDIBDCIBCECCFNDBOA⿟DZߟSABBCiCIBCEDCFODB  ppxp````pp ppppp`@@@`@ @@@@@ pxxxx```xpppppxp````pp ppppp @@ @@@@@`@``t`@@@@@``@ @@ @ @ @@@ @@@@@@@@ @pp0p00xppxx`ppxp0``ppppxp@@@@ @@ @ @ @@@`pxxxx```xppp!! 003f<fl8l~`0````0`0000`0Immm`0~~~3000000~~00p000|0000000~~~~~00|~~~w~~~~f<ff<cc>cc>>cc>0000000hw` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6"" " " "