Re: LE 10LIGNOPAT 2021 : RESULTATS !

par **drfloyd** Lun 24 Jan 2022 - 13:40

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

par **Copper** Lun 24 Jan 2022 - 13:42

C'était pour la déconne Razz

par freed Lun 24 Jan 2022 - 14:39

Moi je dis que t'es petit joueur... Regarde ce que d'autres ont fait en 10 lignes sur ZX81 (concours 10liners2021):

par **Copper** Lun 24 Jan 2022 - 15:24

Je ne suis pas les autres... Razz

par **drfloyd** Lun 24 Jan 2022 - 15:55

freed a écrit:Moi je dis que t'es petit joueur... Regarde ce que d'autres ont fait en 10 lignes sur ZX81 (concours 10liners2021):

BOF

La on le 10lignopat 2021 surclasse le 10LINERS 2021

par **Copper** Lun 24 Jan 2022 - 16:00

Oui mais y a pas (encore) de participants sur ZX81...

par freed Lun 24 Jan 2022 - 16:21

drfloyd a écrit:

BOF

La on le 10lignopat 2021 surclasse le 10LINERS 2021

Largement

Et tu verras quand des équipes se formeront pour collaborer sur un même projet Wink

par wulf Lun 24 Jan 2022 - 22:47

@freed la fameuse instruction SCROLL du ZX81 amoureux

qui a été un moteur sur bon nombre de progs en 1ko

@Copper, tu peux nous pondre un truc j'en suis sûr sur ZX, vas-y lâche toi au delà du ZXFile, nom d'un caractère graphique en mode vidéo inversé (oui ça existe aussi)

par **drfloyd** Mar 25 Jan 2022 - 9:10

freed a écrit:
drfloyd a écrit:

BOF

La on le 10lignopat 2021 surclasse le 10LINERS 2021

Largement Et tu verras quand des équipes se formeront pour collaborer sur un même projet

des moteurs de jeux seront mis au point, des studios vont se monter, des jeux en boite sortir, et le 10lignopat racheté par Microsoft pour 47 milliards de dollars.

par **Copper** Mar 25 Jan 2022 - 12:40

BLITZX sur ZX81 16Ko en 10 instructions

Scénario :
Le doc n'a pas pu acheter d'appartement dans cette ville car elle est réservée aux possesseurs d'Amiga 500... Furieux il a donc décidé de la détruire à l'aide de son superbe bombardier mono caractère non proportionnel...

