HP3000-L Archives

November 2000, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Bitmapping script
From:
Russ Smith <[log in to unmask]>
Reply To:
Russ Smith <[log in to unmask]>
Date:
Fri, 17 Nov 2000 15:08:23 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (37 lines) 
Greg,

A) Okay, now that I see it.  Yes, that's as easy as the other direction.
Good thing it's Friday.
B) Thanks
C) I love this list.

Rs~

----- Original Message -----
From: "Stigers, Greg [And]" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Friday, November 17, 2000 11:51 AM
Subject: Re: [HP3000-L] Bitmapping script


> X-no-Archive:yes
> Try this. I'm sure there's room for improvement. It does not clean up
after
> itself, and it does not correctly handle numbers greater than 255, if that
> is needed.
>
> :PRINT DECTOBIN.XEQ
> PARM PARM=" "
> SETVAR NUMBER !PARM
> SETVAR STRING ""
> WHILE NUMBER <> 0
>    SETVAR STRING "![!NUMBER MOD 2]"+"!STRING"
>    SETVAR NUMBER NUMBER/2
> ENDWHILE
> SETVAR STRING RHT("00000000"+"!STRING",8)
> ECHO !STRING
>
> Greg Stigers
> http://www.cgiusa.com
>

ATOM RSS1 RSS2