LE 10LIGNOPAT 2021 : RESULTATS !

[YannAros]

Le topic précédent (si vous voulez retrouver des infos sur chaque jeu : le scénario, le code, comment jouer, comment émuler le jeu....) :

https://www.gamopat-forum.com/t114624-le-10lignopat


Pour le vote vous devez choisir le jeu qui correspond le plus à ces critères :
1 - fun du jeu
2 - optimisation de la puissance de la machine
3 - respect du thème


Le meilleur mix selon vous


Bon vote ! Ils se termineront dimanche 13 février à 14h !

_______________________________________________________________________________________________________________________________

Allez hop on lance notre propre concours de programme basic 8bit en 10 lignes de code maximum !!!!

LE 10LIGNOPAT édition 2021



Les règles :

- N'importe quel ordinateur 8 bit (de préfèrence CPC, Spectrum, MSX, Thomson ou C64 pour tester plus facilement en réel ou sur ému)
- Utiliser le BASIC standard livré avec la machine
- 10 lignes maximum avec autant de caractères que chaque lignes puisse supporter
- PEEK et POKE autorisés (mais pas pour encoder une routine Assembleur bien sur)
- Un thème en lien direct avec l'univers Gamopat ou le Doc

On fait le point le 31 janvier 2022 sur les programmes proposés avec la cérémonie des 10LIGNOPAT D'OR 2021
- Meilleurs graphismes (hors animations, sur ecran fixe)
- Meilleures animations
- Meilleure bande sonore
- Meilleur scénario
- 10Lignopat d'Or du meilleur jeu 1ere génération (machines : Amstrad, Spectrum, C64, Oric, Thomson, MSX...)
- 10Lignopat d'Or du meilleur jeu 2eme génération (machines : C128, Ti99 étendu, MSX2/2+)

Etoile de Doc pour les gagnants du 10lignopat d'Or


+ un cadeau à choisir parmi ces 5 jeux :



Vous pouvez proposer autant de programmes que vous voulez.

C'est un concours pour le fun où il n'y a rien d'important à gagner, donc ne cherchez pas à repomper un code sur le web, créez votre propre programme... L'important c'est de participer et de s'amuser !

Vu que les programmes seront très court, vous pouvez publier directement le code en mode texte sur votre post en utilisant le bouton CODE

Bon 10LIGNOPAT !!!!!!



LES PARTICIPANTS :

YOUKI avec "GAMOPAT Hospital: Le couloir des Amigateux", sur C64
VIDEO



FREED avec "DOCATHLON" sur TRS Coco 2

et sa suite, DOCATHLON 2


FREED avec BOMB CHASE sur TRS Coco 2


YANNAROS avec 16BIT DEATH RACE SUR Amstrad CPC


YANNAROS avec THE COMMODORE BASHING EXPERIENCE sur Amstrad CPC[/b]


YANNAROS avec MY BOULETTE IS BIGGER THAN YOURS sur Amstrad CPC


YOUKI avec la version Amstrad CPC du Couloir des Amigateux
Couloir des amigateux CPC


YANNAROS avec "Too flashy color lines - not for color blinded nor C64..." sur Amstrad CPC

sur Apple II


et sur le MO5 de Thomson


VETEA avec BAD DOC sur Amstrad CPC


VETEA avec CHASEDOC sur Amstrad CPC :


VETEA avec VIRUS! version 2 sur Amstrad CPC


VETEA avec APOS'DOC sur Amstrad CPC


YANNAROS avec THE ANTIDOTE sur Amstrad CPC


YANNAROS avec COOPERLIST sur Amstrad CPC


ROCKY007 avec DOC'N RUSH SUR TI 99 BASIC ETENDU


ROCKY007 avec AMIGA FORMAT toujours sur TI99 BASIC ETENDU



ROCKY007 avec FROGOPAT encore sur TI99 basic étendu


ROCKY007 avec AMIGA EXPLORER sur Ti99 étendu


ROCKY007 avec Bombajet sur TI99 étendu :


ROCKY007 avec ASH*HOLE sur TI99 Basic étendu


ROCKY007 avec YOUKI GO! sur Ti99 basic étendu


