Visual Basic&Outlook

[James020]

In QBasic:

DECLARE FUNCTION grafik () 'xxx
DIM line1 AS STRING
DIM line2 AS STRING
DIM kbd AS STRING
DIM x AS INTEGER
DIM y AS INTEGER
SCREEN 12
RANDOMIZE TIMER
line1 = "Willkommen bei Disk-Agent V1.3"
COLOR 7 'xxx
PRINT line1
PRINT
PRINT "Hallo was wünschen Sie zu tun?"
PRINT " 1) Daten 'vorher' aufzeichnen"
PRINT " 2) Daten 'nachher' aufzeichnen und anschlieáend differenzieren"
DO
y = y + 1 'xxx
x = y MOD 17 'xxx
IF x = 16 THEN x = 0 'xxx
COLOR x 'xxx
LOCATE 1, y MOD 30 + 1 'xxx
PRINT MID$(line1, y MOD 30 + 1, 1) 'xxx
IF y = 32767 THEN y = 0 'xxx
kbd = INKEY$
IF kbd = CHR$(27) THEN SYSTEM
LOOP UNTIL kbd = "1" OR kbd = "2"
y = VAL(kbd)
COLOR 14 'xxx
LOCATE 1, 1
PRINT line1
FOR x = 0 TO 4
PRINT
NEXT x
COLOR 8 'xxx
PRINT "Laufwerk: ";
ON ERROR GOTO Errors
DO
kbd = UCASE$(INKEY$)
x = 1
CHDIR kbd + ":\"
LOOP UNTIL x
kbd = kbd + ":\"
COLOR 7 'xxx
PRINT kbd
OPEN kbd + "x" FOR OUTPUT AS #1
CLOSE #1
KILL kbd + "x"
IF x = 0 THEN
COLOR 4 'xxx
PRINT "ERROR! Kein Schreibzugriff auf Datenträger!"
COLOR 8 'xxx
PRINT "Laufwerk für Temporär-Daten: ";
COLOR 7 'xxx
DO
x = 1
kbd = UCASE$(INKEY$)
OPEN kbd + ":\x" FOR OUTPUT AS #1
CLOSE #1
KILL kbd + ":\x"
LOOP UNTIL x
kbd = kbd + ":\"
PRINT kbd
END IF
ON ERROR GOTO 0
IF y = 1 THEN SHELL "dir /a/b/s>" + kbd + "first.map": SYSTEM
SHELL "dir /a/b/s>" + kbd + "second.map"
PRINT "THANKS FOR USING INSTALL-AGENT V1.3!"
OPEN kbd + "first.map" FOR INPUT AS #1
OPEN kbd + "second.map" FOR INPUT AS #2
OPEN kbd + "diff.txt" FOR OUTPUT AS #3
PRINT #3, " * * * - > Cleared: < - * * *"
DO
LINE INPUT #1, line1
x = 0
y = 0
SEEK 2, 1
DO
LINE INPUT #2, line2
IF line1 = line2 THEN x = 1
IF EOF(2) THEN x = 10
IF y MOD 10 = 0 THEN y = grafik 'xxx
y = y + 1 'xxx
LOOP UNTIL x > 0
IF x = 10 THEN PRINT #3, line1
LOOP UNTIL EOF(1)
PRINT #3,
PRINT #3, " * * * - > Added: < - * * *"
SEEK 2, 1
DO
LINE INPUT #2, line2
x = 0
y = 0
SEEK 1, 1
DO
LINE INPUT #1, line1
IF line1 = line2 THEN x = 1
IF EOF(1) THEN x = 10
IF y MOD 10 = 0 THEN y = grafik 'xxx
y = y + 1 'xxx
LOOP UNTIL x > 0
IF x = 10 THEN
IF UCASE$(line2) <> kbd + "SECOND.MAP" THEN PRINT #3, line2
END IF
LOOP UNTIL EOF(2)
CLOSE #3
CLOSE #2
CLOSE #1
KILL kbd + "first.map"
KILL kbd + "second.map"
SYSTEM
Errors:
x = 0
RESUME NEXT

FUNCTION grafik 'xxx
STATIC a AS INTEGER 'xxx
STATIC b AS INTEGER 'xxx
STATIC c AS INTEGER 'xxx
STATIC d AS INTEGER 'xxx + alles was folgt
SELECT CASE d
CASE 0
a = 0: b = 150: c = 0: d = 1
CASE 1
IF CINT(RND * 25) = 5 THEN c = 0 ELSE c = 2
LINE (a, b)-(a + 5, b + 5), c, BF
a = a + 10
IF a = 650 THEN b = b + 10: a = 0
IF b = 490 THEN d = 2: b = 150
CASE 2
IF POINT(a, b) = 0 THEN
LINE (a, b)-(a + 5, b + 5), 4, BF
END IF
a = a + 10
IF a = 650 THEN b = b + 10: a = 0
IF b = 490 THEN d = 3: b = 150
CASE 3
IF POINT(a, b) = 2 THEN LINE (a, b)-(a + 5, b + 5), 0, BF
a = a + 10
IF a = 650 THEN b = b + 10: a = 0
IF b = 490 THEN d = 4: b = 150: c = 0
CASE 4
IF POINT(a, b) = 4 THEN
LINE ((c MOD 64) * 10, (c \ 64 + 15) * 10)-((c MOD 64) * 10 + 5, (c \ 64) * 10 + 155), 4, BF
c = c + 1: LINE (a, b)-(a + 5, b + 5), 0, BF
END IF
a = a + 10
IF a = 650 THEN b = b + 10: a = 0
IF b = 490 THEN d = 0: b = 150: grafik = 1
END SELECT
END FUNCTION

In VB leider noch nicht getestet! Doch wennst alle Zeilen mit "'xxx" killst, müsste es gehen abgesehen von den PRINT-Anweisungen, mit denen ich in VB absolut NICHT aus!
Wennst willst, kannst aber auch nen QBasic editor haben (DOS)