APPLICATIONSDIVERS ★ Ein Drink für alle Fälle ★

Ein Drink für Alle Falle (CPC Amstrad International)Applications Divers
★ Ce texte vous est présenté dans sa version originale ★ 
 ★ This text is presented to you in its original version ★ 
 ★ Este texto se presenta en su versión original ★ 
 ★ Dieser Text wird in seiner Originalfassung präsentiert ★ 

Daß ein kByte in vielen Fällen ausreicht, um mehr oder weniger anspruchsvolle Spiel- oder Anwendungsprogramme zu erstellen, beweisen wir mit dieser Rubrik schon seit vielen Monaten. Daß sich aber auch mit einem "Miniprogramm" sehr interessante Grafiken erstellen lassen, können wirdieses Mal aufzeigen. Gezeichnet wird von einem gerade einmal fünf Zeilen langen Programm ein Trinkgefäß, wie man es -gerade zu dieser Jahreszeit-des öfteren zu Gesicht bekommt. Ganz stilecht mit Zitrone und Strohhalm macht dieses Bild bestimmt somanchem Appetit auf einen kühlen Drink.

100 ' Drink (1kByte)
101 ' CPC 464(plus)/664/6128(plus)
102 ' (c) 1992 Matthias Koch
103 ' & CPC International
104 MODE 0:INK 0,0,0:INK 13,15:INK 14,23:INK 15,15,24:INK 2,24,15:INK 11,15:INK 10,25:DEG:FOR i%=240 TO 390:MOVE 315,132:DRAW i%,250,11:NEXT
105 FOR a%=1 TO 360:PLOT 420+50*COS(a%),300+50*SIN(a%):DRAW 420+60*COS(a%),300+60*SIN(a%),1:PLOT 315,50:DRAW 315+100*COS(a%),50+20*SIN(a%),7:PLOT 315+104*COS(a%),50+24*SIN(a%),14:PLOT 315+75*COS(a%),250+17*SIN(a%),3
106 PLOT 424,300:DRAW 424+50*COS(a%),300+50*SIN(a%),10:PLOT 315+110*COS(a%),300+24*SIN(a%),14:MOVE 315,250:DRAW 315+70*COS(a%),250+14*SIN(a%),11:NEXT
107 MOVE 424,300:DRAW 315,132,14:MOVE 206,300:DRAW 315,132,14:FOR a%=1 TO 360 STEP 45:MOVE 424,300:DRAW 424+51*COS(a%),300+51*SIN(a%),1:NEXT:FOR i%=1 TO 10:MOVE 310+i%-2,50:DRAW 310+i%-2,145,14:MOVE 258+i%,250:DRAW 210+i%,350,12:MOVE 210,350:DRAW 210+i%,350+i%
108 MOVE 210,350+i%:DRAW 110,320+i%:NEXT:PLOT 315,200,15:PLOT 315,205,2:PLOT 305,215,15:PLOT 305,220,2:PLOT 325,230,15:PLOT 325,235,2:CALL &BB18

rs, CPCAI

★ PUBLISHER: CPC Amstrad International
★ YEAR: 1992
★ AUTHOR: Matthias Koch

★ AMSTRAD CPC ★ DOWNLOAD ★

Type-in/Listing:
» Ein  Drink  Fur  Alle  Falle    (CPC  Amstrad  International)DATE: 2013-05-29
DL: 65 fois
TYPE: ZIP
SIZE: 4Ko
NOTE: 40 Cyls
.HFE: NON

Je participe au site:
» Newfile(s) upload/Envoye de fichier(s)
★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser...

Lien(s):
» Applications » Parametricas
» Applications » Catprog (CPC Revue)
» Applications » .PT3 Module Player for PlayCity
» Applications » Discology v2.x
» Applications » Itsmagic
» Applications » Schildchen - Drucker (CPC Amstrad International)

QUE DIT LA LOI FRANÇAISE:

L'alinéa 8 de l'article L122-5 du Code de la propriété intellectuelle explique que « Lorsque l'œuvre a été divulguée, l'auteur ne peut interdire la reproduction d'une œuvre et sa représentation effectuées à des fins de conservation ou destinées à préserver les conditions de sa consultation à des fins de recherche ou détudes privées par des particuliers, dans les locaux de l'établissement et sur des terminaux dédiés par des bibliothèques accessibles au public, par des musées ou par des services d'archives, sous réserve que ceux-ci ne recherchent aucun avantage économique ou commercial ». Pas de problème donc pour nous!

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 196 millisecondes et consultée 820 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.