22 lines
472 B
QBasic
22 lines
472 B
QBasic
10 SPRITE p(1,2,1,255,0,0,2,10,30,10,5)
|
|
20 SPRITE p(2,1,2,255,0,0,4,8,25,15,10)
|
|
30 SPRITE p(3,15,16,255,0,0,4,12,27,8,10)
|
|
55 PLAYER p(3,255,0,0,10,10)
|
|
56 PLAYER b(15,16,10,10,10,10,10,10,10,10)
|
|
57 PLAYER c(50,50,50,50,50,50)
|
|
60 SPRITE m(1)
|
|
65 SPRITE s(60)
|
|
70 a=INKEY
|
|
80 PLAYXY a
|
|
90 a=PLAYER (1)
|
|
95 POS 1,1:PRINT a;
|
|
100 IF a=1 THEN GOTO 200
|
|
120 GOTO 70
|
|
200 FOR i=1 TO 10
|
|
210 BEEP 90:PAUSE 10:BEEP 100
|
|
220 NEXT i
|
|
230 SPRITE m(2)
|
|
240 CLS
|
|
250 GOTO 10
|
|
|