3Hy tu>F >D U~ 2^╔ 3 б ***FOUR*** a program by Bruce Pratt April 1982 ╖:Г Т 1160 () Г"THE OBJECT OF THE GAME IS TO GET " 2 Г"FOUR IN A LINE" < Г "THE FOUR SYMBOLS MAY BE" F' Г "HORIZONTAL,VERTICAL OR DIAGONAL." P. Г"COLUMNS ARE FILLED FROM THE BASE UPWARD." Z' Г"IN PLAY, ONLY THREE KEYS ARE USED" d* Г" > MOVES THE POINTER RIGHT" n) Г" < MOVES THE POINTER LEFT" x+ Г" SPACE BAR DROPS A MARKER TO" В/ Г" THE BASE OF THE SELECTED COLUMN" М М T(11),S(44),N(7) Ц Н 170 а К I=1 Щ 1000:Л I к' M1$="HIT ANY KEY TO CONTINUE":Т 1090 ┤ Д ▐="" Й 180 ╛# E=0:F=0:G=0:К A=1 Щ 44:S(A)=0:ЛA ╚" ╖:Г:Г Ы(12);"FOUR IN A ROW":Г:Г ╥ Г Ы(7);"SCORES":Г ▄ Г "YOU";Ы(9);S1 ц Г "ME";Ы(9);S2 Ё Г"DRAWN";Ы(9);S3:Г:Г · Ш ▒ 0,16 L=-4006 Ф 134,133,132,131 "% К T1=1 Щ 13: Д T1/2=═(╝(T1/2)) Й Ш , У A,B:К C=1 Щ 28 Ъ 4 6 Д T1=1 Й 340 @ Я L,133:Я L+29,134 J Я L+C,A:Я L+C+3,B T Л C:L=L+64:Л T1 ^" W=36:К C=1 Щ 7:N(C)=W:W=W+1:Л C h R=-4008:C=4 r) S4=S1+S2+S3:Д S4/2 <> ═(╝ (S4/2))Й 660 | M1$="MY MOVE":Т 1070 Ж Д G<>0 Й Б G=0:Н 160 Р V=0:X=0:Y=0:Z=0 Ъ К J=1 Щ 7:C=C+1:Д C>7 Й Б C=1 д P=R+C*4:Д N(C)>0 Й Т 820 о Д F<>0 Й Л*J 620 ╕ Л J ┬ Д X<>0 Й Б C=X:Н 620 ╠ Д Y<>0 Й Б C=Y:Н 500 ╓ Д Z<>0 Й Б C=Z:Н 500 р C=╝ ( ╠*7+1):Д N(C)<1 Й 480 ъ V=V+1:Д C<>4 │ V<5 Й 480 Ї Д N(C)<8 Й Б F=0:Н 620 ■ Д V< 10 Й 580 Д ═(V)/3=═(╝(═(V)/3)) Й Б M=1 M1$="NOW WHAT DO I DO":Т 1090 Д V<21 Й 580 & К A=1 Щ 500:Q=╝(╠*940-4084) 0 J=╝(╠*222+33):Я Q,J : Л A:E=1:Н 800 D$ N(C)=N(C)-7:Z=0:Т 820:N(C)=N(C)+7 N Д F<>0 Й Б F=0:Д V<9 Й 480 X Д Z<>0 Й Б Z=0:Д V<6 Й 480 b Д X<>0 Й Б X=0: Н 480 l( X=R+63+C * 4 + 128 * ╝((═(N(C)-C))/7) v' К B=1 Щ 2:Я X+B,137:Я X+B+64,136:Л B А S(N(C))=5:N(C)=N(C)-7 К8 Д F<>0 Й Б M1$="I WIN":Т 1090:█ 8;5;3;8:S2=S2+1:Н 160 Ф M1$="YOUR MOVE":Т 1070 Ю Д G<>0 Й Б G=0:Н 160 и P=R+C*4:Я P,135:Я P+1,138 ▓& K1$=▐:K=┼(K1$):Д K=44 ┤ K=46 Й 720 ╝ Д K=32 Й 760 ╞ Н 690 ╨ Д K=46 │ C<7 Й Б C=C+1 ┌ Д K=44 │ C>1 Й Б C=C-1 ф Я P,32:Я P+1,32 ю Н 680 °! L1=(═(N(C)-C))/7:Д L1<0 Й 680 X=P+63+╝(L1)*128 ' К A=1 Щ 2:Я X+A,129:Я X+A+64,130:Л A S(N(C))=1:E=0:Т820 5 Д E<>0 Й Б M1$="YOU WIN":Т 1070:█ 1,6:S1=S1+1:Н160 * N(C)=N(C)-7:Н 380 4 P=R+C*4:Я P,135:Я P+1,138 > К A=0Щ 11:T(A)=0:Л A H I=0:O=N(C) R К U=O Щ O+21 Ъ 7:Д U>42 Й 870 \ T(I)=T(I)+S(U) f Л U:I=I+1 p K=C-3:Д K<1 Й Б K=1 z К A=K Щ C+3 Д Д A>4 ┤ A>C Й 940 О+ К B=A Щ A+3:T(I)=T(I)+S(O-C+B):Л B:I=I+1 Ш! W=O-(C-A)*8:Д W<1 ┤ W>18 Й 940 в+ К D=0 Щ 3:T(I)=T(I)+S(W):W=W+8:Л D:I=I+1 м Д A>7 Й 980 ╢ Д A<4 ┤ A21 Й 980 ╩+ К D=0 Щ 3:T(I)=T(I)+S(W):W=W+6:Л D:I=I+1 ╘ Л A ▐! К H=0 Щ I:D=T(H):Д D=4 Й Б E=1 ш Д D=15 Й Б F=C Є Д D=10 Й Б Z=C № Д D=3 Й Б X=C Д H<>0 │ D=2 Й Б Y=C Л H Я P,32:Я P+1,32 $ Х . К A=1 Щ 7:Д S(A)=0 Й Л*A 1090 8 Л A:M1$="ITS A DRAW":G=1 B ▒ 0,16:Г [A50 32]; L Г [A20 8];M1$;▀(13); V Д M=0 Й 1130 `$ К D=1 Щ 300:Л D:M=0:M1$="":Н 1090 j Я -3124,32 t Д G<>0 Й Б S3=S3+1 ~ Х И Я -2032,0 Т У(1230)B Ь К A=-2031 Щ (-2032+159) ж У B ░ Я A,B ║ Л A ─ Х ╬. Ф 0,0,0,0,0,0,0,0,24,24,36,36,66,66,129,129 ╪. Ф 129,129,66,66,36,36,24,24,0,0,0,0,0,0,0,0 т& Ф 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,255 ьD Ф 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,255 Ў$ Ф 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 D Ф 128,128,128,128,128,128,128,128,128,128,128,128,128,128,128,128 ' Ф 1,1,1,1,1,1,1,1,1,1,17,25,13,7,3,1 4 Ф 255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0 4 Ф 0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255 (D Ф 128,128,128,128,128,128,128,128,128,128,136,152,176,224,192,128 FOURА227,227,227,195,231,127,115,72,100,103,112,8,31,224,0 n= Ф 225,227,22