dim define_name$(100)
dim define_text$(100)
define_nummer = 0
tmp$ = ""
p1$ = ""
p2$ = ""

in = readfile("input.bb")
out = writefile("out.bb")
repeat
eingabe = readline(in)
for I = 0 to 100
if instr(eingabe,define_name(I)) then eingabe = replace$(eingabe,define_name(I),define_text(I))
next
if instr(eingabe,"#define ") then
eingabe = replace$(eingabe,"#define ","")
eingabe = replace$(eingabe," ",",")
for I = 1 to 100
tmp = mid$(eingabe,I,1)
if tmp = "," then exit
p1 = p1 + tmp
next
p2 = replace$(eingabe,p1 + ",","")
define_name(define_nummer) = p1
define_text(define_nummer) = p2
define_nummer = define_nummer + 1
endif
writeline out,eingabe
until eof(in)

Const xy = 12
Const bla$ = "Hallo"


Print bla
a = xy + 20
xy = 10 ;Geht nicht! Denke ich zumindest.