31 lines
634 B
Plaintext
31 lines
634 B
Plaintext
PROGRAM:Pacman2
|
|
01 CLS :A=10:X=2:Y=0
|
|
02 DA 0,92,8,92,4,89,8,94,4
|
|
03 PLAY 0,4,3,128
|
|
04 COLOR 14:BOX 0,0,42,59
|
|
05 COL 14
|
|
06 ? !66; @3,5;"PACMAN"
|
|
07 A=A+1:IF A=16 THEN A=0
|
|
08 COL 2:? @9,5;%25
|
|
09 COL 3:? @9,8;%25
|
|
10 COL 4:? @9,11;%25
|
|
11 COL 5:? @9,14;%25
|
|
12 COL 6:? @9,17;%25
|
|
13 COL 7:? @9,20;%25
|
|
14 COL 8:? @9,23;%25
|
|
15 COL 14
|
|
16 ? @13,9;"Score: ";P
|
|
17 ? @15,5;"(C) AVR CHIPBASIC2"
|
|
18 COL 7:? @18,9;"PRESS FIRE"
|
|
19 IF KEY(234) THEN RETURN
|
|
20 WAIT 2
|
|
21 GOTO 4
|
|
22 'IF IN(0)=1 & (L=1) THEN X=X-1
|
|
23 IF IN(6)=1 & R=1 THEN X=X+1
|
|
24 IF IN(3)=1 & D=1 THEN Y=Y-1
|
|
25 IF IN(2)=1 & U=1 THEN Y=Y+1
|
|
26
|
|
27
|
|
28
|
|
29 P=0:RET
|
|
# |