Hello from Minnesota (U.S.A.)

New members who wish to post and participate in HMG Forum, please introduce yourselves in this forum by starting a new thread.

Moderator: Rathinagiri

User avatar
metron9
Posts: 45
Joined: Sat Sep 08, 2012 7:18 am
Location: Minnesota U.S.A.

Hello from Minnesota (U.S.A.)

Post by metron9 »

Hello, my name is Mark Robin. I was born in the U.S.A.
My grandparents were French, Swedish and Czech

My first computer was a Vic20 from Commodore
I learned Basic and Assembly code programming on a Commodore 64 (6502 processor)
I wrote games for Commodore (well one game they bought and paid commissions on)

Next computer was a radio shack TRS80 Model II with a 500k Floppy drive.
Basic language and 32 K of memory.
This is the computer I initially wrote a Quoting program for a business my dad and my brother started.
A friend helped me write the code. Then he locked the computer and demanded 400 bucks to unlock it.
Was not a friend after all....

Next computer was the first IBM XT home computer with a 360k floppy drive and a 4mHZ processor.
I learned DBASE programming and converted the basic quote program from the previous computer.
Clipper came along and I started compiling the programs I wrote.
Quoting, Job tickets, scheduling, inventory, packing slips, and billing programs back in the 90's

All of the original code we still use today with a Novell file server.

About 10 years ago I got my first parallax basic Stamp Then moved on to the Atmel line of processors.
I bought a Bridgeport mill, designed and built my own C&C circuit board router and then converted an old XLO mil
to a full C&C using mach3 mill so I can mill metal parts.
I learned C now for programming the micro controllers.

Business has been good through the years and I have been slacking on paying attention to the normal day to day running of it as the employees have been with us for over 20 years.

I am now at the point where the new Windows 7 machines don't much like to talk to the old Novell systems.
I made a mistake in my code giving the Job Number field just 4 digits, we have gone past 9999

So I am here today porting the programs and updating them to make use of the data they collect to help increase profits in the company.

I also have three kids, ages 22, 27, and 28. One is a school teacher, one works as a wedding planner in a big hotel, the last one is a musician.

I really still have a good grasp of the clipper language, the OOP coding I still shy away from, Java is hard for me as well as C++.

That's where I came from and I am very happy to find such a good group to move on into the 21st century, with EPOCH set to 2000 perhaps all of our jobs
won't be overdue when we enter them....
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: Hello from Minnesota (U.S.A.)

Post by esgici »

Hello Mark,

again, welcome aboard :D

It's interesting learning your life story.

Though, all life stories ( especially who are colleagues, and especially in close to the age) are similar with small differences; in fact all of theme are unique ;)

Apparently you are quite struggled between peeks and pokes of Commodore ;)

Finally you are in a peaceful and comfortable harbor now; I'm sure that you will like more and more every day while using HMG :)

Please don't hesitate for asking anything. This isn't means "we know everything"; but we don't beware to respond any question while we know the answer.

Personally, while passing DOS to Windows, that is Clipper to HMG, I was quite struggled; so I like much help to HMG'ists, especially to beginners.

While waiting your good news on the route,

Happy HMG'ing :)
Viva INTERNATIONAL HMG :D
User avatar
Rathinagiri
Posts: 5471
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Contact:

Re: Hello from Minnesota (U.S.A.)

Post by Rathinagiri »

Hearty welcome from India.

It is very interesting and inspiring to read your intro. Thanks a lot.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
User avatar
danielmaximiliano
Posts: 2612
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Hello from Minnesota (U.S.A.)

Post by danielmaximiliano »

Hola Metron:
Bienvenido a HMG , espero verlo publicando muchos mensajes.

desde Buenos Aires , Argentina
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
tcltk
Posts: 14
Joined: Fri Aug 10, 2012 6:34 am

Re: Hello from Minnesota (U.S.A.)

Post by tcltk »

Welcome to the forum from Philippiines.
User avatar
mol
Posts: 3720
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Contact:

Re: Hello from Minnesota (U.S.A.)

Post by mol »

