■プログラムリスト(40字×38行)
10 CLEAR 299,&HBFFF:IF PEEK(&H2D)>=3 THE
N FORJ=0TO6:POKE&HC000+J,VAL("&H"+MID$("
23237ECD8001C9",J*2+1,2)):NEXT:DEFUSR=&H
C000:A=USR(128)
20 COLOR15,0,0:SCREEN1,2:KEYOFF:WIDTH32:
DEFSNGA-Z:R=RND(-TIME-.1):H$="071F3F7F7F
FFFFFFFFFF7F7F3F1F0700C0F0F8FCFCFEFEFEFE
FEFCFCF8F0C000":FORI=0TO31:VPOKE14336+I,
VAL("&H"+MID$(H$,I*2+1,2)):NEXT:LF=5
30 PUTSPRITE0,(48,128),15,0:PUTSPRITE1,(
40,136),14,0:FORI=1TO3
40 X(I)=INT(RND(1)*128)+64:Y(I)=INT(RND(
1)*102)+8:FL=0:FORJ=0TOI-1:IF (X(I)-X(J)
)^2+(Y(I)-Y(J))^2<900 THEN FL=1
50 NEXT:IF FL THEN 40
60 PUTSPRITEI+2,(X(I),Y(I)),6+(I=3)*2,0:
NEXT: GOSUB190:X=0:Y=0
70 S=STICK(0)+STICK(1):IFS<5ORS>7THEN70
80 S=STICK(0)+STICK(1):X=X-(S=7)*3-(S=6)
*2:Y=Y-(S=5)*3-(S=6)*2:PUTSPRITE1,(40-X,
136+Y),14,0:IF S>=5 AND S<=7 THEN 80
90 PUTSPRITE1,(40-X,136+Y),14,0
100 IF S>=5 AND S<=7 THEN 80
110 PUTSPRITE1,(40,136),14,0:PLAY"V15S1M
10000O4E8":VX=X*.1:VY=-Y*.1:X=48:Y=128
120 X=X+VX:Y=Y+VY+.05:VY=VY+.1:PUTSPRITE
0,(X,Y),15,0:I=IMOD3+1
130 IF (X(I)-X)*(X(I)-X)+(Y(I)-Y)*(Y(I)-
Y)<=196 THEN PUTSPRITEI+2,,0:X(I)=-99:IF
I<>3 THEN SC=SC+3^F1:F1=F1+1:PLAY"O4F":
GOSUB190 ELSE PLAY"O3C":LF=LF-1:GOSUB190
140 IF X<=248 AND Y<=191 THEN 120
150 IF F1=0 THEN PLAY"O3C":LF=LF-1
160 F1=0:GOSUB190:IF LF>0 THEN 30
170 LOCATE4,8:PRINT"GAME OVER"
180 IFSTRIG(0)+STRIG(1)THENRUNELSE180
190 LOCATE2,0:PRINTUSING"SCORE#### CHANC
E##";SC;LF:RETURN
|