メニュー

最新の20件
2022-10-09 2021-05-19 2018-08-01 2018-07-31 2018-07-21 2018-07-11 2018-06-28 2018-06-23
total 96 today 1 yesterday 1 now 2

Menu

  • Total:96/Today:1

簡単言語_NO467toNO479

ＮＯ＿４６７ †

行番号登録のサンプルです

pc=1
*sw_begin
switch pc
case 1:mes ""+pc+":"+__LINE__+" "+__LINE__+":"+pc:pc++:goto *sw_begin
case 2:mes ""+pc+":"+__LINE__+" "+__LINE__+":"+pc:pc++:goto *sw_begin
 case 3:mes ""+pc+":"+__LINE__+" "+__LINE__+":"+pc:pc++:goto *sw_begin
swend
pc=1
dim pc_stack,256,2
n_pc_stack=0
dim my_stack,256
n_stack=0
*sw_begin
await 1
switch pc
case 1:my_stack.n_stack=pc:n_stack++:my_stack.n_stack=int(__LiNE__):n_stack++:pc++:goto *sw_begin
case 2:my_stack.n_stack=pc:n_stack++:my_stack.n_stack=int(__LiNE__):n_stack++:pc++:goto *sw_begin

case 3:my_stack.n_stack=pc:n_stack++:my_stack.n_stack=int(__LiNE__):n_stack++:pc++:goto *sw_begin
swend
repeat n_stack
mes my_stack.cnt
loop
mes ""
pc=1
*sw_begin_b
await 1
switch pc
case 1:pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++:goto *sw_begin_b
case 2:pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++:goto *sw_begin_b

case 3:pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++:goto *sw_begin_b
swend
repeat n_pc_stack
mes ""+pc_stack.cnt.0+" "+pc_stack.cnt.1
loop
pc=1
dim pc_stack,256,2
n_pc_stack=0
dim my_stack,256
n_stack=0

*sw_begin_b
await 1
;switch pc
pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++	//1
pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++	//2

pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++	//3
;swend
repeat n_pc_stack
mes ""+cnt+":"+pc_stack.cnt.0+" "+pc_stack.cnt.1
loop
pc=1
dim pc_stack,256,2
n_pc_stack=0
dim num_stack,32
repeat length(num_stack)
num_stack.cnt=-1
loop
dim my_stack,256
n_stack=0

*sw_begin_b
await 1
;switch pc
pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++	//1
pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++	//2

pc_stack.n_pc_stack.0=pc:pc_stack.n_pc_stack.1=int(__LiNE__):n_pc_stack++:pc++	//3
;swend
repeat n_pc_stack
logmes ""+cnt+":"+pc_stack.cnt.0+" "+pc_stack.cnt.1
loop
repeat n_pc_stack
num_stack(pc_stack.cnt.1)=pc_stack.cnt.0
loop
repeat length(num_stack)
logmes ""+cnt+":"+num_stack.cnt
loop
//以下コメント
0:1 14
1:2 15
2:3 17
0:-1
1:-1
2:-1
3:-1
4:-1
5:-1
6:-1
7:-1
8:-1
9:-1
10:-1
11:-1
12:-1
13:-1
14:1
15:2
16:-1
17:3
18:-1
19:-1
20:-1
21:-1
22:-1
23:-1
24:-1
25:-1
26:-1
27:-1
28:-1
29:-1
30:-1
31:-1