korjaa ruudun tyhjennysrutiinit alussa
This commit is contained in:
parent
02a404af42
commit
a6cca51ffd
|
@ -223,22 +223,22 @@ text : string = (@cmoveto, 6,10,
|
|||
26, 12, 13, 12);
|
||||
|
||||
naamatNames : string = (
|
||||
"TONI AITTONIEMI - UUSIMAA", @cpause,
|
||||
"JUHO KARVINEN - PIRKANMAA", @cpause,
|
||||
"RIIKKA NIEMINEN - UUSIMAA", @cpause,
|
||||
"JARI NIKKINEN - SAVO-KARJALA", @cpause,
|
||||
"SATU IMMONEN - HELSINKI", @cpause,
|
||||
"PEKKA MUSTONEN - SAVO-KARJALA", @cpause,
|
||||
"TEEMU LINDROOS - PIRKANMAA", @cpause,
|
||||
"ARTO TAMMENOKSA - PIRKANMAA", @cpause,
|
||||
"KLAUS TORNKVIST - PIRKANMAA", @cpause,
|
||||
"JARNO YLTAVA - PIRKANMAA", @cpause,
|
||||
"LEINARD KOHONEN - HAME", @cpause,
|
||||
|
||||
"REETTA OJALA - HELSINKI", @cpause,
|
||||
"MAREK NETSHADA - HELSINKI", @cpause,
|
||||
"OLAVI KAUKAMIELI - HELSINKI", @cpause,
|
||||
"JONI MAHLAMAKI - UUSIMAA", @cpause,
|
||||
"KAUSTI RANTALAINEN - HELSINKI", @cpause,
|
||||
"ARI-PEKKA PULKKIS - HELSINKI", @cpause, @cstop );
|
||||
"ALEKSI LOFGREN - SAVO-KARJALA", @cpause,
|
||||
"PEKKA MUSTONEN - SAVO-KARJALA", @cpause,
|
||||
"TIIA MUSTONEN - SAVO-KARJALA", @cpause,
|
||||
"JARI NIKKINEN - SAVO-KARJALA", @cpause,
|
||||
"TAPANI PARKKINEN - KESKI-SUOMI", @cpause,
|
||||
"CHRISTER WAREN - SATAKUNTA", @cpause, @cstop );
|
||||
|
||||
naamatNumbers : string = ( "353", "113", "356", " 91", " 5 ", "89 ",
|
||||
" 13", "12 ", " 8 ", "354", " 18", " 17", @cstop);
|
||||
naamatNumbers : string = ( "113", "114", "115", "116", "117 ", "140",
|
||||
" 88", "89 ", " 90", "91 ", " 2 ", " 2 ", @cstop);
|
||||
|
||||
|
||||
tab320 : array[25] of integer = buildtable("i*320");
|
||||
|
@ -314,9 +314,9 @@ text : string = (@cmoveto, 6,10,
|
|||
@cmoveto, 0, 2, " ANONYMISOIDUT",
|
||||
@cmoveto, 0, 3, " OPEN ACCESS",
|
||||
@cmoveto, 0, 4, " TIETOKANNAT",
|
||||
@cmoveto, 0, 5, " JULKINEN SEKTORI",
|
||||
@cmoveto, 0, 5, " JULKISHALLINTO",
|
||||
@cmoveto, 0, 6, "TIETEEN TEKNOLOGIAN",
|
||||
@cmoveto, 0, 7, " MOOTTORINA",
|
||||
@cmoveto, 0, 7, " MOOTTORINA",
|
||||
@cpage,
|
||||
@cmoveto, 0, 3, " TIETOPOLITIIKAN",
|
||||
@cmoveto, 0, 4, " VAKIINNUTTAMINEN",
|
||||
|
@ -1388,7 +1388,8 @@ begin
|
|||
begin
|
||||
fgColBefore := 0;
|
||||
Fill(screen_char_loc, KEY_SPACE, 255);
|
||||
FillFast(screen_char_loc + 256, KEY_SPACE, 127);
|
||||
FillFast(screen_char_loc + 255, KEY_SPACE, 127);
|
||||
Fill(^$06F8, KEY_SPACE, 240);
|
||||
GoToPurpleBarRasterStart();
|
||||
currentPartDone := true;
|
||||
screen_fg_col := 0;
|
||||
|
@ -1521,7 +1522,8 @@ begin
|
|||
CreateAddressTable(#mainPartAddressTable, $4400, 40, 25);
|
||||
CreateAddressTable(#colorAddressTable, $d800, 40, 25);
|
||||
|
||||
Fill(^$0528, KEY_SPACE, 240);
|
||||
Fill(^$0518, KEY_SPACE, 240);
|
||||
Fill(^$0608, KEY_SPACE, 80);
|
||||
|
||||
for i := 0 to 256 do fastPlasma[i] := textPlasmaLumi[textPlasmaX[i]];
|
||||
|
||||
|
|
Loading…
Reference in New Issue