-
Notifications
You must be signed in to change notification settings - Fork 8
/
BOSSKEY.SCR
79 lines (20 loc) · 3.91 KB
/
BOSSKEY.SCR
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
E D I T 1 C : \ T P \ s o u r c e \ b b p _ p r o c . p a s Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä Ä C O L U M N S 0 0 0 1 0 0 7 2 C O M M A N D Í Í Í
S C R O L L Í Í Í C
S
R
000417 for x:=1 to itemcount do begin 000418 if uppercase(ch)=item[x][3] then begin 000419 curpos:=x; cc0420 for i:=1 to itemcount do begin 000421 gotoxy(((i-1)*avglen)+3,line); cc0422 iwrite(item[i],i=curpos); 000423 end; 000424 exit; -
-
-
- - - - - - - - - - - - - - - - - 0 0 1 3 9 L I N E ( S ) N O T D I S P L A Y E D 000564 for x:=0 to 47 do for y:=1 to length(nr) do if nr[y]=chr(x) then begin 000565 for x:=58 to 255 do for y:=1 to length(nr) do if nr[y]=chr(x) then beg -
-
-
- - - - - - - - - - - - - - - - - 0 0 0 1 2 L I N E ( S ) N O T D I S P L A Y E D .
w
t
n
inc(pra[length(nr)]); 000579 for x:=length(nr) downto 1 do if pra[x]=4 then begin 000580 pra[x]:=1; 000581 pra[x-1]:=pra[x-1]+1; 000582 end; 000583 if fn='' then gotoxy(((tn div 16)+1)*(length(nr)+2)-(length(nr)-1),( 000584 out:=''; 000585 for x:=1 to length(nr) do out:=out+numarr[ord(nr[x])-48,pra[x]]; .
f
a
i
l
if pos(' ',out)=0 then begin 000587 if fn='' then begin 206080 0K0 0A0V0A0I0L0 00 00 0 0 0 0 00000401030 0L0I0N0E0 0C0O0M0M0A0N0D0 0P0E0N0D0I0N0G0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0L0 00020 0C0 0 0 0 0