YOUKI avec CHICKENDOC sur Commodore 128
chickenDoc la video


YOUKI avec LOTUS CHALLENGE SUR C128
http://www.atomicfe.com/divers/c64/lotuschallenge.mp4


YOUKI avec SUPPO FIGHTER sur C128
http://www.atomicfe.com/divers/c64/suppofighter.mp4


YOUKI avec Shadow of the B*te sur C128
shadow.mp4


YOUKI avec THE SUPPO GAMES sur C128
video de suppo games


YOUKI avec GAMOJET sur C128
Video gamojet


YOUKI avec YOUSKI sur C128
VIDEO de YOUSKI


VETEA avec DONJON sur Amstrad CPC


YANNAROS avec GET ME OUT sur Amstrad CPC


WULF avec les SUPPOS DE SATAN sur ZX Spectrum


ROCKYOO7 avec COMMODORE BREAKER sur TI99 étendu


ROCK007 avec BOMB DIZ AMIGA sur TI99étendu


Freed avec DIM (DOC's IMPOSSIBLE MISSION) sur un micro 8bit rare : le COCO 3 !


YANNAROS avec Amiga Extraction sur Amstrad CPC


Youki avec SHIFUPSTRIP sur Commodore +4/16
Video du jeu


YOUKI avec GAMOSTRIP sur C128 (sans Sprite ni POKE)
Video de Maria Mediumlolo

http://www.atomicfe.com/divers/c64/strip_sam.mp4
http://www.atomicfe.com/divers/c64/strip_maria.mp4
http://www.atomicfe.com/divers/c64/strip_geisha.mp4

YANNAROS avec La chasse à la bonne affaire sur Amstrad CPC


Youki avec GURU MASTURBATION sur Commodore 128
VIDEO CLASSE X


ROCKY007 avec SAVE MY APPLES sur TI99 étendu


TEMPLETON avec BUGGY DOC sur C128
Video de Buggy C128



YANNAROS avec ROADKILL sur Amstrad CPC


COPPER avec BLITZX sur ZX81 (16ko)


COPPER avec DOCOBAN sur Amstrad CPC


ROCKY007 avec DEEPER & DEEPER sur Ti99étendu

[drfloyd]

Chapeau pour DIM sur un ordinateur pour le moins original et rare : le COCO 3 ! Un 8bit tardif et assez puissant qu'on peut peut etre placer dans la catégorie Level 2 avec les 10Lignes sur C128 et Ti99 étendu ?

Le basic semble très très interessant sur cette machine !

j'ai toujours révé d'en avoir un... de Coco 3... pas réussi... et aussi on sait qu'il y a des soucis en France avec son alimentation spéciale qui peut cramer la machine (ce qu'on m'a expliqué)

[Copper]

Vivement ce week-end que Copper nous présente son 10 lignes

Tu risques d'être déçu

[freed]

Chapeau pour DIM sur un ordinateur pour le moins original et rare : le COCO 3 ! Un 8bit tardif et assez puissant qu'on peut peut etre placer dans la catégorie Level 2 avec les 10Lignes sur C128 et Ti99 étendu ?

Le basic semble très très interessant sur cette machine !

j'ai toujours révé d'en avoir un... de Coco 3... pas réussi... et aussi on sait qu'il y a des soucis en France avec son alimentation spéciale qui peut cramer la machine (ce qu'on m'a expliqué)

Effectivement c'est une très belle machine et je trouve que les ingénieurs de chez Tandy et Microware ont vraiment bien travailler pour faire un ordinateur à la fois compatible avec le modèle précédent (et c'est pas simple) et en même temps capable d'atteindre des performances assez intéressantes pour un 8 bits: un CPU à 1,79MHz (après un poke), jusqu'à 640x225 pixels en très haute résolution (avec plein de combinaisons intermédiaires possibles et la présence d'un écran virtuel qui permet du scroll vertical et horizontal), la plus classique étant 320x200 en 16 couleurs parmi 64 et surtout une RAM extensible à 512Ko (même 2Mo par la suite).

Sur la RAM, il y a une gestion par banques et c'est vraiment transparent vu du basic avec la commande LPOKE (long poke) qui permet de taper au-delà des classiques 65535...

Maintenant c'est aussi une machine d'entrée de gamme pour l'époque (sortie en 86) et qui a donc ses limitations aussi:

• Pas d'amélioration du côté du son: pas de chipset dédié sauf à utiliser la cartouche "orchestra" optionnelle qui existait déjà pour le coco
  
• Pour ne pas avoir à payer de nouvelles licences BASIC à Microsoft, Tandy a confié le développement des extension au Basic Etendu à Microware. Du coup au moment du boot le BASIC est copié en RAM puis patché en live pour ajouter les nouvelles instructions. Ca fonctionne même s'il y a quelques bugs (listés et patchés dans la littérature) mais il y a parfois des différences de logique. Par exemple sur les modes graphiques "compatibles" Coco1/2, l'écran fait toujours 256x192 quel que soit le mode graphique: c'est le basic qui convertit les coordonnées pour les résolutions inférieures. Ce n'est pas le cas avec les nouveaux modes graphiques du Coco3.
  
• On a maintenant accès à des modes textes en 40 et 80 colonnes et on peut afficher du texte dans des graphiques avec la commande HPRINT... Sauf qu'en mode graphique, HPRINT n'efface pas l'écran en dessous. C'est bien ou pas bien, faut juste le savoir
  
• On peut brancher 3 types d'écrans sur la machine: Composite, RGB et TV (antenne). Et la palette est différente selon l'écran. Ca fait bizarre de lire la doc du BASIC et de ne pas avoir de nom pour chacune des 64 couleurs Cet aspect est assez étrange en fait. Heureusement la commande RGB ou CMP en basic permet de forcer la palette. https://exstructus.com/tags/coco/australia-colour-palette/
  
• Le Basic ne gère que 4 modes graphiques en plus: 320x192x4, 320x192x16, 640x192x2 et 640x192x4. Les autres modes intermédiaires ne sont pas accessibles (128, 160, 256, 320, 512 et 640 en résolution horizontale). C'est dommage: ça permettrait de faire des jeux basse résolution en 16 couleurs bien plus rapides
  
• Pas de PCOPY sur les nouveaux modes graphiques. Ca c'est le plus pénible pour la programmation en BASIC. Sur le Coco1/2, la mémoire vidéo est divisée en pages et on peut, depuis le BASIC, dessiner dans n'importe quelle page (même si elle n'est pas affichée à l'écran). C'est assez pratique pour faire des animations mais surtout des jeux car cela permet de gérer plusieurs plans: le décor et les sprites. Et comme PCOPY (pour copier une page sur l'autre) est très rapide, c'est vraiment un plus. Pour les modes graphiques du Coco3, il faut procéder différemment: faire un GET là où on va poser le sprite pour sauvegarder l'arrière plan, poser le sprite, puis une fois que le sprite n'est plus là, poser la sauvegarde. Ca fait beaucoup d'opérations de copier/coller et ça rame (heureusement que les opérations sur les sprites en haute résolution sont plus rapide grâce à une copie mémoire directe et non le passage par une variable).
  