Le jeu :
La touche B est utilisée pour lancer une bombe (mais une seule à la fois en monotâche comme le GEM de l'Atari ST)

Le jeu contient 20 villes différentes dont une qui est choisie aléatoirement... Les villes ont d'ailleurs été générées avec un autre programme BASIC sur le ZX81 avec POKEage dans la chaîne du premier PRINT)

Voici le listing à convertir en .p avec zxtext2p

Code:: 10 PRINT AT 0,0;" ";"\;; \;; \;; \;; %X \;; %-\;; \;; %X \;; %-\;; %- \;; %- %X%X%X%X %. %X \;;%"%-\;; %- \;; %- %X%X%X%X %. %X \;;%"%-\;; %"%" %- %:\;; %= %- %X%X%X%X %. %X \;;%"%-\;; %:%:%"%"%: %- %:\;; %=%X %- %X%X%X%X %. %X \;;%"%-\;;\;;%:%:%"%"%:\;; %-%:%:\;; %=%X %-%.%X%X%X%X %.\;;\;;%X \;;%"%-\;;\;;%:%:%"%"%:\;;%-%-%:%:\;;%-%=%X %-%.%X%X%X%X %.\;;\;;%X \;;%"%-\;;\;;%:%:%"%"%:\;;%-%-%:%:\;;%-%=%X %-%.%X%X%X%X%.%.\;;\;;%X%-\;;%"%-\;;\;;%:%:%"%"%:\;;%-%-%:%:\;;%-%=%X%X%-%.%X%X%X%X%.%.\;;\;;%X%-\;;%"%-\;;\;;%:%:%"%"%:\;;%-%-%:%:\;;%-%=%X%X%-%.%X%X%X%X%.%.\;;\;;%X%- %: \;; \;;\;;%: \;; %: %" \;;\;;%: \;; %: %- %" \;;\;;%: %X\;; \;; %: %- %" %X \;;\;;%: %X\;; %: \;;%. %: %-%X %" %X\;; \;;\;;%: %X\;; %: \;;%. %: %-%X %" %X\;; \;;\;;%: %X\;; %: \;;%. %- %: %-%X %" \;;%X\;; \;;\;;%: %X\;; %:%:\;;%. %- %:\;; %=%-%X %"%"\;;%X\;;%:\;;\;;%:%-%X\;; %:%:\;;%. %- %X%:\;; %=%-%X %"%"\;;%X\;;%:\;;\;;%:%-%X\;;%=%:%:\;;%.%"%- %X%:\;;%: %:%:%=%-%X %"%"\;;%X\;;%:\;;\;;%:%-%X\;;%=%:%:\;;%.%"%- %X%:\;;%:\;;\;;%:%:%=%-%X%"%"%"\;;%X\;;%:\;;\;;%:%-%X\;;%=%:%:\;;%.%"%-%"%X%:\;;%:\;;\;;%:%:%=%-%X%"%"%"\;;%X\;;%:\;;\;;%:%-%X\;;%=%:%:\;;%.%"%-%" %. %= %-%- %. %. \;; %X %X%= %-%- %. %. \;; %X %= %X%= %-%- %. %. \;; %: %X %X %=%= %X%= %-%- %. %. \;; %: %X %:%X %=%= %X%= %-%-%-%. %.%. \;; %: %X %"%:%X %=%= %X%=%:%:%: %-%-%-%. %.%. \;; %: %X %-%"%:%X %=%= %X%=%:%:%: %-%-%-%. %.%. \;; %: %X %-%"%:%X %=%= %-%X%=%:%:%: %-%-%-%.%" %.%. \;; %: %X%X %-%"%:%X%.%=%= %-%X%=%:%:%: %-%-%-%.%" %.%.%=\;;%X%: %X%X %-%"%:%X%.%=%=%.%-%X%=%:%:%: %:%-%-%-%.%"\;;%.%.%=\;;%X%:%-%X%X%"%-%"%:%X%.%=%=%.%-%X%=%:%:%:%:%:%-%-%-%.%"\;;%.%.%=\;;%X%:%-%X%X%"%-%"%:%X%.%=%=%.%-%X%=%:%:%:%:%:%-%- %" %X %: %: %.%.%" %= %" %X %: %: %.%.%" %= %" %- \;;%X %-%: %: %.%.%" %= %" %- \;;%X %-%: %: %"%.%.%" %= %" %- \;;%X %-%: %: %X %"%.%.%"%"%= %"%. %- \;;%X %-%-%: %: %X %"%.%.%"%"%= %"%. %- \;;%X %-%-%-%:%" %: %X%. %"%.%.%"%"%= %"%. %-%= \;;%X %-%-%-%:%" %: %X%.%:%: %"%"%.%.%"%"%= %"%. %-%= \;;%X%- %-%-%-%:%" \;;%: %X%.%:%: %"%"%.%.%"%"%= %"%. %-%= \;;%X%- %-%-%-%:%" \;;%: %X%.%:%:\;;%"%"%.%.%"%"%= %"%. %-%= \;;%X%- %-%-%-%:%"%=\;;%:%:%X%.%:%:\;;%"%"%.%.%"%"%=%.%"%.%X%-%=%=\;;%X%-%-%-%-%-%:%"%=\;;%:%:%X%.%:%:\;;%"%"%.%.%"%"%=%.%"%.%X%-%=%=\;;%X%-%-%-%-%-%: %: %"%" %X %" %: %: %"%" %X %" %: %: %"%" %X %. %" %: %: %"%" %"%X %X %. %=%" %X%: %: %"%" %"%X %X %. %=%"%X %X%: %: %"%" %"%X %X\;;\;;\;; %. %=%"%X%:%X%: %:%:%"%"%. %"%X %X %X\;;\;;\;;%: %: %. %=%"%X%:%X%: %:%:%"%"%. %"%X %X %.%X\;;\;;\;;%: %:%X%. %=%"%X%:%X%: %:%:%"%"%.%X%"%X %X %.%X\;;\;;\;;%: %:%X%.%X%X%=%"%X%:%X%: %:%:%"%"%.%X%"%X%= %X %.%X\;;\;;\;;%: %:%X%.%X%X%=%"%X%:%X%: %:%:%"%"%.%X%"%X%=%:%X %-%.%X\;;\;;\;;%: %:%X%.%X%X%=%"%X%:%X%:%.%:%:%"%"%.%X%"%X%=%:%X%=%-%.%X\;;\;;\;;%:%-%:%X%.%X%X%=%"%X%:%X%:%.%:%:%"%"%.%X%"%X%=%:%X%=%-%.%X\;;\;;\;;%:%-%:%X%.%X%X%=%"%X%:%X %X %X %= %" %X \;;%= %X %:%" %. %X \;;%= %.%X %:%" %: \;;%. %X \;;%= %.%X %:%" %: \;;%.%-%- %X%X %"%X \;;%= %.%X %:%" %: \;;%.%-%- %X%X %"%X \;;%= %.%X %:%" %: \;;%.%-%- %X%X %. %"%X %-\;;%= %.%X%"%:%" %: %-\;;%.%-%- %X%X %. %"%X %-%-\;;%= %.%X%"%:%" %: %-\;;%.%-%- %X%X%-%. %"%X %-%-\;;%= %.%X%"%:%" %.%: %-\;;%.%-%-%X %X%X%-%.%X%"%X%- %=%-%-\;;%= %.%X%"%:%" %.%:%.%-\;;%.%-%-%X %"%X%X%-%.%X%"%X%-%:%=%-%-\;;%=%:%.%X%"%:%"%:%.%:%.%-\;;%.%-%-%X%.%"%X%X%-%.%X%"%X%-%:%=%-%-\;;%=%:%.%X%"%:%"%:%.%:%.%-\;;%.%-%-%X%.%"%X%X%-%.%" %- %. %:%: %" %" %" %- %. %:%: %" %" %: %" %- %= %" %. %:%:%X %"\;; %" %" %:%:%: %" %- %= %" %. %:%:%X%= %-%"\;; %" %"%: %:%:%: %" %"%- %=\;; %"\;;%. %"%:%:%X%= %-%"\;; %.%" %"%: %:%:%: %" %"%- %=\;; %"\;;%. %"%:%:%X%= %-%"\;; %.%" %"%: %:%:%: %" %"%- %=\;; %"\;;%. %"%:%:%X%= %-%"\;; %.%" %"%: %:%:%: %" %"%-%X%=\;; %"\;;%.%-%"%:%:%X%= %-%"\;; %.%"\;;%"%: %:%:%: %" %"%-%X%=\;; %"\;;%.%-%"%:%:%X%= %-%"\;; %.%"\;;%"%: %:%:%:%-%" %"%-%X%=\;; %"\;;%.%-%"%:%:%X%=%-%-%"\;; %.%"\;;%"%: %:%:%:%-%" %"%-%X%=\;;%X%"\;;%.%-%"%:%:%X%=%-%-%"\;; %.%"\;;%"%:%.%:%:%:%-%"%.%"%-%X%=\;;%X%"\;;%.%-%"%:%:%X%=%-%-%"\;;%X%.%"\;;%"%:%.%:%:%:%-%"%.%"%-%X%=\;;%X%"\;;%.%-%"%:%:%X%=%-%-%"\;;%X%.%"\;;%"%:%.%:%:%:%- %-%- %= %" %X%-%- %. %. %= %" %X%-%- %. %. %= %" %X%-%-%-%- %. %. %= %" %" %X%-%-%-%- %. %.%- %.%= %" %" %X%-%-%-%- %. %"%" %.%- %.%=%.%"\;;%" %X%-%-%-%- %. %"%" %: %.%- %.%=%.%"\;;%" %. %X%-%-%-%- %. %"%" %: %.%- %. %.%=%.%"\;;%" %. %X%-%-%-%-%-%.%-%"%" %: %.%- %. %.%=%.%"\;;%"%=%. %= %X%-%-%-%-%-%.%-%"%" %: %.%- %.%=%.%=%.%"\;;%"%=%.%-%= %=%X%-%-%-%-%-%.%-%"%"%"%:%X%X%.%- %.%=%.%=%.%"\;;%"%=%.%-%=%=%=%=%X%-%-%-%-%-%.%-%"%"%"%:%X%X%.%-%:%.%=%.%=%.%"\;;%"%=%.%-%=%=%=%=%X%-%-%-%-%-%.%-%"%"%"%:%X%X%.%-%:%.%=%.%=%.%"\;;%"%= %: %" %"%: %" %"%:%X %= \;; %"%=%= %= %"%:%X%. %= %= %.\;; %. %:%"%=%= %= %"%:%X%. %= %= \;; %.\;; \;;%. %:%"%=%= %= %"%:%X%. %= %= \;; %.\;; \;;%. \;;%:%"%=%= %X %= %"%:%X%. %= %=%:\;;%:%.\;; \;;%. %X \;;%:%"%=%= %X%.%= %"%:%X%.%X%= %=%:\;;%:%.\;; \;;%. %X \;;%:%"%=%=%=%X%.%=%= %"%:%X%.%X%= %=%:\;;%:%.\;; \;;%. %X%.\;;%:%"%=%=%=%X%.%=%= %"%:%X%.%X%= %=%:\;;%:%.\;; \;;%. %X%.\;;%:%"%=%=%=%X%.%=%=%"%"%:%X%.%X%= %=%:\;;%:%.\;;%=%=\;;%.%:%X%.\;;%:%"%=%=%=%X%.%=%=%"%"%:%X%.%X%=%X%X%=%:\;;%:%.\;;%=%=\;;%.%:%X%.\;;%:%"%=%=%=%X%.%=%=%"%"%:%X%.%X%=%X%X%=%:\;;%:%.\;;%=%= %: %: %X %" %: \;; \;; %: %" %X %" %: \;; \;;%" %: %" %X %" %: \;; %=\;;%" %:\;;%" %X \;; %"%-%: \;; %: %X %=\;;%" %:\;;%" %X \;; %"%-%: \;; %: %" %X %X %=\;;%"%.%:\;;%" %X \;; %"%-%: %- \;; %: %" %X %X %- %=\;;%"%.%:\;;%" %X \;;%=%"%-%: %- \;; %: %" %"%X %X %- %=\;;%"%.%:\;;%" %X%- \;;%=%"%-%: %- \;; %: %" %"%X %X %- %=\;;%"%.%:\;;%" %X%- \;;%=%"%-%: %-%"\;; %: %" %"%X %X %- %=\;;%"%.%:\;;%"%:%X%- \;;%=%"%-%: %-%"\;; %:%X%" %"%X%X%X %- %=\;;%"%.%:\;;%"%:%X%-%X\;;%=%"%-%:%"%-%"\;;%=%:%X%"%.%"%X%X%X%=%-\;;%=\;;%"%.%:\;;%"%:%X%-%X\;;%=%"%-%:%"%-%"\;;%=%:%X%"%.%"%X%X%X%=%-\;;%=\;;%"%.%:\;;%"%: %= %: \;; %X %= %: %X \;;%" %X %: %. %= %:%:%X \;;%" %X %: %. \;;%= %:%:%X \;;%" %X %: %. %. \;;%= %=%:%:%X \;;%" %"%X %X%: %. \;;%. \;;%= %=%:%:%X %: \;;%" %"%X %X%: %. \;;%. %. %.\;;%= %=%:%:%X%- %: \;;%" %"%X %X%: %.%X\;;%.%X%X %.%. %.\;;%= %=%:%:%X%-%-%: \;;%"%=%"%X %X%: %.%X\;;%.%X%X%X%.%. %.\;;%= %=%:%:%X%-%-%: \;;%"%=%"%X %X%:%X%.%X\;;%.%X%X%X%.%. %.\;;%= %=%:%:%X%-%-%: \;;%"%=%"%X %X%:%X%.%X\;;%.%X%X%X%.%. %.\;;%=%:%:%=%:%:%X%-%-%:%"\;;%"%=%"%X %X%:%X%.%X\;;%.%X%X%X%.%.%X%.\;;%=%:%:%=%:%:%X%-%-%:%"\;;%"%=%"%X%.%X%:%X%.%X\;;%.%X%X%X%.%.%X%.\;;%=%:%:%=%:%:%X%-%-%:%"\;;%"%=%"%X%.%X%:%X%.%X\;;%.%X%X%X%.%.%X%. \;; \;; %- \;; %" %: %- \;; %" %: %- %X %:%: \;; %" %: %- %X %. %:%:%. \;; %" %"%: %-%: %" %X\;;\;; %. %:%:%. \;; %"%=%"%: %-%: %" %X\;;\;; %.%.%" %= %X %:%:%. \;; %"%=%"%:%-%-%: %" %X\;;\;; %.%.%" %:%= %X%. %:%:%. \;; %"%=%"%:%-%-%: %"\;;%X\;;\;; %.%.%"%= %:%= %X%. %:%:%.%"\;; %"%=%"%:%-%-%: %"\;;%X\;;\;; %.%.%"%=%.%.%:%=%.%X%.%=%:%:%.%"\;; %"%=%"%:%-%-%:%.%"\;;%X\;;\;;%X%.%.%"%=%.%.%:%=%.%X%.%=%:%:%.%"\;;%-%"%=%"%:%-%-%:%.%"\;;%X\;;\;;%X%.%.%"%=%.%.%:%=%.%X%.%=%:%:%.%"\;;%-%"%=%"%:%-%-%:%.%"\;;%X\;;\;;%X%.%.%"%=%.%.%:%=%.%X%. %= %X %. %= %X \;;\;; %. %- %. %. %= %X \;;\;; %X %. %- %.%= %. %= %X \;;\;; %X %. %- %.%= %. %-%= %X%. \;;\;; %X %. %= %- %.%= %. %"%-%= %X%. \;;\;;%X %X%"%. %= %- %=%=%.%= %. %X %"%-%=%-%X%. \;;\;;%X %X%"%. %= \;;%- %=%=%.%= %.%X%X %"%-%=%-%X%. \;;\;;%X %X%"%. %= \;;%- %=%=%.%=%. %.%X%X %"%-%=%-%X%. \;;\;;%X %X%"%. %= \;;%-\;;%=%=%.%=%. %.%X%X %"%-%=%-%X%. \;;\;;%X %X%"%.%: %=%:\;;%-\;;%=%=%.%=%. %.%X%X %"%-%=%-%X%. \;;\;;%X%:%X%"%.%: %=%:\;;%-\;;%=%=%.%=%. %.%X%X%.%.%"%-%=%-%X%.%=\;;\;;%X%:%X%"%.%:%:%=%:\;;%-\;;%=%=%.%=%.%:%.%X%X%.%.%"%-%=%-%X%.%=\;;\;;%X%:%X%"%.%:%:%=%:\;;%-\;;%=%=%.%=%.%: %- %- %- %. %- %- %- \;; %- %- %- %. %- %-%:%- \;; %" %- %- %= %- %. %-%- %-%:%- %- %=\;; %" %- %- %= %- %. %-%-%"%"%-%:%- %- %=\;; %" \;; %- %- %= %- %.%-%-%-%"%"%-%:%- %- %=\;; %" \;;\;;%- %- %=%. %- %.%-%-%-%"%"%-%:%-%-%- %=\;;%-%" \;;\;;%- %- %=%. %-%X %.%-%-%-%"%"%-%:%-%-%- \;;%=\;;%-%"%: \;;\;;%-%X%- %=%. %-%X%. %.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%: \;;\;;%-%X%- %=%. %-%X%. %.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%:%X\;;\;;%-%X%-%=%=%. %-%X%. %.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%:%X\;;\;;%-%X%-%=%=%. %-%X%.%X%.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%:%X\;;\;;%-%X%-%=%=%.%"%-%X%.%X%.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%:%X\;;\;;%-%X%-%=%=%.%"%-%X%.%X%. \;; %" %:%: %"\;; %"%X %=%:%: %"\;; %"%X %=%:%: %X %"\;; %"%X%:%: %=%:%: %X %= %. %-%-%"\;; %"%X%:%: %. %=%:%: %X %= %:%. %-%-%"\;; %"%X%:%:%:%. %=%:%: %X %= %:%. %-%-%"\;; %"%X%:%:%:%. %=%:%: %X %= %X%X %:%. %-%-%"\;; %"%X%:%:%:%. %=%:%: %X %" %= %X%X%:%:%. %-%-%"\;; %"%X%:%:%:%.%"%=%:%: %X %" %X%= %X%X%:%:%. %-%-%"\;; %"%X%:%:%:%.%"%=%:%:%:%X %"%:%X%=%= %X%X%:%:%.%:%-%-%"\;; \;;%"%X%:%:%:%.%"%=%:%:%:%X%- %"%:%X%=%=%X%X%X%:%:%.%:%-%-%"\;;%=\;;%"%X%:%:%:%.%"%=%:%:%:%X%-%.%"%:%X%=%=%X%X%X%:%:%.%:%-%-%"\;;%=\;;%"%X%:%:%:%.%"%=%:%:%:%X%-%.%"%:%X%=%=%X%X%X%:%:%. %- \;; %- %- %- %. \;; \;; %- %- %. %- %- %. \;;%X \;; \;; %"%- %- %. %- %- %. \;;%X \;; \;; %: %"%- %- %. %- \;;%- %. \;;%X \;; %-\;;%= %- %: %"%- %- %. %- \;;%-%"%. \;;%X \;; %-\;;%= %- %: %"%- %- %. %- \;;%-%"%. \;;%X \;; %-\;;%= %-%=%: %"%- %- %. %- \;;\;;%-%"%. \;;%X%-\;; %-\;;%=%:%-%=%: %"%- %- %. %X %- \;;\;;%-%"%. \;;%X%-\;;%-%-\;;%=%:%-%=%:%.%"%- %-\;;%.%:%X%= %- \;;\;;%-%"%. \;;%X%-\;;%-%-\;;%=%:%-%=%:%.%"%-%"%-\;;%.%:%X%=%X%X%- \;;\;;%-%"%.%.\;;%X%-\;;%-%-\;;%=%:%-%=%:%.%"%-%"%-\;;%.%:%X%=%X%X%-%-\;;\;;%-%"%.%.\;;%X%-\;;%-%-\;;%=%:%-%=%:%.%"%-%"%-\;;%.%:%X%=%X%X%-%-\;;\;;%-%"%.%.\;;%X%-\;;%-%-\;;%=%:%-%=%: \;;\;; %: %. %" \;;\;; %: %. %" %" \;;\;; %: %. %" %" %=%=\;;\;;%X %:%X%X %. %- %" %"%" %" %- %=%=\;;\;;%X %:%X%X %. %- %" %"%" %" %- %=%=\;;\;;%X%X%:%X%X %"%. %- %: %" %"%" %" %-\;;%=%=\;;\;;%X%X%:%X%X %"%. %- %: %" %"%" %" %" %-\;;%=%=\;;\;;%X%X%:%X%X %"%. %- %: %" %"%"%: %" %" %.%-\;;%=%=\;;\;;%X%X%:%X%X %"%. %- %:%-%" %"%"%: %"%=%" %.%-\;;%=%=\;;\;;%X%X%:%X%X %"%. %- %:%-%"%=%"%"%: %"%=%"\;;%.%-\;;%=%=\;;\;;%X%X%:%X%X %"%. %X%- \;;%:%-%"%=%"%"%:%=%"%=%"\;;%.%-\;;%=%=\;;\;;%X%X%:%X%X%"%"%.%"%X%-\;;\;;%:%-%"%=%"%"%:%=%"%=%"\;;%.%-\;;%=%=\;;\;;%X%X%:%X%X%"%"%.%"%X%-\;;\;;%:%-%"%=%"%"%:%=%"%=%"\;; %:%: \;; %" %:%:%" %"\;; %" %:%:%" %"\;; %"%. %. %:%:%" \;; %: %"\;; %"%. %. %:%:%" \;; %: %=%=%=%= %"\;; %- %"%. %.%=%:%:%" \;; %: %=%=%=%= %"\;; %- %"%. %.%=%:%:%" %:\;; %: %=%=%=%=%"%"\;; %- %"%. %.%=%:%:%" %"%:\;; %: %.%=%=%=%=%"%"\;; %- %"%. %.%=%:%:%" %"%:\;; %:%-%-%.%=%=%=%=%"%"\;;%-%-%- %"%. %.%=%:%:%"%"%"%:\;;%=%=%=%:%-%-%.%=%=%=%=%"%"\;;%-%-%-%"%"%"%. \;;%.%=%:%:%"%"%"%:\;;%=%=%=%:%-%-%.%=%=%=%=%"%"\;;%-%-%-%"%"%"%.%:\;;%.%=%:%:%"%"%"%:\;;%=%=%=%:%-%-%.%=%=%=%=%"%"\;;%-%-%-%"%"%"%.%:\;;%.%=%:%:%"%"%"%:\;;%=%=%=%: %. %. %" %: %. %. %" %: %. %. %: %. %" \;; %: %. %. %: %. %" \;; %: %=%. %. %:%X %. %"%= \;;\;; \;;\;; \;; %: %=%.%X%. %:%X %. %"%= \;;\;; \;;\;; %- \;; %: %=%.%X%. %X%:%X %. %"%= \;;\;; \;;\;; %- \;; %-%: %:%=%.%X%. %X%:%X %"%. %"%=%"\;;\;; \;;\;;%"%-%= \;; %-%: %:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;; \;;\;;%"%-%= %-\;;%:%-%: %:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;;%:\;;\;;%"%-%=\;;%-\;;%:%-%: %:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;;%:\;;\;;%"%-%=\;;%-\;;%:%-%:%=%:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;;%:\;;\;;%"%-%=\;;%-\;;%:%-%:%=%:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;;%:\;;\;;%"%-%=\;;%-\;;%:%-%: %. %. %" %" %X %.\;;%" %: %" %X%X %X %= %.%.%. %.\;;%" %:\;;%" %X%X %X %" %=%X %"%.%.%. %X %.\;;%" %:\;;%" %X%X \;;%X %" %" %=%X %"%.%.%. %.%X %.\;;%" %:\;;%" %X%X \;;%X\;;%" %" %=%X %"%.%.%. %.%X %.\;;%" %:\;;%" %X%X \;;%X\;;%" %" %=%X %"%.%.%. %.%X %.\;;%"%= %:\;;%"%X %X%X \;;%X\;;%"%=%" %=%X%X%"%.%.%. %.%X %.\;;%"%= %:\;;%"%X %=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%. %.%X%.%.\;;%"%= %:\;;%"%X %=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%. %.%X%.%.\;;%"%=%X%:\;;%"%X %=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%. %.%X%.%.\;;%"%=%X%:\;;%"%X%=%=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%.%"%.%X%.%.\;;%"%=%X%:\;;%"%X%=%=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%.%"%.%X"(416*INT (RND*20)+1 TO )( TO 416);AT 21,0;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##" 20 LET B=1 30 FOR A=1 TO 671 40 GOTO 50+(50 AND PEEK(PEEK 16396+PEEK 16397*256+A+1+INT(A/32)))+(20 AND B<672 AND NOT PEEK(PEEK 16396+PEEK 16397*256+B+1+INT(B/32))) 50 PRINT AT INT((B-32)/32),B-INT(B/32)*32;"*";AT 7,B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" " 60 LET B=A 70 PRINT AT INT((B-32)/32),B-INT(B/32)*32;" " AND B<>A;TAB B-INT(B/32)*32;"$" AND B<>A;AT INT((A-1)/32),(A-1)-INT((A-1)/32)*32;" \:." 80 LET B=(A+1 AND B=A)+(B+32 AND B>A)+(31 AND INKEY$="B" AND B=A) 90 NEXT A 120 PRINT AT 12,9;"% %W%E%L%L% % %D%O%N%E% " AND A=672;AT INT(A/32)-2,9;"% %G%A%M%E% % %O%V%E%R% " AND A<>672

Code:: zxtext2p -o blitz.p blitz.bas

(si blitz.bas est le fichier qui contient le code)

Ensuite le .p peut-être ouvert dans un émulateur comme EightyOne.

Le listing a été légèrement optimisé par rapport à celui de la vidéo :

Remplacement de AT par des TAB en ligne 50 : (TAB effectue d'ailleurs automatiquement un MODULO 32 mais malheureusement n'accepte que des valeurs entre 0 et 255)

Code:: 50 PRINT AT INT((B-32)/32),B-INT(B/32)*32;"*";AT 7,B-INT(B/32)*32;" ";AT 8,B-INT(B/32)*32;" ";AT 9,B-INT(B/32)*32;" ";AT 10,B-INT(B/32)*32;" ";AT 11,B-INT(B/32)*32;" ";AT 12,B-INT(B/32)*32;" ";AT 13,B-INT(B/32)*32;" ";AT 14,B-INT(B/32)*32;" ";AT 15,B-INT(B/32)*32;" ";AT 16,B-INT(B/32)*32;" ";AT 17,B-INT(B/32)*32;" ";AT 18,B-INT(B/32)*32;" ";AT 19,B-INT(B/32)*32;" ";AT 20,B-INT(B/32)*32;" "

Code:: 50 PRINT AT INT((B-32)/32),B-INT(B/32)*32;"*";AT 7,B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" ";TAB B-INT(B/32)*32;" "

et puis un AT en moins pour effacer et afficher l'avion en une seule fois (mais qui nécessite de commencer la boucle FOR avec A=1) à noter d'ailleurs qu'augmenter cette valeur permet d'obtenir une difficulté plus élevée)

