DiVision spēles
Mazākās spēles, ko taisīju starp lielajām (Tank, Space War, Lamer-Killer, Doom RF), Turbo Pascal un vēlāk Free Pascal vidē. Lielākā daļa no tām rakstīta skolas programmēšanas konkursam, un visas joprojām darbojas DOSBox.
Programmas
Gonki 1998
Sacīkstes teksta režīmā: līkumots ceļš, kas zīmēts tieši video atmiņā, pretinieku mašīnas, un, pieskaroties malām, zaudē ātrumu.
Tank 2 1998
Otrais Tank, nu jau 640×480 grafikā: vektoru tanks, ko pagriež ar sinusu un kosinusu, inerce un atsitieni no sienām, nejaušas istabas, kurās ar katru reizi ir vairāk sienu, un uzlabojumu veikals — buferis, motors, riteņi, bremzes un stūre. Saglabājies tikai pirmkods.
Arkanoid 1999
Ķieģeļi, kas iztur līdz četriem sitieniem, krītoši bonusi (plata, parasta vai maza platforma, lēnāka vai ātrāka bumba) un atsitiena leņķis, kas atkarīgs no tā, kurā platformas vietā trāpa bumba. Vadība ar peli.
Dzīvnieks 1999
„Uzmini dzīvnieku” pēc idejas no žurnāla „Nauka i žizņ”: programma uzdod jautājumus „jā/nē”, bet, zaudējusi, jautā, kas tas bija un kāds jautājums abus atšķir, un saglabā jaunu sava koka zaru. Video tā iemācās suni un atpazīst to jau nākamajā raundā. Ja nosauc dzīvnieku, kuru tā jau zina, tā saka, ka tu spēlē negodīgi.
RTS 1999
Reāllaika stratēģijas izmēģinājums: simts vienību katrā pusē, iezīmēšana ar rāmi un Shift, lai pievienotu, klikšķis uz ienaidnieka — uzbrukums, automātiska šaušana darbības rādiusā, minikarte un ritināšana pie ekrāna malas, kā arī ēkas ar cenu un enerģiju. Blakus — karšu redaktors.
Mine Explorer 1999
Mana pēdējā teksta režīma spēle, ātri uztaisīta 1999. gada jūnijā: labirints miglā, kur redzamas tikai blakus esošās šūnas, ar mīnām, sienām un punktiem, misijas, saliktas virknēs, līmeņu redaktors, un katra uzvara saglabājas kā ieraksts. Video ir viens no šiem ierakstiem.
Capture or Destroy 1999
RTS 800×600 izšķirtspējā un 256 krāsās, uzbūvēts 1999. gada rudenī: vienības tiek saliktas no platformas, korpusa un torņa, katra detaļa ir atsevišķs 32×32 spraits, apvidus ar ūdeni, sauszemi un krastu, šūnas ar īpašnieku un minikarte.
Tā laika pirmkods
PROGRAM TOHKI;
USES CRT,GRAPH;
VAR
c,A,B,x,y:INTEGER;
q:string;
i,j,p:word;
x1:array[1..96]of integer;
y1:array[1..96]of integer;
BEGIN
randomize;
A:=DETECT;
INITGRAPH(A,B,'A:\PASKAL\GRAFIKA');
x:=320;
y:=280;
for i:=1 to 48 do x1[i]:=0;
for i:=48 to 96 do x1[i]:=640;
for i:=1 to 48 do y1[i]:=i*10-5;
for i:=48 to 96 do y1[i]:=i*10-485;
setbkcolor(4);
repeat
SETCOLOR(15);
circle(600,100,10);
for i:=1 to 96 do line(x,y,x1[i],y1[i]);
q:=readkey;
if (q=#72) or(q=#77)or(q=#80)or(q=#75) then begin
SETCOLOR(0);
for i:=1 to 96 do line(x,y,x1[i],y1[i]);
if q=#72 then y:=y-10;
if q=#77 then x:=x+10;
if q=#80 then y:=y+10;
if q=#75 then x:=x-10;
end;
if q=#32 then begin
for i:=1 to round(x/2) do begin
p:=1;
setcolor(14);
sector(i*2,y,0,359,round((320-i)/10),round((320-i)/60));
setcolor(4);
sector(i*2,y,0,359,round((320-i)/10),round((320-i)/60));
end;
c:=random(5);
for j:=1 to c+1 do begin
setcolor(14);
a:=random(100);
b:=random(20);
for i:=1 to a do begin circle(x+b,y+b,i);
sound(i+10);
end;
nosound;
setcolor(4);
for i:=a downto 50 do begin
circle(x+b,y+b,i);
SOUND(I+100);
end;
end;
for i:=1 to a do begin circle(x+b,y+b,i);
sound(i+100);
end;
NOSOUND;
end;
if (x<610)and(x>590)and(p=1) then begin
settextstyle(0,0,9); setcolor(2); setusercharsize(2000,100,2000,100);
if (y>90)and(y<110)then begin
outtextxy(20,220,'You win');
delay(1000); halt(1);
end;
end;
p:=0;
until q=#27;
END.1998. gada janvāris, Turbo Pascal: tuneļa šaudene, ko aiznesu uz savu pirmo skolas konkursu. 96 līnijas no tava punkta līdz ekrāna malām uzzīmē tuneli; bultiņas kustina punktu, atstarpe — šāviens un sprādzieni ar PC skaļruņa skaņu, trāpi baltajā aplī — uzvara.