/* (Tout) Petit programme d'exemple en C par OffseT/Futurs pour Quasar CPC 18 Compilation (sous CP/M 3) : cc -M exemple zmac exemple=exemple zlink exemple=cpciolib,exemple,printf1,cpcaddon comam exemple */ #include cpciolib.h /* Biblioth}que C pour CPC */ #include printf1.h /* Biblioth}que Printf */ #include cpcaddon.h /* Biblioth}que Quasar CPC */ noballe(x,y) int x,y; /* Effa\age balle */ { locate(x,y); printf(" "); } balle(x,y) int x,y; /* Affichage balle */ { locate(x,y); printf("o"); } initvdu() /* Initialisation {cran */ { int i; /* Variable locale */ mode(1); i=2; locate(i,1); while(i++<40) { printf("*"); } i=2; locate(i,25); while(i++<40) { printf("*"); } i=1; locate(1,i); while(i++<24) { locate(1,i); printf("*"); locate(40,i); printf("*"); } } main() /* Programme Principal */ { int x,y; /* D{claration variables */ int incx,incy; int a; a=0; /* Initialisation variables */ x=10; y=10; incx=1; incy=1; initvdu(); while(a==0) /* Boucle */ { keypressed(&a); noballe(x,y); x=x+incx; y=y+incy; balle(x,y); if (x==39) { incx=-1; } if (x==2) { incx=1; } if (y==24) { incy=-1; } if (y==2) { incy=1; } } mode(2); /* Fin */ } eT/Futurs pour Quasar CPC 18 Compilation : cc -M exemple zmac* Programme Principal */ { int x,y; /* D{claration variables */ int incx,incy; int a; a=0; /* Initialisation vari9!! CCGINT QLOCATE CCGINT CCPINT CCLT CCGINT QLOCATE QPRINTF *CCGINT .QLOCATE 9QPRINTF WCCPINT bCCPINT mCCPINT xCCPINT CCPINT CCGINT CCEQQKEYPRESS CCGINT CCGINT@!9!9#+!|?!!9!E>!(!9!G>****!9!!9! !9! !9!!9!D!9!|ʁ!9!9!9!9! CCGINT