Code:: 70 PRINT AT INT((B-32)/32),B-INT(B/32)*32;" " AND B<>A;AT INT(B/32),B-INT(B/32)*32;"$" AND B<>A;AT INT((A-1)/32),(A-1)-INT((A-1)/32)*32;" ";AT INT(A/32),A-INT(A/32)*32;"\:."

Code:: 70 PRINT AT INT((B-32)/32),B-INT(B/32)*32;" " AND B<>A;TAB B-INT(B/32)*32;"$" AND B<>A;AT INT((A-1)/32),(A-1)-INT((A-1)/32)*32;" \:."

par **youki** Mar 25 Jan 2022 - 12:45

drfloyd a écrit:
freed a écrit:
drfloyd a écrit:

BOF

La on le 10lignopat 2021 surclasse le 10LINERS 2021

Largement Et tu verras quand des équipes se formeront pour collaborer sur un même projet

des moteurs de jeux seront mis au point, des studios vont se monter, des jeux en boite sortir, et le 10lignopat racheté par Microsoft pour 47 milliards de dollars.

Tout ça grâce à suppo game! ...on m a contacté pour une adaptation ciné... Un certain Cameron ..connait pas,un petit nouveau sûrement...

par **youki** Mar 25 Jan 2022 - 12:52

Copper a écrit:BLITZX sur ZX81 16Ko en 10 instructions

