🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: alt.lang.basic
Article #589

Pascal -> Visual Basic 4

#589
From: John Rickard
Date: Wed, 05 Nov 1997 00:00
24 lines
1643 bytes
i am coverting a pascal source i did a while back to vb4 so i can use
it in my program.
i have totally coverted everything except 1 thing.
below is the pascal part i am having trouble comvertin to vb4.

 inc(l, Ord(s[i]) + (i * i))

and help is appreciated.

l,i are longint and integer
s is string
it is piece from a reg code gen program for my shareware...
i could just start from scratch writing a reg gen for win but i
wanted to try and learn something by converting it :) please help.

PLEASE if possible reply to me and the newsgroup as i do not have
alot of time to read every group all the time.

-- 
--
Remove .DONTSPAMME from my
email address to send me REAL email.
--
Technical Details
Message-ID: <63qonl$r0p@bgtnsc03.worldnet.att.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10c950,d4e4032bb8f921fa,start
X-Google-Attributes: gid10c950,public
X-Google-Thread: 10261c,d4e4032bb8f921fa,start
X-Google-Attributes: gid10261c,public
X-Google-Thread: 110e3b,d4e4032bb8f921fa,start
X-Google-Attributes: gid110e3b,public
X-Google-Thread: 10ab99,d4e4032bb8f921fa,start
X-Google-Attributes: gid10ab99,public
X-Google-Thread: 111659,d4e4032bb8f921fa,start
X-Google-Attributes: gid111659,public
X-Google-Thread: 108ebd,d4e4032bb8f921fa,start
X-Google-Attributes: gid108ebd,public
From: "John Rickard" <saskan@worldnet.att.net.DONTSPAMME>
Subject: Pascal -> Visual Basic 4
Date: 1997/11/05
Message-ID: <63qonl$r0p@bgtnsc03.worldnet.att.net>
X-Deja-AN: 287251306
Organization: Pascal Programmer
Newsgroups: alt.lang.basic,borland.public.turbopascal,comp.lang.basic.visual.misc,comp.lang.pascal.ansi-iso,comp.lang.pascal.borland,comp.lang.pascal.misc