fb:porticula NoPaste
Testmuster
Uploader: | nemored |
Datum/Zeit: | 20.05.2014 21:06:52 |
type testtyp
as string*256 muster
end type
dim as testtyp test
test.muster = chr( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) _
& chr( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) _
& chr( 0, 0, 0, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 0, 0, 0, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 0, 0, 0, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) _
& chr( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) _
& chr( 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 0, 0, 0, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 0, 0, 0, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0) _
& chr( 0, 0, 0, 0, 85, 85, 85, 0, 85, 85, 85, 0, 85, 85, 85, 0)
for i as integer = 0 to len(test.muster)-1
print test.muster[i];" ";
next
getkey