10 lignes qui mérite le détour ..

hERMOL

je viens dénicher ce bout de code basic :

Code :

' ** PUDDLE ** By Andy Macphee COMPUTING WITH THE AMSTRAD Sept 1987
'
MODE 1:INK 0,0:INK 1,26:PAPER 0:CLS:INK 1,24:PEN 1:PRINT "** PUDDLE ** By Andy Macphee":PRINT:PRINT "from:- COMPUTING WITH THE AMSTRAD":PRINT "            Sept 1987":PRINT "Program type:- GRAPHIC DEMO":PRINT:PRINT"Imagine you are in a dark dungeon"
PRINT:PRINT"ANY KEY TO START"
CALL &BB18
SYMBOL 255,16,56,56,124,124,124,56,16
MODE 0:BORDER 0:INK 0,0:r=10:p=1:FOR a%=1 TO 14:INK a%,1:NEXT
FOR b%=0 TO 38:MOVE 320+r*COS(k%),170+(r/6)*SIN(k%)
DEG:FOR k%=1 TO 360 STEP 6:DRAW 320+r*COS(k%),170+(r/6)*SIN(k%),p:NEXT
r=r+10:IF p<>14 THEN p=p+1 ELSE p=1
NEXT:PRINT CHR$(22)CHR$(1)
FOR a%=1 TO 14:PEN a%:LOCATE 11,a%:PRINT CHR$(255):NEXT
FOR a%=1 TO 14:INK a%,0:NEXT
FOR a%=1 TO 14:INK a%,14:CALL &BD19:FOR d=0 TO 100:NEXT:CALL &BD19:INK a%,0:NEXT:SOUND 1,0,1,12:GOTO 90

fano

belle trouvaille !

Plissken

dsk please !

Hwikaa

Excellent ! J'avoue que je ne voyais pas où ça voulait aller, tout ça... C'est très bien trouvé, en tout cas.

hERMOL

Plissken a écrit :

dsk please !

là --> https://cpcrulez.fr/coding_src-list-grap ... e_CWTA.htm

hERMOL

hého Plissken, et le plaisir de caresser son jolie clavier CPC? 10 lignes de basic c'est pas la mer a boire ... :cow:

Plissken

-Merci pour le dsk.
-Sympa l'effet.

Je ne répondrais même pas à la petite phrase assassine et ne parlerais même pas des fautes d'orthographes,un grand classique chez toi

hERMOL

je suis pas tout seul :pig:

il n'y a qu'un seul orthographe , contrairement au fautes

Citer :

"orthographes"

Plissken

Ah tu vois les erreurs déjà, c'est bon signe

remax · **Inscription :** 11 Juin 2010, 12:49 **Message(s) :** 228

bien vu!!!

hERMOL

l'interet de celui la , c'est qu'il mets winape dans les choux :pig:

Code :

'Mark Wood 1989. Broken T.V.Screen Clear for 2min
MODE 0:INK 0,0:PAPER 0:BORDER 0
FOR t=0 TO 15:INK t,0:NEXT t
FOR i=&C000 TO &C000+&3FFF:POKE i,RND*255:NEXT i
SPEED INK 1,1
FOR y=0 TO 15:INK y,RND*27,RND*27:NEXT y
OUT &BD00,INT(RND*255)
BORDER INT(RND*27),INT(RND*27)
OUT &BC00,INT(RND*255)
GOTO 70

Iceman · **Inscription :** 02 Juil 2009, 14:11 **Message(s) :** 134

Du coup j'ai voulu l'essayer sur PC-CPC et c'est là que j'ai remarqué qu'on ne peut pas "coller" du texte comme Winape (CTRL+F11).
Ou alors j'ai raté une option... (ce qui est fort possible :sweatingbullets:

)

markerror · **Inscription :** 04 Sep 2007, 19:43 **Message(s) :** 739

Bonjour,

Le plus simple pour "copier" des listings sur émulateur, c'est de passer par ManageDsk. Le CPC verra un fichier ASCII qui sera lisible.

Autre truc rigolo trouvé dans Winape, on ne peut pas virer le lecteur de disquettes. Un 464 sans ROM 7 fait toujours un CAT sur la disquette (pas pratique pour tester la sauvegarde sur cassette... ).

T&J/GPA

Demoniak

Avec pc-cpc, moi j'utilise la fonction 'Lecture/écriture PC', qui permet de 'monter' un répertoire du pc comme une disquette cpc, et ensuite de lire tout le contenu de ce répertoire avec le cpc émulé.

stephbb75

Demoniak a écrit :

Avec pc-cpc, moi j'utilise la fonction 'Lecture/écriture PC', qui permet de 'monter' un répertoire du pc comme une disquette cpc, et ensuite de lire tout le contenu de ce répertoire avec le cpc émulé.

Salut Démoniak,

Ou de sortir le version avec ma modif pour le collé directe dans pc-cpc

10 lignes qui mérite le détour ..

Qui est en ligne ?