Retrospectiva

La edición de Retrospectiva de este año ha llegado a su fín.

No hemos recibido ningún trabajo para ninguna categoría, pero no nos rendiremos.

Las lecciones aprendidas del fracaso en captar el interes de los entusiasats de la retrocomputación de este año serán puestas en practica durante la próxima edición, y esperamos entonces poder lograr nuestro objetivo: Inspirar el uso creativo de viejas y ‘obsoletas’ computadoras.

Será hasta el año que viene.

—————————————————————

This year’s edition of Retrospectiva have come to its end.

No entries were submited for any category, but we will not give up.

The lessons learned with this year failure to catch the interest of retrocomputing entusiasts will be applied in the next edition of Retrospectiva, and hopefully we’ll fullfill our goal: To inspire the creative use of old, “obsolete” computer platforms.

See you next year.

A solo 2 meses del cierre de recepción de trabajos, aún no hemos recibido ninguna entrada a la competencia.

Aquí estamos cruzando los dedos por que haya un aluvión de trabajos presentados a último momento

Si te interesaba participar pero no lo has hecho por algún motivo (reglas muy extrictas, falta de estimulo a la participación), nos gustaría escuchar tus opiniones y sugerencias.

—————————————————

At only two months before the dealine there’s not a single entry to the competition.

Nevertheless, we’re here, fingers crossed, wainting for a massive last minute flood of submissions

If you wanted to participate but desisted for some reason (too extrict rules, lack of participation stimulus), we would like to hear your suggestions and opinions.

Hemos agregado al reglamento de la competencia un detalle importante que faltaba definir, los limites de hardware para la plataforma PC-compatible.

Transcribo los limites aquí:

• CPU hasta 386
• Placa de sonido hasta Soundblaster 16 (incluye SB1, SB2, SBPRO y GUS)
• Video hasta VGA (incluye MDA, CGA, EGA, Hercules)

———————————————————————

We have added an important missing detail to the rules, the hardware limits for the PC-compatible platform:

• CPU up to 386
• Sound card up to Soundblaster 16 (includes SB1, SB2, SBPRO and GUS)
• Video card up to VGA (includes MDA, CGA, EGA, Hercules)

A continuación podrán encontrar el listado en BASIC del juego LUNAR LANDER, pueden usar este código como fuente de ideas para crear su propia versión para la competencia.
(Listado publicado originalmente en 1976 en la revista Creative Computing)

—————————–

This is the BASIC listing for the LUNAR LANDER game, you can use this code as a source of inspiration in the creation of your own version for the competition.
(Source code originally published in 1976 on Creative Computing magazine)

10 PRINT TAB(33);"LUNAR"
20 PRINT TAB(l5);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
25 PRINT:PRINT:PRINT
30 PRINT "THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR"
40 PRINT "LANDING CAPSULE.": PRINT: PRINT
50 PRINT "THE ON-BOARD COMPUTER HAS FAILED (IT WAS MADE BY"
60 PRINT "XEROX) SO YOU HAVE TO LAND THE CAPSULE MANUALLY."
70 PRINT: PRINT "SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETWEEN"
80 PRINT "0 (FREE FALL) AND 200 (MAXIMUM BURN) POUNDS PER SECOND."
90 PRINT "SET NEW BURN RATE EVERY 10 SECONDS.": PRINT
100 PRINT "CAPSULE WEIGHT 32,500 LBS; FUEL WEIGHT 16,500 LBS."
110 PRINT: PRINT: PRINT: PRINT "GOOD LUCK"
120 L=0
130 PRINT: PRINT "SEC","MI + FT","MPH","LB FUEL","BURN RATE":PRINT
140 A=120:V=1:M=33000!:N=16500:G=1E-03:Z=1.8
150 PRINT L,INT(A);INT(5280*(A-INT(A))),3600*V,M-N,:INPUT K:T=10
160 IF M-N<1E-03 THEN 240
170 IF T<1E-03 THEN 150
180 S=T: IF M>=N+S*K THEN 200
190 S=(M-N)/K
200 GOSUB 420: IF I<=O THEN 340
210 IF V<=0 THEN 230
220 IF J<0 THEN 370
230 GOSUB 330: GOTO 160
240 PRINT "FUEL OUT AT";L;"SECONDS":S=(-V+SQR(V*V+2*A*G))/G
250 V=V+G*S: L=L+S
260 W=3600*V: PRINT "ON MOON AT";L;"SECONDS - IMPACT VELOCITY";W;"MPH"
274 IF W<=1.2 THEN PRINT "PERFECT LANDING!": GOTO 440
280 IF W<=10 THEN PRINT "GOOD LANDING (COULD RE BETTER)":GOTO 440
282 IF W>60 THEN 300
284 PRINT "CRAFT DAMAGE... YOU'RE STRANDED HERE UNTIL A RESCUE"
286 PRINT "PARTY ARRIVES. HOPE YOU HAVE ENOUGH OXYGEN!"
288 GOTO 440
300 PRINT "SORRY THERE NERE NO SURVIVORS. YOU BLOW IT!"
310 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER";W*.227;"FEET DEEP!"
320 GOTO 440
330 L=L+S: T=T-S: M=M-S*K: A=I: V=J: RETURN
340 IF S<5E-03 THEN 260
350 D=V+SQR(V*V+2*A*(G-Z*K/M)):S=2*A/D
360 GOSUB 420: GOSUB 330: GOTO 340
370 W=(1-M*G/(Z*K))/2: S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05:GOSUB 420
380 IF I<=0 THEN 340
390 GOSUB 330: IF J>0 THEN 160
400 IF V>0 THEN 370
410 GOTO 160
420 Q=S*K/M: J=V+G*S+Z*(-Q-Q*Q/2-Q^3/3-Q^4/4-Q^5/5)
430 I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30):RETURN
440 PRINT:PRINT:PRINT:PRINT 'TRY AGAIN??": GOTO 70

Fuente/Source: http://www.moorecad.com/classicbasic/index.html