Code : Tout sélectionner
9999 ' ******EFFACAGE ECRAN**********
10000 CLS
10010 RETURN
Edit: CLS = 1 octet en mémoire, en BASIC Microsoft sur Thomson, GOSUB10000 = 7 octets, soit +600% pour chaque occurrence
Modérateurs : Papy.G, fneck, Carl
Code : Tout sélectionner
9999 ' ******EFFACAGE ECRAN**********
10000 CLS
10010 RETURN
Ca me fait fichtrement penser à la programmation actuelle avec des hyper découpages ridicules en modules réutilisable délégant ses services à un sous-module lui-même tout aussi réutilisable. Résultat: plus gros, plus lent, mais découpage fonctionnel (la couche n appelle n-1 et pas n-2) suivant précisément les limites d'une l'architecture foireuse et sous-optimale.Fool-DupleX a écrit :La routine de tueur, trouvée dans Conver (Hebdo 85) :
Code : Tout sélectionner
9999 ' ******EFFACAGE ECRAN********** 10000 CLS 10010 RETURN
Ne dramatisons pas... le code est exempt d'erreur!Fool-DupleX a écrit :9999 ' ******EFFACAGE ECRAN**********
10000 CLS
10010 RETURN
Code : Tout sélectionner
9999 ' ******EFFACAGE ECRAN 1**********
10000 CLS
10010 RETURN
15000 ' ******EFFACAGE ECRAN 2**********
15000 CLS
15010 RETURN
16000 ' ******EFFACAGE ECRAN 3**********
16000 CLS
17010 RETURN
17999 ' ******EFFACAGE ECRAN 1,2,3*****
20000 FOR numeroecran=1 TO 3
20010 ON numeroecran GOSUB 10000,150000,20000
20020 NEXT numeroecran
20030 IF POINT(100,100)<>0 THEN GOSUB 10000,150000,20000
20040 IF POINT(100,100)<>0 THEN GOTO 20030
20050 RETURN
Ben c'est pire. Si CLS devient RAZ, il est fort probable que les GOSUB soient transformés en APPELLE, et il faudra alors changer les 150 "gosub 10000" en "APPELLE 10000".Daniel a écrit :Oui, mais si un jour le Basic Thomson évolue et remplace CLS par RAZ, il n'y a qu'une instruction à changer