XE-Handbuch

Seite 52

Beispiel 9

10 REM * * BALLSPIEL/PING-PONG ** *
20 GRAPHICS 5 : SETCOLOR 2, 0, 0
30 COLOR 1 : PLOT 0, 0 : DRAWTO 79, 0 : DRAWTO
79, 39 : DRAWTO 0, 39 : DRAWTO 0, 0
40 POKE 752, 1 : ? " SCORE " ; P ; " ZEIT " ; S ;
50 POKE 559, 46
60 POKE 704, 188
70 I=PEEK ( 106 ) -8
80 POKE 54279, I
90 POKE 53277, 3
100 POKE 53256, I
110 PMBASE=l * 256
120 FOR I=PMBASE+512 TO PMBASE+640 : POKE I, 0 : NEXT I
130 POKE PMBASE+512+85, 60 : POKE PMBASE+513+85, 60
140 FOR I=PMBASE+384 TO PMBASE+512 : POKE I, 0 : NEXT I
150 POKE PMBASE+384, 3 : S=999
160 YV=lNT ( 1 **RND ( 0 ) +2 ) : XV=lNT ( -4 *RND ( 0 ) +4 )
170 YM=l9 : XM=l20
180 ST=STl CK ( 0 ) : X=X+4 * ( ( ST=7 ) +2 * ( X>195 ) ) : X=X-4 * ( ( ST=ll ) +2 * ( X<45 ) )
190 POKE 53248, X
200 POKE 53278, 0
210 POKE PMBASE+384+YMl, 0 : A=A+l : S=S-1
220 IF S>10 THEN ? " " ;
100 THEN ? " " ;
240 POKE 752, 1 : ? " " ; S ; " " ;
250 XM=XM+XV : YMl=YM : YM=YM+YV : IF XM>50 OR XM<205 THEN XV=-XV : SOUND 0, 20, 10, 15 ; SOUND 0, 0, 0, 0 : GOTO 210
260 IF S=O THEN GOTO 340
270 IF YM>19 OR YM<92 THEN YV=-YV : SOUND 0, 20, 10, 15 : SOUND 0, 0, 0, 0 : GOTO 210
280 POKE PMBASE+384+YM, 3 : POKE 53252, XM
290 DF=O
300 IF PEEK ( 53256 ) ><0 AND A<3 THEN POKE 752, 2 : P=P+l : ? " SCORE 2 " ; P ; " ZEIT " ; : YV=-YV : XV=-XV : DF=l
310 IF DF=l THEN POKE 53278, 0 : A=O : GOTO 330
320 GOTO 180
330 XV=lNT ( -4 **RND ( 0 ) +2 ) : GOTO 210
340 POKE 53277, 0 : POKE 53265, 0 : POKE 532 61, 0
350 GRAPHICS 18
360 POSITlON 2, 3 : ? #6 ; "PUNKTE : " ; P

Ein Programm in PLAYER/ MISSILE-Technik. Zur Bewegung des Schlaegers ist ein Steuerknueppel erfor- derlich.
Zum Programm-Abbruch ist nicht die BREAK- sondern die RESET-Taste zu druecken, da sonst bei weiteren Eingaben am linken Bildschirmrand ein durchlaufender gruener Streifen sichtbar bleibt. Fuer das Zeichen " " bitte die Taste ESC druecken, dann gleichzeitig CONTROL und CLEAR.

Erstellt am 1.Juli 1998 um 19:10