🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.atari.st
Article #36891

Re: OSS Personal Pascal

#36891
From: Some call me...Tim
Date: Sun, 05 Mar 1989 22:01
27 lines
1355 bytes
In article <4499@cs.Buffalo.EDU> ugmuldoo@sunybcs.UUCP (Thomas Muldoon) writes:
> ...
>  First does Personal have a random number generator?

The easiest way to get a random number is with the XBIOS random
function.  

FUNCTION Random : Long_Integer ;
XBIOS(17) ;

This returns a 24 bit random number.

> ...
> Second how do you clear the screen in Personal?? 

I usually use an escape sequence to do this.

write(chr(27),'E') ;   { ESCAPE 'E' -- CAPITAL E -- clears the screen }

This information comes out of Atari ST Internals from Abacus
Software, but there is apparently another book available that is a
lot better organized, though the name escapes me...I can find it if
there's any interest.

-----------
Tim Mensch                		Disclaimer:  No one is responsible
EMAIL : tmensch@ucsd.edu    			     for what I say.
Technical Details
Message-ID: <82@sdcc10.ucsd.EDU>
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!ucsd!sdcc6!sdcc10!cs163afu
References: <15535@oberon.USC.EDU> <4499@cs.Buffalo.EDU>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!ucsd!sdcc6!sdcc10!cs163afu
From: cs163afu@sdcc10.ucsd.EDU (Some call me...Tim)
Newsgroups: comp.sys.atari.st
Subject: Re: OSS Personal Pascal
Summary: XBIOS and VT52
Message-ID: <82@sdcc10.ucsd.EDU>
Date: 5 Mar 89 22:01:56 GMT
References: <15535@oberon.USC.EDU> <4499@cs.Buffalo.EDU>
Reply-To: tmensch@ucsd.edu.UUCP (Tim Mensch)
Distribution: usa
Organization: University of California, San Diego
Lines: 27