-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathvbl.ras
More file actions
51 lines (42 loc) · 796 Bytes
/
vbl.ras
File metadata and controls
51 lines (42 loc) · 796 Bytes
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
program MyProgram;
var
a:byte;
oldti,ti,ticmp:integer;
t:integer;
function _ti(): integer;
var
ti_temp: integer;
begin
ti_temp := ti_temp + (peek(#$8D,0)*256*256);
ti_temp := ti_temp + (peek(#$8D,1)*256);
ti_temp := ti_temp + peek(#$8D,2);
_ti:=ti_temp;
end;
begin
DefineScreen();
screen_char_loc:=$8000;
screenmemory:=$8000;
while(1) do
begin
oldti :=_ti();
a:=peek(#$E840,0);
while(a=223) do
begin
a:=peek(#$E840,0);
moveto(0,0,hi(screen_char_loc));
//if(a<>255) then
printdecimal(a,3);
end;
moveto(0,1,hi(screen_char_loc));
printstring("DONE",0,4);
moveto(0,2,hi(screen_char_loc));
printdecimal(oldti,2);
moveto(0,3,hi(screen_char_loc));
ti :=_ti();
while(ti=oldti) do
begin
ti :=_ti();
end;
printdecimal(ti,2);
end;
end.