Bon voilà après 2 semaines sur l'émulateur, je n'ai pas fait le tour de toutes les spécificités de la machine... Mais si elle avait été commercialisée en France, je pense que j'aurais aimé l'avoir après mon Coco2

[freed]

Vivement ce week-end que Copper nous présente son 10 lignes

Tu risques d'être déçu

Non je suis sûr que ce sera très bien!

[youki]

En fait, je dois avoir un probleme : des que le code est optimisé je ne comprends plus rien à la programmation, c'est grave docteur ?

C'est pas grave mais c'est l'occasion d'apprendre

Moi je ne comprend meme pas ce que je code , optimisé ou pas! 

[freed]

En fait, je dois avoir un probleme : des que le code est optimisé je ne comprends plus rien à la programmation, c'est grave docteur ?

C'est pas grave mais c'est l'occasion d'apprendre

Moi je ne comprend meme pas ce que je code , optimisé ou pas! 

Si Rocky007 n'était pas à la fête du chocolat (Belge), il te répondrait qu'il n'est absolument pas étonné.

De mon côté, j'évite tout commentaire de la sorte car ce n'est pas du tout mon style

[drfloyd]

le seul truc ou ils ils ont vraiment déconné sur le Coco 3, c'est le chipset sonore.... Vraiment étrange.

