Mostrando las entradas con la etiqueta basic. Mostrar todas las entradas
Mostrando las entradas con la etiqueta basic. Mostrar todas las entradas

viernes, 9 de octubre de 2026

miércoles, 29 de julio de 2026

Mundo 84

Telematica en Mundo 84 de canal 13 con Hernan Olguín; programa chileno de los 80s que hablaba de tecnologia.

1984.















viernes, 17 de julio de 2026

Ultra Tetris

 Encontre una hidden feature de este juego hecho en TBXL

After checking the Turbo BASIC XL source code, I discovered a hidden feature that can be activated while the game is paused.

- Press ESC to pause the game.
- Type IPC-CLEAR.
- Push the joystick UP.
- Press ESC again to resume the game.

When the game resumes, all of the pieces should be removed.
 


 

domingo, 5 de julio de 2026

Clues

Una columna de los primeros años de Analog Coputing llamada Our Game.

Enseñaba a programar Basic haciendo un juego en conjunto.




viernes, 3 de julio de 2026

Gusano Gloton

Pequeño gran juego de Microbyte.

Una version minimalista de Worm of Bemer. 

Juego original? chileno.




 


5 REM up 46 - W
6 REM down 62 - S
7 REM left 63 - A
8 REM right 58 - D

10 GRAPHICS 2:? #6:? #6;"        OOOO@"

15 ? #6:? #6;"--------------   "
20 ? #6;" el gusano gloton"
25 ? #6;"--------------------"
30 ? #6:? #6;"    ELIJA RAPIDEZ"

40 ? #6;"       (1-9)"

50 INPUT Z:IF Z<1 OR Z>9 THEN RUN
60 DIM S(999):GRAPHICS 0:POKE 752,1
70 SETCOLOR 2,13,0:SETCOLOR 4,4,0
85 SCR=PEEK(88)+256*PEEK(89)
89 POSITION 1,12:? "OOOO@"
90 FOR K=1 TO 4:S(K)=1:NEXT K

100 A=4:B=1:X=12:Y=5:U=SCR+481:GOSUB 500
105 POKE 764,255
110 IF PEEK(764)=255 THEN 110

114 REM
115 REM ***** LOOP *****
120 F=X:C=Y

130 X=X+(PEEK(764)=62)-(PEEK(764)=46)
140 Y=Y+(PEEK(764)=58)-(PEEK(764)=63)

145 IF X=F AND Y=C THEN 120
150 IF X>=0 AND X<24 AND Y>=0 AND Y<40 THEN 165
160 POSITION 15,11:? "GAME OVER"
162 POSITION 2,21
163 IF PEEK(764)<>33 THEN 163
164 RUN
165 P=PEEK(SCR+40*X+Y)
170 IF P=47 OR P=32 THEN 160
180 IF P=0 THEN 200
190 L=L+P-16:GOSUB 500
200 POKE SCR+40*X+Y,32:A=A+1:IF A=1000 THEN A=1
205 S(A)=(X-F)*40+Y-C:POKE SCR+40*F+C,47
210 IF L THEN L=L-1:GOTO 440
220 POKE U,0:U=U+S(B):B=B+1:IF B=1000 THEN B=1
440 SOUND 0,6,13,13
441 SOUND 1,0,0,0
442 FOR K=1 TO 100-Z*10:NEXT K
443 SOUND 0,0,0,0
444 SOUND 1,11,13,13
445 GOTO 120
497 REM
498 REM ***** SUBRUTINA *****
499 REM
500 M=SCR+INT(RND(0)*24)*40+INT(RND(0)*40)
510 IF PEEK(M) THEN 500
520 POKE M,INT(RND(0)*9)+17:RETURN

 

viernes, 19 de junio de 2026

Pingu

Juego del mismo autor de Wombel que parece ser un spin-off para publicarlo en otra revista alemana Computronic, con algunos cambios (ambos de 1987)

 

sábado, 30 de mayo de 2026

sábado, 25 de abril de 2026

El Requerimiento Imposible Fractalico

 El requerimiento imposible de la revists Antic:

 (Kudos to any programmer who finds a way to replace the self-squaring loop-in lines 310-400-with one or two mathematic equations. The equations should accept variables AZ, BZ, AC, BC and return a COUNT value. An algebraic proof of the equations must also be submitted. The best solution, in the judgement of the editors, will be published in these pages. -ANTIC ED)

 





http://www.atarimagazines.com/v4n12/FractalZoom.html

https://forums.atariage.com/topic/263988-fractal-zoom/

 

jueves, 19 de marzo de 2026

Wombel

Juego similar a Pengo, reseña de Rock and Rope, y el primer cargador turbo de cassette que vimos en los 80s.

Aparecio en la revista Computer Kontakt.