Welcome from Poland, quite close to the Czech Republic :lol:
User avatar
metron9
Posts: 45
Joined: Sat Sep 08, 2012 7:18 am
Location: Minnesota U.S.A.

Re: Hello from Minnesota (U.S.A.)

Post by metron9 »

Thank you all for the warm welcome.

Last week a programmer on the minigui email newsgroup helped me out quite a bit with setting up mediator for mysql
he was from Croatia.

My Grandma was from Czechoslovakia and married a Frenchman.

I just found an old CD that has my original .ASM code for creating shadows
on the old VGA screens. I linked them into clipper to make nicer looking 3D effect windows
for my menus. I thought you might find the code interesting.
This was before Bill Gates even made Windows.
I still have the EXTASM book I bought that I learned to link assembler code to clipper projects.

Who knows perhaps i will see what I may need to fire up assembler and create libraries for the computers of today!

This code just draws a shadow on the bottom and right side of a box to make it look nice.

Oh, here is a link to the game My wife and I made for Commodore
http://spong.com/game/11026242/Chopper-Math-C64
You can actually find a C64 emulator and download the game and play it.
http://www.lemon64.com/?mainurl=http%3A ... 3FID%3D479
This internet thing is way cool! ;)

Code: Select all

.MODEL      LARGE
                INCLUDE C:\EXTASM.INC
                PUBLIC  SHADEBOX


.DATA

LTOPD           DB      201D
RTOPD           DB      187D
LBOTD           DB      200D
RBOTD           DB      188D
HORZD           DB      205D
VERTD           DB      186D

LTOP            DB      218D
RTOP            DB      191D
LBOT            DB      192D
RBOT            DB      217D
HORZ            DB      196D
VERT            DB      179D

dispage         db      0h
attbyte         db      0h
shadow          db      00001000b

tboxrow         db      0h
bboxrow         db      0h
lboxcol         db      0h
rboxcol         db      0h

vcount          db      0h
hcount          db      0h

vcount1         db      0h
hcount1         db      0h

row             db      0h
col             db      0h

.CODE

shadebox        PROC    FAR
                
                PUSH    SI
                PUSH    AX
                PUSH    BX
                PUSH    CX
                PUSH    DX
                PUSH    BP
                MOV     BP,SP
                PUSH    DS
                PUSH    SI
                PUSH    DI
                
                
                mov     ax,1
                push    ax
                call    __parinfo             ; get parm1
                add     sp,2
                test    ax, NUMERIC          ;is it numeric
                jz      shadebye             ;no -  return

                


                mov     ax,2
                push    ax
                call    __parinfo
                add     sp,2
                test    ax, NUMERIC
                jz      shadebye

                mov     ax,3
                push    ax
                call    __parinfo
                add     sp,2
                test    ax, NUMERIC
                jz      shadebye

                mov     ax,4
                push    ax
                call    __parinfo
                add     sp,2
                test    ax, NUMERIC
                jz      shadebye

                mov     ax,5
                push    ax
                call    __parinfo
                add     sp,2
                test    ax, NUMERIC
                jz      shadebye
                jnz     shadeok
shadebye:                
                jmp     shadex
shadeok:
                mov     ax,1
                push    ax
                call    __parni
                add     sp,2
                mov     [tboxrow],al

                mov     ax,2
                push    ax
                call    __parni
                add     sp,2
                mov     [lboxcol],al


                mov     ax,3
                push    ax
                call    __parni
                add     sp,2
                mov     [bboxrow],al
                sub     al,[tboxrow]
                dec     al
                mov     [vcount],al


                mov     ax,4
                push    ax
                call    __parni
                add     sp,2
                mov     [rboxcol],al
                sub     al,[lboxcol]
                mov     [hcount],al
                
                mov     ax,6
                push    ax
                call    __parni
                add     sp,2
                mov     cl,04h
                shl     al,cl
                mov     [attbyte],al

                mov     ax,5
                push    ax
                call    __parni
                add     sp,2
                or      [attbyte],al
 
                mov     ah,02h          ;set cursor top left of box
                mov     bh,0h
                mov     dh,[tboxrow]
                mov     [row],dh
                mov     dl,[lboxcol]
                mov     [col],dl
                int     10h
                
                mov     ah,09h          ; draw horizontal line
                mov     al,[horzd]
                mov     bh,0h
                mov     bl,[attbyte]
                mov     ch,0h
                mov     cl,[hcount]
                int     10h
                
                mov     ah,09h
                mov     al,[ltopd]      ; draw top left corner
                mov     bh,0h
                mov     bl,[attbyte]
                mov     cx,01h
                int     10h

                
                mov     al,[vcount]
                mov     [vcount1],al
              
