VARPTRに関する幾つかの問題

[baseballcap-mio]

１．下のプログラムでBACONはパスするが、ZMAをパスしない。

100 'SAVE"VP_FCB.ASC",A
110 SCREEN 0:WIDTH 40:DEFINT A-Z
120 PB=VARPTR(#0)
130 PF=0:PW=VARPTR(PF)
140 POKE PW  ,PEEK(PB+1)
150 POKE PW+1,PEEK(PB+2)
160 FOR I=1 TO 11
170  PRINT CHR$(PEEK(PF+I));
180 NEXT
190 PRINT
200 END

ERROR:Illegal expression.: vp_fcb.asm(37)	;この1か所のみ
ERROR:Illegal operand.: vp_fcb.asm(47)		;その他、多数発生

2．下のプログラムのVARPTRで正しい値を得ることが出来ない。

100 'SAVE"VPVAL000.ASC",A
110 SCREEN 0:WIDTH40:DEFINT A-Z
120 S$="abcdefg":P=VARPTR(S$)
130 PRINT "S$:";HEX$(P)
140 FOR I=0 TO 2
150  PRINT RIGHT$(HEX$(PEEK(P+I)+256),2);" ";
160 NEXT
170 END