<< Previous Message Main Index Next Message >>
<< Previous Message in Thread This Month Next Message in Thread >>
Date   : Sat, 17 Dec 2011 06:37:25 +0100
From   : rick@... (Rick Murray)
Subject: 32016 + 32082

On 16/12/2011 17:43, John Kortink wrote:

> extent, unbound. You could probably crash BASIC in a single call
> if you gave the relevant PROC or FN enough parameters.

L.

  10 X% = 0
  20 DIM C% 2
  30 P%=C%
  40 [ OPT 2 : TSX : RTS : ]
  50 PROCA(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,m%,n%,o%,p%,q%,r%,s%,t%,
u%,v%,w%,x%,y%,z%,aa%,ab%,ac%,ad%,ae%,af%,ag%,ah%,ai%,aj%,ak%,al%, 
am%,an%,ao%,ap%,aq%,ar%,as%,at%,au%,av%,aw%,ax%,ay%,az%)
  60 END
  70 :
  80 DEFPROCA(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,m%,n%,o%,p%,q%,r%,s%,t%,
u%,v%,w%,x%,y%,z%,aa%,ab%,ac%,ad%,ae%,af%,ag%,ah%,ai%,aj%,ak%,al%,am%, 
an%,ao%,ap%,aq%,ar%,as%,at%,au%,av%,aw%,ax%,ay%,az%)
  90   X% = X% + 1
100   IF X% < 5 THEN GOTO 50
110   VDU 7
120   PRINT ~USR(C%)
130 ENDPROC

Grotty, icky, nasty. And works, but stack appears to be... &E3, as 
opposed to &ED if I call without the function.

But then I nested PROC inside PROC inside PROC and, the result was... &E3.

Interesting.


Best wishes,

Rick.

-- 
Rick Murray, eeePC901 & ADSL WiFI'd into it, all ETLAs!
BBC B: DNFS, 2 x 5.25" floppies, EPROM prog, Acorn TTX
E01S FileStore, A3000/A5000/RiscPC/various PCs/blahblah...
<< Previous Message Main Index Next Message >>
<< Previous Message in Thread This Month Next Message in Thread >>