HP3000-L Archives

December 2003, Week 2

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: Pascal Run time Error Question (update)
From:
Keven Miller <[log in to unmask]>
Reply To:
Keven Miller <[log in to unmask]>
Date:
Sat, 13 Dec 2003 08:05:47 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (26 lines) 
Interesting open-source project.

A couple more corrections.

Add intrinsic ASCII,
use ASCII to place the message len into the escape sequence.
(oh, and put back in the '&' into the escape sequence)
-------------------------------------------------------------------
Function  ascii : shortint;            intrinsic;
Procedure getprivmode;                 intrinsic;



s := #27'&j000L';        {move to line 0?}

i := ascii ( len, -10, s[6] );

i := strlen (s);           {length of addressing stuff}
-------------------------------------------------------------------
Now the test should work as desired.

[log in to unmask]

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2