Date   : Fri, 11 Feb 2005 01:39:53 +0000
From   : jgh@... (Jonathan Graham Harston)
Subject: Re: VIEWSTORE

Mike Tomlinson <mike@...> wrote:
> 40 Y$=STR$Y%:IF LENY$=1 Y$="0"+Y$
> 50 PRINT Y$"> ";
 
or even:
 
PRINT FNd0(Y%,2)"> ";
...
DEFFNd0(A%,N%)=RIGHT$("0000000"+STR$A%,N%)
 
> 140 ?&F6=A% MOD 256
> 150 ?&F7=A% DIV 256
> 160 CALL start
> 170 IF ?&70>31 AND ?&70<127 a$=a$+CHR$?&70
> 180 A%=A%+1
> 190 UNTIL ?&70=0
> 200 :=a$
> 210 :
> 220 DEF PROCassem
> 230 P%=space%
> 240 [OPT 2
> 250 .start
> 260 JSR &FFB9
> 270 STA &70
> 280 RTS
> 290 ]
> 300 ENDPROC
 
or even:
 
!&F6=A%:B%=USR&FFB9
IF B%>31 AND B%<127:a$=a$+CHR$B%
A%=A%+1
UNTIL B%=0
=a$
 
-- 
J.G.Harston - jgh@...                - mdfs.net/User/JGH
Badly formed email is deleted unseen as spam