J’ai un souvenir très net de recopiage ligne par ligne de lignes de code en basic pour me faire des jeux.
10 begin
20 ...
30...
et ça pouvait aller loin. C’était le milieu des années 80 (mes 10-12 ans, soit 1986-1988).
En cas de panne de courant ou de débranchement accidentel de la prise, on perdait tout. Du jour au lendemain, à moins de tout laisser allumé, on perdait tout aussi. Eh oui, pas encore de disque dur ! Et les pannes de courant étaient plutôt fréquentes en Turquie à cette époque.
Je me souviens ensuite de mon lecteur de cassettes noir (acheté à la FNAC à Paris entre 1980 et 1983) qui permettait d’utiliser des jeux tout prêts, sur mon ordinateur ORIC. Un clavier noir et rouge/orange, un écran cathodique horrible. Pas encore de disquettes. D’ailleurs, je n’ai jamais eu de disquettes à la maison, c’était reservé à l’école. En cours de techno au collège.
Je regrette beaucoup la distance que j’ai ensuite laissé s’installer entre moi et l’informatique, en passant à des systèmes fermés où tout était fourni (logiciels, jeux, etc) et de ne pas avoir continué à tripatouiller du code.
Crédit photo: Victor Radziun
Premiers pas dans la programmation en language BASIC. Il fallait construire un organigramme en classe et ensuite vérifier s’il était plausible sur l’ordinateur qui se trouvait dans une autre salle.
Notre prof avait l’habitude de citer toujours le même exemple :
if x 100
then
print 1000x salut
(Désolée pour les erreurs, cela fait si longtemps !)
Il notait toujours : print (imprimer) 1000 fois le mot SALUT.
Je me souviens qu’un jour, alors que nous étions un demi-groupe en classe avec le prof et l’autre demi-groupe en classe d’informatique, un élève est arrivé essouflé, car il avait « lancé » le fameux « print salut ». 1000 pages allaient sortir de l’imprimante !
Et pour ceux qui ont bien suivi les cours, voici un programme que j’ai retrouvé.
DIM x(4096),y(4096) 'nombre de points. Au-delà, on ne distingue plus rien
n=1
co=.5 : si=SQR(3)/2 'cosinus et sinus de la rotation
x(0)=100:y(0)=350:x(1)=500:y(1)=350 'côté initial
WHILE 1
CLS
MOVETO x(0),y(0) 'point de départ, puis 1, 4, 16,..., ..., 4n points
FOR i=1 TO n
LINETO x(i),y(i)
NEXT i
WHILE INKEY$="":WEND
FOR i=n TO 1 STEP -1 'on boucle en décroissant
x(4*i)=x(i):y(4*i)=y(i) 'sinon on écrase les valeurs
NEXT i
n= 4*n 'on subdivise
FOR i=0 TO n-4 STEP 4
dx=(x(i+4)-x(i))/3:dy=(y(i+4)-y(i))/3 'on coupe en 3
x(i+1)=x(i)+dx:x(i+3)=x(i)+2*dx 'on part du 1/3 et on termine aux 2/3
y(i+1)=y(i)+dy:y(i+3)=y(i)+2*dy
x(i+2)=co*dx-si*dy+x(i+1) 'on obtient le nouveau point,
y(i+2)=si*dx+co*dy+y(i+1) 'sommet du triangle équilatéral
NEXT i 'par rotation de 60°.
WEND
