Procedure StrCpy(s,t:PChar); <br /> var I : Integer; <br /> Begin <br /> I := 1; <br /> repeat <br /> inc(i); <br /> s[i] := t[i]; <br /> until t[i] = #172; <br /> end { StrCpy} <br /> }:?
snowman
Member
funny code you got there aaronl... with smileys and all ;) <br /> <br />173
pk
Member
Dim What_is_Snowman as integer <br />Dim What_is_Snowman2 as string <br /> <br />What_is_Snowman2 = "Snowman is a little Girlyl" <br /> <br />Do until What_is_Snowman = 174 <br /> What_is_Snowman = What_is_Snowman + 1 <br /> Print What_is_Snowman2 <br />Loop <br /> <br /> ^ bad code, I know. But the point is that we are at 174 now!!!!! :-)
Edited
snowman
Member
Dim lill_boy_PK as panda99 <br />Dim lill_boy_PK2 as line <br /> <br />lill_boy_PK2 = "PK is now known as |duuuuh|" <br /> <br />Do until Eternity = 175 <br />lill_boy_PK = lill_boy_PK + 1 <br />Print I_R_BABOOOON <br />Loop <br /> <br /> <br />beeeeeeeeep...... 175 :P
pk
Member
hehe, <br /> <br />Snowman: That code will first of all give you an "variable not defined" error (only if you used "Option Explicit" ofcourse) and second, if you DID define Eternity it still doesnt mather cause the program will go in an endless loop :-) <br /> <br />blieeeeeeeep........176 :p
Gregor Klevže
Member
buuuuuuuuuu ............. 177
snowman
Member
19seven
Gregor Klevže
Member
196
snowman
Member
one9five
valhalla
Member
194
snowman
Member
one <br />nine <br />three
pk
Member
192
snowman
Member
185
aaronl
Member
eenhonderdzesentachtig :) 186
Gregor Klevže
Member
187
snowman
Member
188 <br />(and msgboard post no <b>10.000</b> w0000t :D )