Name:
Anonymous
2009-06-07 5:21
"forrit" < aðal {
aðal -> stef(;)
staðvær seg:=$A000, pos:=0, len, BUFFA:=0, bita:=0,
data :=
[0,60000,0,27040,1,639,1,639,2,638,3,637,4,636,4,636,5,635,6,
634,7,633,8,632,9,631,10,630,12,628,13,627,14,361,34,231,15,
346,65,214,17,332,90,201,18,326,102,194,20,321,112,187,21,317,
121,181,23,311,133,173,25,306,141,168,26,303,146,165,28,298,
153,161,30,294,160,156,32,290,165,153,34,286,170,150,36,282,
175,147,38,277,181,144,40,274,185,141,42,270,189,139,44,266,
193,137,47,261,198,134,49,257,202,132,51,254,205,130,53,250,
208,129,56,245,213,126,58,241,216,125,60,238,219,123,62,234,
223,121,65,229,227,119,67,226,229,118,69,222,233,116,71,219,
235,115,75,213,239,113,77,209,242,112,79,206,245,110,82,201,
248,109,86,196,251,107,88,192,254,106,91,188,256,105,94,183,
259,104,98,178,261,103,102,172,265,101,105,168,267,100,108,
163,270,99,113,156,273,98,117,150,184,3,89,97,120,145,181,13,
85,96,124,139,180,18,84,95,130,130,181,23,82,94,135,122,182,
26,82,93,141,113,184,29,81,92,148,101,188,31,81,91,436,15,3,
15,81,90,435,14,8,13,81,89,434,14,10,13,81,88,434,13,12,12,82,
87,433,14,12,13,82,86,432,14,14,12,83,85,431,15,14,13,83,84,
431,15,14,13,83,84,431,15,14,14,83,83,431,15,13,15,84,82,430,
17,12,16,84,81,430,17,12,16,85,80,430,18,10,17,86,79,430,20,6,
19,87,78,430,45,87,78,429,46,88,77,429,46,89,76,429,46,90,75,
430,45,90,75,430,45,91,74,430,45,92,73,430,45,93,72,430,45,93,
72,431,43,95,71,431,43,96,70,431,42,98,69,431,42,98,69,432,40,
100,68,433,39,101,67,434,37,103,66,434,37,103,66,435,35,105,
65,436,33,107,64,437,30,109,64,438,29,110,63,439,26,113,62,
441,23,114,62,443,18,118,61,446,13,121,60,450,4,126,60,581,59,
582,58,583,57,583,57,584,56,584,56,585,55,585,55,586,54,587,
53,587,53,588,52,588,52,589,51,589,51,590,50,590,50,591,49,
591,49,592,48,592,48,593,47,593,47,594,46,594,46,594,46,595,
45,595,45,595,45,595,45,596,44,596,44,596,44,567,7,23,43,565,
10,22,43,564,12,21,43,564,12,21,43,563,14,21,42,563,14,21,42,
563,14,21,42,563,14,21,42,563,14,21,42,563,14,21,42,563,13,23,
41,564,12,23,41,565,10,24,41,567,7,25,41,569,1,29,41,599,41,
599,41,599,41,599,41,599,41,599,41,599,41,599,41,599,41,599,
41,599,41,599,41,598,42,445,1,151,43,445,2,150,43,446,2,148,
44,446,3,146,45,447,4,143,46,447,5,141,47,447,7,137,49,448,7,
135,50,449,8,131,52,449,10,128,53,449,11,126,54,450,12,122,56,
450,14,117,59,451,15,114,60,451,16,111,62,452,18,106,64,452,
21,101,66,453,23,96,68,453,26,91,70,454,29,84,73,454,36,70,80,
455,40,59,86,455,47,44,94,456,57,20,107,457,183,457,183,458,
126,1,55,459,123,3,56,458,121,4,58,458,118,6,60,457,116,6,63,
456,113,8,66,454,110,10,68,454,106,11,71,453,104,12,73,453,
100,14,75,453,96,15,78,453,93,16,80,453,89,17,83,453,85,19,86,
454,79,20,89,455,74,22,91,456,69,23,94,457,64,25,98,460,53,28,
101,464,44,31,104,468,33,34,108,482,6,44,112,527,116,524,119,
520,124,515,131,508,138,502,146,493,343,296,348,292,349,290,
352,287,355,284,358,282,360,279,363,276,366,273,369,270,372,
267,374,266,376,263,380,259,383,256,385,254,388,250,393,246,
396,243,399,240,402,237,406,233,409,229,414,225,417,222,422,
216,426,213,430,208,435,204,440,198,445,194,449,189,454,184,
460,178,466,173,470,168,475,163,482,155,488,150,494,144,499,
138,508,128,517,120,524,113,532,104,545,85,562,67,579,47,
48812]
stofn
ígrip10(17,0,0,0;),
meðan ekki ekki data lykkja
len := \haus data, data := \hali data,
ef (pos+len)/8 > pos/8 þá
fylla(;BUFFA,seg,pos/8,1),
fylla(;bita,seg,pos/8+1,(pos+len)/8-pos/8-1),
BUFFA := bita
eflok,
seg := seg + (pos+len \hhliðra 7),
pos := (pos+len) & 127,
bita := bita || 255,
BUFFA := BUFFA || (255 \hhliðra pos & 7)
lykkjulok,
lesastafánstopps(;),
ígrip10(3,0,0,0;)
stofnlok
}
*
"GRUNNUR"
;