¤º¤¶¤¶¤ó¤¶¤ó¢ö

A=1.0
FOR I=1 TO 100
A=A*1.1
PRINT I;" ";A
NEXT

A=1.1
PRINT A
'1.1
B=RND(100)
B=B/100
PRINT B
'0.63¤È¤«
'B/=100 syntax error

50 0000.000 OK
60 0000.0000 NO
£Ì¡ð¡Ê£Ó£±¡Ë¡á£Í£³¡ð¡§£Ó£±¡á£Ó£±¡Ü£±¡§£Í£³¡ð¡á¡É¡É¡§£Æ£±¡á£±
var$=INKEY$()

A=(1+1)/2
PRINT A '1
B=1+1/2
PRINT B '1.5

L$(2)="A"
'L$¤À¤±ÇÛÎó¤Ë½ÐÍè¤ë¤Ã¤Ý¤¤£÷

¥­¡¼¥Ü¡¼¥É±¦²¼¤Î¥«¡¼¥½¥ë¥­¡¼¤Î¤¹¤°º¸¤Î¹õ¤¤¾å²¼¥Ü¥¿¥ó¤Î²¼¤ò¥¿¥Ã¥Á¤Ç¥³¥Ô¡¼¡¦¥Ú¡¼¥¹¥È
¥·¥Õ¥È¥­¡¼ (L¥Ü¥¿¥ó) ¤ò²¡¤·¤Ê¤¬¤é¥¿¥Ã¥Á¥Ñ¥Í¥ë¤Î DEL ¥­¡¼¤ò¥¿¥Ã¥Á¤Ç°ì¹Ôºï½ü

NNN=-12345.5555
? NNN
'-12345.555
_4SAVE_B$="aabbccddeeff"
_4SAVE_C$="  12  "
MM=VAL(_4SAVE_C$)
? MM
'0
_4SAVE_D$="12  "
MMM=VAL(_4SAVE_D$)
? MMM
'12
_4SAVE_E$="12NN  "
MMMM=VAL(_4SAVE_E$)
? MMMM
'12
NNNN=-12345.5555
_N$=STR$(NNNN)
_L=LEN(_N$)
? _L
'10
_4SAVE_F$="aabbccddeeff"
OF_MID$=SUBST$(_4SAVE_F$,0,_L,_N$)
? OF_MID
'-12345.555ff
MMMMM=VAL(OF_MID$)
? MMMMM
'-12345.555
END

_4SAVE_F$="aabbccddeeff"
OF_MID$=SUBST$(_4SAVE_F$,0,_L,_N$)
? OF_MID$
'-12345.555ff
MMMMM=VAL(OF_MID$)
? MMMMM
'-12345.555
GOSUB @JOIN_TEST
END

    @MY_JOIN
_4ADD_A$=MID_A$
_4ADD_B$=MID_B$
GOSUB @STR_JOIN
MID_AB$=_4RESULT$
? MID_AB$

_4ADD_A$=MID_AB$
_4ADD_B$=MID_C$
GOSUB @STR_JOIN
MID_ABC$=_4RESULT$
? MID_ABC$

RETURN
    @JOIN_TEST
_4ADD_A$="AAA"
_4ADD_B$="BB"
GOSUB @STR_JOIN
? _4RESULT$
RETURN

    @STR_JOIN
'_4ADD_A$
'_4ADD_B$
_L_A=LEN(_4ADD_A$)
_L_B=LEN(_4ADD_B$)
_L_C=_L_A+_L_B
'? _L_C
_4RESULT$=""
'? _4RESULT$
_4RESULT$=_4RESULT$*5
'? _4RESULT$
_4RESULT$=SUBST$(_4RESULT$,0,   _L_A,_4ADD_A$)
'? _4RESULT$
_4RESULT$=SUBST$(_4RESULT$,_L_A,_L_B,_4ADD_B$)
'? _4RESULT$
RETURN

IF SV_FLAG>0 THEN SV_FLAG=0:LOAD "MEM:TEBSV",FALSE:? MEM$:END

_4SAVE_F$="aabbccddeeff"
OF_MID$=SUBST$(_4SAVE_F$,0,_L,_N$)
? OF_MID$
'-12345.555ff
MMMMM=VAL(OF_MID$)
? MMMMM
'-12345.555
GOSUB @JOIN_TEST
LV=15
TURN=47
_POW=120.2
V_A$=STR$(LV)
GOSUB @MY_SUBST
MID_A$=_4MID01$
? MID_A$

V_A$=STR$(TURN)
GOSUB @MY_SUBST
MID_B$=_4MID01$
? MID_B$

V_A$=STR$(_POW)
GOSUB @MY_SUBST
MID_C$=_4MID01$
? MID_C$

GOSUB @MY_JOIN
_2NUM_S$="-1234.56****"
GOSUB @MY_2NUM
_2NUM_S$=MID_ABC$
GOSUB @MY_2NUM
INPUT "PLEASE INPUT ";V4INPUT
SV_FLAG=V4INPUT
_2NUM_S$=STR$(V4INPUT)
V_A$=STR$(V4INPUT)
GOSUB @MY_SUBST
_2NUM_S$=_4MID01$
GOSUB @MY_2NUM