Le doc n'a pas pu acheter d'appartement dans cette ville car elle est réservée aux possesseurs d'Amiga 500... Furieux il a donc décidé de la détruire à l'aide de son superbe bombardier mono caractère... La touche B est utilisée pour lancer une bombe

Le jeu contient 20 villes différentes dont une qui est choisie aléatoirement...

Voici le listing à convertir en .p avec zxtext2p

Code:
10 PRINT AT 0,0;" ";"\;; \;; \;; \;; %X \;; %-\;; \;; %X \;; %-\;; %- \;; %- %X%X%X%X %. %X \;;%"%-\;; %- \;; %- %X%X%X%X %. %X \;;%"%-\;; %"%" %- %:\;; %= %- %X%X%X%X %. %X \;;%"%-\;; %:%:%"%"%: %- %:\;; %=%X %- %X%X%X%X %. %X \;;%"%-\;;\;;%:%:%"%"%:\;; %-%:%:\;; %=%X %-%.%X%X%X%X %.\;;\;;%X \;;%"%-\;;\;;%:%:%"%"%:\;;%-%-%:%:\;;%-%=%X %-%.%X%X%X%X %.\;;\;;%X \;;%"%-\;;\;;%:%:%"%"%:\;;%-%-%:%:\;;%-%=%X %-%.%X%X%X%X%.%.\;;\;;%X%-\;;%"%-\;;\;;%:%:%"%"%:\;;%-%-%:%:\;;%-%=%X%X%-%.%X%X%X%X%.%.\;;\;;%X%-\;;%"%-\;;\;;%:%:%"%"%:\;;%-%-%:%:\;;%-%=%X%X%-%.%X%X%X%X%.%.\;;\;;%X%- %: \;; \;;\;;%: \;; %: %" \;;\;;%: \;; %: %- %" \;;\;;%: %X\;; \;; %: %- %" %X \;;\;;%: %X\;; %: \;;%. %: %-%X %" %X\;; \;;\;;%: %X\;; %: \;;%. %: %-%X %" %X\;; \;;\;;%: %X\;; %: \;;%. %- %: %-%X %" \;;%X\;; \;;\;;%: %X\;; %:%:\;;%. %- %:\;; %=%-%X %"%"\;;%X\;;%:\;;\;;%:%-%X\;; %:%:\;;%. %- %X%:\;; %=%-%X %"%"\;;%X\;;%:\;;\;;%:%-%X\;;%=%:%:\;;%.%"%- %X%:\;;%: %:%:%=%-%X %"%"\;;%X\;;%:\;;\;;%:%-%X\;;%=%:%:\;;%.%"%- %X%:\;;%:\;;\;;%:%:%=%-%X%"%"%"\;;%X\;;%:\;;\;;%:%-%X\;;%=%:%:\;;%.%"%-%"%X%:\;;%:\;;\;;%:%:%=%-%X%"%"%"\;;%X\;;%:\;;\;;%:%-%X\;;%=%:%:\;;%.%"%-%" %. %= %-%- %. %. \;; %X %X%= %-%- %. %. \;; %X %= %X%= %-%- %. %. \;; %: %X %X %=%= %X%= %-%- %. %. \;; %: %X %:%X %=%= %X%= %-%-%-%. %.%. \;; %: %X %"%:%X %=%= %X%=%:%:%: %-%-%-%. %.%. \;; %: %X %-%"%:%X %=%= %X%=%:%:%: %-%-%-%. %.%. \;; %: %X %-%"%:%X %=%= %-%X%=%:%:%: %-%-%-%.%" %.%. \;; %: %X%X %-%"%:%X%.%=%= %-%X%=%:%:%: %-%-%-%.%" %.%.%=\;;%X%: %X%X %-%"%:%X%.%=%=%.%-%X%=%:%:%: %:%-%-%-%.%"\;;%.%.%=\;;%X%:%-%X%X%"%-%"%:%X%.%=%=%.%-%X%=%:%:%:%:%:%-%-%-%.%"\;;%.%.%=\;;%X%:%-%X%X%"%-%"%:%X%.%=%=%.%-%X%=%:%:%:%:%:%-%- %" %X %: %: %.%.%" %= %" %X %: %: %.%.%" %= %" %- \;;%X %-%: %: %.%.%" %= %" %- \;;%X %-%: %: %"%.%.%" %= %" %- \;;%X %-%: %: %X %"%.%.%"%"%= %"%. %- \;;%X %-%-%: %: %X %"%.%.%"%"%= %"%. %- \;;%X %-%-%-%:%" %: %X%. %"%.%.%"%"%= %"%. %-%= \;;%X %-%-%-%:%" %: %X%.%:%: %"%"%.%.%"%"%= %"%. %-%= \;;%X%- %-%-%-%:%" \;;%: %X%.%:%: %"%"%.%.%"%"%= %"%. %-%= \;;%X%- %-%-%-%:%" \;;%: %X%.%:%:\;;%"%"%.%.%"%"%= %"%. %-%= \;;%X%- %-%-%-%:%"%=\;;%:%:%X%.%:%:\;;%"%"%.%.%"%"%=%.%"%.%X%-%=%=\;;%X%-%-%-%-%-%:%"%=\;;%:%:%X%.%:%:\;;%"%"%.%.%"%"%=%.%"%.%X%-%=%=\;;%X%-%-%-%-%-%: %: %"%" %X %" %: %: %"%" %X %" %: %: %"%" %X %. %" %: %: %"%" %"%X %X %. %=%" %X%: %: %"%" %"%X %X %. %=%"%X %X%: %: %"%" %"%X %X\;;\;;\;; %. %=%"%X%:%X%: %:%:%"%"%. %"%X %X %X\;;\;;\;;%: %: %. %=%"%X%:%X%: %:%:%"%"%. %"%X %X %.%X\;;\;;\;;%: %:%X%. %=%"%X%:%X%: %:%:%"%"%.%X%"%X %X %.%X\;;\;;\;;%: %:%X%.%X%X%=%"%X%:%X%: %:%:%"%"%.%X%"%X%= %X %.%X\;;\;;\;;%: %:%X%.%X%X%=%"%X%:%X%: %:%:%"%"%.%X%"%X%=%:%X %-%.%X\;;\;;\;;%: %:%X%.%X%X%=%"%X%:%X%:%.%:%:%"%"%.%X%"%X%=%:%X%=%-%.%X\;;\;;\;;%:%-%:%X%.%X%X%=%"%X%:%X%:%.%:%:%"%"%.%X%"%X%=%:%X%=%-%.%X\;;\;;\;;%:%-%:%X%.%X%X%=%"%X%:%X %X %X %= %" %X \;;%= %X %:%" %. %X \;;%= %.%X %:%" %: \;;%. %X \;;%= %.%X %:%" %: \;;%.%-%- %X%X %"%X \;;%= %.%X %:%" %: \;;%.%-%- %X%X %"%X \;;%= %.%X %:%" %: \;;%.%-%- %X%X %. %"%X %-\;;%= %.%X%"%:%" %: %-\;;%.%-%- %X%X %. %"%X %-%-\;;%= %.%X%"%:%" %: %-\;;%.%-%- %X%X%-%. %"%X %-%-\;;%= %.%X%"%:%" %.%: %-\;;%.%-%-%X %X%X%-%.%X%"%X%- %=%-%-\;;%= %.%X%"%:%" %.%:%.%-\;;%.%-%-%X %"%X%X%-%.%X%"%X%-%:%=%-%-\;;%=%:%.%X%"%:%"%:%.%:%.%-\;;%.%-%-%X%.%"%X%X%-%.%X%"%X%-%:%=%-%-\;;%=%:%.%X%"%:%"%:%.%:%.%-\;;%.%-%-%X%.%"%X%X%-%.%" %- %. %:%: %" %" %" %- %. %:%: %" %" %: %" %- %= %" %. %:%:%X %"\;; %" %" %:%:%: %" %- %= %" %. %:%:%X%= %-%"\;; %" %"%: %:%:%: %" %"%- %=\;; %"\;;%. %"%:%:%X%= %-%"\;; %.%" %"%: %:%:%: %" %"%- %=\;; %"\;;%. %"%:%:%X%= %-%"\;; %.%" %"%: %:%:%: %" %"%- %=\;; %"\;;%. %"%:%:%X%= %-%"\;; %.%" %"%: %:%:%: %" %"%-%X%=\;; %"\;;%.%-%"%:%:%X%= %-%"\;; %.%"\;;%"%: %:%:%: %" %"%-%X%=\;; %"\;;%.%-%"%:%:%X%= %-%"\;; %.%"\;;%"%: %:%:%:%-%" %"%-%X%=\;; %"\;;%.%-%"%:%:%X%=%-%-%"\;; %.%"\;;%"%: %:%:%:%-%" %"%-%X%=\;;%X%"\;;%.%-%"%:%:%X%=%-%-%"\;; %.%"\;;%"%:%.%:%:%:%-%"%.%"%-%X%=\;;%X%"\;;%.%-%"%:%:%X%=%-%-%"\;;%X%.%"\;;%"%:%.%:%:%:%-%"%.%"%-%X%=\;;%X%"\;;%.%-%"%:%:%X%=%-%-%"\;;%X%.%"\;;%"%:%.%:%:%:%- %-%- %= %" %X%-%- %. %. %= %" %X%-%- %. %. %= %" %X%-%-%-%- %. %. %= %" %" %X%-%-%-%- %. %.%- %.%= %" %" %X%-%-%-%- %. %"%" %.%- %.%=%.%"\;;%" %X%-%-%-%- %. %"%" %: %.%- %.%=%.%"\;;%" %. %X%-%-%-%- %. %"%" %: %.%- %. %.%=%.%"\;;%" %. %X%-%-%-%-%-%.%-%"%" %: %.%- %. %.%=%.%"\;;%"%=%. %= %X%-%-%-%-%-%.%-%"%" %: %.%- %.%=%.%=%.%"\;;%"%=%.%-%= %=%X%-%-%-%-%-%.%-%"%"%"%:%X%X%.%- %.%=%.%=%.%"\;;%"%=%.%-%=%=%=%=%X%-%-%-%-%-%.%-%"%"%"%:%X%X%.%-%:%.%=%.%=%.%"\;;%"%=%.%-%=%=%=%=%X%-%-%-%-%-%.%-%"%"%"%:%X%X%.%-%:%.%=%.%=%.%"\;;%"%= %: %" %"%: %" %"%:%X %= \;; %"%=%= %= %"%:%X%. %= %= %.\;; %. %:%"%=%= %= %"%:%X%. %= %= \;; %.\;; \;;%. %:%"%=%= %= %"%:%X%. %= %= \;; %.\;; \;;%. \;;%:%"%=%= %X %= %"%:%X%. %= %=%:\;;%:%.\;; \;;%. %X \;;%:%"%=%= %X%.%= %"%:%X%.%X%= %=%:\;;%:%.\;; \;;%. %X \;;%:%"%=%=%=%X%.%=%= %"%:%X%.%X%= %=%:\;;%:%.\;; \;;%. %X%.\;;%:%"%=%=%=%X%.%=%= %"%:%X%.%X%= %=%:\;;%:%.\;; \;;%. %X%.\;;%:%"%=%=%=%X%.%=%=%"%"%:%X%.%X%= %=%:\;;%:%.\;;%=%=\;;%.%:%X%.\;;%:%"%=%=%=%X%.%=%=%"%"%:%X%.%X%=%X%X%=%:\;;%:%.\;;%=%=\;;%.%:%X%.\;;%:%"%=%=%=%X%.%=%=%"%"%:%X%.%X%=%X%X%=%:\;;%:%.\;;%=%= %: %: %X %" %: \;; \;; %: %" %X %" %: \;; \;;%" %: %" %X %" %: \;; %=\;;%" %:\;;%" %X \;; %"%-%: \;; %: %X %=\;;%" %:\;;%" %X \;; %"%-%: \;; %: %" %X %X %=\;;%"%.%:\;;%" %X \;; %"%-%: %- \;; %: %" %X %X %- %=\;;%"%.%:\;;%" %X \;;%=%"%-%: %- \;; %: %" %"%X %X %- %=\;;%"%.%:\;;%" %X%- \;;%=%"%-%: %- \;; %: %" %"%X %X %- %=\;;%"%.%:\;;%" %X%- \;;%=%"%-%: %-%"\;; %: %" %"%X %X %- %=\;;%"%.%:\;;%"%:%X%- \;;%=%"%-%: %-%"\;; %:%X%" %"%X%X%X %- %=\;;%"%.%:\;;%"%:%X%-%X\;;%=%"%-%:%"%-%"\;;%=%:%X%"%.%"%X%X%X%=%-\;;%=\;;%"%.%:\;;%"%:%X%-%X\;;%=%"%-%:%"%-%"\;;%=%:%X%"%.%"%X%X%X%=%-\;;%=\;;%"%.%:\;;%"%: %= %: \;; %X %= %: %X \;;%" %X %: %. %= %:%:%X \;;%" %X %: %. \;;%= %:%:%X \;;%" %X %: %. %. \;;%= %=%:%:%X \;;%" %"%X %X%: %. \;;%. \;;%= %=%:%:%X %: \;;%" %"%X %X%: %. \;;%. %. %.\;;%= %=%:%:%X%- %: \;;%" %"%X %X%: %.%X\;;%.%X%X %.%. %.\;;%= %=%:%:%X%-%-%: \;;%"%=%"%X %X%: %.%X\;;%.%X%X%X%.%. %.\;;%= %=%:%:%X%-%-%: \;;%"%=%"%X %X%:%X%.%X\;;%.%X%X%X%.%. %.\;;%= %=%:%:%X%-%-%: \;;%"%=%"%X %X%:%X%.%X\;;%.%X%X%X%.%. %.\;;%=%:%:%=%:%:%X%-%-%:%"\;;%"%=%"%X %X%:%X%.%X\;;%.%X%X%X%.%.%X%.\;;%=%:%:%=%:%:%X%-%-%:%"\;;%"%=%"%X%.%X%:%X%.%X\;;%.%X%X%X%.%.%X%.\;;%=%:%:%=%:%:%X%-%-%:%"\;;%"%=%"%X%.%X%:%X%.%X\;;%.%X%X%X%.%.%X%. \;; \;; %- \;; %" %: %- \;; %" %: %- %X %:%: \;; %" %: %- %X %. %:%:%. \;; %" %"%: %-%: %" %X\;;\;; %. %:%:%. \;; %"%=%"%: %-%: %" %X\;;\;; %.%.%" %= %X %:%:%. \;; %"%=%"%:%-%-%: %" %X\;;\;; %.%.%" %:%= %X%. %:%:%. \;; %"%=%"%:%-%-%: %"\;;%X\;;\;; %.%.%"%= %:%= %X%. %:%:%.%"\;; %"%=%"%:%-%-%: %"\;;%X\;;\;; %.%.%"%=%.%.%:%=%.%X%.%=%:%:%.%"\;; %"%=%"%:%-%-%:%.%"\;;%X\;;\;;%X%.%.%"%=%.%.%:%=%.%X%.%=%:%:%.%"\;;%-%"%=%"%:%-%-%:%.%"\;;%X\;;\;;%X%.%.%"%=%.%.%:%=%.%X%.%=%:%:%.%"\;;%-%"%=%"%:%-%-%:%.%"\;;%X\;;\;;%X%.%.%"%=%.%.%:%=%.%X%. %= %X %. %= %X \;;\;; %. %- %. %. %= %X \;;\;; %X %. %- %.%= %. %= %X \;;\;; %X %. %- %.%= %. %-%= %X%. \;;\;; %X %. %= %- %.%= %. %"%-%= %X%. \;;\;;%X %X%"%. %= %- %=%=%.%= %. %X %"%-%=%-%X%. \;;\;;%X %X%"%. %= \;;%- %=%=%.%= %.%X%X %"%-%=%-%X%. \;;\;;%X %X%"%. %= \;;%- %=%=%.%=%. %.%X%X %"%-%=%-%X%. \;;\;;%X %X%"%. %= \;;%-\;;%=%=%.%=%. %.%X%X %"%-%=%-%X%. \;;\;;%X %X%"%.%: %=%:\;;%-\;;%=%=%.%=%. %.%X%X %"%-%=%-%X%. \;;\;;%X%:%X%"%.%: %=%:\;;%-\;;%=%=%.%=%. %.%X%X%.%.%"%-%=%-%X%.%=\;;\;;%X%:%X%"%.%:%:%=%:\;;%-\;;%=%=%.%=%.%:%.%X%X%.%.%"%-%=%-%X%.%=\;;\;;%X%:%X%"%.%:%:%=%:\;;%-\;;%=%=%.%=%.%: %- %- %- %. %- %- %- \;; %- %- %- %. %- %-%:%- \;; %" %- %- %= %- %. %-%- %-%:%- %- %=\;; %" %- %- %= %- %. %-%-%"%"%-%:%- %- %=\;; %" \;; %- %- %= %- %.%-%-%-%"%"%-%:%- %- %=\;; %" \;;\;;%- %- %=%. %- %.%-%-%-%"%"%-%:%-%-%- %=\;;%-%" \;;\;;%- %- %=%. %-%X %.%-%-%-%"%"%-%:%-%-%- \;;%=\;;%-%"%: \;;\;;%-%X%- %=%. %-%X%. %.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%: \;;\;;%-%X%- %=%. %-%X%. %.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%:%X\;;\;;%-%X%-%=%=%. %-%X%. %.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%:%X\;;\;;%-%X%-%=%=%. %-%X%.%X%.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%:%X\;;\;;%-%X%-%=%=%.%"%-%X%.%X%.%-%-%-%"%"%-%:%-%-%-\;;\;;%=\;;%-%"%:%X\;;\;;%-%X%-%=%=%.%"%-%X%.%X%. \;; %" %:%: %"\;; %"%X %=%:%: %"\;; %"%X %=%:%: %X %"\;; %"%X%:%: %=%:%: %X %= %. %-%-%"\;; %"%X%:%: %. %=%:%: %X %= %:%. %-%-%"\;; %"%X%:%:%:%. %=%:%: %X %= %:%. %-%-%"\;; %"%X%:%:%:%. %=%:%: %X %= %X%X %:%. %-%-%"\;; %"%X%:%:%:%. %=%:%: %X %" %= %X%X%:%:%. %-%-%"\;; %"%X%:%:%:%.%"%=%:%: %X %" %X%= %X%X%:%:%. %-%-%"\;; %"%X%:%:%:%.%"%=%:%:%:%X %"%:%X%=%= %X%X%:%:%.%:%-%-%"\;; \;;%"%X%:%:%:%.%"%=%:%:%:%X%- %"%:%X%=%=%X%X%X%:%:%.%:%-%-%"\;;%=\;;%"%X%:%:%:%.%"%=%:%:%:%X%-%.%"%:%X%=%=%X%X%X%:%:%.%:%-%-%"\;;%=\;;%"%X%:%:%:%.%"%=%:%:%:%X%-%.%"%:%X%=%=%X%X%X%:%:%. %- \;; %- %- %- %. \;; \;; %- %- %. %- %- %. \;;%X \;; \;; %"%- %- %. %- %- %. \;;%X \;; \;; %: %"%- %- %. %- \;;%- %. \;;%X \;; %-\;;%= %- %: %"%- %- %. %- \;;%-%"%. \;;%X \;; %-\;;%= %- %: %"%- %- %. %- \;;%-%"%. \;;%X \;; %-\;;%= %-%=%: %"%- %- %. %- \;;\;;%-%"%. \;;%X%-\;; %-\;;%=%:%-%=%: %"%- %- %. %X %- \;;\;;%-%"%. \;;%X%-\;;%-%-\;;%=%:%-%=%:%.%"%- %-\;;%.%:%X%= %- \;;\;;%-%"%. \;;%X%-\;;%-%-\;;%=%:%-%=%:%.%"%-%"%-\;;%.%:%X%=%X%X%- \;;\;;%-%"%.%.\;;%X%-\;;%-%-\;;%=%:%-%=%:%.%"%-%"%-\;;%.%:%X%=%X%X%-%-\;;\;;%-%"%.%.\;;%X%-\;;%-%-\;;%=%:%-%=%:%.%"%-%"%-\;;%.%:%X%=%X%X%-%-\;;\;;%-%"%.%.\;;%X%-\;;%-%-\;;%=%:%-%=%: \;;\;; %: %. %" \;;\;; %: %. %" %" \;;\;; %: %. %" %" %=%=\;;\;;%X %:%X%X %. %- %" %"%" %" %- %=%=\;;\;;%X %:%X%X %. %- %" %"%" %" %- %=%=\;;\;;%X%X%:%X%X %"%. %- %: %" %"%" %" %-\;;%=%=\;;\;;%X%X%:%X%X %"%. %- %: %" %"%" %" %" %-\;;%=%=\;;\;;%X%X%:%X%X %"%. %- %: %" %"%"%: %" %" %.%-\;;%=%=\;;\;;%X%X%:%X%X %"%. %- %:%-%" %"%"%: %"%=%" %.%-\;;%=%=\;;\;;%X%X%:%X%X %"%. %- %:%-%"%=%"%"%: %"%=%"\;;%.%-\;;%=%=\;;\;;%X%X%:%X%X %"%. %X%- \;;%:%-%"%=%"%"%:%=%"%=%"\;;%.%-\;;%=%=\;;\;;%X%X%:%X%X%"%"%.%"%X%-\;;\;;%:%-%"%=%"%"%:%=%"%=%"\;;%.%-\;;%=%=\;;\;;%X%X%:%X%X%"%"%.%"%X%-\;;\;;%:%-%"%=%"%"%:%=%"%=%"\;; %:%: \;; %" %:%:%" %"\;; %" %:%:%" %"\;; %"%. %. %:%:%" \;; %: %"\;; %"%. %. %:%:%" \;; %: %=%=%=%= %"\;; %- %"%. %.%=%:%:%" \;; %: %=%=%=%= %"\;; %- %"%. %.%=%:%:%" %:\;; %: %=%=%=%=%"%"\;; %- %"%. %.%=%:%:%" %"%:\;; %: %.%=%=%=%=%"%"\;; %- %"%. %.%=%:%:%" %"%:\;; %:%-%-%.%=%=%=%=%"%"\;;%-%-%- %"%. %.%=%:%:%"%"%"%:\;;%=%=%=%:%-%-%.%=%=%=%=%"%"\;;%-%-%-%"%"%"%. \;;%.%=%:%:%"%"%"%:\;;%=%=%=%:%-%-%.%=%=%=%=%"%"\;;%-%-%-%"%"%"%.%:\;;%.%=%:%:%"%"%"%:\;;%=%=%=%:%-%-%.%=%=%=%=%"%"\;;%-%-%-%"%"%"%.%:\;;%.%=%:%:%"%"%"%:\;;%=%=%=%: %. %. %" %: %. %. %" %: %. %. %: %. %" \;; %: %. %. %: %. %" \;; %: %=%. %. %:%X %. %"%= \;;\;; \;;\;; \;; %: %=%.%X%. %:%X %. %"%= \;;\;; \;;\;; %- \;; %: %=%.%X%. %X%:%X %. %"%= \;;\;; \;;\;; %- \;; %-%: %:%=%.%X%. %X%:%X %"%. %"%=%"\;;\;; \;;\;;%"%-%= \;; %-%: %:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;; \;;\;;%"%-%= %-\;;%:%-%: %:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;;%:\;;\;;%"%-%=\;;%-\;;%:%-%: %:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;;%:\;;\;;%"%-%=\;;%-\;;%:%-%:%=%:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;;%:\;;\;;%"%-%=\;;%-\;;%:%-%:%=%:%=%.%X%.%"%X%:%X%:%"%.\;;\;;%"%=%"\;;\;;%:\;;\;;%"%-%=\;;%-\;;%:%-%: %. %. %" %" %X %.\;;%" %: %" %X%X %X %= %.%.%. %.\;;%" %:\;;%" %X%X %X %" %=%X %"%.%.%. %X %.\;;%" %:\;;%" %X%X \;;%X %" %" %=%X %"%.%.%. %.%X %.\;;%" %:\;;%" %X%X \;;%X\;;%" %" %=%X %"%.%.%. %.%X %.\;;%" %:\;;%" %X%X \;;%X\;;%" %" %=%X %"%.%.%. %.%X %.\;;%"%= %:\;;%"%X %X%X \;;%X\;;%"%=%" %=%X%X%"%.%.%. %.%X %.\;;%"%= %:\;;%"%X %=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%. %.%X%.%.\;;%"%= %:\;;%"%X %=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%. %.%X%.%.\;;%"%=%X%:\;;%"%X %=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%. %.%X%.%.\;;%"%=%X%:\;;%"%X%=%=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%.%"%.%X%.%.\;;%"%=%X%:\;;%"%X%=%=%X%X%X\;;%X\;;%"%=%"%"%=%X%X%"%.%.%.%"%.%X"(416*INT (RND*20)+1 TO )( TO 416);AT 21,0;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##" 20 LET B=0 30 FOR A=0 TO 671 40 GOTO 50+(50 AND PEEK(PEEK 16396+PEEK 16397*256+A+1+INT(A/32)))+(20 AND B<672 AND NOT PEEK(PEEK 16396+PEEK 16397*256+B+1+INT(B/32))) 50 PRINT AT INT((B-32)/32),B-INT(B/32)*32;"*";AT 7,B-INT(B/32)*32;" ";AT 8,B-INT(B/32)*32;" ";AT 9,B-INT(B/32)*32;" ";AT 10,B-INT(B/32)*32;" ";AT 11,B-INT(B/32)*32;" ";AT 12,B-INT(B/32)*32;" ";AT 13,B-INT(B/32)*32;" ";AT 14,B-INT(B/32)*32;" ";AT 15,B-INT(B/32)*32;" ";AT 16,B-INT(B/32)*32;" ";AT 17,B-INT(B/32)*32;" ";AT 18,B-INT(B/32)*32;" ";AT 19,B-INT(B/32)*32;" ";AT 20,B-INT(B/32)*32;" " 60 LET B=A 70 PRINT AT INT((B-32)/32),B-INT(B/32)*32;" " AND B<>A;AT INT(B/32),B-INT(B/32)*32;"$" AND B<>A;AT INT((A-1)/32),(A-1)-INT((A-1)/32)*32;" ";AT INT(A/32),A-INT(A/32)*32;"\:." 80 LET B=(A+1 AND B=A)+(B+32 AND B>A)+(31 AND INKEY$="B" AND B=A) 90 NEXT A 120 PRINT AT 12,9;"% %W%E%L%L% % %D%O%N%E% " AND A=672;AT INT(A/32)-2,9;"% %G%A%M%E% % %O%V%E%R% " AND A<>672

