d OSERO 6.3)nI139:E$E$" ":AxI139:E$E$"":}53280,1:53281,1:53272,21:D$"": C64 MODS 1983I120:D$D$"":A(9,9),I4(7),J4(7),D$(2)"GREETINGS FROM OSERO""DO YOU WANT INSTRUCTIONS ? "; 2470:X$"N""NO":470! "YES"N "OSERO IS PLAYED ON AN 8 X 8 BOARD," "ROWS NUMBERED 1 TO 8 AND COLUMNS A TO H" "THE INITIAL CONFIGURATION IS ALL BLANK," "EXECPT FOR THE CENTER FOUR SQUARES," "TRY TO PLACE YOUR PIECE SO THAT IT"7 "OUTFLANKS MINE, CREATING A HORIZONTAL,"f "VERITICAL,OR DIAGONAL RUN OF MY PIECES," "TURNING THEM INTO YOURS." " " "" " ," " 6"EXAMPLE: WHITE OUTFLANKS BLACK,": @"CAPTURING FOUR OF BLACKS PIECES."K J"";W TI120m ^"ѝ";:L1200: h" ";:L1200: r |" ݠ " "MAKE YOUR MOVE BY ENTERING A NUMBER" "FOR THE ROW AND A LETTER FOR THE COLUMN."/ "NOTE: YOU MUST CAPTURE AT LEAST ONE OF"\ "MY PIECES IN THIS WAY IF IT IS AT ALL" "POSSIBLE. IF IT IS NOT POSSIBLE, YOU" "FORFEIT YOUR TURN BY ENTERING 0 A FOR" "YOUR MOVE." F20 "SHOULD I PLAY MY BEST ? "; S20:S40:S50& 2470:X$"N""NO":5202 "YES"F S22:S41:S52S B1:W1u D$(B1)"":N$(B1)"BLACK" D$(01)" " &D$(W1)"":N$(W1)"WHITE" 0K07 :I4(K),J4(K) D NI09:J09 XA(I,J)0 bJ,IlA(4,4)W:A(5,5)WvA(4,5)B:A(5,4)B3C12:H1C1:N14:Z0Y"DO YOU WANT BLACK OR WHITE ? ";eCW:HB2470:X$"B"N$(0):700N$(2)CB:HW"";2170D$"DO YOU WANT TO GO FIRST ? ";2470:X$"Y""YES":1140"NO":"OK, I AM THINKING !"4B11:I30:J30:T1C:T2HFI18:J18Z A(I,J)0930d 1840rF10930{ U1*19204S10930>(I1)(I8)S1S1S2H(J1)(J8)S1S1S2R(I2)(I7)S1S1S5\(J2)(J7)S1S1S5f(I3)(I6)S1S1S4/p(J3)(J6)S1S1S4>zS1B1930MS1B1920_(1)0.5930sB1S1:I3I:J3J|J,IB101010S50970S50:"S5=2":750D$""E$"I HAVE TO FORFEIT MY MOVE"Z11500Z11140Z06D$""E$"I WILL MOVE TO "((I3),1)" "(J364)@2400RII3:JJ3:U1\1920k$C1C1S11x.H1H1S18N1N11BD$""E$"THAT GIVES ME ";LS1;V" OF YOUR PIECES"`2170jH10N1641500tT1H:T2C~D$;E$"INPUT YOUR MOVE -- ROW COL ";(2330>(I0)(J0)1150MI01250zD$;E$"ARE YOU FORFEITING YOUR TURN ? ";2470:X$"Y""NO":1150"YES"Z11500Z1750 A(I,J)01280D$""E$"SORRY,SQUARE OCCUPIED;TRY AGAIN"13601840* F111320^D$""E$"SORRY,NOT NEXT TO MY PIECES;TRY AGAIN"h1360q(U1{21920<S101380FD$""E$"SORRY,DOESN'T FLANK A ROW;TRY AGAIN"PE$Z1150dZ0nD$""E$"THAT GIVES YOU ";xS1;" OF MY PIECES":E$U1)19208H1H1S11EC1C1S1QN1N11[2170pC10N1641500y750D$;E$:E$:E$D$;E$"YOU HAVE "H1"PIECES""I HAVE "C1"PIECES"H1C11570H1C11590"SORRY, I WON THAT ONE." 1600""A TIE !!"',178086"YOU WON !"E@C1C1H1TJC101630_TC1C1q^C1(64C1)N1h"THAT WAS A ";rC1111770|C1251750C1391730C1531710"PERFECT GAME."1780"WALKAWAY."1780 "FIGHT."1780)"HOT GAME !"31780E"SQUEAKER !"Kw"DO YOU WANT TO PLAY ANOTHER GAME ? ";2470:X$"Y""YES":590"NO""THANKS FOR PLAYING."&0F10:I111DJ111NA(II1,JJ1)T21900 XJ1,I1blF11v(S103K07@I5I4(K)MJ5J4(K)YI6II5eJ6JJ5nS30A(I6,J6)T22150S3S31I6I6I5J6J6J5A(I6,J6)T12060A(I6,J6)0 21502000 S1S1S3U12150 I6I*J6J4K10S3,>A(I6,J6)T19HI6I6I5FRJ6J6J5N\K1UfK[pz"  O S E R O "X$" "E$" A B C D E F G H "" "&I182I" ";=J18UD$(A(I,J)1)" ";\Jl:I8X$sI" " INPUT SUBROUTINE D$""E$"BAD MOVE; TRY AGAIN." I1:JI$ K12. 2470 8 G(X$)/B 47GG58IG48:""X$" ";QL 64GG74JG64:""X$" ";YV :t` BLINK COMPUTERS MOVEj (D$,2(I31)5);4(J31)5);t X$D$(C1)~ K19 X$"";:L1200: " ";:L1200: : INPUT WITH CURSOR L09:X$:" X$:X$""8 "";:L1100:N " ";:L1100:X 2490 0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1