CAB A+, Руководство по программированию

Страница: 403 / 484

403 403
403 cab Produkttechnik GmbH & Co KG
abc - PEEK Variables:
The following example uses a few of the Peek variables and prints the result on a label
<ABC>
a$=peek$("os")
b=peek("version")
c=peek("resolution")
d=peek("width")
f=peek("mlength")
g=peek("direction")
h=peek("slength")
i=peek("freememory")
j$=peek$("status")
k=peek("xinput")
l=peek("xoutput")
print "m m"
print "J"
print "O R"
print "S l1;0,0,68,70,100"
print "T 5,8,0,5,5;peek samples:"
print "T 50,8,0,5,3;OS: ",a$
print "T 50,12,0,5,3;Version: ",b
print "T 50,16,0,5,3;Resolution: ",c
print "T 50,20,0,5,3;Max. Width: ",d
print "T 50,24,0,5,3;Transparent: ",e
print "T 50,28,0,5,3;Mlength: ",f
print "T 50,32,0,5,3;Direction: ",g
print "T 50,36,0,5,3;Slength: ",h
print "T 50,40,0,5,3;Freememory: ",i
print "T 50,44,0,5,3;Status: ",j$
print "T 50,48,0,5,3;XInput: ",k
print "T 50,52,0,5,3;XOutput: ",l
print "A 1"
</ABC>
Example:
a-Series b asic compiler