cwbe coordinatez:
101
63540
2076399
1420306
2171284

ABSOLUT
KYBERIA
permissions
you: r,
system: public
net: yes

neurons

stats|by_visit|by_K
source
tiamat
K|my_K|given_K
last
commanders
polls

total descendants::
total children::7
1 ❤️


show[ 2 | 3] flat


maniac0
s70

/*
pussy v1.0 by maniac
*/

#include <stdio.h>

main()
{
int size=12, i, j, cent=80/2-size;
char telo='0', medzera=' ',
xlp_lh='', xlp_ph='/', xlp_ld='/', xlp_pd='' ;

for(i = 1; i < size; i++) { // horna polovica

if (!(i%2)){ // kazdy neparny riadok je xlp
cent-=2;
}

for(j = 1; j < (size-i+cent); j++) { // medzery
putchar(medzera);
}

if (!(i%2)){
cent+=2;
printf("%c%c", xlp_lh, medzera); // xlpy vlavo hore
}

for(j = 0; j < (i*2); j++) { // telo
putchar(telo);
}

if (!(i%2)) printf("%c%c",medzera, xlp_ph); // xlpy pravo hore

printf("n");
}


for(i = size; i > 0; i--) { // dolna polovica

if (!(i%2)){
cent-=2;
}

for(j = 1; j < (size-i+cent); j++) { // medzery
putchar(medzera);
}

if (!(i%2)){
cent+=2;
printf("%c%c", xlp_ld, medzera); // xlpy vlavo dole
}

for(j = 0; j < (i*2); j++) { // telo
putchar(telo);
}

if (!(i%2)) printf("%c%c",medzera, xlp_pd); // xlpy pravo dole

printf("n");
}

}


------- snip ----------

maniac@lh[~/www/O/programming]> ./pussy
00
0000 /
000000
00000000 /
0000000000
000000000000 /
00000000000000
0000000000000000 /
000000000000000000
00000000000000000000 /
0000000000000000000000
/ 000000000000000000000000
0000000000000000000000
/ 00000000000000000000
000000000000000000
/ 0000000000000000
00000000000000
/ 000000000000
0000000000
/ 00000000
000000
/ 0000
00
maniac@lh[~/www/O/programming]>





000001010006354002076399014203060217128405741396
maniac
 maniac      06.01.2011 - 03:44:31 (modif: 19.09.2018 - 21:19:58) [1K] , level: 1, UP   NEW !!CONTENT CHANGED!!

SAM coupe memories from maniac on Vimeo.



MOV

Tak na tomto som si fical pred 15timi rokmi. Ten cas ale letii.
Dnes som asi prvy krat zazil totalny flashback do tych cias, stacilo vidiet zopar znamych screenov a pocut prve tony a uz som bol tam :)
Inac sorry ze v tom videu nieje zvuk, mam len nejaku demoverziu toho screen grabberu :)

programovaci jazyk - assembler a basic
cpu Z80b (6MHz)
RAM 512kB

okrem mojich veci tam je este aj kusok ukazky GUIcka ZEUS assembleru (robil slovak - RUMSOFT).


thumb_965965sam_coupe.jpg
http://en.wikipedia.org/wiki/SAM_Coupé

00000101000635400207639901420306021712840574139605775971
ddd
 ddd      21.01.2011 - 14:42:27 , level: 2, UP   NEW
jjj :)

00000101000635400207639901420306021712840574139605743604
maniac
 maniac      07.01.2011 - 10:52:36 , level: 2, UP   NEW
http://sam.speccy.cz/
http://www.worldofsam.org/
ftp://ftp.nvg.ntnu.no/pub/sam-coupe/
http://www.samcoupe-pro-dos.co.uk/edwin/index.htm
http://www.ysrnry.co.uk/articles/index_sam.htm
http://www.intensity.org.uk/samcoupe/
http://www.intensity.org.uk/samcoupe/index.html
http://www.samcoupe.com/
http://velesoft.speccy.cz/hardware_in_development.htm
http://velesoft.speccy.cz/data-gear.htm
http://home.earthlink.net/~simoncooke/samcoupe/index.html

00000101000635400207639901420306021712840574139605743502
maniac
 maniac      07.01.2011 - 09:46:49 , level: 2, UP   NEW

00000101000635400207639901420306021712840574139605743486
maniac
 maniac      07.01.2011 - 09:33:28 , level: 2, UP   NEW

000001010006354002076399014203060217128405741280
||
 ||      06.01.2011 - 00:46:35 , level: 1, UP   NEW
