XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Strukturen mit Profan²
CLS
DECLARE Bereich#, Bereich2#,dBereich&
DECLARE Long1#, Long2#,dLong&
STRUCT Adresse = Name$(30),Vorname$(30),Strasse$(30),PLZ$(5),Ort$(30)
DIM Bereich#,Adresse
DIM Bereich2#,Adresse
LET Bereich#.Name$ = Hülsmann
PRINT Bereich#.Name$
WAITINPUT
LET Bereich#.Name$ = Hülsmann
LET dBereich& = Bereich2#
LET Bereich2# = Bereich#
PRINT Bereich2#.Name$
WAITINPUT
LET Bereich2#.Name$ = Maier
PRINT Bereich#.Name$
WAITINPUT
STRUCT Long = LongInt&
STRUCT Words = HiWord%,LoWord%
DIM Long1#, Long
DIM Long2#, Words
LET dlong& = long1#
LET Long1# = long2#
LET Long1#.LongInt& = 1233456
PRINT Long2#.HiWord%
PRINT Long2#.LoWord%
WAITKEY
LET Bereich2# = dBereich&
LET Long1# = dLong&
DISPOSE Bereich#
DISPOSE Bereich2#
DISPOSE Long1#
DISPOSE long2#