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...