4094
609@XRH@TT@+2.)-@
15
3840@O?7<K>!?!??+???@=I;
1344B"MAGI = 1 ; PRIM = 2 ; PICK = 3"%U@D"OPTION"
8T@AW@8%U@FP@A@7@%HVL)
1344J@U@L@U@N@U@P"THIS PROGRAM WILL GENERATE AN ODD ORDER MAGIC"%@U@R"SQUARE OF THE INDICATED SIZE, USING A SET"%@U@T"OF SEQUENTIAL INTEGERS BEGINNING WITH A"%@U@V"SPECIFIED STARTING NUMBER."%U@X"THE MAXIMUM SIZE IS 13 BY 13."%@U@Z%U@\%U@^"SIZE"
U@ TG?W@U@"PG?@P?9BP?6DPG?@P?9B@)M@P?6D@)H(A@ZCHU@$"BAD VALUE, TRY AGAIN."%@U@&YBZU@(PG?@P?<(BZB7@U@*"STARTING NUMBER"
@U@,THBW@U@.PHB)HPHB(FZB7U@0%U@2PG?@P?6@EPHBA@P?9BQHEU@4P?9QHH@U@6P?9QHK@U@8PG?@P?9AP?6DQHNU@:PHK@P?9BP?<C@PHNA@P?9BR@DPHBIU@<PHB@P?9AQHBU@>PHEPHB(DZE0UA@PHHPG?(DZD<UABP?9QHH@UADPHK@P?9AQHKUAFYDHUAHPHH@P?9AQHHUAJPHK@P?9BQHKUALPHN@P?9AQHNUANPHK@P?3(A@ZE(UAPPHNPG?(EZDHUARP?9QHN@UATYDHUAVPG?QHK@UAXYDHUAZP?3QHKPG?@P?9BP'4VE=PHK@]GJUA\%UA^P?3QHNPG?@P?9BP'4VFNPHN@]GGUA PHK@P?<C@PHNAR@DH)E@P?0)ED@)HQHHPHE)E@P?0)ED@)H@P?9BP'4VF0PHH@]F9UA"" "
@UA$XHHUA&PHK@P?<C@PHNAR@DH!
UA(XHNUA*XHKUA,%8%UA."THE MAGIC NUMBER ="
@P?6PHBCPG?P?6@EBP?9BPG?CP?6D!%@UA0%UA2"AGAIN"
@8'&THQW@8&PHQ&@P?-(A@ZG?8YBXUA4"NEXT PROGRAM"
8'&THQW@8&PHQ&@P?*(AZ@S@8Y-6UA6"PRIME NUMBER GENERATOR"%UA8%8%UA:"TYPE A RANGE OF NUMBERS IN WHICH TO FIND ALL PRIMES."%UA<"FOR EXAMPLE--'1000,1100' FINDS ALL THE PRIMES BETWEEN"%@UA>"THE NUMBERS 1000 AND 1100."%UB@%8"WHAT RANGE DO YOU CHOSE"
@UBBTHTTHWW8%8%8"     PRIMES BETWEEN"
PHT!
"AND"
PHW!%@UBDPHT@P?6(B@ZJ+8P?6QHT@8YJ7UBFP?6PHTP?6D@)HCP?9AQHTUBHPHTQHZPHW@P?6VKBPHZ@]K;UBJP?'QH]PHZ)F@P?6VKPPH]@]K%UBLPHZPH]DQH @UBNPH PH @)H(A@ZK)UBPXH]UBRPHZ!$UBTPHZ@P?6(F@ZK8UBVPHZ@P?9BQHZUBXXHZUBZ%UB\%8"AGAIN"
@8'&THQW@8&PHQ&@P?-(A@ZLR8YI2UB^"NEXT PROGRAM"
8'&THQW@8&PHQ&@P?*(AZ@S@8Y-6UCH"PICK IS ONE OF THE OLDEST TWO-PERSON GAMES KNOWN TO MAN AND"%@UCJ"IS BELIEVED TO HAVE ORIGINATED IN CHINA.  THE NAME, WHICH"%@UCL"WAS COINED BY THE FIRST MATHEMATICIAN TO ANALYZE IT, COMES"%UCN"FROM AN ARCHAIC ENGLISH VERB WHICH MEANS TO STEAL OR TO TAKE"%UCP"AWAY.  OBJECTS ARE ARRANGED IN ROWS BEFORE THE TWO OPPONENTS"%UCR"AS IN THE FOLLOWING EXAMPLE."%UCT"          / / / / / / / (ROW 1 - CONTAINS 7 OBJECTS)"%UCV"          / / / / /     (ROW 2 - CONTAINS 5 OBJECTS)"%UCX"          / / /         (ROW 3 - CONTAINS 3 OBJECTS)"%UCZ"          /             (ROW 4 - CONTAINS 1 OBJECT)"%@UC\"THE OPPONENTS TAKE TURNS REMOVING OBJECTS UNTIL THERE ARE"%@UC^"NONE LEFT.  THE ONE WHO PICKS UP THE LAST OBJECT WINS."%UC "THE MOVES ARE MADE ACCORDING TO THE FOLLOWING TWO RULES:"%UC""(1) ON ANY GIVEN TURN ONLY OBJECTS FROM ONE ROW MAY BE"%UC$"    REMOVED. (THERE IS NO RESTRICTION ON WHICH ROW OR ON"%UC&"    HOW MANY FROM THE ROW AS LONG AS THERE IS AT LEAST"%UC("    ZERO OBJECTS LEFT AFTER EACH MOVE)"%UC*"(2) YOU CANNOT SKIP A MOVE OR TAKE ZERO OBJECTS."%UC,"IN OUR GAME YOU MAY SPECIFY UP TO 10 ROWS WITH AS"%@UC."MANY AS 100 OBJECTS IN EACH ROW."%UC0@UC2P?3QOP@UC4P?3QOS@UC6P?3QOV@UC8%UC:"HOW MANY ROWS WILL OUR ARRAY HAVE"
@UC<TH W@UC>PH @P?$(D@ZV3UD@"YOU CAN'T HAVE MORE THAN 10 ROWS."%@UDBYU:UDD%UDF"NOW TELL ME HOW MANY THERE WILL BE IN EACH ROW."%@UDHP?9QOYPH P'4@VW[POY@]Y
UDJ"HOW MANY IN ROW"
POY!
UDLPOYRH
LW@UDNPOYRH
H@P?!(D@ZX]UDP"THAT WOULD TAKE TOO LONG.  TRY SOMETHING A LITTLE SMALLER."%UDRYW]UDTPOYRH
H@P?3(B@ZX>UDV"THERE MUST BE AT LEAST ONE OBJECT."%UDXYW]UDZPOYRH
H)HPOYRH
H(AZYZUD\"INTEGER VALUES ONLY."%UD^YW]UD %UD"XOYUD$P?9QO\P?0P'4@VY*PO\@]Z*UD&P?6PO\EQHZ@UD(P?9QOYPH P'4@VY>POY@]Z'UD*POYRH
HPHZ(CZZZUD,POYPH (DZZ$UD.PO\QO
@UD0P?0QO\@UD2POYQO"@UD4PH QOY@UD6XOYUD8XO\UD:PO
QO\@UD<%UD>"DO YOU WANT TO GO FIRST (1=YES, 0=NO)"
@UE@TO%W@UEBP?3QO(@UEDPO%@P?3(B@Z&FUEF%UEHP?9QH]PH P'4@V[%PH]@]\)UEJPH]RH
HQO+@UELP?9QO.PO\P'4@V[9PO.@]\&UENPO.@P?$C@PH]ARI%PO+@P?6PO\PO.BED@)HI@UEPPO+PO.P?$C@PH]ARI%H@P?6PO\PO.BECBQO+@UERXO.UETXH]UEVP?9QO.PO\P'4@V\4PO.@]]@UEXPO.RIDP?3I@UEZXO.UE\PO(@P?9(A@Z]RUE^P?3QHK@UE P?3QO1@UE"P?9QO.PO\P'4@V]]PO.@]^CUE$P?9QH]PH P'4@V]*PH]@]^@UE&PO.RIDPO.RIDHPO.P?$C@PH]ARI%HAIUE(XH]UE*XO.UE,P?9QO.@UE.P?3QO4@UE0PO.RIDHPO4(AZ^/UE2PO4@P?6AQO4UE4PO4PH (EZ^MUE6PO(@P?9(A@Z-)UE8Y
YUE:PO.@P?9AQO.UE<PO.PO\P?9A(DZ^HUE>PO.@P?9BQO.UF@PO(@P?9(A@Z"SUFBPO1@P?3(A@Z
7UFDY
:UFFP?6PO\PO.BEQHK@UFHPO1PHKAQO1@UFJPO.PO\P?9A(DZ^/UFLPO1@P?3(A@Z
7UFNP?3QO
@UFPP?9QO7PO1P'4@V JPO7@]!>UFRPO:@P?3(A@Z !UFTP?3QO:@UFVPO"QO7@UFXY!(UFZPO1@P?9APO7BQO=UF\P?9QP
1350^PO=PP@RH
H(EZ!KUF PP@@P?9AQP@UF"PP@PH P?9A(DZ /UF$Y!6UF&PP@RH
PP@RH
HPO=BI@UF(P?9QO(@UF*PO7QO
@UF,PO1QO7@UF.Y!;UF0PP@RH
PP@RH
HPO=AI@UF2Y 8UF4PP@QP
13506XO7UF8PO
@P?3(A@Z
7UF:PO
QO7@UF<P?3QO
@UF>Y[ZUG@"I CHOOSE"
PO=!
"FROM ROW"
PP@!%@UGBP?9QH]@UGDPH]RH
H@P?3(B@Z$3UGFPH]@P?9AQH]UGHPH]PH P?9A(DZ"*UGJ"I WON"%@UGLPOS@P?9AQOSUGN"DO YOU WANT TO PLAY AGAIN (1=YES, 0=NO)"
@UGPTPCW@UGRPPC@P?3(BZU:@UGTY,]UGVP?9QH]@UGXPH]RH
H@P?3(B@Z$YUGZPH]@P?9AQH]UG\PH]PH P?9A(DZ
<UG^Y,]UG PH]RH
PH]RH
H@P?9BIUG""I CHOOSE 1 FROM ROW"
PH]!%UG$%UG&%UG(P?9QH]PH P'4@V%BPH]@]%:UG*PH]RH
H@P?9(B@Z%$UG,"IN ROW"
PH]!
"THERE IS "
PH]RH
H!%UG.Y%7UG0"IN ROW"
PH]!
"THERE ARE"
PH]RH
H!%UG2XH]UG4%UG6%UG8POP@P?3(B@Z'<UG:%UG<"YOUR TURN.  TELL ME WHICH ROW YOU WOULD LIKE TO CHOOSE"%UG>"FROM AND HOW MANY YOU WOULD LIKE TO TAKE.  THE NUMBERS"%UH@"MUST BE WHOLE NUMBERS GREATER THAN ZERO.  THE ROW NUM-"%UHB"BER MUST BE FROM 1 TO"
PH !%UHD%UHFP?9QOP@UHHY(DUHJ"YOUR TURN."%UHL"WHICH ROW"
@UHNTH]W@UHPPH]@P?9(D@Z(
UHRPH]PH (EZ(>UHT"TRY AGAIN.  THE ROW NUMBER MUST BE FROM 1 TO"
PH !%@UHVY(DUHX"HOW MANY WILL YOU TAKE"
UHZTPFW@UH\PPF@P?3(B@Z)8UH^"YOU HAVE TO TAKE AWAY A POSITIVE NUMBER.  TRY AGAIN."%UH Y(DUH"P?3QO(@UH$PH]RH
PH]RH
HPPFBI@UH&PH]RH
H@P?3(C@Z*9UH(PH]RH
PH]RH
HPPFAI@UH*"YOU TOOK TOO MANY FROM THAT ROW. TRY AGAIN."%@UH,Y(DUH.P?9QH]@UH0%UH2%UH4PH]RH
H@P?3(BZ[Z@UH6PH]@P?9AQH]UH8PH]PH P?9A(DZ+BUH:"CONGRATULATIONS:  YOU WON."%UH<POV@P?9AQOVUH>%8"AGAIN"
@8'&THQW@8&PHQ&@P?*(AZU:@UI@"NEXT PROGRAM"
8'&THQW@8&PHQ&@P?-(A@Z-68Y@SUID%UIF"DO YOU WANT TO KNOW THE RESULTS (1=YES, 0=NO)"
@UIHTPIW@UIJ%UILPPI@P?9(D@Z-'UIN"OUT OF"
POSPOVA!
"GAMES, I WON"
POS!
"AND YOU WON"
POV!%UIP%UIROUITP?9QO:@UIVPO7QO"@UIXY
:U
>OP>T@
1061 @
1046
0:&4@
3056
0P%
0
0
1044
0PL
0P& @
3904NPUT B1 
354 IF B1<=10 THEN 372 
356 PRINT "NUMBER OF DIGITS";
358 INPUT P1 
360 LET P1=P1-1
362 FOR I=P1 TO 0 STEP -1
364 PRINT "DIGIT" P1-I; "="; 
366 INPUT A(I