Tabelle erzeugen

[ferby]

Hallo,

Welchen Quelltext.... ich hab ja noch keinen! Ich habe ein Programm das so änlich ist in
Quick Basic geschrieben, da habe ich das Problemm mit Data gelöst, da kannst du den Quelltext
haben, das selobe will ich jetzt in Delphi:


REM --- Tabelle ---
100
CLS

reihe1 = 8
reihe2 = 25
reihe3 = 42
reihe4 = 65

x = 3
y = reihe1

PRINT " ASCII-BIT-X (Tabelle) Version 5.00"


FOR i = 65 TO 90
READ l(s)
x = x + 1
IF i = 78 THEN x = 4: y = reihe2
LOCATE x, y: PRINT CHR$(i); " "; CHR$(l(s))
NEXT i

x = 8
y = reihe3

LOCATE 4, y: PRINT "ASCII="; CHR$(96); CHR$(96); "W"
LOCATE 5, y: PRINT "Zahlen="; CHR$(96); "Z"
LOCATE 6, y: PRINT "Umlaute="; CHR$(96); "AOU"
LOCATE 7, y: PRINT ", "; CHR$(15)

FOR i% = 1 TO 10
READ l$(s)
NEXT i%


FOR i = 1 TO 26
READ l$(s), k(s)
IF i = 13 THEN x = 4: y = reihe4
LOCATE x, y: PRINT l$(s); " "; CHR$(k(s))
x = x + 1
NEXT i


' ''...'' '
x = 4
y = reihe1 - 7

FOR i = 1 TO 60
IF i = 15 THEN x = 4: y = reihe2 - 7
IF i = 29 THEN x = 5: y = reihe3 - 7
IF i = 46 THEN x = 4: y = reihe4 - 7
IF i = 10 OR i = 20 OR i = 30 OR i = 40 OR i = 50 OR i = 60 THEN i = i + 1
LOCATE x, y: PRINT i
x = x + 1
NEXT i

LOCATE 3, reihe1 - 6: PRINT "W Z"
LOCATE 3, reihe2 - 6: PRINT "W Z"
LOCATE 3, reihe3 - 6: PRINT "W Z"
LOCATE 3, reihe4 - 6: PRINT "W Z"

LOCATE 18, reihe1 - 6: PRINT "ASCII: 0="; CHR$(127); " / 00="; CHR$(127); CHR$(127)

x = 5
y = reihe1 - 4

FOR i = 0 TO 49
IF i = 13 OR i = 18 THEN x = x + 1
IF i = 12 THEN x = 4: y = reihe2 - 4
IF i = 23 THEN x = 7: y = reihe3 - 4
IF i = 36 THEN x = 4: y = reihe4 - 4
LOCATE x, y: PRINT i
x = x + 1
NEXT i



SLEEP

s:
DATA 16,17,18,19,22,23,24,25,26,27,38,35,4,216,42,43,45 ,46,47,58,60,61,62,91,92,93,94,126,155,158,171,172 ,174,
175,180,187
DATA sch,185,st,189,die,145,ch,188,der,157,ei,36,ing,19 3,ie,192,ung,194,tz,195,ich,204,er,205,und,221,en, 217,ver,
6,te,219,au,232,ck,241,ne,243,in,168,ab,158,ge,171 ,-,248,!,201,?,191,.,244,_,127