[freed]

le seul truc ou ils ils ont vraiment déconné sur le Coco 3, c'est le chipset sonore.... Vraiment étrange.

Des rumeurs disent que Tandy ne voulait pas faire d'ombre au Tandy 1000: il fallait cantonner le Coco3 aux possesseurs de Coco2 souhaitant monter en gamme.... Un mode 160x192 en 256 couleurs aurait été prévu mais annulé à cause de ça... donc peut-être qu'il n'y a pas eu d'amélioration côté audio pour ces mêmes raisons, qui sait?

Après, le Coco3 avait 2 modes d'interruptions (contrairement aux modèles précédents) et pouvait donc mieux gérer le chiptune. Mais c'est vrai qu'une puce dédiée aurait vraiment aidé...

Quand on voit ce que des mecs arrivent à faire sur cette bécane en 2020, on se dit qu'on avait un beau 8 bits quand même!

[drfloyd]

ah oui possible, car le Coco 3 s'en sort beaucoup mieux que le Tandy 1000 pour jouer !

T'achete un PC TANDY 1000 équipé d'une carte graphique et sonore et tu vois qu'à côté le mini Coco fait mieux ? Ca fait tache effectivement !

Bon c'est un jeu Coco 3 de 512ko quand meme... Y a celui la aussi, 100% arcade perfect !




Mais bon c'est le grille pain de Commodore a qui a tout raflé 

[freed]

Ouais mais pour les 10 lignes, c'est pas dit que le C64 l'emporte, surtout qu'on a réussi à lui tordre le bras au Youki

[Copper]

Je vote pour le DIGGER III ou le DONKEY KONG parce que pour des 10 lignes c'est impressionnant

[freed]

Je vote pour le DIGGER III ou le DONKEY KONG parce que pour des 10 lignes c'est impressionnant

Non mais fais pas le modeste, on sait que le jeu que tu vas nous présenter demain sera 10x mieux

[drfloyd]

Il va falloir que je publie les regles finales pour le vote (plus que 9 jours)

[Copper]

Le doc a enfin décidé d'informatiser la saisie de ses fiches patients, pour cela il a acheté un superbe outil de saisie de fiche "ZXFile" pour son ZX81 avec 16Ko de mémoire...

Code:

10 LET R$="%P%S%E%U%D%O%:                         %S%E%X%E%:                    %A%G%E%:   %V%I%L%L%E%:                          %V%O%T%R%E% %C%O%N%S%O%L%E% %R%E%T%R%O% %C%U%L%T%E%:% % % % % %                                 %V%O%T%R%E% %C%O%N%S%O%L%E% %R%E%C%E%N%T%E% %P%R%E%F%E%R%E%E%:%                                 %V%O%T%R%E% %M%I%C%R%O% %R%E%T%R%O% %C%U%L%T%E%:% % % % % % % %                                 %V%O%S% %3% %J%E%U%X% %V%I%D%E%O% %C%U%L%T%E%S%:% % % % % % % %                                                                                                 %2% %L%I%V%R%E%S% %S%U%R% %U%N%E% %I%L%E% %D%E%S%E%R%T%E%:% % %                                                                 %2% %D%I%S%Q%U%E%S% %S%U%R% %U%N%E% %I%L%E% %D%E%S%E%R%T%E%:% %                                                                 %2% %F%I%L%M%S% %S%U%R% %U%N%E% %I%L%E% %D%E%S%E%R%T%E%:% % % %                                                                 7  8  32 37 38 56 61 62 64 70 71 96 128129160192193224256257288320321416448449512544545608640641704"
20 CLS
30 FOR I=1 TO 11
40 PRINT AT 0,0;R$( TO VAL R$(I*9-8+704 TO I*9-6+704))
50 INPUT A$
60 LET R$(VAL R$(I*9-5+704 TO I*9-3+704) TO VAL R$(I*9-2+704 TO I*9+704))=A$
70 NEXT I
80 PRINT AT 0,0;R$( TO 704)
90 PAUSE 32768
100 GOTO 20