vlp1:
                mov     ah,02h          ; move cursor down 1 row
                mov     bh,0h
                inc     [row]
                mov     dh,[row]
                mov     dl,[col]
                int     10h
                
                mov     ah,09h          ; output vertical line
                mov     al,[vertd]
                mov     bh,0h
                mov     bl,[attbyte]
                mov     cx,01h
                int     10h
                dec     [vcount1]
                jne     vlp1
             
                mov     ah,02h          ;set cursor bottom left of box
                mov     bh,0h
                mov     dh,[bboxrow]
                mov     [row],dh
                mov     dl,[lboxcol]
                mov     [col],dl
                int     10h
                
                mov     ah,09h          ; draw horizontal line
                mov     al,[horzd]
                mov     bh,0h
                mov     bl,[attbyte]
                mov     ch,0h
                mov     cl,[hcount]
                int     10h
                
                mov     ah,09h
                mov     al,[lbotd]      ; draw bottom left corner
                mov     bh,0h
                mov     bl,[attbyte]
                mov     cx,01h
                int     10h

                mov     ah,02h          ;set cursor top right of box  
                mov     bh,0h
                mov     dh,[tboxrow]
                mov     [row],dh
                mov     dl,[rboxcol]
                mov     [col],dl
                int     10h
                
                mov     ah,09h          ; draw top right corner
                mov     al,[rtopd]
                mov     bh,0h
                mov     bl,[attbyte]
                mov     cx,01h
                int     10h

                mov     al,[vcount]
                mov     [vcount1],al

vlp2:
                mov     ah,02h          ; move cursor down 1 row
                mov     bh,0h
                inc     [row]
                mov     dh,[row]
                mov     dl,[col]
                int     10h
                
                mov     ah,09h          ; output vertical line
                mov     al,[vertd]
                mov     bh,0h
                mov     bl,[attbyte]
                mov     cx,01h
                int     10h
                dec     [vcount1]
                jne     vlp2
                
                mov     ah,02h          ;set cursor bottom right of box  
                mov     bh,0h
                mov     dh,[bboxrow]
                mov     dl,[rboxcol]
                int     10h
                
                mov     ah,09h          ; draw bottom right corner
                mov     al,[rbotd]
                mov     bh,0h
                mov     bl,[attbyte]
                mov     cx,01h
                int     10h
                
               ;get bottom row+1 , left col+1 in pointers        
                                 
                mov     dh,[bboxrow]
                inc     dh
                mov     [row],dh
                cmp     dh,24d
                ja      nohshade
                mov     dl,[lboxcol]
                inc     dl
                mov     [col],dl
                
                mov     al,[hcount]
                mov     [hcount1],al
hshade:
                mov     ah,02           ; position cursor
                mov     bh,0h
                mov     dh,[row]
                mov     dl,[col]
                int     10h
                
                mov     ah,08h          ; read character and attribute
                mov     bh,0h
                int     10h

                mov     bl,[shadow]     ; reprint it with shadow attribute
                mov     ah,09h
                mov     bh,0h
                mov     cx,01h
                int     10h
                inc     [col]
                dec     [hcount1]
                jne     hshade
                
nohshade:
                ; get top right row+1 , top right col+1

                mov     dh,[tboxrow]
                inc     dh
                mov     [row],dh
                mov     dl,[rboxcol]
                inc     dl
                mov     [col],dl
                
                
                mov     al,[vcount]
                inc     al
                inc     al
                mov     [vcount1],al

                                
