|
"No sólo de trucos útiles vive el hombre, sino
también de pequeños listados basic en los que se demuestra
que hacer un juego en 5 líneas de este lenguaje no es tan
complicado."
Microhobby nº 198
10 FOR a=0 TO 7: READ b: POKE USR "a"+a, b: NEXT a: DATA
36,189,255,165,165,189,189,24: LET na=5: LET pu=0: CLS
20 PRINT AT 20, RND*31;"*": PRINT AT 20, RND*31;"*":
PRINT: POKE 23692, -1: PRINT: LET pu=pu+1: IF SCREEN$ (0, na)="*"
THEN PRINT AT 0,0; FLASH 1; "PUNTOS ";pu: FOR a=0 TO 50:
BEEP .01, RND*40: NEXT a: RUN
30 LET a$=INKEY$: IF a$="z" THEN LET na=na-1: IF na=-1
THEN LET na=0
40 IF a$="m" THEN LET na=na+1: IF na=32 THEN LET na=31
50 PRINT AT 0,na;"a": GO TO 20:REM MASTERS GAMES
______________________________
NOTA: introducir a en modo gráfico
Controles:
Teclado Z - M
|
goto
Aquarius 