Le code peut-être compilé en .p avec zxtext2p (les % indiquent les caractères en vidéo inversée)

[Copper]

En 8 instructions cela donne (avec quelques améliorations) :

Code:

10 DIM O(3)
20 PRINT AT 0,0;"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                --------------------------------                                ";AT 20,O(3);"\':%F%O%C%H\''\''";AT O(1),O(2);"\ .\:.\..%=\..*";AT O(1)+1,O(2)+3;"O"
30 LET O(2)=O(2)-(27.5 AND O(2)>24)+2.5
40 LET O(1)=O(1)+(INKEY$="6")-(INKEY$="7" AND O(1)>0)
50 LET O(3)=O(3)+1-(26 AND O(3)>24)
60 GOTO 20+(50 AND O(1)=19 AND (O(2)+3=O(3) OR O(2)+3=O(3)+1 OR O(2)+3=O(3)+5 OR O(2)+3=O(3)+6))+(60 AND (O(1)>20 OR (O(1)=19 AND (O(2)+3=O(3)+2 OR O(2)+3=O(3)+3 OR O(2)+3=O(3)+4))))
70 PRINT AT O(1),O(2);"ECRASE"
80 IF O(1)>20 THEN PRINT AT O(1),O(2);"PLOUF"

[freed]

Sympa l'utilisation du GOTO!
Par contre je comprends pas le .5 dans

Code:

LET O(2)=O(2)-(27.5 AND O(2)>24)+2.5

Ca marcherait pas pareil avec 27 au lieu de 27.5?

[Copper]

On ajoute 2.5 à chaque fois donc à un moment donné on est à 27.5 d'ou le -27.5 pour revenir à 0.0

Si tu met 27 tu dois revenir à 0.5 logiquement...

[wulf]

Puree de patates , du ZX81 ! L'ordi qui arrive a forcer les programmeurs a faire tenir un jeu d'échecs avec IA en 1ko 

Ta ligne 60, c'est vraiment du furieux de chez furieux. Je n'avais jamais vu un tel enchainement. J'avoue ne pas tout comprendre comment ça fonctionne, si ce n'est que cela remplace des If en cascades.
Bravo.

[freed]

On ajoute 2.5 à chaque fois donc à un moment donné on est à 27.5 d'ou le -27.5 pour revenir à 0.0

Si tu met 27 tu dois revenir à 0.5 logiquement...

Bah sur mon ordi, si je fais un print (27.5 AND -1) ou print (27 AND -1) il me donne le même résultat, à savoir 27  
Ca dépend peut-être du BASIC...

[Copper]

Le ZX81 donne bien 27.5 et le CPC 28

[rocky007]

Le doc a enfin décidé d'informatiser la saisie de ses fiches patients, pour cela il a acheté un superbe outil de saisie de fiche "ZXFile" pour son ZX81 avec 16Ko de mémoire...

j'ai pas bien compris le truc...c'est une base de donnée ou un jeu ?

[Copper]

C'est un simulateur de gestion de fichier...

[freed]

Un simulateur en 10 lignes sur ZX81 c'est quand même le truc extraordinaire non?

[YannAros]

Je poste la dernière partie de ma Pentalogie "Super AmigaMan".

Après avoir :
- Récolté les disquettes de Démos dans "My boulette is bigger than yours".
- Retrouvé sa forme normal suite à l'attaque fourbe de la secte des admirateurs du  "Gland Vert" dans "The Antidote"
- Ecrasé un maximum d'Atarist en amenant à temps les disquettes de Démo à la convention Amiga dans "Road Kill"
- et remplacé le copper d'Agnus suite à son vol par des extrémistes Atarist dans "Copper List"

