; stkfnc4テスト
	100 str1 STRING "文字列をコピーする" STRCPY
	str1 PRINTS CRLF

	100 str2 STRING "文字列を" STRCPY
	str2 "コピーする" STRCAT
	str2 PRINTS CRLF ; "文字列をコピーする と表示される

	"1 2 3 4 5と表示されるはず↓\n" PRINTS
	100 wk STRING ,
	5 wk "1234567890" MEMCPY ; wk <- 1,2,3,4,5
	0 4 FOR
		( I? ). wk @ -> PRINTC SPC
	NEXT
	CRLF

	"STRCMP/I 0 0 0 0 ↓\n" PRINTS
	"str1" "str1" STRCMP Pr.  ; 0
	"str1" "str1" STRCMPI Pr. ; 0
	"str1" "str1\0str2" STRCMP   Pr. ; 0 , EOSまでだから
	"str1" "str1\0str2" STRCMPI  Pr. ; 0 , EOSまでだから
	
	"STRCMP/I <0 0 <0 <0 ↓\n" PRINTS
	"Str1" "str1" STRCMP  Pr. ; <0
	"Str1" "str1" STRCMPI Pr. ; 0
	
	"str1" "string1" STRCMP  Pr. ; <0
	"str1" "string1" STRCMPI Pr. ; <0
	
	"STRCMP/I >0 0 >0 >0 ↓\n" PRINTS
	"str1" "Str1" STRCMP  Pr. ; >0
	"str1" "Str1" STRCMPI Pr. ; 0
	
	"string1" "str1" STRCMP  Pr. ; >0
	"string1" "str1" STRCMPI Pr. ; >0


	"MEMCMP/I 0 0 <0 >0 0 ↓\n" PRINTS
	3 "str1" "str1" MEMCMP      Pr. ; 0 , MEMCMPIも同じ
	3 "str1" "str1str2" MEMCMP  Pr. ; 0 , 3バイトまでは同じだから
	
	3 "Str1" "str1"  MEMCMP  Pr.  ; <0
	3 "str1" "Str1"  MEMCMP  Pr.  ; >0
	3 "Str1" "str1"  MEMCMPI Pr.  ; 0

	"STRLEN/S 4 4 5+1 100 ↓\n" PRINTS
	"長さ" STRLEN Pr. ; = 4
	
	100 str3 STRING "長さ" STRCPY
	str3 STRLEN Pr. ; = 4

	"長さ" STRLENS Pr. ; = 5+1 偶数化付き
	
	100 str4 STRING "長さ" STRCPY
	str4 STRLENS Pr. ; = 100

	"ATOI 11 17 3 3 9 -11 65↓\n" PRINTS
	"11"	ATOI Pr.	; 11
	"$11"	ATOI Pr.	; 17
	"%11"	ATOI Pr.	; 3
	"%1_1"	ATOI Pr.	; 3
	"@11"	ATOI Pr.	; 9
	"-11"	ATOI Pr.	; -11
	"'A'"	ATOI Pr.	; $41=65

	"KSTRCHAR/MEMCHAR 5 5 5 ↓\n" PRINTS
	'A' "12345ABC" KSTRCHAR	Pr. ; 5
	'い' "ABCあいう" KSTRCHAR Pr. ; 5

	'A'  "12345ABC"  8 MEMCHAR Pr. ; 5
	
	"１文字キー入力(STR>=0,else=-1):" PRINTS
	GETCH "STR" 3 MEMCHAR Pr.
END
;
Pr:
PRINTN10 CRLF
return
