String  s01 , s02[10]
int     i01 , i02 , i03 , i04
int     n , m , m01[30]
int     ans 

s02[0] = ""
s02[1] = ""
s02[2] = ""
s02[3] = "ĤƤ"
s02[4] = "ʤˤ̤ͤ"
s02[5] = "ϤҤդؤ"
s02[6] = "ޤߤ"
s02[7] = "䡡桡"
s02[8] = ""
s02[9] = "𡡤"

褺ϲϥʥΥƥȤǤ

ʸѿIFʸΥƥ
  i01 = 0
  s01 = ""
LOOP0:
+s01+
  s01 = s01 + s02[i01]
  i01 = i01 + 1
  if ( i01 < 5 ) { Goto(LOOP0) } 

IFʸΥƥȣ
s01=Ϻ
if ( s01 != Ϻ ) {
̾+s01 
} else {
̾+s01+ǤϤʤ
Ȼפä
}

if ( s01 == Ϻ ) ̾+s01+ǤϤʤ
else ̾+s01

IFʸΥƥȣ
i01 = 10
i02 = 20
i03 = 30
i04 = 40
if ( i01 == 10 && i02 == 20 || ( i03 == 30 && i04 == 40 ) )
  ʣԣңգţ+i01++i02++i03++i04
else
  ʣƣ̣ӣţ+i01++i02++i03++i04

if ( i01 == 20 && i02 == 20 || ( i03 == 20 && i04 == 40 ) )
  ʣԣңգţ+i01++i02++i03++i04
else
  ʣƣ̣ӣţ+i01++i02++i03++i04



ʸѿΥƥȣ
  i01 = 0
  s01 = ""
while (i01 < 10) {
+s01+
  s01 = s01 + s02[i01]
  i01 = i01 + 1
}

ͷѿΥƥȣ
for ( n = 0 , n < 4 , n=n+1 ) {
  for ( m = 0 , m < 5 , m=m+1 ) { 
    m01[m+n*5] = n * 100 + m 
  }
}    


for ( m = 0 , m < 20 , m=m+1 ) {
  +m+ͤͤ+m01[m]
} 


ͷ׻Υƥ
ƤͤˣȽȴޤ
LOOP2:
ͤϤƤ
  input(i01)
¤ͤϤƤ
  input(i02)
ܤͤϤƤ
  input(i03)

ܣ¡ä¹Ԥޤ
  ans = i01 + i02 * i03 
ܣ¡ä+ans+Ǥ

if ( ans != 0 ) goto(LOOP2)


֥롼Υƥ
for ( n = 0 , n < 4 , n=n+1 ) {
  for ( m = 0 , m < 4 , m=m+1 ) {
    Gosub(SUB001)
  }
}

¾ΥץȥեƤӽФƥ
GoScript(script01EUC.txt,EUC_JP);


SUB001:
ͤ+m+ǣΤ+n+Ǥ
ans = m * n 
͡ߣΤ+ans
return()
