Демонстрационная программка, набрав ее. Вам ничего ие надо де-
лать, ии от кого не надо убегать и никого ие надо догонять. Просто
расслабьтесь и наслаждайтесь тем, как лихо играют между собой мас-
тера игры в теннис. Действиями обоих игроков руководит компьютер.
В русификации программы нет необходимости.
100 GO SUB 9000: LET HL-57: LET
HR=70: LET SL»12: LET SR-8
150 LET V=0: LET T=0. LET A-13
LET B«=4: LET Oil: LET D-24
200 LET G-110: FOR F-103 TO 53
STEP -5" PLOT G,F: DRAW 0,-15: L
ET G=G+2: NEXT F
300 FOR F=D TO 15 STEP 5: PLOT
110,103-F: DRAW 20,-50: NEXT F
400 PLOT 12,88 DRAW 190,0: DRA
W 24,-50: DRAW -19D,0: DRAW -24,
50
410 PLOT 22,67: DRAW 70,0: DRAW
-10,2D: DRAW 24,-49
420 PLOT 212,67: DRAW -70,0: DR
AW -10,20: DRAW 24,-49
440 PRINT AT A,B;"A";AT A+1,B;"
B"
450 PRINT AT C,D;"C":AT C+1,D;"
D": PAUSE 5
470 PRINT AT А,В;"£";AT A+1,B;"
E"
480 PAUSE 5. BEEP .01,0: PRINT
AT A,B;"A";AT A+1,B;"B"
500 FOB N=36 TO 190 STEP SL: PL
ОТ N,50+HL*SIN (N/235*PI)
520 PLOT OVER 1;N,50+HL*SIN (N
/235*PI)
550 IF N>170 THEN PRINT AT C,D
;"G";AT C+1,D;"H"
560 IF T=1 THEN GO TO 580
570 IF HL<65 AND N>160 AND T-0
THEN LET D=D-1: PRINT AT C,D;
"C ";AT C+1,D;"D ": LET T-l
580 IF T-0 THEN GO TO 600
590 IF HL>72 AND N>160 AND T=1
THEN LET D-D+l: PRINT AT C.D-l;
" C";AT C+l,D-1;" D" : LET T=0
600 NEXT N
620 PAUSE 5: PRINT AT C,D;"C";A
T C+1,D;"D": BEEP .01,0
650 LET HL=RND*26+57: LET SL-=RN
D*16+4
700 FOR N=190 TO 44 STEP -SR: P
LOT N,40+HR*SIN (N/255*PI)
720 PLOT OVER 1;N,40+HR*SIN (N
/255*PI)
740 IF N<64 THEN PRINT AT A,B;
"E";AT A+l,B;"F"
760 IF V=1 THEN GO TO 780
770 IF HR<73 AND N<60 AND V=0 T
HEN LET B-B+l: PRINT AT A,B-1;
" A";AT A+1,B-1;" B": LET V=1
780 IF V=0 THEN GO TO 800
790 IF HR>85 AND N<60 AND V=1 T
• HEN LET B=B-1: PRINT AT A.B.
"A ";AT A+l,B;"B ■: LET V=0
800 NEXT N
820 PAUSE 5: PRINT AT A,B;"A";A
T A+l,B;"B": BEEP .01,0
830 PLOT 22,67: DRAW 70,0
850 LET HR=RND*30 + 65: LET SR=RN
D*16+4
870 PLOT 12,88: DRAW 190,0
900 GO TO 500
9000 RESTORE 9000: POKE 23675,88
: POKE 23676,255: FOR F=1 TO 8:
FOR G=0 TO 7: READ A: POKE USR С
HR$ (143+F)+G,A: NEXT G: NEXT F:
RETURN
9010 DATA 0,0,24,24,255,56,92,92
,92,154,153,148,212,210,18,27
9020 DATA 0,0,24,24,8,28,58,58,5
8,89,153,41,43,75,72,216
9030 DATA 3,3,25,25,255,62,92,92
,92,152,152,148,20,18,18,27
9040 DATA 192,192,152,152,72,60,
58,58,58,25,25,40,40,7 2,72,216