Heu... Je doute que ce soit qui l ai fait...

par wulf Mar 25 Jan 2022 - 12:57

Bravo @copper , tu me donnes envie de refaire la même chose sur Spectrum (pas forcément en 10 lignes) juste pour le fun.
Le "bomber" est un classique des progs d'apprentissage, le tien est bien réussi cheers

Merci de continuer à faire vivre le ZX81, le pépé incroyable de notre micro-familiale

par **Copper** Mar 25 Jan 2022 - 13:00

youki a écrit:Heu... Je doute que ce soit qui l ai fait...

Je vais prendre ça pour un compliment mais c'est bien moi qui l'ai fait...

par **youki** Mar 25 Jan 2022 - 13:25

Copper a écrit:
youki a écrit:Heu... Je doute que ce soit qui l ai fait...
Je vais prendre ça pour un compliment mais c'est bien moi qui l'ai fait...

Il y exactement le meme listing dans le magazine computer-programme fur Zx81 Ausgabe 4 . Mr. Green

par YannAros Mar 25 Jan 2022 - 15:28

Au delà des doutes exprimés sur la paternité du code bravo pour les entrées sur ZX81!

par YannAros Mar 25 Jan 2022 - 15:38

A mon sens il manquait un représentant de l'industrie informatique française, j'ai donc porté "Too flashy color lines - not for color blinded nor C64..." sur MO5:

