I just wrote my first program...so excited.

[Jet-Lee]

I was writin proggies and games left and right on a TI-83 in HS. Sold the games for $5 a piece, a couple hit the internet and got copied (bastards). I did a 007 game (copied), drug wars (parodied off another "war" game, copied, bastards)....damn calculators are easy as hell. Also made porn "movies", those were popular. My work sent me to a VB class, I was done with the book in the first 6 hours of the 3-day class. Read you TI manual, it'll teach almost as much as those classes.

[uranium235powered]

Damn...porn movies on a calculator? I've never...and I mean NEVER heard of such a thing!

Anyways, I'm just starting to learn programming. Give me about a half millenium and if you're lucky, there will be a new Windows up. I'll probably end up calling it "doors" though.

[speediva]

I enjoyed VB. It was hard b/c our prof asked us the most obscure things on the exams, so it killed my scores even though my programs worked. I wouldn't want to program for a living... math is so much more interesting, but it is nice to know every now and again.






As for TI's... yes, it is a version of BASIC.

[DRIFTMASTER74]

cool this is what I want to learn im in eight grade then move to game design!

[2strokebloke]

100 Print "hello"
200 Goto 100

Run

Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello
Hello

Break In 200

[-Josh-]

Originally Posted by YogsVR4

Code huh

OZ -


If someone has a dephi 5 compiler (and knows how to add a button and to a list box -name it lb- to a form) they might find this code entertaining


procedure TForm1.Button1Click(Sender: TObject);
begin
TCharacter (1, 10000, '')
end;

function TForm1.TCharacter (Arg1, Arg2 : Integer; aPChar : PChar) : Integer;
begin
if 1 < Arg1 then begin
if Arg1 < 3 then TCharacter(-79,-13, (aPChar + TCharacter(-87,(1 - Arg2),
TCharacter(-86,0,(aPChar + 1) + aPChar));
if Arg1 < Arg2 then TCharacter((Arg1+1), Arg2, aPChar);
if (TCharacter(-94,-27 + Arg1,aPChar) <> 0) and (Arg1 = 2) then
if Arg2 < 13 then result:=TCharacter(2, (Arg2+1),'%s %d %d'#13)
else result:=9
else result:=16
end
else if Arg1 < 0 then
if Arg1 < -72 then result:=TCharacter(Arg2, Arg1, '@n''+,#''/*{}w+/w#cdnr/+,'+
'{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l+,/n{n+,/+#n+,/#;#q#n+,/+k#;*+,/''r :'''+
'd*''3,}{w+K w''K:''+}e#'';dq#''l q#''+d''K#!/+k#;q#''r}eKK#}w''r}eKK{nl]'''+
'/#;#q#n''){)#}w''){){nl]''/+#n'';d}rw'' i;# ){nl]!/n{n#''; r{#w''r nc{nl]'+
'''/#{l,+''K {rw'' iK{;[{nl]''/w#q#n''wk nw'' iwk{KK{nl]!/w{%''l##w#'' i; '+
':{nl]''/*{q#''ld;r''}{nlwb!/*de}''c ;;{nl''-{}rw]''/+,}##''*}#nc,'',#nw]'''+
'/+kd''+e}+;#''rdq#w! nr''/ '') }+}{rl#''{n'' '')# }''+}##(!!/')
else if Arg1 < -50 then
if Arg2 = Ord(aPChar^) then begin
result := Ord(aPChar[31]);
if aPChar[31] = #13 then Begin
lb.Items.Add(l);
l := '';
End
else l := l + aPChar[31];
end
else result:=TCharacter(-65, Arg2 ,(aPChar + 1))
else result := TCharacter(Ord(aPChar^='/')+ Arg1, Arg2, (aPChar + 1))
else if 0 < Arg1 then result := TCharacter(2,2,'%s')
else result := Ord((aPChar^='/') or
(TCharacter(0, TCharacter(-61,Ord(aPChar^),'!ek;dc i@bK''(q)-[w]*%n+r3#l,{}'+
':'#13'uwloca-O;m .vpbks,fxntdCeghiry'), (aPChar+1)) <> 0))
end;

Reading all that makes me want to cry...

[Sluttypatton]

I did some fairly basic C++ programming in my first semester at University and loved it. Now my copy of Visual Studio .NET sits unused, maybe I should take up programming again.