Il faut maintenant que Super AmigaMan sorte de L'Amiga dans lequel il avait pris la place du Copper.
Pour cela il va devoir se faufiler à l'intérieur d'un câble MIDI jusqu'à la sortie.
Le câble, que des Atarist on laissé trainé est de très mauvaise qualité, et de plus des notes son injectés au fur et a mesure par les Atarist pour éliminer une fois pour toute Super AmigaMan.
Saurez-vous éviter toutes les embuches et faire faire sortir Super AmigaMan vivant de cette dernière épreuve...

Le jeu se déroule sur 25 niveaux, de plus en plus chargés en obstacle, sur la vidéo, pour montrer l'écran final, j'ai réduit ce nombre:


Le code:

Code:

10 DEFINT A-Z:DIM P(20):P(0)=956:FOR I=1TO 20:P(I)=P(I-1)*(0.891-((I MOD 7)=0OR(I MOD 7)=3)*0.054):NEXT:MODE 1:BORDER 0:INK 0,0:INK 1,26:INK 2,6:INK 3,9:INK 4,18:INK 5,21:INK 6,24:INK 7,15:INK 8,6:l=1:ENV 2,1,15,1,1,0,10,15,-1,10
20 ENV 1,1,-1,2,1,-5,30,6,-1,50:ENT -1,1,-2,2,2,2,2,1,-2,2:LOCATE 12,1:?"Amiga Extraction":LOCATE 2,5:?"Avoid the evil Atarists, and slide to":LOCATE 3,6:?"the even more dangerous next screen":LOCATE 12,13:?"Use SPACE to go up":GOSUB 99
30 MOVE 0,300,1,0:FOR X=32TO 640STEP 32:DRAW X,250-l+RND*100:NEXT X:MOVE 0,399:FILL 2:MOVE 0,100:FOR X=32TO 640STEP 32:DRAW X,50+l+RND*100:NEXT X:MOVE 0,0:FILL 2:TAG:FOR s=1 TO 2*l:MOVE 50+RND*561,100+RND*200,2,3:?CHR$(230);:NEXT:TAGOFF
40 MOVE -2,200,1,1:WHILE XPOS<640:DRAWR 2,dy:dy=2+4*INKEY(47):t=TESTR(2,dy):IF t THEN SOUND 2,0,200,0,2,,31:FOR I=0TO 99:INK 2,26*RND:PLOTR 4-INT(9*RND),4-INT(9*RND),2:NEXT:CLS:?TAB(17);"YOU DIED":LOCATE 12,13:?"Levels completed"l-1:GOSUB 99:RUN 
50 WHILE((SQ(2)AND 1)=0AND dy>0):SOUND 2,800,10,8,,,15:WEND:MOVER -2,-dy:WEND:l=l+1:CLS:? TAB(16);"WELL DONE":IF(l<26) THEN LOCATE 14,13:?"Next level "+STR$(l):GOSUB 99:GOTO 30 ELSE LOCATE 6,13:?"You defeated the evil Atarists":GOSUB 99
60 MODE 0:INK 1,2:INK 2,11:FOR I=0TO 149:MOVE 70+I,190-I,1+I\50,0:DRAWR 50,0:MOVE 140+I,190-I:DRAWR 50,0:NEXT:FOR I=0TO 249:MOVE 220+I,I+40,4+I\50:DRAWR 50,0:MOVE 290+I,I+40:DRAWR 50,0:NEXT:LOCATE 2,2:PEN 8:?"AMIGA WILL SURVIVE":PEN 1
70 S$="GGGGGWHIHW1GGGGFFFGFFEEDT1DDDDDDDTDDDCCCDCCCt1DDDFFFGHFFFw1GGGw1GGGGFFFGFFFGFFFgDDDDDDDDDDDDCCCDCDD1DDDDDDDFFFGHFFFw1GGGw1GGGGv1FFFGFFFwDDDDDDDDCCCTCDDt1DDD":MS=LEN(S$):WHILE INKEY$<>"":WEND:WHILE INKEY$="":GOSUB 80:WEND:RUN
80 WHILE (SQ(2) AND 7):N=ASC(MID$(S$,Z+1,1))-64:Z=Z+1:Z=-Z*(Z<>MS):E=-(N>-1):N=E*N+(1-E)*16*(N+16):PE=P(5 + N MOD 16):D=25*(N\16 + 1):SOUND 2,PE,D,15*E,E,1:WEND:RETURN
99 LOCATE 9,25:?"Press any key to continue":WHILE INKEY$<>"":WEND:WHILE INKEY$="":WEND:CLS:RETURN


