★ APPLICATIONS ★ DIVERS ★ 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: 340
TYPE: ZIP
SiZE: 4Ko
NOTE: 40 Cyls
.HFE: Χ

★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser...

Lien(s):
» Applications » Orga-Text
» Applications » Gestion d'Automobile (CPC Revue)
» Applications » Sleepwalker PDS Serious Disc #9
» Applications » DATACOPY : Recopie d'écran universelle (CPC Revue)
» Applications » Turbodos (CPC Amstrad International)
» Applications » Symbol (CPC Infos)
Je participe au site:
» Vous avez des infos personnel, des fichiers que nous ne possédons pas concernent ce programme ?
» Vous avez remarqué une erreur dans ce texte ?
» Aidez-nous à améliorer cette page : en nous contactant via le forum ou par email.

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