MEM$=_R4NUM$
SAVE "MEM:TEBSV"
? MEM$
END
    @MY_2NUM
'_2NUM_S$="-1234.56****"
_2NUM_L_S=LEN(_2NUM_S$)
FOR _2NUM_I=0 TO _2NUM_L_S-1
_2NUM_SS$=MID$(_2NUM_S$,_2NUM_I,1)
_2NUM_T$=_2NUM_SS$
IF _2NUM_SS$=="*" THEN _2NUM_T$="A"
IF _2NUM_SS$=="." THEN _2NUM_T$="B"
IF _2NUM_SS$=="-" THEN _2NUM_T$="C"
_2NUM_S$=SUBST$(_2NUM_S$,_2NUM_I,1,_2NUM_T$)
NEXT
_R4NUM$=_2NUM_S$
'? _2NUM_S$
RETURN
    @MY_SUBST
_LEN_A=LEN(V_A$)
_4SAVE01$="*"
_4SAVE01$=_4SAVE01$*12
_4MID01$=SUBST$(_4SAVE01$,0,_LEN_A,V_A$)
RETURN

    @MY_JOIN
_4ADD_A$=MID_A$
_4ADD_B$=MID_B$
GOSUB @STR_JOIN
MID_AB$=_4RESULT$
? MID_AB$

_4ADD_A$=MID_AB$
_4ADD_B$=MID_C$
GOSUB @STR_JOIN
MID_ABC$=_4RESULT$
? MID_ABC$

RETURN
    @JOIN_TEST
_4ADD_A$="AAA"
_4ADD_B$="BB"
GOSUB @STR_JOIN
? _4RESULT$
RETURN

    @STR_JOIN
'_4ADD_A$
'_4ADD_B$
_L_A=LEN(_4ADD_A$)
_L_B=LEN(_4ADD_B$)
_L_C=_L_A+_L_B
'? _L_C
_4RESULT$=""
'? _4RESULT$
_4RESULT$=_4RESULT$*5
'? _4RESULT$
_4RESULT$=SUBST$(_4RESULT$,0,   _L_A,_4ADD_A$)
'? _4RESULT$
_4RESULT$=SUBST$(_4RESULT$,_L_A,_L_B,_4ADD_B$)
'? _4RESULT$
RETURN

A$="1"
? A$
L=LEN(A$)
IF L==1 THEN ?"0";A$
'? AA$
B$="01"
BB=VAL(B$)
? BB
_4SAVE$="abcdefghij.klm"
T=0
GOSUB @TMP_LBL
T=0
GOSUB @TMP_LBL
T=4
GOSUB @TMP_LBL
T=67
GOSUB @TMP_LBL
T=789
GOSUB @TMP_LBL
T=2340
GOSUB @TMP_LBL
T=98765
GOSUB @TMP_LBL
T=013
GOSUB @TMP_LBL
END
    @TMP_LBL
U$=STR$(T)
LL=LEN(U$)
?"LL ";LL
GOSUB @SET_CC_L3
PRINT CC1$;" ";CC2$;" ";CC3$;" ";CC4$;" ";CC5$
_4SAVE$=SUBST$(_4SAVE$,0,1,CC1$)
_4SAVE$=SUBST$(_4SAVE$,1,1,CC2$)
_4SAVE$=SUBST$(_4SAVE$,2,1,CC3$)
_4SAVE$=SUBST$(_4SAVE$,3,1,CC4$)
_4SAVE$=SUBST$(_4SAVE$,4,1,CC5$)
? _4SAVE$
RETURN

    @SET_CC_L3
CC1$="0":CC2$="0":CC3$="0"
CC4$="0":CC5$="0"
'CC3$=MID$(U$,0,1)
'CC4$=MID$(U$,1,1)
'CC5$=MID$(U$,2,1)
CCC0$=MID$(U$,0,1)
CCC1$=MID$(U$,1,1)
CCC2$=MID$(U$,2,1)
CCC3$=MID$(U$,3,1)
CCC4$=MID$(U$,4,1)

'00000
'IF LL==0 THEN
'00001
IF LL==1 THEN CC5$=CCC0$
'00012
IF LL==2 THEN CC4$=CCC0$:CC5$=CCC1$
'00123
IF LL==3 THEN CC3$=CCC0$:CC4$=CCC1$:CC5$=CCC2$
'01234
IF LL==4 THEN CC2$=CCC0$:CC3$=CCC1$:CC4$=CCC2$:CC5$=CCC3$
IF LL==4 THEN CC4$=CCC2$:CC5$=CCC3$
'12345
IF LL==5 THEN CC1$=CCC0$:CC2$=CCC1$
IF LL==5 THEN CC3$=CCC2$:CC4$=CCC3$:CC5$=CCC4$
    RETURN