CODINGLISTINGS ★ LE PISSEUR DU VAL ★

Le Pisseur du ValCoding Listings

1 BORDER 1:INK 0,1:INK 1,24:INK 2,12:INK 3,26:MODE 1:DEG:i=25:j=12:MOVE 20,51:DRAWR 130,0,3:DRAWR 0,-130:MOVE 620,51:DRAWR -130,0,3:DRAWR 0,-130:MOVE 20,51:DRAWR 0,170,3:MOVE 620,51:DRAWR 0,170
2 PEN 3:LOCATE 38,25:PRINT CHR$(143);CHR$(143):PEN 1:FOR z=1 TO 27:READ a,b,c,d,e,f,g:GOSUB 5:NEXT z:ORIGIN 550,4:c=1:d=2:FOR r=120 TO 176 STEP 2:PLOT 100*COS(r),100*SIN(r),c:e=c:f=d:c=f:d=e:NEXT r:FOR z=1 TO 21:READ a,b,c,d,e,f,g:GOSUB 6:NEXT z
3 ORIGIN 550,4:FOR r=120 TO 176 STEP 2:PLOT 100*COS(r),100*SIN(r),0:NEXT r:ORIGIN 420,9:c=1:d=2:FOR r=40 TO 182 STEP 2:PLOT 100*COS(r),150*SIN(r),c:e=c:f=d:c=f:d=e:NEXT r:FOR z=1 TO 401:INK 1,i:INK 2,j:k=i:l=j:i=l:j=k:NEXT z
4 ORIGIN 420,9:FOR r=40 TO 182 STEP 2:PLOT 100*COS(r),150*SIN(r),0:NEXT r:INK 1,3:FOR z=1 TO 5:LOCATE 34,17:PRINT CHR$(231):READ l,c:LOCATE l,c:PRINT CHR$(228):NEXT z:CALL &BB06:INK 1,26:END
5 ORIGIN a,b:FOR r=c TO d STEP e:PLOT f*COS(r),g*SIN(r),3:NEXT r:RETURN:DATA 1,258,283,395,2,100,40,20,337,294,457,2,140,60,620,337,84,245,2,140,60,640,258,145,257,2,100,40,310,300,85,275,2,40,40,340,300,128,234,2,50,50
6 ORIGIN a,b:FOR r=c TO d STEP e:PLOT f*COS(r),g*SIN(r),3:INK 1,i:INK 2,j:k=i:l=j:i=l:j=k:NEXT r:RETURN:DATA 160,80,262,300,2,80,80,240,80,240,300,2,80,80,320,80,240,300,2,80,80,400,80,240,300,2,80,80,480,80,240,275,2,80,80
7 DATA 530,104,110,430,3,31,23,555,71,160,196,1,35,35,561,71,160,196,1,35,35,519,56,100,295,12,15,4,570,71,160,196,1,35,35,576,71,160,196,1,35,35,534,56,100,415,12,15,4,510,139,40,320,3,20,13,530,154,1,200,10,7,7,520,154,85,180,10,7,7
8 DATA 537,142,290,440,2,22,18,540,334,257,276,1,175,175,533,162,1,180,3,15,8,507,112,270,360,2,22,18,517,112,260,360,2,22,18,507,94,300,450,3,7,7,110,104,110,350,3,31,23,87,71,343,379,1,35,35,81,71,343,379,1,35,35,123,56,260,444,12,15,4
9 DATA 72,71,343,379,1,35,35,66,71,343,379,1,35,35,103,56,100,410,12,15,4,130,139,220,500,3,20,13,110,154,1,200,10,7,7,120,154,1,100,10,7,7,103,142,100,260,2,22,18,103,142,100,160,2,28,19,103,142,100,160,2,16,16,103,142,100,160,2,10,16
10 DATA 103,142,100,160,2,4,16,133,111,180,220,3,30,30,123,111,180,220,3,25,25,108,94,10,210,6,5,5,137,111,243,477,3,12,10,127,111,220,500,3,12,10,530,154,1,360,10,7,7,31,13,34,11,36,14,32,12,29,11
11 REM DIEUPART Pierre 15 chemin du clos du gagneur 93160 Noisy Le Grand

★ ÉDITEUR: Amstrad Magazine
★ LICENCE: LISTING
★ ANNÉE: 1986
★ CONFIG: 64K + AMSDOS
★ LANGAGE:
★ AUTEUR: Pierre DIEUPART

CPCrulez[Content Management System] v8.75-desktop/c
Page créée en 090 millisecondes et consultée 80 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.