EDIT du 24/01 : modification de la musique de fin pour la rendre un peu plus rapide.

[wulf]

Bonjour, 
Une petite modif' dans les "Suppos de Satan" afin d'éviter le "scintillement" de la tête du Doc quand il est immobile.
Je n'efface la tête que si on la bouge. Ça me répète une commande, mais je supprime un PRINT dans la boucle principale, et du coup les diablotins vont encore plus vite. Héhéhé..

  1 FLASH 0: LET best=0: BORDER 0: PAPER 0: DIM h(4): DIM c(4): RESTORE : FOR A=0 TO 15: READ D: POKE USR "P"+A,D: NEXT A: DATA 66,66,60,126,90,126,36,24,56,124,124,84,254,214,108,56
   2 INK 4: FOR n=6 TO 18: PRINT AT n,1;CHR$ (137): NEXT n: PRINT AT 5,1;CHR$ (134): PRINT AT 19,1;CHR$ (134): LET w=0: LET r=1: LET sc=0: FLASH 0: INK 1: PRINT AT 1,1;"Score=";sc: PRINT AT 1,15;"Hi-Score=";best: FLASH 1: INK 3: PRINT AT 2,1;"wave=";r: FLASH 0: LET old=13: LET doc=12: INK 1: PRINT AT doc,3;CHR$ (160)
   3 LET start=30-w: FOR n=1  TO 4: LET h(n)=n*4+2: LET c(n)=start: INK 3: PRINT AT h(n),c(n)+1;"<": INK 2: PRINT AT h(n),c(n);CHR$ (159): NEXT n
   4 INK 2: LET pos=INT (RND*4)+1: LET val=c(pos)-1: LET c(pos)=val: PRINT AT h(pos),c(pos);CHR$ (159): PRINT AT h(pos),val+1;" ": IF ATTR (doc,3)=2 THEN GO TO 9
   5  IF INKEY$="s" THEN LET doc=doc+1: PRINT AT old, 3;" ":IF doc>18 THEN LET doc=18
   6 IF INKEY$="t"  THEN LET doc=doc-1: PRINT AT old,3; " ":IF doc<6 THEN LET doc=6
   7 INK 1: PRINT AT doc,3;CHR$ (160): LET old=doc: IF c(pos)<3 THEN GO TO 10
   8 GO TO 4
   9 BEEP 0.1,sc: LET w=w+1: LET r=r+1: LET sc=sc+1: PRINT AT 1,8;sc: PRINT AT 2,6;r: FOR a=1 TO 4: PRINT AT h(a),c(a);" ": NEXT a: INK 1: PRINT AT doc,3;CHR$ (160): GO TO 3
  10  FLASH 1: PAUSE 0: PRINT AT 20,12;"GaMe OvEr": BEEP 1.4,4: IF sc>best  THEN LET best=sc: PRINT AT 1,24;best: PAUSE 0: FLASH 0: CLS : LET sc=0: GO TO 2

[wulf]

bien vu @YannAros le concept de Scrambler, c'est bien foutu
Avec un écran de fin en plus.. mais je suis sûr que tu peux nous faire une meilleure musique plus rythmée et enjouée. 

[Copper]

Un simulateur en 10 lignes sur ZX81 c'est quand même le truc extraordinaire non?

En 10 instructions même

[YannAros]

bien vu @YannAros le concept de Scrambler, c'est bien foutu
Avec un écran de fin en plus.. mais je suis sûr que tu peux nous faire une meilleure musique plus rythmée et enjouée. 

Oui faut que j’améliore ça, mais je suis nul en musique…
J’aurais du prendre un ST au lieu d’un Amiga

EDIT : j'ai modifié le code pour rendre la musique plus rapide at ajuster la hauteur des notes.

[drfloyd]

ZXFile c'est pour le fun ou il rentre en compet ?????????