Pour le scénario se reporter à la version Amstrad CPC dispo ici

LE 10LIGNOPAT 2021 : RESULTATS ! - Page 2 Mo5_co10

Le code:

Code:: 10 SCREEN 1,0,0:CLEAR ,,2:DEFGR$(0)=0,127,127,127,127,127,127,0:DEFGR$(1)=0,254,254,254,254,254,254,0:DIM C(7):FOR I=0 TO 7:READ C(I):NEXT I:M=1000:S=0:DATA 1,2,3,4,5,6,12,15 20 FOR X=0 TO 19:FOR Y=0 TO 22:COLOR C(INT(RND *8)):LOCATE X*2,Y:PRINTGR$(0):LOCATE X*2+1,Y:PRINTGR$(1):NEXT Y:NEXT X:X=9:Y=11:BC=7:FC=POINT(X*16+4,Y*8+4):GOSUB 100 30 COLOR 7,0:LOCATE 0,23:PRINT"MOVE LEFT :"M; 40 I$=INKEY$: IF I$<>"" THEN K=ASC(I$):DX =(K=8 AND X>0)-(K=9 AND X<19):DY=(K=11 AND Y>0)-(K=10 AND Y<22) ELSE DX=0:DY=0 50 IF (DX OR DY) THEN BC=0:FC=POINT((X+DX)*16+4,(Y+DY)*8+4):GOSUB 100:X=X+DX:Y=Y+DY:M=M-1:BC=7:GOSUB 100 60 IF M>0 THEN GOTO 30 ELSE COLOR 7,0:LOCATE 0,23:PRINT"FINAL SCORE :"; 70 FOR I=0 TO 19:DS=0:SP=0:FOR J=0 TO 22:CP=POINT(I*16+4,J*8+4):COLOR CP,0:LOCATE I*2 ,J:PRINT CHR$(127):DS=DS-(CP=SP):DS=-DS*(CP=SP):S=S-DS*(CP=SP):SP=CP:LOCATE 14,23:?S;:NEXT J:NEXT I 80 FOR J=0 TO 22:DS=0:SP=0:FOR I=0 TO 19:CP=POINT(I*16+4,J*8+4):COLOR CP,0:LOCATE I*2+1,J:PRINT CHR$(127):DS=DS-(CP=SP):DS=-DS*(CP=SP):S=S-DS*(CP=SP):SP=CP:LOCATE 14,23:?S;:NEXT I:NEXT J:END 100 COLOR FC,BC:LOCATE X*2,Y:PRINTGR$(0):LOCATE X*2+1,Y:PRINTGR$(1):RETURN

