S&V 801: Tirons le Loto - Informatique Amusante

Umas semanas atrás disponibilizamos um recorte publicitário da edição 801 da revista Science et Vie (Junho de 1984), que divulgava uma "premiação" de jogos patrocinada por uma editora francesa relativamente obscura. Descobrimos que os títulos anunciados terão sido versões traduzidas que não constam nos respectivos detalhes dos jogos originais dos repositórios mais conhecidos (SC, WOS, etc).

Do mesmo exemplar desta revista também encontramos a famosa secção "Informatique Amusante". Foi um espaço dedicado à micro-informática com artigos recheados de listagens de código. O artigo desta edição em particular é intitulado "Tirons le Loto" e apresenta um pequeno programa de ZX81 em Sinclair BASIC para sortear números de uma partida de Loto clássico.

Deixamos abaixo a listagem. A digitalização está disponível neste link. O ficheiro .p do programa para ser carregado em emulador encontra-se neste link.

10 PRINT AT 0,0;"COMBIEN DE GRILLES JOUEZ VOUS ?  ( 8  MAX )."
15 INPUT G
20 IF G>8 THEN GOTO 5
25 CLS
45 DIM A(1,7)
50 FOR N=6 TO (2*G) + 4 STEP 2
55 FOR T=1 TO 7
60 LET A(1,T)=INT (RND*49) + 1
65 FOR C=1 TO T-1
70 IF A(1,T)=A(1,C) THEN GOTO 60
75 NEXT C
80 PRINT AT N,5*(T-1);A(1,T);
85 NEXT T
90 NEXT N
100 GOTO 10