vshade:
                mov     ah,02           ; position cursor
                mov     bh,0h
                mov     dh,[row]
                mov     dl,[col]
                cmp     dl,79d
                ja      noshade
                int     10h
                
                mov     ah,08h          ; read character and attribute
                mov     bh,0h
                int     10h

                mov     bl,[shadow]     ; reprint it with shadow attribute
                mov     ah,09h
                mov     bh,0h
                mov     cx,01h
                int     10h
                inc     [row]
                dec     [vcount1]
                jne     vshade
                
                
                ; get top right row+1 , top right col+2

                mov     dh,[tboxrow]
                inc     dh
                mov     [row],dh
                mov     dl,[rboxcol]
                inc     dl
                inc     dl
                mov     [col],dl
                
                
                mov     al,[vcount]
                inc     al
                inc     al
                mov     [vcount1],al
noshade:
                jmp     noshade1
                
vshade2:
                mov     ah,02           ; position cursor
                mov     bh,0h
                mov     dh,[row]
                mov     dl,[col]
                cmp     dl,79d
                ja      noshade
                int     10h
                
                mov     ah,08h          ; read character and attribute
                mov     bh,0h
                int     10h

                mov     bl,[shadow]     ; reprint it with shadow attribute
                mov     ah,09h
                mov     bh,0h
                mov     cx,01h
                int     10h
                inc     [row]
                dec     [vcount1]
                jne     vshade2
                
noshade1:                

                ; get top row+1 , top left col+1

                mov     dh,[tboxrow]
                inc     dh
                mov     [row],dh
                mov     dl,[lboxcol]
                inc     dl
                mov     [col],dl
                
                mov     al,[vcount]
                mov     [vcount1],al    
                dec     [hcount]
                je      shadex
                
                
fillbox:                
                mov     ah,02           ; position cursor
                mov     bh,0h
                mov     dh,[row]
                mov     dl,[col]
                int     10h

                mov     ah,09h          ; fill horizontal line
                mov     al,32d
                mov     bh,0h
                mov     bl,[attbyte]
                mov     ch,0h
                mov     cl,[hcount]
                int     10h
                inc     [row]
                dec     [vcount1]
                jne     fillbox
                
SHADEX:
                POP     DI
                POP     SI
                POP     DS
                POP     BP
                POP     DX
                POP     CX
                POP     BX
                POP     AX
                POP     SI

                RET
shadebox        ENDP





                END


                
User avatar
Jairo Maia
Posts: 53
Joined: Sun Jul 17, 2011 1:47 pm
Location: Campinas - SP - Brazil

Re: Hello from Minnesota (U.S.A.)

Post by Jairo Maia »

Hello Members and Moderators,

I would like to know what I need do for see the attachments when I´m logged, and why in control panel I can´t to edit my avatar.

If I´m not logged I see the attachments, but if I´m logged I see the follow message: "You do not have the required permissions to view the files attached to this post."

On the control panel i see the message: "The avatar functionality is currently disabled."

Regards
User avatar
danielmaximiliano
Posts: 2612
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Hello from Minnesota (U.S.A.)

Post by danielmaximiliano »

Jairo Maia wrote:Hello Members and Moderators,

I would like to know what I need do for see the attachments when I´m logged, and why in control panel I can´t to edit my avatar.

If I´m not logged I see the attachments, but if I´m logged I see the follow message: "You do not have the required permissions to view the files attached to this post."

On the control panel i see the message: "The avatar functionality is currently disabled."

Regards
Self Introduction is a place to be released and leave a little comment of your own, you can put your data source and some other more.
Mr. Rathinagiri will welcome to the forum and will thus be able to post the entire site www.hmgforum.com
can you create a new topic for this.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
Jairo Maia
Posts: 53
Joined: Sun Jul 17, 2011 1:47 pm
Location: Campinas - SP - Brazil

Re: Hello from Minnesota (U.S.A.)

Post by Jairo Maia »

Hello Daniel,

Thanks for your answer, and sorry by my mistake. I already asked in the topic I want to be a HMG Poster, and I´m not authorized until now yet.

I found it: Attention New Members!. I will go ask by e-mail.
Post Reply