Q-LINK DISK # 85D *** SCORE FIVE ***k *** A NUMERIC STRATEGY GAME *** *** BY ALAN MIDNIGHT ***:S54272:LSS24:L,0:S5,9:S6,916:S1,5:S24,15 53280,12:53281,15:A0:L0:RT0" " 55555555555555"D " 5 5"h " 5 CORE IVE 5" " 5 5" " 55555555555555" " NSTRUCTIONS / " A$:A$"Y"3000:20 A$"N"17 " 1 OR 2 PLAYERS? "? A$:NP(A$):NP1NP222n " ˒EYBOARD OR ʒOYSTICK PORT 2 A$:A$"J"600:30 A$"K"27 " SE CURSOR KEYS TO MOVE. <> TO SET. D123: NP1700 #" "% %I16E (" ϷϷϷϷϷϷд"e -" " 2" ̯̯̯̯̯̯" < F" " PI16:J16 ZAA1:A10A1 dBD(I,J)A n: xI16:J16 I1(6(0))1:J1(6(0))1F TBD(I,J):BD(I,J)BD(I1,J1):BD(I1,J1)TN :m "";:I16:"":J16 BD$((BD(J,I)),1) J33);BD$; : ""25)"PLAYER "; NP1" -":25)"COMPUTER-":210 "1-":25)"PLAYER 2-" 25)"RUNNING"+ 27)"TOTAL -"B PLPL1:PL3PL1k I110:A$::(NP1)(PL2)1600 " " (PL2)(NP1)1000 NP2" PLAYER"PL:250%" YOUR PLAY"7L0L1:500XAA0:X3X1X1:Y3Y1Y1~X31X36Y31Y36AAAA1:300"BD(X3,Y3)0AAAA1,:1AA93206"";:YY1NY:"";;:NX33)" ":500@2000 TBD(NX,NY)01500:" ":320%Y"";:YY1Y:"";7Z:X33)" "E^XNX:YNYWhRTRTBD(X,Y)qm""35);RTrBD(X,Y)0|RT5(RT5)430SC(PL)SC(PL)RT:1700PL410,420""35);SC(1):430""35);SC(2)"";:YY1Y:"";#:X33)"ї"3RT169550<230F2100cBD(NX,NY)01500:1000~"";:YY1NY:"";:NX33)"ї"345&ZZ12000::""+PL1:SC(1)SC(2)PL20NP157058)"PLAYER"PL"IS THE WINNER!">7""12)"PLAYER 1 -"SC(1):12)"PLAYER 2 -"SC(2):580N:PL571,572s;9)"YOU ARE THE WINNER!!!":575<9)"I HAVE WON THIS TIME!"?""12)"PLAYER -"SC(1):12)"COMPUTER -"SC(2)D""11)"PLAY AGAIN? (Y/N)"IA$:A$"N"800NA$"Y"S585-XJK1:NP1O]" 1 OR 2 JOYSTICKS?"abA$:A$"2"rlA$"1"610}vJK2:PL0:" ILL YOU PLAY FIRST /A$:A$"Y"A$"N"710PL1: NP1 *" ARE YOU SURE? I'LL TAKE".4" ON THE WINNER..."@uA$:A$"N"NzA$"Y"W885u **** COMPUTER TURN ****L0L1:1040NX0:NY0:AA0:NX(1)0:X3X1X1:Y3Y1Y1X31X36Y31Y36AAAA1:1020BD(X3,Y3)0AAAA1:AA910605I16:J16:BD(I,J)01050m(RTBD(I,J))5((RTBD(I,J))5)NXI:NYJ:I6:J6::NX0340I16:J16:BD(I,J)0NXI:NYJ:I6:J6!::340$AA0:X3X1X1:Y3Y1Y1:(X3X)(Y3Y) %X31X36Y31Y361070#&BD(X3,Y3)01070i)(RTBD(X3,Y3))5((RTBD(X3,Y3))5)AAAA1:NX(AA)X3:NY(AA)Y3.::NX(1)010803AA(AA(0))1:NXNX(AA):NYNY(AA):3408AA0:NX(1)0:X3X1X1:Y3Y1Y1:(X3X)(Y3Y)9X31X36Y31Y361110:BD(X3,Y3)01110:;AAAA1:NX(AA)X3:NY(AA)Y3r=AB0:X4X31X31:Y4Y31Y31:(X4X3)(Y4Y3)>(X4X)(Y4Y)1100?X41X46Y41Y461100@BD(X4,Y4)01100BAB1:(RTBD(X3,Y3)BD(X4,Y4))5((RTBD(X3,Y3)BD(X4,Y4))5)11005GNX(AA)0:NY(AA)0:AAAA1:X4X31:Y4Y31=L:aQAB0NX(AA)0:NY(AA)0:AAAA1wV::NX(1)01120[AA(AA(0))1:NXNX(AA):NYNY(AA):340`AA0:NX(1)0:X3X1X1:Y3Y1Y1:(X3X)(Y3Y)aX31X36Y31Y361130bBD(X3,Y3)011302eAAAA1:NX(AA)X3:NY(AA)Y3cj::AA(AA(0))1:NXNX(AA):NYNY(AA):340|S54272: S4,33ZZ1200::S4,32@ S1,130: PL2 S1,50A S4,21B ZZ1 200:: S4,20CS1,5: I7010010: S1,I S4,213 ZZ1 50:: S4,20:@S1,5:NNYY:NXXv"";:YY1NY:"";::NX33);(XNX)(YNY)"ї":2040BD(NX,NY)0" ":2040((BD(NX,NY)),1)2500NX11500:NX1:2040 NY11500:NY1:2040$NY61500:NY6:2040?NX61500:NX6:2040^NXX11500:NXX1:2040}NXX11500:NXX1:2040NYY11500:NYY1:2040NYY11500:NYY1:2040"";:YY1NY:"";:NX33)"ם";FR162025  "ѝ";:T4" CHOOSE ANY SPACE":X4:Y4:NX4:NY4o>"";:YY1NY:"";C:NX33)"ם";H2500RNX1NX1:1500SNX6NX6:1500TNY1NY1:1500UNY6NY6:1500WFR162150\BD(X,Y)0" ":2147$a((BD(X,Y)),1)8cXNX:YNY:2110ZfBD(NX,NY)01500:" ":2110k" ": (JK0)((JK2)(PL2))2600:2510 JV(56320(PL2)):FRJV16:JV15(JV15) (JV1)1NYNY1 (JV2)2NYNY1, (JV4)4NXNX1B (JV8)8NXNX1e JV0:(JK0)((JK2)(PL2))v ZZ150:: XNX:YNY:2510 BD(NX,NY)01500:" ":2510 " ":( A$:FR16:JV0:A$" "FR02 A$""JV8(7 A$""JV49< A$""JV2JA A$""JV1]F A$(13)FR0cZ  " Š IS PLAYED IN A 6 BY 6" " GRID, EACH SQUARE WORTH POINTS. OU" " AND YOUR OPPONENT MOVE A MARKER ON" " THE BOARD, FROM ITS CURRENT SQUARE"> " TO AN ADJACENT SQUARE. (DIAGONAL"l " MOVES ARE ALLOWED). HE POINTS IN THE" " SQUARE MOVED TO ARE ADDED TO THE" " RUNNING TOTAL. F YOU CAN CAUSE THE" " TOTAL TO BECOME A MULTIPLE OF FIVE"  " BY YOUR MOVE, YOU SCORE POINTS EQUAL"F  " TO THE RUNNING TOTAL. OUR OPPONENT,"p & " HOWEVER, IS DOING THE SAME THING," 0 " AND IS USING THE SAME MARKER AND" : " RUNNING TOTAL! O MAKE THINGS EVEN" D " HARDER, ONCE YOU'VE SCORED THE POINTS" !N " ON A SQUARE, YOU CANNOT RETURN TO IT."A!S " RESS <>U!T A$:A$""3156!X " OU MAY USE A JOYSTICK TO SELECT"!b " YOUR MOVES. IMPLY PRESS THE FIRE"!l " BUTTON WHEN THE MARKER IS WHERE YOU""v " WANT IT. OU CAN ALSO USE THE CURSOR"1" " KEYS TO MOVE, AND THE RETURN KEY OR"X" " SPACE BAR FOR THE FIRE BUTTON."" " : F ONLY ONE JOYSTICK IS USED" " THEN ONE PLAYER MUST USE THE KEYBOARD." " HE COMPUTER WON'T LET YOU MAKE AN" # " ILLEGAL MOVE. F YOU HAVE NO MOVE,"7# " (THE ADJACENT SQUARES ARE ALL TAKEN)"c# " YOU ARE ALLOWED TO MOVE ANYWHERE ON"# " THE BOARD. HIS CAN WIN YOU THE GAME,"# " OR LOSE IT, IF YOU LET YOUR OPPONENT"# " HAVE AN ANYWHERE MOVE. HE GAME ENDS"$ " WHEN YOU HAVE SCORED ALL BUT TEN (OR"G$ " LESS) OF THE POINTS ON THE BOARD. THIS"s$ " ALWAYS LEAVES ONE OR TWO SQUARES AT"$ " THE END OF THE GAME."$ " RESS <>$ A$:A$""3316$ "":