5 v=0
8 CLS 
10 REM     Venatrix abfragen, sonst haengt sich der Hive auf
11 FOR i=0 TO 5
12 x=PORT p(i)+x
13 NEXT i
14 REM     Adr 0-4 sind 1 also insgesamt 5
15 IF x=5 THEN v=1
20 IF v=1 THEN a=XBUS (3,4,98)
30 IF v=1 THEN b=XBUS (3,1,96)
35 PRINT "Demonstration der XBUS-Funktion":PRINT STRING$ (31,"=")
40 PRINT "Venatrix-Treiberversion:";BIN (a)
50 PRINT "freie Cogs in Venatrix :";b
60 c=XBUS (1,4,93)
70 d=XBUS (1,4,98)
80 PRINT "Administra-Spezifikation:";BIN (c)
90 PRINT "Administra-Treiberversion:";BIN (d)
100 e=XBUS (1,1,97)
110 PRINT "freie Cogs in Administra:";e
120 f=XBUS (2,4,0,98)
130 g=XBUS (2,1,0,96)
140 PRINT "Bellatrix-Treiber:";BIN (f)
150 PRINT "freie Cogs in Bella:";g
160 PRINT "Farb-Tabelle:"
170 XBUS (2,0,0,54,14,18)
200 POS 0,22:PRINT "SD-Karten-Info! einen Moment bitte..."
205 XBUS (1,0,1,0):REM     SD-Card mounten
210 a=XBUS (1,4,15):REM      benutzte Sektoren
211 a=a/1024*512
220 b=XBUS (1,4,16):REM      freie Sektoren
221 b=b/1024*512
250 PRINT "SD-Card-Name:";XBUS (1,3,12)
260 PRINT "Used Kbytes :";a
270 PRINT "Free Kbytes :";b
271 f=a+b
272 x=100*b/f    
275 PRINT "Free %      :";FN INT(x) 
280 XBUS (1,0,24):REM         unmount SD-Card

