CODINGLISTINGS ★ LE HAMAC ★

Le HamacCoding Listings

260 :' ********************************
270 :'"HAMAC":' presente par LAURENT DELAPORTE 2,chemin de l'Estelle 06110 le Cannnet-Rocheville
280 MODE 1:INK 1,1:INK 2,26:PEN 2:LOCATE 1,24:PRINT " PATIENTEZ UN PEU JE REFLECHIS !":FOR i=150 TO 490 STEP 340:ORIGIN i,0:MOVE 0,100:DRAW 0,300:DRAW 10,300:DRAW 10,100:DRAW 0,100:MOVE 12,250:DRAW 12,260:DRAW -2,260:DRAW -2,250:DRAW 12,250:NEXT i
290 ORIGIN 150,0:MOVE 12,250:DRAW 60,200:MOVE 12,250:DRAW 60,180:ORIGIN 490,0:MOVE -2,250:DRAW -50,200:MOVE -2,250:DRAW -50,180:FOR i=180 TO 360:DEG:ORIGIN 325,180:PLOT 115*COS(i),35*SIN(i):ORIGIN 325,200:PLOT 115*COS(i),20*SIN(i):NEXT i
300 ORIGIN 0,0:MOVE 210,204:DRAW 210,210:DRAW 213,213:DRAW 210,217:DRAW 210,220:DRAW 213,224:DRAW 216,227:DRAW 220,227:DRAW 223,225:DRAW 225,224:DRAW 227,222:DRAW 227,220:DRAW 226,218:DRAW 225,216:DRAW 226,195:MOVE 223,216:DRAW 217,226
310 ORIGIN 0,0:MOVE 210,204:DRAW 210,210:DRAW 213,213:DRAW 210,217:DRAW 210,220:DRAW 213,224:DRAW 216,227:DRAW 220,227:DRAW 223,225:DRAW 225,224:DRAW 227,222:DRAW 227,220:DRAW 226,218:DRAW 225,216:DRAW 226,195:MOVE 223,216:DRAW 217,226:MOVE 0,100
320 DRAW 640,100:MOVE 397,190:DRAW 405,195:DRAW 405,210:DRAW 420,213:DRAW 420,220:DRAW 427,220:DRAW 430,210:DRAW 440,213:DRAW 445,210:MOVE 410,210:DRAW 411,205:DRAW 415,202:BORDER 13:ORIGIN 0,0:MOVE 0,0:DRAW 639,0:DRAW 639,399:DRAW 0,399:DRAW 0,0:INK 1,26
330 SYMBOL AFTER 80:SYMBOL 81,14,31,211,63,223,15,6,6:SYMBOL 87,6,9,16,18,18,17,8,7:SYMBOL 88,0,224,24,4,50,196,8,240:WINDOW #1,3,38,20,24:PAPER #1,3:CLS #1:MOVE 31,15:DRAW 608,15:DRAW 608,97:DRAW 31,97:DRAW 31,15:LOCATE 10,22:WINDOW #1,3,38,20,24
340 PAPER #1,3:CLS #1:MOVE 31,15:DRAW 608,15:DRAW 608,97:DRAW 31,97:DRAW 31,15:LOCATE 10,22:PRINT "AH! LES VACANCES !":FOR I=1 TO 4000:NEXT i:CLS #1:LOCATE 7,21:PRINT "VOULEZ-VOUS LE REVEILLER ?":LOCATE 9,23:PRINT "si oui tapez une touche":INK 2,26
350 a$=INKEY$:IF a$="" GOTO 350 ELSE FOR I=38 TO 26 STEP -1:LOCATE i,3:PRINT "Q":LOCATE i,4:PRINT "WX":FOR g=1 TO 200:NEXT g:LOCATE i,3:PRINT " ":LOCATE i,4:PRINT " ":SOUND 1,i,20,6:NEXT i: LOCATE i,3:PRINT "Q":LOCATE i,4:PRINT "WX":FOR b=5 TO 11:CLS #1
360 LOCATE 26,b:PRINT CHR$(252):SOUND 1,50-b,3,7:FOR g=1 TO 200:NEXT g:LOCATE 26,b:PRINT " ":NEXT b:LOCATE 24,12:PRINT "BOUM !":FOR i=1 TO 15:SOUND 5,0,25,13,0,0,i:NEXT i:FOR I=25 TO 2 STEP -1:LOCATE i,3:PRINT "Q":LOCATE i,4:PRINT"WX":FOR g=1 TO 200:NEXT g
370 LOCATE i,3:PRINT " ":LOCATE i,4:PRINT " ":SOUND 1,i,20,6:NEXT i:LOCATE 8,21:PRINT "Voila ce qui arrive a ceux":LOCATE 12,22:PRINT "qui dorment pendant":LOCATE 8,23:PRINT "que d'autres travaillent !!":a$=INKEY$:WHILE INKEY$="":WEND:GOTO 270

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

CPCrulez[Content Management System] v8.75-desktop/c
Page créée en 044 millisecondes et consultée 67 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.