v pythone to bolo trochu kratsie[=

000001010006354002076399014203060217128405741265
maniac
 maniac      06.01.2011 - 00:36:30 (modif: 06.01.2011 - 00:39:39), level: 1, UP   NEW !!CONTENT CHANGED!!


MPG

000001010006354002076399014203060217128405741261
maniac
 maniac      06.01.2011 - 00:33:50 (modif: 06.01.2011 - 00:40:14), level: 1, UP   NEW !!CONTENT CHANGED!!


FLI

000001010006354002076399014203060217128405741249
maniac
 maniac      06.01.2011 - 00:31:00 (modif: 06.01.2011 - 00:40:34), level: 1, UP   NEW !!CONTENT CHANGED!!


MPG

000001010006354002076399014203060217128405741232
maniac
 maniac      06.01.2011 - 00:23:00 (modif: 06.01.2011 - 00:25:51), level: 1, UP   NEW !!CONTENT CHANGED!!









----


program ThreeDimensionalRotations;

uses graph,crt;
type sur=record
a,b,c:integer;
end;
const objekt :array[1..48] of integer=(-50,-50,-50, 50,-50,-50, 50,-50,50, -50,-50,50, -50,-50,-50, -50,50,-50, 50,50,-50,
50,-50,-50, 50,50,-50,
50,50,50, 50,-50,50, -50,-50,50, -50,50,50, -50,50,-50, -50,50,50, 50,50,50 );
var driv,mo,no_of_vectors :integer;
dstep,loop,d,mx,my,mz,sty,stx,fun,fun2 :integer;
x,y,z,sx,sy:real;
var rmax,stp1,stp2,stp3,r1,r2,r3,sr1,sr2,sr3,cr1,cr2,cr3,xa,ya,za : real;
quota :boolean;

procedure HC;
begin
Window(1,1,1,1);
TextColor(0);
TextBackGround(0);
ClrScr;
end;
procedure SC;
begin
Window(1,1,80,25);
TextColor(LightGray);
TextBackGround(0);
ClrScr;
end;
procedure counting(var x,y,z,sx,sy:real);
begin
sr1:=sin (r1);
cr1:=cos (r1);
sr2:=sin (r2);
cr2:=cos (r2);
sr3:=sin (r3);
cr3:=cos (r3);
xa:=cr1*x-sr1*y;
ya:=sr1*x+cr1*y;
x:=cr2*xa+sr2*z;
za:=cr2*z-sr2*xa;
y:=cr3*ya-sr3*za;
z:=sr3*ya+cr3*za;
x:=x+mx;
y:=y+my;
z:=z+mz;
sx:=d*x/y;
sy:=d*z/y;
end;

begin
CheckSnow := True;
writeln ('Made by TOMAS HALGAS from II.D');
writeln ('1.st assistent - A. KANSKY');

d:=0;mx:=0;my:=250;mz:=0;stp1:=4/180*pi;stp2:=stp1;stp3:=stp1;rmax:=360/180*pi;
dstep:=5;
stx:=320;
sty:=200;
no_of_vectors:=16;
quota:=false;

detectgraph(driv,mo);

initgraph(driv,mo,'');
if grok<>0 then halt;

repeat
fun:=1;
x:=objekt[fun]; {Staring point }
y:=objekt[fun+1];
z:=objekt[fun+2];
counting(x,y,z,sx,sy);
moveto (trunc(stx+sx),trunc(sty+sy));
fun:=fun+3;
repeat {Drawing object}
x:=objekt[fun];
y:=objekt[fun+1];
z:=objekt[fun+2];
counting(x,y,z,sx,sy);
lineto(trunc(stx+sx),trunc(sty+sy)); {x1,y1,x2,y2 ; 0,0 is in left up corner}
fun:=fun+3;
until keypressed or (fun div 3=no_of_vectors);


asm { Tato speci rutinka pridana MANIACom sluzi}
push ax { na v PASCALe nemoznu vec - synchronizaciu }
push bx { programu s lucom obrazovky - to moze pochopit}
push cx { len pan profesor Keket.}
push dx { cx = kolko frameov ma cakat}
push si
push di

mov cx,2
@@0:
mov dx,3dah
@@1:
in al,dx
test al,8
jnz @@1 {;wait until Verticle Retrace starts}

@@2:
in al,dx
test al,8
jz @@2 { ;wait until Verticle Retrace Ends }

loop @@0

pop di
pop si
pop dx
pop cx
pop bx
pop ax

end;

cleardevice;
r1:=r1+stp1; {Every picture}
r2:=r2+stp2;
r3:=r3+stp3;
d:=d+dstep;

if (d>500) or (d<0) then dstep:=-dstep ;

{ if (r1>rmax) or (r1<0) then stp1:=-stp1 ;
if (r2>rmax) or (r2<0) then stp2:=-stp2 ;
if (r3>rmax) or (r3<0) then stp3:=-stp3 ;
}

until keypressed;

delay(1000);
closegraph;

writeln(' External error e{412}: INTELIGENCE NOT FOUND!');
writeln(' QUICKLY PRESS CTRL+ALT+DEL!!!');
HC;
CheckBreak:= false;
repeat
repeat until keypressed;
until readkey = #1;
SC;
end.

000001010006354002076399014203060217128402171341
831
 831      15.02.2006 - 14:46:07 , level: 1, UP   NEW
masterpiece!