J'avais pas utilisé le Basic MO5 depuis mes cours d'info de 5ème, je suis vraiment rouillé, j'ai perdu un temps monstrueux à me remettre dedans

par **youki** Mar 25 Jan 2022 - 15:59

Bravo YannAros! .. deja pour l'effort!!! Very Happy

J'avais prevu de faire un truc sur Oric et sur MSX , mais avec mon Pb de bras... je peux vraiment pas... Sad

Vous avez de la chance que je me sois claqué sur le 10ligneopat...

par **Copper** Mar 25 Jan 2022 - 16:10

YannAros a écrit:Au delà des doutes exprimés sur la paternité du code bravo pour les entrées sur ZX81!

J'ai fait un test de paternité pas de soucis il est bien de moi Razz

par YannAros Mar 25 Jan 2022 - 16:31

Copper a écrit:
YannAros a écrit:Au delà des doutes exprimés sur la paternité du code bravo pour les entrées sur ZX81!
J'ai fait un test de paternité pas de soucis il est bien de moi

En tout cas il y au moins deux trucs utilisés qui ne sont pas transposables facilement:
1. Le GOTO avec une variable
2. La logique avec des chaîne de caractères

C'est bien pratique pour optimiser la taille et éliminer des conditions au prix d'une petite torture pour comprendre ce qu'on fait!

