40 lines
1.2 KiB
QBasic
40 lines
1.2 KiB
QBasic
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
|
|
|