&} :MANY BODY SIMULATOR BY RAD HEWKO 1524 113 AVE. DAWSON CREEK, BC CANADA COPYRIGHT (C) CLOAD 1982&200:3,1::D1&:"MANY BODY SIMULATOR"::1000::"HOW MANY BODIES ";N:N2N930'B(I1N::"MASS #";I:M(I):"COLOR = (1-4)";C(I):"X POS = (0-255) ";X(I):"Y POS = (0-191) ";Y(I)'2"X VEL = (-20 TO +20) ";VX(I):"Y VEL = (-20 TO +20) ";VY(I):(X(I),Y(I),C(I)):I'<1,0'FI1N'PJ1:150:FX(I)Q'ZJ0:150:FY(I)Q(dVX(I)VX(I)FX(I)D:VY(I)VY(I)FY(I)D(/nX1(I)X(I)VX(I)D:Y1(I)Y(I)VY(I)D(CxI:I1N:190(C(I):(X(I),Y(I))(X1(I),Y1(I)),:X(I)X1(I):Y(I)Y1(I)(I:70(Q0:L1N( LI 180)&J1QQM(L)(X(I)X(L))((X(I)X(L))2(Y(I)Y(L))2)1.5:QQM(L)(Y(I)Y(L))((Y(I)Y(L))2(X(I)X(L))2)1.5)/L:)e X1(I)0 X1(I)255 Y1(I)0 Y1(I)191 140)oȁ130)"INSTRUCTIONS (Y/N) ";D$:D$"N" D$"NO" ):" INSTRUCTIONS":"MANY BODY SIMULATOR"*M:"THIS PROGRAM WILL DRAW ORBITS OF UP TO 9 OBJECTS. PICK SUITABLE VALUES OF MASS, COLOR, POSITION AND VELOCITY.*"MASSES OF 1000 MIGHT BE A SUN, M=1 FOR A PLANET":"COLOR YELLOW=2, BLUE=3, RED=4":"GREEN=1 IS SUITABLE FOR A BLACK HOLE*:"PRESS ENTER TO CONTINUE";D$::RBITS OFX2FX253:FY3FY178/[PT(FX,FY):PT7:(X210,Y25)(FX,FY),:(FX,FY),2,8/"O4V31GV28FV22EV18DV12CV8BV4AO3":BFBF2:(BF,185)/(FX,FY),2,5:(X210,Y25)(FX,FY),:PT6XFX10:YFY5:BSBS1:350/0yR6D8L6U8,"BM+3,+2E2D8",R6D4L6D4R6,R6D4NL6D4L6,D4R6NU4D4,NR6D4R6D4L6,NR6D8R6U4L6,R6D8,R6D8L6U4NR6U4,"BM+0,+8R6U8L6D4R6",NR6D4NR4D4R6,NR6D4NR4D401,S0:N1150:A$:A$"P":0S0S01:CC1:C8C214&C:@195,(26,144);:@227,(144);" PRESS P TO PLAY AGAIN ";(144);:@259,(26,144);:N1150:A$:A$"P":1>05306D8L6U4NR6U4,"BM+0,+8R6U8L6D4R6",NR6D4NR4D4R6,NR6D4NR4D401,S0:N1150:A$:A$"P":0S0S01:CC1:C8C214&C:@195,(26,144);:@227,(144);" PRESS P TO PLAY AGAIN ";>5'0ESLE TSIL(NEL(TESER($THGIRDNUOS(DNRDAERNEHT(TESNRUTER(KEEPEKOP@TNI?TXEN($DIM($TFEL(CSA$YEKNITUPNIBUSOGOTOGROFATAD($RHC($RTS†~j1k1Xt1!K92bmG' + '(9o9y[& y:'-;'Al$1'&om ' &\ 9>HϽy>l 1vZ''e 4$_m+\ 4!mc&\`0Z11?t5!*"Z4 /55$ݦZ&o|91!&m&5$ 姤L@0^oc0t0 y9>5 '(9o9y[& y:'-;'Al$1'&200,1:"NUMBER OF COMPOUNDING":" PERIODS";P8dR$"A"4138tR$"B"4158R$"C"4178R$"D"4198R$"E"4218AI360:T$"DAY"84238AI12:T$"MONTH"84238AI4:T$"QUARTER"94239AI2:T$"SIX MONTHS"9(4239:AI:T$"YEAR"9D4239YFVD(1A100)P9:@96,"A DEPOSIT OF";:"$$#####.##";D9"AT"I"% INTEREST ANNUALLY"9"OR";:"###.####";A;:"% INTEREST EACH "T$:"WILL HAVE A VALUE OF";:"$$#####.##";FV:!"AT THE END OF"P;T$"S":=@455,"ANOTHER ?":RR$:R$""430:fR$"Y"400:10 20;A;B;A;C;A;D;A;E;A;F;A;G;B;C;B;D;B;E;B;F;B;G;C;D;C;E;C;F;C;G;D;E;D;F;D;G;F;G":@330," ";: 1450;:NO MATCH ROUTINE******;և@162," ";;7@330," YOU BLEW IT ";;BFLAG1;T J7 1 1; (FLAG1) (A(J)143) A(J)138:FLAG0; J; J1 7; X;&@X,(A(J));;0 J;:;D@353,E$((10));;N@417,M$(1);<XRBRB1: RB2 RB2<b RB2 620: 680<-lC1 CC1 "T 80;O 2;V 25;G;D;E;F;E;C;;C;;A;C;B;D;F;G;A;C;C;E;D;F;F;D;A;F;G;A;A;A;B;F;G;D;E;E;C;D;G;A;C;D;B;G;F;A;A;A;A;A;"> K> >q*@0," "::" YOU'0ESLE TSIL(NEL(TESER($THGIRDNUOS(DNRDAERNEHT(TESNRUTER(KEEPEKOP@TNI?TXEN($DIM($TFEL(CSA$YEKNITUPNIBUSOGOTOGROFATAD($RHC($RTS†~j1>5;G;D;E;E;C;D;G;A;C;D;B;G;F;A;A;A;A;A;"> K> >q*@0"YOU HAVE TO MATCH"8EMS(2): MS1 @177,"ODD ";:@177,"EVEN";8RRN(2)8} RN1 @433,"ODD ";: @433,"EVEN";8Ȁ T1 TI: T8҇@162,"ready";8܅ (32) KOKO1: RNMS 1530 : 17508恥 14608:MATCH ROUTINE*****9 FLAG19@162," ";9<@330,"YOU MADE THE MATCH";9J J1 79x" (A(J)138) (FLAG1) A(J)143:FLAG09, J96 J1 79@ X9J@X,(A(J));9T J9^ 1,7,2,6,3,5,49h9rRB09|@353,E$((10));: MP(4)1: MP4 1670:@417,M$(MP);:@C0: L1 7: A(L)143 CC1:X L: C7 1950:"T 100;O 3;V 20;A;B;A;C;A;D;A;E;A;F;A;G;B;C;B;D;B;E;B;F;B;G;C;D;C;E;C;F;C;G;D;E;D;F;D;G;F;G":@330," ";: 1450;:NO MATCH ROUTINE******;և@162," ";;7@330," YOU BLEW IT ";;BFLAG1;T J7 1 1; (FLAG1) (A(J)143) A(J)138:FLAG0; J; J1 7; X;&@X,(A(J));;0 J;:;D@353,E$((10));;N@417,M$(1);<XRBRB1: RB2 RB2<b RB2 620: 680<-lC1 CC1 "T 80;O 2;V 25;G;D;E;F;E;C;;C;;A;C;B;D;F;G;A;C;C;E;D;F;F;D;A;F;G;A;A;A;B;F;G;D;E;E;C;D;G;A;C;D;B;G;F;A;A;A;A;A;"> K> >q*@0," "::" YOU FINALLY WON. IT TOOK ";KO;"TRIES AT A SKILL LEVEL OF ">4TI;"TO DO IT.":>>KO0:" DO YOU WANT TO PLAY THIS ">H"GAME AGAIN";Z$>R (Z$)78 >\ (Z$)89 2160?f:@173,"WHAT ?": 2110?9p:" WHAT SKILL LEVEL DO YOU WANT"?Mz"THIS TIME";TI?S?^ 520?i 880? J1 7:A(J)138: J? 1440 DO YOU WANT TO PLAY THIS ">H"GAME AGAIN";Z$>R (Z$)78 >\ (Z$)89 2160?f:@173 ?& :COPYRIGHT (C) CLOAD 1982&<:BY ALEXANDER BENENSON&W:585 WEST END AVENUE &p(:NEW YORK, NY 10024&v2&<" -=< S P A C E D U E L >=-":(32,144);'5F(32,255);:(255);"right";(144);"stick";(144);"controls";(144);"red";(144);"ship";(144);(255);:(32,255);(32,144);'P(32,239);:(239);"left";(144);"stick";(144);"controls";(144);"blue";(144);"ship";(144);(239);:(32,239);:(32,144);(`Z"JOYSTICKS CONTROL DIRECTION AND SPEED OF SHIPS, AND DIRECTION AND RANGE OF LASERS. LASERS USE UP FUEL; GAME IS OVER WHEN A PLAYER'S FUEL IS GONE."(dR(19,9),B(19,9),BL(19,9):"T255"(nN09:N$(N)::E$,F$(x3,1:((0,0)(10,10),:(20,0),:(0,10)(10,0),:(20,10),((10,5),8,8)(0,0)(20,10),R:)!7:(10,5),6)1(10,4),7,7)g(0,0)(0,10),:(20,0)(20,10),:(0,5)(20,5),)|(0,0)(20,10),B)(30,30)(50,40),BL*Ҽ:"BM30,183C6XE$;BM218,183XF$;":7:(44,185)(212,185),:8:(44,189)(212,189),:6:N442128:(N,182)::BF214:RF214*oX1200:Y196:X260:Y296:6,5:(0,0)(255,181),,B:"PRESS ENTER TO START";X:1,1:370*RXX1:RYY1:BXX2:BYY2*J(X)(((X)32)3)*X1X1J(0):Y1Y1J(1):X2X2J(2):Y2Y2J(3)*X1231X18:X18X1231+Y1169Y12:Y12Y1169+6X2231X28:X28X2231+U"Y2169Y22:Y22Y2169+,(RX,RY)(RX20,RY10),BL:(BX,BY)(BX20,BY10),BL+6(X1,Y1)(X120,Y110),R:(X2,Y2)(X220,Y210),B+@RS99BS99BF44RF44C2:530,:JP(65280):P254P126400:P253P125460:P252P124400:460,DT230,^^XX10:YY5:"O4V24",hN68:(9N):(X,Y),N,N,.7::"O3":N68:(9N):(X,Y),N4,N,.7::"O2":N68:(9N):(X,Y),N,5,.7::"O1":N68:(9N):(X,Y),N4,5,.7:-Tr"O3":(0,182)(16,191),,BF:I(BS10):"BM0,183C7"N$(I):"BM10,183C7"N$(BS(I10))-|(239,182)(255,191),,BF:I(RS10):"BM239,183C8"N$(I):"BM249,183C8"N$(RS(I10))-6,5:230-FX(X110)J(0)6:FY(Y15)J(1)6. FX2FX253:FY3FY178.JPT(FX,FY):PT8:(X110,Y15)(FX,FY),:(FX,FY),2,7.~"V2AV8BV12CV16DV20EV24FV28G":RFRF2:(RF,189).(FX,FY),2,5:(X110,Y15)(FX,FY),:PT6XFX10:YFY5:RSRS1:350..FX(X210)J(2)6:FY(Y25)J(3)6/օ&$ :BOBO BY GEORGE TREPAL C 1982&L:1709 KINGS WOODS DR, AUGUSTA, GA.&l: COPYRIGHT (C) CLOAD 1982&s:&z:&&(::::" bobo"::&2" BY GEORGE TREPAL"&<:::::&F"PRESS THE SPACE BAR TO CONTINUE"'P " " 100'Z 80'(d 1000'.n'Ox:" COLOR TEST":'q" ADJUST YOUR SET.":'"YELLOW ";(159),"BLUE ";(175)'"RED ";(191),"BUFF ";(207)'"CYAN ";(223),"MAGENTA ";(239)("ORANGE ";(255):::(("PRESS THE SPACE BAR TO CONTINUE"(> " " 210(Iȁ 190(nҌ A$(7), E$(10), EE$(10), K$(3)(tܞ(A$(1)(128)(241)(243)(243)(243)(242)(128)(A$(2)(241)(255)(255)(255)(255)(255)(242)):A$(3)(247)(207)(207)(255)(207)(207)(251))|A$(4)(255)(255)(255)(255)(255)(255)(255))A$(5)(245)(244)(252)(252)(252)(248)(250)*A$(6)(245)(255)(255)(255)(255)(255)(250)*B"A$(7)(128)(252)(253)(255)(254)(252)(128)*\,M$(1)A$(5) :SMILE*6M$(2)(245)(241)(243)(243)(243)(242)(250) :FROWN*@M$(3)(245)(250)(128)(128)(128)(245)(250) :FULL OPEN+CJM$(4)(245)(242)(179)(179)(179)(241)(250) :TONGUE+TM$(5)(245)(254)(252)(252)(252)(253)(250) :LINE+^M$(6)(245)(255)(191)(191)(191)(255)(250)+hEE$(1)(205)(207) :LOWER LEFT,'rEE$(2)(206)(207) :LOWER LEFT MIDLE,W|EE$(3)(207)(205) :LOWER RIGHT MIDDLE,EE$(4)(207)(206) :LOWER RIGHT,EE$(5)(207)(203) :UPPER RIGHT,EE$(6)(207)(199) :UPPER RIGHT MIDDLE 'UPPER LEFT MIDDLE-EE$(7)(203)(207) :UPPER LEFT-/EE$(8)(199)(207)-WEE$(9)(252)(252) :HALF BLINK-sEE$(10)(207)(128)-̀ J1 10-E$(J)(247)EE$(J)(255)EE$(J)(251)- J-EE$(9)(252)(252) :BLINK-@300,"THIS IS BOBO.". 570.J1 7.,@((J1)32)289,A$(J);.4 J.E&@353,E$(2);.K0.V: 520.iD T1 1300:.N@330,"BOBO DOESN'T LIKE YOU";.X 640.b:EYE ROLL*********.l J1 8:@353,E$(J):(J10),1:.v. 620. 90,1/@353,E$(2)/  770/':BEGIN TOUNGUE*******/8@417,M$(4);/IT1 100:/ZƇ@449,M$(6);/lЀ T1 200:/}ڇ@449,A$(6);/T1 10/@417,M$(4);// 690/ @428,"NYAH NYAH NYAH ";: 100,1/ 690/ :KETCHUPBAG***********0;*K$(1)(138)(138)(138)(138)(138)(138)(138)0}4K$(2)(191)(191)(191)(191)(191)(191)(191)0>K$(3)(143)(191)(191)(191)(191)(191)(143)0H@10,"THIS IS A BAG OF"0R@42,"CATSUP."0\ 200,31f 8901-p J1 3:@((J1)32)1,K$(J);::18z 8801@74,"ONLY SEVEN BREAKABLE":@106,"STRINGS KEEP IT FROM";:@138,"FALLING ON BOBO."1@300," ";1@330," ";1 T1 1500: T1 9702:READ ABOVE EYE MOVEMENT*****2C J4 1 1:@353,E$(J4);: 65,1::2xʀ K1 5: 960: T1 50: T: K:@353,E$(6);2ԇ@417,M$(2);2އ@428," OH OH ":2J1 20:(150)100,1: J3 J1 15:@((J1)32)10," ";: J3!@10,"YOU CAN GET BOBO. 3@@42,"THE MACHINE WILL GO"3a@74,"FROM EVEN TO ODD VERY"3@106,"FAST. YOU CAN STOP";3$@138,"IT BY PRESSING THE";3.@170,"SPACE BAR. IF YOU ";38@202,"GET A MATCH A STRING";4B@234,"WILL BREAK. IF YOU";4)L@266,"DON'T MATCH, A STRING";4JV@298,"THAT IS BROKEN WILL";4c`@330,"BE REPAIRED."4j@394,"PRESS THE SPACE BAR"4t@426,"TO PLAY."4~@353,E$((6)4);4MM1: M,1: M255 M04 (100)50 @417,M$((2)1);5  " " 12005 11805N J0 15:@(J32)10," ";: J5m@42,"TO ADD INTEREST TO";5ć@74,"THE GAME AND TO ";5·@106,"KEEP YOU FROM BEING";5؇@138,"TRIGGER HAPPY IF YOU";5@170,"PRESS THE SPACE BAR";6 @202,"BEFORE THE READY";6,@234,"SIGN IS ON YOU MAY";6F@266,"LOSE A POINT."6f @362,"PRESS THE SPACE BAR"6{@394,"TO PLAY."6@417,M$(1);6(@353,E$((8));62 T1 20: T6< " " 13606F 13107PJ1 15:@((J1)32)10," ";: J71Z@42,"SELECT YOUR SKILL";7Od@74,"LEVEL. THE LOWER";7pn@106,"NUMBERS NEED HIGHER";7x@138,"SKILL";: TI7J1 4:@(J32)10," ";: J7J1 7:A(J)138: J7:START PLAY LOOP******8@138, /&]: ALL COVERS MUST HAVE THE LOGO AT THE TOP OF THE SCREEN DURING GRAPHICS DISPLAY.&:DECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.' :LINES 50-95 PUT THE LOGO ON SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.'r:DISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY COVER PROGRAM.'~ 4:4,1' LO$(7),X(30),Y(30)'Q()'(1,0:: 1,1(2LO$(0)"jZUVeUV")R4LO$(1)"VfZfjfj"* 6LO$(2)"UUUUVUUUVUUUZUUUV"*8LO$(3)"ZZZZZZZZZZZjVUiZeiZVZZZjVUeVeYZUZZVZV"+:LO$(4)"jUUeVUUVUYZUUUiUjVUUViYVUUUiUjVVZVYVeeUUeejjZZVjZYVijZjjZZZVeiZViUijZjjZYZZejZVeeijZj",LO$(6)"UjYijjZVjUUUjYiZjjUUUjUjUUUUUUUUUUYUeUjUUjUjUUVUUUUVUUYUiUjUUjjUZUYUjUUYUjUj"-ALO$(7)" 44 44Z&5J&55 5J&9"-FVP0:AD0:VP(LO$(0))-KAD(VP2)256(VP3)-PVP(LO$(7)).UQ(VP2)256(VP3):Q.,XQ7,(25)25.ZZ"S4A0C3BM0,191R255U149L255D148R255BM0,0".g_Q(AD).d USER ROUTINE (100-999).ȁ2000.J11000::1000.ށ40: START A NEW ONE. OUR DISCLAIMER - HAS TO BE IN ALL COVERS../@38,"CHROMASETTE MAGAZINE"/=" ISSUE #10 APRIL 1982";/C /k:" ALL PROGRAMS CONTAINED HEREIN"/" COPYRIGHT (C) CLOAD"/$" MAGAZINE P.O. BOX 1448"/." SANTA BARBARA, CA 93102."/8" REPRODUCTION BY ANY MEANS"0B" PROHIBITED. CLOAD MAGAZINE"0BL" ASSUMES NO RESPONSIBILITY FOR"0hV" ERRORS, OMISSIONS OR DAMAGES"0`" CAUSED BY THE USE OF THESE"0j11)"PROGRAMS."0~I15000:I00:0N(22)3:S72:V1:C00C1(3)0 I1 N1AI(3.14159(N2))1)XS(A):YS(A)1; X(I)X:Y(I)Y1C I1Q I1 N1_* JI N14(X(I)128,Y(I)119)(X(J)128,Y(J)119),1>:1HSS.6:1RWT12000::2. : THIS COVER BY: GEORGE TREPAL 1709 KINGS WOODS AUGUSTA,GA 30904)X:Y(I)Y1C I1Q I1 N1_* JI N14(X(I)128,Y(I)119)(X(J)128,Y(J)119),1>:1HSS.6:1RWT12000::2. : THIS COVER BY: GEORGE TREPAL 1!#$%&()POLYCOV BAS 2RUBIC BAS"BOBO BASSPACE BASBFINANCE BAS'jLAZKEY BINMANYBODYBAS(&^ SVERRE JOHANSEN 2923 FJ ELLBU, NORWAY * CONVERSION BY CHROMASETTE * (C) CLOAD 1982&i2210&(6):A$(6,3,3),QQ(6,3,3),Q3(1,12,3),Q1(40)'(F1:X1:BP1:B1:B11:B21:B31:RW2:CL32:CD40:GP(188)256:I16:NA(I)::279,(275):175,303,310,168,55,289'2670'r<(6):@66,"RUBIK'S CUBE";:@99,"SIMULATION";:@322,"CLOCKWISE";:@354,"ROTATION";'F@120,"U L T R";:@92,"B";:@156,"F";'P@376,"6 4 1 3";:@348,"5";:@412,"2";'Z'd60(n@480,"ENTER YOUR MOVE X TO EXIT";( xQA0(140:430(HM116:M213:M313:1240:M3,M2,M1:(lZ13:A$(D,Z,E)A$(F,Z,G):Z:(Z13:A$(D,E,Z)A$(F,G,Z):Z:(Z13:A$(D,Z,E)A$(F,G,Z):Z:(Z13:A$(D,E,Z)A$(F,Z,G):Z:(D0:E0:F4:GH:150)D4:EH:F1:150) D1:F3:G4G:150)6D3:EG:F6:150)LD6:F0:G0:150)qH1H15:400:H3H12:400)w)D0:E0:F1:GH:160)D1:EG:F2:160)D2:F6:G4G:160)"D6:EG:F5:160),D5:F0:G0:160*6H1H14:400:H3H13:400*@*0JD0:E0:F3:GH:160*FTD3:EG:F2:180*^^D2:F4:G4G:170*thD4:EG:F5:180*rD5:F0:G0:170*|H1H11:400:H3H16:400**X12:A$(0,0,X)A$(H1,1,X):A$(H1,1,X)A$(H1,4X,1)+#A$(H1,4X,1)A$(H1,3,4X):A$(H1,3,4X)A$(H1,X,3)+AA$(H1,X,3)A$(0,0,X):X:+QJ0:I0:M0+QA @448," SOLVED. HIT X TO START AGAIN ";::@0,"";+‡(32,32);:@0,"";:2200+̅Q$(31)430+օQ$"*"I1:"*";:450+Q$"R"J2:H3I, Q$"L"J2:H1I:M1,!Q$"B"J1:H1I,;Q$"F"J1:H3I:M1,UQ$"T"J3:H1I:M1,kQ$"U"J3:H3I,{Q$"X"730,&J0450,0Q$;,:2200,DQ$(31)430,NK(Q$):K1K3570,XK;,bM1K4K,lL1K:J 190,260,330:L-v140:430-L"SHUFFLING...":L120:J(3):H(3):J 190,260,330-SL-"COMPUTER SOLVE THE CUBE (Y/N)?";:2200:Q$:Q$"Y"QA1:900:100."B/W OR COLOR TV (B OR C)?";:2200:Q$:"ONE MOMENT...":Q$"B"Q$"O Y B G W R ":Q$"Ͽ".+I16:AA$(I)(Q$,I21,2):.\X16:Y13:Z13:A$(X,Y,Z)AA$(X):Z,Y,X."SHUFFLE THE CUBE (Y/N)?";:2200:Q$:Q$"Y"640.Ƈ"SET IT UP A CERTAIN WAY (Y/N)?";:2200:Q$:Q$"Y"740.QA0:100/$ڞ(6):"START COMPLETELY OVER (Y/N)?";:2200:Q$:Q$"Y":660/-䁦60/IM116:M213:M313/y@0,"FACE, COLUMN, ROW: ";M1;",";M2;",";M3;/A$(M1,M2,M3)"??":12400 @480,"ENTER COLOR (O,Y,B,G,W,R) ";:2200:X("OYBGWR",Q$):X0780:Q$;:A$(M1,M2,M3)AA$(X):12400M3,M2,M10* X16:A2$(X)"123":X0K*M40:M116:M213:M31304M51M4:A$(M1,M2,M3)A2$(M5)M(M5)M(M5)1:M(M5)9850:8400>M5:M4M41:M46850:M(M4)1:A2$(M4)A$(M1,M2,M3)0HM3,M2,M1:(6):6601R60:@0,"ERROR! PLEASE MAKE CORRECTIONS.";:1401X\@448,"ENTER FACE,COLUMN,ROW TO CHANGE (TYPE 0,0,0 TO END) ";1f2200:M1(Q$):Q$;",";:2200:M2(Q$):Q$;",";:2200:M3(Q$):Q$;:M1M2M308001pA$(M1,M2,M3)"??":12402\z@448,(32,32);"CORRECT COLOR (O,Y,B,G,W,R)?";:2200:X("OYBGWR",Q$):X0890:@480,(28,32);:A$(M1,M2,M3)AA$(X):1240:8602X16:AA$(X)A$(X,2,2):X::"THE COMPUTER IS THINKING. ";2X16:Y13:Z132Q16:AA$(Q)A$(X,Y,Z)QQ(X,Y,Z)Q:9402Q:8502Z,Y,X3Q$"111533413131433211133213311113331531633411513613231431611313233631511333":B07:C02:X(B3C)31:Q3(0,B1,C1)QQ(((Q$,X,1)),((Q$,X2,1)),((Q$,X1,1))):C,B3X18:BQ3(0,X,1)Q3(0,X,2)Q3(0,X,3)4Q3(0,X,0)("2/.17436",(B40)):Q3(0,X,0)08504ԋX4YހX18:Y13:Q3(0,X,Y)1Q3(0,X,Y)6Q3(0,X,1)Y:10104fY:8504mX5$Q$"112432123221132312121523532421212423232321512323632412621223612332623521":B011:C01:X(B2C)31:Q3(1,B1,C1)QQ(((Q$,X,1)),((Q$,X1,1)),((Q$,X2,1))):C,B5lX112:BQ3(1,X,1)Q3(1,X,2):CQ3(1,X,1):Q3(1,X,2)C CQ3(1,X,2)5C1B5Q3(1,X,0)1:1070:B6Q3(1,X,0)4:10705C4B9Q3(1,X,0)5:1070:C3B8Q3(1,X,0)8:10706$Q3(1,X,0)(" +, .- 2013",(B40)):Q3(1,X,0)08506%.X6d8X112:Y12:Q3(1,X,Y)1Q3(1,X,Y)6Q3(1,X,1)Y:11106BY:Y12:Q3(1,X,Y)5Q3(1,X,Y)2Q3(1,X,1)Y:11106LY:8506VX6`B1:X18:Q1(B)Q3(0,X,0)21:Q1(B1)Q3(0,X,1):BB2:X79jX112:Q1(B)Q3(1,X,0)215:Q1(B1)Q3(1,X,1):BB2:X:"*";:13107ztQ$"(-57/(.680(=EMG(>FNH(":Q2$"00000012120000000000":12007~Q$"()13+(*24,(9AIC(:BJD(":Q2$"00000012120000000000":12007Q$"()/71(*082(?GOA(@HPB(":Q2$"00000021210000001111":12008=Q$"(+35-(,46.(;CKE(@(":Q2$"00000000000000000000":12008Q$"(1753(2864(PNLJ(OMKI(":Q2$"00000000000000000000"9%X120:Q1(((Q$,X,1))CD)Q1(((Q$,X1,1))CD)((Q2$,X,1))::X2162:Q1(X)3Q1(X)Q1(X)39,X9LĀX20402:Q1(X)3Q1(X)19U΋X:9}؈M1 1250,1250,1270,1250,1260,12709@NA(M1)RWM2CLM3,A$(M1,M2,M3);:9@NA(M1)RWM2CLM3,A$(M1,M2,M3);:9@NA(M1)RWM2CLM3,A$(M1,M2,M3);::$BPBP1:GPBP,B:B1(B3):B2BB131:_ B31B2:B111140,1150,1160,1170,1180,1190,1300:B3:e:nBP0:(C19:1450:C21:1450:C23:1450:C17:1450:"*";:21610:F3:1740:"*";:1770:"*";:1940:1960:"*";:2000:2060;J(("221133",J31,1)):H(("311313",J31,1))>J31J33J34J24J2>V@5,("RLBFTU",J31,1);:L1J2:J 190,260,330:L>`"140>,Q$"C"""@449,(33,32);"HIT ANY KEY TO SINGLE STEP ";:1600?6@448," HIT ANY KEY TO SEE NEXT MOVE HIT C FOR CONTINUOUS DISPLAY ";:1535,143:2200:Q$"C"1580? @J1:?eJC5:X14:C1(X)0:X:X172:Q1(X)X Q1(X1)1C1((X1)2)1?lTX?^C1(1)1C1(2)1C1(3)1C1(4)1?hF14?rQ1(14)3(Q1(13)1Q1(13)3Q1(13)5Q1(13)7)1710:Q1$"173":2190:1630@D|Q1(14)2(Q1(13)1Q1(13)3Q1(13)5Q1(13)7)1710:Q1$"*9(":2190:1630@Q1(14)1(Q1(13)1Q1(13)3Q1(13)5Q1(13)7)1710:Q1$"193*8(":2190:1630@B15:1280@F:F14:C1(F)01740:Q1$"*7(":2190:1640@FACQ1(13)C1((C1)2)1:A$B12:1280:CC2:C9C1A/1710A>̅CF21A]B12:1280:CC2:C9C1Ah1740A~F14:C1(F)0:FAF14:Q1(F223)F223Q1(F224)1C1(F)1AFAF14:C1(F)01810:F:BF14:Q1(37)27Q1(38)2Q1$"+9-9371":2190:C1(2)1:1800BHQ1(39)27Q1(40)12130:C1(2)1:1800B&Q1(39)29Q1(40)1Q1$"1939*7(":2190:C1(3)1:1800B0Q1(33)29Q1(34)22140:C1(3)1:1800B:Q1(33)31Q1(34)2Q1$"(9*907.":2190:C1(4)1:1800CDQ1(35)31Q1(36)12150:C1(4)1:1800CXNQ1(35)25Q1(36)1Q1$".909-7+":2190:C1(1)1:1800CXQ1(37)25Q1(38)22120:C1(1)1:1800CbB15:1280:FClF14:C1(F)01920CvFCF2120,2130,2140,2150C1810D#F14:Q1(13)2Q1(15)Q1(13)6Q1(15)Q1$"-3+0-1+.7":2190D8B15:1280:F:D]F10142:Q1(F)11970::F:DF23:((Q1(10)F)(Q1(12)F)(Q1(14)F)(Q1(16)F))32030::FDF14:((Q1(10)2)(Q1(12)2)(Q1(14)1)(Q1(16)2))1Q1$"+7-7+8-":2190:2030EB15:1280:FE7ЅQ1(40)2Q1(36)2Q1(38)12180EjڅQ1(40)1Q1(36)1Q1(38)2B15:1280:2180EpEF14:Q1(12)2Q1(14)1Q1$"+7-7+8-":2190EQ1(12)3Q1(10)1Q1$"+8-9+9-":2190EB15:1280:F:F F14:Q1(34)2Q1(40)22160::B15:1280:FF\Q1(35)Q1(15)24Q1(39)Q1(11)24Q1$"),7/25/27),":2190::F F12:Q1(37)Q1(15)24Q1(39)Q1(13)24Q1$"/24)/2,/26/2":2190::F*B15:1280:FG4F14:(Q1(39)Q1(15)24)(Q1(37)Q1(13)24)2180::B15:1280:FG >G#HQ1$"-7+7.90":2190G<RQ1$"3717+9-":2190GU\Q1$"*7(7193":2190GnfQ1$"07.7(9*":2190GpQ1(39)Q1(9)24Q1(33)Q1(11)24(Q1(35)Q1(15)24Q1(36)1)Q1$".3(108.3(10":2190:2060H zII111:B(("(-3*+8(-3*+",II))40:1280::2060HEQ1$"),6*+2(-6),":Q1(37)Q1(11)24Q1$"),4*+2(-4),"HvII1(Q1$):B((Q1$,II))CD:1280::HQ$:Q$""Q$"0"2200:H0:1:300ooo&'0 ' 3& ~&"&c ' ρ''&猰挭' A- Z.猛0-9. 'o挀'$oz섁'+'''#'':''3^-3_0UeЅQ1(35)Q1(15)24Q1(39)Q1(11)24B1:2480:B4:2480:B15:2480:B7:2480:B10:2480:B13:2480:B7:2480:B10:2480:B15:2480:B1:2480:B4:2480:A  F12:Q1(37)Q1(15)24Q1(39)Q1(13)24B7:2480:B10:2480:B12:2480:B1:2480:B7:2480:B10:2480:B4:2480:B7:2480:B10:2480:B14:2480:B7:2480:B10:2480:A3B15:2480:FA}F14:(Q1(39)Q1(15)24)(Q1(37)Q1(13) 24)6190::B15:2480:FAAzB5:2480:B15:2480:B3:2480:B15:2480:B6:2480:B17:2480:B8:2480:B0B11:2480:B15:2480:B9:2480:B15:2480:B3:2480:B17:2480:B5:2480:BB2:2480:B15:2480:B0:2480:B15:2480:B9:2480:B17:2480:B11:2480:BB8:2480:B15:2480:B6:2480:B15:2480:B0:2480:B17:2480:B2:2480:C Q1(39)Q1(9)24Q1(33)Q1(11)24(Q1(35)Q1(15)24Q1(36)1)B6:2480:B11:2480:B0:2480:B9:2480:B8:2480:B16:2480:B6:2480:B11:2480:B0:2480:B9:2480:B8:2480:5830D#B0:2480:B5:2480:B11:2480:B2:2480:B3:2480:B16:2480:B0:2480:B5:2480:B11:2480:B2:2480:B3:2480D.聥5830DP.BM14:Q1(37)Q1(11)24BM12D8B1:2480:B4:2480:BBM:2480:B2:2480:B3:2480:B10:2480:B0:2480:B5:2480:BBM:2480:B1:2480:B4:2480:D'Q$:Q$""10000:Q$;:80:B5:2480:B11:2480:B2:2480:B3:2480D.聥5830DP.BM14:Q1(37)Q1(11)24BM12D8B1:248g& **FINANCIAL ANALYST**&/ WRITTEN BY:&> M. HAVAS&S 1331 PARKER CT&l REDLANDS, CA 92373&:COPYRIGHT (C) CLOAD 1982& ::4)"***FINANCIAL ANALYST***"& ::2)"SELECT THE FINANCIAL ACTIVITY IN WHICH YOU ARE INTERESTED:"' :" LOAN PAYMENT"', " FUTURE VALUE"'E" PRESENT VALUE"'" COMPOUND INTEREST":" END":X15:"V30;T175;L4;A+;A;A-":X:@455,"ACTIVITY?"'R$:R$""16'R$"A"100'R$"B"200'R$"C"300'R$"D"400( R$"E"25(F:50,4:@199,"ANOTHER ACTIVITY":11)"";:"";A$(ZR$:R$""23(mR$"Y"10:25(s(d LOAN PAYMENT(e::10)"LOAN PAYMENT"(f:200,1:"LOAN VALUE $";P:RP(g200,1:"ANNUAL INTEREST RATE %";Z)h200,1:"TIME PERIODS (MONTHS)";I)iYZ12)CjLPP(((1(1Y100)I))(Y100)))Mk135)l:"WOULD YOU LIKE A MONTHLY":"BREAKDOWN ?")mR$:R$""109)nR$"Y"125:132)oX1I)pAPY100)qZLPA)rPPZ)sPZ0121)tT1250:T*u127*!vCC1:C12119:120*7wT1250:T:125*>xX*LyP0:127*\z144:132*b{*h|*}:" MTH PRNCPL INT BAL":C0*~*"###";X;*"$$####.##";Z;*"$$####.##";A;*" ";:"$$#####.##";P;*+50,1:@455,"ANOTHER ";+,R$:R$""133+@R$"Y"100:10+F+g::"ON A LOAN VALUE OF $"P+"AT"Z"% ANNUAL INTEREST RATE OR"+"AT";:"##.####";Y;:"% MONTHLY INTEREST"+"FOR"I"TIME PERIODS"+"YOUR PAYMENT PER PERIOD","WILL BE:";,"$$#####.##";LP,X:ALPIP:"TOTAL INTEREST IS:";:"$$#######.##";A:,ALPIR:"TOTAL INTEREST IS:";:"$$#####.##";A,,Ȃ FUTURE VALUE,ɞ:@74,"FUTURE VALUE",ʇ:200,1:"DEPOSIT PER PERIOD $";D- ˠ200,1:"ANNUAL INTEREST %";I-̠200,1:"DEPOSIT FREQUENCY:":"DAILY; WEEKLY; BIWEEKLY; MONTHLY; QUARTERLY; SEMI-ANNUALLY; ANNUALLY"-R$:R$""205-Π200,1:"NUMBER OF DEPOSIT PERIODS";P-υR$"A"214-ЅR$"B"215-хR$"C"216.҅R$"D"217.ӅR$"E"218.&ԅR$"F"219.6ՅR$"G"220.QAI360:T$"DAY":221.lAI52:T$"WEEK":221.AI26:T$"TWO WEEK PERIOD":221.AI12:T$"MONTH":221.AI4:T$"QUARTER":221.AI2:T$"SIX MONTH":221/AI:T$"YEAR":221/'FV(D(((1A100)P)1)(A100))/Vޞ::::"IF YOU DEPOSIT";:"$$####.##";D/w߇"EACH "T$" AT"I"% ANNUALLY"/"OR";:"###.####";A;:"% PER "T$/"THE VALUE AT THE END OF"P:T$"S WILL BE:"/"$$#####.##";FV0:"WOULD YOU LIKE A":" MONTHLY BREAKDOWN ?"01R$:R$""2280PR0:B0:R$"N"250:2480XX10`R00jBDR0t遦2430X2P0RBA1000BBRD0T1175:T02430CC1:C122410X:2500T1200:T:24801"##";X;1"$$#####.##";D;1+"$$####.##";R;1G" ";:"$$#####.##";B;1M1{:"PD DEPOSIT INT BAL"::C01150,1:@455,"ANOTHER ?"1R$:R$""2511R$"Y"200:101, PRESENT VALUE1-:@41,"PRESENT VALUE"2D.:200,1:1)"SELECT LUMP SUM DEPOSIT OR SERIES OF PAYMENTS"2Y/R$:R$""3032i0R$"B"31821:200,1:::"TARGET VALUE $";T22200,1:"ANNUAL INTEREST RATE %";I23200,1:"TIME PERIOD (MONTHS)";P24AI1210025PVT(1A)P3/6:@96,"YOU NEED TO DEPOSIT";:"$$#####.##";PV3V7"TODAY TO HAVE";:"$$#####.##";T3i8"IN"P"MONTHS"39"AT";:"###.####";A;:"% INTEREST PER MONTH"3:"OR";:"###.####";I;:"% ANNUALLY"3;@455,"ANOTHER ?"3:200,1:::"PAYMENT TIME PERIODS: WEEKS; MONTHS;QUARTERS; YEARS"4s?R$:R$""3194@200,1:"ANNUAL INTEREST %";I4A200,1:"PAYMENT VALUE $";P4BR$"A"3264CR$"B"3274DR$"C"3284ER$"D"3295FAI52:U$"DAY":3305+GAI12:U$"MONTH":3305HHAI4:U$"QUARTER":3305`IAI:U$"YEAR":3305J200,1:"PAYMENT PERIODS ";M5K"PAYMENTS ARE MADE AT THE BEGINNING OR THE END OF EACH PERIOD?5LR$:R$""3325MR$"A"3356$NPVP((1(1A100)M)(A100)):T$"END":3366]OPVP(1(1(1A100)(M1))(A100)):T$"BEGINNING"6P:@96,"THE PRESENT VALUE OF"M:"$$####.##";P;:" PAYMENTS"6Q" MADE AT THE "T$:" OF EACH "U$6R"AT";:"###.####";I;:"% PER YEAR"7S"OR";:"###.####";A;:"% PER "U$71T"IS";:"$$#####.##";PV7;U3157S COMPOUND INTEREST7r:@40,"COMPOUND INTEREST"7x7200,1:"DEPOSIT $";D7200,1:"ANNUAL INTEREST %";I8 200,1:"COMPOUNDS DAILY; MONTHLY; QUARTERLY;SEMI-ANNUALLY; ANNUALLY"8"R$:R$""4068T200,1:"NUMBER OF COMPOUNDING":" PERIODS";P8dR$"A"4138tR$"B"4158R$"C"4178R$"D"4198R$"E"4218AI360:T$"DAY"84238AI12:T$"MONTH"84238AI4:T$"QUARTER"94239AI2:T$"SIX MONTHS"9(4239:AI:T$"YEAR"9D4239YFVD(1A100)P9:@96,"A DEPOSIT OF";:"$$#####.##";D9"AT"I"% INTEREST ANNUALLY"9"OR";:"###.####";A;:"% INTEREST EACH "T$:"WILL HAVE A VALUE OF";:"$$#####.##";FV:!"AT THE END OF"P;T$"S":=@455,"ANOTHER ?":RR$:R$""430:fR$"Y"400:10EPOSIT OF";:"$$#####.##";D9"AT"I"% INTEREST ANNUALLY"9"OR";:"###.####";A;:"% INTEREST EACH "T$:"WILL HAVE A VALUE OF";:"$$#####.