par **Copper** Mar 25 Jan 2022 - 17:25

YannAros a écrit:En tout cas il y au moins deux trucs utilisés qui ne sont pas transposables facilement:
1. Le GOTO avec une variable
2. La logique avec des chaîne de caractères

C'est bien pratique pour optimiser la taille et éliminer des conditions au prix d'une petite torture pour comprendre ce qu'on fait!

Y aussi le PRINT avec plusieurs AT qui permet de regrouper tous les affichages c'est effectivement très puissant avec la logique des chaînes de caractères...

Mais tout était expliqué dans le chapitre 10 du manuel en fait...

par YannAros Mar 25 Jan 2022 - 17:33

Oui les print interminables ne sont pas utilisables non plus sur d’autres machines

par **Copper** Mar 25 Jan 2022 - 18:22

C'est vrai que ca aide bien pas comme le CPC avec ses Line too long alors qu'on est même pas à 255 caractères Sad

par freed Mar 25 Jan 2022 - 19:00

Copper a écrit:
YannAros a écrit:En tout cas il y au moins deux trucs utilisés qui ne sont pas transposables facilement:
1. Le GOTO avec une variable
2. La logique avec des chaîne de caractères

C'est bien pratique pour optimiser la taille et éliminer des conditions au prix d'une petite torture pour comprendre ce qu'on fait!
Y aussi le PRINT avec plusieurs AT qui permet de regrouper tous les affichages c'est effectivement très puissant avec la logique des chaînes de caractères...

Mais tout était expliqué dans le chapitre 10 du manuel en fait...

En tout cas ça rend bien sur blitz: c'est sympa comme les immeubles semblent s'effondrer sur eux-mêmes!

par rocky007 Mar 25 Jan 2022 - 20:54

oui ça fait vraiment jeu soviétique, y'a une certaine ambiance URSS

par contre je savais pas qu'on pouvait mettre 16ko sur une ligne de code..brave machine qd même

par **drfloyd** Mar 25 Jan 2022 - 21:19

Le Plan Informatique pour Tous déboule dans le 10LIGNOPAT ! Merci Yannaros

Il reste 6 jours de concours

par **Copper** Mar 25 Jan 2022 - 22:57

rocky007 a écrit:oui ça fait vraiment jeu soviétique, y'a une certaine ambiance URSS

J'ai l'impression que mes villes (générées aléatoirement) sont plus belles que Charleroi Razz

rocky007 a écrit:par contre je savais pas qu'on pouvait mettre 16ko sur une ligne de code..brave machine qd même

On doit pouvoir si on met plus que 16Ko de mémoire Razz

Ma première ligne ne fait pas 16Ko car tous les caractères en vidéo inversées sont précédés d'un % mais ca ne prend qu'un octet au final...

par wulf Mar 25 Jan 2022 - 23:10

Je me suis amusé à faire un "Bomber" sur mon émulateur Spectrum. Ca m'a passé l'aprem (il fait un temps de chien dehors), il ne tient pas en 10 lignes et je n'ai pas la patience (et le temps) de l'optimiser

Je n'irai pas plus loin dans le temps qui nous est imparti. Je suis déjà content d'avoir contribué. Je ne pensais pas que je pouvais programmer à nouveau avec succès sur le ZX. C'est cool que Gamopat ait servi de moteur (comme pour Pathfinder en GFA sur St)

J'ai vraiment pris du plaisir à ce petit exercice. Bien plus qu'en jouant à un jeu. La création, le "meccano" du Basic est bien plus génial à vivre que n'importe quel jeu sur console.

Tout récemment , je suis tombé sur une vidéo d'un champion de VTT qui explique le bonheur de vivre sa passion et il dit en somme "On est comme des gosses, parce qu'on a inventé notre univers. Quand tu es enfant tu as une force de création incroyable. Cette passion me fait revivre cet état d'esprit."

Je ressens la même chose en programmant, et je salue tous ceux qui ont participé à ce concours qui fait honneur à Gamopat. Ce que nous faisons est à la fois dérisoire, inutile, génial et rigolo. Je vous souhaite à tous de rester de sales gosses.

par rocky007 Mar 25 Jan 2022 - 23:45

je suis bien de ton avis...cet exercice est un bon moyen de joindre l'inutile à l'agréable...et puis pas si inutile que cela : je le trouve très stimulant et ça permet de se changer les idées sans se lancer dans un projet qui prendra des mois ( ou des années )

par freed Mer 26 Jan 2022 - 8:45

Yes tout pareil! J'attends les prochains défis (mensuels? bimensuels?) avec des thèmes imposés encore plus restrictifs que cette première édition... Finalement ce sont les contraintes qui poussent à la créativité Wink

Et quand on peut en plus le faire avec un bon état d'esprit et du partage (au moins du code source) et pas dans une logique de compétition stérile, c'est encore plus sympa cheers

par **youki** Mer 26 Jan 2022 - 9:24

drfloyd a écrit:Le Plan Informatique pour Tous déboule dans le 10LIGNOPAT ! Merci Yannaros

Il reste 6 jours de concours

C'est quand la date limite et l'heure limite?

Le 31/01 à 23h59 , c'est bon?

Quel est selon vous le meilleur 10LINOPAT 2021 ? (meilleur jeu selon vous, en tenant aussi compte de la machine utilisée)